From 257c06ad67d419a0e13bd3e492e91f07dede2f51 Mon Sep 17 00:00:00 2001 From: vyzo Date: Wed, 11 Dec 2024 02:01:12 +0200 Subject: [PATCH] Issue 1283: fix interactive module reloading (#1284) Closes #1283 - Fixes interactive module reloading, so that a compiled module (and all its nested modules) can be properly reloaded - Adds load order tracking in the loader - Adds a `list-modules` procedure that allows you to inspect loader state - Fixes a deadlock in the loader caused by incorrect mutex release in `reload-module!` --- src/bootstrap/gerbil/compiler/base~0.scm | 502 +- src/bootstrap/gerbil/compiler/base~1.scm | 550 +- src/bootstrap/gerbil/compiler/compile~0.scm | 15440 ++++----- src/bootstrap/gerbil/compiler/compile~1.scm | 1284 +- src/bootstrap/gerbil/compiler/driver~0.scm | 3246 +- src/bootstrap/gerbil/compiler/driver~1.scm | 56 +- src/bootstrap/gerbil/compiler/method~0.scm | 3018 +- src/bootstrap/gerbil/compiler/method~1.scm | 2950 +- .../gerbil/compiler/optimize-ann~0.scm | 18284 +++++------ .../gerbil/compiler/optimize-ann~1.scm | 210 +- .../gerbil/compiler/optimize-base~0.scm | 1856 +- .../gerbil/compiler/optimize-base~1.scm | 2456 +- .../gerbil/compiler/optimize-call~0.scm | 6292 ++-- .../gerbil/compiler/optimize-call~1.scm | 116 +- .../gerbil/compiler/optimize-spec~0.scm | 10964 +++---- .../gerbil/compiler/optimize-spec~1.scm | 360 +- .../gerbil/compiler/optimize-top~0.scm | 25916 ++++++++-------- .../gerbil/compiler/optimize-top~1.scm | 914 +- .../gerbil/compiler/optimize-xform~0.scm | 1432 +- .../gerbil/compiler/optimize-xform~1.scm | 434 +- src/bootstrap/gerbil/compiler/optimize~0.scm | 2172 +- src/bootstrap/gerbil/compiler/optimize~1.scm | 58 +- src/bootstrap/gerbil/compiler/ssxi~1.scm | 6566 ++-- src/bootstrap/gerbil/core.ssi | 10106 +++--- .../gerbil/core/contract~ClassMeta~0.scm | 2 +- .../gerbil/core/contract~InterfaceInfo~0.scm | 2 +- .../gerbil/core/contract~TypeEnv~0.scm | 2 +- src/bootstrap/gerbil/core/macro-object~0.scm | 2 +- src/bootstrap/gerbil/core/mop~MOP-2~0.scm | 2 +- src/bootstrap/gerbil/core/runtime.ssi | 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.ssxi.ss | 6 +- src/bootstrap/gerbil/expander/module~0.scm | 4978 +-- src/bootstrap/gerbil/expander/module~1.scm | 832 +- src/bootstrap/gerbil/expander/root~0.scm | 758 +- src/bootstrap/gerbil/expander/stxcase~0.scm | 3024 +- src/bootstrap/gerbil/expander/stxcase~1.scm | 114 +- src/bootstrap/gerbil/expander/stx~0.scm | 1500 +- src/bootstrap/gerbil/expander/stx~1.scm | 354 +- src/bootstrap/gerbil/expander/top~0.scm | 4690 +-- src/bootstrap/gerbil/runtime/c3~0.scm | 2 +- src/bootstrap/gerbil/runtime/control~0.scm | 2 +- src/bootstrap/gerbil/runtime/error~0.scm | 42 +- src/bootstrap/gerbil/runtime/eval~0.scm | 2 +- src/bootstrap/gerbil/runtime/gambit~0.scm | 2 +- src/bootstrap/gerbil/runtime/hash.ssxi.ss | 24 +- src/bootstrap/gerbil/runtime/hash~0.scm | 2 +- src/bootstrap/gerbil/runtime/init~0.scm | 410 +- src/bootstrap/gerbil/runtime/interface~0.scm | 2 +- src/bootstrap/gerbil/runtime/loader.ssi | 7 +- src/bootstrap/gerbil/runtime/loader.ssxi.ss | 51 + src/bootstrap/gerbil/runtime/loader~0.scm | 365 +- .../gerbil/runtime/mop-system-classes~0.scm | 2 +- src/bootstrap/gerbil/runtime/mop~0.scm | 2 +- src/bootstrap/gerbil/runtime/repl~0.scm | 2 +- src/bootstrap/gerbil/runtime/syntax~0.scm | 2 +- src/bootstrap/gerbil/runtime/system~0.scm | 4 +- src/bootstrap/gerbil/runtime/table~0.scm | 2 +- src/bootstrap/gerbil/runtime/thread~0.scm | 2 +- src/bootstrap/gerbil/runtime/util~0.scm | 2 +- src/bootstrap/gerbil/runtime~0.scm | 2 +- src/gerbil/core/runtime.ss | 2 + src/gerbil/runtime/loader.ss | 37 +- src/std/interactive.ss | 38 +- 69 files changed, 70928 insertions(+), 70740 deletions(-) diff --git a/src/bootstrap/gerbil/compiler/base~0.scm b/src/bootstrap/gerbil/compiler/base~0.scm index 3b46f0ec5..42f4ce4d6 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 1733687560) + (define gerbil/compiler/base::timestamp 1733870075) (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 ((_%verbosity133896133898%_ + (let ((_%verbosity133933133935%_ (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_VERBOSE" '#f)))) - (if _%verbosity133896133898%_ - (let* ((_%verbosity133901%_ _%verbosity133896133898%_) - (_%$e133903%_ (string->number _%verbosity133901%_))) - (if _%$e133903%_ _%$e133903%_ _%verbosity133901%_)) + (if _%verbosity133933133935%_ + (let* ((_%verbosity133938%_ _%verbosity133933133935%_) + (_%$e133940%_ (string->number _%verbosity133938%_))) + (if _%$e133940%_ _%$e133940%_ _%verbosity133938%_)) '#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 ((__tmp133958 (list)) (__tmp133957 (cons (cons 'struct: '#t) '()))) + (let ((__tmp133995 (list)) (__tmp133994 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp133958 + __tmp133995 '(gensyms bindings) - __tmp133957 + __tmp133994 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (__make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _%$args133894%_ - (apply make-instance gxc#symbol-table::t _%$args133894%_))) + (lambda _%$args133931%_ + (apply make-instance gxc#symbol-table::t _%$args133931%_))) (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 (_%self133416133879%_) - (let* ((_%self133882%_ _%self133416133879%_) - (_%self133884%_ _%self133882%_)) - (if (let ((__tmp133959 + (lambda (_%self133453133916%_) + (let* ((_%self133919%_ _%self133453133916%_) + (_%self133921%_ _%self133919%_)) + (if (let ((__tmp133996 (let () (declare (not safe)) - (##structure-length _%self133884%_)))) + (##structure-length _%self133921%_)))) (declare (not safe)) - (##fx< '2 __tmp133959)) + (##fx< '2 __tmp133996)) (begin - (let ((__tmp133960 + (let ((__tmp133997 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self133884%_ - __tmp133960 + _%self133921%_ + __tmp133997 '1 '#f '#f)) - (let ((__tmp133961 + (let ((__tmp133998 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self133884%_ - __tmp133961 + _%self133921%_ + __tmp133998 '2 '#f '#f)) '#!void) - (let ((__tmp133962 + (let ((__tmp133999 (let () (declare (not safe)) - (##vector-length _%self133884%_)))) + (##vector-length _%self133921%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self133884%_ + _%self133921%_ '2 - __tmp133962)))))) + __tmp133999)))))) (let () (declare (not safe)) (__bind-method!__% @@ -125,134 +125,134 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_%message133748%_ _%stx133749%_ . _%details133750%_) - (let ((_%ctx133755%_ - (let ((_%$e133752%_ + (lambda (_%message133785%_ _%stx133786%_ . _%details133787%_) + (let ((_%ctx133792%_ + (let ((_%$e133789%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (if _%$e133752%_ _%$e133752%_ 'compile)))) + (if _%$e133789%_ _%$e133789%_ 'compile)))) (apply gx#raise-syntax-error - _%ctx133755%_ - _%message133748%_ - _%stx133749%_ - _%details133750%_)))) + _%ctx133792%_ + _%message133785%_ + _%stx133786%_ + _%details133787%_)))) (define gxc#verbose - (lambda _%args133745%_ + (lambda _%args133782%_ (if (let () (declare (not safe)) (gxc#current-compile-verbose)) - (let ((__tmp133963 + (let ((__tmp134000 (lambda () (let () (declare (not safe)) - (##apply displayln _%args133745%_))))) + (##apply displayln _%args133782%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp133963)) + (__with-lock gxc#__verbose-mutex __tmp134000)) '#!void))) (define gxc#__verbose-mutex (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_%id133727%_) - (let* ((_%str133729%_ - (if (symbol? _%id133727%_) + (lambda (_%id133764%_) + (let* ((_%str133766%_ + (if (symbol? _%id133764%_) (let () (declare (not safe)) - (##symbol->string _%id133727%_)) - _%id133727%_)) - (_%len133731%_ (string-length _%str133729%_)) - (_%res133733%_ - (let () (declare (not safe)) (##make-string _%len133731%_)))) - (let _%lp133736%_ ((_%i133738%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i133738%_ _%len133731%_)) - (let* ((_%char133740%_ (string-ref _%str133729%_ _%i133738%_)) - (_%xchar133742%_ + (##symbol->string _%id133764%_)) + _%id133764%_)) + (_%len133768%_ (string-length _%str133766%_)) + (_%res133770%_ + (let () (declare (not safe)) (##make-string _%len133768%_)))) + (let _%lp133773%_ ((_%i133775%_ '0)) + (if (let () (declare (not safe)) (##fx< _%i133775%_ _%len133768%_)) + (let* ((_%char133777%_ (string-ref _%str133766%_ _%i133775%_)) + (_%xchar133779%_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _%char133740%_)) + _%char133777%_)) '#\_ - _%char133740%_))) - (string-set! _%res133733%_ _%i133738%_ _%xchar133742%_) - (_%lp133736%_ - (let () (declare (not safe)) (##fx+ _%i133738%_ '1)))) - _%res133733%_))))) + _%char133777%_))) + (string-set! _%res133770%_ _%i133775%_ _%xchar133779%_) + (_%lp133773%_ + (let () (declare (not safe)) (##fx+ _%i133775%_ '1)))) + _%res133770%_))))) (define gxc#map* - (lambda (_%proc133669%_ _%maybe-improper-list133670%_) - (let _%recur133672%_ ((_%rest133674%_ _%maybe-improper-list133670%_)) - (let* ((_%rest133675133686%_ _%rest133674%_) - (_%E133679133690%_ + (lambda (_%proc133706%_ _%maybe-improper-list133707%_) + (let _%recur133709%_ ((_%rest133711%_ _%maybe-improper-list133707%_)) + (let* ((_%rest133712133723%_ _%rest133711%_) + (_%E133716133727%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest133675133686%_ + _%rest133712133723%_ '([hd . rest]) '([]) '(tail))) '#!void))) - (let ((_%K133682133715%_ - (lambda (_%rest133712%_ _%hd133713%_) - (cons (_%proc133669%_ _%hd133713%_) - (_%recur133672%_ _%rest133712%_)))) - (_%K133681133706%_ (lambda () '())) - (_%K133680133696%_ - (lambda (_%tail133694%_) (_%proc133669%_ _%tail133694%_)))) - (let ((_%try-match133677133709%_ + (let ((_%K133719133752%_ + (lambda (_%rest133749%_ _%hd133750%_) + (cons (_%proc133706%_ _%hd133750%_) + (_%recur133709%_ _%rest133749%_)))) + (_%K133718133743%_ (lambda () '())) + (_%K133717133733%_ + (lambda (_%tail133731%_) (_%proc133706%_ _%tail133731%_)))) + (let ((_%try-match133714133746%_ (lambda () - (if (null? _%rest133675133686%_) - (_%K133681133706%_) - (let ((_%tail133699%_ _%rest133675133686%_)) + (if (null? _%rest133712133723%_) + (_%K133718133743%_) + (let ((_%tail133736%_ _%rest133712133723%_)) (declare (not safe)) - (_%proc133669%_ _%tail133699%_)))))) - (if (pair? _%rest133675133686%_) - (let ((_%tl133684133720%_ + (_%proc133706%_ _%tail133736%_)))))) + (if (pair? _%rest133712133723%_) + (let ((_%tl133721133757%_ (let () (declare (not safe)) - (##cdr _%rest133675133686%_))) - (_%hd133683133718%_ + (##cdr _%rest133712133723%_))) + (_%hd133720133755%_ (let () (declare (not safe)) - (##car _%rest133675133686%_)))) - (let ((_%hd133723%_ _%hd133683133718%_) - (_%rest133725%_ _%tl133684133720%_)) - (_%K133682133715%_ _%rest133725%_ _%hd133723%_))) - (_%try-match133677133709%_)))))))) + (##car _%rest133712133723%_)))) + (let ((_%hd133760%_ _%hd133720133755%_) + (_%rest133762%_ _%tl133721133757%_)) + (_%K133719133752%_ _%rest133762%_ _%hd133760%_))) + (_%try-match133714133746%_)))))))) (define gxc#symbol-in-local-scope? - (lambda (_%sym133664%_) - (let ((_%$e133666%_ (not (gxc#gensym-reference? _%sym133664%_)))) - (if _%$e133666%_ - _%$e133666%_ - (memq _%sym133664%_ + (lambda (_%sym133701%_) + (let ((_%$e133703%_ (not (gxc#gensym-reference? _%sym133701%_)))) + (if _%$e133703%_ + _%$e133703%_ + (memq _%sym133701%_ (let () (declare (not safe)) (gxc#current-compile-local-env))))))) (define gxc#gensym-reference? - (lambda (_%sym133660%_) - (let ((_%str133662%_ (symbol->string _%sym133660%_))) + (lambda (_%sym133697%_) + (let ((_%str133699%_ (symbol->string _%sym133697%_))) (if (let () (declare (not safe)) - (##string-prefix? '"_%" _%str133662%_)) + (##string-prefix? '"_%" _%str133699%_)) (let () (declare (not safe)) - (##string-suffix? '"%_" _%str133662%_)) + (##string-suffix? '"%_" _%str133699%_)) '#f)))) (define gxc#generate-runtime-binding-id - (lambda (_%id133631%_) - (let ((_%$e133633%_ + (lambda (_%id133668%_) + (let ((_%$e133670%_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id133631%_ + _%id133668%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id133631%_)) + (gx#resolve-identifier__0 _%id133668%_)) '#f))) - (if _%$e133633%_ - ((lambda (_%bind133636%_) - (let ((_%eid133638%_ - (##structure-ref _%bind133636%_ '1 gx#binding::t '#f)) - (_%ht133639%_ + (if _%$e133670%_ + ((lambda (_%bind133673%_) + (let ((_%eid133675%_ + (##structure-ref _%bind133673%_ '1 gx#binding::t '#f)) + (_%ht133676%_ (##structure-ref (let () (declare (not safe)) @@ -262,155 +262,155 @@ '#f))) (if (let () (declare (not safe)) - (interned-symbol? _%eid133638%_)) - _%eid133638%_ - (let ((_%$e133642%_ + (interned-symbol? _%eid133675%_)) + _%eid133675%_ + (let ((_%$e133679%_ (let () (declare (not safe)) - (hash-get _%ht133639%_ _%eid133638%_)))) - (if _%$e133642%_ - _%$e133642%_ + (hash-get _%ht133676%_ _%eid133675%_)))) + (if _%$e133679%_ + _%$e133679%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%bind133636%_ + _%bind133673%_ 'gx#local-binding::t)) - (let ((_%gid133646%_ + (let ((_%gid133683%_ (gxc#generate-runtime-gensym-reference__0 - _%eid133638%_))) + _%eid133675%_))) (let () (declare (not safe)) (hash-put! - _%ht133639%_ - _%eid133638%_ - _%gid133646%_)) - _%gid133646%_) + _%ht133676%_ + _%eid133675%_ + _%gid133683%_)) + _%gid133683%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind133636%_ + _%bind133673%_ 'gx#module-binding::t)) - (let ((_%gid133655%_ - (let ((_%$e133649%_ + (let ((_%gid133692%_ + (let ((_%$e133686%_ (##structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%bind133636%_ + _%bind133673%_ '4 '#f '#f)) '6 gx#module-context::t '#f))) - (if _%$e133649%_ - ((lambda (_%ns133652%_) + (if _%$e133686%_ + ((lambda (_%ns133689%_) (let () (declare (not safe)) (make-symbol__1 - _%ns133652%_ + _%ns133689%_ '"#" - _%eid133638%_))) - _%$e133649%_) + _%eid133675%_))) + _%$e133686%_) (gxc#generate-runtime-gensym-reference__0 - _%eid133638%_))))) + _%eid133675%_))))) (let () (declare (not safe)) (hash-put! - _%ht133639%_ - _%eid133638%_ - _%gid133655%_)) - _%gid133655%_) + _%ht133676%_ + _%eid133675%_ + _%gid133692%_)) + _%gid133692%_) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _%id133631%_ - _%eid133638%_ - _%bind133636%_)))))))) - _%$e133633%_) - (if (let ((__tmp133964 + _%id133668%_ + _%eid133675%_ + _%bind133673%_)))))))) + _%$e133670%_) + (if (let ((__tmp134001 (let () (declare (not safe)) - (gx#stx-e _%id133631%_)))) + (gx#stx-e _%id133668%_)))) (declare (not safe)) - (interned-symbol? __tmp133964)) - (let () (declare (not safe)) (gx#stx-e _%id133631%_)) + (interned-symbol? __tmp134001)) + (let () (declare (not safe)) (gx#stx-e _%id133668%_)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _%id133631%_)))))) + _%id133668%_)))))) (define gxc#generate-runtime-binding-id* - (lambda (_%id133629%_) - (if (let () (declare (not safe)) (gx#identifier? _%id133629%_)) - (gxc#generate-runtime-binding-id _%id133629%_) + (lambda (_%id133666%_) + (if (let () (declare (not safe)) (gx#identifier? _%id133666%_)) + (gxc#generate-runtime-binding-id _%id133666%_) (gxc#generate-runtime-temporary__0)))) (define gxc#generate-runtime-temporary__% - (lambda (_%top133616%_) - (if _%top133616%_ - (let ((_%ns133618%_ + (lambda (_%top133653%_) + (if _%top133653%_ + (let ((_%ns133655%_ (##structure-ref - (let ((__tmp133965 + (let ((__tmp134002 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) - (gx#core-context-top__1 __tmp133965)) + (gx#core-context-top__1 __tmp134002)) '6 gx#module-context::t '#f)) - (_%phi133619%_ + (_%phi133656%_ (let () (declare (not safe)) (gx#current-expander-phi)))) - (if _%ns133618%_ - (if (fxpositive? _%phi133619%_) - (let ((__tmp133967 (number->string _%phi133619%_)) - (__tmp133966 + (if _%ns133655%_ + (if (fxpositive? _%phi133656%_) + (let ((__tmp134004 (number->string _%phi133656%_)) + (__tmp134003 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 - _%ns133618%_ + _%ns133655%_ '"[" - __tmp133967 + __tmp134004 '"]#_" - __tmp133966 + __tmp134003 '"_")) - (let ((__tmp133968 + (let ((__tmp134005 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 _%ns133618%_ '"#_" __tmp133968 '"_"))) - (if (fxpositive? _%phi133619%_) - (let ((__tmp133970 (number->string _%phi133619%_)) - (__tmp133969 + (make-symbol__1 _%ns133655%_ '"#_" __tmp134005 '"_"))) + (if (fxpositive? _%phi133656%_) + (let ((__tmp134007 (number->string _%phi133656%_)) + (__tmp134006 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 '"[" - __tmp133970 + __tmp134007 '"]#_" - __tmp133969 + __tmp134006 '"_")) - (let ((__tmp133971 + (let ((__tmp134008 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp133971 '"_"))))) - (let ((__tmp133972 (let () (declare (not safe)) (##gensym)))) + (make-symbol__1 '"_" __tmp134008 '"_"))))) + (let ((__tmp134009 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp133972 '"_"))))) + (make-symbol__1 '"_" __tmp134009 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_%top133625%_ '#f)) - (gxc#generate-runtime-temporary__% _%top133625%_)))) + (let ((_%top133662%_ '#f)) + (gxc#generate-runtime-temporary__% _%top133662%_)))) (define gxc#generate-runtime-temporary - (lambda _g133974_ - (let ((_g133973_ (let () (declare (not safe)) (##length _g133974_)))) - (cond ((let () (declare (not safe)) (##fx= _g133973_ 0)) - (apply gxc#generate-runtime-temporary__0 _g133974_)) - ((let () (declare (not safe)) (##fx= _g133973_ 1)) - (apply gxc#generate-runtime-temporary__% _g133974_)) + (lambda _g134011_ + (let ((_g134010_ (let () (declare (not safe)) (##length _g134011_)))) + (cond ((let () (declare (not safe)) (##fx= _g134010_ 0)) + (apply gxc#generate-runtime-temporary__0 _g134011_)) + ((let () (declare (not safe)) (##fx= _g134010_ 1)) + (apply gxc#generate-runtime-temporary__% _g134011_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g133974_)))))) + _g134011_)))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_%sym133594%_ _%quote?133595%_) - (let* ((_%ht133597%_ + (lambda (_%sym133631%_ _%quote?133632%_) + (let* ((_%ht133634%_ (##structure-ref (let () (declare (not safe)) @@ -418,66 +418,66 @@ '1 gxc#symbol-table::t '#f)) - (_%$e133599%_ + (_%$e133636%_ (let () (declare (not safe)) - (hash-get _%ht133597%_ _%sym133594%_)))) - (if _%$e133599%_ - _%$e133599%_ - (let ((_%g133603%_ - (if _%quote?133595%_ - (let ((__tmp133975 + (hash-get _%ht133634%_ _%sym133631%_)))) + (if _%$e133636%_ + _%$e133636%_ + (let ((_%g133640%_ + (if _%quote?133632%_ + (let ((__tmp134012 (let () (declare (not safe)) (gxc#current-compile-timestamp)))) (declare (not safe)) (make-symbol__1 '"__" - _%sym133594%_ + _%sym133631%_ '"__" - __tmp133975)) + __tmp134012)) (let () (declare (not safe)) - (make-symbol__1 '"_%" _%sym133594%_ '"%_"))))) + (make-symbol__1 '"_%" _%sym133631%_ '"%_"))))) (let () (declare (not safe)) - (hash-put! _%ht133597%_ _%sym133594%_ _%g133603%_)) - _%g133603%_))))) + (hash-put! _%ht133634%_ _%sym133631%_ _%g133640%_)) + _%g133640%_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_%sym133608%_) - (let ((_%quote?133610%_ '#f)) + (lambda (_%sym133645%_) + (let ((_%quote?133647%_ '#f)) (gxc#generate-runtime-gensym-reference__% - _%sym133608%_ - _%quote?133610%_)))) + _%sym133645%_ + _%quote?133647%_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g133977_ - (let ((_g133976_ (let () (declare (not safe)) (##length _g133977_)))) - (cond ((let () (declare (not safe)) (##fx= _g133976_ 1)) - (apply gxc#generate-runtime-gensym-reference__0 _g133977_)) - ((let () (declare (not safe)) (##fx= _g133976_ 2)) - (apply gxc#generate-runtime-gensym-reference__% _g133977_)) + (lambda _g134014_ + (let ((_g134013_ (let () (declare (not safe)) (##length _g134014_)))) + (cond ((let () (declare (not safe)) (##fx= _g134013_ 1)) + (apply gxc#generate-runtime-gensym-reference__0 _g134014_)) + ((let () (declare (not safe)) (##fx= _g134013_ 2)) + (apply gxc#generate-runtime-gensym-reference__% _g134014_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g133977_)))))) + _g134014_)))))) (define gxc#runtime-identifier=? - (lambda (_%id1133586%_ _%id2133587%_) - (letrec ((_%symbol-e133589%_ - (lambda (_%id133591%_) - (if (symbol? _%id133591%_) - _%id133591%_ - (gxc#generate-runtime-binding-id _%id133591%_))))) - (eq? (_%symbol-e133589%_ _%id1133586%_) - (_%symbol-e133589%_ _%id2133587%_))))) + (lambda (_%id1133623%_ _%id2133624%_) + (letrec ((_%symbol-e133626%_ + (lambda (_%id133628%_) + (if (symbol? _%id133628%_) + _%id133628%_ + (gxc#generate-runtime-binding-id _%id133628%_))))) + (eq? (_%symbol-e133626%_ _%id1133623%_) + (_%symbol-e133626%_ _%id2133624%_))))) (define gxc#identifier-symbol - (lambda (_%stx133584%_) + (lambda (_%stx133621%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%stx133584%_ + _%stx133621%_ 'gx#syntax-quote::t)) - (gxc#generate-runtime-binding-id _%stx133584%_) - (let () (declare (not safe)) (gx#stx-e _%stx133584%_))))) + (gxc#generate-runtime-binding-id _%stx133621%_) + (let () (declare (not safe)) (gx#stx-e _%stx133621%_))))) (define gxc#__compile-jobs '()) (define gxc#__available-cores (string->number @@ -485,69 +485,69 @@ (define gxc#__jobs-mx (make-mutex)) (define gxc#__jobs-cv (make-condition-variable)) (define gxc#add-compile-job!__% - (lambda (_%thunk133569%_ _%name133570%_) + (lambda (_%thunk133606%_ _%name133607%_) (mutex-lock! gxc#__jobs-mx) - (let ((_%job133572%_ - (gxc#make-compile-job _%thunk133569%_ _%name133570%_))) - (set! gxc#__compile-jobs (cons _%job133572%_ gxc#__compile-jobs))) + (let ((_%job133609%_ + (gxc#make-compile-job _%thunk133606%_ _%name133607%_))) + (set! gxc#__compile-jobs (cons _%job133609%_ gxc#__compile-jobs))) (mutex-unlock! gxc#__jobs-mx))) (define gxc#add-compile-job!__0 - (lambda (_%thunk133577%_) - (let ((_%name133579%_ + (lambda (_%thunk133614%_) + (let ((_%name133616%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (gxc#add-compile-job!__% _%thunk133577%_ _%name133579%_)))) + (gxc#add-compile-job!__% _%thunk133614%_ _%name133616%_)))) (define gxc#add-compile-job! - (lambda _g133979_ - (let ((_g133978_ (let () (declare (not safe)) (##length _g133979_)))) - (cond ((let () (declare (not safe)) (##fx= _g133978_ 1)) - (apply gxc#add-compile-job!__0 _g133979_)) - ((let () (declare (not safe)) (##fx= _g133978_ 2)) - (apply gxc#add-compile-job!__% _g133979_)) + (lambda _g134016_ + (let ((_g134015_ (let () (declare (not safe)) (##length _g134016_)))) + (cond ((let () (declare (not safe)) (##fx= _g134015_ 1)) + (apply gxc#add-compile-job!__0 _g134016_)) + ((let () (declare (not safe)) (##fx= _g134015_ 2)) + (apply gxc#add-compile-job!__% _g134016_)) (else (##raise-wrong-number-of-arguments-exception gxc#add-compile-job! - _g133979_)))))) + _g134016_)))))) (define gxc#pending-compile-jobs (lambda () (mutex-lock! gxc#__jobs-mx) - (let ((_%result133566%_ (reverse! gxc#__compile-jobs))) + (let ((_%result133603%_ (reverse! gxc#__compile-jobs))) (set! gxc#__compile-jobs '()) (mutex-unlock! gxc#__jobs-mx) - _%result133566%_))) + _%result133603%_))) (define gxc#execute-pending-compile-jobs! (lambda () - (let _%loop133560%_ () - (let ((_%pending133563%_ (gxc#pending-compile-jobs))) - (if (null? _%pending133563%_) + (let _%loop133597%_ () + (let ((_%pending133600%_ (gxc#pending-compile-jobs))) + (if (null? _%pending133600%_) '#!void (begin (let () (declare (not safe)) - (##for-each thread-start! _%pending133563%_)) + (##for-each thread-start! _%pending133600%_)) (let () (declare (not safe)) - (##for-each gxc#join! _%pending133563%_)))))))) + (##for-each gxc#join! _%pending133600%_)))))))) (define gxc#make-compile-job - (lambda (_%thunk133549%_ _%name133550%_) + (lambda (_%thunk133586%_ _%name133587%_) (make-thread (lambda () - (let _%loop133553%_ () + (let _%loop133590%_ () (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 ((__tmp133980 + (let ((__tmp134017 (lambda () (let () (declare (not safe)) (displayln '"... execute compile job " - _%name133550%_))))) + _%name133587%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp133980)) - (let ((__tmp133982 (lambda () (_%thunk133549%_))) - (__tmp133981 + (__with-lock gxc#__verbose-mutex __tmp134017)) + (let ((__tmp134019 (lambda () (_%thunk133586%_))) + (__tmp134018 (lambda () (mutex-lock! gxc#__jobs-mx) (set! gxc#__available-cores @@ -557,25 +557,25 @@ (condition-variable-signal! gxc#__jobs-cv) (mutex-unlock! gxc#__jobs-mx)))) (declare (not safe)) - (__with-unwind-protect __tmp133982 __tmp133981))) + (__with-unwind-protect __tmp134019 __tmp134018))) (begin (mutex-unlock! gxc#__jobs-mx gxc#__jobs-cv) - (_%loop133553%_))))) - _%name133550%_))) + (_%loop133590%_))))) + _%name133587%_))) (define gxc#join! - (lambda (_%thread133544%_) - (let ((__tmp133984 - (lambda (_%exn133546%_) + (lambda (_%thread133581%_) + (let ((__tmp134021 + (lambda (_%exn133583%_) (if (let () (declare (not safe)) - (uncaught-exception? _%exn133546%_)) - (let ((__tmp133985 + (uncaught-exception? _%exn133583%_)) + (let ((__tmp134022 (let () (declare (not safe)) - (uncaught-exception-reason _%exn133546%_)))) + (uncaught-exception-reason _%exn133583%_)))) (declare (not safe)) - (raise __tmp133985)) - (let () (declare (not safe)) (raise _%exn133546%_))))) - (__tmp133983 (lambda () (thread-join! _%thread133544%_)))) + (raise __tmp134022)) + (let () (declare (not safe)) (raise _%exn133583%_))))) + (__tmp134020 (lambda () (thread-join! _%thread133581%_)))) (declare (not safe)) - (__with-catch __tmp133984 __tmp133983)))))) + (__with-catch __tmp134021 __tmp134020)))))) diff --git a/src/bootstrap/gerbil/compiler/base~1.scm b/src/bootstrap/gerbil/compiler/base~1.scm index b66162051..dc0dea2a7 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]#_g133995_| + (define |gxc[1]#_g134032_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133997_| + (define |gxc[1]#_g134034_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g133999_| + (define |gxc[1]#_g134036_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134001_| + (define |gxc[1]#_g134038_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134002_| + (define |gxc[1]#_g134039_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134004_| + (define |gxc[1]#_g134041_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134005_| + (define |gxc[1]#_g134042_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134007_| + (define |gxc[1]#_g134044_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134008_| + (define |gxc[1]#_g134045_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134010_| + (define |gxc[1]#_g134047_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134011_| + (define |gxc[1]#_g134048_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! @@ -79,202 +79,202 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_%stx133078%_) + (lambda (_%stx133115%_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _%stx133078%_ + _%stx133115%_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_%stx133081%_) - (let* ((_%g133084133108%_ - (lambda (_%g133085133104%_) + (lambda (_%stx133118%_) + (let* ((_%g133121133145%_ + (lambda (_%g133122133141%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133085133104%_)))) - (_%g133083133411%_ - (lambda (_%g133085133112%_) + _%g133122133141%_)))) + (_%g133120133448%_ + (lambda (_%g133122133149%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133085133112%_)) - (let ((_%e133088133115%_ + (gx#stx-pair? _%g133122133149%_)) + (let ((_%e133125133152%_ (let () (declare (not safe)) - (gx#syntax-e _%g133085133112%_)))) - (let ((_%hd133089133119%_ + (gx#syntax-e _%g133122133149%_)))) + (let ((_%hd133126133156%_ (let () (declare (not safe)) - (##car _%e133088133115%_))) - (_%tl133090133122%_ + (##car _%e133125133152%_))) + (_%tl133127133159%_ (let () (declare (not safe)) - (##cdr _%e133088133115%_)))) + (##cdr _%e133125133152%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133090133122%_)) - (let ((_%e133091133125%_ + (gx#stx-pair? _%tl133127133159%_)) + (let ((_%e133128133162%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133090133122%_)))) - (let ((_%hd133092133129%_ + (gx#syntax-e _%tl133127133159%_)))) + (let ((_%hd133129133166%_ (let () (declare (not safe)) - (##car _%e133091133125%_))) - (_%tl133093133132%_ + (##car _%e133128133162%_))) + (_%tl133130133169%_ (let () (declare (not safe)) - (##cdr _%e133091133125%_)))) + (##cdr _%e133128133162%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl133093133132%_)) - (let ((_g133986_ + (gx#stx-pair/null? _%tl133130133169%_)) + (let ((_g134023_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133093133132%_ + _%tl133130133169%_ '0)))) (begin - (let ((_g133987_ + (let ((_g134024_ (let () (declare (not safe)) - (if (##values? _g133986_) + (if (##values? _g134023_) (##vector-length - _g133986_) + _g134023_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133987_ 2))) + (##fx= _g134024_ 2))) (error "Context expects 2 values" - _g133987_))) - (let ((_%target133094133135%_ + _g134024_))) + (let ((_%target133131133172%_ (let () (declare (not safe)) - (##vector-ref _g133986_ 0))) - (_%tl133096133138%_ + (##vector-ref _g134023_ 0))) + (_%tl133133133175%_ (let () (declare (not safe)) (##vector-ref - _g133986_ + _g134023_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133096133138%_)) - (letrec ((_%loop133097133141%_ - (lambda (_%hd133095133145%_ + _%tl133133133175%_)) + (letrec ((_%loop133134133178%_ + (lambda (_%hd133132133182%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause133101133148%_) + _%clause133138133185%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133095133145%_)) - (let ((_%e133098133151%_ + (gx#stx-pair? _%hd133132133182%_)) + (let ((_%e133135133188%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133095133145%_)))) - (let ((_%lp-hd133099133155%_ + (gx#syntax-e _%hd133132133182%_)))) + (let ((_%lp-hd133136133192%_ (let () (declare (not safe)) - (##car _%e133098133151%_))) - (_%lp-tl133100133158%_ + (##car _%e133135133188%_))) + (_%lp-tl133137133195%_ (let () (declare (not safe)) - (##cdr _%e133098133151%_)))) - (_%loop133097133141%_ - _%lp-tl133100133158%_ - (cons _%lp-hd133099133155%_ - _%clause133101133148%_)))) - (let ((_%clause133102133161%_ - (reverse _%clause133101133148%_))) - ((lambda (_%L133165%_ _%L133167%_) + (##cdr _%e133135133188%_)))) + (_%loop133134133178%_ + _%lp-tl133137133195%_ + (cons _%lp-hd133136133192%_ + _%clause133138133185%_)))) + (let ((_%clause133139133198%_ + (reverse _%clause133138133185%_))) + ((lambda (_%L133202%_ _%L133204%_) (if (let () (declare (not safe)) - (gx#identifier-list? _%L133167%_)) - (let* ((_%g133186133203%_ - (lambda (_%g133187133199%_) + (gx#identifier-list? _%L133204%_)) + (let* ((_%g133223133240%_ + (lambda (_%g133224133236%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133187133199%_)))) - (_%g133185133264%_ - (lambda (_%g133187133207%_) + _%g133224133236%_)))) + (_%g133222133301%_ + (lambda (_%g133224133244%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g133187133207%_)) - (let ((_g133988_ + _%g133224133244%_)) + (let ((_g134025_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g133187133207%_ + _%g133224133244%_ '0)))) (begin - (let ((_g133989_ + (let ((_g134026_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g133988_) - (##vector-length _g133988_) + _g134025_) + (##vector-length _g134025_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g133989_ 2))) - (error "Context expects 2 values" _g133989_))) + (##fx= _g134026_ 2))) + (error "Context expects 2 values" _g134026_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target133189133210%_ + (let ((_%target133226133247%_ (let () (declare (not safe)) (##vector-ref - _g133988_ + _g134025_ 0))) - (_%tl133191133213%_ + (_%tl133228133250%_ (let () (declare (not safe)) (##vector-ref - _g133988_ + _g134025_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133191133213%_)) - (letrec ((_%loop133192133216%_ + _%tl133228133250%_)) + (letrec ((_%loop133229133253%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd133190133220%_ _%clause133196133223%_) + (lambda (_%hd133227133257%_ _%clause133233133260%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133190133220%_)) - (let ((_%e133193133226%_ + (gx#stx-pair? _%hd133227133257%_)) + (let ((_%e133230133263%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133190133220%_)))) - (let ((_%lp-hd133194133230%_ + (gx#syntax-e _%hd133227133257%_)))) + (let ((_%lp-hd133231133267%_ (let () (declare (not safe)) - (##car _%e133193133226%_))) - (_%lp-tl133195133233%_ + (##car _%e133230133263%_))) + (_%lp-tl133232133270%_ (let () (declare (not safe)) - (##cdr _%e133193133226%_)))) - (_%loop133192133216%_ - _%lp-tl133195133233%_ - (cons _%lp-hd133194133230%_ - _%clause133196133223%_)))) - (let ((_%clause133197133236%_ - (reverse _%clause133196133223%_))) - ((lambda (_%L133240%_) + (##cdr _%e133230133263%_)))) + (_%loop133229133253%_ + _%lp-tl133232133270%_ + (cons _%lp-hd133231133267%_ + _%clause133233133260%_)))) + (let ((_%clause133234133273%_ + (reverse _%clause133233133260%_))) + ((lambda (_%L133277%_) (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 _%L133167%_ - (let ((__tmp133990 - (lambda (_%g133255133258%_ - _%g133256133261%_) - (cons _%g133255133258%_ - _%g133256133261%_)))) + (cons _%L133204%_ + (let ((__tmp134027 + (lambda (_%g133292133295%_ + _%g133293133298%_) + (cons _%g133292133295%_ + _%g133293133298%_)))) (declare (not safe)) - (__foldr1 __tmp133990 '() _%L133240%_))))) + (__foldr1 __tmp134027 '() _%L133277%_))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause133197133236%_)))))) - (_%loop133192133216%_ _%target133189133210%_ '())) - (_%g133186133203%_ _%g133187133207%_))))) + _%clause133234133273%_)))))) + (_%loop133229133253%_ _%target133226133247%_ '())) + (_%g133223133240%_ _%g133224133244%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g133186133203%_ - _%g133187133207%_))))) - (_%g133185133264%_ - (let ((__tmp133993 - (lambda (_%clause133268%_) - (let* ((_%__stx133906133907%_ - _%clause133268%_) - (_%g133272133299%_ + (_%g133223133240%_ + _%g133224133244%_))))) + (_%g133222133301%_ + (let ((__tmp134030 + (lambda (_%clause133305%_) + (let* ((_%__stx133943133944%_ + _%clause133305%_) + (_%g133309133336%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx133906133907%_))))) - (let ((_%__kont133909133910%_ - (lambda (_%L133384%_ - _%L133386%_) - (cons _%L133386%_ + _%__stx133943133944%_))))) + (let ((_%__kont133946133947%_ + (lambda (_%L133421%_ + _%L133423%_) + (cons _%L133423%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L133384%_ '())) + (cons _%L133421%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont133911133912%_ - (lambda (_%L133336%_ - _%L133338%_ - _%L133339%_) - (cons _%L133339%_ - (cons _%L133338%_ + (_%__kont133948133949%_ + (lambda (_%L133373%_ + _%L133375%_ + _%L133376%_) + (cons _%L133376%_ + (cons _%L133375%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L133336%_ '())) + (cons _%L133373%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx133906133907%_)) - (let ((_%e133276133364%_ + _%__stx133943133944%_)) + (let ((_%e133313133401%_ (let () (declare (not safe)) (gx#syntax-e - _%__stx133906133907%_)))) - (let ((_%tl133278133371%_ + _%__stx133943133944%_)))) + (let ((_%tl133315133408%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e133276133364%_))) - (_%hd133277133368%_ - (let () (declare (not safe)) (##car _%e133276133364%_)))) + (##cdr _%e133313133401%_))) + (_%hd133314133405%_ + (let () (declare (not safe)) (##car _%e133313133401%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133278133371%_)) - (let ((_%e133279133374%_ + (gx#stx-pair? _%tl133315133408%_)) + (let ((_%e133316133411%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133278133371%_)))) - (let ((_%tl133281133381%_ + (gx#syntax-e _%tl133315133408%_)))) + (let ((_%tl133318133418%_ (let () (declare (not safe)) - (##cdr _%e133279133374%_))) - (_%hd133280133378%_ + (##cdr _%e133316133411%_))) + (_%hd133317133415%_ (let () (declare (not safe)) - (##car _%e133279133374%_)))) + (##car _%e133316133411%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133281133381%_)) - (_%__kont133909133910%_ - _%hd133280133378%_ - _%hd133277133368%_) + (gx#stx-null? _%tl133318133418%_)) + (_%__kont133946133947%_ + _%hd133317133415%_ + _%hd133314133405%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133281133381%_)) - (let ((_%e133291133326%_ + (gx#stx-pair? _%tl133318133418%_)) + (let ((_%e133328133363%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133281133381%_)))) - (let ((_%tl133293133333%_ + (gx#syntax-e _%tl133318133418%_)))) + (let ((_%tl133330133370%_ (let () (declare (not safe)) - (##cdr _%e133291133326%_))) - (_%hd133292133330%_ + (##cdr _%e133328133363%_))) + (_%hd133329133367%_ (let () (declare (not safe)) - (##car _%e133291133326%_)))) + (##car _%e133328133363%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133293133333%_)) - (_%__kont133911133912%_ - _%hd133292133330%_ - _%hd133280133378%_ - _%hd133277133368%_) + (gx#stx-null? _%tl133330133370%_)) + (_%__kont133948133949%_ + _%hd133329133367%_ + _%hd133317133415%_ + _%hd133314133405%_) (let () (declare (not safe)) - (_%g133272133299%_))))) + (_%g133309133336%_))))) (let () (declare (not safe)) - (_%g133272133299%_)))))) - (let () (declare (not safe)) (_%g133272133299%_))))) + (_%g133309133336%_)))))) + (let () (declare (not safe)) (_%g133309133336%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133272133299%_))))))) - (__tmp133991 - (let ((__tmp133992 - (lambda (_%g133402133405%_ - _%g133403133408%_) - (cons _%g133402133405%_ - _%g133403133408%_)))) + (_%g133309133336%_))))))) + (__tmp134028 + (let ((__tmp134029 + (lambda (_%g133439133442%_ + _%g133440133445%_) + (cons _%g133439133442%_ + _%g133440133445%_)))) (declare (not safe)) (__foldr1 - __tmp133992 + __tmp134029 '() - _%L133165%_)))) + _%L133202%_)))) (declare (not safe)) - (gx#stx-map1 __tmp133993 __tmp133991)))) - (_%g133084133108%_ _%g133085133112%_))) - _%clause133102133161%_ - _%hd133092133129%_)))))) + (gx#stx-map1 __tmp134030 __tmp134028)))) + (_%g133121133145%_ _%g133122133149%_))) + _%clause133139133198%_ + _%hd133129133166%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop133097133141%_ - _%target133094133135%_ + (_%loop133134133178%_ + _%target133131133172%_ '())) - (_%g133084133108%_ - _%g133085133112%_))))) - (_%g133084133108%_ _%g133085133112%_)))) - (_%g133084133108%_ _%g133085133112%_)))) - (_%g133084133108%_ _%g133085133112%_))))) - (_%g133083133411%_ _%stx133081%_)))) + (_%g133121133145%_ + _%g133122133149%_))))) + (_%g133121133145%_ _%g133122133149%_)))) + (_%g133121133145%_ _%g133122133149%_)))) + (_%g133121133145%_ _%g133122133149%_))))) + (_%g133120133448%_ _%stx133118%_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj133956 + (let ((__obj133993 (let () (declare (not safe)) (##structure @@ -475,18 +475,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj133956 + __obj133993 'gxc#symbol-table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133956 'symbol-table '2 '#f '#f)) + (##unchecked-structure-set! __obj133993 'symbol-table '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj133956 + __obj133993 '(gensyms bindings) '4 '#f @@ -494,111 +494,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj133956 + __obj133993 '(gensyms bindings) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133956 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj133993 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133956 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133993 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133956 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133993 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133956 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133993 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133956 ':init! '11 '#f '#f)) - (let ((__tmp133994 |gxc[1]#_g133995_|)) + (##unchecked-structure-set! __obj133993 ':init! '11 '#f '#f)) + (let ((__tmp134031 |gxc[1]#_g134032_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133956 __tmp133994 '12 '#f '#f)) - (let ((__tmp133996 |gxc[1]#_g133997_|)) + (##unchecked-structure-set! __obj133993 __tmp134031 '12 '#f '#f)) + (let ((__tmp134033 |gxc[1]#_g134034_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133956 __tmp133996 '13 '#f '#f)) - (let ((__tmp133998 |gxc[1]#_g133999_|)) + (##unchecked-structure-set! __obj133993 __tmp134033 '13 '#f '#f)) + (let ((__tmp134035 |gxc[1]#_g134036_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133956 __tmp133998 '14 '#f '#f)) - (let ((__tmp134000 - (cons (cons 'gensyms |gxc[1]#_g134001_|) - (cons (cons 'bindings |gxc[1]#_g134002_|) '())))) + (##unchecked-structure-set! __obj133993 __tmp134035 '14 '#f '#f)) + (let ((__tmp134037 + (cons (cons 'gensyms |gxc[1]#_g134038_|) + (cons (cons 'bindings |gxc[1]#_g134039_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133956 __tmp134000 '15 '#f '#f)) - (let ((__tmp134003 - (cons (cons 'gensyms |gxc[1]#_g134004_|) - (cons (cons 'bindings |gxc[1]#_g134005_|) '())))) + (##unchecked-structure-set! __obj133993 __tmp134037 '15 '#f '#f)) + (let ((__tmp134040 + (cons (cons 'gensyms |gxc[1]#_g134041_|) + (cons (cons 'bindings |gxc[1]#_g134042_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133956 __tmp134003 '16 '#f '#f)) - (let ((__tmp134006 - (cons (cons 'gensyms |gxc[1]#_g134007_|) - (cons (cons 'bindings |gxc[1]#_g134008_|) '())))) + (##unchecked-structure-set! __obj133993 __tmp134040 '16 '#f '#f)) + (let ((__tmp134043 + (cons (cons 'gensyms |gxc[1]#_g134044_|) + (cons (cons 'bindings |gxc[1]#_g134045_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133956 __tmp134006 '17 '#f '#f)) - (let ((__tmp134009 - (cons (cons 'gensyms |gxc[1]#_g134010_|) - (cons (cons 'bindings |gxc[1]#_g134011_|) '())))) + (##unchecked-structure-set! __obj133993 __tmp134043 '17 '#f '#f)) + (let ((__tmp134046 + (cons (cons 'gensyms |gxc[1]#_g134047_|) + (cons (cons 'bindings |gxc[1]#_g134048_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133956 __tmp134009 '18 '#f '#f)) + (##unchecked-structure-set! __obj133993 __tmp134046 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133956 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133993 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133956 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133993 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133956 '() '20 '#f '#f)) - __obj133956)) + (##unchecked-structure-set! __obj133993 '() '20 '#f '#f)) + __obj133993)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_%$stx133418%_) - (let* ((_%g133422133436%_ - (lambda (_%g133423133432%_) + (lambda (_%$stx133455%_) + (let* ((_%g133459133473%_ + (lambda (_%g133460133469%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133423133432%_)))) - (_%g133421133477%_ - (lambda (_%g133423133440%_) + _%g133460133469%_)))) + (_%g133458133514%_ + (lambda (_%g133460133477%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133423133440%_)) - (let ((_%e133425133443%_ + (gx#stx-pair? _%g133460133477%_)) + (let ((_%e133462133480%_ (let () (declare (not safe)) - (gx#syntax-e _%g133423133440%_)))) - (let ((_%hd133426133447%_ + (gx#syntax-e _%g133460133477%_)))) + (let ((_%hd133463133484%_ (let () (declare (not safe)) - (##car _%e133425133443%_))) - (_%tl133427133450%_ + (##car _%e133462133480%_))) + (_%tl133464133487%_ (let () (declare (not safe)) - (##cdr _%e133425133443%_)))) + (##cdr _%e133462133480%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133427133450%_)) - (let ((_%e133428133453%_ + (gx#stx-pair? _%tl133464133487%_)) + (let ((_%e133465133490%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133427133450%_)))) - (let ((_%hd133429133457%_ + (gx#syntax-e _%tl133464133487%_)))) + (let ((_%hd133466133494%_ (let () (declare (not safe)) - (##car _%e133428133453%_))) - (_%tl133430133460%_ + (##car _%e133465133490%_))) + (_%tl133467133497%_ (let () (declare (not safe)) - (##cdr _%e133428133453%_)))) + (##cdr _%e133465133490%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133430133460%_)) - ((lambda (_%L133463%_) + (gx#stx-null? _%tl133467133497%_)) + ((lambda (_%L133500%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -613,60 +613,60 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L133463%_ '()))) + (cons '() (cons _%L133500%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd133429133457%_) - (_%g133422133436%_ _%g133423133440%_)))) - (_%g133422133436%_ _%g133423133440%_)))) - (_%g133422133436%_ _%g133423133440%_))))) - (_%g133421133477%_ _%$stx133418%_)))) + _%hd133466133494%_) + (_%g133459133473%_ _%g133460133477%_)))) + (_%g133459133473%_ _%g133460133477%_)))) + (_%g133459133473%_ _%g133460133477%_))))) + (_%g133458133514%_ _%$stx133455%_)))) (define |gxc[:0:]#go!| - (lambda (_%$stx133481%_) - (let* ((_%g133485133499%_ - (lambda (_%g133486133495%_) + (lambda (_%$stx133518%_) + (let* ((_%g133522133536%_ + (lambda (_%g133523133532%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133486133495%_)))) - (_%g133484133540%_ - (lambda (_%g133486133503%_) + _%g133523133532%_)))) + (_%g133521133577%_ + (lambda (_%g133523133540%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133486133503%_)) - (let ((_%e133488133506%_ + (gx#stx-pair? _%g133523133540%_)) + (let ((_%e133525133543%_ (let () (declare (not safe)) - (gx#syntax-e _%g133486133503%_)))) - (let ((_%hd133489133510%_ + (gx#syntax-e _%g133523133540%_)))) + (let ((_%hd133526133547%_ (let () (declare (not safe)) - (##car _%e133488133506%_))) - (_%tl133490133513%_ + (##car _%e133525133543%_))) + (_%tl133527133550%_ (let () (declare (not safe)) - (##cdr _%e133488133506%_)))) + (##cdr _%e133525133543%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133490133513%_)) - (let ((_%e133491133516%_ + (gx#stx-pair? _%tl133527133550%_)) + (let ((_%e133528133553%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133490133513%_)))) - (let ((_%hd133492133520%_ + (gx#syntax-e _%tl133527133550%_)))) + (let ((_%hd133529133557%_ (let () (declare (not safe)) - (##car _%e133491133516%_))) - (_%tl133493133523%_ + (##car _%e133528133553%_))) + (_%tl133530133560%_ (let () (declare (not safe)) - (##cdr _%e133491133516%_)))) + (##cdr _%e133528133553%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133493133523%_)) - ((lambda (_%L133526%_) + (gx#stx-null? _%tl133530133560%_)) + ((lambda (_%L133563%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -680,11 +680,11 @@ 'lambda)) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L133526%_ '()))) + (cons _%L133563%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd133492133520%_) - (_%g133485133499%_ _%g133486133503%_)))) - (_%g133485133499%_ _%g133486133503%_)))) - (_%g133485133499%_ _%g133486133503%_))))) - (_%g133484133540%_ _%$stx133481%_)))))) + _%hd133529133557%_) + (_%g133522133536%_ _%g133523133540%_)))) + (_%g133522133536%_ _%g133523133540%_)))) + (_%g133522133536%_ _%g133523133540%_))))) + (_%g133521133577%_ _%$stx133518%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~0.scm b/src/bootstrap/gerbil/compiler/compile~0.scm index aceb9720b..82d1de97e 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 1733687560) + (define gerbil/compiler/compile::timestamp 1733870075) (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-e147628%_ - (lambda (_%id147630%_) + (letrec ((_%hash-e147665%_ + (lambda (_%id147667%_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _%id147630%_)))))) + (let () (declare (not safe)) (gx#stx-e _%id147667%_)))))) (let () (declare (not safe)) (make-hash-table__% @@ -57,31 +57,31 @@ absent-value absent-value gx#bound-identifier=? - _%hash-e147628%_ + _%hash-e147665%_ absent-value absent-value absent-value absent-value))))) (define gxc#::collect-bindings::t - (let ((__tmp149015 (list gxc#::void::t)) - (__tmp149014 (cons (cons 'final: '#t) '()))) + (let ((__tmp149052 (list gxc#::void::t)) + (__tmp149051 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-bindings::t '::collect-bindings - __tmp149015 + __tmp149052 '() - __tmp149014 + __tmp149051 '#f))) (define gxc#::collect-bindings? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-bindings::t))) (define gxc#make-::collect-bindings - (lambda _%$args147624%_ - (apply make-instance gxc#::collect-bindings::t _%$args147624%_))) + (lambda _%$args147661%_ + (apply make-instance gxc#::collect-bindings::t _%$args147661%_))) (define gxc#::collect-bindings-bind-methods! - (let ((__tmp149016 + (let ((__tmp149053 (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 __tmp149016))) + (__make-promise __tmp149053))) (define gxc#apply-collect-bindings - (lambda (_%stx147616%_) + (lambda (_%stx147653%_) (force gxc#::collect-bindings-bind-methods!) - (let* ((_%self147619%_ - (let ((__obj148990 + (let* ((_%self147656%_ + (let ((__obj149027 (let () (declare (not safe)) (##structure gxc#::collect-bindings::t)))) - __obj148990)) - (__tmp149017 + __obj149027)) + (__tmp149054 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147619%_ _%stx147616%_))))) + (gxc#compile-e__1 _%self147656%_ _%stx147653%_))))) (declare (not safe)) (__call-with-parameters - __tmp149017 + __tmp149054 gxc#current-compile-method - _%self147619%_)))) + _%self147656%_)))) (define gxc#::lift-modules::t - (let ((__tmp149019 (list gxc#::void::t)) - (__tmp149018 (cons (cons 'final: '#t) '()))) + (let ((__tmp149056 (list gxc#::void::t)) + (__tmp149055 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-modules::t '::lift-modules - __tmp149019 + __tmp149056 '(modules) - __tmp149018 + __tmp149055 '#f))) (define gxc#::lift-modules? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-modules::t))) (define gxc#make-::lift-modules - (lambda _%$args147613%_ - (apply make-instance gxc#::lift-modules::t _%$args147613%_))) + (lambda _%$args147650%_ + (apply make-instance gxc#::lift-modules::t _%$args147650%_))) (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 ((__tmp149020 + (let ((__tmp149057 (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 __tmp149020))) + (__make-promise __tmp149057))) (define gxc#apply-lift-modules__% - (lambda (_%@@keywords147587%_ _%modules147584147588%_ _%stx147590%_) - (let ((_%modules147593%_ - (if (eq? _%modules147584147588%_ absent-value) + (lambda (_%@@keywords147624%_ _%modules147621147625%_ _%stx147627%_) + (let ((_%modules147630%_ + (if (eq? _%modules147621147625%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'modules:)) - _%modules147584147588%_))) + _%modules147621147625%_))) (force gxc#::lift-modules-bind-methods!) - (let* ((_%self147595%_ - (let ((__obj148992 + (let* ((_%self147632%_ + (let ((__obj149029 (let () (declare (not safe)) (##structure gxc#::lift-modules::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj148992 - _%modules147593%_ + __obj149029 + _%modules147630%_ '1 '#f '#f)) - __obj148992)) - (__tmp149021 + __obj149029)) + (__tmp149058 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147595%_ _%stx147590%_))))) + (gxc#compile-e__1 _%self147632%_ _%stx147627%_))))) (declare (not safe)) (__call-with-parameters - __tmp149021 + __tmp149058 gxc#current-compile-method - _%self147595%_))))) + _%self147632%_))))) (define gxc#apply-lift-modules__@ - (lambda (_%@@keywords147602%_ . _%args147603%_) + (lambda (_%@@keywords147639%_ . _%args147640%_) (apply gxc#apply-lift-modules__% - _%@@keywords147602%_ + _%@@keywords147639%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147602%_ + _%@@keywords147639%_ 'modules: absent-value)) - _%args147603%_))) + _%args147640%_))) (define gxc#apply-lift-modules - (lambda _%args147585147609%_ + (lambda _%args147622147646%_ (apply keyword-dispatch '#(modules:) gxc#apply-lift-modules__@ - _%args147585147609%_))) + _%args147622147646%_))) (define gxc#::find-runtime-code::t - (let ((__tmp149023 (list)) (__tmp149022 (cons (cons 'final: '#t) '()))) + (let ((__tmp149060 (list)) (__tmp149059 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-runtime-code::t '::find-runtime-code - __tmp149023 + __tmp149060 '() - __tmp149022 + __tmp149059 '#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 _%$args147580%_ - (apply make-instance gxc#::find-runtime-code::t _%$args147580%_))) + (lambda _%$args147617%_ + (apply make-instance gxc#::find-runtime-code::t _%$args147617%_))) (define gxc#::find-runtime-code-bind-methods! - (let ((__tmp149024 + (let ((__tmp149061 (lambda () (let () (declare (not safe)) @@ -459,46 +459,46 @@ (declare (not safe)) (__seal-class! gxc#::find-runtime-code::t))))) (declare (not safe)) - (__make-promise __tmp149024))) + (__make-promise __tmp149061))) (define gxc#apply-find-runtime-code - (lambda (_%stx147572%_) + (lambda (_%stx147609%_) (force gxc#::find-runtime-code-bind-methods!) - (let* ((_%self147575%_ - (let ((__obj148994 + (let* ((_%self147612%_ + (let ((__obj149031 (let () (declare (not safe)) (##structure gxc#::find-runtime-code::t)))) - __obj148994)) - (__tmp149025 + __obj149031)) + (__tmp149062 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147575%_ _%stx147572%_))))) + (gxc#compile-e__1 _%self147612%_ _%stx147609%_))))) (declare (not safe)) (__call-with-parameters - __tmp149025 + __tmp149062 gxc#current-compile-method - _%self147575%_)))) + _%self147612%_)))) (define gxc#::find-lambda-expression::t - (let ((__tmp149027 (list gxc#::false::t)) - (__tmp149026 (cons (cons 'final: '#t) '()))) + (let ((__tmp149064 (list gxc#::false::t)) + (__tmp149063 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-lambda-expression::t '::find-lambda-expression - __tmp149027 + __tmp149064 '() - __tmp149026 + __tmp149063 '#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 _%$args147569%_ - (apply make-instance gxc#::find-lambda-expression::t _%$args147569%_))) + (lambda _%$args147606%_ + (apply make-instance gxc#::find-lambda-expression::t _%$args147606%_))) (define gxc#::find-lambda-expression-bind-methods! - (let ((__tmp149028 + (let ((__tmp149065 (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 __tmp149028))) + (__make-promise __tmp149065))) (define gxc#apply-find-lambda-expression - (lambda (_%stx147561%_) + (lambda (_%stx147598%_) (force gxc#::find-lambda-expression-bind-methods!) - (let* ((_%self147564%_ - (let ((__obj148996 + (let* ((_%self147601%_ + (let ((__obj149033 (let () (declare (not safe)) (##structure gxc#::find-lambda-expression::t)))) - __obj148996)) - (__tmp149029 + __obj149033)) + (__tmp149066 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147564%_ _%stx147561%_))))) + (gxc#compile-e__1 _%self147601%_ _%stx147598%_))))) (declare (not safe)) (__call-with-parameters - __tmp149029 + __tmp149066 gxc#current-compile-method - _%self147564%_)))) + _%self147601%_)))) (define gxc#::count-values::t - (let ((__tmp149031 (list gxc#::false-expression::t)) - (__tmp149030 (cons (cons 'final: '#t) '()))) + (let ((__tmp149068 (list gxc#::false-expression::t)) + (__tmp149067 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::count-values::t '::count-values - __tmp149031 + __tmp149068 '() - __tmp149030 + __tmp149067 '#f))) (define gxc#::count-values? (let () (declare (not safe)) (__make-class-predicate gxc#::count-values::t))) (define gxc#make-::count-values - (lambda _%$args147558%_ - (apply make-instance gxc#::count-values::t _%$args147558%_))) + (lambda _%$args147595%_ + (apply make-instance gxc#::count-values::t _%$args147595%_))) (define gxc#::count-values-bind-methods! - (let ((__tmp149032 + (let ((__tmp149069 (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 __tmp149032))) + (__make-promise __tmp149069))) (define gxc#apply-count-values - (lambda (_%stx147550%_) + (lambda (_%stx147587%_) (force gxc#::count-values-bind-methods!) - (let* ((_%self147553%_ - (let ((__obj148998 + (let* ((_%self147590%_ + (let ((__obj149035 (let () (declare (not safe)) (##structure gxc#::count-values::t)))) - __obj148998)) - (__tmp149033 + __obj149035)) + (__tmp149070 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147553%_ _%stx147550%_))))) + (gxc#compile-e__1 _%self147590%_ _%stx147587%_))))) (declare (not safe)) (__call-with-parameters - __tmp149033 + __tmp149070 gxc#current-compile-method - _%self147553%_)))) + _%self147590%_)))) (define gxc#::generate-runtime-empty::t - (let ((__tmp149034 (list))) + (let ((__tmp149071 (list))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-empty::t '::generate-runtime-empty - __tmp149034 + __tmp149071 '() '() '#f))) @@ -694,10 +694,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-empty::t))) (define gxc#make-::generate-runtime-empty - (lambda _%$args147547%_ - (apply make-instance gxc#::generate-runtime-empty::t _%$args147547%_))) + (lambda _%$args147584%_ + (apply make-instance gxc#::generate-runtime-empty::t _%$args147584%_))) (define gxc#::generate-runtime-empty-bind-methods! - (let ((__tmp149035 + (let ((__tmp149072 (lambda () (let () (declare (not safe)) @@ -892,27 +892,27 @@ '%#struct-unchecked-set! gxc#generate-runtime-empty))))) (declare (not safe)) - (__make-promise __tmp149035))) + (__make-promise __tmp149072))) (define gxc#::generate-loader::t - (let ((__tmp149037 (list gxc#::generate-runtime-empty::t)) - (__tmp149036 (cons (cons 'final: '#t) '()))) + (let ((__tmp149074 (list gxc#::generate-runtime-empty::t)) + (__tmp149073 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-loader::t '::generate-loader - __tmp149037 + __tmp149074 '() - __tmp149036 + __tmp149073 '#f))) (define gxc#::generate-loader? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-loader::t))) (define gxc#make-::generate-loader - (lambda _%$args147543%_ - (apply make-instance gxc#::generate-loader::t _%$args147543%_))) + (lambda _%$args147580%_ + (apply make-instance gxc#::generate-loader::t _%$args147580%_))) (define gxc#::generate-loader-bind-methods! - (let ((__tmp149038 + (let ((__tmp149075 (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 __tmp149038))) + (__make-promise __tmp149075))) (define gxc#apply-generate-loader - (lambda (_%stx147535%_) + (lambda (_%stx147572%_) (force gxc#::generate-loader-bind-methods!) - (let* ((_%self147538%_ - (let ((__obj149001 + (let* ((_%self147575%_ + (let ((__obj149038 (let () (declare (not safe)) (##structure gxc#::generate-loader::t)))) - __obj149001)) - (__tmp149039 + __obj149038)) + (__tmp149076 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147538%_ _%stx147535%_))))) + (gxc#compile-e__1 _%self147575%_ _%stx147572%_))))) (declare (not safe)) (__call-with-parameters - __tmp149039 + __tmp149076 gxc#current-compile-method - _%self147538%_)))) + _%self147575%_)))) (define gxc#::generate-runtime::t - (let ((__tmp149040 (list gxc#::generate-runtime-empty::t))) + (let ((__tmp149077 (list gxc#::generate-runtime-empty::t))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime::t '::generate-runtime - __tmp149040 + __tmp149077 '() '() '#f))) @@ -966,10 +966,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime::t))) (define gxc#make-::generate-runtime - (lambda _%$args147532%_ - (apply make-instance gxc#::generate-runtime::t _%$args147532%_))) + (lambda _%$args147569%_ + (apply make-instance gxc#::generate-runtime::t _%$args147569%_))) (define gxc#::generate-runtime-bind-methods! - (let ((__tmp149041 + (let ((__tmp149078 (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 __tmp149041))) + (__make-promise __tmp149078))) (define gxc#apply-generate-runtime - (lambda (_%stx147524%_) + (lambda (_%stx147561%_) (force gxc#::generate-runtime-bind-methods!) - (let* ((_%self147527%_ - (let ((__obj149003 + (let* ((_%self147564%_ + (let ((__obj149040 (let () (declare (not safe)) (##structure gxc#::generate-runtime::t)))) - __obj149003)) - (__tmp149042 + __obj149040)) + (__tmp149079 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147527%_ _%stx147524%_))))) + (gxc#compile-e__1 _%self147564%_ _%stx147561%_))))) (declare (not safe)) (__call-with-parameters - __tmp149042 + __tmp149079 gxc#current-compile-method - _%self147527%_)))) + _%self147564%_)))) (define gxc#::generate-runtime-phi::t - (let ((__tmp149044 (list gxc#::generate-runtime::t)) - (__tmp149043 (cons (cons 'final: '#t) '()))) + (let ((__tmp149081 (list gxc#::generate-runtime::t)) + (__tmp149080 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-phi::t '::generate-runtime-phi - __tmp149044 + __tmp149081 '() - __tmp149043 + __tmp149080 '#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 _%$args147521%_ - (apply make-instance gxc#::generate-runtime-phi::t _%$args147521%_))) + (lambda _%$args147558%_ + (apply make-instance gxc#::generate-runtime-phi::t _%$args147558%_))) (define gxc#::generate-runtime-phi-bind-methods! - (let ((__tmp149045 + (let ((__tmp149082 (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 __tmp149045))) + (__make-promise __tmp149082))) (define gxc#apply-generate-runtime-phi - (lambda (_%stx147513%_) + (lambda (_%stx147550%_) (force gxc#::generate-runtime-phi-bind-methods!) - (let* ((_%self147516%_ - (let ((__obj149005 + (let* ((_%self147553%_ + (let ((__obj149042 (let () (declare (not safe)) (##structure gxc#::generate-runtime-phi::t)))) - __obj149005)) - (__tmp149046 + __obj149042)) + (__tmp149083 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147516%_ _%stx147513%_))))) + (gxc#compile-e__1 _%self147553%_ _%stx147550%_))))) (declare (not safe)) (__call-with-parameters - __tmp149046 + __tmp149083 gxc#current-compile-method - _%self147516%_)))) + _%self147553%_)))) (define gxc#::collect-expression-refs::t - (let ((__tmp149047 (list))) + (let ((__tmp149084 (list))) (declare (not safe)) (__make-class-type 'gxc#::collect-expression-refs::t '::collect-expression-refs - __tmp149047 + __tmp149084 '(table) '() '#f))) @@ -1210,10 +1210,10 @@ (declare (not safe)) (__make-class-predicate gxc#::collect-expression-refs::t))) (define gxc#make-::collect-expression-refs - (lambda _%$args147510%_ + (lambda _%$args147547%_ (apply make-instance gxc#::collect-expression-refs::t - _%$args147510%_))) + _%$args147547%_))) (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 ((__tmp149048 + (let ((__tmp149085 (lambda () (let () (declare (not safe)) @@ -1370,18 +1370,18 @@ '%#struct-unchecked-set! gxc#apply-operands))))) (declare (not safe)) - (__make-promise __tmp149048))) + (__make-promise __tmp149085))) (define gxc#apply-collect-expression-refs__% - (lambda (_%@@keywords147484%_ _%table147481147485%_ _%stx147487%_) - (let ((_%table147490%_ - (if (eq? _%table147481147485%_ absent-value) + (lambda (_%@@keywords147521%_ _%table147518147522%_ _%stx147524%_) + (let ((_%table147527%_ + (if (eq? _%table147518147522%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table147481147485%_))) + _%table147518147522%_))) (force gxc#::collect-expression-refs-bind-methods!) - (let* ((_%self147492%_ - (let ((__obj149007 + (let* ((_%self147529%_ + (let ((__obj149044 (let () (declare (not safe)) (##structure @@ -1390,57 +1390,57 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149007 - _%table147490%_ + __obj149044 + _%table147527%_ '1 '#f '#f)) - __obj149007)) - (__tmp149049 + __obj149044)) + (__tmp149086 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147492%_ _%stx147487%_))))) + (gxc#compile-e__1 _%self147529%_ _%stx147524%_))))) (declare (not safe)) (__call-with-parameters - __tmp149049 + __tmp149086 gxc#current-compile-method - _%self147492%_))))) + _%self147529%_))))) (define gxc#apply-collect-expression-refs__@ - (lambda (_%@@keywords147499%_ . _%args147500%_) + (lambda (_%@@keywords147536%_ . _%args147537%_) (apply gxc#apply-collect-expression-refs__% - _%@@keywords147499%_ + _%@@keywords147536%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147499%_ + _%@@keywords147536%_ 'table: absent-value)) - _%args147500%_))) + _%args147537%_))) (define gxc#apply-collect-expression-refs - (lambda _%args147482147506%_ + (lambda _%args147519147543%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-expression-refs__@ - _%args147482147506%_))) + _%args147519147543%_))) (define gxc#::generate-meta::t - (let ((__tmp149051 (list gxc#::void-expression::t)) - (__tmp149050 (cons (cons 'final: '#t) '()))) + (let ((__tmp149088 (list gxc#::void-expression::t)) + (__tmp149087 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta::t '::generate-meta - __tmp149051 + __tmp149088 '(state) - __tmp149050 + __tmp149087 '#f))) (define gxc#::generate-meta? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta::t))) (define gxc#make-::generate-meta - (lambda _%$args147477%_ - (apply make-instance gxc#::generate-meta::t _%$args147477%_))) + (lambda _%$args147514%_ + (apply make-instance gxc#::generate-meta::t _%$args147514%_))) (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 ((__tmp149052 + (let ((__tmp149089 (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 __tmp149052))) + (__make-promise __tmp149089))) (define gxc#apply-generate-meta__% - (lambda (_%@@keywords147451%_ _%state147448147452%_ _%stx147454%_) - (let ((_%state147457%_ - (if (eq? _%state147448147452%_ absent-value) + (lambda (_%@@keywords147488%_ _%state147485147489%_ _%stx147491%_) + (let ((_%state147494%_ + (if (eq? _%state147485147489%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state147448147452%_))) + _%state147485147489%_))) (force gxc#::generate-meta-bind-methods!) - (let* ((_%self147459%_ - (let ((__obj149009 + (let* ((_%self147496%_ + (let ((__obj149046 (let () (declare (not safe)) (##structure gxc#::generate-meta::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149009 - _%state147457%_ + __obj149046 + _%state147494%_ '1 '#f '#f)) - __obj149009)) - (__tmp149053 + __obj149046)) + (__tmp149090 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147459%_ _%stx147454%_))))) + (gxc#compile-e__1 _%self147496%_ _%stx147491%_))))) (declare (not safe)) (__call-with-parameters - __tmp149053 + __tmp149090 gxc#current-compile-method - _%self147459%_))))) + _%self147496%_))))) (define gxc#apply-generate-meta__@ - (lambda (_%@@keywords147466%_ . _%args147467%_) + (lambda (_%@@keywords147503%_ . _%args147504%_) (apply gxc#apply-generate-meta__% - _%@@keywords147466%_ + _%@@keywords147503%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147466%_ + _%@@keywords147503%_ 'state: absent-value)) - _%args147467%_))) + _%args147504%_))) (define gxc#apply-generate-meta - (lambda _%args147449147473%_ + (lambda _%args147486147510%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta__@ - _%args147449147473%_))) + _%args147486147510%_))) (define gxc#::generate-meta-phi::t - (let ((__tmp149055 (list)) (__tmp149054 (cons (cons 'final: '#t) '()))) + (let ((__tmp149092 (list)) (__tmp149091 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta-phi::t '::generate-meta-phi - __tmp149055 + __tmp149092 '(state) - __tmp149054 + __tmp149091 '#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 _%$args147444%_ - (apply make-instance gxc#::generate-meta-phi::t _%$args147444%_))) + (lambda _%$args147481%_ + (apply make-instance gxc#::generate-meta-phi::t _%$args147481%_))) (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 ((__tmp149056 + (let ((__tmp149093 (lambda () (let () (declare (not safe)) @@ -1794,341 +1794,341 @@ (declare (not safe)) (__seal-class! gxc#::generate-meta-phi::t))))) (declare (not safe)) - (__make-promise __tmp149056))) + (__make-promise __tmp149093))) (define gxc#apply-generate-meta-phi__% - (lambda (_%@@keywords147418%_ _%state147415147419%_ _%stx147421%_) - (let ((_%state147424%_ - (if (eq? _%state147415147419%_ absent-value) + (lambda (_%@@keywords147455%_ _%state147452147456%_ _%stx147458%_) + (let ((_%state147461%_ + (if (eq? _%state147452147456%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state147415147419%_))) + _%state147452147456%_))) (force gxc#::generate-meta-phi-bind-methods!) - (let* ((_%self147426%_ - (let ((__obj149011 + (let* ((_%self147463%_ + (let ((__obj149048 (let () (declare (not safe)) (##structure gxc#::generate-meta-phi::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149011 - _%state147424%_ + __obj149048 + _%state147461%_ '1 '#f '#f)) - __obj149011)) - (__tmp149057 + __obj149048)) + (__tmp149094 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147426%_ _%stx147421%_))))) + (gxc#compile-e__1 _%self147463%_ _%stx147458%_))))) (declare (not safe)) (__call-with-parameters - __tmp149057 + __tmp149094 gxc#current-compile-method - _%self147426%_))))) + _%self147463%_))))) (define gxc#apply-generate-meta-phi__@ - (lambda (_%@@keywords147433%_ . _%args147434%_) + (lambda (_%@@keywords147470%_ . _%args147471%_) (apply gxc#apply-generate-meta-phi__% - _%@@keywords147433%_ + _%@@keywords147470%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147433%_ + _%@@keywords147470%_ 'state: absent-value)) - _%args147434%_))) + _%args147471%_))) (define gxc#apply-generate-meta-phi - (lambda _%args147416147440%_ + (lambda _%args147453147477%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta-phi__@ - _%args147416147440%_))) + _%args147453147477%_))) (define gxc#collect-bindings-define-values% - (lambda (_%self147344%_ _%stx147345%_) - (let* ((_%g147347147364%_ - (lambda (_%g147348147361%_) + (lambda (_%self147381%_ _%stx147382%_) + (let* ((_%g147384147401%_ + (lambda (_%g147385147398%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147348147361%_)))) - (_%g147346147411%_ - (lambda (_%g147348147367%_) + _%g147385147398%_)))) + (_%g147383147448%_ + (lambda (_%g147385147404%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147348147367%_)) - (let ((_%e147351147369%_ + (gx#stx-pair? _%g147385147404%_)) + (let ((_%e147388147406%_ (let () (declare (not safe)) - (gx#stx-e _%g147348147367%_)))) - (let ((_%hd147352147372%_ + (gx#stx-e _%g147385147404%_)))) + (let ((_%hd147389147409%_ (let () (declare (not safe)) - (##car _%e147351147369%_))) - (_%tl147353147374%_ + (##car _%e147388147406%_))) + (_%tl147390147411%_ (let () (declare (not safe)) - (##cdr _%e147351147369%_)))) + (##cdr _%e147388147406%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147353147374%_)) - (let ((_%e147354147377%_ + (gx#stx-pair? _%tl147390147411%_)) + (let ((_%e147391147414%_ (let () (declare (not safe)) - (gx#stx-e _%tl147353147374%_)))) - (let ((_%hd147355147380%_ + (gx#stx-e _%tl147390147411%_)))) + (let ((_%hd147392147417%_ (let () (declare (not safe)) - (##car _%e147354147377%_))) - (_%tl147356147382%_ + (##car _%e147391147414%_))) + (_%tl147393147419%_ (let () (declare (not safe)) - (##cdr _%e147354147377%_)))) + (##cdr _%e147391147414%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147356147382%_)) - (let ((_%e147357147385%_ + (gx#stx-pair? _%tl147393147419%_)) + (let ((_%e147394147422%_ (let () (declare (not safe)) - (gx#stx-e _%tl147356147382%_)))) - (let ((_%hd147358147388%_ + (gx#stx-e _%tl147393147419%_)))) + (let ((_%hd147395147425%_ (let () (declare (not safe)) - (##car _%e147357147385%_))) - (_%tl147359147390%_ + (##car _%e147394147422%_))) + (_%tl147396147427%_ (let () (declare (not safe)) - (##cdr _%e147357147385%_)))) + (##cdr _%e147394147422%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147359147390%_)) - ((lambda (_%L147393%_ - _%L147394%_) - (let ((__tmp149058 - (lambda (_%bind147409%_) + _%tl147396147427%_)) + ((lambda (_%L147430%_ + _%L147431%_) + (let ((__tmp149095 + (lambda (_%bind147446%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#identifier? _%bind147409%_)) - (gxc#add-module-binding! _%bind147409%_ '#f) + (gx#identifier? _%bind147446%_)) + (gxc#add-module-binding! _%bind147446%_ '#f) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp149058 - _%L147394%_))) - _%hd147358147388%_ - _%hd147355147380%_) - (_%g147347147364%_ - _%g147348147367%_)))) - (_%g147347147364%_ _%g147348147367%_)))) - (_%g147347147364%_ _%g147348147367%_)))) - (_%g147347147364%_ _%g147348147367%_))))) - (_%g147346147411%_ _%stx147345%_)))) + __tmp149095 + _%L147431%_))) + _%hd147395147425%_ + _%hd147392147417%_) + (_%g147384147401%_ + _%g147385147404%_)))) + (_%g147384147401%_ _%g147385147404%_)))) + (_%g147384147401%_ _%g147385147404%_)))) + (_%g147384147401%_ _%g147385147404%_))))) + (_%g147383147448%_ _%stx147382%_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_%self147276%_ _%stx147277%_) - (let* ((_%g147279147296%_ - (lambda (_%g147280147293%_) + (lambda (_%self147313%_ _%stx147314%_) + (let* ((_%g147316147333%_ + (lambda (_%g147317147330%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147280147293%_)))) - (_%g147278147341%_ - (lambda (_%g147280147299%_) + _%g147317147330%_)))) + (_%g147315147378%_ + (lambda (_%g147317147336%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147280147299%_)) - (let ((_%e147283147301%_ + (gx#stx-pair? _%g147317147336%_)) + (let ((_%e147320147338%_ (let () (declare (not safe)) - (gx#stx-e _%g147280147299%_)))) - (let ((_%hd147284147304%_ + (gx#stx-e _%g147317147336%_)))) + (let ((_%hd147321147341%_ (let () (declare (not safe)) - (##car _%e147283147301%_))) - (_%tl147285147306%_ + (##car _%e147320147338%_))) + (_%tl147322147343%_ (let () (declare (not safe)) - (##cdr _%e147283147301%_)))) + (##cdr _%e147320147338%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147285147306%_)) - (let ((_%e147286147309%_ + (gx#stx-pair? _%tl147322147343%_)) + (let ((_%e147323147346%_ (let () (declare (not safe)) - (gx#stx-e _%tl147285147306%_)))) - (let ((_%hd147287147312%_ + (gx#stx-e _%tl147322147343%_)))) + (let ((_%hd147324147349%_ (let () (declare (not safe)) - (##car _%e147286147309%_))) - (_%tl147288147314%_ + (##car _%e147323147346%_))) + (_%tl147325147351%_ (let () (declare (not safe)) - (##cdr _%e147286147309%_)))) + (##cdr _%e147323147346%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147288147314%_)) - (let ((_%e147289147317%_ + (gx#stx-pair? _%tl147325147351%_)) + (let ((_%e147326147354%_ (let () (declare (not safe)) - (gx#stx-e _%tl147288147314%_)))) - (let ((_%hd147290147320%_ + (gx#stx-e _%tl147325147351%_)))) + (let ((_%hd147327147357%_ (let () (declare (not safe)) - (##car _%e147289147317%_))) - (_%tl147291147322%_ + (##car _%e147326147354%_))) + (_%tl147328147359%_ (let () (declare (not safe)) - (##cdr _%e147289147317%_)))) + (##cdr _%e147326147354%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147291147322%_)) - ((lambda (_%L147325%_ - _%L147326%_) + _%tl147328147359%_)) + ((lambda (_%L147362%_ + _%L147363%_) (gxc#add-module-binding! - _%L147326%_ + _%L147363%_ '#t)) - _%hd147290147320%_ - _%hd147287147312%_) - (_%g147279147296%_ - _%g147280147299%_)))) - (_%g147279147296%_ _%g147280147299%_)))) - (_%g147279147296%_ _%g147280147299%_)))) - (_%g147279147296%_ _%g147280147299%_))))) - (_%g147278147341%_ _%stx147277%_)))) + _%hd147327147357%_ + _%hd147324147349%_) + (_%g147316147333%_ + _%g147317147336%_)))) + (_%g147316147333%_ _%g147317147336%_)))) + (_%g147316147333%_ _%g147317147336%_)))) + (_%g147316147333%_ _%g147317147336%_))))) + (_%g147315147378%_ _%stx147314%_)))) (define gxc#lift-modules-module% - (lambda (_%self147218%_ _%stx147219%_) - (let* ((_%g147221147235%_ - (lambda (_%g147222147232%_) + (lambda (_%self147255%_ _%stx147256%_) + (let* ((_%g147258147272%_ + (lambda (_%g147259147269%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147222147232%_)))) - (_%g147220147273%_ - (lambda (_%g147222147238%_) + _%g147259147269%_)))) + (_%g147257147310%_ + (lambda (_%g147259147275%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147222147238%_)) - (let ((_%e147225147240%_ + (gx#stx-pair? _%g147259147275%_)) + (let ((_%e147262147277%_ (let () (declare (not safe)) - (gx#stx-e _%g147222147238%_)))) - (let ((_%hd147226147243%_ + (gx#stx-e _%g147259147275%_)))) + (let ((_%hd147263147280%_ (let () (declare (not safe)) - (##car _%e147225147240%_))) - (_%tl147227147245%_ + (##car _%e147262147277%_))) + (_%tl147264147282%_ (let () (declare (not safe)) - (##cdr _%e147225147240%_)))) + (##cdr _%e147262147277%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147227147245%_)) - (let ((_%e147228147248%_ + (gx#stx-pair? _%tl147264147282%_)) + (let ((_%e147265147285%_ (let () (declare (not safe)) - (gx#stx-e _%tl147227147245%_)))) - (let ((_%hd147229147251%_ + (gx#stx-e _%tl147264147282%_)))) + (let ((_%hd147266147288%_ (let () (declare (not safe)) - (##car _%e147228147248%_))) - (_%tl147230147253%_ + (##car _%e147265147285%_))) + (_%tl147267147290%_ (let () (declare (not safe)) - (##cdr _%e147228147248%_)))) - ((lambda (_%L147256%_ _%L147257%_) - (let ((_%ctx147270%_ + (##cdr _%e147265147285%_)))) + ((lambda (_%L147293%_ _%L147294%_) + (let ((_%ctx147307%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L147257%_)))) + _%L147294%_)))) (set-box! (let () (declare (not safe)) (slot-ref__0 - _%self147218%_ + _%self147255%_ 'modules)) - (cons _%ctx147270%_ + (cons _%ctx147307%_ (unbox (let () (declare (not safe)) (slot-ref__0 - _%self147218%_ + _%self147255%_ 'modules))))) - (let ((__tmp149059 + (let ((__tmp149096 (lambda () - (let ((__tmp149060 + (let ((__tmp149097 (##structure-ref - _%ctx147270%_ + _%ctx147307%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self147218%_ - __tmp149060))))) + _%self147255%_ + __tmp149097))))) (declare (not safe)) (__call-with-parameters - __tmp149059 + __tmp149096 gx#current-expander-context - _%ctx147270%_)))) - _%tl147230147253%_ - _%hd147229147251%_))) - (_%g147221147235%_ _%g147222147238%_)))) - (_%g147221147235%_ _%g147222147238%_))))) - (_%g147220147273%_ _%stx147219%_)))) + _%ctx147307%_)))) + _%tl147267147290%_ + _%hd147266147288%_))) + (_%g147258147272%_ _%g147259147275%_)))) + (_%g147258147272%_ _%g147259147275%_))))) + (_%g147257147310%_ _%stx147256%_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_%decls147171147173%_ + (let ((_%decls147208147210%_ (let () (declare (not safe)) (gxc#current-compile-decls)))) - (if _%decls147171147173%_ - (let ((_%decls147176%_ _%decls147171147173%_)) - (let _%lp147178%_ ((_%rest147180%_ _%decls147176%_)) - (let* ((_%rest147181147189%_ _%rest147180%_) - (_%else147183147197%_ (lambda () '#f)) - (_%K147185147206%_ - (lambda (_%decls147200%_ _%decl147201%_) - (if (equal? _%decl147201%_ '(not safe)) + (if _%decls147208147210%_ + (let ((_%decls147213%_ _%decls147208147210%_)) + (let _%lp147215%_ ((_%rest147217%_ _%decls147213%_)) + (let* ((_%rest147218147226%_ _%rest147217%_) + (_%else147220147234%_ (lambda () '#f)) + (_%K147222147243%_ + (lambda (_%decls147237%_ _%decl147238%_) + (if (equal? _%decl147238%_ '(not safe)) '#t - (if (equal? _%decl147201%_ '(safe)) + (if (equal? _%decl147238%_ '(safe)) '#f - (_%lp147178%_ _%decls147200%_)))))) - (if (pair? _%rest147181147189%_) - (let ((_%hd147186147209%_ + (_%lp147215%_ _%decls147237%_)))))) + (if (pair? _%rest147218147226%_) + (let ((_%hd147223147246%_ (let () (declare (not safe)) - (##car _%rest147181147189%_))) - (_%tl147187147211%_ + (##car _%rest147218147226%_))) + (_%tl147224147248%_ (let () (declare (not safe)) - (##cdr _%rest147181147189%_)))) - (let* ((_%decl147214%_ _%hd147186147209%_) - (_%decls147216%_ _%tl147187147211%_)) - (_%K147185147206%_ - _%decls147216%_ - _%decl147214%_))) - (_%else147183147197%_))))) + (##cdr _%rest147218147226%_)))) + (let* ((_%decl147251%_ _%hd147223147246%_) + (_%decls147253%_ _%tl147224147248%_)) + (_%K147222147243%_ + _%decls147253%_ + _%decl147251%_))) + (_%else147220147234%_))))) '#f)))) (define gxc#add-module-binding! - (lambda (_%id147165%_ _%syntax?147166%_) - (let ((_%eid147168%_ + (lambda (_%id147202%_ _%syntax?147203%_) + (let ((_%eid147205%_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id147165%_)) + (gx#resolve-identifier__0 _%id147202%_)) '1 gx#binding::t '#f)) - (_%ht147169%_ + (_%ht147206%_ (##structure-ref (let () (declare (not safe)) @@ -2136,778 +2136,778 @@ '2 gxc#symbol-table::t '#f))) - (if (let () (declare (not safe)) (interned-symbol? _%eid147168%_)) + (if (let () (declare (not safe)) (interned-symbol? _%eid147205%_)) '#!void - (let ((__tmp149061 - (let ((__tmp149062 + (let ((__tmp149098 + (let ((__tmp149099 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%eid147168%_)))) + _%eid147205%_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp149062 _%syntax?147166%_)))) + (gx#make-binding-id__1 __tmp149099 _%syntax?147203%_)))) (declare (not safe)) - (hash-put! _%ht147169%_ _%eid147168%_ __tmp149061)))))) + (hash-put! _%ht147206%_ _%eid147205%_ __tmp149098)))))) (define gxc#generate-runtime-identifier - (lambda (_%id147163%_) + (lambda (_%id147200%_) (gxc#generate-runtime-identifier-key - (let () (declare (not safe)) (gx#core-identifier-key _%id147163%_))))) + (let () (declare (not safe)) (gx#core-identifier-key _%id147200%_))))) (define gxc#generate-runtime-identifier-key - (lambda (_%key147118%_) - (if (let () (declare (not safe)) (interned-symbol? _%key147118%_)) - _%key147118%_ - (if (uninterned-symbol? _%key147118%_) + (lambda (_%key147155%_) + (if (let () (declare (not safe)) (interned-symbol? _%key147155%_)) + _%key147155%_ + (if (uninterned-symbol? _%key147155%_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _%key147118%_)) - (let* ((_%key147122147129%_ _%key147118%_) - (_%E147124147133%_ + (gxc#generate-runtime-gensym-reference__0 _%key147155%_)) + (let* ((_%key147159147166%_ _%key147155%_) + (_%E147161147170%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%key147122147129%_ + _%key147159147166%_ '([eid . mark]))) '#!void)) - (_%K147125147151%_ - (lambda (_%mark147136%_ _%eid147137%_) - (let ((_%$e147139%_ + (_%K147162147188%_ + (lambda (_%mark147173%_ _%eid147174%_) + (let ((_%$e147176%_ (##structure-ref - _%mark147136%_ + _%mark147173%_ '1 gx#expander-mark::t '#f))) - (if _%$e147139%_ - ((lambda (_%ht147142%_) - (let ((_%$e147144%_ + (if _%$e147176%_ + ((lambda (_%ht147179%_) + (let ((_%$e147181%_ (let () (declare (not safe)) (hash-get - _%ht147142%_ - _%eid147137%_)))) - (if _%$e147144%_ - ((lambda (_%id147147%_) + _%ht147179%_ + _%eid147174%_)))) + (if _%$e147181%_ + ((lambda (_%id147184%_) (if (let () (declare (not safe)) (interned-symbol? - _%id147147%_)) - _%id147147%_ + _%id147184%_)) + _%id147184%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%id147147%_)))) - _%$e147144%_) + _%id147184%_)))) + _%$e147181%_) (gxc#generate-runtime-identifier-key - _%eid147137%_)))) - _%$e147139%_) + _%eid147174%_)))) + _%$e147176%_) (gxc#generate-runtime-identifier-key - _%eid147137%_)))))) - (if (pair? _%key147122147129%_) - (let ((_%hd147126147154%_ + _%eid147174%_)))))) + (if (pair? _%key147159147166%_) + (let ((_%hd147163147191%_ (let () (declare (not safe)) - (##car _%key147122147129%_))) - (_%tl147127147156%_ + (##car _%key147159147166%_))) + (_%tl147164147193%_ (let () (declare (not safe)) - (##cdr _%key147122147129%_)))) - (let* ((_%eid147159%_ _%hd147126147154%_) - (_%mark147161%_ _%tl147127147156%_)) - (_%K147125147151%_ _%mark147161%_ _%eid147159%_))) - (_%E147124147133%_))))))) + (##cdr _%key147159147166%_)))) + (let* ((_%eid147196%_ _%hd147163147191%_) + (_%mark147198%_ _%tl147164147193%_)) + (_%K147162147188%_ _%mark147198%_ _%eid147196%_))) + (_%E147161147170%_))))))) (define gxc#generate-runtime-empty - (lambda (_%self147115%_ _%stx147116%_) '(begin))) + (lambda (_%self147152%_ _%stx147153%_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_%self146962%_ _%stx146963%_) - (letrec ((_%simplify146965%_ - (lambda (_%body147013%_) - (let _%lp147015%_ ((_%rest147017%_ _%body147013%_) - (_%r147018%_ '())) - (let* ((_%rest147019147027%_ _%rest147017%_) - (_%else147021147035%_ - (lambda () (reverse _%r147018%_))) - (_%K147023147103%_ - (lambda (_%rest147038%_ _%hd147039%_) - (let* ((_%hd147040147056%_ _%hd147039%_) - (_%else147044147064%_ + (lambda (_%self146999%_ _%stx147000%_) + (letrec ((_%simplify147002%_ + (lambda (_%body147050%_) + (let _%lp147052%_ ((_%rest147054%_ _%body147050%_) + (_%r147055%_ '())) + (let* ((_%rest147056147064%_ _%rest147054%_) + (_%else147058147072%_ + (lambda () (reverse _%r147055%_))) + (_%K147060147140%_ + (lambda (_%rest147075%_ _%hd147076%_) + (let* ((_%hd147077147093%_ _%hd147076%_) + (_%else147081147101%_ (lambda () - (_%lp147015%_ - _%rest147038%_ - (cons _%hd147039%_ _%r147018%_))))) - (let ((_%K147052147093%_ - (lambda (_%exprs147091%_) - (_%lp147015%_ + (_%lp147052%_ + _%rest147075%_ + (cons _%hd147076%_ _%r147055%_))))) + (let ((_%K147089147130%_ + (lambda (_%exprs147128%_) + (_%lp147052%_ (let () (declare (not safe)) (__foldr1 cons - _%rest147038%_ - _%exprs147091%_)) - _%r147018%_))) - (_%K147047147077%_ + _%rest147075%_ + _%exprs147128%_)) + _%r147055%_))) + (_%K147084147114%_ (lambda () - (if (null? _%rest147038%_) - (_%lp147015%_ - _%rest147038%_ - (cons _%hd147039%_ - _%r147018%_)) - (_%lp147015%_ - _%rest147038%_ - _%r147018%_)))) - (_%K147046147069%_ + (if (null? _%rest147075%_) + (_%lp147052%_ + _%rest147075%_ + (cons _%hd147076%_ + _%r147055%_)) + (_%lp147052%_ + _%rest147075%_ + _%r147055%_)))) + (_%K147083147106%_ (lambda () - (if (null? _%rest147038%_) - (_%lp147015%_ - _%rest147038%_ - (cons _%hd147039%_ - _%r147018%_)) - (_%lp147015%_ - _%rest147038%_ - _%r147018%_))))) - (let ((_%try-match147043147072%_ + (if (null? _%rest147075%_) + (_%lp147052%_ + _%rest147075%_ + (cons _%hd147076%_ + _%r147055%_)) + (_%lp147052%_ + _%rest147075%_ + _%r147055%_))))) + (let ((_%try-match147080147109%_ (lambda () - (if (symbol? _%hd147040147056%_) - (_%K147046147069%_) - (_%else147044147064%_))))) - (if (pair? _%hd147040147056%_) - (let ((_%tl147054147098%_ + (if (symbol? _%hd147077147093%_) + (_%K147083147106%_) + (_%else147081147101%_))))) + (if (pair? _%hd147077147093%_) + (let ((_%tl147091147135%_ (let () (declare (not safe)) - (##cdr _%hd147040147056%_))) - (_%hd147053147096%_ + (##cdr _%hd147077147093%_))) + (_%hd147090147133%_ (let () (declare (not safe)) - (##car _%hd147040147056%_)))) + (##car _%hd147077147093%_)))) (if (let () (declare (not safe)) - (##eq? _%hd147053147096%_ + (##eq? _%hd147090147133%_ 'begin)) - (let ((_%exprs147101%_ - _%tl147054147098%_)) - (_%K147052147093%_ - _%exprs147101%_)) + (let ((_%exprs147138%_ + _%tl147091147135%_)) + (_%K147089147130%_ + _%exprs147138%_)) (if (let () (declare (not safe)) - (##eq? _%hd147053147096%_ + (##eq? _%hd147090147133%_ 'quote)) - (if (pair? _%tl147054147098%_) - (let ((_%tl147051147085%_ + (if (pair? _%tl147091147135%_) + (let ((_%tl147088147122%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl147054147098%_)))) - (if (null? _%tl147051147085%_) - (_%K147047147077%_) - (_%try-match147043147072%_))) - (_%try-match147043147072%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match147043147072%_)))) - (_%try-match147043147072%_)))))))) - (if (pair? _%rest147019147027%_) - (let ((_%hd147024147106%_ + (##cdr _%tl147091147135%_)))) + (if (null? _%tl147088147122%_) + (_%K147084147114%_) + (_%try-match147080147109%_))) + (_%try-match147080147109%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match147080147109%_)))) + (_%try-match147080147109%_)))))))) + (if (pair? _%rest147056147064%_) + (let ((_%hd147061147143%_ (let () (declare (not safe)) - (##car _%rest147019147027%_))) - (_%tl147025147108%_ + (##car _%rest147056147064%_))) + (_%tl147062147145%_ (let () (declare (not safe)) - (##cdr _%rest147019147027%_)))) - (let* ((_%hd147111%_ _%hd147024147106%_) - (_%rest147113%_ _%tl147025147108%_)) - (_%K147023147103%_ - _%rest147113%_ - _%hd147111%_))) - (_%else147021147035%_))))))) - (let* ((_%g146967146977%_ - (lambda (_%g146968146974%_) + (##cdr _%rest147056147064%_)))) + (let* ((_%hd147148%_ _%hd147061147143%_) + (_%rest147150%_ _%tl147062147145%_)) + (_%K147060147140%_ + _%rest147150%_ + _%hd147148%_))) + (_%else147058147072%_))))))) + (let* ((_%g147004147014%_ + (lambda (_%g147005147011%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146968146974%_)))) - (_%g146966147010%_ - (lambda (_%g146968146980%_) + _%g147005147011%_)))) + (_%g147003147047%_ + (lambda (_%g147005147017%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146968146980%_)) - (let ((_%e146970146982%_ + (gx#stx-pair? _%g147005147017%_)) + (let ((_%e147007147019%_ (let () (declare (not safe)) - (gx#stx-e _%g146968146980%_)))) - (let ((_%hd146971146985%_ + (gx#stx-e _%g147005147017%_)))) + (let ((_%hd147008147022%_ (let () (declare (not safe)) - (##car _%e146970146982%_))) - (_%tl146972146987%_ + (##car _%e147007147019%_))) + (_%tl147009147024%_ (let () (declare (not safe)) - (##cdr _%e146970146982%_)))) - ((lambda (_%L146990%_) - (let* ((_%body147005%_ - (map (lambda (_%g147000147002%_) + (##cdr _%e147007147019%_)))) + ((lambda (_%L147027%_) + (let* ((_%body147042%_ + (map (lambda (_%g147037147039%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self146962%_ - _%g147000147002%_))) - _%L146990%_)) - (_%body147007%_ - (_%simplify146965%_ _%body147005%_))) - (if (let ((__tmp149063 - (length _%body147007%_))) + _%self146999%_ + _%g147037147039%_))) + _%L147027%_)) + (_%body147044%_ + (_%simplify147002%_ _%body147042%_))) + (if (let ((__tmp149100 + (length _%body147044%_))) (declare (not safe)) - (##fx= __tmp149063 '1)) - (car _%body147007%_) - (cons 'begin _%body147007%_)))) - _%tl146972146987%_))) - (_%g146967146977%_ _%g146968146980%_))))) - (_%g146966147010%_ _%stx146963%_))))) + (##fx= __tmp149100 '1)) + (car _%body147044%_) + (cons 'begin _%body147044%_)))) + _%tl147009147024%_))) + (_%g147004147014%_ _%g147005147017%_))))) + (_%g147003147047%_ _%stx147000%_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_%self146923%_ _%stx146924%_) - (let* ((_%g146926146936%_ - (lambda (_%g146927146933%_) + (lambda (_%self146960%_ _%stx146961%_) + (let* ((_%g146963146973%_ + (lambda (_%g146964146970%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146927146933%_)))) - (_%g146925146959%_ - (lambda (_%g146927146939%_) + _%g146964146970%_)))) + (_%g146962146996%_ + (lambda (_%g146964146976%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146927146939%_)) - (let ((_%e146929146941%_ + (gx#stx-pair? _%g146964146976%_)) + (let ((_%e146966146978%_ (let () (declare (not safe)) - (gx#stx-e _%g146927146939%_)))) - (let ((_%hd146930146944%_ + (gx#stx-e _%g146964146976%_)))) + (let ((_%hd146967146981%_ (let () (declare (not safe)) - (##car _%e146929146941%_))) - (_%tl146931146946%_ + (##car _%e146966146978%_))) + (_%tl146968146983%_ (let () (declare (not safe)) - (##cdr _%e146929146941%_)))) - ((lambda (_%L146949%_) + (##cdr _%e146966146978%_)))) + ((lambda (_%L146986%_) (cons 'begin (let () (declare (not safe)) - (gx#syntax->datum _%L146949%_)))) - _%tl146931146946%_))) - (_%g146926146936%_ _%g146927146939%_))))) - (_%g146925146959%_ _%stx146924%_)))) + (gx#syntax->datum _%L146986%_)))) + _%tl146968146983%_))) + (_%g146963146973%_ _%g146964146976%_))))) + (_%g146962146996%_ _%stx146961%_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_%self146687%_ _%stx146688%_) - (let* ((_%__stx147653147654%_ _%stx146688%_) - (_%g146692146744%_ + (lambda (_%self146724%_ _%stx146725%_) + (let* ((_%__stx147690147691%_ _%stx146725%_) + (_%g146729146781%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147653147654%_))))) - (let ((_%__kont147655147656%_ - (lambda (_%L146905%_ _%L146906%_) + _%__stx147690147691%_))))) + (let ((_%__kont147692147693%_ + (lambda (_%L146942%_ _%L146943%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self146687%_ _%L146905%_)))) - (_%__kont147657147658%_ - (lambda (_%L146853%_ _%L146854%_ _%L146855%_) - (if (let ((__tmp149064 + (gxc#compile-e__1 _%self146724%_ _%L146942%_)))) + (_%__kont147694147695%_ + (lambda (_%L146890%_ _%L146891%_ _%L146892%_) + (if (let ((__tmp149101 (let () (declare (not safe)) - (gx#stx-e _%L146855%_)))) + (gx#stx-e _%L146892%_)))) (declare (not safe)) - (##memq __tmp149064 '(@inline))) + (##memq __tmp149101 '(@inline))) '(begin) (let () (declare (not safe)) - (gxc#compile-e__1 _%self146687%_ _%L146853%_))))) - (_%__kont147661147662%_ - (lambda (_%L146773%_ _%L146774%_) - (let ((_%decls146789%_ (map gx#syntax->datum _%L146774%_))) - (let ((__tmp149067 + (gxc#compile-e__1 _%self146724%_ _%L146890%_))))) + (_%__kont147698147699%_ + (lambda (_%L146810%_ _%L146811%_) + (let ((_%decls146826%_ (map gx#syntax->datum _%L146811%_))) + (let ((__tmp149104 (lambda () (cons 'begin - (cons (cons 'declare _%decls146789%_) + (cons (cons 'declare _%decls146826%_) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146687%_ - _%L146773%_)) + _%self146724%_ + _%L146810%_)) '()))))) - (__tmp149065 - (let ((__tmp149066 + (__tmp149102 + (let ((__tmp149103 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) - (__foldr1 cons __tmp149066 _%decls146789%_)))) + (__foldr1 cons __tmp149103 _%decls146826%_)))) (declare (not safe)) (__call-with-parameters - __tmp149067 + __tmp149104 gxc#current-compile-decls - __tmp149065)))))) - (let* ((_%__match147708147709%_ - (lambda (_%e146708146797%_ - _%hd146709146800%_ - _%tl146710146802%_ - _%e146711146805%_ - _%hd146712146808%_ - _%tl146713146810%_ - _%e146714146813%_ - _%hd146715146816%_ - _%tl146716146818%_ - _%__splice147659147660%_ - _%target146717146821%_ - _%tl146719146823%_) - (letrec ((_%loop146720146826%_ - (lambda (_%hd146718146829%_ - _%param146724146831%_) + __tmp149102)))))) + (let* ((_%__match147745147746%_ + (lambda (_%e146745146834%_ + _%hd146746146837%_ + _%tl146747146839%_ + _%e146748146842%_ + _%hd146749146845%_ + _%tl146750146847%_ + _%e146751146850%_ + _%hd146752146853%_ + _%tl146753146855%_ + _%__splice147696147697%_ + _%target146754146858%_ + _%tl146756146860%_) + (letrec ((_%loop146757146863%_ + (lambda (_%hd146755146866%_ + _%param146761146868%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146718146829%_)) - (let ((_%e146721146834%_ + (gx#stx-pair? _%hd146755146866%_)) + (let ((_%e146758146871%_ (let () (declare (not safe)) - (gx#stx-e _%hd146718146829%_)))) - (let ((_%lp-tl146723146839%_ + (gx#stx-e _%hd146755146866%_)))) + (let ((_%lp-tl146760146876%_ (let () (declare (not safe)) - (##cdr _%e146721146834%_))) - (_%lp-hd146722146837%_ + (##cdr _%e146758146871%_))) + (_%lp-hd146759146874%_ (let () (declare (not safe)) - (##car _%e146721146834%_)))) - (_%loop146720146826%_ - _%lp-tl146723146839%_ - (cons _%lp-hd146722146837%_ - _%param146724146831%_)))) - (let ((_%param146725146842%_ - (reverse _%param146724146831%_))) + (##car _%e146758146871%_)))) + (_%loop146757146863%_ + _%lp-tl146760146876%_ + (cons _%lp-hd146759146874%_ + _%param146761146868%_)))) + (let ((_%param146762146879%_ + (reverse _%param146761146868%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl146713146810%_)) - (let ((_%e146726146845%_ + _%tl146750146847%_)) + (let ((_%e146763146882%_ (let () (declare (not safe)) (gx#stx-e - _%tl146713146810%_)))) - (let ((_%tl146728146850%_ + _%tl146750146847%_)))) + (let ((_%tl146765146887%_ (let () (declare (not safe)) - (##cdr _%e146726146845%_))) - (_%hd146727146848%_ + (##cdr _%e146763146882%_))) + (_%hd146764146885%_ (let () (declare (not safe)) - (##car _%e146726146845%_)))) + (##car _%e146763146882%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146728146850%_)) - (let ((_%L146853%_ - _%hd146727146848%_) - (_%L146854%_ - _%param146725146842%_) - (_%L146855%_ - _%hd146715146816%_)) + _%tl146765146887%_)) + (let ((_%L146890%_ + _%hd146764146885%_) + (_%L146891%_ + _%param146762146879%_) + (_%L146892%_ + _%hd146752146853%_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _%L146855%_)) - (not (let ((__tmp149068 + (gx#identifier? _%L146892%_)) + (not (let ((__tmp149105 (let () (declare (not safe)) - (gx#stx-e _%L146855%_)))) + (gx#stx-e _%L146892%_)))) (declare (not safe)) - (##memq __tmp149068 gxc#gambit-annotations)))) - (_%__kont147657147658%_ _%L146853%_ _%L146854%_ _%L146855%_) - (_%__kont147661147662%_ - _%hd146727146848%_ - _%hd146712146808%_))) + (##memq __tmp149105 gxc#gambit-annotations)))) + (_%__kont147694147695%_ _%L146890%_ _%L146891%_ _%L146892%_) + (_%__kont147698147699%_ + _%hd146764146885%_ + _%hd146749146845%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g146692146744%_))))) + (_%g146729146781%_))))) (let () (declare (not safe)) - (_%g146692146744%_)))))))) - (_%loop146720146826%_ _%target146717146821%_ '())))) - (_%__match147682147683%_ - (lambda (_%e146696146881%_ - _%hd146697146884%_ - _%tl146698146886%_ - _%e146699146889%_ - _%hd146700146892%_ - _%tl146701146894%_ - _%e146702146897%_ - _%hd146703146900%_ - _%tl146704146902%_) - (let ((_%L146905%_ _%hd146703146900%_) - (_%L146906%_ _%hd146700146892%_)) + (_%g146729146781%_)))))))) + (_%loop146757146863%_ _%target146754146858%_ '())))) + (_%__match147719147720%_ + (lambda (_%e146733146918%_ + _%hd146734146921%_ + _%tl146735146923%_ + _%e146736146926%_ + _%hd146737146929%_ + _%tl146738146931%_ + _%e146739146934%_ + _%hd146740146937%_ + _%tl146741146939%_) + (let ((_%L146942%_ _%hd146740146937%_) + (_%L146943%_ _%hd146737146929%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L146906%_)) - (_%__kont147655147656%_ _%L146905%_ _%L146906%_) + (gx#identifier? _%L146943%_)) + (_%__kont147692147693%_ _%L146942%_ _%L146943%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146700146892%_)) - (let ((_%e146714146813%_ + (gx#stx-pair? _%hd146737146929%_)) + (let ((_%e146751146850%_ (let () (declare (not safe)) - (gx#stx-e _%hd146700146892%_)))) - (let ((_%tl146716146818%_ + (gx#stx-e _%hd146737146929%_)))) + (let ((_%tl146753146855%_ (let () (declare (not safe)) - (##cdr _%e146714146813%_))) - (_%hd146715146816%_ + (##cdr _%e146751146850%_))) + (_%hd146752146853%_ (let () (declare (not safe)) - (##car _%e146714146813%_)))) + (##car _%e146751146850%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146716146818%_)) - (let ((_%__splice147659147660%_ + _%tl146753146855%_)) + (let ((_%__splice147696147697%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl146716146818%_ + _%tl146753146855%_ '0)))) - (let ((_%tl146719146823%_ + (let ((_%tl146756146860%_ (let () (declare (not safe)) (##vector-ref - _%__splice147659147660%_ + _%__splice147696147697%_ '1))) - (_%target146717146821%_ + (_%target146754146858%_ (let () (declare (not safe)) (##vector-ref - _%__splice147659147660%_ + _%__splice147696147697%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146719146823%_)) - (_%__match147708147709%_ - _%e146696146881%_ - _%hd146697146884%_ - _%tl146698146886%_ - _%e146699146889%_ - _%hd146700146892%_ - _%tl146701146894%_ - _%e146714146813%_ - _%hd146715146816%_ - _%tl146716146818%_ - _%__splice147659147660%_ - _%target146717146821%_ - _%tl146719146823%_) - (_%__kont147661147662%_ - _%hd146703146900%_ - _%hd146700146892%_)))) - (_%__kont147661147662%_ - _%hd146703146900%_ - _%hd146700146892%_)))) - (_%__kont147661147662%_ - _%hd146703146900%_ - _%hd146700146892%_))))))) + _%tl146756146860%_)) + (_%__match147745147746%_ + _%e146733146918%_ + _%hd146734146921%_ + _%tl146735146923%_ + _%e146736146926%_ + _%hd146737146929%_ + _%tl146738146931%_ + _%e146751146850%_ + _%hd146752146853%_ + _%tl146753146855%_ + _%__splice147696147697%_ + _%target146754146858%_ + _%tl146756146860%_) + (_%__kont147698147699%_ + _%hd146740146937%_ + _%hd146737146929%_)))) + (_%__kont147698147699%_ + _%hd146740146937%_ + _%hd146737146929%_)))) + (_%__kont147698147699%_ + _%hd146740146937%_ + _%hd146737146929%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147653147654%_)) - (let ((_%e146696146881%_ + (gx#stx-pair? _%__stx147690147691%_)) + (let ((_%e146733146918%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147653147654%_)))) - (let ((_%tl146698146886%_ + (gx#stx-e _%__stx147690147691%_)))) + (let ((_%tl146735146923%_ (let () (declare (not safe)) - (##cdr _%e146696146881%_))) - (_%hd146697146884%_ + (##cdr _%e146733146918%_))) + (_%hd146734146921%_ (let () (declare (not safe)) - (##car _%e146696146881%_)))) + (##car _%e146733146918%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146698146886%_)) - (let ((_%e146699146889%_ + (gx#stx-pair? _%tl146735146923%_)) + (let ((_%e146736146926%_ (let () (declare (not safe)) - (gx#stx-e _%tl146698146886%_)))) - (let ((_%tl146701146894%_ + (gx#stx-e _%tl146735146923%_)))) + (let ((_%tl146738146931%_ (let () (declare (not safe)) - (##cdr _%e146699146889%_))) - (_%hd146700146892%_ + (##cdr _%e146736146926%_))) + (_%hd146737146929%_ (let () (declare (not safe)) - (##car _%e146699146889%_)))) + (##car _%e146736146926%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146701146894%_)) - (let ((_%e146702146897%_ + (gx#stx-pair? _%tl146738146931%_)) + (let ((_%e146739146934%_ (let () (declare (not safe)) - (gx#stx-e _%tl146701146894%_)))) - (let ((_%tl146704146902%_ + (gx#stx-e _%tl146738146931%_)))) + (let ((_%tl146741146939%_ (let () (declare (not safe)) - (##cdr _%e146702146897%_))) - (_%hd146703146900%_ + (##cdr _%e146739146934%_))) + (_%hd146740146937%_ (let () (declare (not safe)) - (##car _%e146702146897%_)))) + (##car _%e146739146934%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146704146902%_)) - (_%__match147682147683%_ - _%e146696146881%_ - _%hd146697146884%_ - _%tl146698146886%_ - _%e146699146889%_ - _%hd146700146892%_ - _%tl146701146894%_ - _%e146702146897%_ - _%hd146703146900%_ - _%tl146704146902%_) + (gx#stx-null? _%tl146741146939%_)) + (_%__match147719147720%_ + _%e146733146918%_ + _%hd146734146921%_ + _%tl146735146923%_ + _%e146736146926%_ + _%hd146737146929%_ + _%tl146738146931%_ + _%e146739146934%_ + _%hd146740146937%_ + _%tl146741146939%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd146700146892%_)) - (let ((_%e146714146813%_ + _%hd146737146929%_)) + (let ((_%e146751146850%_ (let () (declare (not safe)) (gx#stx-e - _%hd146700146892%_)))) - (let ((_%tl146716146818%_ + _%hd146737146929%_)))) + (let ((_%tl146753146855%_ (let () (declare (not safe)) - (##cdr _%e146714146813%_))) - (_%hd146715146816%_ + (##cdr _%e146751146850%_))) + (_%hd146752146853%_ (let () (declare (not safe)) - (##car _%e146714146813%_)))) + (##car _%e146751146850%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146716146818%_)) - (let ((_%__splice147659147660%_ + _%tl146753146855%_)) + (let ((_%__splice147696147697%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl146716146818%_ '0)))) - (let ((_%tl146719146823%_ + (gx#syntax-split-splice _%tl146753146855%_ '0)))) + (let ((_%tl146756146860%_ (let () (declare (not safe)) - (##vector-ref _%__splice147659147660%_ '1))) - (_%target146717146821%_ + (##vector-ref _%__splice147696147697%_ '1))) + (_%target146754146858%_ (let () (declare (not safe)) - (##vector-ref _%__splice147659147660%_ '0)))) + (##vector-ref _%__splice147696147697%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146719146823%_)) - (_%__match147708147709%_ - _%e146696146881%_ - _%hd146697146884%_ - _%tl146698146886%_ - _%e146699146889%_ - _%hd146700146892%_ - _%tl146701146894%_ - _%e146714146813%_ - _%hd146715146816%_ - _%tl146716146818%_ - _%__splice147659147660%_ - _%target146717146821%_ - _%tl146719146823%_) - (let () (declare (not safe)) (_%g146692146744%_))))) - (let () (declare (not safe)) (_%g146692146744%_))))) + (gx#stx-null? _%tl146756146860%_)) + (_%__match147745147746%_ + _%e146733146918%_ + _%hd146734146921%_ + _%tl146735146923%_ + _%e146736146926%_ + _%hd146737146929%_ + _%tl146738146931%_ + _%e146751146850%_ + _%hd146752146853%_ + _%tl146753146855%_ + _%__splice147696147697%_ + _%target146754146858%_ + _%tl146756146860%_) + (let () (declare (not safe)) (_%g146729146781%_))))) + (let () (declare (not safe)) (_%g146729146781%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g146692146744%_)))))) + (_%g146729146781%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146700146892%_)) - (let ((_%e146714146813%_ + (gx#stx-pair? _%hd146737146929%_)) + (let ((_%e146751146850%_ (let () (declare (not safe)) - (gx#stx-e _%hd146700146892%_)))) - (let ((_%tl146716146818%_ + (gx#stx-e _%hd146737146929%_)))) + (let ((_%tl146753146855%_ (let () (declare (not safe)) - (##cdr _%e146714146813%_))) - (_%hd146715146816%_ + (##cdr _%e146751146850%_))) + (_%hd146752146853%_ (let () (declare (not safe)) - (##car _%e146714146813%_)))) + (##car _%e146751146850%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146716146818%_)) - (let ((_%__splice147659147660%_ + _%tl146753146855%_)) + (let ((_%__splice147696147697%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl146716146818%_ + _%tl146753146855%_ '0)))) - (let ((_%tl146719146823%_ + (let ((_%tl146756146860%_ (let () (declare (not safe)) (##vector-ref - _%__splice147659147660%_ + _%__splice147696147697%_ '1))) - (_%target146717146821%_ + (_%target146754146858%_ (let () (declare (not safe)) (##vector-ref - _%__splice147659147660%_ + _%__splice147696147697%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146719146823%_)) - (_%__match147708147709%_ - _%e146696146881%_ - _%hd146697146884%_ - _%tl146698146886%_ - _%e146699146889%_ - _%hd146700146892%_ - _%tl146701146894%_ - _%e146714146813%_ - _%hd146715146816%_ - _%tl146716146818%_ - _%__splice147659147660%_ - _%target146717146821%_ - _%tl146719146823%_) + _%tl146756146860%_)) + (_%__match147745147746%_ + _%e146733146918%_ + _%hd146734146921%_ + _%tl146735146923%_ + _%e146736146926%_ + _%hd146737146929%_ + _%tl146738146931%_ + _%e146751146850%_ + _%hd146752146853%_ + _%tl146753146855%_ + _%__splice147696147697%_ + _%target146754146858%_ + _%tl146756146860%_) (let () (declare (not safe)) - (_%g146692146744%_))))) + (_%g146729146781%_))))) (let () (declare (not safe)) - (_%g146692146744%_))))) + (_%g146729146781%_))))) (let () (declare (not safe)) - (_%g146692146744%_)))))) - (let () (declare (not safe)) (_%g146692146744%_))))) - (let () (declare (not safe)) (_%g146692146744%_)))))))) + (_%g146729146781%_)))))) + (let () (declare (not safe)) (_%g146729146781%_))))) + (let () (declare (not safe)) (_%g146729146781%_)))))))) (define gxc#generate-runtime-declare% - (lambda (_%self146646%_ _%stx146647%_) - (let* ((_%g146649146659%_ - (lambda (_%g146650146656%_) + (lambda (_%self146683%_ _%stx146684%_) + (let* ((_%g146686146696%_ + (lambda (_%g146687146693%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146650146656%_)))) - (_%g146648146684%_ - (lambda (_%g146650146662%_) + _%g146687146693%_)))) + (_%g146685146721%_ + (lambda (_%g146687146699%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146650146662%_)) - (let ((_%e146652146664%_ + (gx#stx-pair? _%g146687146699%_)) + (let ((_%e146689146701%_ (let () (declare (not safe)) - (gx#stx-e _%g146650146662%_)))) - (let ((_%hd146653146667%_ + (gx#stx-e _%g146687146699%_)))) + (let ((_%hd146690146704%_ (let () (declare (not safe)) - (##car _%e146652146664%_))) - (_%tl146654146669%_ + (##car _%e146689146701%_))) + (_%tl146691146706%_ (let () (declare (not safe)) - (##cdr _%e146652146664%_)))) - ((lambda (_%L146672%_) - (let ((_%decls146682%_ - (map gx#syntax->datum _%L146672%_))) - (let ((__tmp149069 - (let ((__tmp149070 + (##cdr _%e146689146701%_)))) + ((lambda (_%L146709%_) + (let ((_%decls146719%_ + (map gx#syntax->datum _%L146709%_))) + (let ((__tmp149106 + (let ((__tmp149107 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) (__foldr1 cons - __tmp149070 - _%decls146682%_)))) + __tmp149107 + _%decls146719%_)))) (declare (not safe)) - (gxc#current-compile-decls __tmp149069)) - (cons 'declare _%decls146682%_))) - _%tl146654146669%_))) - (_%g146649146659%_ _%g146650146662%_))))) - (_%g146648146684%_ _%stx146647%_)))) + (gxc#current-compile-decls __tmp149106)) + (cons 'declare _%decls146719%_))) + _%tl146691146706%_))) + (_%g146686146696%_ _%g146687146699%_))))) + (_%g146685146721%_ _%stx146684%_)))) (define gxc#generate-runtime-define-values% - (lambda (_%self146392%_ _%stx146393%_) - (let* ((_%g146395146412%_ - (lambda (_%g146396146409%_) + (lambda (_%self146429%_ _%stx146430%_) + (let* ((_%g146432146449%_ + (lambda (_%g146433146446%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146396146409%_)))) - (_%g146394146643%_ - (lambda (_%g146396146415%_) + _%g146433146446%_)))) + (_%g146431146680%_ + (lambda (_%g146433146452%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146396146415%_)) - (let ((_%e146399146417%_ + (gx#stx-pair? _%g146433146452%_)) + (let ((_%e146436146454%_ (let () (declare (not safe)) - (gx#stx-e _%g146396146415%_)))) - (let ((_%hd146400146420%_ + (gx#stx-e _%g146433146452%_)))) + (let ((_%hd146437146457%_ (let () (declare (not safe)) - (##car _%e146399146417%_))) - (_%tl146401146422%_ + (##car _%e146436146454%_))) + (_%tl146438146459%_ (let () (declare (not safe)) - (##cdr _%e146399146417%_)))) + (##cdr _%e146436146454%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146401146422%_)) - (let ((_%e146402146425%_ + (gx#stx-pair? _%tl146438146459%_)) + (let ((_%e146439146462%_ (let () (declare (not safe)) - (gx#stx-e _%tl146401146422%_)))) - (let ((_%hd146403146428%_ + (gx#stx-e _%tl146438146459%_)))) + (let ((_%hd146440146465%_ (let () (declare (not safe)) - (##car _%e146402146425%_))) - (_%tl146404146430%_ + (##car _%e146439146462%_))) + (_%tl146441146467%_ (let () (declare (not safe)) - (##cdr _%e146402146425%_)))) + (##cdr _%e146439146462%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146404146430%_)) - (let ((_%e146405146433%_ + (gx#stx-pair? _%tl146441146467%_)) + (let ((_%e146442146470%_ (let () (declare (not safe)) - (gx#stx-e _%tl146404146430%_)))) - (let ((_%hd146406146436%_ + (gx#stx-e _%tl146441146467%_)))) + (let ((_%hd146443146473%_ (let () (declare (not safe)) - (##car _%e146405146433%_))) - (_%tl146407146438%_ + (##car _%e146442146470%_))) + (_%tl146444146475%_ (let () (declare (not safe)) - (##cdr _%e146405146433%_)))) + (##cdr _%e146442146470%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146407146438%_)) - ((lambda (_%L146441%_ - _%L146442%_) - (let* ((_%__stx147761147762%_ - _%L146442%_) - (_%g146459146473%_ + _%tl146444146475%_)) + ((lambda (_%L146478%_ + _%L146479%_) + (let* ((_%__stx147798147799%_ + _%L146479%_) + (_%g146496146510%_ (lambda () (let () (declare @@ -2915,304 +2915,304 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147761147762%_))))) - (let ((_%__kont147763147764%_ + _%__stx147798147799%_))))) + (let ((_%__kont147800147801%_ (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self146392%_ - _%L146441%_)))) - (_%__kont147765147766%_ - (lambda (_%L146605%_) - (let ((_%eid146614%_ + _%self146429%_ + _%L146478%_)))) + (_%__kont147802147803%_ + (lambda (_%L146642%_) + (let ((_%eid146651%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%L146605%_)))) - (let ((_%lambda-expr146615146617%_ - (gxc#apply-find-lambda-expression _%L146441%_))) - (if _%lambda-expr146615146617%_ - (let* ((_%lambda-expr146620%_ - _%lambda-expr146615146617%_) - (__tmp149071 + (gxc#generate-runtime-binding-id _%L146642%_)))) + (let ((_%lambda-expr146652146654%_ + (gxc#apply-find-lambda-expression _%L146478%_))) + (if _%lambda-expr146652146654%_ + (let* ((_%lambda-expr146657%_ + _%lambda-expr146652146654%_) + (__tmp149108 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) (hash-put! - __tmp149071 - _%lambda-expr146620%_ - _%eid146614%_)) + __tmp149108 + _%lambda-expr146657%_ + _%eid146651%_)) '#f)) (cons 'define - (cons _%eid146614%_ + (cons _%eid146651%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146392%_ - _%L146441%_)) + _%self146429%_ + _%L146478%_)) '())))))) - (_%__kont147767147768%_ + (_%__kont147804147805%_ (lambda () - (let* ((_%tmp146480%_ + (let* ((_%tmp146517%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%body146589%_ - (let _%lp146482%_ ((_%rest146484%_ _%L146442%_) - (_%k146485%_ '0) - (_%r146486%_ '())) - (let* ((_%__stx147731147732%_ _%rest146484%_) - (_%g146491146508%_ + (_%body146626%_ + (let _%lp146519%_ ((_%rest146521%_ _%L146479%_) + (_%k146522%_ '0) + (_%r146523%_ '())) + (let* ((_%__stx147768147769%_ _%rest146521%_) + (_%g146528146545%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147731147732%_))))) - (let ((_%__kont147733147734%_ - (lambda (_%L146576%_) - (_%lp146482%_ - _%L146576%_ + _%__stx147768147769%_))))) + (let ((_%__kont147770147771%_ + (lambda (_%L146613%_) + (_%lp146519%_ + _%L146613%_ (let () (declare (not safe)) - (##fx+ _%k146485%_ '1)) - _%r146486%_))) - (_%__kont147735147736%_ - (lambda (_%L146549%_ _%L146550%_) - (_%lp146482%_ - _%L146549%_ + (##fx+ _%k146522%_ '1)) + _%r146523%_))) + (_%__kont147772147773%_ + (lambda (_%L146586%_ _%L146587%_) + (_%lp146519%_ + _%L146586%_ (let () (declare (not safe)) - (##fx+ _%k146485%_ '1)) + (##fx+ _%k146522%_ '1)) (cons (cons 'define (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L146550%_)) + _%L146587%_)) (cons (gxc#generate-runtime-values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tmp146480%_ - _%k146485%_ - _%L146549%_) + _%tmp146517%_ + _%k146522%_ + _%L146586%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r146486%_)))) - (_%__kont147737147738%_ - (lambda (_%L146520%_) - (let ((__tmp149072 + _%r146523%_)))) + (_%__kont147774147775%_ + (lambda (_%L146557%_) + (let ((__tmp149109 (cons (cons 'define (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-binding-id _%L146520%_)) + (gxc#generate-runtime-binding-id _%L146557%_)) (cons (gxc#generate-runtime-values->list - _%tmp146480%_ - _%k146485%_) + _%tmp146517%_ + _%k146522%_) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp149072 - _%r146486%_)))) - (_%__kont147739147740%_ - (lambda () (reverse _%r146486%_)))) - (let ((_%g146489146536%_ + __tmp149109 + _%r146523%_)))) + (_%__kont147776147777%_ + (lambda () (reverse _%r146523%_)))) + (let ((_%g146526146573%_ (lambda () - (let ((_%L146520%_ - _%__stx147731147732%_)) + (let ((_%L146557%_ + _%__stx147768147769%_)) (if (let () (declare (not safe)) (gx#identifier? - _%L146520%_)) - (_%__kont147737147738%_ - _%L146520%_) - (_%__kont147739147740%_)))))) + _%L146557%_)) + (_%__kont147774147775%_ + _%L146557%_) + (_%__kont147776147777%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147731147732%_)) - (let ((_%e146494146565%_ + (gx#stx-pair? _%__stx147768147769%_)) + (let ((_%e146531146602%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147731147732%_)))) - (let ((_%tl146496146570%_ + _%__stx147768147769%_)))) + (let ((_%tl146533146607%_ (let () (declare (not safe)) - (##cdr _%e146494146565%_))) - (_%hd146495146568%_ + (##cdr _%e146531146602%_))) + (_%hd146532146605%_ (let () (declare (not safe)) - (##car _%e146494146565%_)))) + (##car _%e146531146602%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd146495146568%_)) - (let ((_%e146497146573%_ + _%hd146532146605%_)) + (let ((_%e146534146610%_ (let () (declare (not safe)) (gx#stx-e - _%hd146495146568%_)))) - (if (equal? _%e146497146573%_ + _%hd146532146605%_)))) + (if (equal? _%e146534146610%_ '#f) - (_%__kont147733147734%_ - _%tl146496146570%_) - (_%__kont147735147736%_ - _%tl146496146570%_ - _%hd146495146568%_))) - (_%__kont147735147736%_ - _%tl146496146570%_ - _%hd146495146568%_)))) + (_%__kont147770147771%_ + _%tl146533146607%_) + (_%__kont147772147773%_ + _%tl146533146607%_ + _%hd146532146605%_))) + (_%__kont147772147773%_ + _%tl146533146607%_ + _%hd146532146605%_)))) (let () (declare (not safe)) - (_%g146489146536%_))))))))) + (_%g146526146573%_))))))))) (cons 'begin (cons (cons 'define - (cons _%tmp146480%_ + (cons _%tmp146517%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146392%_ - _%L146441%_)) + _%self146429%_ + _%L146478%_)) '()))) (cons (gxc#generate-runtime-check-values - _%tmp146480%_ - _%L146442%_ - _%L146441%_) - _%body146589%_))))))) + _%tmp146517%_ + _%L146479%_ + _%L146478%_) + _%body146626%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147761147762%_)) - (let ((_%e146461146627%_ + _%__stx147798147799%_)) + (let ((_%e146498146664%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx147761147762%_)))) - (let ((_%tl146463146632%_ + (gx#stx-e _%__stx147798147799%_)))) + (let ((_%tl146500146669%_ (let () (declare (not safe)) - (##cdr _%e146461146627%_))) - (_%hd146462146630%_ + (##cdr _%e146498146664%_))) + (_%hd146499146667%_ (let () (declare (not safe)) - (##car _%e146461146627%_)))) + (##car _%e146498146664%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd146462146630%_)) - (let ((_%e146464146635%_ + (gx#stx-datum? _%hd146499146667%_)) + (let ((_%e146501146672%_ (let () (declare (not safe)) - (gx#stx-e _%hd146462146630%_)))) - (if (equal? _%e146464146635%_ '#f) + (gx#stx-e _%hd146499146667%_)))) + (if (equal? _%e146501146672%_ '#f) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146463146632%_)) - (_%__kont147763147764%_) - (_%__kont147767147768%_)) + (gx#stx-null? _%tl146500146669%_)) + (_%__kont147800147801%_) + (_%__kont147804147805%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146463146632%_)) - (_%__kont147765147766%_ _%hd146462146630%_) - (_%__kont147767147768%_)))) + (gx#stx-null? _%tl146500146669%_)) + (_%__kont147802147803%_ _%hd146499146667%_) + (_%__kont147804147805%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146463146632%_)) - (_%__kont147765147766%_ _%hd146462146630%_) - (_%__kont147767147768%_))))) - (_%__kont147767147768%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd146406146436%_ - _%hd146403146428%_) - (_%g146395146412%_ - _%g146396146415%_)))) - (_%g146395146412%_ _%g146396146415%_)))) - (_%g146395146412%_ _%g146396146415%_)))) - (_%g146395146412%_ _%g146396146415%_))))) - (_%g146394146643%_ _%stx146393%_)))) + (gx#stx-null? _%tl146500146669%_)) + (_%__kont147802147803%_ _%hd146499146667%_) + (_%__kont147804147805%_))))) + (_%__kont147804147805%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd146443146473%_ + _%hd146440146465%_) + (_%g146432146449%_ + _%g146433146452%_)))) + (_%g146432146449%_ _%g146433146452%_)))) + (_%g146432146449%_ _%g146433146452%_)))) + (_%g146432146449%_ _%g146433146452%_))))) + (_%g146431146680%_ _%stx146430%_)))) (define gxc#generate-runtime-check-values - (lambda (_%vals146367%_ _%hd146368%_ _%expr146369%_) - (let ((_%$e146371%_ (gxc#apply-count-values _%expr146369%_))) - (if _%$e146371%_ - ((lambda (_%count146374%_) - (let ((_%len146376%_ + (lambda (_%vals146404%_ _%hd146405%_ _%expr146406%_) + (let ((_%$e146408%_ (gxc#apply-count-values _%expr146406%_))) + (if _%$e146408%_ + ((lambda (_%count146411%_) + (let ((_%len146413%_ (let () (declare (not safe)) - (gx#stx-length _%hd146368%_))) - (_%cmp146377%_ + (gx#stx-length _%hd146405%_))) + (_%cmp146414%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd146368%_)) + (gx#stx-list? _%hd146405%_)) fx= fx>=))) (if (or (let () (declare (not safe)) - (##fx= _%len146376%_ '0)) - (_%cmp146377%_ _%count146374%_ _%len146376%_)) + (##fx= _%len146413%_ '0)) + (_%cmp146414%_ _%count146411%_ _%len146413%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _%expr146369%_ - _%hd146368%_))))) - _%$e146371%_) - (let* ((_%len146383%_ + _%expr146406%_ + _%hd146405%_))))) + _%$e146408%_) + (let* ((_%len146420%_ (let () (declare (not safe)) - (gx#stx-length _%hd146368%_))) - (_%cmp146385%_ + (gx#stx-length _%hd146405%_))) + (_%cmp146422%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd146368%_)) + (gx#stx-list? _%hd146405%_)) '##fx= '##fx>=)) - (_%errmsg146387%_ - (let ((__tmp149074 + (_%errmsg146424%_ + (let ((__tmp149111 (if (let () (declare (not safe)) - (gx#stx-list? _%hd146368%_)) + (gx#stx-list? _%hd146405%_)) '"Context expects " '"Context expects at least ")) - (__tmp149073 (number->string _%len146383%_))) + (__tmp149110 (number->string _%len146420%_))) (declare (not safe)) - (##string-append __tmp149074 __tmp149073 '" values"))) - (_%count146389%_ + (##string-append __tmp149111 __tmp149110 '" values"))) + (_%count146426%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) (if (if (let () (declare (not safe)) - (gx#stx-list? _%hd146368%_)) + (gx#stx-list? _%hd146405%_)) '#f - (let () (declare (not safe)) (##fx= _%len146383%_ '0))) + (let () (declare (not safe)) (##fx= _%len146420%_ '0))) '#!void (cons 'let - (cons (cons (cons _%count146389%_ + (cons (cons (cons _%count146426%_ (cons (gxc#generate-runtime-values-count - _%vals146367%_) + _%vals146404%_) '())) '()) (cons (cons 'if (cons (cons 'not (cons (if (gxc#current-compile-decls-unsafe?) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%cmp146385%_ - (cons _%count146389%_ - (cons _%len146383%_ '()))) + (cons _%cmp146422%_ + (cons _%count146426%_ + (cons _%len146420%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (cons _%cmp146385%_ - (cons _%count146389%_ - (cons _%len146383%_ + (cons (cons _%cmp146422%_ + (cons _%count146426%_ + (cons _%len146420%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3220,82 +3220,82 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'error - (cons _%errmsg146387%_ + (cons _%errmsg146424%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%count146389%_ '()))) + (cons _%count146426%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-values-count - (lambda (_%var146362%_) - (letrec ((_%generate-inline146364%_ + (lambda (_%var146399%_) + (letrec ((_%generate-inline146401%_ (lambda () (cons 'if - (cons (cons '##values? (cons _%var146362%_ '())) + (cons (cons '##values? (cons _%var146399%_ '())) (cons (cons '##vector-length - (cons _%var146362%_ '())) + (cons _%var146399%_ '())) (cons '1 '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline146364%_) + (_%generate-inline146401%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline146364%_) '())))))))) + (cons (_%generate-inline146401%_) '())))))))) (define gxc#generate-runtime-values-ref - (lambda (_%var146355%_ _%i146356%_ _%rest146357%_) - (letrec ((_%generate-inline146359%_ + (lambda (_%var146392%_ _%i146393%_ _%rest146394%_) + (letrec ((_%generate-inline146396%_ (lambda () (if (and (let () (declare (not safe)) - (##fx= _%i146356%_ '0)) + (##fx= _%i146393%_ '0)) (not (let () (declare (not safe)) - (gx#stx-pair? _%rest146357%_)))) + (gx#stx-pair? _%rest146394%_)))) (cons 'if - (cons (cons '##values? (cons _%var146355%_ '())) + (cons (cons '##values? (cons _%var146392%_ '())) (cons (cons '##vector-ref - (cons _%var146355%_ + (cons _%var146392%_ (cons '0 '()))) - (cons _%var146355%_ '())))) + (cons _%var146392%_ '())))) (cons '##vector-ref - (cons _%var146355%_ (cons _%i146356%_ '()))))))) + (cons _%var146392%_ (cons _%i146393%_ '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline146359%_) + (_%generate-inline146396%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline146359%_) '())))))))) + (cons (_%generate-inline146396%_) '())))))))) (define gxc#generate-runtime-values->list - (lambda (_%var146349%_ _%i146350%_) - (if (let () (declare (not safe)) (##fx= _%i146350%_ '0)) + (lambda (_%var146386%_ _%i146387%_) + (if (let () (declare (not safe)) (##fx= _%i146387%_ '0)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var146349%_ '())) + (cons (cons '##values? (cons _%var146386%_ '())) (cons (cons '##vector->list - (cons _%var146349%_ '())) - (cons (cons 'list (cons _%var146349%_ '())) + (cons _%var146386%_ '())) + (cons (cons 'list (cons _%var146386%_ '())) '())))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var146349%_ + (cons _%var146386%_ '())) (cons (cons '##vector->list - (cons _%var146349%_ + (cons _%var146386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons 'list (cons _%var146349%_ '())) '())))) + (cons (cons 'list (cons _%var146386%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (if (let () (declare (not safe)) (##fx= _%i146350%_ '1)) + (if (let () (declare (not safe)) (##fx= _%i146387%_ '1)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var146349%_ '())) + (cons (cons '##values? (cons _%var146386%_ '())) (cons (cons '##cdr (cons (cons '##vector->list - (cons _%var146349%_ + (cons _%var146386%_ '())) '())) (cons ''() '())))) @@ -3304,8267 +3304,8267 @@ (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var146349%_ + (cons _%var146386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '##cdr (cons (cons '##vector->list - (cons _%var146349%_ '())) + (cons _%var146386%_ '())) '())) (cons ''() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (if (gxc#current-compile-decls-unsafe?) (cons '##list-tail - (cons (cons '##vector->list (cons _%var146349%_ '())) - (cons _%i146350%_ '()))) + (cons (cons '##vector->list (cons _%var146386%_ '())) + (cons _%i146387%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##list-tail (cons (cons '##vector->list - (cons _%var146349%_ + (cons _%var146386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%i146350%_ '()))) + (cons _%i146387%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-lambda% - (lambda (_%self146281%_ _%stx146282%_) - (let* ((_%g146284146301%_ - (lambda (_%g146285146298%_) + (lambda (_%self146318%_ _%stx146319%_) + (let* ((_%g146321146338%_ + (lambda (_%g146322146335%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146285146298%_)))) - (_%g146283146346%_ - (lambda (_%g146285146304%_) + _%g146322146335%_)))) + (_%g146320146383%_ + (lambda (_%g146322146341%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146285146304%_)) - (let ((_%e146288146306%_ + (gx#stx-pair? _%g146322146341%_)) + (let ((_%e146325146343%_ (let () (declare (not safe)) - (gx#stx-e _%g146285146304%_)))) - (let ((_%hd146289146309%_ + (gx#stx-e _%g146322146341%_)))) + (let ((_%hd146326146346%_ (let () (declare (not safe)) - (##car _%e146288146306%_))) - (_%tl146290146311%_ + (##car _%e146325146343%_))) + (_%tl146327146348%_ (let () (declare (not safe)) - (##cdr _%e146288146306%_)))) + (##cdr _%e146325146343%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146290146311%_)) - (let ((_%e146291146314%_ + (gx#stx-pair? _%tl146327146348%_)) + (let ((_%e146328146351%_ (let () (declare (not safe)) - (gx#stx-e _%tl146290146311%_)))) - (let ((_%hd146292146317%_ + (gx#stx-e _%tl146327146348%_)))) + (let ((_%hd146329146354%_ (let () (declare (not safe)) - (##car _%e146291146314%_))) - (_%tl146293146319%_ + (##car _%e146328146351%_))) + (_%tl146330146356%_ (let () (declare (not safe)) - (##cdr _%e146291146314%_)))) + (##cdr _%e146328146351%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146293146319%_)) - (let ((_%e146294146322%_ + (gx#stx-pair? _%tl146330146356%_)) + (let ((_%e146331146359%_ (let () (declare (not safe)) - (gx#stx-e _%tl146293146319%_)))) - (let ((_%hd146295146325%_ + (gx#stx-e _%tl146330146356%_)))) + (let ((_%hd146332146362%_ (let () (declare (not safe)) - (##car _%e146294146322%_))) - (_%tl146296146327%_ + (##car _%e146331146359%_))) + (_%tl146333146364%_ (let () (declare (not safe)) - (##cdr _%e146294146322%_)))) + (##cdr _%e146331146359%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146296146327%_)) - ((lambda (_%L146330%_ - _%L146331%_) + _%tl146333146364%_)) + ((lambda (_%L146367%_ + _%L146368%_) (gxc#generate-runtime-lambda-form - _%self146281%_ - _%L146331%_ - _%L146330%_)) - _%hd146295146325%_ - _%hd146292146317%_) - (_%g146284146301%_ - _%g146285146304%_)))) - (_%g146284146301%_ _%g146285146304%_)))) - (_%g146284146301%_ _%g146285146304%_)))) - (_%g146284146301%_ _%g146285146304%_))))) - (_%g146283146346%_ _%stx146282%_)))) + _%self146318%_ + _%L146368%_ + _%L146367%_)) + _%hd146332146362%_ + _%hd146329146354%_) + (_%g146321146338%_ + _%g146322146341%_)))) + (_%g146321146338%_ _%g146322146341%_)))) + (_%g146321146338%_ _%g146322146341%_)))) + (_%g146321146338%_ _%g146322146341%_))))) + (_%g146320146383%_ _%stx146319%_)))) (define gxc#generate-runtime-lambda-form - (lambda (_%self146240%_ _%hd146241%_ _%body146242%_) - (let* ((_%hd146244%_ (gxc#generate-runtime-lambda-head _%hd146241%_)) - (_%body146246%_ + (lambda (_%self146277%_ _%hd146278%_ _%body146279%_) + (let* ((_%hd146281%_ (gxc#generate-runtime-lambda-head _%hd146278%_)) + (_%body146283%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self146240%_ _%body146242%_))) - (_%body146278%_ - (let* ((_%body146247146255%_ _%body146246%_) - (_%else146249146263%_ - (lambda () (cons _%body146246%_ '()))) - (_%K146251146268%_ - (lambda (_%exprs146266%_) _%exprs146266%_))) - (if (pair? _%body146247146255%_) - (let ((_%hd146252146271%_ + (gxc#compile-e__1 _%self146277%_ _%body146279%_))) + (_%body146315%_ + (let* ((_%body146284146292%_ _%body146283%_) + (_%else146286146300%_ + (lambda () (cons _%body146283%_ '()))) + (_%K146288146305%_ + (lambda (_%exprs146303%_) _%exprs146303%_))) + (if (pair? _%body146284146292%_) + (let ((_%hd146289146308%_ (let () (declare (not safe)) - (##car _%body146247146255%_))) - (_%tl146253146273%_ + (##car _%body146284146292%_))) + (_%tl146290146310%_ (let () (declare (not safe)) - (##cdr _%body146247146255%_)))) + (##cdr _%body146284146292%_)))) (if (let () (declare (not safe)) - (##eq? _%hd146252146271%_ 'begin)) - (let ((_%exprs146276%_ _%tl146253146273%_)) - (_%K146251146268%_ _%exprs146276%_)) - (_%else146249146263%_))) - (_%else146249146263%_))))) - (cons 'lambda (cons _%hd146244%_ _%body146278%_))))) + (##eq? _%hd146289146308%_ 'begin)) + (let ((_%exprs146313%_ _%tl146290146310%_)) + (_%K146288146305%_ _%exprs146313%_)) + (_%else146286146300%_))) + (_%else146286146300%_))))) + (cons 'lambda (cons _%hd146281%_ _%body146315%_))))) (define gxc#generate-runtime-lambda-head - (lambda (_%hd146238%_) + (lambda (_%hd146275%_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd146238%_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd146275%_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_%self144777%_ _%stx144778%_) - (letrec ((_%dispatch-case?144780%_ - (lambda (_%hd145468%_ _%body145469%_) - (let* ((_%form145471%_ - (cons _%hd145468%_ (cons _%body145469%_ '()))) - (_%__stx147793147794%_ _%form145471%_) - (_%g145476145633%_ + (lambda (_%self144814%_ _%stx144815%_) + (letrec ((_%dispatch-case?144817%_ + (lambda (_%hd145505%_ _%body145506%_) + (let* ((_%form145508%_ + (cons _%hd145505%_ (cons _%body145506%_ '()))) + (_%__stx147830147831%_ _%form145508%_) + (_%g145513145670%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147793147794%_))))) - (let ((_%__kont147795147796%_ - (lambda (_%L146158%_ _%L146159%_ _%L146160%_) + _%__stx147830147831%_))))) + (let ((_%__kont147832147833%_ + (lambda (_%L146195%_ _%L146196%_ _%L146197%_) '#t)) - (_%__kont147801147802%_ - (lambda (_%L145946%_ - _%L145947%_ - _%L145948%_ - _%L145949%_ - _%L145950%_ - _%L145951%_) + (_%__kont147838147839%_ + (lambda (_%L145983%_ + _%L145984%_ + _%L145985%_ + _%L145986%_ + _%L145987%_ + _%L145988%_) '#t)) - (_%__kont147807147808%_ - (lambda (_%L145741%_ - _%L145742%_ - _%L145743%_ - _%L145744%_) + (_%__kont147844147845%_ + (lambda (_%L145778%_ + _%L145779%_ + _%L145780%_ + _%L145781%_) '#t)) - (_%__kont147809147810%_ (lambda () '#f))) - (let* ((_%__match147934147935%_ - (lambda (_%e145593145645%_ - _%hd145594145648%_ - _%tl145595145650%_ - _%e145596145653%_ - _%hd145597145656%_ - _%tl145598145658%_ - _%e145599145661%_ - _%hd145600145664%_ - _%tl145601145666%_ - _%e145602145669%_ - _%hd145603145672%_ - _%tl145604145674%_ - _%e145605145677%_ - _%hd145606145680%_ - _%tl145607145682%_ - _%e145608145685%_ - _%hd145609145688%_ - _%tl145610145690%_ - _%e145611145693%_ - _%hd145612145696%_ - _%tl145613145698%_ - _%e145614145701%_ - _%hd145615145704%_ - _%tl145616145706%_ - _%e145617145709%_ - _%hd145618145712%_ - _%tl145619145714%_ - _%e145620145717%_ - _%hd145621145720%_ - _%tl145622145722%_ - _%e145623145725%_ - _%hd145624145728%_ - _%tl145625145730%_ - _%e145626145733%_ - _%hd145627145736%_ - _%tl145628145738%_) - (let ((_%L145741%_ _%hd145627145736%_) - (_%L145742%_ _%hd145618145712%_) - (_%L145743%_ _%hd145609145688%_) - (_%L145744%_ _%hd145594145648%_)) + (_%__kont147846147847%_ (lambda () '#f))) + (let* ((_%__match147971147972%_ + (lambda (_%e145630145682%_ + _%hd145631145685%_ + _%tl145632145687%_ + _%e145633145690%_ + _%hd145634145693%_ + _%tl145635145695%_ + _%e145636145698%_ + _%hd145637145701%_ + _%tl145638145703%_ + _%e145639145706%_ + _%hd145640145709%_ + _%tl145641145711%_ + _%e145642145714%_ + _%hd145643145717%_ + _%tl145644145719%_ + _%e145645145722%_ + _%hd145646145725%_ + _%tl145647145727%_ + _%e145648145730%_ + _%hd145649145733%_ + _%tl145650145735%_ + _%e145651145738%_ + _%hd145652145741%_ + _%tl145653145743%_ + _%e145654145746%_ + _%hd145655145749%_ + _%tl145656145751%_ + _%e145657145754%_ + _%hd145658145757%_ + _%tl145659145759%_ + _%e145660145762%_ + _%hd145661145765%_ + _%tl145662145767%_ + _%e145663145770%_ + _%hd145664145773%_ + _%tl145665145775%_) + (let ((_%L145778%_ _%hd145664145773%_) + (_%L145779%_ _%hd145655145749%_) + (_%L145780%_ _%hd145646145725%_) + (_%L145781%_ _%hd145631145685%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L145744%_)) + (gx#identifier? _%L145781%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L145743%_ + _%L145780%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L145744%_ - _%L145741%_)) + _%L145781%_ + _%L145778%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L145742%_ - _%L145744%_)))) - (_%__kont147807147808%_ - _%L145741%_ - _%L145742%_ - _%L145743%_ - _%L145744%_) - (_%__kont147809147810%_))))) - (_%__match147906147907%_ - (lambda (_%e145593145645%_ - _%hd145594145648%_ - _%tl145595145650%_ - _%e145596145653%_ - _%hd145597145656%_ - _%tl145598145658%_ - _%e145599145661%_ - _%hd145600145664%_ - _%tl145601145666%_ - _%e145602145669%_ - _%hd145603145672%_ - _%tl145604145674%_ - _%e145605145677%_ - _%hd145606145680%_ - _%tl145607145682%_ - _%e145608145685%_ - _%hd145609145688%_ - _%tl145610145690%_ - _%e145611145693%_ - _%hd145612145696%_ - _%tl145613145698%_ - _%e145614145701%_ - _%hd145615145704%_ - _%tl145616145706%_ - _%e145617145709%_ - _%hd145618145712%_ - _%tl145619145714%_) + _%L145779%_ + _%L145781%_)))) + (_%__kont147844147845%_ + _%L145778%_ + _%L145779%_ + _%L145780%_ + _%L145781%_) + (_%__kont147846147847%_))))) + (_%__match147943147944%_ + (lambda (_%e145630145682%_ + _%hd145631145685%_ + _%tl145632145687%_ + _%e145633145690%_ + _%hd145634145693%_ + _%tl145635145695%_ + _%e145636145698%_ + _%hd145637145701%_ + _%tl145638145703%_ + _%e145639145706%_ + _%hd145640145709%_ + _%tl145641145711%_ + _%e145642145714%_ + _%hd145643145717%_ + _%tl145644145719%_ + _%e145645145722%_ + _%hd145646145725%_ + _%tl145647145727%_ + _%e145648145730%_ + _%hd145649145733%_ + _%tl145650145735%_ + _%e145651145738%_ + _%hd145652145741%_ + _%tl145653145743%_ + _%e145654145746%_ + _%hd145655145749%_ + _%tl145656145751%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145613145698%_)) - (let ((_%e145620145717%_ + (gx#stx-pair? _%tl145650145735%_)) + (let ((_%e145657145754%_ (let () (declare (not safe)) - (gx#stx-e _%tl145613145698%_)))) - (let ((_%tl145622145722%_ + (gx#stx-e _%tl145650145735%_)))) + (let ((_%tl145659145759%_ (let () (declare (not safe)) - (##cdr _%e145620145717%_))) - (_%hd145621145720%_ + (##cdr _%e145657145754%_))) + (_%hd145658145757%_ (let () (declare (not safe)) - (##car _%e145620145717%_)))) + (##car _%e145657145754%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145621145720%_)) - (let ((_%e145623145725%_ + _%hd145658145757%_)) + (let ((_%e145660145762%_ (let () (declare (not safe)) (gx#stx-e - _%hd145621145720%_)))) - (let ((_%tl145625145730%_ + _%hd145658145757%_)))) + (let ((_%tl145662145767%_ (let () (declare (not safe)) - (##cdr _%e145623145725%_))) - (_%hd145624145728%_ + (##cdr _%e145660145762%_))) + (_%hd145661145765%_ (let () (declare (not safe)) - (##car _%e145623145725%_)))) + (##car _%e145660145762%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145624145728%_)) + _%hd145661145765%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145624145728%_)) + _%hd145661145765%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145625145730%_)) - (let ((_%e145626145733%_ + (gx#stx-pair? _%tl145662145767%_)) + (let ((_%e145663145770%_ (let () (declare (not safe)) - (gx#stx-e _%tl145625145730%_)))) - (let ((_%tl145628145738%_ + (gx#stx-e _%tl145662145767%_)))) + (let ((_%tl145665145775%_ (let () (declare (not safe)) - (##cdr _%e145626145733%_))) - (_%hd145627145736%_ + (##cdr _%e145663145770%_))) + (_%hd145664145773%_ (let () (declare (not safe)) - (##car _%e145626145733%_)))) + (##car _%e145663145770%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145628145738%_)) + (gx#stx-null? _%tl145665145775%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145622145722%_)) + (gx#stx-null? _%tl145659145759%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145598145658%_)) - (_%__match147934147935%_ - _%e145593145645%_ - _%hd145594145648%_ - _%tl145595145650%_ - _%e145596145653%_ - _%hd145597145656%_ - _%tl145598145658%_ - _%e145599145661%_ - _%hd145600145664%_ - _%tl145601145666%_ - _%e145602145669%_ - _%hd145603145672%_ - _%tl145604145674%_ - _%e145605145677%_ - _%hd145606145680%_ - _%tl145607145682%_ - _%e145608145685%_ - _%hd145609145688%_ - _%tl145610145690%_ - _%e145611145693%_ - _%hd145612145696%_ - _%tl145613145698%_ - _%e145614145701%_ - _%hd145615145704%_ - _%tl145616145706%_ - _%e145617145709%_ - _%hd145618145712%_ - _%tl145619145714%_ - _%e145620145717%_ - _%hd145621145720%_ - _%tl145622145722%_ - _%e145623145725%_ - _%hd145624145728%_ - _%tl145625145730%_ - _%e145626145733%_ - _%hd145627145736%_ - _%tl145628145738%_) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)))) - (_%__match147836147837%_ - (lambda (_%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%__splice147803147804%_ - _%target145532145794%_ - _%tl145534145796%_) - (letrec ((_%loop145535145799%_ - (lambda (_%hd145533145802%_ - _%arg145539145804%_) + (gx#stx-null? _%tl145635145695%_)) + (_%__match147971147972%_ + _%e145630145682%_ + _%hd145631145685%_ + _%tl145632145687%_ + _%e145633145690%_ + _%hd145634145693%_ + _%tl145635145695%_ + _%e145636145698%_ + _%hd145637145701%_ + _%tl145638145703%_ + _%e145639145706%_ + _%hd145640145709%_ + _%tl145641145711%_ + _%e145642145714%_ + _%hd145643145717%_ + _%tl145644145719%_ + _%e145645145722%_ + _%hd145646145725%_ + _%tl145647145727%_ + _%e145648145730%_ + _%hd145649145733%_ + _%tl145650145735%_ + _%e145651145738%_ + _%hd145652145741%_ + _%tl145653145743%_ + _%e145654145746%_ + _%hd145655145749%_ + _%tl145656145751%_ + _%e145657145754%_ + _%hd145658145757%_ + _%tl145659145759%_ + _%e145660145762%_ + _%hd145661145765%_ + _%tl145662145767%_ + _%e145663145770%_ + _%hd145664145773%_ + _%tl145665145775%_) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)))) + (_%__match147873147874%_ + (lambda (_%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%__splice147840147841%_ + _%target145569145831%_ + _%tl145571145833%_) + (letrec ((_%loop145572145836%_ + (lambda (_%hd145570145839%_ + _%arg145576145841%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145533145802%_)) - (let ((_%e145536145807%_ + _%hd145570145839%_)) + (let ((_%e145573145844%_ (let () (declare (not safe)) (gx#stx-e - _%hd145533145802%_)))) - (let ((_%lp-tl145538145812%_ + _%hd145570145839%_)))) + (let ((_%lp-tl145575145849%_ (let () (declare (not safe)) - (##cdr _%e145536145807%_))) - (_%lp-hd145537145810%_ + (##cdr _%e145573145844%_))) + (_%lp-hd145574145847%_ (let () (declare (not safe)) - (##car _%e145536145807%_)))) - (_%loop145535145799%_ - _%lp-tl145538145812%_ - (cons _%lp-hd145537145810%_ - _%arg145539145804%_)))) - (let ((_%arg145540145815%_ - (reverse _%arg145539145804%_))) + (##car _%e145573145844%_)))) + (_%loop145572145836%_ + _%lp-tl145575145849%_ + (cons _%lp-hd145574145847%_ + _%arg145576145841%_)))) + (let ((_%arg145577145852%_ + (reverse _%arg145576145841%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145531145791%_)) - (let ((_%e145541145818%_ + _%tl145568145828%_)) + (let ((_%e145578145855%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145531145791%_)))) - (let ((_%tl145543145823%_ + (gx#stx-e _%tl145568145828%_)))) + (let ((_%tl145580145860%_ (let () (declare (not safe)) - (##cdr _%e145541145818%_))) - (_%hd145542145821%_ + (##cdr _%e145578145855%_))) + (_%hd145579145858%_ (let () (declare (not safe)) - (##car _%e145541145818%_)))) + (##car _%e145578145855%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145542145821%_)) - (let ((_%e145544145826%_ + (gx#stx-pair? _%hd145579145858%_)) + (let ((_%e145581145863%_ (let () (declare (not safe)) - (gx#stx-e _%hd145542145821%_)))) - (let ((_%tl145546145831%_ + (gx#stx-e _%hd145579145858%_)))) + (let ((_%tl145583145868%_ (let () (declare (not safe)) - (##cdr _%e145544145826%_))) - (_%hd145545145829%_ + (##cdr _%e145581145863%_))) + (_%hd145582145866%_ (let () (declare (not safe)) - (##car _%e145544145826%_)))) + (##car _%e145581145863%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145545145829%_)) + (gx#identifier? _%hd145582145866%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145545145829%_)) + (gx#stx-eq? '%#call _%hd145582145866%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145546145831%_)) - (let ((_%e145547145834%_ + (gx#stx-pair? _%tl145583145868%_)) + (let ((_%e145584145871%_ (let () (declare (not safe)) (gx#stx-e - _%tl145546145831%_)))) - (let ((_%tl145549145839%_ + _%tl145583145868%_)))) + (let ((_%tl145586145876%_ (let () (declare (not safe)) - (##cdr _%e145547145834%_))) - (_%hd145548145837%_ + (##cdr _%e145584145871%_))) + (_%hd145585145874%_ (let () (declare (not safe)) - (##car _%e145547145834%_)))) + (##car _%e145584145871%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145548145837%_)) - (let ((_%e145550145842%_ + _%hd145585145874%_)) + (let ((_%e145587145879%_ (let () (declare (not safe)) (gx#stx-e - _%hd145548145837%_)))) - (let ((_%tl145552145847%_ + _%hd145585145874%_)))) + (let ((_%tl145589145884%_ (let () (declare (not safe)) - (##cdr _%e145550145842%_))) - (_%hd145551145845%_ + (##cdr _%e145587145879%_))) + (_%hd145588145882%_ (let () (declare (not safe)) - (##car _%e145550145842%_)))) + (##car _%e145587145879%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145551145845%_)) + _%hd145588145882%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145551145845%_)) + _%hd145588145882%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145552145847%_)) - (let ((_%e145553145850%_ + (gx#stx-pair? _%tl145589145884%_)) + (let ((_%e145590145887%_ (let () (declare (not safe)) - (gx#stx-e _%tl145552145847%_)))) - (let ((_%tl145555145855%_ + (gx#stx-e _%tl145589145884%_)))) + (let ((_%tl145592145892%_ (let () (declare (not safe)) - (##cdr _%e145553145850%_))) - (_%hd145554145853%_ + (##cdr _%e145590145887%_))) + (_%hd145591145890%_ (let () (declare (not safe)) - (##car _%e145553145850%_)))) + (##car _%e145590145887%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145555145855%_)) + (gx#stx-null? _%tl145592145892%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145549145839%_)) - (let ((_%e145556145858%_ + (gx#stx-pair? _%tl145586145876%_)) + (let ((_%e145593145895%_ (let () (declare (not safe)) - (gx#stx-e _%tl145549145839%_)))) - (let ((_%tl145558145863%_ + (gx#stx-e _%tl145586145876%_)))) + (let ((_%tl145595145900%_ (let () (declare (not safe)) - (##cdr _%e145556145858%_))) - (_%hd145557145861%_ + (##cdr _%e145593145895%_))) + (_%hd145594145898%_ (let () (declare (not safe)) - (##car _%e145556145858%_)))) + (##car _%e145593145895%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145557145861%_)) - (let ((_%e145559145866%_ + _%hd145594145898%_)) + (let ((_%e145596145903%_ (let () (declare (not safe)) (gx#stx-e - _%hd145557145861%_)))) - (let ((_%tl145561145871%_ + _%hd145594145898%_)))) + (let ((_%tl145598145908%_ (let () (declare (not safe)) - (##cdr _%e145559145866%_))) - (_%hd145560145869%_ + (##cdr _%e145596145903%_))) + (_%hd145597145906%_ (let () (declare (not safe)) - (##car _%e145559145866%_)))) + (##car _%e145596145903%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145560145869%_)) + _%hd145597145906%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145560145869%_)) + _%hd145597145906%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145561145871%_)) - (let ((_%e145562145874%_ + _%tl145598145908%_)) + (let ((_%e145599145911%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145561145871%_)))) - (let ((_%tl145564145879%_ + (gx#stx-e _%tl145598145908%_)))) + (let ((_%tl145601145916%_ (let () (declare (not safe)) - (##cdr _%e145562145874%_))) - (_%hd145563145877%_ + (##cdr _%e145599145911%_))) + (_%hd145600145914%_ (let () (declare (not safe)) - (##car _%e145562145874%_)))) + (##car _%e145599145911%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145564145879%_)) + (gx#stx-null? _%tl145601145916%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145558145863%_)) - (if (let ((__tmp149075 + (gx#stx-pair/null? _%tl145595145900%_)) + (if (let ((__tmp149112 (let () (declare (not safe)) (gx#stx-length - _%tl145558145863%_)))) + _%tl145595145900%_)))) (declare (not safe)) - (##fx>= __tmp149075 '1)) - (let ((_%__splice147805147806%_ + (##fx>= __tmp149112 '1)) + (let ((_%__splice147842147843%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145558145863%_ + _%tl145595145900%_ '1)))) - (let ((_%tl145567145884%_ + (let ((_%tl145604145921%_ (let () (declare (not safe)) (##vector-ref - _%__splice147805147806%_ + _%__splice147842147843%_ '1))) - (_%target145565145882%_ + (_%target145602145919%_ (let () (declare (not safe)) (##vector-ref - _%__splice147805147806%_ + _%__splice147842147843%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145567145884%_)) - (let ((_%e145574145887%_ + _%tl145604145921%_)) + (let ((_%e145611145924%_ (let () (declare (not safe)) (gx#stx-e - _%tl145567145884%_)))) - (let ((_%tl145576145892%_ + _%tl145604145921%_)))) + (let ((_%tl145613145929%_ (let () (declare (not safe)) - (##cdr _%e145574145887%_))) - (_%hd145575145890%_ + (##cdr _%e145611145924%_))) + (_%hd145612145927%_ (let () (declare (not safe)) - (##car _%e145574145887%_)))) + (##car _%e145611145924%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145575145890%_)) - (let ((_%e145577145895%_ + _%hd145612145927%_)) + (let ((_%e145614145932%_ (let () (declare (not safe)) (gx#stx-e - _%hd145575145890%_)))) - (let ((_%tl145579145900%_ + _%hd145612145927%_)))) + (let ((_%tl145616145937%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e145577145895%_))) - (_%hd145578145898%_ - (let () (declare (not safe)) (##car _%e145577145895%_)))) + (##cdr _%e145614145932%_))) + (_%hd145615145935%_ + (let () (declare (not safe)) (##car _%e145614145932%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145578145898%_)) + (gx#identifier? _%hd145615145935%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145578145898%_)) + (gx#stx-eq? '%#ref _%hd145615145935%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145579145900%_)) - (let ((_%e145580145903%_ + (gx#stx-pair? _%tl145616145937%_)) + (let ((_%e145617145940%_ (let () (declare (not safe)) - (gx#stx-e _%tl145579145900%_)))) - (let ((_%tl145582145908%_ + (gx#stx-e _%tl145616145937%_)))) + (let ((_%tl145619145945%_ (let () (declare (not safe)) - (##cdr _%e145580145903%_))) - (_%hd145581145906%_ + (##cdr _%e145617145940%_))) + (_%hd145618145943%_ (let () (declare (not safe)) - (##car _%e145580145903%_)))) + (##car _%e145617145940%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145582145908%_)) + (gx#stx-null? _%tl145619145945%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145576145892%_)) - (letrec ((_%loop145568145911%_ - (lambda (_%hd145566145914%_ - _%xarg145572145916%_) + (gx#stx-null? _%tl145613145929%_)) + (letrec ((_%loop145605145948%_ + (lambda (_%hd145603145951%_ + _%xarg145609145953%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145566145914%_)) - (let ((_%e145569145919%_ + _%hd145603145951%_)) + (let ((_%e145606145956%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd145566145914%_)))) - (let ((_%lp-tl145571145924%_ + (gx#stx-e _%hd145603145951%_)))) + (let ((_%lp-tl145608145961%_ (let () (declare (not safe)) - (##cdr _%e145569145919%_))) - (_%lp-hd145570145922%_ + (##cdr _%e145606145956%_))) + (_%lp-hd145607145959%_ (let () (declare (not safe)) - (##car _%e145569145919%_)))) + (##car _%e145606145956%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145570145922%_)) - (let ((_%e145583145927%_ + (gx#stx-pair? _%lp-hd145607145959%_)) + (let ((_%e145620145964%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145570145922%_)))) - (let ((_%tl145585145932%_ + (gx#stx-e _%lp-hd145607145959%_)))) + (let ((_%tl145622145969%_ (let () (declare (not safe)) - (##cdr _%e145583145927%_))) - (_%hd145584145930%_ + (##cdr _%e145620145964%_))) + (_%hd145621145967%_ (let () (declare (not safe)) - (##car _%e145583145927%_)))) + (##car _%e145620145964%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145584145930%_)) + (gx#identifier? _%hd145621145967%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145584145930%_)) + (gx#stx-eq? '%#ref _%hd145621145967%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145585145932%_)) - (let ((_%e145586145935%_ + (gx#stx-pair? _%tl145622145969%_)) + (let ((_%e145623145972%_ (let () (declare (not safe)) (gx#stx-e - _%tl145585145932%_)))) - (let ((_%tl145588145940%_ + _%tl145622145969%_)))) + (let ((_%tl145625145977%_ (let () (declare (not safe)) - (##cdr _%e145586145935%_))) - (_%hd145587145938%_ + (##cdr _%e145623145972%_))) + (_%hd145624145975%_ (let () (declare (not safe)) - (##car _%e145586145935%_)))) + (##car _%e145623145972%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145588145940%_)) - (_%loop145568145911%_ - _%lp-tl145571145924%_ - (cons _%hd145587145938%_ - _%xarg145572145916%_)) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)))) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)))) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)))) - (let ((_%xarg145573145943%_ (reverse _%xarg145572145916%_))) + _%tl145625145977%_)) + (_%loop145605145948%_ + _%lp-tl145608145961%_ + (cons _%hd145624145975%_ + _%xarg145609145953%_)) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)))) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)))) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)))) + (let ((_%xarg145610145980%_ (reverse _%xarg145609145953%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145543145823%_)) - (let ((_%L145946%_ _%hd145581145906%_) - (_%L145947%_ _%xarg145573145943%_) - (_%L145948%_ _%hd145563145877%_) - (_%L145949%_ _%hd145554145853%_) - (_%L145950%_ _%tl145534145796%_) - (_%L145951%_ _%arg145540145815%_)) - (if (and (let ((__tmp149076 - (let ((__tmp149077 - (lambda (_%g145994145997%_ - _%g145995145999%_) - (cons _%g145994145997%_ - _%g145995145999%_)))) + (gx#stx-null? _%tl145580145860%_)) + (let ((_%L145983%_ _%hd145618145943%_) + (_%L145984%_ _%xarg145610145980%_) + (_%L145985%_ _%hd145600145914%_) + (_%L145986%_ _%hd145591145890%_) + (_%L145987%_ _%tl145571145833%_) + (_%L145988%_ _%arg145577145852%_)) + (if (and (let ((__tmp149113 + (let ((__tmp149114 + (lambda (_%g146031146034%_ + _%g146032146036%_) + (cons _%g146031146034%_ + _%g146032146036%_)))) (declare (not safe)) (__foldr1 - __tmp149077 + __tmp149114 '() - _%L145951%_)))) + _%L145988%_)))) (declare (not safe)) - (gx#identifier-list? __tmp149076)) + (gx#identifier-list? __tmp149113)) (let () (declare (not safe)) - (gx#identifier? _%L145950%_)) + (gx#identifier? _%L145987%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L145949%_ + _%L145986%_ 'apply)) - (let ((__tmp149080 - (length (let ((__tmp149081 - (lambda (_%g146001146004%_ - _%g146002146006%_) - (cons _%g146001146004%_ - _%g146002146006%_)))) + (let ((__tmp149117 + (length (let ((__tmp149118 + (lambda (_%g146038146041%_ + _%g146039146043%_) + (cons _%g146038146041%_ + _%g146039146043%_)))) (declare (not safe)) (__foldr1 - __tmp149081 + __tmp149118 '() - _%L145951%_)))) - (__tmp149078 - (length (let ((__tmp149079 - (lambda (_%g146008146011%_ - _%g146009146013%_) - (cons _%g146008146011%_ - _%g146009146013%_)))) + _%L145988%_)))) + (__tmp149115 + (length (let ((__tmp149116 + (lambda (_%g146045146048%_ + _%g146046146050%_) + (cons _%g146045146048%_ + _%g146046146050%_)))) (declare (not safe)) (__foldr1 - __tmp149079 + __tmp149116 '() - _%L145947%_))))) + _%L145984%_))))) (declare (not safe)) - (##fx= __tmp149080 __tmp149078)) - (let ((__tmp149084 - (let ((__tmp149085 - (lambda (_%g146015146018%_ - _%g146016146020%_) - (cons _%g146015146018%_ - _%g146016146020%_)))) + (##fx= __tmp149117 __tmp149115)) + (let ((__tmp149121 + (let ((__tmp149122 + (lambda (_%g146052146055%_ + _%g146053146057%_) + (cons _%g146052146055%_ + _%g146053146057%_)))) (declare (not safe)) (__foldr1 - __tmp149085 + __tmp149122 '() - _%L145951%_))) - (__tmp149082 - (let ((__tmp149083 - (lambda (_%g146022146025%_ - _%g146023146027%_) - (cons _%g146022146025%_ - _%g146023146027%_)))) + _%L145988%_))) + (__tmp149119 + (let ((__tmp149120 + (lambda (_%g146059146062%_ + _%g146060146064%_) + (cons _%g146059146062%_ + _%g146060146064%_)))) (declare (not safe)) (__foldr1 - __tmp149083 + __tmp149120 '() - _%L145947%_)))) + _%L145984%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp149084 - __tmp149082)) + __tmp149121 + __tmp149119)) (let () (declare (not safe)) (gx#free-identifier=? - _%L145950%_ - _%L145946%_)) - (not (let ((__tmp149089 - (lambda (_%g146029146031%_) + _%L145987%_ + _%L145983%_)) + (not (let ((__tmp149126 + (lambda (_%g146066146068%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g146029146031%_ - _%L145948%_)))) - (__tmp149086 - (let ((__tmp149088 - (lambda (_%g146033146036%_ - _%g146034146038%_) - (cons _%g146033146036%_ - _%g146034146038%_))) - (__tmp149087 - (cons _%L145950%_ '()))) + _%g146066146068%_ + _%L145985%_)))) + (__tmp149123 + (let ((__tmp149125 + (lambda (_%g146070146073%_ + _%g146071146075%_) + (cons _%g146070146073%_ + _%g146071146075%_))) + (__tmp149124 + (cons _%L145987%_ '()))) (declare (not safe)) (__foldr1 - __tmp149088 - __tmp149087 - _%L145951%_)))) + __tmp149125 + __tmp149124 + _%L145988%_)))) (declare (not safe)) - (__find __tmp149089 __tmp149086)))) - (_%__kont147801147802%_ - _%L145946%_ - _%L145947%_ - _%L145948%_ - _%L145949%_ - _%L145950%_ - _%L145951%_) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_))) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145568145911%_ - _%target145565145882%_ + (__find __tmp149126 __tmp149123)))) + (_%__kont147838147839%_ + _%L145983%_ + _%L145984%_ + _%L145985%_ + _%L145986%_ + _%L145987%_ + _%L145988%_) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_))) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145605145948%_ + _%target145602145919%_ '())) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)))) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)))) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)))) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)) - (_%__match147906147907%_ - _%e145529145786%_ - _%hd145530145789%_ - _%tl145531145791%_ - _%e145541145818%_ - _%hd145542145821%_ - _%tl145543145823%_ - _%e145544145826%_ - _%hd145545145829%_ - _%tl145546145831%_ - _%e145547145834%_ - _%hd145548145837%_ - _%tl145549145839%_ - _%e145550145842%_ - _%hd145551145845%_ - _%tl145552145847%_ - _%e145553145850%_ - _%hd145554145853%_ - _%tl145555145855%_ - _%e145556145858%_ - _%hd145557145861%_ - _%tl145558145863%_ - _%e145559145866%_ - _%hd145560145869%_ - _%tl145561145871%_ - _%e145562145874%_ - _%hd145563145877%_ - _%tl145564145879%_)) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145535145799%_ - _%target145532145794%_ + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)))) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)))) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)))) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)) + (_%__match147943147944%_ + _%e145566145823%_ + _%hd145567145826%_ + _%tl145568145828%_ + _%e145578145855%_ + _%hd145579145858%_ + _%tl145580145860%_ + _%e145581145863%_ + _%hd145582145866%_ + _%tl145583145868%_ + _%e145584145871%_ + _%hd145585145874%_ + _%tl145586145876%_ + _%e145587145879%_ + _%hd145588145882%_ + _%tl145589145884%_ + _%e145590145887%_ + _%hd145591145890%_ + _%tl145592145892%_ + _%e145593145895%_ + _%hd145594145898%_ + _%tl145595145900%_ + _%e145596145903%_ + _%hd145597145906%_ + _%tl145598145908%_ + _%e145599145911%_ + _%hd145600145914%_ + _%tl145601145916%_)) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145572145836%_ + _%target145569145831%_ '())))) - (_%__match147824147825%_ - (lambda (_%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_) - (letrec ((_%loop145487146059%_ - (lambda (_%hd145485146062%_ - _%arg145491146064%_) + (_%__match147861147862%_ + (lambda (_%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_) + (letrec ((_%loop145524146096%_ + (lambda (_%hd145522146099%_ + _%arg145528146101%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145485146062%_)) - (let ((_%e145488146067%_ + _%hd145522146099%_)) + (let ((_%e145525146104%_ (let () (declare (not safe)) (gx#stx-e - _%hd145485146062%_)))) - (let ((_%lp-tl145490146072%_ + _%hd145522146099%_)))) + (let ((_%lp-tl145527146109%_ (let () (declare (not safe)) - (##cdr _%e145488146067%_))) - (_%lp-hd145489146070%_ + (##cdr _%e145525146104%_))) + (_%lp-hd145526146107%_ (let () (declare (not safe)) - (##car _%e145488146067%_)))) - (_%loop145487146059%_ - _%lp-tl145490146072%_ - (cons _%lp-hd145489146070%_ - _%arg145491146064%_)))) - (let ((_%arg145492146075%_ - (reverse _%arg145491146064%_))) + (##car _%e145525146104%_)))) + (_%loop145524146096%_ + _%lp-tl145527146109%_ + (cons _%lp-hd145526146107%_ + _%arg145528146101%_)))) + (let ((_%arg145529146112%_ + (reverse _%arg145528146101%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145483146051%_)) - (let ((_%e145493146078%_ + _%tl145520146088%_)) + (let ((_%e145530146115%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145483146051%_)))) - (let ((_%tl145495146083%_ + (gx#stx-e _%tl145520146088%_)))) + (let ((_%tl145532146120%_ (let () (declare (not safe)) - (##cdr _%e145493146078%_))) - (_%hd145494146081%_ + (##cdr _%e145530146115%_))) + (_%hd145531146118%_ (let () (declare (not safe)) - (##car _%e145493146078%_)))) + (##car _%e145530146115%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145494146081%_)) - (let ((_%e145496146086%_ + (gx#stx-pair? _%hd145531146118%_)) + (let ((_%e145533146123%_ (let () (declare (not safe)) - (gx#stx-e _%hd145494146081%_)))) - (let ((_%tl145498146091%_ + (gx#stx-e _%hd145531146118%_)))) + (let ((_%tl145535146128%_ (let () (declare (not safe)) - (##cdr _%e145496146086%_))) - (_%hd145497146089%_ + (##cdr _%e145533146123%_))) + (_%hd145534146126%_ (let () (declare (not safe)) - (##car _%e145496146086%_)))) + (##car _%e145533146123%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145497146089%_)) + (gx#identifier? _%hd145534146126%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145497146089%_)) + (gx#stx-eq? '%#call _%hd145534146126%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145498146091%_)) - (let ((_%e145499146094%_ + (gx#stx-pair? _%tl145535146128%_)) + (let ((_%e145536146131%_ (let () (declare (not safe)) (gx#stx-e - _%tl145498146091%_)))) - (let ((_%tl145501146099%_ + _%tl145535146128%_)))) + (let ((_%tl145538146136%_ (let () (declare (not safe)) - (##cdr _%e145499146094%_))) - (_%hd145500146097%_ + (##cdr _%e145536146131%_))) + (_%hd145537146134%_ (let () (declare (not safe)) - (##car _%e145499146094%_)))) + (##car _%e145536146131%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145500146097%_)) - (let ((_%e145502146102%_ + _%hd145537146134%_)) + (let ((_%e145539146139%_ (let () (declare (not safe)) (gx#stx-e - _%hd145500146097%_)))) - (let ((_%tl145504146107%_ + _%hd145537146134%_)))) + (let ((_%tl145541146144%_ (let () (declare (not safe)) - (##cdr _%e145502146102%_))) - (_%hd145503146105%_ + (##cdr _%e145539146139%_))) + (_%hd145540146142%_ (let () (declare (not safe)) - (##car _%e145502146102%_)))) + (##car _%e145539146139%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145503146105%_)) + _%hd145540146142%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145503146105%_)) + _%hd145540146142%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145504146107%_)) - (let ((_%e145505146110%_ + (gx#stx-pair? _%tl145541146144%_)) + (let ((_%e145542146147%_ (let () (declare (not safe)) - (gx#stx-e _%tl145504146107%_)))) - (let ((_%tl145507146115%_ + (gx#stx-e _%tl145541146144%_)))) + (let ((_%tl145544146152%_ (let () (declare (not safe)) - (##cdr _%e145505146110%_))) - (_%hd145506146113%_ + (##cdr _%e145542146147%_))) + (_%hd145543146150%_ (let () (declare (not safe)) - (##car _%e145505146110%_)))) + (##car _%e145542146147%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145507146115%_)) + (gx#stx-null? _%tl145544146152%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145501146099%_)) - (let ((_%__splice147799147800%_ + (gx#stx-pair/null? _%tl145538146136%_)) + (let ((_%__splice147836147837%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145501146099%_ + _%tl145538146136%_ '0)))) - (let ((_%tl145510146120%_ + (let ((_%tl145547146157%_ (let () (declare (not safe)) (##vector-ref - _%__splice147799147800%_ + _%__splice147836147837%_ '1))) - (_%target145508146118%_ + (_%target145545146155%_ (let () (declare (not safe)) (##vector-ref - _%__splice147799147800%_ + _%__splice147836147837%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145510146120%_)) - (letrec ((_%loop145511146123%_ - (lambda (_%hd145509146126%_ - _%xarg145515146128%_) + _%tl145547146157%_)) + (letrec ((_%loop145548146160%_ + (lambda (_%hd145546146163%_ + _%xarg145552146165%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145509146126%_)) - (let ((_%e145512146131%_ + _%hd145546146163%_)) + (let ((_%e145549146168%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd145509146126%_)))) - (let ((_%lp-tl145514146136%_ + (gx#stx-e _%hd145546146163%_)))) + (let ((_%lp-tl145551146173%_ (let () (declare (not safe)) - (##cdr _%e145512146131%_))) - (_%lp-hd145513146134%_ + (##cdr _%e145549146168%_))) + (_%lp-hd145550146171%_ (let () (declare (not safe)) - (##car _%e145512146131%_)))) + (##car _%e145549146168%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145513146134%_)) - (let ((_%e145517146139%_ + (gx#stx-pair? _%lp-hd145550146171%_)) + (let ((_%e145554146176%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145513146134%_)))) - (let ((_%tl145519146144%_ + (gx#stx-e _%lp-hd145550146171%_)))) + (let ((_%tl145556146181%_ (let () (declare (not safe)) - (##cdr _%e145517146139%_))) - (_%hd145518146142%_ + (##cdr _%e145554146176%_))) + (_%hd145555146179%_ (let () (declare (not safe)) - (##car _%e145517146139%_)))) + (##car _%e145554146176%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145518146142%_)) + (gx#identifier? _%hd145555146179%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145518146142%_)) + _%hd145555146179%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145519146144%_)) - (let ((_%e145520146147%_ + _%tl145556146181%_)) + (let ((_%e145557146184%_ (let () (declare (not safe)) (gx#stx-e - _%tl145519146144%_)))) - (let ((_%tl145522146152%_ + _%tl145556146181%_)))) + (let ((_%tl145559146189%_ (let () (declare (not safe)) - (##cdr _%e145520146147%_))) - (_%hd145521146150%_ + (##cdr _%e145557146184%_))) + (_%hd145558146187%_ (let () (declare (not safe)) - (##car _%e145520146147%_)))) + (##car _%e145557146184%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145522146152%_)) - (_%loop145511146123%_ - _%lp-tl145514146136%_ - (cons _%hd145521146150%_ - _%xarg145515146128%_)) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)))) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)))) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)))) - (let ((_%xarg145516146155%_ - (reverse _%xarg145515146128%_))) + _%tl145559146189%_)) + (_%loop145548146160%_ + _%lp-tl145551146173%_ + (cons _%hd145558146187%_ + _%xarg145552146165%_)) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)))) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)))) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)))) + (let ((_%xarg145553146192%_ + (reverse _%xarg145552146165%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145495146083%_)) - (let ((_%L146158%_ _%xarg145516146155%_) - (_%L146159%_ _%hd145506146113%_) - (_%L146160%_ _%arg145492146075%_)) - (if (and (let ((__tmp149090 - (let ((__tmp149091 - (lambda (_%g146188146191%_ - _%g146189146193%_) - (cons _%g146188146191%_ - _%g146189146193%_)))) + (gx#stx-null? _%tl145532146120%_)) + (let ((_%L146195%_ _%xarg145553146192%_) + (_%L146196%_ _%hd145543146150%_) + (_%L146197%_ _%arg145529146112%_)) + (if (and (let ((__tmp149127 + (let ((__tmp149128 + (lambda (_%g146225146228%_ + _%g146226146230%_) + (cons _%g146225146228%_ + _%g146226146230%_)))) (declare (not safe)) (__foldr1 - __tmp149091 + __tmp149128 '() - _%L146160%_)))) + _%L146197%_)))) (declare (not safe)) - (gx#identifier-list? __tmp149090)) - (let ((__tmp149094 - (length (let ((__tmp149095 - (lambda (_%g146195146198%_ + (gx#identifier-list? __tmp149127)) + (let ((__tmp149131 + (length (let ((__tmp149132 + (lambda (_%g146232146235%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146196146200%_) - (cons _%g146195146198%_ _%g146196146200%_)))) + _%g146233146237%_) + (cons _%g146232146235%_ _%g146233146237%_)))) (declare (not safe)) - (__foldr1 __tmp149095 '() _%L146160%_)))) + (__foldr1 __tmp149132 '() _%L146197%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp149092 - (length (let ((__tmp149093 - (lambda (_%g146202146205%_ + (__tmp149129 + (length (let ((__tmp149130 + (lambda (_%g146239146242%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146203146207%_) - (cons _%g146202146205%_ _%g146203146207%_)))) + _%g146240146244%_) + (cons _%g146239146242%_ _%g146240146244%_)))) (declare (not safe)) - (__foldr1 __tmp149093 '() _%L146158%_))))) + (__foldr1 __tmp149130 '() _%L146195%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp149094 __tmp149092)) - (let ((__tmp149098 - (let ((__tmp149099 - (lambda (_%g146209146212%_ - _%g146210146214%_) - (cons _%g146209146212%_ - _%g146210146214%_)))) + (##fx= __tmp149131 __tmp149129)) + (let ((__tmp149135 + (let ((__tmp149136 + (lambda (_%g146246146249%_ + _%g146247146251%_) + (cons _%g146246146249%_ + _%g146247146251%_)))) (declare (not safe)) (__foldr1 - __tmp149099 + __tmp149136 '() - _%L146160%_))) - (__tmp149096 - (let ((__tmp149097 - (lambda (_%g146216146219%_ - _%g146217146221%_) - (cons _%g146216146219%_ - _%g146217146221%_)))) + _%L146197%_))) + (__tmp149133 + (let ((__tmp149134 + (lambda (_%g146253146256%_ + _%g146254146258%_) + (cons _%g146253146256%_ + _%g146254146258%_)))) (declare (not safe)) (__foldr1 - __tmp149097 + __tmp149134 '() - _%L146158%_)))) + _%L146195%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp149098 - __tmp149096)) - (not (let ((__tmp149102 - (lambda (_%g146223146225%_) + __tmp149135 + __tmp149133)) + (not (let ((__tmp149139 + (lambda (_%g146260146262%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g146223146225%_ - _%L146159%_)))) - (__tmp149100 - (let ((__tmp149101 - (lambda (_%g146227146230%_ + _%g146260146262%_ + _%L146196%_)))) + (__tmp149137 + (let ((__tmp149138 + (lambda (_%g146264146267%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146228146232%_) - (cons _%g146227146230%_ _%g146228146232%_)))) + _%g146265146269%_) + (cons _%g146264146267%_ _%g146265146269%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp149101 + __tmp149138 '() - _%L146160%_)))) + _%L146197%_)))) (declare (not safe)) - (__find __tmp149102 __tmp149100)))) - (_%__kont147795147796%_ - _%L146158%_ - _%L146159%_ - _%L146160%_) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_))) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145511146123%_ - _%target145508146118%_ + (__find __tmp149139 __tmp149137)))) + (_%__kont147832147833%_ + _%L146195%_ + _%L146196%_ + _%L146197%_) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_))) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145548146160%_ + _%target145545146155%_ '())) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)))) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)))) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)))) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)))) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)))) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145487146059%_ - _%target145484146054%_ + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)))) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)))) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)))) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)))) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)))) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145524146096%_ + _%target145521146091%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147793147794%_)) - (let ((_%e145481146046%_ + (gx#stx-pair? _%__stx147830147831%_)) + (let ((_%e145518146083%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147793147794%_)))) - (let ((_%tl145483146051%_ + (gx#stx-e _%__stx147830147831%_)))) + (let ((_%tl145520146088%_ (let () (declare (not safe)) - (##cdr _%e145481146046%_))) - (_%hd145482146049%_ + (##cdr _%e145518146083%_))) + (_%hd145519146086%_ (let () (declare (not safe)) - (##car _%e145481146046%_)))) + (##car _%e145518146083%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd145482146049%_)) - (let ((_%__splice147797147798%_ + (gx#stx-pair/null? _%hd145519146086%_)) + (let ((_%__splice147834147835%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd145482146049%_ + _%hd145519146086%_ '0)))) - (let ((_%tl145486146056%_ + (let ((_%tl145523146093%_ (let () (declare (not safe)) (##vector-ref - _%__splice147797147798%_ + _%__splice147834147835%_ '1))) - (_%target145484146054%_ + (_%target145521146091%_ (let () (declare (not safe)) (##vector-ref - _%__splice147797147798%_ + _%__splice147834147835%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145486146056%_)) - (_%__match147824147825%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_) - (_%__match147836147837%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%__splice147797147798%_ - _%target145484146054%_ - _%tl145486146056%_)))) + _%tl145523146093%_)) + (_%__match147861147862%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_) + (_%__match147873147874%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%__splice147834147835%_ + _%target145521146091%_ + _%tl145523146093%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145483146051%_)) - (let ((_%e145596145653%_ + (gx#stx-pair? _%tl145520146088%_)) + (let ((_%e145633145690%_ (let () (declare (not safe)) (gx#stx-e - _%tl145483146051%_)))) - (let ((_%tl145598145658%_ + _%tl145520146088%_)))) + (let ((_%tl145635145695%_ (let () (declare (not safe)) - (##cdr _%e145596145653%_))) - (_%hd145597145656%_ + (##cdr _%e145633145690%_))) + (_%hd145634145693%_ (let () (declare (not safe)) - (##car _%e145596145653%_)))) + (##car _%e145633145690%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145597145656%_)) - (let ((_%e145599145661%_ + _%hd145634145693%_)) + (let ((_%e145636145698%_ (let () (declare (not safe)) (gx#stx-e - _%hd145597145656%_)))) - (let ((_%tl145601145666%_ + _%hd145634145693%_)))) + (let ((_%tl145638145703%_ (let () (declare (not safe)) - (##cdr _%e145599145661%_))) - (_%hd145600145664%_ + (##cdr _%e145636145698%_))) + (_%hd145637145701%_ (let () (declare (not safe)) - (##car _%e145599145661%_)))) + (##car _%e145636145698%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145600145664%_)) + _%hd145637145701%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd145600145664%_)) + (gx#stx-eq? '%#call _%hd145637145701%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145601145666%_)) - (let ((_%e145602145669%_ + (gx#stx-pair? _%tl145638145703%_)) + (let ((_%e145639145706%_ (let () (declare (not safe)) - (gx#stx-e _%tl145601145666%_)))) - (let ((_%tl145604145674%_ + (gx#stx-e _%tl145638145703%_)))) + (let ((_%tl145641145711%_ (let () (declare (not safe)) - (##cdr _%e145602145669%_))) - (_%hd145603145672%_ + (##cdr _%e145639145706%_))) + (_%hd145640145709%_ (let () (declare (not safe)) - (##car _%e145602145669%_)))) + (##car _%e145639145706%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145603145672%_)) - (let ((_%e145605145677%_ + (gx#stx-pair? _%hd145640145709%_)) + (let ((_%e145642145714%_ (let () (declare (not safe)) - (gx#stx-e _%hd145603145672%_)))) - (let ((_%tl145607145682%_ + (gx#stx-e _%hd145640145709%_)))) + (let ((_%tl145644145719%_ (let () (declare (not safe)) - (##cdr _%e145605145677%_))) - (_%hd145606145680%_ + (##cdr _%e145642145714%_))) + (_%hd145643145717%_ (let () (declare (not safe)) - (##car _%e145605145677%_)))) + (##car _%e145642145714%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145606145680%_)) + _%hd145643145717%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145606145680%_)) + _%hd145643145717%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145607145682%_)) - (let ((_%e145608145685%_ + _%tl145644145719%_)) + (let ((_%e145645145722%_ (let () (declare (not safe)) (gx#stx-e - _%tl145607145682%_)))) - (let ((_%tl145610145690%_ + _%tl145644145719%_)))) + (let ((_%tl145647145727%_ (let () (declare (not safe)) - (##cdr _%e145608145685%_))) - (_%hd145609145688%_ + (##cdr _%e145645145722%_))) + (_%hd145646145725%_ (let () (declare (not safe)) - (##car _%e145608145685%_)))) + (##car _%e145645145722%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145610145690%_)) + _%tl145647145727%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145604145674%_)) - (let ((_%e145611145693%_ + (gx#stx-pair? _%tl145641145711%_)) + (let ((_%e145648145730%_ (let () (declare (not safe)) - (gx#stx-e _%tl145604145674%_)))) - (let ((_%tl145613145698%_ + (gx#stx-e _%tl145641145711%_)))) + (let ((_%tl145650145735%_ (let () (declare (not safe)) - (##cdr _%e145611145693%_))) - (_%hd145612145696%_ + (##cdr _%e145648145730%_))) + (_%hd145649145733%_ (let () (declare (not safe)) - (##car _%e145611145693%_)))) + (##car _%e145648145730%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145612145696%_)) - (let ((_%e145614145701%_ + (gx#stx-pair? _%hd145649145733%_)) + (let ((_%e145651145738%_ (let () (declare (not safe)) - (gx#stx-e _%hd145612145696%_)))) - (let ((_%tl145616145706%_ + (gx#stx-e _%hd145649145733%_)))) + (let ((_%tl145653145743%_ (let () (declare (not safe)) - (##cdr _%e145614145701%_))) - (_%hd145615145704%_ + (##cdr _%e145651145738%_))) + (_%hd145652145741%_ (let () (declare (not safe)) - (##car _%e145614145701%_)))) + (##car _%e145651145738%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145615145704%_)) + (gx#identifier? _%hd145652145741%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145615145704%_)) + _%hd145652145741%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145616145706%_)) - (let ((_%e145617145709%_ + _%tl145653145743%_)) + (let ((_%e145654145746%_ (let () (declare (not safe)) (gx#stx-e - _%tl145616145706%_)))) - (let ((_%tl145619145714%_ + _%tl145653145743%_)))) + (let ((_%tl145656145751%_ (let () (declare (not safe)) - (##cdr _%e145617145709%_))) - (_%hd145618145712%_ + (##cdr _%e145654145746%_))) + (_%hd145655145749%_ (let () (declare (not safe)) - (##car _%e145617145709%_)))) + (##car _%e145654145746%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145619145714%_)) + _%tl145656145751%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145613145698%_)) - (let ((_%e145620145717%_ + _%tl145650145735%_)) + (let ((_%e145657145754%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145613145698%_)))) - (let ((_%tl145622145722%_ + (gx#stx-e _%tl145650145735%_)))) + (let ((_%tl145659145759%_ (let () (declare (not safe)) - (##cdr _%e145620145717%_))) - (_%hd145621145720%_ + (##cdr _%e145657145754%_))) + (_%hd145658145757%_ (let () (declare (not safe)) - (##car _%e145620145717%_)))) + (##car _%e145657145754%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145621145720%_)) - (let ((_%e145623145725%_ + (gx#stx-pair? _%hd145658145757%_)) + (let ((_%e145660145762%_ (let () (declare (not safe)) - (gx#stx-e _%hd145621145720%_)))) - (let ((_%tl145625145730%_ + (gx#stx-e _%hd145658145757%_)))) + (let ((_%tl145662145767%_ (let () (declare (not safe)) - (##cdr _%e145623145725%_))) - (_%hd145624145728%_ + (##cdr _%e145660145762%_))) + (_%hd145661145765%_ (let () (declare (not safe)) - (##car _%e145623145725%_)))) + (##car _%e145660145762%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145624145728%_)) + (gx#identifier? _%hd145661145765%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145624145728%_)) + (gx#stx-eq? '%#ref _%hd145661145765%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145625145730%_)) - (let ((_%e145626145733%_ + (gx#stx-pair? _%tl145662145767%_)) + (let ((_%e145663145770%_ (let () (declare (not safe)) (gx#stx-e - _%tl145625145730%_)))) - (let ((_%tl145628145738%_ + _%tl145662145767%_)))) + (let ((_%tl145665145775%_ (let () (declare (not safe)) - (##cdr _%e145626145733%_))) - (_%hd145627145736%_ + (##cdr _%e145663145770%_))) + (_%hd145664145773%_ (let () (declare (not safe)) - (##car _%e145626145733%_)))) + (##car _%e145663145770%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145628145738%_)) + _%tl145665145775%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145622145722%_)) + _%tl145659145759%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145598145658%_)) - (_%__match147934147935%_ - _%e145481146046%_ - _%hd145482146049%_ - _%tl145483146051%_ - _%e145596145653%_ - _%hd145597145656%_ - _%tl145598145658%_ - _%e145599145661%_ - _%hd145600145664%_ - _%tl145601145666%_ - _%e145602145669%_ - _%hd145603145672%_ - _%tl145604145674%_ - _%e145605145677%_ - _%hd145606145680%_ - _%tl145607145682%_ - _%e145608145685%_ - _%hd145609145688%_ - _%tl145610145690%_ - _%e145611145693%_ - _%hd145612145696%_ - _%tl145613145698%_ - _%e145614145701%_ - _%hd145615145704%_ - _%tl145616145706%_ - _%e145617145709%_ - _%hd145618145712%_ - _%tl145619145714%_ - _%e145620145717%_ - _%hd145621145720%_ - _%tl145622145722%_ - _%e145623145725%_ - _%hd145624145728%_ - _%tl145625145730%_ - _%e145626145733%_ - _%hd145627145736%_ - _%tl145628145738%_) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147809147810%_)) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147809147810%_)) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)))) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)) - (_%__kont147809147810%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147809147810%_)))) - (_%__kont147809147810%_))))) - (_%__kont147809147810%_))))))) - (_%dispatch-case-e144781%_ - (lambda (_%hd144932%_ _%body144933%_) - (let* ((_%form144935%_ - (cons _%hd144932%_ (cons _%body144933%_ '()))) - (_%__stx147937147938%_ _%form144935%_) - (_%g144939145063%_ + _%tl145635145695%_)) + (_%__match147971147972%_ + _%e145518146083%_ + _%hd145519146086%_ + _%tl145520146088%_ + _%e145633145690%_ + _%hd145634145693%_ + _%tl145635145695%_ + _%e145636145698%_ + _%hd145637145701%_ + _%tl145638145703%_ + _%e145639145706%_ + _%hd145640145709%_ + _%tl145641145711%_ + _%e145642145714%_ + _%hd145643145717%_ + _%tl145644145719%_ + _%e145645145722%_ + _%hd145646145725%_ + _%tl145647145727%_ + _%e145648145730%_ + _%hd145649145733%_ + _%tl145650145735%_ + _%e145651145738%_ + _%hd145652145741%_ + _%tl145653145743%_ + _%e145654145746%_ + _%hd145655145749%_ + _%tl145656145751%_ + _%e145657145754%_ + _%hd145658145757%_ + _%tl145659145759%_ + _%e145660145762%_ + _%hd145661145765%_ + _%tl145662145767%_ + _%e145663145770%_ + _%hd145664145773%_ + _%tl145665145775%_) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147846147847%_)) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147846147847%_)) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)))) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)) + (_%__kont147846147847%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147846147847%_)))) + (_%__kont147846147847%_))))) + (_%__kont147846147847%_))))))) + (_%dispatch-case-e144818%_ + (lambda (_%hd144969%_ _%body144970%_) + (let* ((_%form144972%_ + (cons _%hd144969%_ (cons _%body144970%_ '()))) + (_%__stx147974147975%_ _%form144972%_) + (_%g144976145100%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147937147938%_))))) - (let ((_%__kont147939147940%_ - (lambda (_%L145434%_ _%L145435%_ _%L145436%_) - (let ((__tmp149103 + _%__stx147974147975%_))))) + (let ((_%__kont147976147977%_ + (lambda (_%L145471%_ _%L145472%_ _%L145473%_) + (let ((__tmp149140 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145435%_ '())))) + (cons _%L145472%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144777%_ - __tmp149103)))) - (_%__kont147945147946%_ - (lambda (_%L145282%_ - _%L145283%_ - _%L145284%_ - _%L145285%_) - (let ((__tmp149104 + _%self144814%_ + __tmp149140)))) + (_%__kont147982147983%_ + (lambda (_%L145319%_ + _%L145320%_ + _%L145321%_ + _%L145322%_) + (let ((__tmp149141 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145282%_ '())))) + (cons _%L145319%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144777%_ - __tmp149104)))) - (_%__kont147949147950%_ - (lambda (_%L145148%_ _%L145149%_ _%L145150%_) - (let ((__tmp149105 + _%self144814%_ + __tmp149141)))) + (_%__kont147986147987%_ + (lambda (_%L145185%_ _%L145186%_ _%L145187%_) + (let ((__tmp149142 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145148%_ '())))) + (cons _%L145185%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144777%_ - __tmp149105))))) - (let* ((_%__match148046148047%_ - (lambda (_%e145029145068%_ - _%hd145030145071%_ - _%tl145031145073%_ - _%e145032145076%_ - _%hd145033145079%_ - _%tl145034145081%_ - _%e145035145084%_ - _%hd145036145087%_ - _%tl145037145089%_ - _%e145038145092%_ - _%hd145039145095%_ - _%tl145040145097%_ - _%e145041145100%_ - _%hd145042145103%_ - _%tl145043145105%_ - _%e145044145108%_ - _%hd145045145111%_ - _%tl145046145113%_ - _%e145047145116%_ - _%hd145048145119%_ - _%tl145049145121%_ - _%e145050145124%_ - _%hd145051145127%_ - _%tl145052145129%_ - _%e145053145132%_ - _%hd145054145135%_ - _%tl145055145137%_) + _%self144814%_ + __tmp149142))))) + (let* ((_%__match148083148084%_ + (lambda (_%e145066145105%_ + _%hd145067145108%_ + _%tl145068145110%_ + _%e145069145113%_ + _%hd145070145116%_ + _%tl145071145118%_ + _%e145072145121%_ + _%hd145073145124%_ + _%tl145074145126%_ + _%e145075145129%_ + _%hd145076145132%_ + _%tl145077145134%_ + _%e145078145137%_ + _%hd145079145140%_ + _%tl145080145142%_ + _%e145081145145%_ + _%hd145082145148%_ + _%tl145083145150%_ + _%e145084145153%_ + _%hd145085145156%_ + _%tl145086145158%_ + _%e145087145161%_ + _%hd145088145164%_ + _%tl145089145166%_ + _%e145090145169%_ + _%hd145091145172%_ + _%tl145092145174%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145049145121%_)) - (let ((_%e145056145140%_ + (gx#stx-pair? _%tl145086145158%_)) + (let ((_%e145093145177%_ (let () (declare (not safe)) - (gx#stx-e _%tl145049145121%_)))) - (let ((_%tl145058145145%_ + (gx#stx-e _%tl145086145158%_)))) + (let ((_%tl145095145182%_ (let () (declare (not safe)) - (##cdr _%e145056145140%_))) - (_%hd145057145143%_ + (##cdr _%e145093145177%_))) + (_%hd145094145180%_ (let () (declare (not safe)) - (##car _%e145056145140%_)))) + (##car _%e145093145177%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145058145145%_)) + _%tl145095145182%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145034145081%_)) - (_%__kont147949147950%_ - _%hd145054145135%_ - _%hd145045145111%_ - _%hd145030145071%_) + _%tl145071145118%_)) + (_%__kont147986147987%_ + _%hd145091145172%_ + _%hd145082145148%_ + _%hd145067145108%_) (let () (declare (not safe)) - (_%g144939145063%_))) + (_%g144976145100%_))) (let () (declare (not safe)) - (_%g144939145063%_))))) + (_%g144976145100%_))))) (let () (declare (not safe)) - (_%g144939145063%_))))) - (_%__match147976147977%_ - (lambda (_%e144990145186%_ - _%hd144991145189%_ - _%tl144992145191%_ - _%__splice147947147948%_ - _%target144993145194%_ - _%tl144995145196%_) - (letrec ((_%loop144996145199%_ - (lambda (_%hd144994145202%_ - _%arg145000145204%_) + (_%g144976145100%_))))) + (_%__match148013148014%_ + (lambda (_%e145027145223%_ + _%hd145028145226%_ + _%tl145029145228%_ + _%__splice147984147985%_ + _%target145030145231%_ + _%tl145032145233%_) + (letrec ((_%loop145033145236%_ + (lambda (_%hd145031145239%_ + _%arg145037145241%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144994145202%_)) - (let ((_%e144997145207%_ + _%hd145031145239%_)) + (let ((_%e145034145244%_ (let () (declare (not safe)) (gx#stx-e - _%hd144994145202%_)))) - (let ((_%lp-tl144999145212%_ + _%hd145031145239%_)))) + (let ((_%lp-tl145036145249%_ (let () (declare (not safe)) - (##cdr _%e144997145207%_))) - (_%lp-hd144998145210%_ + (##cdr _%e145034145244%_))) + (_%lp-hd145035145247%_ (let () (declare (not safe)) - (##car _%e144997145207%_)))) - (_%loop144996145199%_ - _%lp-tl144999145212%_ - (cons _%lp-hd144998145210%_ - _%arg145000145204%_)))) - (let ((_%arg145001145215%_ - (reverse _%arg145000145204%_))) + (##car _%e145034145244%_)))) + (_%loop145033145236%_ + _%lp-tl145036145249%_ + (cons _%lp-hd145035145247%_ + _%arg145037145241%_)))) + (let ((_%arg145038145252%_ + (reverse _%arg145037145241%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144992145191%_)) - (let ((_%e145002145218%_ + _%tl145029145228%_)) + (let ((_%e145039145255%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl144992145191%_)))) - (let ((_%tl145004145223%_ + (gx#stx-e _%tl145029145228%_)))) + (let ((_%tl145041145260%_ (let () (declare (not safe)) - (##cdr _%e145002145218%_))) - (_%hd145003145221%_ + (##cdr _%e145039145255%_))) + (_%hd145040145258%_ (let () (declare (not safe)) - (##car _%e145002145218%_)))) + (##car _%e145039145255%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145003145221%_)) - (let ((_%e145005145226%_ + (gx#stx-pair? _%hd145040145258%_)) + (let ((_%e145042145263%_ (let () (declare (not safe)) - (gx#stx-e _%hd145003145221%_)))) - (let ((_%tl145007145231%_ + (gx#stx-e _%hd145040145258%_)))) + (let ((_%tl145044145268%_ (let () (declare (not safe)) - (##cdr _%e145005145226%_))) - (_%hd145006145229%_ + (##cdr _%e145042145263%_))) + (_%hd145043145266%_ (let () (declare (not safe)) - (##car _%e145005145226%_)))) + (##car _%e145042145263%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145006145229%_)) + (gx#identifier? _%hd145043145266%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145006145229%_)) + (gx#stx-eq? '%#call _%hd145043145266%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145007145231%_)) - (let ((_%e145008145234%_ + (gx#stx-pair? _%tl145044145268%_)) + (let ((_%e145045145271%_ (let () (declare (not safe)) (gx#stx-e - _%tl145007145231%_)))) - (let ((_%tl145010145239%_ + _%tl145044145268%_)))) + (let ((_%tl145047145276%_ (let () (declare (not safe)) - (##cdr _%e145008145234%_))) - (_%hd145009145237%_ + (##cdr _%e145045145271%_))) + (_%hd145046145274%_ (let () (declare (not safe)) - (##car _%e145008145234%_)))) + (##car _%e145045145271%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145009145237%_)) - (let ((_%e145011145242%_ + _%hd145046145274%_)) + (let ((_%e145048145279%_ (let () (declare (not safe)) (gx#stx-e - _%hd145009145237%_)))) - (let ((_%tl145013145247%_ + _%hd145046145274%_)))) + (let ((_%tl145050145284%_ (let () (declare (not safe)) - (##cdr _%e145011145242%_))) - (_%hd145012145245%_ + (##cdr _%e145048145279%_))) + (_%hd145049145282%_ (let () (declare (not safe)) - (##car _%e145011145242%_)))) + (##car _%e145048145279%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145012145245%_)) + _%hd145049145282%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145012145245%_)) + _%hd145049145282%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145013145247%_)) - (let ((_%e145014145250%_ + (gx#stx-pair? _%tl145050145284%_)) + (let ((_%e145051145287%_ (let () (declare (not safe)) - (gx#stx-e _%tl145013145247%_)))) - (let ((_%tl145016145255%_ + (gx#stx-e _%tl145050145284%_)))) + (let ((_%tl145053145292%_ (let () (declare (not safe)) - (##cdr _%e145014145250%_))) - (_%hd145015145253%_ + (##cdr _%e145051145287%_))) + (_%hd145052145290%_ (let () (declare (not safe)) - (##car _%e145014145250%_)))) + (##car _%e145051145287%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145016145255%_)) + (gx#stx-null? _%tl145053145292%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145010145239%_)) - (let ((_%e145017145258%_ + (gx#stx-pair? _%tl145047145276%_)) + (let ((_%e145054145295%_ (let () (declare (not safe)) - (gx#stx-e _%tl145010145239%_)))) - (let ((_%tl145019145263%_ + (gx#stx-e _%tl145047145276%_)))) + (let ((_%tl145056145300%_ (let () (declare (not safe)) - (##cdr _%e145017145258%_))) - (_%hd145018145261%_ + (##cdr _%e145054145295%_))) + (_%hd145055145298%_ (let () (declare (not safe)) - (##car _%e145017145258%_)))) + (##car _%e145054145295%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145018145261%_)) - (let ((_%e145020145266%_ + _%hd145055145298%_)) + (let ((_%e145057145303%_ (let () (declare (not safe)) (gx#stx-e - _%hd145018145261%_)))) - (let ((_%tl145022145271%_ + _%hd145055145298%_)))) + (let ((_%tl145059145308%_ (let () (declare (not safe)) - (##cdr _%e145020145266%_))) - (_%hd145021145269%_ + (##cdr _%e145057145303%_))) + (_%hd145058145306%_ (let () (declare (not safe)) - (##car _%e145020145266%_)))) + (##car _%e145057145303%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145021145269%_)) + _%hd145058145306%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145021145269%_)) + _%hd145058145306%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145022145271%_)) - (let ((_%e145023145274%_ + _%tl145059145308%_)) + (let ((_%e145060145311%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145022145271%_)))) - (let ((_%tl145025145279%_ + (gx#stx-e _%tl145059145308%_)))) + (let ((_%tl145062145316%_ (let () (declare (not safe)) - (##cdr _%e145023145274%_))) - (_%hd145024145277%_ + (##cdr _%e145060145311%_))) + (_%hd145061145314%_ (let () (declare (not safe)) - (##car _%e145023145274%_)))) + (##car _%e145060145311%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145025145279%_)) + (gx#stx-null? _%tl145062145316%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145004145223%_)) - (_%__kont147945147946%_ - _%hd145024145277%_ - _%hd145015145253%_ - _%tl144995145196%_ - _%arg145001145215%_) - (_%__match148046148047%_ - _%e144990145186%_ - _%hd144991145189%_ - _%tl144992145191%_ - _%e145002145218%_ - _%hd145003145221%_ - _%tl145004145223%_ - _%e145005145226%_ - _%hd145006145229%_ - _%tl145007145231%_ - _%e145008145234%_ - _%hd145009145237%_ - _%tl145010145239%_ - _%e145011145242%_ - _%hd145012145245%_ - _%tl145013145247%_ - _%e145014145250%_ - _%hd145015145253%_ - _%tl145016145255%_ - _%e145017145258%_ - _%hd145018145261%_ - _%tl145019145263%_ - _%e145020145266%_ - _%hd145021145269%_ - _%tl145022145271%_ - _%e145023145274%_ - _%hd145024145277%_ - _%tl145025145279%_)) + (gx#stx-null? _%tl145041145260%_)) + (_%__kont147982147983%_ + _%hd145061145314%_ + _%hd145052145290%_ + _%tl145032145233%_ + _%arg145038145252%_) + (_%__match148083148084%_ + _%e145027145223%_ + _%hd145028145226%_ + _%tl145029145228%_ + _%e145039145255%_ + _%hd145040145258%_ + _%tl145041145260%_ + _%e145042145263%_ + _%hd145043145266%_ + _%tl145044145268%_ + _%e145045145271%_ + _%hd145046145274%_ + _%tl145047145276%_ + _%e145048145279%_ + _%hd145049145282%_ + _%tl145050145284%_ + _%e145051145287%_ + _%hd145052145290%_ + _%tl145053145292%_ + _%e145054145295%_ + _%hd145055145298%_ + _%tl145056145300%_ + _%e145057145303%_ + _%hd145058145306%_ + _%tl145059145308%_ + _%e145060145311%_ + _%hd145061145314%_ + _%tl145062145316%_)) (let () (declare (not safe)) - (_%g144939145063%_))))) - (let () (declare (not safe)) (_%g144939145063%_))) - (let () (declare (not safe)) (_%g144939145063%_))) + (_%g144976145100%_))))) + (let () (declare (not safe)) (_%g144976145100%_))) + (let () (declare (not safe)) (_%g144976145100%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144939145063%_))))) + (_%g144976145100%_))))) (let () (declare (not safe)) - (_%g144939145063%_))))) + (_%g144976145100%_))))) (let () (declare (not safe)) - (_%g144939145063%_))) + (_%g144976145100%_))) (let () (declare (not safe)) - (_%g144939145063%_))))) - (let () (declare (not safe)) (_%g144939145063%_))) - (let () (declare (not safe)) (_%g144939145063%_))) - (let () (declare (not safe)) (_%g144939145063%_))))) + (_%g144976145100%_))))) + (let () (declare (not safe)) (_%g144976145100%_))) + (let () (declare (not safe)) (_%g144976145100%_))) + (let () (declare (not safe)) (_%g144976145100%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144939145063%_))))) + (_%g144976145100%_))))) (let () (declare (not safe)) - (_%g144939145063%_))) + (_%g144976145100%_))) (let () (declare (not safe)) - (_%g144939145063%_))) + (_%g144976145100%_))) (let () (declare (not safe)) - (_%g144939145063%_))))) - (let () (declare (not safe)) (_%g144939145063%_))))) - (let () (declare (not safe)) (_%g144939145063%_)))))))) + (_%g144976145100%_))))) + (let () (declare (not safe)) (_%g144976145100%_))))) + (let () (declare (not safe)) (_%g144976145100%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144996145199%_ - _%target144993145194%_ + (_%loop145033145236%_ + _%target145030145231%_ '())))) - (_%__match147964147965%_ - (lambda (_%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_) - (letrec ((_%loop144950145335%_ - (lambda (_%hd144948145338%_ - _%arg144954145340%_) + (_%__match148001148002%_ + (lambda (_%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_) + (letrec ((_%loop144987145372%_ + (lambda (_%hd144985145375%_ + _%arg144991145377%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144948145338%_)) - (let ((_%e144951145343%_ + _%hd144985145375%_)) + (let ((_%e144988145380%_ (let () (declare (not safe)) (gx#stx-e - _%hd144948145338%_)))) - (let ((_%lp-tl144953145348%_ + _%hd144985145375%_)))) + (let ((_%lp-tl144990145385%_ (let () (declare (not safe)) - (##cdr _%e144951145343%_))) - (_%lp-hd144952145346%_ + (##cdr _%e144988145380%_))) + (_%lp-hd144989145383%_ (let () (declare (not safe)) - (##car _%e144951145343%_)))) - (_%loop144950145335%_ - _%lp-tl144953145348%_ - (cons _%lp-hd144952145346%_ - _%arg144954145340%_)))) - (let ((_%arg144955145351%_ - (reverse _%arg144954145340%_))) + (##car _%e144988145380%_)))) + (_%loop144987145372%_ + _%lp-tl144990145385%_ + (cons _%lp-hd144989145383%_ + _%arg144991145377%_)))) + (let ((_%arg144992145388%_ + (reverse _%arg144991145377%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144946145327%_)) - (let ((_%e144956145354%_ + _%tl144983145364%_)) + (let ((_%e144993145391%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl144946145327%_)))) - (let ((_%tl144958145359%_ + (gx#stx-e _%tl144983145364%_)))) + (let ((_%tl144995145396%_ (let () (declare (not safe)) - (##cdr _%e144956145354%_))) - (_%hd144957145357%_ + (##cdr _%e144993145391%_))) + (_%hd144994145394%_ (let () (declare (not safe)) - (##car _%e144956145354%_)))) + (##car _%e144993145391%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144957145357%_)) - (let ((_%e144959145362%_ + (gx#stx-pair? _%hd144994145394%_)) + (let ((_%e144996145399%_ (let () (declare (not safe)) - (gx#stx-e _%hd144957145357%_)))) - (let ((_%tl144961145367%_ + (gx#stx-e _%hd144994145394%_)))) + (let ((_%tl144998145404%_ (let () (declare (not safe)) - (##cdr _%e144959145362%_))) - (_%hd144960145365%_ + (##cdr _%e144996145399%_))) + (_%hd144997145402%_ (let () (declare (not safe)) - (##car _%e144959145362%_)))) + (##car _%e144996145399%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144960145365%_)) + (gx#identifier? _%hd144997145402%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd144960145365%_)) + (gx#stx-eq? '%#call _%hd144997145402%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144961145367%_)) - (let ((_%e144962145370%_ + (gx#stx-pair? _%tl144998145404%_)) + (let ((_%e144999145407%_ (let () (declare (not safe)) (gx#stx-e - _%tl144961145367%_)))) - (let ((_%tl144964145375%_ + _%tl144998145404%_)))) + (let ((_%tl145001145412%_ (let () (declare (not safe)) - (##cdr _%e144962145370%_))) - (_%hd144963145373%_ + (##cdr _%e144999145407%_))) + (_%hd145000145410%_ (let () (declare (not safe)) - (##car _%e144962145370%_)))) + (##car _%e144999145407%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144963145373%_)) - (let ((_%e144965145378%_ + _%hd145000145410%_)) + (let ((_%e145002145415%_ (let () (declare (not safe)) (gx#stx-e - _%hd144963145373%_)))) - (let ((_%tl144967145383%_ + _%hd145000145410%_)))) + (let ((_%tl145004145420%_ (let () (declare (not safe)) - (##cdr _%e144965145378%_))) - (_%hd144966145381%_ + (##cdr _%e145002145415%_))) + (_%hd145003145418%_ (let () (declare (not safe)) - (##car _%e144965145378%_)))) + (##car _%e145002145415%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd144966145381%_)) + _%hd145003145418%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144966145381%_)) + _%hd145003145418%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl144967145383%_)) - (let ((_%e144968145386%_ + (gx#stx-pair? _%tl145004145420%_)) + (let ((_%e145005145423%_ (let () (declare (not safe)) - (gx#stx-e _%tl144967145383%_)))) - (let ((_%tl144970145391%_ + (gx#stx-e _%tl145004145420%_)))) + (let ((_%tl145007145428%_ (let () (declare (not safe)) - (##cdr _%e144968145386%_))) - (_%hd144969145389%_ + (##cdr _%e145005145423%_))) + (_%hd145006145426%_ (let () (declare (not safe)) - (##car _%e144968145386%_)))) + (##car _%e145005145423%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144970145391%_)) + (gx#stx-null? _%tl145007145428%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl144964145375%_)) - (let ((_%__splice147943147944%_ + (gx#stx-pair/null? _%tl145001145412%_)) + (let ((_%__splice147980147981%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl144964145375%_ + _%tl145001145412%_ '0)))) - (let ((_%tl144973145396%_ + (let ((_%tl145010145433%_ (let () (declare (not safe)) (##vector-ref - _%__splice147943147944%_ + _%__splice147980147981%_ '1))) - (_%target144971145394%_ + (_%target145008145431%_ (let () (declare (not safe)) (##vector-ref - _%__splice147943147944%_ + _%__splice147980147981%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144973145396%_)) - (letrec ((_%loop144974145399%_ - (lambda (_%hd144972145402%_ - _%xarg144978145404%_) + _%tl145010145433%_)) + (letrec ((_%loop145011145436%_ + (lambda (_%hd145009145439%_ + _%xarg145015145441%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144972145402%_)) - (let ((_%e144975145407%_ + _%hd145009145439%_)) + (let ((_%e145012145444%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd144972145402%_)))) - (let ((_%lp-tl144977145412%_ + (gx#stx-e _%hd145009145439%_)))) + (let ((_%lp-tl145014145449%_ (let () (declare (not safe)) - (##cdr _%e144975145407%_))) - (_%lp-hd144976145410%_ + (##cdr _%e145012145444%_))) + (_%lp-hd145013145447%_ (let () (declare (not safe)) - (##car _%e144975145407%_)))) + (##car _%e145012145444%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144976145410%_)) - (let ((_%e144980145415%_ + (gx#stx-pair? _%lp-hd145013145447%_)) + (let ((_%e145017145452%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144976145410%_)))) - (let ((_%tl144982145420%_ + (gx#stx-e _%lp-hd145013145447%_)))) + (let ((_%tl145019145457%_ (let () (declare (not safe)) - (##cdr _%e144980145415%_))) - (_%hd144981145418%_ + (##cdr _%e145017145452%_))) + (_%hd145018145455%_ (let () (declare (not safe)) - (##car _%e144980145415%_)))) + (##car _%e145017145452%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144981145418%_)) + (gx#identifier? _%hd145018145455%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd144981145418%_)) + _%hd145018145455%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144982145420%_)) - (let ((_%e144983145423%_ + _%tl145019145457%_)) + (let ((_%e145020145460%_ (let () (declare (not safe)) (gx#stx-e - _%tl144982145420%_)))) - (let ((_%tl144985145428%_ + _%tl145019145457%_)))) + (let ((_%tl145022145465%_ (let () (declare (not safe)) - (##cdr _%e144983145423%_))) - (_%hd144984145426%_ + (##cdr _%e145020145460%_))) + (_%hd145021145463%_ (let () (declare (not safe)) - (##car _%e144983145423%_)))) + (##car _%e145020145460%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144985145428%_)) - (_%loop144974145399%_ - _%lp-tl144977145412%_ - (cons _%hd144984145426%_ - _%xarg144978145404%_)) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)))) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)))) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)))) - (let ((_%xarg144979145431%_ - (reverse _%xarg144978145404%_))) + _%tl145022145465%_)) + (_%loop145011145436%_ + _%lp-tl145014145449%_ + (cons _%hd145021145463%_ + _%xarg145015145441%_)) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)))) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)))) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)))) + (let ((_%xarg145016145468%_ + (reverse _%xarg145015145441%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144958145359%_)) - (_%__kont147939147940%_ - _%xarg144979145431%_ - _%hd144969145389%_ - _%arg144955145351%_) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144974145399%_ - _%target144971145394%_ + (gx#stx-null? _%tl144995145396%_)) + (_%__kont147976147977%_ + _%xarg145016145468%_ + _%hd145006145426%_ + _%arg144992145388%_) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145011145436%_ + _%target145008145431%_ '())) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)))) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)))) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)))) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)))) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)))) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144950145335%_ - _%target144947145330%_ + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)))) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)))) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)))) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)))) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)))) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop144987145372%_ + _%target144984145367%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147937147938%_)) - (let ((_%e144944145322%_ + (gx#stx-pair? _%__stx147974147975%_)) + (let ((_%e144981145359%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147937147938%_)))) - (let ((_%tl144946145327%_ + (gx#stx-e _%__stx147974147975%_)))) + (let ((_%tl144983145364%_ (let () (declare (not safe)) - (##cdr _%e144944145322%_))) - (_%hd144945145325%_ + (##cdr _%e144981145359%_))) + (_%hd144982145362%_ (let () (declare (not safe)) - (##car _%e144944145322%_)))) + (##car _%e144981145359%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd144945145325%_)) - (let ((_%__splice147941147942%_ + (gx#stx-pair/null? _%hd144982145362%_)) + (let ((_%__splice147978147979%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd144945145325%_ + _%hd144982145362%_ '0)))) - (let ((_%tl144949145332%_ + (let ((_%tl144986145369%_ (let () (declare (not safe)) (##vector-ref - _%__splice147941147942%_ + _%__splice147978147979%_ '1))) - (_%target144947145330%_ + (_%target144984145367%_ (let () (declare (not safe)) (##vector-ref - _%__splice147941147942%_ + _%__splice147978147979%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144949145332%_)) - (_%__match147964147965%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_) - (_%__match147976147977%_ - _%e144944145322%_ - _%hd144945145325%_ - _%tl144946145327%_ - _%__splice147941147942%_ - _%target144947145330%_ - _%tl144949145332%_)))) + _%tl144986145369%_)) + (_%__match148001148002%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_) + (_%__match148013148014%_ + _%e144981145359%_ + _%hd144982145362%_ + _%tl144983145364%_ + _%__splice147978147979%_ + _%target144984145367%_ + _%tl144986145369%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144946145327%_)) - (let ((_%e145032145076%_ + (gx#stx-pair? _%tl144983145364%_)) + (let ((_%e145069145113%_ (let () (declare (not safe)) (gx#stx-e - _%tl144946145327%_)))) - (let ((_%tl145034145081%_ + _%tl144983145364%_)))) + (let ((_%tl145071145118%_ (let () (declare (not safe)) - (##cdr _%e145032145076%_))) - (_%hd145033145079%_ + (##cdr _%e145069145113%_))) + (_%hd145070145116%_ (let () (declare (not safe)) - (##car _%e145032145076%_)))) + (##car _%e145069145113%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145033145079%_)) - (let ((_%e145035145084%_ + _%hd145070145116%_)) + (let ((_%e145072145121%_ (let () (declare (not safe)) (gx#stx-e - _%hd145033145079%_)))) - (let ((_%tl145037145089%_ + _%hd145070145116%_)))) + (let ((_%tl145074145126%_ (let () (declare (not safe)) - (##cdr _%e145035145084%_))) - (_%hd145036145087%_ + (##cdr _%e145072145121%_))) + (_%hd145073145124%_ (let () (declare (not safe)) - (##car _%e145035145084%_)))) + (##car _%e145072145121%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145036145087%_)) + _%hd145073145124%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd145036145087%_)) + (gx#stx-eq? '%#call _%hd145073145124%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145037145089%_)) - (let ((_%e145038145092%_ + (gx#stx-pair? _%tl145074145126%_)) + (let ((_%e145075145129%_ (let () (declare (not safe)) - (gx#stx-e _%tl145037145089%_)))) - (let ((_%tl145040145097%_ + (gx#stx-e _%tl145074145126%_)))) + (let ((_%tl145077145134%_ (let () (declare (not safe)) - (##cdr _%e145038145092%_))) - (_%hd145039145095%_ + (##cdr _%e145075145129%_))) + (_%hd145076145132%_ (let () (declare (not safe)) - (##car _%e145038145092%_)))) + (##car _%e145075145129%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145039145095%_)) - (let ((_%e145041145100%_ + (gx#stx-pair? _%hd145076145132%_)) + (let ((_%e145078145137%_ (let () (declare (not safe)) - (gx#stx-e _%hd145039145095%_)))) - (let ((_%tl145043145105%_ + (gx#stx-e _%hd145076145132%_)))) + (let ((_%tl145080145142%_ (let () (declare (not safe)) - (##cdr _%e145041145100%_))) - (_%hd145042145103%_ + (##cdr _%e145078145137%_))) + (_%hd145079145140%_ (let () (declare (not safe)) - (##car _%e145041145100%_)))) + (##car _%e145078145137%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145042145103%_)) + _%hd145079145140%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145042145103%_)) + _%hd145079145140%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145043145105%_)) - (let ((_%e145044145108%_ + _%tl145080145142%_)) + (let ((_%e145081145145%_ (let () (declare (not safe)) (gx#stx-e - _%tl145043145105%_)))) - (let ((_%tl145046145113%_ + _%tl145080145142%_)))) + (let ((_%tl145083145150%_ (let () (declare (not safe)) - (##cdr _%e145044145108%_))) - (_%hd145045145111%_ + (##cdr _%e145081145145%_))) + (_%hd145082145148%_ (let () (declare (not safe)) - (##car _%e145044145108%_)))) + (##car _%e145081145145%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145046145113%_)) + _%tl145083145150%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145040145097%_)) - (let ((_%e145047145116%_ + (gx#stx-pair? _%tl145077145134%_)) + (let ((_%e145084145153%_ (let () (declare (not safe)) - (gx#stx-e _%tl145040145097%_)))) - (let ((_%tl145049145121%_ + (gx#stx-e _%tl145077145134%_)))) + (let ((_%tl145086145158%_ (let () (declare (not safe)) - (##cdr _%e145047145116%_))) - (_%hd145048145119%_ + (##cdr _%e145084145153%_))) + (_%hd145085145156%_ (let () (declare (not safe)) - (##car _%e145047145116%_)))) + (##car _%e145084145153%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145048145119%_)) - (let ((_%e145050145124%_ + (gx#stx-pair? _%hd145085145156%_)) + (let ((_%e145087145161%_ (let () (declare (not safe)) - (gx#stx-e _%hd145048145119%_)))) - (let ((_%tl145052145129%_ + (gx#stx-e _%hd145085145156%_)))) + (let ((_%tl145089145166%_ (let () (declare (not safe)) - (##cdr _%e145050145124%_))) - (_%hd145051145127%_ + (##cdr _%e145087145161%_))) + (_%hd145088145164%_ (let () (declare (not safe)) - (##car _%e145050145124%_)))) + (##car _%e145087145161%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145051145127%_)) + (gx#identifier? _%hd145088145164%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145051145127%_)) + _%hd145088145164%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145052145129%_)) - (let ((_%e145053145132%_ + _%tl145089145166%_)) + (let ((_%e145090145169%_ (let () (declare (not safe)) (gx#stx-e - _%tl145052145129%_)))) - (let ((_%tl145055145137%_ + _%tl145089145166%_)))) + (let ((_%tl145092145174%_ (let () (declare (not safe)) - (##cdr _%e145053145132%_))) - (_%hd145054145135%_ + (##cdr _%e145090145169%_))) + (_%hd145091145172%_ (let () (declare (not safe)) - (##car _%e145053145132%_)))) + (##car _%e145090145169%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145055145137%_)) + _%tl145092145174%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145049145121%_)) - (let ((_%e145056145140%_ + _%tl145086145158%_)) + (let ((_%e145093145177%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145049145121%_)))) - (let ((_%tl145058145145%_ + (gx#stx-e _%tl145086145158%_)))) + (let ((_%tl145095145182%_ (let () (declare (not safe)) - (##cdr _%e145056145140%_))) - (_%hd145057145143%_ + (##cdr _%e145093145177%_))) + (_%hd145094145180%_ (let () (declare (not safe)) - (##car _%e145056145140%_)))) + (##car _%e145093145177%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145058145145%_)) + (gx#stx-null? _%tl145095145182%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145034145081%_)) - (_%__kont147949147950%_ - _%hd145054145135%_ - _%hd145045145111%_ - _%hd144945145325%_) + (gx#stx-null? _%tl145071145118%_)) + (_%__kont147986147987%_ + _%hd145091145172%_ + _%hd145082145148%_ + _%hd144982145362%_) (let () (declare (not safe)) - (_%g144939145063%_))) - (let () (declare (not safe)) (_%g144939145063%_))))) - (let () (declare (not safe)) (_%g144939145063%_))) - (let () (declare (not safe)) (_%g144939145063%_))))) + (_%g144976145100%_))) + (let () (declare (not safe)) (_%g144976145100%_))))) + (let () (declare (not safe)) (_%g144976145100%_))) + (let () (declare (not safe)) (_%g144976145100%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144939145063%_))) + (_%g144976145100%_))) (let () (declare (not safe)) - (_%g144939145063%_))) + (_%g144976145100%_))) (let () (declare (not safe)) - (_%g144939145063%_))))) + (_%g144976145100%_))))) (let () (declare (not safe)) - (_%g144939145063%_))))) - (let () (declare (not safe)) (_%g144939145063%_))) - (let () (declare (not safe)) (_%g144939145063%_))))) + (_%g144976145100%_))))) + (let () (declare (not safe)) (_%g144976145100%_))) + (let () (declare (not safe)) (_%g144976145100%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144939145063%_))) + (_%g144976145100%_))) (let () (declare (not safe)) - (_%g144939145063%_))) + (_%g144976145100%_))) (let () (declare (not safe)) - (_%g144939145063%_))))) + (_%g144976145100%_))))) (let () (declare (not safe)) - (_%g144939145063%_))))) - (let () (declare (not safe)) (_%g144939145063%_))) - (let () (declare (not safe)) (_%g144939145063%_))) - (let () (declare (not safe)) (_%g144939145063%_))))) + (_%g144976145100%_))))) + (let () (declare (not safe)) (_%g144976145100%_))) + (let () (declare (not safe)) (_%g144976145100%_))) + (let () (declare (not safe)) (_%g144976145100%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144939145063%_))))) + (_%g144976145100%_))))) (let () (declare (not safe)) - (_%g144939145063%_)))))) + (_%g144976145100%_)))))) (let () (declare (not safe)) - (_%g144939145063%_)))))))) - (_%generate1144782%_ - (lambda (_%args144917%_ - _%arglen144918%_ - _%hd144919%_ - _%body144920%_) - (let* ((_%len144922%_ + (_%g144976145100%_)))))))) + (_%generate1144819%_ + (lambda (_%args144954%_ + _%arglen144955%_ + _%hd144956%_ + _%body144957%_) + (let* ((_%len144959%_ (let () (declare (not safe)) - (gx#stx-length _%hd144919%_))) - (_%condition144927%_ + (gx#stx-length _%hd144956%_))) + (_%condition144964%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd144919%_)) + (gx#stx-list? _%hd144956%_)) (if (gxc#current-compile-decls-unsafe?) (cons '##fx= - (cons _%arglen144918%_ - (cons _%len144922%_ '()))) + (cons _%arglen144955%_ + (cons _%len144959%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen144918%_ (cons _%len144922%_ '()))) + (cons _%arglen144955%_ (cons _%len144959%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (> _%len144922%_ '0) + (if (> _%len144959%_ '0) (if (gxc#current-compile-decls-unsafe?) (cons '##fx>= - (cons _%arglen144918%_ - (cons _%len144922%_ '()))) + (cons _%arglen144955%_ + (cons _%len144959%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx>= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen144918%_ (cons _%len144922%_ '()))) + (cons _%arglen144955%_ (cons _%len144959%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#t))) - (_%dispatch144929%_ - (if (_%dispatch-case?144780%_ - _%hd144919%_ - _%body144920%_) - (_%dispatch-case-e144781%_ - _%hd144919%_ - _%body144920%_) + (_%dispatch144966%_ + (if (_%dispatch-case?144817%_ + _%hd144956%_ + _%body144957%_) + (_%dispatch-case-e144818%_ + _%hd144956%_ + _%body144957%_) (gxc#generate-runtime-lambda-form - _%self144777%_ - _%hd144919%_ - _%body144920%_)))) - (cons _%condition144927%_ + _%self144814%_ + _%hd144956%_ + _%body144957%_)))) + (cons _%condition144964%_ (cons (cons 'apply - (cons _%dispatch144929%_ - (cons _%args144917%_ '()))) + (cons _%dispatch144966%_ + (cons _%args144954%_ '()))) '())))))) - (let* ((_%g144784144812%_ - (lambda (_%g144785144809%_) + (let* ((_%g144821144849%_ + (lambda (_%g144822144846%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144785144809%_)))) - (_%g144783144914%_ - (lambda (_%g144785144815%_) + _%g144822144846%_)))) + (_%g144820144951%_ + (lambda (_%g144822144852%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144785144815%_)) - (let ((_%e144788144817%_ + (gx#stx-pair? _%g144822144852%_)) + (let ((_%e144825144854%_ (let () (declare (not safe)) - (gx#stx-e _%g144785144815%_)))) - (let ((_%hd144789144820%_ + (gx#stx-e _%g144822144852%_)))) + (let ((_%hd144826144857%_ (let () (declare (not safe)) - (##car _%e144788144817%_))) - (_%tl144790144822%_ + (##car _%e144825144854%_))) + (_%tl144827144859%_ (let () (declare (not safe)) - (##cdr _%e144788144817%_)))) + (##cdr _%e144825144854%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl144790144822%_)) - (let ((_g149106_ + (gx#stx-pair/null? _%tl144827144859%_)) + (let ((_g149143_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl144790144822%_ + _%tl144827144859%_ '0)))) (begin - (let ((_g149107_ + (let ((_g149144_ (let () (declare (not safe)) - (if (##values? _g149106_) - (##vector-length _g149106_) + (if (##values? _g149143_) + (##vector-length _g149143_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149107_ 2))) + (##fx= _g149144_ 2))) (error "Context expects 2 values" - _g149107_))) - (let ((_%target144791144825%_ + _g149144_))) + (let ((_%target144828144862%_ (let () (declare (not safe)) - (##vector-ref _g149106_ 0))) - (_%tl144793144827%_ + (##vector-ref _g149143_ 0))) + (_%tl144830144864%_ (let () (declare (not safe)) - (##vector-ref _g149106_ 1)))) + (##vector-ref _g149143_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144793144827%_)) - (letrec ((_%loop144794144830%_ - (lambda (_%hd144792144833%_ - _%body144798144835%_ - _%hd144799144837%_) + (gx#stx-null? _%tl144830144864%_)) + (letrec ((_%loop144831144867%_ + (lambda (_%hd144829144870%_ + _%body144835144872%_ + _%hd144836144874%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144792144833%_)) - (let ((_%e144795144840%_ + _%hd144829144870%_)) + (let ((_%e144832144877%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd144792144833%_)))) - (let ((_%lp-hd144796144843%_ + (gx#stx-e _%hd144829144870%_)))) + (let ((_%lp-hd144833144880%_ (let () (declare (not safe)) - (##car _%e144795144840%_))) - (_%lp-tl144797144845%_ + (##car _%e144832144877%_))) + (_%lp-tl144834144882%_ (let () (declare (not safe)) - (##cdr _%e144795144840%_)))) + (##cdr _%e144832144877%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144796144843%_)) - (let ((_%e144802144848%_ + (gx#stx-pair? _%lp-hd144833144880%_)) + (let ((_%e144839144885%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144796144843%_)))) - (let ((_%hd144803144851%_ + (gx#stx-e _%lp-hd144833144880%_)))) + (let ((_%hd144840144888%_ (let () (declare (not safe)) - (##car _%e144802144848%_))) - (_%tl144804144853%_ + (##car _%e144839144885%_))) + (_%tl144841144890%_ (let () (declare (not safe)) - (##cdr _%e144802144848%_)))) + (##cdr _%e144839144885%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144804144853%_)) - (let ((_%e144805144856%_ + (gx#stx-pair? _%tl144841144890%_)) + (let ((_%e144842144893%_ (let () (declare (not safe)) - (gx#stx-e _%tl144804144853%_)))) - (let ((_%hd144806144859%_ + (gx#stx-e _%tl144841144890%_)))) + (let ((_%hd144843144896%_ (let () (declare (not safe)) - (##car _%e144805144856%_))) - (_%tl144807144861%_ + (##car _%e144842144893%_))) + (_%tl144844144898%_ (let () (declare (not safe)) - (##cdr _%e144805144856%_)))) + (##cdr _%e144842144893%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144807144861%_)) - (_%loop144794144830%_ - _%lp-tl144797144845%_ - (cons _%hd144806144859%_ - _%body144798144835%_) - (cons _%hd144803144851%_ - _%hd144799144837%_)) - (_%g144784144812%_ - _%g144785144815%_)))) - (_%g144784144812%_ _%g144785144815%_)))) - (_%g144784144812%_ _%g144785144815%_)))) - (let ((_%body144800144864%_ (reverse _%body144798144835%_)) - (_%hd144801144866%_ (reverse _%hd144799144837%_))) - ((lambda (_%L144869%_ _%L144870%_) - (let ((_%args144889%_ + (gx#stx-null? _%tl144844144898%_)) + (_%loop144831144867%_ + _%lp-tl144834144882%_ + (cons _%hd144843144896%_ + _%body144835144872%_) + (cons _%hd144840144888%_ + _%hd144836144874%_)) + (_%g144821144849%_ + _%g144822144852%_)))) + (_%g144821144849%_ _%g144822144852%_)))) + (_%g144821144849%_ _%g144822144852%_)))) + (let ((_%body144837144901%_ (reverse _%body144835144872%_)) + (_%hd144838144903%_ (reverse _%hd144836144874%_))) + ((lambda (_%L144906%_ _%L144907%_) + (let ((_%args144926%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%arglen144890%_ + (_%arglen144927%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%name144891%_ - (let ((_%$e144886%_ - (let ((__tmp149108 + (_%name144928%_ + (let ((_%$e144923%_ + (let ((__tmp149145 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) - (hash-get __tmp149108 _%stx144778%_)))) - (if _%$e144886%_ - _%$e144886%_ + (hash-get __tmp149145 _%stx144815%_)))) + (if _%$e144923%_ + _%$e144923%_ ''case-lambda-dispatch)))) (cons 'lambda - (cons _%args144889%_ + (cons _%args144926%_ (cons (cons 'let - (cons (cons (cons _%arglen144890%_ + (cons (cons (cons _%arglen144927%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (if (gxc#current-compile-decls-unsafe?) - (cons '##length (cons _%args144889%_ '())) + (cons '##length (cons _%args144926%_ '())) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%args144889%_ '())) + (cons _%args144926%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons 'cond - (let ((__tmp149112 + (let ((__tmp149149 (cons (cons 'else (cons (cons '##raise-wrong-number-of-arguments-exception - (cons _%name144891%_ - (cons _%args144889%_ + (cons _%name144928%_ + (cons _%args144926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (__tmp149109 - (map (lambda (_%g144892144895%_ - _%g144893144897%_) - (_%generate1144782%_ - _%args144889%_ - _%arglen144890%_ - _%g144892144895%_ - _%g144893144897%_)) - (let ((__tmp149110 - (lambda (_%g144899144902%_ - _%g144900144904%_) - (cons _%g144899144902%_ - _%g144900144904%_)))) + (__tmp149146 + (map (lambda (_%g144929144932%_ + _%g144930144934%_) + (_%generate1144819%_ + _%args144926%_ + _%arglen144927%_ + _%g144929144932%_ + _%g144930144934%_)) + (let ((__tmp149147 + (lambda (_%g144936144939%_ + _%g144937144941%_) + (cons _%g144936144939%_ + _%g144937144941%_)))) (declare (not safe)) (__foldr1 - __tmp149110 + __tmp149147 '() - _%L144870%_)) - (let ((__tmp149111 - (lambda (_%g144906144909%_ - _%g144907144911%_) - (cons _%g144906144909%_ - _%g144907144911%_)))) + _%L144907%_)) + (let ((__tmp149148 + (lambda (_%g144943144946%_ + _%g144944144948%_) + (cons _%g144943144946%_ + _%g144944144948%_)))) (declare (not safe)) (__foldr1 - __tmp149111 + __tmp149148 '() - _%L144869%_))))) + _%L144906%_))))) (declare (not safe)) - (__foldr1 cons __tmp149112 __tmp149109))) + (__foldr1 cons __tmp149149 __tmp149146))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body144800144864%_ - _%hd144801144866%_)))))) + _%body144837144901%_ + _%hd144838144903%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144794144830%_ - _%target144791144825%_ + (_%loop144831144867%_ + _%target144828144862%_ '() '())) - (_%g144784144812%_ - _%g144785144815%_))))) - (_%g144784144812%_ _%g144785144815%_)))) - (_%g144784144812%_ _%g144785144815%_))))) - (_%g144783144914%_ _%stx144778%_))))) + (_%g144821144849%_ + _%g144822144852%_))))) + (_%g144821144849%_ _%g144822144852%_)))) + (_%g144821144849%_ _%g144822144852%_))))) + (_%g144820144951%_ _%stx144815%_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_%self144014%_ _%stx144015%_ _%compiled-body?144016%_) - (letrec ((_%generate-simple144018%_ - (lambda (_%hd144762%_ _%body144763%_) - (_%coalesce-boolean144019%_ - (_%simplify-let144020%_ + (lambda (_%self144051%_ _%stx144052%_ _%compiled-body?144053%_) + (letrec ((_%generate-simple144055%_ + (lambda (_%hd144799%_ _%body144800%_) + (_%coalesce-boolean144056%_ + (_%simplify-let144057%_ (gxc#generate-runtime-simple-let - _%self144014%_ + _%self144051%_ 'let - _%hd144762%_ - _%body144763%_ - _%compiled-body?144016%_))))) - (_%coalesce-boolean144019%_ - (lambda (_%code144623%_) + _%hd144799%_ + _%body144800%_ + _%compiled-body?144053%_))))) + (_%coalesce-boolean144056%_ + (lambda (_%code144660%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (let* ((_%code144624144650%_ _%code144623%_) - (_%else144626144658%_ - (lambda () _%code144623%_)) - (_%K144628144695%_ - (lambda (_%expr2144661%_ - _%expr1144662%_ - _%id144663%_) - (let* ((_%expr2144664144672%_ - _%expr2144661%_) - (_%else144666144680%_ + (let* ((_%code144661144687%_ _%code144660%_) + (_%else144663144695%_ + (lambda () _%code144660%_)) + (_%K144665144732%_ + (lambda (_%expr2144698%_ + _%expr1144699%_ + _%id144700%_) + (let* ((_%expr2144701144709%_ + _%expr2144698%_) + (_%else144703144717%_ (lambda () (cons 'or - (cons _%expr1144662%_ - (cons _%expr2144661%_ + (cons _%expr1144699%_ + (cons _%expr2144698%_ '()))))) - (_%K144668144685%_ - (lambda (_%exprs144683%_) + (_%K144705144722%_ + (lambda (_%exprs144720%_) (cons 'or - (cons _%expr1144662%_ - _%exprs144683%_))))) - (if (pair? _%expr2144664144672%_) - (let ((_%hd144669144688%_ + (cons _%expr1144699%_ + _%exprs144720%_))))) + (if (pair? _%expr2144701144709%_) + (let ((_%hd144706144725%_ (let () (declare (not safe)) - (##car _%expr2144664144672%_))) - (_%tl144670144690%_ + (##car _%expr2144701144709%_))) + (_%tl144707144727%_ (let () (declare (not safe)) - (##cdr _%expr2144664144672%_)))) + (##cdr _%expr2144701144709%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144669144688%_ 'or)) - (let ((_%exprs144693%_ - _%tl144670144690%_)) - (_%K144668144685%_ - _%exprs144693%_)) - (_%else144666144680%_))) - (_%else144666144680%_)))))) - (if (pair? _%code144624144650%_) - (let ((_%hd144629144698%_ + (##eq? _%hd144706144725%_ 'or)) + (let ((_%exprs144730%_ + _%tl144707144727%_)) + (_%K144705144722%_ + _%exprs144730%_)) + (_%else144703144717%_))) + (_%else144703144717%_)))))) + (if (pair? _%code144661144687%_) + (let ((_%hd144666144735%_ (let () (declare (not safe)) - (##car _%code144624144650%_))) - (_%tl144630144700%_ + (##car _%code144661144687%_))) + (_%tl144667144737%_ (let () (declare (not safe)) - (##cdr _%code144624144650%_)))) + (##cdr _%code144661144687%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144629144698%_ 'let)) - (if (pair? _%tl144630144700%_) - (let ((_%hd144631144703%_ + (##eq? _%hd144666144735%_ 'let)) + (if (pair? _%tl144667144737%_) + (let ((_%hd144668144740%_ (let () (declare (not safe)) - (##car _%tl144630144700%_))) - (_%tl144632144705%_ + (##car _%tl144667144737%_))) + (_%tl144669144742%_ (let () (declare (not safe)) - (##cdr _%tl144630144700%_)))) - (if (pair? _%hd144631144703%_) - (let ((_%hd144643144708%_ + (##cdr _%tl144667144737%_)))) + (if (pair? _%hd144668144740%_) + (let ((_%hd144680144745%_ (let () (declare (not safe)) - (##car _%hd144631144703%_))) - (_%tl144644144710%_ + (##car _%hd144668144740%_))) + (_%tl144681144747%_ (let () (declare (not safe)) - (##cdr _%hd144631144703%_)))) - (if (pair? _%hd144643144708%_) - (let ((_%hd144645144713%_ + (##cdr _%hd144668144740%_)))) + (if (pair? _%hd144680144745%_) + (let ((_%hd144682144750%_ (let () (declare (not safe)) - (##car _%hd144643144708%_))) - (_%tl144646144715%_ + (##car _%hd144680144745%_))) + (_%tl144683144752%_ (let () (declare (not safe)) - (##cdr _%hd144643144708%_)))) - (let ((_%id144718%_ - _%hd144645144713%_)) - (if (pair? _%tl144646144715%_) - (let ((_%hd144647144720%_ + (##cdr _%hd144680144745%_)))) + (let ((_%id144755%_ + _%hd144682144750%_)) + (if (pair? _%tl144683144752%_) + (let ((_%hd144684144757%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%tl144646144715%_))) - (_%tl144648144722%_ + (##car _%tl144683144752%_))) + (_%tl144685144759%_ (let () (declare (not safe)) - (##cdr _%tl144646144715%_)))) - (let ((_%expr1144725%_ _%hd144647144720%_)) - (if (null? _%tl144648144722%_) - (if (null? _%tl144644144710%_) - (if (pair? _%tl144632144705%_) - (let ((_%hd144633144727%_ + (##cdr _%tl144683144752%_)))) + (let ((_%expr1144762%_ _%hd144684144757%_)) + (if (null? _%tl144685144759%_) + (if (null? _%tl144681144747%_) + (if (pair? _%tl144669144742%_) + (let ((_%hd144670144764%_ (let () (declare (not safe)) - (##car _%tl144632144705%_))) - (_%tl144634144729%_ + (##car _%tl144669144742%_))) + (_%tl144671144766%_ (let () (declare (not safe)) - (##cdr _%tl144632144705%_)))) - (if (pair? _%hd144633144727%_) - (let ((_%hd144635144732%_ + (##cdr _%tl144669144742%_)))) + (if (pair? _%hd144670144764%_) + (let ((_%hd144672144769%_ (let () (declare (not safe)) - (##car _%hd144633144727%_))) - (_%tl144636144734%_ + (##car _%hd144670144764%_))) + (_%tl144673144771%_ (let () (declare (not safe)) - (##cdr _%hd144633144727%_)))) + (##cdr _%hd144670144764%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144635144732%_ + (##eq? _%hd144672144769%_ 'if)) - (if (pair? _%tl144636144734%_) - (let ((_%hd144637144737%_ + (if (pair? _%tl144673144771%_) + (let ((_%hd144674144774%_ (let () (declare (not safe)) - (##car _%tl144636144734%_))) - (_%tl144638144739%_ + (##car _%tl144673144771%_))) + (_%tl144675144776%_ (let () (declare (not safe)) - (##cdr _%tl144636144734%_)))) - (if ((lambda (_%g144741144743%_) - (eq? _%g144741144743%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id144718%_)) - _%hd144637144737%_) - (if (pair? _%tl144638144739%_) - (let ((_%hd144639144746%_ + (##cdr _%tl144673144771%_)))) + (if ((lambda (_%g144778144780%_) + (eq? _%g144778144780%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%id144755%_)) + _%hd144674144774%_) + (if (pair? _%tl144675144776%_) + (let ((_%hd144676144783%_ (let () (declare (not safe)) - (##car _%tl144638144739%_))) - (_%tl144640144748%_ + (##car _%tl144675144776%_))) + (_%tl144677144785%_ (let () (declare (not safe)) - (##cdr _%tl144638144739%_)))) - (if ((lambda (_%g144750144752%_) - (eq? _%g144750144752%_ _%id144718%_)) - _%hd144639144746%_) - (if (pair? _%tl144640144748%_) - (let ((_%hd144641144755%_ + (##cdr _%tl144675144776%_)))) + (if ((lambda (_%g144787144789%_) + (eq? _%g144787144789%_ _%id144755%_)) + _%hd144676144783%_) + (if (pair? _%tl144677144785%_) + (let ((_%hd144678144792%_ (let () (declare (not safe)) - (##car _%tl144640144748%_))) - (_%tl144642144757%_ + (##car _%tl144677144785%_))) + (_%tl144679144794%_ (let () (declare (not safe)) - (##cdr _%tl144640144748%_)))) - (let ((_%expr2144760%_ _%hd144641144755%_)) - (if (null? _%tl144642144757%_) - (if (null? _%tl144634144729%_) - (_%K144628144695%_ - _%expr2144760%_ - _%expr1144725%_ - _%id144718%_) - (_%else144626144658%_)) - (_%else144626144658%_)))) - (_%else144626144658%_)) - (_%else144626144658%_))) - (_%else144626144658%_)) - (_%else144626144658%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144626144658%_)) - (_%else144626144658%_))) - (_%else144626144658%_))) - (_%else144626144658%_)) - (_%else144626144658%_)) - (_%else144626144658%_)))) - (_%else144626144658%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144626144658%_))) - (_%else144626144658%_))) - (_%else144626144658%_)) - (_%else144626144658%_))) - (_%else144626144658%_))) - _%code144623%_))) - (_%simplify-let144020%_ - (lambda (_%code144322%_) - (let* ((_%code144323144395%_ _%code144322%_) - (_%else144328144403%_ (lambda () _%code144322%_))) - (let ((_%K144387144603%_ - (lambda (_%expr144601%_) _%expr144601%_)) - (_%K144370144549%_ - (lambda (_%body144545%_ - _%expr144546%_ - _%id144547%_) + (##cdr _%tl144677144785%_)))) + (let ((_%expr2144797%_ _%hd144678144792%_)) + (if (null? _%tl144679144794%_) + (if (null? _%tl144671144766%_) + (_%K144665144732%_ + _%expr2144797%_ + _%expr1144762%_ + _%id144755%_) + (_%else144663144695%_)) + (_%else144663144695%_)))) + (_%else144663144695%_)) + (_%else144663144695%_))) + (_%else144663144695%_)) + (_%else144663144695%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144663144695%_)) + (_%else144663144695%_))) + (_%else144663144695%_))) + (_%else144663144695%_)) + (_%else144663144695%_)) + (_%else144663144695%_)))) + (_%else144663144695%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144663144695%_))) + (_%else144663144695%_))) + (_%else144663144695%_)) + (_%else144663144695%_))) + (_%else144663144695%_))) + _%code144660%_))) + (_%simplify-let144057%_ + (lambda (_%code144359%_) + (let* ((_%code144360144432%_ _%code144359%_) + (_%else144365144440%_ (lambda () _%code144359%_))) + (let ((_%K144424144640%_ + (lambda (_%expr144638%_) _%expr144638%_)) + (_%K144407144586%_ + (lambda (_%body144582%_ + _%expr144583%_ + _%id144584%_) (cons 'let - (cons (cons (cons _%id144547%_ - (cons _%expr144546%_ + (cons (cons (cons _%id144584%_ + (cons _%expr144583%_ '())) '()) - _%body144545%_)))) - (_%K144347144473%_ - (lambda (_%body144467%_ - _%expr2144468%_ - _%id2144469%_ - _%expr1144470%_ - _%id1144471%_) + _%body144582%_)))) + (_%K144384144510%_ + (lambda (_%body144504%_ + _%expr2144505%_ + _%id2144506%_ + _%expr1144507%_ + _%id1144508%_) (cons 'let* - (cons (cons (cons _%id1144471%_ - (cons _%expr1144470%_ + (cons (cons (cons _%id1144508%_ + (cons _%expr1144507%_ '())) - (cons (cons _%id2144469%_ - (cons _%expr2144468%_ + (cons (cons _%id2144506%_ + (cons _%expr2144505%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body144467%_)))) - (_%K144330144412%_ - (lambda (_%body144407%_ - _%bind144408%_ - _%expr1144409%_ - _%id1144410%_) + _%body144504%_)))) + (_%K144367144449%_ + (lambda (_%body144444%_ + _%bind144445%_ + _%expr1144446%_ + _%id1144447%_) (cons 'let* - (cons (cons (cons _%id1144410%_ - (cons _%expr1144409%_ + (cons (cons (cons _%id1144447%_ + (cons _%expr1144446%_ '())) - _%bind144408%_) - _%body144407%_))))) - (if (pair? _%code144323144395%_) - (let ((_%tl144389144608%_ + _%bind144445%_) + _%body144444%_))))) + (if (pair? _%code144360144432%_) + (let ((_%tl144426144645%_ (let () (declare (not safe)) - (##cdr _%code144323144395%_))) - (_%hd144388144606%_ + (##cdr _%code144360144432%_))) + (_%hd144425144643%_ (let () (declare (not safe)) - (##car _%code144323144395%_)))) + (##car _%code144360144432%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144388144606%_ 'let)) - (if (pair? _%tl144389144608%_) - (let ((_%tl144391144613%_ + (##eq? _%hd144425144643%_ 'let)) + (if (pair? _%tl144426144645%_) + (let ((_%tl144428144650%_ (let () (declare (not safe)) - (##cdr _%tl144389144608%_))) - (_%hd144390144611%_ + (##cdr _%tl144426144645%_))) + (_%hd144427144648%_ (let () (declare (not safe)) - (##car _%tl144389144608%_)))) - (if (null? _%hd144390144611%_) - (if (pair? _%tl144391144613%_) - (let ((_%tl144393144618%_ + (##car _%tl144426144645%_)))) + (if (null? _%hd144427144648%_) + (if (pair? _%tl144428144650%_) + (let ((_%tl144430144655%_ (let () (declare (not safe)) - (##cdr _%tl144391144613%_))) - (_%hd144392144616%_ + (##cdr _%tl144428144650%_))) + (_%hd144429144653%_ (let () (declare (not safe)) - (##car _%tl144391144613%_)))) - (if (null? _%tl144393144618%_) - (let ((_%expr144621%_ - _%hd144392144616%_)) - (_%K144387144603%_ - _%expr144621%_)) - (_%else144328144403%_))) - (_%else144328144403%_)) - (if (pair? _%hd144390144611%_) - (let ((_%tl144382144564%_ + (##car _%tl144428144650%_)))) + (if (null? _%tl144430144655%_) + (let ((_%expr144658%_ + _%hd144429144653%_)) + (_%K144424144640%_ + _%expr144658%_)) + (_%else144365144440%_))) + (_%else144365144440%_)) + (if (pair? _%hd144427144648%_) + (let ((_%tl144419144601%_ (let () (declare (not safe)) - (##cdr _%hd144390144611%_))) - (_%hd144381144562%_ + (##cdr _%hd144427144648%_))) + (_%hd144418144599%_ (let () (declare (not safe)) - (##car _%hd144390144611%_)))) - (if (pair? _%hd144381144562%_) - (let ((_%tl144384144569%_ + (##car _%hd144427144648%_)))) + (if (pair? _%hd144418144599%_) + (let ((_%tl144421144606%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%hd144381144562%_))) - (_%hd144383144567%_ - (let () (declare (not safe)) (##car _%hd144381144562%_)))) - (if (pair? _%tl144384144569%_) - (let ((_%tl144386144576%_ + (##cdr _%hd144418144599%_))) + (_%hd144420144604%_ + (let () (declare (not safe)) (##car _%hd144418144599%_)))) + (if (pair? _%tl144421144606%_) + (let ((_%tl144423144613%_ (let () (declare (not safe)) - (##cdr _%tl144384144569%_))) - (_%hd144385144574%_ + (##cdr _%tl144421144606%_))) + (_%hd144422144611%_ (let () (declare (not safe)) - (##car _%tl144384144569%_)))) - (if (null? _%tl144386144576%_) - (if (null? _%tl144382144564%_) - (if (pair? _%tl144391144613%_) - (let ((_%tl144376144583%_ + (##car _%tl144421144606%_)))) + (if (null? _%tl144423144613%_) + (if (null? _%tl144419144601%_) + (if (pair? _%tl144428144650%_) + (let ((_%tl144413144620%_ (let () (declare (not safe)) - (##cdr _%tl144391144613%_))) - (_%hd144375144581%_ + (##cdr _%tl144428144650%_))) + (_%hd144412144618%_ (let () (declare (not safe)) - (##car _%tl144391144613%_)))) - (if (pair? _%hd144375144581%_) - (let ((_%tl144378144588%_ + (##car _%tl144428144650%_)))) + (if (pair? _%hd144412144618%_) + (let ((_%tl144415144625%_ (let () (declare (not safe)) - (##cdr _%hd144375144581%_))) - (_%hd144377144586%_ + (##cdr _%hd144412144618%_))) + (_%hd144414144623%_ (let () (declare (not safe)) - (##car _%hd144375144581%_)))) + (##car _%hd144412144618%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144377144586%_ + (##eq? _%hd144414144623%_ 'let)) - (if (pair? _%tl144378144588%_) - (let ((_%tl144380144593%_ + (if (pair? _%tl144415144625%_) + (let ((_%tl144417144630%_ (let () (declare (not safe)) - (##cdr _%tl144378144588%_))) - (_%hd144379144591%_ + (##cdr _%tl144415144625%_))) + (_%hd144416144628%_ (let () (declare (not safe)) - (##car _%tl144378144588%_)))) - (if (null? _%hd144379144591%_) - (if (null? _%tl144376144583%_) - (let ((_%id144572%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd144383144567%_) - (_%expr144579%_ _%hd144385144574%_) - (_%body144596%_ _%tl144380144593%_)) - (_%K144370144549%_ - _%body144596%_ - _%expr144579%_ - _%id144572%_)) - (_%else144328144403%_)) - (if (pair? _%hd144379144591%_) - (let ((_%tl144359144522%_ + (##car _%tl144415144625%_)))) + (if (null? _%hd144416144628%_) + (if (null? _%tl144413144620%_) + (let ((_%id144609%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%hd144420144604%_) + (_%expr144616%_ _%hd144422144611%_) + (_%body144633%_ _%tl144417144630%_)) + (_%K144407144586%_ + _%body144633%_ + _%expr144616%_ + _%id144609%_)) + (_%else144365144440%_)) + (if (pair? _%hd144416144628%_) + (let ((_%tl144396144559%_ (let () (declare (not safe)) - (##cdr _%hd144379144591%_))) - (_%hd144358144520%_ + (##cdr _%hd144416144628%_))) + (_%hd144395144557%_ (let () (declare (not safe)) - (##car _%hd144379144591%_)))) - (if (pair? _%hd144358144520%_) - (let ((_%tl144361144527%_ + (##car _%hd144416144628%_)))) + (if (pair? _%hd144395144557%_) + (let ((_%tl144398144564%_ (let () (declare (not safe)) - (##cdr _%hd144358144520%_))) - (_%hd144360144525%_ + (##cdr _%hd144395144557%_))) + (_%hd144397144562%_ (let () (declare (not safe)) - (##car _%hd144358144520%_)))) - (if (pair? _%tl144361144527%_) - (let ((_%tl144363144534%_ + (##car _%hd144395144557%_)))) + (if (pair? _%tl144398144564%_) + (let ((_%tl144400144571%_ (let () (declare (not safe)) - (##cdr _%tl144361144527%_))) - (_%hd144362144532%_ + (##cdr _%tl144398144564%_))) + (_%hd144399144569%_ (let () (declare (not safe)) - (##car _%tl144361144527%_)))) - (if (null? _%tl144363144534%_) - (if (null? _%tl144359144522%_) - (if (null? _%tl144376144583%_) - (let ((_%id1144496%_ - _%hd144383144567%_) - (_%expr1144503%_ - _%hd144385144574%_) - (_%id2144530%_ - _%hd144360144525%_) - (_%expr2144537%_ - _%hd144362144532%_) - (_%body144539%_ - _%tl144380144593%_)) - (_%K144347144473%_ - _%body144539%_ - _%expr2144537%_ - _%id2144530%_ - _%expr1144503%_ - _%id1144496%_)) - (_%else144328144403%_)) - (_%else144328144403%_)) - (_%else144328144403%_))) - (_%else144328144403%_))) - (_%else144328144403%_))) - (_%else144328144403%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144328144403%_)) + (##car _%tl144398144564%_)))) + (if (null? _%tl144400144571%_) + (if (null? _%tl144396144559%_) + (if (null? _%tl144413144620%_) + (let ((_%id1144533%_ + _%hd144420144604%_) + (_%expr1144540%_ + _%hd144422144611%_) + (_%id2144567%_ + _%hd144397144562%_) + (_%expr2144574%_ + _%hd144399144569%_) + (_%body144576%_ + _%tl144417144630%_)) + (_%K144384144510%_ + _%body144576%_ + _%expr2144574%_ + _%id2144567%_ + _%expr1144540%_ + _%id1144533%_)) + (_%else144365144440%_)) + (_%else144365144440%_)) + (_%else144365144440%_))) + (_%else144365144440%_))) + (_%else144365144440%_))) + (_%else144365144440%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144365144440%_)) (if (let () (declare (not safe)) - (##eq? _%hd144377144586%_ + (##eq? _%hd144414144623%_ 'let*)) - (if (pair? _%tl144378144588%_) - (let ((_%tl144340144456%_ + (if (pair? _%tl144415144625%_) + (let ((_%tl144377144493%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl144378144588%_))) - (_%hd144339144454%_ - (let () (declare (not safe)) (##car _%tl144378144588%_)))) - (if (null? _%tl144376144583%_) - (let ((_%id1144435%_ _%hd144383144567%_) - (_%expr1144442%_ _%hd144385144574%_) - (_%bind144459%_ _%hd144339144454%_) - (_%body144461%_ _%tl144340144456%_)) - (_%K144330144412%_ - _%body144461%_ - _%bind144459%_ - _%expr1144442%_ - _%id1144435%_)) - (_%else144328144403%_))) - (_%else144328144403%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144328144403%_)))) - (_%else144328144403%_))) - (_%else144328144403%_)) - (_%else144328144403%_)) - (_%else144328144403%_))) - (_%else144328144403%_))) - (_%else144328144403%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144328144403%_)))) - (_%else144328144403%_)) - (_%else144328144403%_))) - (_%else144328144403%_)))))) - (_%generate-values144021%_ - (lambda (_%hd144135%_ _%body144136%_) - (let _%lp144138%_ ((_%rest144140%_ _%hd144135%_) - (_%bind144141%_ '()) - (_%check144142%_ '()) - (_%post144143%_ '())) - (let* ((_%__stx148266148267%_ _%rest144140%_) - (_%g144146144157%_ + (##cdr _%tl144415144625%_))) + (_%hd144376144491%_ + (let () (declare (not safe)) (##car _%tl144415144625%_)))) + (if (null? _%tl144413144620%_) + (let ((_%id1144472%_ _%hd144420144604%_) + (_%expr1144479%_ _%hd144422144611%_) + (_%bind144496%_ _%hd144376144491%_) + (_%body144498%_ _%tl144377144493%_)) + (_%K144367144449%_ + _%body144498%_ + _%bind144496%_ + _%expr1144479%_ + _%id1144472%_)) + (_%else144365144440%_))) + (_%else144365144440%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144365144440%_)))) + (_%else144365144440%_))) + (_%else144365144440%_)) + (_%else144365144440%_)) + (_%else144365144440%_))) + (_%else144365144440%_))) + (_%else144365144440%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144365144440%_)))) + (_%else144365144440%_)) + (_%else144365144440%_))) + (_%else144365144440%_)))))) + (_%generate-values144058%_ + (lambda (_%hd144172%_ _%body144173%_) + (let _%lp144175%_ ((_%rest144177%_ _%hd144172%_) + (_%bind144178%_ '()) + (_%check144179%_ '()) + (_%post144180%_ '())) + (let* ((_%__stx148303148304%_ _%rest144177%_) + (_%g144183144194%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148266148267%_))))) - (let ((_%__kont148268148269%_ - (lambda (_%L144184%_ _%L144185%_) - (let* ((_%__stx148222148223%_ _%L144185%_) - (_%g144200144225%_ + _%__stx148303148304%_))))) + (let ((_%__kont148305148306%_ + (lambda (_%L144221%_ _%L144222%_) + (let* ((_%__stx148259148260%_ _%L144222%_) + (_%g144237144262%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148222148223%_))))) - (let ((_%__kont148224148225%_ - (lambda (_%L144298%_ _%L144299%_) - (let ((_%eid144313%_ + _%__stx148259148260%_))))) + (let ((_%__kont148261148262%_ + (lambda (_%L144335%_ _%L144336%_) + (let ((_%eid144350%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L144299%_))) - (_%expr144314%_ + _%L144336%_))) + (_%expr144351%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self144014%_ - _%L144298%_)))) - (_%lp144138%_ - _%L144184%_ - (cons (cons _%eid144313%_ - (cons _%expr144314%_ + _%self144051%_ + _%L144335%_)))) + (_%lp144175%_ + _%L144221%_ + (cons (cons _%eid144350%_ + (cons _%expr144351%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind144141%_) - _%check144142%_ - _%post144143%_)))) - (_%__kont148226148227%_ - (lambda (_%L144246%_ _%L144247%_) - (let* ((_%vals144260%_ + _%bind144178%_) + _%check144179%_ + _%post144180%_)))) + (_%__kont148263148264%_ + (lambda (_%L144283%_ _%L144284%_) + (let* ((_%vals144297%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values144262%_ + (_%check-values144299%_ (gxc#generate-runtime-check-values - _%vals144260%_ - _%L144247%_ - _%L144246%_)) - (_%refs144264%_ + _%vals144297%_ + _%L144284%_ + _%L144283%_)) + (_%refs144301%_ (gxc#generate-runtime-let-values-bind - _%vals144260%_ - _%L144247%_)) - (_%expr144266%_ + _%vals144297%_ + _%L144284%_)) + (_%expr144303%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self144014%_ - _%L144246%_)))) - (_%lp144138%_ - _%L144184%_ - (cons (cons _%vals144260%_ - (cons _%expr144266%_ + _%self144051%_ + _%L144283%_)))) + (_%lp144175%_ + _%L144221%_ + (cons (cons _%vals144297%_ + (cons _%expr144303%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind144141%_) - (cons _%check-values144262%_ - _%check144142%_) - (cons _%refs144264%_ - _%post144143%_)))))) + _%bind144178%_) + (cons _%check-values144299%_ + _%check144179%_) + (cons _%refs144301%_ + _%post144180%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148222148223%_)) - (let ((_%e144204144274%_ + _%__stx148259148260%_)) + (let ((_%e144241144311%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148222148223%_)))) - (let ((_%tl144206144279%_ + _%__stx148259148260%_)))) + (let ((_%tl144243144316%_ (let () (declare (not safe)) - (##cdr _%e144204144274%_))) - (_%hd144205144277%_ + (##cdr _%e144241144311%_))) + (_%hd144242144314%_ (let () (declare (not safe)) - (##car _%e144204144274%_)))) + (##car _%e144241144311%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144205144277%_)) - (let ((_%e144207144282%_ + _%hd144242144314%_)) + (let ((_%e144244144319%_ (let () (declare (not safe)) (gx#stx-e - _%hd144205144277%_)))) - (let ((_%tl144209144287%_ + _%hd144242144314%_)))) + (let ((_%tl144246144324%_ (let () (declare (not safe)) - (##cdr _%e144207144282%_))) - (_%hd144208144285%_ + (##cdr _%e144244144319%_))) + (_%hd144245144322%_ (let () (declare (not safe)) - (##car _%e144207144282%_)))) + (##car _%e144244144319%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144209144287%_)) + _%tl144246144324%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl144206144279%_)) - (let ((_%e144210144290%_ + (gx#stx-pair? _%tl144243144316%_)) + (let ((_%e144247144327%_ (let () (declare (not safe)) - (gx#stx-e _%tl144206144279%_)))) - (let ((_%tl144212144295%_ + (gx#stx-e _%tl144243144316%_)))) + (let ((_%tl144249144332%_ (let () (declare (not safe)) - (##cdr _%e144210144290%_))) - (_%hd144211144293%_ + (##cdr _%e144247144327%_))) + (_%hd144248144330%_ (let () (declare (not safe)) - (##car _%e144210144290%_)))) + (##car _%e144247144327%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144212144295%_)) - (_%__kont148224148225%_ - _%hd144211144293%_ - _%hd144208144285%_) + (gx#stx-null? _%tl144249144332%_)) + (_%__kont148261148262%_ + _%hd144248144330%_ + _%hd144245144322%_) (let () (declare (not safe)) - (_%g144200144225%_))))) - (let () (declare (not safe)) (_%g144200144225%_))) + (_%g144237144262%_))))) + (let () (declare (not safe)) (_%g144237144262%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144206144279%_)) - (let ((_%e144218144238%_ + (gx#stx-pair? _%tl144243144316%_)) + (let ((_%e144255144275%_ (let () (declare (not safe)) - (gx#stx-e _%tl144206144279%_)))) - (let ((_%tl144220144243%_ + (gx#stx-e _%tl144243144316%_)))) + (let ((_%tl144257144280%_ (let () (declare (not safe)) - (##cdr _%e144218144238%_))) - (_%hd144219144241%_ + (##cdr _%e144255144275%_))) + (_%hd144256144278%_ (let () (declare (not safe)) - (##car _%e144218144238%_)))) + (##car _%e144255144275%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144220144243%_)) - (_%__kont148226148227%_ - _%hd144219144241%_ - _%hd144205144277%_) + (gx#stx-null? _%tl144257144280%_)) + (_%__kont148263148264%_ + _%hd144256144278%_ + _%hd144242144314%_) (let () (declare (not safe)) - (_%g144200144225%_))))) - (let () (declare (not safe)) (_%g144200144225%_)))))) + (_%g144237144262%_))))) + (let () (declare (not safe)) (_%g144237144262%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144206144279%_)) - (let ((_%e144218144238%_ + _%tl144243144316%_)) + (let ((_%e144255144275%_ (let () (declare (not safe)) (gx#stx-e - _%tl144206144279%_)))) - (let ((_%tl144220144243%_ + _%tl144243144316%_)))) + (let ((_%tl144257144280%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e144218144238%_))) - (_%hd144219144241%_ - (let () (declare (not safe)) (##car _%e144218144238%_)))) + (##cdr _%e144255144275%_))) + (_%hd144256144278%_ + (let () (declare (not safe)) (##car _%e144255144275%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144220144243%_)) - (_%__kont148226148227%_ - _%hd144219144241%_ - _%hd144205144277%_) - (let () (declare (not safe)) (_%g144200144225%_))))) + (gx#stx-null? _%tl144257144280%_)) + (_%__kont148263148264%_ + _%hd144256144278%_ + _%hd144242144314%_) + (let () (declare (not safe)) (_%g144237144262%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144200144225%_)))))) + (_%g144237144262%_)))))) (let () (declare (not safe)) - (_%g144200144225%_))))))) - (_%__kont148270148271%_ + (_%g144237144262%_))))))) + (_%__kont148307148308%_ (lambda () - (let* ((_%body144164%_ - (if _%compiled-body?144016%_ - _%body144136%_ + (let* ((_%body144201%_ + (if _%compiled-body?144053%_ + _%body144173%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self144014%_ - _%body144136%_)))) - (_%body144166%_ - (_%generate-values-post144022%_ - _%post144143%_ - _%body144164%_)) - (_%body144168%_ - (_%generate-values-check144023%_ - _%check144142%_ - _%body144166%_))) + _%self144051%_ + _%body144173%_)))) + (_%body144203%_ + (_%generate-values-post144059%_ + _%post144180%_ + _%body144201%_)) + (_%body144205%_ + (_%generate-values-check144060%_ + _%check144179%_ + _%body144203%_))) (cons 'let - (cons (reverse _%bind144141%_) - (cons _%body144168%_ '()))))))) + (cons (reverse _%bind144178%_) + (cons _%body144205%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148266148267%_)) - (let ((_%e144150144176%_ + (gx#stx-pair? _%__stx148303148304%_)) + (let ((_%e144187144213%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148266148267%_)))) - (let ((_%tl144152144181%_ + (gx#stx-e _%__stx148303148304%_)))) + (let ((_%tl144189144218%_ (let () (declare (not safe)) - (##cdr _%e144150144176%_))) - (_%hd144151144179%_ + (##cdr _%e144187144213%_))) + (_%hd144188144216%_ (let () (declare (not safe)) - (##car _%e144150144176%_)))) - (_%__kont148268148269%_ - _%tl144152144181%_ - _%hd144151144179%_))) - (_%__kont148270148271%_))))))) - (_%generate-values-post144022%_ - (lambda (_%post144094%_ _%body144095%_) - (let _%lp144097%_ ((_%rest144099%_ _%post144094%_) - (_%body144100%_ _%body144095%_)) - (let* ((_%rest144101144109%_ _%rest144099%_) - (_%else144103144117%_ (lambda () _%body144100%_)) - (_%K144105144123%_ - (lambda (_%rest144120%_ _%bind144121%_) - (_%lp144097%_ - _%rest144120%_ + (##car _%e144187144213%_)))) + (_%__kont148305148306%_ + _%tl144189144218%_ + _%hd144188144216%_))) + (_%__kont148307148308%_))))))) + (_%generate-values-post144059%_ + (lambda (_%post144131%_ _%body144132%_) + (let _%lp144134%_ ((_%rest144136%_ _%post144131%_) + (_%body144137%_ _%body144132%_)) + (let* ((_%rest144138144146%_ _%rest144136%_) + (_%else144140144154%_ (lambda () _%body144137%_)) + (_%K144142144160%_ + (lambda (_%rest144157%_ _%bind144158%_) + (_%lp144134%_ + _%rest144157%_ (cons 'let - (cons _%bind144121%_ - (cons _%body144100%_ '()))))))) - (if (pair? _%rest144101144109%_) - (let ((_%hd144106144126%_ + (cons _%bind144158%_ + (cons _%body144137%_ '()))))))) + (if (pair? _%rest144138144146%_) + (let ((_%hd144143144163%_ (let () (declare (not safe)) - (##car _%rest144101144109%_))) - (_%tl144107144128%_ + (##car _%rest144138144146%_))) + (_%tl144144144165%_ (let () (declare (not safe)) - (##cdr _%rest144101144109%_)))) - (let* ((_%bind144131%_ _%hd144106144126%_) - (_%rest144133%_ _%tl144107144128%_)) - (_%K144105144123%_ - _%rest144133%_ - _%bind144131%_))) - (_%else144103144117%_)))))) - (_%generate-values-check144023%_ - (lambda (_%check144091%_ _%body144092%_) + (##cdr _%rest144138144146%_)))) + (let* ((_%bind144168%_ _%hd144143144163%_) + (_%rest144170%_ _%tl144144144165%_)) + (_%K144142144160%_ + _%rest144170%_ + _%bind144168%_))) + (_%else144140144154%_)))))) + (_%generate-values-check144060%_ + (lambda (_%check144128%_ _%body144129%_) (cons 'begin - (let ((__tmp149114 (cons _%body144092%_ '())) - (__tmp149113 (reverse _%check144091%_))) + (let ((__tmp149151 (cons _%body144129%_ '())) + (__tmp149150 (reverse _%check144128%_))) (declare (not safe)) - (__foldr1 cons __tmp149114 __tmp149113)))))) - (let* ((_%g144025144042%_ - (lambda (_%g144026144039%_) + (__foldr1 cons __tmp149151 __tmp149150)))))) + (let* ((_%g144062144079%_ + (lambda (_%g144063144076%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144026144039%_)))) - (_%g144024144088%_ - (lambda (_%g144026144045%_) + _%g144063144076%_)))) + (_%g144061144125%_ + (lambda (_%g144063144082%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144026144045%_)) - (let ((_%e144029144047%_ + (gx#stx-pair? _%g144063144082%_)) + (let ((_%e144066144084%_ (let () (declare (not safe)) - (gx#stx-e _%g144026144045%_)))) - (let ((_%hd144030144050%_ + (gx#stx-e _%g144063144082%_)))) + (let ((_%hd144067144087%_ (let () (declare (not safe)) - (##car _%e144029144047%_))) - (_%tl144031144052%_ + (##car _%e144066144084%_))) + (_%tl144068144089%_ (let () (declare (not safe)) - (##cdr _%e144029144047%_)))) + (##cdr _%e144066144084%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144031144052%_)) - (let ((_%e144032144055%_ + (gx#stx-pair? _%tl144068144089%_)) + (let ((_%e144069144092%_ (let () (declare (not safe)) - (gx#stx-e _%tl144031144052%_)))) - (let ((_%hd144033144058%_ + (gx#stx-e _%tl144068144089%_)))) + (let ((_%hd144070144095%_ (let () (declare (not safe)) - (##car _%e144032144055%_))) - (_%tl144034144060%_ + (##car _%e144069144092%_))) + (_%tl144071144097%_ (let () (declare (not safe)) - (##cdr _%e144032144055%_)))) + (##cdr _%e144069144092%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144034144060%_)) - (let ((_%e144035144063%_ + (gx#stx-pair? _%tl144071144097%_)) + (let ((_%e144072144100%_ (let () (declare (not safe)) (gx#stx-e - _%tl144034144060%_)))) - (let ((_%hd144036144066%_ + _%tl144071144097%_)))) + (let ((_%hd144073144103%_ (let () (declare (not safe)) - (##car _%e144035144063%_))) - (_%tl144037144068%_ + (##car _%e144072144100%_))) + (_%tl144074144105%_ (let () (declare (not safe)) - (##cdr _%e144035144063%_)))) + (##cdr _%e144072144100%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144037144068%_)) - ((lambda (_%L144071%_ - _%L144072%_) + _%tl144074144105%_)) + ((lambda (_%L144108%_ + _%L144109%_) (if (gxc#generate-runtime-simple-let? - _%L144072%_) - (_%generate-simple144018%_ - _%L144072%_ - _%L144071%_) - (_%generate-values144021%_ - _%L144072%_ - _%L144071%_))) - _%hd144036144066%_ - _%hd144033144058%_) - (_%g144025144042%_ - _%g144026144045%_)))) - (_%g144025144042%_ - _%g144026144045%_)))) - (_%g144025144042%_ _%g144026144045%_)))) - (_%g144025144042%_ _%g144026144045%_))))) - (_%g144024144088%_ _%stx144015%_))))) + _%L144109%_) + (_%generate-simple144055%_ + _%L144109%_ + _%L144108%_) + (_%generate-values144058%_ + _%L144109%_ + _%L144108%_))) + _%hd144073144103%_ + _%hd144070144095%_) + (_%g144062144079%_ + _%g144063144082%_)))) + (_%g144062144079%_ + _%g144063144082%_)))) + (_%g144062144079%_ _%g144063144082%_)))) + (_%g144062144079%_ _%g144063144082%_))))) + (_%g144061144125%_ _%stx144052%_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_%self144768%_ _%stx144769%_) - (let ((_%compiled-body?144771%_ '#f)) + (lambda (_%self144805%_ _%stx144806%_) + (let ((_%compiled-body?144808%_ '#f)) (gxc#generate-runtime-let-values%__% - _%self144768%_ - _%stx144769%_ - _%compiled-body?144771%_)))) + _%self144805%_ + _%stx144806%_ + _%compiled-body?144808%_)))) (define gxc#generate-runtime-let-values% - (lambda _g149116_ - (let ((_g149115_ (let () (declare (not safe)) (##length _g149116_)))) - (cond ((let () (declare (not safe)) (##fx= _g149115_ 2)) - (apply gxc#generate-runtime-let-values%__0 _g149116_)) - ((let () (declare (not safe)) (##fx= _g149115_ 3)) - (apply gxc#generate-runtime-let-values%__% _g149116_)) + (lambda _g149153_ + (let ((_g149152_ (let () (declare (not safe)) (##length _g149153_)))) + (cond ((let () (declare (not safe)) (##fx= _g149152_ 2)) + (apply gxc#generate-runtime-let-values%__0 _g149153_)) + ((let () (declare (not safe)) (##fx= _g149152_ 3)) + (apply gxc#generate-runtime-let-values%__% _g149153_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g149116_)))))) + _g149153_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_%vals143908%_ _%hd143909%_) - (let _%lp143911%_ ((_%rest143913%_ _%hd143909%_) - (_%k143914%_ '0) - (_%r143915%_ '())) - (let* ((_%__stx148280148281%_ _%rest143913%_) - (_%g143920143937%_ + (lambda (_%vals143945%_ _%hd143946%_) + (let _%lp143948%_ ((_%rest143950%_ _%hd143946%_) + (_%k143951%_ '0) + (_%r143952%_ '())) + (let* ((_%__stx148317148318%_ _%rest143950%_) + (_%g143957143974%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148280148281%_))))) - (let ((_%__kont148282148283%_ - (lambda (_%L144000%_) - (_%lp143911%_ - _%L144000%_ - (let () (declare (not safe)) (##fx+ _%k143914%_ '1)) - _%r143915%_))) - (_%__kont148284148285%_ - (lambda (_%L143973%_ _%L143974%_) - (_%lp143911%_ - _%L143973%_ - (let () (declare (not safe)) (##fx+ _%k143914%_ '1)) + _%__stx148317148318%_))))) + (let ((_%__kont148319148320%_ + (lambda (_%L144037%_) + (_%lp143948%_ + _%L144037%_ + (let () (declare (not safe)) (##fx+ _%k143951%_ '1)) + _%r143952%_))) + (_%__kont148321148322%_ + (lambda (_%L144010%_ _%L144011%_) + (_%lp143948%_ + _%L144010%_ + (let () (declare (not safe)) (##fx+ _%k143951%_ '1)) (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L143974%_)) + _%L144011%_)) (cons (gxc#generate-runtime-values-ref - _%vals143908%_ - _%k143914%_ - _%L143973%_) + _%vals143945%_ + _%k143951%_ + _%L144010%_) '())) - _%r143915%_)))) - (_%__kont148286148287%_ - (lambda (_%L143949%_) - (let ((__tmp149117 + _%r143952%_)))) + (_%__kont148323148324%_ + (lambda (_%L143986%_) + (let ((__tmp149154 (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L143949%_)) + _%L143986%_)) (cons (gxc#generate-runtime-values->list - _%vals143908%_ - _%k143914%_) + _%vals143945%_ + _%k143951%_) '())) '()))) (declare (not safe)) - (__foldl1 cons __tmp149117 _%r143915%_)))) - (_%__kont148288148289%_ (lambda () (reverse _%r143915%_)))) - (let ((_%g143918143960%_ + (__foldl1 cons __tmp149154 _%r143952%_)))) + (_%__kont148325148326%_ (lambda () (reverse _%r143952%_)))) + (let ((_%g143955143997%_ (lambda () - (let ((_%L143949%_ _%__stx148280148281%_)) + (let ((_%L143986%_ _%__stx148317148318%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L143949%_)) - (_%__kont148286148287%_ _%L143949%_) - (_%__kont148288148289%_)))))) + (gx#identifier? _%L143986%_)) + (_%__kont148323148324%_ _%L143986%_) + (_%__kont148325148326%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148280148281%_)) - (let ((_%e143923143989%_ + (gx#stx-pair? _%__stx148317148318%_)) + (let ((_%e143960144026%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148280148281%_)))) - (let ((_%tl143925143994%_ + (gx#stx-e _%__stx148317148318%_)))) + (let ((_%tl143962144031%_ (let () (declare (not safe)) - (##cdr _%e143923143989%_))) - (_%hd143924143992%_ + (##cdr _%e143960144026%_))) + (_%hd143961144029%_ (let () (declare (not safe)) - (##car _%e143923143989%_)))) + (##car _%e143960144026%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd143924143992%_)) - (let ((_%e143926143997%_ + (gx#stx-datum? _%hd143961144029%_)) + (let ((_%e143963144034%_ (let () (declare (not safe)) - (gx#stx-e _%hd143924143992%_)))) - (if (equal? _%e143926143997%_ '#f) - (_%__kont148282148283%_ _%tl143925143994%_) - (_%__kont148284148285%_ - _%tl143925143994%_ - _%hd143924143992%_))) - (_%__kont148284148285%_ - _%tl143925143994%_ - _%hd143924143992%_)))) - (let () (declare (not safe)) (_%g143918143960%_))))))))) + (gx#stx-e _%hd143961144029%_)))) + (if (equal? _%e143963144034%_ '#f) + (_%__kont148319148320%_ _%tl143962144031%_) + (_%__kont148321148322%_ + _%tl143962144031%_ + _%hd143961144029%_))) + (_%__kont148321148322%_ + _%tl143962144031%_ + _%hd143961144029%_)))) + (let () (declare (not safe)) (_%g143955143997%_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_%self143587%_ _%stx143588%_ _%compiled-body?143589%_) - (letrec ((_%generate-simple143591%_ - (lambda (_%hd143893%_ _%body143894%_) + (lambda (_%self143624%_ _%stx143625%_ _%compiled-body?143626%_) + (letrec ((_%generate-simple143628%_ + (lambda (_%hd143930%_ _%body143931%_) (gxc#generate-runtime-simple-let - _%self143587%_ + _%self143624%_ 'letrec - _%hd143893%_ - _%body143894%_ - _%compiled-body?143589%_))) - (_%generate-values143592%_ - (lambda (_%hd143672%_ _%body143673%_) - (let _%lp143675%_ ((_%rest143677%_ _%hd143672%_) - (_%bind143678%_ '()) - (_%check143679%_ '()) - (_%post143680%_ '())) - (let* ((_%__stx148354148355%_ _%rest143677%_) - (_%g143683143694%_ + _%hd143930%_ + _%body143931%_ + _%compiled-body?143626%_))) + (_%generate-values143629%_ + (lambda (_%hd143709%_ _%body143710%_) + (let _%lp143712%_ ((_%rest143714%_ _%hd143709%_) + (_%bind143715%_ '()) + (_%check143716%_ '()) + (_%post143717%_ '())) + (let* ((_%__stx148391148392%_ _%rest143714%_) + (_%g143720143731%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148354148355%_))))) - (let ((_%__kont148356148357%_ - (lambda (_%L143721%_ _%L143722%_) - (let* ((_%__stx148310148311%_ _%L143722%_) - (_%g143737143762%_ + _%__stx148391148392%_))))) + (let ((_%__kont148393148394%_ + (lambda (_%L143758%_ _%L143759%_) + (let* ((_%__stx148347148348%_ _%L143759%_) + (_%g143774143799%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148310148311%_))))) - (let ((_%__kont148312148313%_ - (lambda (_%L143869%_ _%L143870%_) - (let ((_%eid143884%_ + _%__stx148347148348%_))))) + (let ((_%__kont148349148350%_ + (lambda (_%L143906%_ _%L143907%_) + (let ((_%eid143921%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L143870%_))) - (_%expr143885%_ + _%L143907%_))) + (_%expr143922%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143587%_ - _%L143869%_)))) - (_%lp143675%_ - _%L143721%_ - (cons (cons _%eid143884%_ - (cons _%expr143885%_ + _%self143624%_ + _%L143906%_)))) + (_%lp143712%_ + _%L143758%_ + (cons (cons _%eid143921%_ + (cons _%expr143922%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind143678%_) - _%check143679%_ - _%post143680%_)))) - (_%__kont148314148315%_ - (lambda (_%L143783%_ _%L143784%_) - (let* ((_%vals143797%_ + _%bind143715%_) + _%check143716%_ + _%post143717%_)))) + (_%__kont148351148352%_ + (lambda (_%L143820%_ _%L143821%_) + (let* ((_%vals143834%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values143799%_ + (_%check-values143836%_ (gxc#generate-runtime-check-values - _%vals143797%_ - _%L143784%_ - _%L143783%_)) - (_%refs143801%_ + _%vals143834%_ + _%L143821%_ + _%L143820%_)) + (_%refs143838%_ (gxc#generate-runtime-let-values-bind - _%vals143797%_ - _%L143784%_)) - (_%expr143803%_ + _%vals143834%_ + _%L143821%_)) + (_%expr143840%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143587%_ - _%L143783%_)))) - (_%lp143675%_ - _%L143721%_ - (let ((__tmp149119 - (cons (cons _%vals143797%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr143803%_ '())) - _%bind143678%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp149118 - (map (lambda (_%e143805143807%_) - (let* ((_%g143809143818%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e143805143807%_) - (_%E143811143822%_ + _%self143624%_ + _%L143820%_)))) + (_%lp143712%_ + _%L143758%_ + (let ((__tmp149156 + (cons (cons _%vals143834%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%expr143840%_ '())) + _%bind143715%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp149155 + (map (lambda (_%e143842143844%_) + (let* ((_%g143846143855%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%e143842143844%_) + (_%E143848143859%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g143809143818%_ + _%g143846143855%_ '([eid _]))) '#!void)) - (_%K143812143827%_ - (lambda (_%eid143825%_) - (cons _%eid143825%_ (cons '#!void '()))))) - (if (pair? _%g143809143818%_) - (let ((_%hd143813143830%_ + (_%K143849143864%_ + (lambda (_%eid143862%_) + (cons _%eid143862%_ (cons '#!void '()))))) + (if (pair? _%g143846143855%_) + (let ((_%hd143850143867%_ (let () (declare (not safe)) - (##car _%g143809143818%_))) - (_%tl143814143832%_ + (##car _%g143846143855%_))) + (_%tl143851143869%_ (let () (declare (not safe)) - (##cdr _%g143809143818%_)))) - (let ((_%eid143835%_ _%hd143813143830%_)) - (if (pair? _%tl143814143832%_) - (let ((_%tl143816143837%_ + (##cdr _%g143846143855%_)))) + (let ((_%eid143872%_ _%hd143850143867%_)) + (if (pair? _%tl143851143869%_) + (let ((_%tl143853143874%_ (let () (declare (not safe)) - (##cdr _%tl143814143832%_)))) - (if (null? _%tl143816143837%_) - (_%K143812143827%_ _%eid143835%_) - (_%E143811143822%_))) - (_%E143811143822%_)))) - (_%E143811143822%_)))) - _%refs143801%_))) + (##cdr _%tl143851143869%_)))) + (if (null? _%tl143853143874%_) + (_%K143849143864%_ _%eid143872%_) + (_%E143848143859%_))) + (_%E143848143859%_)))) + (_%E143848143859%_)))) + _%refs143838%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp149119 - __tmp149118)) - (cons _%check-values143799%_ - _%check143679%_) + __tmp149156 + __tmp149155)) + (cons _%check-values143836%_ + _%check143716%_) (let () (declare (not safe)) (__foldl1 cons - _%refs143801%_ - _%post143680%_))))))) + _%refs143838%_ + _%post143717%_))))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148310148311%_)) - (let ((_%e143741143845%_ + _%__stx148347148348%_)) + (let ((_%e143778143882%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148310148311%_)))) - (let ((_%tl143743143850%_ + _%__stx148347148348%_)))) + (let ((_%tl143780143887%_ (let () (declare (not safe)) - (##cdr _%e143741143845%_))) - (_%hd143742143848%_ + (##cdr _%e143778143882%_))) + (_%hd143779143885%_ (let () (declare (not safe)) - (##car _%e143741143845%_)))) + (##car _%e143778143882%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143742143848%_)) - (let ((_%e143744143853%_ + _%hd143779143885%_)) + (let ((_%e143781143890%_ (let () (declare (not safe)) (gx#stx-e - _%hd143742143848%_)))) - (let ((_%tl143746143858%_ + _%hd143779143885%_)))) + (let ((_%tl143783143895%_ (let () (declare (not safe)) - (##cdr _%e143744143853%_))) - (_%hd143745143856%_ + (##cdr _%e143781143890%_))) + (_%hd143782143893%_ (let () (declare (not safe)) - (##car _%e143744143853%_)))) + (##car _%e143781143890%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143746143858%_)) + _%tl143783143895%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl143743143850%_)) - (let ((_%e143747143861%_ + (gx#stx-pair? _%tl143780143887%_)) + (let ((_%e143784143898%_ (let () (declare (not safe)) - (gx#stx-e _%tl143743143850%_)))) - (let ((_%tl143749143866%_ + (gx#stx-e _%tl143780143887%_)))) + (let ((_%tl143786143903%_ (let () (declare (not safe)) - (##cdr _%e143747143861%_))) - (_%hd143748143864%_ + (##cdr _%e143784143898%_))) + (_%hd143785143901%_ (let () (declare (not safe)) - (##car _%e143747143861%_)))) + (##car _%e143784143898%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143749143866%_)) - (_%__kont148312148313%_ - _%hd143748143864%_ - _%hd143745143856%_) + (gx#stx-null? _%tl143786143903%_)) + (_%__kont148349148350%_ + _%hd143785143901%_ + _%hd143782143893%_) (let () (declare (not safe)) - (_%g143737143762%_))))) - (let () (declare (not safe)) (_%g143737143762%_))) + (_%g143774143799%_))))) + (let () (declare (not safe)) (_%g143774143799%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143743143850%_)) - (let ((_%e143755143775%_ + (gx#stx-pair? _%tl143780143887%_)) + (let ((_%e143792143812%_ (let () (declare (not safe)) - (gx#stx-e _%tl143743143850%_)))) - (let ((_%tl143757143780%_ + (gx#stx-e _%tl143780143887%_)))) + (let ((_%tl143794143817%_ (let () (declare (not safe)) - (##cdr _%e143755143775%_))) - (_%hd143756143778%_ + (##cdr _%e143792143812%_))) + (_%hd143793143815%_ (let () (declare (not safe)) - (##car _%e143755143775%_)))) + (##car _%e143792143812%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143757143780%_)) - (_%__kont148314148315%_ - _%hd143756143778%_ - _%hd143742143848%_) + (gx#stx-null? _%tl143794143817%_)) + (_%__kont148351148352%_ + _%hd143793143815%_ + _%hd143779143885%_) (let () (declare (not safe)) - (_%g143737143762%_))))) - (let () (declare (not safe)) (_%g143737143762%_)))))) + (_%g143774143799%_))))) + (let () (declare (not safe)) (_%g143774143799%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143743143850%_)) - (let ((_%e143755143775%_ + _%tl143780143887%_)) + (let ((_%e143792143812%_ (let () (declare (not safe)) (gx#stx-e - _%tl143743143850%_)))) - (let ((_%tl143757143780%_ + _%tl143780143887%_)))) + (let ((_%tl143794143817%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e143755143775%_))) - (_%hd143756143778%_ - (let () (declare (not safe)) (##car _%e143755143775%_)))) + (##cdr _%e143792143812%_))) + (_%hd143793143815%_ + (let () (declare (not safe)) (##car _%e143792143812%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143757143780%_)) - (_%__kont148314148315%_ - _%hd143756143778%_ - _%hd143742143848%_) - (let () (declare (not safe)) (_%g143737143762%_))))) + (gx#stx-null? _%tl143794143817%_)) + (_%__kont148351148352%_ + _%hd143793143815%_ + _%hd143779143885%_) + (let () (declare (not safe)) (_%g143774143799%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143737143762%_)))))) + (_%g143774143799%_)))))) (let () (declare (not safe)) - (_%g143737143762%_))))))) - (_%__kont148358148359%_ + (_%g143774143799%_))))))) + (_%__kont148395148396%_ (lambda () - (let* ((_%body143701%_ - (if _%compiled-body?143589%_ - _%body143673%_ + (let* ((_%body143738%_ + (if _%compiled-body?143626%_ + _%body143710%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143587%_ - _%body143673%_)))) - (_%body143703%_ - (_%generate-values-post143594%_ - _%post143680%_ - _%body143701%_)) - (_%body143705%_ - (_%generate-values-check143593%_ - _%check143679%_ - _%body143703%_))) + _%self143624%_ + _%body143710%_)))) + (_%body143740%_ + (_%generate-values-post143631%_ + _%post143717%_ + _%body143738%_)) + (_%body143742%_ + (_%generate-values-check143630%_ + _%check143716%_ + _%body143740%_))) (cons 'letrec - (cons (reverse _%bind143678%_) - (cons _%body143705%_ '()))))))) + (cons (reverse _%bind143715%_) + (cons _%body143742%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148354148355%_)) - (let ((_%e143687143713%_ + (gx#stx-pair? _%__stx148391148392%_)) + (let ((_%e143724143750%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148354148355%_)))) - (let ((_%tl143689143718%_ + (gx#stx-e _%__stx148391148392%_)))) + (let ((_%tl143726143755%_ (let () (declare (not safe)) - (##cdr _%e143687143713%_))) - (_%hd143688143716%_ + (##cdr _%e143724143750%_))) + (_%hd143725143753%_ (let () (declare (not safe)) - (##car _%e143687143713%_)))) - (_%__kont148356148357%_ - _%tl143689143718%_ - _%hd143688143716%_))) - (_%__kont148358148359%_))))))) - (_%generate-values-check143593%_ - (lambda (_%check143669%_ _%body143670%_) + (##car _%e143724143750%_)))) + (_%__kont148393148394%_ + _%tl143726143755%_ + _%hd143725143753%_))) + (_%__kont148395148396%_))))))) + (_%generate-values-check143630%_ + (lambda (_%check143706%_ _%body143707%_) (cons 'begin - (let ((__tmp149121 (cons _%body143670%_ '())) - (__tmp149120 (reverse _%check143669%_))) + (let ((__tmp149158 (cons _%body143707%_ '())) + (__tmp149157 (reverse _%check143706%_))) (declare (not safe)) - (__foldr1 cons __tmp149121 __tmp149120))))) - (_%generate-values-post143594%_ - (lambda (_%post143662%_ _%body143663%_) + (__foldr1 cons __tmp149158 __tmp149157))))) + (_%generate-values-post143631%_ + (lambda (_%post143699%_ _%body143700%_) (cons 'begin - (let ((__tmp149125 (cons _%body143663%_ '())) - (__tmp149122 - (let ((__tmp149124 - (lambda (_%g143664143666%_) - (cons 'set! _%g143664143666%_))) - (__tmp149123 (reverse _%post143662%_))) + (let ((__tmp149162 (cons _%body143700%_ '())) + (__tmp149159 + (let ((__tmp149161 + (lambda (_%g143701143703%_) + (cons 'set! _%g143701143703%_))) + (__tmp149160 (reverse _%post143699%_))) (declare (not safe)) - (##map __tmp149124 __tmp149123)))) + (##map __tmp149161 __tmp149160)))) (declare (not safe)) - (__foldr1 cons __tmp149125 __tmp149122)))))) - (let* ((_%g143596143613%_ - (lambda (_%g143597143610%_) + (__foldr1 cons __tmp149162 __tmp149159)))))) + (let* ((_%g143633143650%_ + (lambda (_%g143634143647%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143597143610%_)))) - (_%g143595143659%_ - (lambda (_%g143597143616%_) + _%g143634143647%_)))) + (_%g143632143696%_ + (lambda (_%g143634143653%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143597143616%_)) - (let ((_%e143600143618%_ + (gx#stx-pair? _%g143634143653%_)) + (let ((_%e143637143655%_ (let () (declare (not safe)) - (gx#stx-e _%g143597143616%_)))) - (let ((_%hd143601143621%_ + (gx#stx-e _%g143634143653%_)))) + (let ((_%hd143638143658%_ (let () (declare (not safe)) - (##car _%e143600143618%_))) - (_%tl143602143623%_ + (##car _%e143637143655%_))) + (_%tl143639143660%_ (let () (declare (not safe)) - (##cdr _%e143600143618%_)))) + (##cdr _%e143637143655%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143602143623%_)) - (let ((_%e143603143626%_ + (gx#stx-pair? _%tl143639143660%_)) + (let ((_%e143640143663%_ (let () (declare (not safe)) - (gx#stx-e _%tl143602143623%_)))) - (let ((_%hd143604143629%_ + (gx#stx-e _%tl143639143660%_)))) + (let ((_%hd143641143666%_ (let () (declare (not safe)) - (##car _%e143603143626%_))) - (_%tl143605143631%_ + (##car _%e143640143663%_))) + (_%tl143642143668%_ (let () (declare (not safe)) - (##cdr _%e143603143626%_)))) + (##cdr _%e143640143663%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143605143631%_)) - (let ((_%e143606143634%_ + (gx#stx-pair? _%tl143642143668%_)) + (let ((_%e143643143671%_ (let () (declare (not safe)) (gx#stx-e - _%tl143605143631%_)))) - (let ((_%hd143607143637%_ + _%tl143642143668%_)))) + (let ((_%hd143644143674%_ (let () (declare (not safe)) - (##car _%e143606143634%_))) - (_%tl143608143639%_ + (##car _%e143643143671%_))) + (_%tl143645143676%_ (let () (declare (not safe)) - (##cdr _%e143606143634%_)))) + (##cdr _%e143643143671%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143608143639%_)) - ((lambda (_%L143642%_ - _%L143643%_) + _%tl143645143676%_)) + ((lambda (_%L143679%_ + _%L143680%_) (if (gxc#generate-runtime-simple-let? - _%L143643%_) - (_%generate-simple143591%_ - _%L143643%_ - _%L143642%_) - (_%generate-values143592%_ - _%L143643%_ - _%L143642%_))) - _%hd143607143637%_ - _%hd143604143629%_) - (_%g143596143613%_ - _%g143597143616%_)))) - (_%g143596143613%_ - _%g143597143616%_)))) - (_%g143596143613%_ _%g143597143616%_)))) - (_%g143596143613%_ _%g143597143616%_))))) - (_%g143595143659%_ _%stx143588%_))))) + _%L143680%_) + (_%generate-simple143628%_ + _%L143680%_ + _%L143679%_) + (_%generate-values143629%_ + _%L143680%_ + _%L143679%_))) + _%hd143644143674%_ + _%hd143641143666%_) + (_%g143633143650%_ + _%g143634143653%_)))) + (_%g143633143650%_ + _%g143634143653%_)))) + (_%g143633143650%_ _%g143634143653%_)))) + (_%g143633143650%_ _%g143634143653%_))))) + (_%g143632143696%_ _%stx143625%_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_%self143899%_ _%stx143900%_) - (let ((_%compiled-body?143902%_ '#f)) + (lambda (_%self143936%_ _%stx143937%_) + (let ((_%compiled-body?143939%_ '#f)) (gxc#generate-runtime-letrec-values%__% - _%self143899%_ - _%stx143900%_ - _%compiled-body?143902%_)))) + _%self143936%_ + _%stx143937%_ + _%compiled-body?143939%_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g149127_ - (let ((_g149126_ (let () (declare (not safe)) (##length _g149127_)))) - (cond ((let () (declare (not safe)) (##fx= _g149126_ 2)) - (apply gxc#generate-runtime-letrec-values%__0 _g149127_)) - ((let () (declare (not safe)) (##fx= _g149126_ 3)) - (apply gxc#generate-runtime-letrec-values%__% _g149127_)) + (lambda _g149164_ + (let ((_g149163_ (let () (declare (not safe)) (##length _g149164_)))) + (cond ((let () (declare (not safe)) (##fx= _g149163_ 2)) + (apply gxc#generate-runtime-letrec-values%__0 _g149164_)) + ((let () (declare (not safe)) (##fx= _g149163_ 3)) + (apply gxc#generate-runtime-letrec-values%__% _g149164_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g149127_)))))) + _g149164_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_%self143168%_ _%stx143169%_) - (letrec ((_%generate-values143171%_ - (lambda (_%hd143414%_ _%body143415%_) - (let _%lp143417%_ ((_%rest143419%_ _%hd143414%_) - (_%bind143420%_ '())) - (let* ((_%rest143421143429%_ _%rest143419%_) - (_%else143423143440%_ + (lambda (_%self143205%_ _%stx143206%_) + (letrec ((_%generate-values143208%_ + (lambda (_%hd143451%_ _%body143452%_) + (let _%lp143454%_ ((_%rest143456%_ _%hd143451%_) + (_%bind143457%_ '())) + (let* ((_%rest143458143466%_ _%rest143456%_) + (_%else143460143477%_ (lambda () - (let ((_%bind143437%_ (reverse _%bind143420%_)) - (_%body143438%_ + (let ((_%bind143474%_ (reverse _%bind143457%_)) + (_%body143475%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143168%_ - _%body143415%_)))) + _%self143205%_ + _%body143452%_)))) (cons 'letrec* - (cons _%bind143437%_ - (cons _%body143438%_ '())))))) - (_%K143425143574%_ - (lambda (_%rest143443%_ _%hd-bind143444%_) - (let* ((_%__stx148368148369%_ - _%hd-bind143444%_) - (_%g143447143472%_ + (cons _%bind143474%_ + (cons _%body143475%_ '())))))) + (_%K143462143611%_ + (lambda (_%rest143480%_ _%hd-bind143481%_) + (let* ((_%__stx148405148406%_ + _%hd-bind143481%_) + (_%g143484143509%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148368148369%_))))) - (let ((_%__kont148370148371%_ - (lambda (_%L143553%_ _%L143554%_) - (let ((_%eid143568%_ + _%__stx148405148406%_))))) + (let ((_%__kont148407148408%_ + (lambda (_%L143590%_ _%L143591%_) + (let ((_%eid143605%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L143554%_))) - (_%expr143569%_ + _%L143591%_))) + (_%expr143606%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143168%_ - _%L143553%_)))) - (_%lp143417%_ - _%rest143443%_ - (cons (cons _%eid143568%_ - (cons _%expr143569%_ + _%self143205%_ + _%L143590%_)))) + (_%lp143454%_ + _%rest143480%_ + (cons (cons _%eid143605%_ + (cons _%expr143606%_ '())) - _%bind143420%_))))) - (_%__kont148372148373%_ - (lambda (_%L143493%_ _%L143494%_) - (let* ((_%vals143513%_ + _%bind143457%_))))) + (_%__kont148409148410%_ + (lambda (_%L143530%_ _%L143531%_) + (let* ((_%vals143550%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%tmp143515%_ + (_%tmp143552%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values143517%_ + (_%check-values143554%_ (gxc#generate-runtime-check-values - _%tmp143515%_ - _%L143494%_ - _%L143493%_)) - (_%refs143519%_ + _%tmp143552%_ + _%L143531%_ + _%L143530%_)) + (_%refs143556%_ (gxc#generate-runtime-let-values-bind - _%vals143513%_ - _%L143494%_)) - (_%expr143521%_ + _%vals143550%_ + _%L143531%_)) + (_%expr143558%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143168%_ - _%L143493%_)))) - (_%lp143417%_ - _%rest143443%_ - (let ((__tmp149128 - (cons (cons _%vals143513%_ + _%self143205%_ + _%L143530%_)))) + (_%lp143454%_ + _%rest143480%_ + (let ((__tmp149165 + (cons (cons _%vals143550%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'let - (cons (cons (cons _%tmp143515%_ - (cons _%expr143521%_ + (cons (cons (cons _%tmp143552%_ + (cons _%expr143558%_ '())) '()) - (cons _%check-values143517%_ - (cons _%tmp143515%_ '())))) + (cons _%check-values143554%_ + (cons _%tmp143552%_ '())))) '())) - _%bind143420%_))) + _%bind143457%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp149128 - _%refs143519%_))))))) + __tmp149165 + _%refs143556%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148368148369%_)) - (let ((_%e143451143529%_ + (gx#stx-pair? _%__stx148405148406%_)) + (let ((_%e143488143566%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148368148369%_)))) - (let ((_%tl143453143534%_ + _%__stx148405148406%_)))) + (let ((_%tl143490143571%_ (let () (declare (not safe)) - (##cdr _%e143451143529%_))) - (_%hd143452143532%_ + (##cdr _%e143488143566%_))) + (_%hd143489143569%_ (let () (declare (not safe)) - (##car _%e143451143529%_)))) + (##car _%e143488143566%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143452143532%_)) - (let ((_%e143454143537%_ + _%hd143489143569%_)) + (let ((_%e143491143574%_ (let () (declare (not safe)) (gx#stx-e - _%hd143452143532%_)))) - (let ((_%tl143456143542%_ + _%hd143489143569%_)))) + (let ((_%tl143493143579%_ (let () (declare (not safe)) - (##cdr _%e143454143537%_))) - (_%hd143455143540%_ + (##cdr _%e143491143574%_))) + (_%hd143492143577%_ (let () (declare (not safe)) - (##car _%e143454143537%_)))) + (##car _%e143491143574%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143456143542%_)) + _%tl143493143579%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143453143534%_)) - (let ((_%e143457143545%_ + _%tl143490143571%_)) + (let ((_%e143494143582%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl143453143534%_)))) - (let ((_%tl143459143550%_ + (gx#stx-e _%tl143490143571%_)))) + (let ((_%tl143496143587%_ (let () (declare (not safe)) - (##cdr _%e143457143545%_))) - (_%hd143458143548%_ + (##cdr _%e143494143582%_))) + (_%hd143495143585%_ (let () (declare (not safe)) - (##car _%e143457143545%_)))) + (##car _%e143494143582%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143459143550%_)) - (_%__kont148370148371%_ - _%hd143458143548%_ - _%hd143455143540%_) + (gx#stx-null? _%tl143496143587%_)) + (_%__kont148407148408%_ + _%hd143495143585%_ + _%hd143492143577%_) (let () (declare (not safe)) - (_%g143447143472%_))))) - (let () (declare (not safe)) (_%g143447143472%_))) + (_%g143484143509%_))))) + (let () (declare (not safe)) (_%g143484143509%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143453143534%_)) - (let ((_%e143465143485%_ + (gx#stx-pair? _%tl143490143571%_)) + (let ((_%e143502143522%_ (let () (declare (not safe)) - (gx#stx-e _%tl143453143534%_)))) - (let ((_%tl143467143490%_ + (gx#stx-e _%tl143490143571%_)))) + (let ((_%tl143504143527%_ (let () (declare (not safe)) - (##cdr _%e143465143485%_))) - (_%hd143466143488%_ + (##cdr _%e143502143522%_))) + (_%hd143503143525%_ (let () (declare (not safe)) - (##car _%e143465143485%_)))) + (##car _%e143502143522%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143467143490%_)) - (_%__kont148372148373%_ - _%hd143466143488%_ - _%hd143452143532%_) + (gx#stx-null? _%tl143504143527%_)) + (_%__kont148409148410%_ + _%hd143503143525%_ + _%hd143489143569%_) (let () (declare (not safe)) - (_%g143447143472%_))))) - (let () (declare (not safe)) (_%g143447143472%_)))))) + (_%g143484143509%_))))) + (let () (declare (not safe)) (_%g143484143509%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143453143534%_)) - (let ((_%e143465143485%_ + _%tl143490143571%_)) + (let ((_%e143502143522%_ (let () (declare (not safe)) (gx#stx-e - _%tl143453143534%_)))) - (let ((_%tl143467143490%_ + _%tl143490143571%_)))) + (let ((_%tl143504143527%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e143465143485%_))) - (_%hd143466143488%_ - (let () (declare (not safe)) (##car _%e143465143485%_)))) + (##cdr _%e143502143522%_))) + (_%hd143503143525%_ + (let () (declare (not safe)) (##car _%e143502143522%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143467143490%_)) - (_%__kont148372148373%_ - _%hd143466143488%_ - _%hd143452143532%_) - (let () (declare (not safe)) (_%g143447143472%_))))) + (gx#stx-null? _%tl143504143527%_)) + (_%__kont148409148410%_ + _%hd143503143525%_ + _%hd143489143569%_) + (let () (declare (not safe)) (_%g143484143509%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143447143472%_)))))) + (_%g143484143509%_)))))) (let () (declare (not safe)) - (_%g143447143472%_)))))))) - (if (pair? _%rest143421143429%_) - (let ((_%hd143426143577%_ + (_%g143484143509%_)))))))) + (if (pair? _%rest143458143466%_) + (let ((_%hd143463143614%_ (let () (declare (not safe)) - (##car _%rest143421143429%_))) - (_%tl143427143579%_ + (##car _%rest143458143466%_))) + (_%tl143464143616%_ (let () (declare (not safe)) - (##cdr _%rest143421143429%_)))) - (let* ((_%hd-bind143582%_ _%hd143426143577%_) - (_%rest143584%_ _%tl143427143579%_)) - (_%K143425143574%_ - _%rest143584%_ - _%hd-bind143582%_))) - (_%else143423143440%_)))))) - (_%generate-letrec?143172%_ - (lambda (_%hd143304%_) - (let _%lp143306%_ ((_%rest143308%_ _%hd143304%_)) - (let* ((_%rest143309143317%_ _%rest143308%_) - (_%else143311143325%_ (lambda () '#t)) - (_%K143313143402%_ - (lambda (_%rest143328%_ _%hd-bind143329%_) - (let* ((_%g143331143348%_ - (lambda (_%g143332143345%_) + (##cdr _%rest143458143466%_)))) + (let* ((_%hd-bind143619%_ _%hd143463143614%_) + (_%rest143621%_ _%tl143464143616%_)) + (_%K143462143611%_ + _%rest143621%_ + _%hd-bind143619%_))) + (_%else143460143477%_)))))) + (_%generate-letrec?143209%_ + (lambda (_%hd143341%_) + (let _%lp143343%_ ((_%rest143345%_ _%hd143341%_)) + (let* ((_%rest143346143354%_ _%rest143345%_) + (_%else143348143362%_ (lambda () '#t)) + (_%K143350143439%_ + (lambda (_%rest143365%_ _%hd-bind143366%_) + (let* ((_%g143368143385%_ + (lambda (_%g143369143382%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143332143345%_)))) - (_%g143330143399%_ - (lambda (_%g143332143351%_) + _%g143369143382%_)))) + (_%g143367143436%_ + (lambda (_%g143369143388%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g143332143351%_)) - (let ((_%e143335143353%_ + _%g143369143388%_)) + (let ((_%e143372143390%_ (let () (declare (not safe)) (gx#stx-e - _%g143332143351%_)))) - (let ((_%hd143336143356%_ + _%g143369143388%_)))) + (let ((_%hd143373143393%_ (let () (declare (not safe)) - (##car _%e143335143353%_))) - (_%tl143337143358%_ + (##car _%e143372143390%_))) + (_%tl143374143395%_ (let () (declare (not safe)) - (##cdr _%e143335143353%_)))) + (##cdr _%e143372143390%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143336143356%_)) - (let ((_%e143338143361%_ + _%hd143373143393%_)) + (let ((_%e143375143398%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd143336143356%_)))) - (let ((_%hd143339143364%_ - (let () (declare (not safe)) (##car _%e143338143361%_))) - (_%tl143340143366%_ + (gx#stx-e _%hd143373143393%_)))) + (let ((_%hd143376143401%_ + (let () (declare (not safe)) (##car _%e143375143398%_))) + (_%tl143377143403%_ (let () (declare (not safe)) - (##cdr _%e143338143361%_)))) + (##cdr _%e143375143398%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143340143366%_)) + (gx#stx-null? _%tl143377143403%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143337143358%_)) - (let ((_%e143341143369%_ + (gx#stx-pair? _%tl143374143395%_)) + (let ((_%e143378143406%_ (let () (declare (not safe)) - (gx#stx-e _%tl143337143358%_)))) - (let ((_%hd143342143372%_ + (gx#stx-e _%tl143374143395%_)))) + (let ((_%hd143379143409%_ (let () (declare (not safe)) - (##car _%e143341143369%_))) - (_%tl143343143374%_ + (##car _%e143378143406%_))) + (_%tl143380143411%_ (let () (declare (not safe)) - (##cdr _%e143341143369%_)))) + (##cdr _%e143378143406%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143343143374%_)) - ((lambda (_%L143377%_ _%L143378%_) - (if (_%is-lambda-expr?143173%_ - _%L143377%_) - (_%lp143306%_ _%rest143328%_) + (gx#stx-null? _%tl143380143411%_)) + ((lambda (_%L143414%_ _%L143415%_) + (if (_%is-lambda-expr?143210%_ + _%L143414%_) + (_%lp143343%_ _%rest143365%_) '#f)) - _%hd143342143372%_ - _%hd143339143364%_) - (_%g143331143348%_ _%g143332143351%_)))) - (_%g143331143348%_ _%g143332143351%_)) - (_%g143331143348%_ _%g143332143351%_)))) - (_%g143331143348%_ _%g143332143351%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g143331143348%_ - _%g143332143351%_))))) - (_%g143330143399%_ _%hd-bind143329%_))))) - (if (pair? _%rest143309143317%_) - (let ((_%hd143314143405%_ + _%hd143379143409%_ + _%hd143376143401%_) + (_%g143368143385%_ _%g143369143388%_)))) + (_%g143368143385%_ _%g143369143388%_)) + (_%g143368143385%_ _%g143369143388%_)))) + (_%g143368143385%_ _%g143369143388%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g143368143385%_ + _%g143369143388%_))))) + (_%g143367143436%_ _%hd-bind143366%_))))) + (if (pair? _%rest143346143354%_) + (let ((_%hd143351143442%_ (let () (declare (not safe)) - (##car _%rest143309143317%_))) - (_%tl143315143407%_ + (##car _%rest143346143354%_))) + (_%tl143352143444%_ (let () (declare (not safe)) - (##cdr _%rest143309143317%_)))) - (let* ((_%hd-bind143410%_ _%hd143314143405%_) - (_%rest143412%_ _%tl143315143407%_)) - (_%K143313143402%_ - _%rest143412%_ - _%hd-bind143410%_))) - (_%else143311143325%_)))))) - (_%is-lambda-expr?143173%_ - (lambda (_%expr143241%_) - (let* ((_%__stx148412148413%_ _%expr143241%_) - (_%g143244143258%_ + (##cdr _%rest143346143354%_)))) + (let* ((_%hd-bind143447%_ _%hd143351143442%_) + (_%rest143449%_ _%tl143352143444%_)) + (_%K143350143439%_ + _%rest143449%_ + _%hd-bind143447%_))) + (_%else143348143362%_)))))) + (_%is-lambda-expr?143210%_ + (lambda (_%expr143278%_) + (let* ((_%__stx148449148450%_ _%expr143278%_) + (_%g143281143295%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148412148413%_))))) - (let ((_%__kont148414148415%_ - (lambda (_%L143286%_ _%L143287%_) '#t)) - (_%__kont148416148417%_ (lambda () '#f))) + _%__stx148449148450%_))))) + (let ((_%__kont148451148452%_ + (lambda (_%L143323%_ _%L143324%_) '#t)) + (_%__kont148453148454%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148412148413%_)) - (let ((_%e143248143270%_ + (gx#stx-pair? _%__stx148449148450%_)) + (let ((_%e143285143307%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148412148413%_)))) - (let ((_%tl143250143275%_ + (gx#stx-e _%__stx148449148450%_)))) + (let ((_%tl143287143312%_ (let () (declare (not safe)) - (##cdr _%e143248143270%_))) - (_%hd143249143273%_ + (##cdr _%e143285143307%_))) + (_%hd143286143310%_ (let () (declare (not safe)) - (##car _%e143248143270%_)))) + (##car _%e143285143307%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143249143273%_)) + (gx#identifier? _%hd143286143310%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd143249143273%_)) + _%hd143286143310%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143250143275%_)) - (let ((_%e143251143278%_ + _%tl143287143312%_)) + (let ((_%e143288143315%_ (let () (declare (not safe)) (gx#stx-e - _%tl143250143275%_)))) - (let ((_%tl143253143283%_ + _%tl143287143312%_)))) + (let ((_%tl143290143320%_ (let () (declare (not safe)) - (##cdr _%e143251143278%_))) - (_%hd143252143281%_ + (##cdr _%e143288143315%_))) + (_%hd143289143318%_ (let () (declare (not safe)) - (##car _%e143251143278%_)))) - (_%__kont148414148415%_ - _%tl143253143283%_ - _%hd143252143281%_))) - (_%__kont148416148417%_)) - (_%__kont148416148417%_)) - (_%__kont148416148417%_)))) - (_%__kont148416148417%_))))))) - (let* ((_%g143175143192%_ - (lambda (_%g143176143189%_) + (##car _%e143288143315%_)))) + (_%__kont148451148452%_ + _%tl143290143320%_ + _%hd143289143318%_))) + (_%__kont148453148454%_)) + (_%__kont148453148454%_)) + (_%__kont148453148454%_)))) + (_%__kont148453148454%_))))))) + (let* ((_%g143212143229%_ + (lambda (_%g143213143226%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143176143189%_)))) - (_%g143174143238%_ - (lambda (_%g143176143195%_) + _%g143213143226%_)))) + (_%g143211143275%_ + (lambda (_%g143213143232%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143176143195%_)) - (let ((_%e143179143197%_ + (gx#stx-pair? _%g143213143232%_)) + (let ((_%e143216143234%_ (let () (declare (not safe)) - (gx#stx-e _%g143176143195%_)))) - (let ((_%hd143180143200%_ + (gx#stx-e _%g143213143232%_)))) + (let ((_%hd143217143237%_ (let () (declare (not safe)) - (##car _%e143179143197%_))) - (_%tl143181143202%_ + (##car _%e143216143234%_))) + (_%tl143218143239%_ (let () (declare (not safe)) - (##cdr _%e143179143197%_)))) + (##cdr _%e143216143234%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143181143202%_)) - (let ((_%e143182143205%_ + (gx#stx-pair? _%tl143218143239%_)) + (let ((_%e143219143242%_ (let () (declare (not safe)) - (gx#stx-e _%tl143181143202%_)))) - (let ((_%hd143183143208%_ + (gx#stx-e _%tl143218143239%_)))) + (let ((_%hd143220143245%_ (let () (declare (not safe)) - (##car _%e143182143205%_))) - (_%tl143184143210%_ + (##car _%e143219143242%_))) + (_%tl143221143247%_ (let () (declare (not safe)) - (##cdr _%e143182143205%_)))) + (##cdr _%e143219143242%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143184143210%_)) - (let ((_%e143185143213%_ + (gx#stx-pair? _%tl143221143247%_)) + (let ((_%e143222143250%_ (let () (declare (not safe)) (gx#stx-e - _%tl143184143210%_)))) - (let ((_%hd143186143216%_ + _%tl143221143247%_)))) + (let ((_%hd143223143253%_ (let () (declare (not safe)) - (##car _%e143185143213%_))) - (_%tl143187143218%_ + (##car _%e143222143250%_))) + (_%tl143224143255%_ (let () (declare (not safe)) - (##cdr _%e143185143213%_)))) + (##cdr _%e143222143250%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143187143218%_)) - ((lambda (_%L143221%_ - _%L143222%_) + _%tl143224143255%_)) + ((lambda (_%L143258%_ + _%L143259%_) (if (gxc#generate-runtime-simple-let? - _%L143222%_) - (if (_%generate-letrec?143172%_ - _%L143222%_) + _%L143259%_) + (if (_%generate-letrec?143209%_ + _%L143259%_) (gxc#generate-runtime-simple-let - _%self143168%_ + _%self143205%_ 'letrec - _%L143222%_ - _%L143221%_ + _%L143259%_ + _%L143258%_ '#f) (gxc#generate-runtime-simple-let - _%self143168%_ + _%self143205%_ 'letrec* - _%L143222%_ - _%L143221%_ + _%L143259%_ + _%L143258%_ '#f)) - (_%generate-values143171%_ - _%L143222%_ - _%L143221%_))) - _%hd143186143216%_ - _%hd143183143208%_) - (_%g143175143192%_ - _%g143176143195%_)))) - (_%g143175143192%_ - _%g143176143195%_)))) - (_%g143175143192%_ _%g143176143195%_)))) - (_%g143175143192%_ _%g143176143195%_))))) - (_%g143174143238%_ _%stx143169%_))))) + (_%generate-values143208%_ + _%L143259%_ + _%L143258%_))) + _%hd143223143253%_ + _%hd143220143245%_) + (_%g143212143229%_ + _%g143213143232%_)))) + (_%g143212143229%_ + _%g143213143232%_)))) + (_%g143212143229%_ _%g143213143232%_)))) + (_%g143212143229%_ _%g143213143232%_))))) + (_%g143211143275%_ _%stx143206%_))))) (define gxc#generate-runtime-simple-let? - (lambda (_%hd143105%_) - (let _%lp143107%_ ((_%rest143109%_ _%hd143105%_)) - (let* ((_%rest143110143126%_ _%rest143109%_) - (_%else143113143134%_ (lambda () '#f))) - (let ((_%K143116143147%_ - (lambda (_%rest143145%_) (_%lp143107%_ _%rest143145%_))) - (_%K143115143139%_ (lambda () '#t))) - (let ((_%try-match143112143142%_ + (lambda (_%hd143142%_) + (let _%lp143144%_ ((_%rest143146%_ _%hd143142%_)) + (let* ((_%rest143147143163%_ _%rest143146%_) + (_%else143150143171%_ (lambda () '#f))) + (let ((_%K143153143184%_ + (lambda (_%rest143182%_) (_%lp143144%_ _%rest143182%_))) + (_%K143152143176%_ (lambda () '#t))) + (let ((_%try-match143149143179%_ (lambda () - (if (null? _%rest143110143126%_) - (_%K143115143139%_) - (_%else143113143134%_))))) - (if (pair? _%rest143110143126%_) - (let ((_%tl143118143152%_ + (if (null? _%rest143147143163%_) + (_%K143152143176%_) + (_%else143150143171%_))))) + (if (pair? _%rest143147143163%_) + (let ((_%tl143155143189%_ (let () (declare (not safe)) - (##cdr _%rest143110143126%_))) - (_%hd143117143150%_ + (##cdr _%rest143147143163%_))) + (_%hd143154143187%_ (let () (declare (not safe)) - (##car _%rest143110143126%_)))) - (if (pair? _%hd143117143150%_) - (let ((_%tl143120143157%_ + (##car _%rest143147143163%_)))) + (if (pair? _%hd143154143187%_) + (let ((_%tl143157143194%_ (let () (declare (not safe)) - (##cdr _%hd143117143150%_))) - (_%hd143119143155%_ + (##cdr _%hd143154143187%_))) + (_%hd143156143192%_ (let () (declare (not safe)) - (##car _%hd143117143150%_)))) - (if (pair? _%hd143119143155%_) - (let ((_%tl143124143160%_ + (##car _%hd143154143187%_)))) + (if (pair? _%hd143156143192%_) + (let ((_%tl143161143197%_ (let () (declare (not safe)) - (##cdr _%hd143119143155%_)))) - (if (null? _%tl143124143160%_) - (if (pair? _%tl143120143157%_) - (let ((_%tl143122143163%_ + (##cdr _%hd143156143192%_)))) + (if (null? _%tl143161143197%_) + (if (pair? _%tl143157143194%_) + (let ((_%tl143159143200%_ (let () (declare (not safe)) - (##cdr _%tl143120143157%_)))) - (if (null? _%tl143122143163%_) - (let ((_%rest143166%_ - _%tl143118143152%_)) - (_%lp143107%_ - _%rest143166%_)) - (_%else143113143134%_))) - (_%else143113143134%_)) - (_%else143113143134%_))) - (_%else143113143134%_))) - (_%else143113143134%_))) - (_%try-match143112143142%_)))))))) + (##cdr _%tl143157143194%_)))) + (if (null? _%tl143159143200%_) + (let ((_%rest143203%_ + _%tl143155143189%_)) + (_%lp143144%_ + _%rest143203%_)) + (_%else143150143171%_))) + (_%else143150143171%_)) + (_%else143150143171%_))) + (_%else143150143171%_))) + (_%else143150143171%_))) + (_%try-match143149143179%_)))))))) (define gxc#generate-runtime-simple-let - (lambda (_%self143016%_ - _%form143017%_ - _%hd143018%_ - _%body143019%_ - _%compiled-body?143020%_) - (letrec ((_%generate1143022%_ - (lambda (_%bind143061%_) - (let* ((_%bind143062143073%_ _%bind143061%_) - (_%E143064143077%_ + (lambda (_%self143053%_ + _%form143054%_ + _%hd143055%_ + _%body143056%_ + _%compiled-body?143057%_) + (letrec ((_%generate1143059%_ + (lambda (_%bind143098%_) + (let* ((_%bind143099143110%_ _%bind143098%_) + (_%E143101143114%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind143062143073%_ + _%bind143099143110%_ '([[id] expr]))) '#!void)) - (_%K143065143083%_ - (lambda (_%expr143080%_ _%id143081%_) + (_%K143102143120%_ + (lambda (_%expr143117%_ _%id143118%_) (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%id143081%_)) + _%id143118%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self143016%_ - _%expr143080%_)) + _%self143053%_ + _%expr143117%_)) '()))))) - (if (pair? _%bind143062143073%_) - (let ((_%hd143066143086%_ + (if (pair? _%bind143099143110%_) + (let ((_%hd143103143123%_ (let () (declare (not safe)) - (##car _%bind143062143073%_))) - (_%tl143067143088%_ + (##car _%bind143099143110%_))) + (_%tl143104143125%_ (let () (declare (not safe)) - (##cdr _%bind143062143073%_)))) - (if (pair? _%hd143066143086%_) - (let ((_%hd143070143091%_ + (##cdr _%bind143099143110%_)))) + (if (pair? _%hd143103143123%_) + (let ((_%hd143107143128%_ (let () (declare (not safe)) - (##car _%hd143066143086%_))) - (_%tl143071143093%_ + (##car _%hd143103143123%_))) + (_%tl143108143130%_ (let () (declare (not safe)) - (##cdr _%hd143066143086%_)))) - (let ((_%id143096%_ _%hd143070143091%_)) - (if (null? _%tl143071143093%_) - (if (pair? _%tl143067143088%_) - (let ((_%hd143068143098%_ + (##cdr _%hd143103143123%_)))) + (let ((_%id143133%_ _%hd143107143128%_)) + (if (null? _%tl143108143130%_) + (if (pair? _%tl143104143125%_) + (let ((_%hd143105143135%_ (let () (declare (not safe)) - (##car _%tl143067143088%_))) - (_%tl143069143100%_ + (##car _%tl143104143125%_))) + (_%tl143106143137%_ (let () (declare (not safe)) - (##cdr _%tl143067143088%_)))) - (let ((_%expr143103%_ - _%hd143068143098%_)) - (if (null? _%tl143069143100%_) - (_%K143065143083%_ - _%expr143103%_ - _%id143096%_) - (_%E143064143077%_)))) - (_%E143064143077%_)) - (_%E143064143077%_)))) - (_%E143064143077%_))) - (_%E143064143077%_)))))) - (let* ((_%bind143024%_ (map _%generate1143022%_ _%hd143018%_)) - (_%body143026%_ - (if _%compiled-body?143020%_ - _%body143019%_ + (##cdr _%tl143104143125%_)))) + (let ((_%expr143140%_ + _%hd143105143135%_)) + (if (null? _%tl143106143137%_) + (_%K143102143120%_ + _%expr143140%_ + _%id143133%_) + (_%E143101143114%_)))) + (_%E143101143114%_)) + (_%E143101143114%_)))) + (_%E143101143114%_))) + (_%E143101143114%_)))))) + (let* ((_%bind143061%_ (map _%generate1143059%_ _%hd143055%_)) + (_%body143063%_ + (if _%compiled-body?143057%_ + _%body143056%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self143016%_ _%body143019%_)))) - (_%body143058%_ - (let* ((_%body143027143035%_ _%body143026%_) - (_%else143029143043%_ - (lambda () (cons _%body143026%_ '()))) - (_%K143031143048%_ - (lambda (_%exprs143046%_) _%exprs143046%_))) - (if (pair? _%body143027143035%_) - (let ((_%hd143032143051%_ + (gxc#compile-e__1 _%self143053%_ _%body143056%_)))) + (_%body143095%_ + (let* ((_%body143064143072%_ _%body143063%_) + (_%else143066143080%_ + (lambda () (cons _%body143063%_ '()))) + (_%K143068143085%_ + (lambda (_%exprs143083%_) _%exprs143083%_))) + (if (pair? _%body143064143072%_) + (let ((_%hd143069143088%_ (let () (declare (not safe)) - (##car _%body143027143035%_))) - (_%tl143033143053%_ + (##car _%body143064143072%_))) + (_%tl143070143090%_ (let () (declare (not safe)) - (##cdr _%body143027143035%_)))) + (##cdr _%body143064143072%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143032143051%_ 'begin)) - (let ((_%exprs143056%_ _%tl143033143053%_)) - (_%K143031143048%_ _%exprs143056%_)) - (_%else143029143043%_))) - (_%else143029143043%_))))) - (cons _%form143017%_ (cons _%bind143024%_ _%body143058%_)))))) + (##eq? _%hd143069143088%_ 'begin)) + (let ((_%exprs143093%_ _%tl143070143090%_)) + (_%K143068143085%_ _%exprs143093%_)) + (_%else143066143080%_))) + (_%else143066143080%_))))) + (cons _%form143054%_ (cons _%bind143061%_ _%body143095%_)))))) (define gxc#generate-runtime-quote% - (lambda (_%self142916%_ _%stx142917%_) - (letrec ((_%generate1142919%_ - (lambda (_%datum142971%_) - (if (or (null? _%datum142971%_) + (lambda (_%self142953%_ _%stx142954%_) + (letrec ((_%generate1142956%_ + (lambda (_%datum143008%_) + (if (or (null? _%datum143008%_) (let () (declare (not safe)) - (interned-symbol? _%datum142971%_)) + (interned-symbol? _%datum143008%_)) (let () (declare (not safe)) - (gx#self-quoting? _%datum142971%_)) - (eof-object? _%datum142971%_)) - _%datum142971%_ - (if (uninterned-symbol? _%datum142971%_) + (gx#self-quoting? _%datum143008%_)) + (eof-object? _%datum143008%_)) + _%datum143008%_ + (if (uninterned-symbol? _%datum143008%_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _%datum142971%_ + _%datum143008%_ '#t)) - (if (pair? _%datum142971%_) - (cons (_%generate1142919%_ + (if (pair? _%datum143008%_) + (cons (_%generate1142956%_ (let () (declare (not safe)) - (##car _%datum142971%_))) - (_%generate1142919%_ + (##car _%datum143008%_))) + (_%generate1142956%_ (let () (declare (not safe)) - (##cdr _%datum142971%_)))) - (if (box? _%datum142971%_) - (box (_%generate1142919%_ - (unbox _%datum142971%_))) - (if (vector? _%datum142971%_) + (##cdr _%datum143008%_)))) + (if (box? _%datum143008%_) + (box (_%generate1142956%_ + (unbox _%datum143008%_))) + (if (vector? _%datum143008%_) (vector-map - _%generate1142919%_ - _%datum142971%_) - (if (or (s8vector? _%datum142971%_) - (u8vector? _%datum142971%_) - (s16vector? _%datum142971%_) - (u16vector? _%datum142971%_) - (s32vector? _%datum142971%_) - (u32vector? _%datum142971%_) - (s64vector? _%datum142971%_) - (u64vector? _%datum142971%_) - (f32vector? _%datum142971%_) - (f64vector? _%datum142971%_)) - _%datum142971%_ + _%generate1142956%_ + _%datum143008%_) + (if (or (s8vector? _%datum143008%_) + (u8vector? _%datum143008%_) + (s16vector? _%datum143008%_) + (u16vector? _%datum143008%_) + (s32vector? _%datum143008%_) + (u32vector? _%datum143008%_) + (s64vector? _%datum143008%_) + (u64vector? _%datum143008%_) + (f32vector? _%datum143008%_) + (f64vector? _%datum143008%_)) + _%datum143008%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _%stx142917%_))))))))))) - (let* ((_%g142921142934%_ - (lambda (_%g142922142931%_) + _%stx142954%_))))))))))) + (let* ((_%g142958142971%_ + (lambda (_%g142959142968%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142922142931%_)))) - (_%g142920142968%_ - (lambda (_%g142922142937%_) + _%g142959142968%_)))) + (_%g142957143005%_ + (lambda (_%g142959142974%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142922142937%_)) - (let ((_%e142924142939%_ + (gx#stx-pair? _%g142959142974%_)) + (let ((_%e142961142976%_ (let () (declare (not safe)) - (gx#stx-e _%g142922142937%_)))) - (let ((_%hd142925142942%_ + (gx#stx-e _%g142959142974%_)))) + (let ((_%hd142962142979%_ (let () (declare (not safe)) - (##car _%e142924142939%_))) - (_%tl142926142944%_ + (##car _%e142961142976%_))) + (_%tl142963142981%_ (let () (declare (not safe)) - (##cdr _%e142924142939%_)))) + (##cdr _%e142961142976%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142926142944%_)) - (let ((_%e142927142947%_ + (gx#stx-pair? _%tl142963142981%_)) + (let ((_%e142964142984%_ (let () (declare (not safe)) - (gx#stx-e _%tl142926142944%_)))) - (let ((_%hd142928142950%_ + (gx#stx-e _%tl142963142981%_)))) + (let ((_%hd142965142987%_ (let () (declare (not safe)) - (##car _%e142927142947%_))) - (_%tl142929142952%_ + (##car _%e142964142984%_))) + (_%tl142966142989%_ (let () (declare (not safe)) - (##cdr _%e142927142947%_)))) + (##cdr _%e142964142984%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142929142952%_)) - ((lambda (_%L142955%_) + (gx#stx-null? _%tl142966142989%_)) + ((lambda (_%L142992%_) (cons 'quote - (cons (_%generate1142919%_ + (cons (_%generate1142956%_ (let () (declare (not safe)) (gx#stx-e - _%L142955%_))) + _%L142992%_))) '()))) - _%hd142928142950%_) - (_%g142921142934%_ - _%g142922142937%_)))) - (_%g142921142934%_ _%g142922142937%_)))) - (_%g142921142934%_ _%g142922142937%_))))) - (_%g142920142968%_ _%stx142917%_))))) + _%hd142965142987%_) + (_%g142958142971%_ + _%g142959142974%_)))) + (_%g142958142971%_ _%g142959142974%_)))) + (_%g142958142971%_ _%g142959142974%_))))) + (_%g142957143005%_ _%stx142954%_))))) (define gxc#generate-runtime-call% - (lambda (_%self142357%_ _%stx142358%_) - (letrec ((_%compile-call142360%_ - (lambda (_%rator142649%_ _%rands142650%_) - (let ((_%rator142656%_ + (lambda (_%self142394%_ _%stx142395%_) + (letrec ((_%compile-call142397%_ + (lambda (_%rator142686%_ _%rands142687%_) + (let ((_%rator142693%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142357%_ - _%rator142649%_))) - (_%rands142657%_ - (map (lambda (_%g142651142653%_) + _%self142394%_ + _%rator142686%_))) + (_%rands142694%_ + (map (lambda (_%g142688142690%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self142357%_ - _%g142651142653%_))) - _%rands142650%_))) - (let* ((_%__stx148459148460%_ _%rator142656%_) - (_%g142660142712%_ + _%self142394%_ + _%g142688142690%_))) + _%rands142687%_))) + (let* ((_%__stx148496148497%_ _%rator142693%_) + (_%g142697142749%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148459148460%_))))) - (let ((_%__kont148461148462%_ - (lambda (_%L142836%_ - _%L142837%_ - _%L142838%_ - _%L142839%_) - (if (let ((__tmp149131 + _%__stx148496148497%_))))) + (let ((_%__kont148498148499%_ + (lambda (_%L142873%_ + _%L142874%_ + _%L142875%_ + _%L142876%_) + (if (let ((__tmp149168 (let () (declare (not safe)) - (##length _%rands142657%_))) - (__tmp149129 - (length (let ((__tmp149130 - (lambda (_%g142875142878%_ + (##length _%rands142694%_))) + (__tmp149166 + (length (let ((__tmp149167 + (lambda (_%g142912142915%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142876142880%_) - (cons _%g142875142878%_ _%g142876142880%_)))) + _%g142913142917%_) + (cons _%g142912142915%_ _%g142913142917%_)))) (declare (not safe)) - (__foldr1 __tmp149130 '() _%L142838%_))))) + (__foldr1 __tmp149167 '() _%L142875%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp149131 __tmp149129)) - (let* ((_%id142883%_ _%L142839%_) - (_%args142892%_ - (let ((__tmp149132 - (lambda (_%g142884142887%_ - _%g142885142889%_) - (cons _%g142884142887%_ - _%g142885142889%_)))) + (##fx= __tmp149168 __tmp149166)) + (let* ((_%id142920%_ _%L142876%_) + (_%args142929%_ + (let ((__tmp149169 + (lambda (_%g142921142924%_ + _%g142922142926%_) + (cons _%g142921142924%_ + _%g142922142926%_)))) (declare (not safe)) (__foldr1 - __tmp149132 + __tmp149169 '() - _%L142838%_))) - (_%body142901%_ - (let ((__tmp149133 - (lambda (_%g142893142896%_ - _%g142894142898%_) - (cons _%g142893142896%_ - _%g142894142898%_)))) + _%L142875%_))) + (_%body142938%_ + (let ((__tmp149170 + (lambda (_%g142930142933%_ + _%g142931142935%_) + (cons _%g142930142933%_ + _%g142931142935%_)))) (declare (not safe)) (__foldr1 - __tmp149133 + __tmp149170 '() - _%L142837%_))) - (_%init142903%_ + _%L142874%_))) + (_%init142940%_ (map list - _%args142892%_ - _%rands142657%_))) + _%args142929%_ + _%rands142694%_))) (cons 'let - (cons _%id142883%_ - (cons _%init142903%_ - _%body142901%_)))) - (let ((__tmp149134 - (let ((__tmp149135 - (lambda (_%g142905142908%_ - _%g142906142910%_) - (cons _%g142905142908%_ - _%g142906142910%_)))) + (cons _%id142920%_ + (cons _%init142940%_ + _%body142938%_)))) + (let ((__tmp149171 + (let ((__tmp149172 + (lambda (_%g142942142945%_ + _%g142943142947%_) + (cons _%g142942142945%_ + _%g142943142947%_)))) (declare (not safe)) (__foldr1 - __tmp149135 + __tmp149172 '() - _%L142838%_)))) + _%L142875%_)))) (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _%stx142358%_ - __tmp149134 - _%rands142657%_))))) - (_%__kont148467148468%_ + _%stx142395%_ + __tmp149171 + _%rands142694%_))))) + (_%__kont148504148505%_ (lambda () - (cons _%rator142656%_ _%rands142657%_)))) - (let ((_%__match148526148527%_ - (lambda (_%e142666142724%_ - _%hd142667142727%_ - _%tl142668142729%_ - _%e142669142732%_ - _%hd142670142735%_ - _%tl142671142737%_ - _%e142672142740%_ - _%hd142673142743%_ - _%tl142674142745%_ - _%e142675142748%_ - _%hd142676142751%_ - _%tl142677142753%_ - _%e142678142756%_ - _%hd142679142759%_ - _%tl142680142761%_ - _%e142681142764%_ - _%hd142682142767%_ - _%tl142683142769%_ - _%e142684142772%_ - _%hd142685142775%_ - _%tl142686142777%_ - _%__splice148463148464%_ - _%target142687142780%_ - _%tl142689142782%_) - (letrec ((_%loop142690142785%_ - (lambda (_%hd142688142788%_ - _%arg142694142790%_) + (cons _%rator142693%_ _%rands142694%_)))) + (let ((_%__match148563148564%_ + (lambda (_%e142703142761%_ + _%hd142704142764%_ + _%tl142705142766%_ + _%e142706142769%_ + _%hd142707142772%_ + _%tl142708142774%_ + _%e142709142777%_ + _%hd142710142780%_ + _%tl142711142782%_ + _%e142712142785%_ + _%hd142713142788%_ + _%tl142714142790%_ + _%e142715142793%_ + _%hd142716142796%_ + _%tl142717142798%_ + _%e142718142801%_ + _%hd142719142804%_ + _%tl142720142806%_ + _%e142721142809%_ + _%hd142722142812%_ + _%tl142723142814%_ + _%__splice148500148501%_ + _%target142724142817%_ + _%tl142726142819%_) + (letrec ((_%loop142727142822%_ + (lambda (_%hd142725142825%_ + _%arg142731142827%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142688142788%_)) - (let ((_%e142691142793%_ + _%hd142725142825%_)) + (let ((_%e142728142830%_ (let () (declare (not safe)) (gx#stx-e - _%hd142688142788%_)))) - (let ((_%lp-tl142693142798%_ + _%hd142725142825%_)))) + (let ((_%lp-tl142730142835%_ (let () (declare (not safe)) - (##cdr _%e142691142793%_))) - (_%lp-hd142692142796%_ + (##cdr _%e142728142830%_))) + (_%lp-hd142729142833%_ (let () (declare (not safe)) - (##car _%e142691142793%_)))) - (_%loop142690142785%_ - _%lp-tl142693142798%_ - (cons _%lp-hd142692142796%_ - _%arg142694142790%_)))) - (let ((_%arg142695142801%_ - (reverse _%arg142694142790%_))) + (##car _%e142728142830%_)))) + (_%loop142727142822%_ + _%lp-tl142730142835%_ + (cons _%lp-hd142729142833%_ + _%arg142731142827%_)))) + (let ((_%arg142732142838%_ + (reverse _%arg142731142827%_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142686142777%_)) - (let ((_%__splice148465148466%_ + _%tl142723142814%_)) + (let ((_%__splice148502148503%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl142686142777%_ '0)))) - (let ((_%tl142698142806%_ + (gx#syntax-split-splice _%tl142723142814%_ '0)))) + (let ((_%tl142735142843%_ (let () (declare (not safe)) - (##vector-ref _%__splice148465148466%_ '1))) - (_%target142696142804%_ + (##vector-ref _%__splice148502148503%_ '1))) + (_%target142733142841%_ (let () (declare (not safe)) - (##vector-ref _%__splice148465148466%_ '0)))) + (##vector-ref _%__splice148502148503%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142698142806%_)) - (letrec ((_%loop142699142809%_ - (lambda (_%hd142697142812%_ - _%body142703142814%_) + (gx#stx-null? _%tl142735142843%_)) + (letrec ((_%loop142736142846%_ + (lambda (_%hd142734142849%_ + _%body142740142851%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142697142812%_)) - (let ((_%e142700142817%_ + (gx#stx-pair? _%hd142734142849%_)) + (let ((_%e142737142854%_ (let () (declare (not safe)) (gx#stx-e - _%hd142697142812%_)))) - (let ((_%lp-tl142702142822%_ + _%hd142734142849%_)))) + (let ((_%lp-tl142739142859%_ (let () (declare (not safe)) - (##cdr _%e142700142817%_))) - (_%lp-hd142701142820%_ + (##cdr _%e142737142854%_))) + (_%lp-hd142738142857%_ (let () (declare (not safe)) - (##car _%e142700142817%_)))) - (_%loop142699142809%_ - _%lp-tl142702142822%_ - (cons _%lp-hd142701142820%_ - _%body142703142814%_)))) - (let ((_%body142704142825%_ - (reverse _%body142703142814%_))) + (##car _%e142737142854%_)))) + (_%loop142736142846%_ + _%lp-tl142739142859%_ + (cons _%lp-hd142738142857%_ + _%body142740142851%_)))) + (let ((_%body142741142862%_ + (reverse _%body142740142851%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142680142761%_)) + _%tl142717142798%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142674142745%_)) + _%tl142711142782%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142671142737%_)) - (let ((_%e142705142828%_ + _%tl142708142774%_)) + (let ((_%e142742142865%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl142671142737%_)))) - (let ((_%tl142707142833%_ + (gx#stx-e _%tl142708142774%_)))) + (let ((_%tl142744142870%_ (let () (declare (not safe)) - (##cdr _%e142705142828%_))) - (_%hd142706142831%_ + (##cdr _%e142742142865%_))) + (_%hd142743142868%_ (let () (declare (not safe)) - (##car _%e142705142828%_)))) + (##car _%e142742142865%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142707142833%_)) - (let ((_%L142836%_ _%hd142706142831%_) - (_%L142837%_ _%body142704142825%_) - (_%L142838%_ _%arg142695142801%_) - (_%L142839%_ _%hd142676142751%_)) - (if (eq? _%L142839%_ _%L142836%_) - (_%__kont148461148462%_ - _%L142836%_ - _%L142837%_ - _%L142838%_ - _%L142839%_) - (_%__kont148467148468%_))) - (_%__kont148467148468%_)))) - (_%__kont148467148468%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148467148468%_)) - (_%__kont148467148468%_))))))) - (_%loop142699142809%_ _%target142696142804%_ '())) - (_%__kont148467148468%_)))) - (_%__kont148467148468%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop142690142785%_ - _%target142687142780%_ + (gx#stx-null? _%tl142744142870%_)) + (let ((_%L142873%_ _%hd142743142868%_) + (_%L142874%_ _%body142741142862%_) + (_%L142875%_ _%arg142732142838%_) + (_%L142876%_ _%hd142713142788%_)) + (if (eq? _%L142876%_ _%L142873%_) + (_%__kont148498148499%_ + _%L142873%_ + _%L142874%_ + _%L142875%_ + _%L142876%_) + (_%__kont148504148505%_))) + (_%__kont148504148505%_)))) + (_%__kont148504148505%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148504148505%_)) + (_%__kont148504148505%_))))))) + (_%loop142736142846%_ _%target142733142841%_ '())) + (_%__kont148504148505%_)))) + (_%__kont148504148505%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop142727142822%_ + _%target142724142817%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148459148460%_)) - (let ((_%e142666142724%_ + (gx#stx-pair? _%__stx148496148497%_)) + (let ((_%e142703142761%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148459148460%_)))) - (let ((_%tl142668142729%_ + (gx#stx-e _%__stx148496148497%_)))) + (let ((_%tl142705142766%_ (let () (declare (not safe)) - (##cdr _%e142666142724%_))) - (_%hd142667142727%_ + (##cdr _%e142703142761%_))) + (_%hd142704142764%_ (let () (declare (not safe)) - (##car _%e142666142724%_)))) + (##car _%e142703142761%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142667142727%_)) + (gx#identifier? _%hd142704142764%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _%hd142667142727%_)) + _%hd142704142764%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142668142729%_)) - (let ((_%e142669142732%_ + _%tl142705142766%_)) + (let ((_%e142706142769%_ (let () (declare (not safe)) (gx#stx-e - _%tl142668142729%_)))) - (let ((_%tl142671142737%_ + _%tl142705142766%_)))) + (let ((_%tl142708142774%_ (let () (declare (not safe)) - (##cdr _%e142669142732%_))) - (_%hd142670142735%_ + (##cdr _%e142706142769%_))) + (_%hd142707142772%_ (let () (declare (not safe)) - (##car _%e142669142732%_)))) + (##car _%e142706142769%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142670142735%_)) - (let ((_%e142672142740%_ + _%hd142707142772%_)) + (let ((_%e142709142777%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd142670142735%_)))) - (let ((_%tl142674142745%_ + (gx#stx-e _%hd142707142772%_)))) + (let ((_%tl142711142782%_ (let () (declare (not safe)) - (##cdr _%e142672142740%_))) - (_%hd142673142743%_ + (##cdr _%e142709142777%_))) + (_%hd142710142780%_ (let () (declare (not safe)) - (##car _%e142672142740%_)))) + (##car _%e142709142777%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142673142743%_)) - (let ((_%e142675142748%_ + (gx#stx-pair? _%hd142710142780%_)) + (let ((_%e142712142785%_ (let () (declare (not safe)) - (gx#stx-e _%hd142673142743%_)))) - (let ((_%tl142677142753%_ + (gx#stx-e _%hd142710142780%_)))) + (let ((_%tl142714142790%_ (let () (declare (not safe)) - (##cdr _%e142675142748%_))) - (_%hd142676142751%_ + (##cdr _%e142712142785%_))) + (_%hd142713142788%_ (let () (declare (not safe)) - (##car _%e142675142748%_)))) + (##car _%e142712142785%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142677142753%_)) - (let ((_%e142678142756%_ + (gx#stx-pair? _%tl142714142790%_)) + (let ((_%e142715142793%_ (let () (declare (not safe)) - (gx#stx-e _%tl142677142753%_)))) - (let ((_%tl142680142761%_ + (gx#stx-e _%tl142714142790%_)))) + (let ((_%tl142717142798%_ (let () (declare (not safe)) - (##cdr _%e142678142756%_))) - (_%hd142679142759%_ + (##cdr _%e142715142793%_))) + (_%hd142716142796%_ (let () (declare (not safe)) - (##car _%e142678142756%_)))) + (##car _%e142715142793%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142679142759%_)) - (let ((_%e142681142764%_ + (gx#stx-pair? _%hd142716142796%_)) + (let ((_%e142718142801%_ (let () (declare (not safe)) (gx#stx-e - _%hd142679142759%_)))) - (let ((_%tl142683142769%_ + _%hd142716142796%_)))) + (let ((_%tl142720142806%_ (let () (declare (not safe)) - (##cdr _%e142681142764%_))) - (_%hd142682142767%_ + (##cdr _%e142718142801%_))) + (_%hd142719142804%_ (let () (declare (not safe)) - (##car _%e142681142764%_)))) + (##car _%e142718142801%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142682142767%_)) + _%hd142719142804%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _%hd142682142767%_)) + _%hd142719142804%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142683142769%_)) - (let ((_%e142684142772%_ + _%tl142720142806%_)) + (let ((_%e142721142809%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl142683142769%_)))) - (let ((_%tl142686142777%_ + (gx#stx-e _%tl142720142806%_)))) + (let ((_%tl142723142814%_ (let () (declare (not safe)) - (##cdr _%e142684142772%_))) - (_%hd142685142775%_ + (##cdr _%e142721142809%_))) + (_%hd142722142812%_ (let () (declare (not safe)) - (##car _%e142684142772%_)))) + (##car _%e142721142809%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd142685142775%_)) - (let ((_%__splice148463148464%_ + (gx#stx-pair/null? _%hd142722142812%_)) + (let ((_%__splice148500148501%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd142685142775%_ + _%hd142722142812%_ '0)))) - (let ((_%tl142689142782%_ + (let ((_%tl142726142819%_ (let () (declare (not safe)) - (##vector-ref _%__splice148463148464%_ '1))) - (_%target142687142780%_ + (##vector-ref _%__splice148500148501%_ '1))) + (_%target142724142817%_ (let () (declare (not safe)) (##vector-ref - _%__splice148463148464%_ + _%__splice148500148501%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142689142782%_)) - (_%__match148526148527%_ - _%e142666142724%_ - _%hd142667142727%_ - _%tl142668142729%_ - _%e142669142732%_ - _%hd142670142735%_ - _%tl142671142737%_ - _%e142672142740%_ - _%hd142673142743%_ - _%tl142674142745%_ - _%e142675142748%_ - _%hd142676142751%_ - _%tl142677142753%_ - _%e142678142756%_ - _%hd142679142759%_ - _%tl142680142761%_ - _%e142681142764%_ - _%hd142682142767%_ - _%tl142683142769%_ - _%e142684142772%_ - _%hd142685142775%_ - _%tl142686142777%_ - _%__splice148463148464%_ - _%target142687142780%_ - _%tl142689142782%_) - (_%__kont148467148468%_)))) - (_%__kont148467148468%_)))) - (_%__kont148467148468%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148467148468%_)) - (_%__kont148467148468%_)))) - (_%__kont148467148468%_)))) - (_%__kont148467148468%_)))) - (_%__kont148467148468%_)))) - (_%__kont148467148468%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148467148468%_)) - (_%__kont148467148468%_)) - (_%__kont148467148468%_)))) - (_%__kont148467148468%_))))))))) - (let* ((_%g142362142385%_ - (lambda (_%g142363142382%_) + (gx#stx-null? _%tl142726142819%_)) + (_%__match148563148564%_ + _%e142703142761%_ + _%hd142704142764%_ + _%tl142705142766%_ + _%e142706142769%_ + _%hd142707142772%_ + _%tl142708142774%_ + _%e142709142777%_ + _%hd142710142780%_ + _%tl142711142782%_ + _%e142712142785%_ + _%hd142713142788%_ + _%tl142714142790%_ + _%e142715142793%_ + _%hd142716142796%_ + _%tl142717142798%_ + _%e142718142801%_ + _%hd142719142804%_ + _%tl142720142806%_ + _%e142721142809%_ + _%hd142722142812%_ + _%tl142723142814%_ + _%__splice148500148501%_ + _%target142724142817%_ + _%tl142726142819%_) + (_%__kont148504148505%_)))) + (_%__kont148504148505%_)))) + (_%__kont148504148505%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148504148505%_)) + (_%__kont148504148505%_)))) + (_%__kont148504148505%_)))) + (_%__kont148504148505%_)))) + (_%__kont148504148505%_)))) + (_%__kont148504148505%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148504148505%_)) + (_%__kont148504148505%_)) + (_%__kont148504148505%_)))) + (_%__kont148504148505%_))))))))) + (let* ((_%g142399142422%_ + (lambda (_%g142400142419%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142363142382%_)))) - (_%g142361142646%_ - (lambda (_%g142363142388%_) + _%g142400142419%_)))) + (_%g142398142683%_ + (lambda (_%g142400142425%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142363142388%_)) - (let ((_%e142366142390%_ + (gx#stx-pair? _%g142400142425%_)) + (let ((_%e142403142427%_ (let () (declare (not safe)) - (gx#stx-e _%g142363142388%_)))) - (let ((_%hd142367142393%_ + (gx#stx-e _%g142400142425%_)))) + (let ((_%hd142404142430%_ (let () (declare (not safe)) - (##car _%e142366142390%_))) - (_%tl142368142395%_ + (##car _%e142403142427%_))) + (_%tl142405142432%_ (let () (declare (not safe)) - (##cdr _%e142366142390%_)))) + (##cdr _%e142403142427%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142368142395%_)) - (let ((_%e142369142398%_ + (gx#stx-pair? _%tl142405142432%_)) + (let ((_%e142406142435%_ (let () (declare (not safe)) - (gx#stx-e _%tl142368142395%_)))) - (let ((_%hd142370142401%_ + (gx#stx-e _%tl142405142432%_)))) + (let ((_%hd142407142438%_ (let () (declare (not safe)) - (##car _%e142369142398%_))) - (_%tl142371142403%_ + (##car _%e142406142435%_))) + (_%tl142408142440%_ (let () (declare (not safe)) - (##cdr _%e142369142398%_)))) + (##cdr _%e142406142435%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142371142403%_)) - (let ((_g149136_ + _%tl142408142440%_)) + (let ((_g149173_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl142371142403%_ + _%tl142408142440%_ '0)))) (begin - (let ((_g149137_ + (let ((_g149174_ (let () (declare (not safe)) - (if (##values? _g149136_) + (if (##values? _g149173_) (##vector-length - _g149136_) + _g149173_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149137_ 2))) + (##fx= _g149174_ 2))) (error "Context expects 2 values" - _g149137_))) - (let ((_%target142372142406%_ + _g149174_))) + (let ((_%target142409142443%_ (let () (declare (not safe)) (##vector-ref - _g149136_ + _g149173_ 0))) - (_%tl142374142408%_ + (_%tl142411142445%_ (let () (declare (not safe)) (##vector-ref - _g149136_ + _g149173_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142374142408%_)) - (letrec ((_%loop142375142411%_ - (lambda (_%hd142373142414%_ + _%tl142411142445%_)) + (letrec ((_%loop142412142448%_ + (lambda (_%hd142410142451%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rand142379142416%_) + _%rand142416142453%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142373142414%_)) - (let ((_%e142376142419%_ + (gx#stx-pair? _%hd142410142451%_)) + (let ((_%e142413142456%_ (let () (declare (not safe)) - (gx#stx-e _%hd142373142414%_)))) - (let ((_%lp-hd142377142422%_ + (gx#stx-e _%hd142410142451%_)))) + (let ((_%lp-hd142414142459%_ (let () (declare (not safe)) - (##car _%e142376142419%_))) - (_%lp-tl142378142424%_ + (##car _%e142413142456%_))) + (_%lp-tl142415142461%_ (let () (declare (not safe)) - (##cdr _%e142376142419%_)))) - (_%loop142375142411%_ - _%lp-tl142378142424%_ - (cons _%lp-hd142377142422%_ - _%rand142379142416%_)))) - (let ((_%rand142380142427%_ - (reverse _%rand142379142416%_))) - ((lambda (_%L142430%_ _%L142431%_) + (##cdr _%e142413142456%_)))) + (_%loop142412142448%_ + _%lp-tl142415142461%_ + (cons _%lp-hd142414142459%_ + _%rand142416142453%_)))) + (let ((_%rand142417142464%_ + (reverse _%rand142416142453%_))) + ((lambda (_%L142467%_ _%L142468%_) (if (gxc#current-compile-decls-unsafe?) - (_%compile-call142360%_ - _%L142431%_ - (let ((__tmp149138 - (lambda (_%g142448142451%_ - _%g142449142453%_) - (cons _%g142448142451%_ - _%g142449142453%_)))) + (_%compile-call142397%_ + _%L142468%_ + (let ((__tmp149175 + (lambda (_%g142485142488%_ + _%g142486142490%_) + (cons _%g142485142488%_ + _%g142486142490%_)))) (declare (not safe)) - (__foldr1 __tmp149138 '() _%L142430%_))) - (let* ((_%__stx148575148576%_ _%L142431%_) - (_%g142457142469%_ + (__foldr1 __tmp149175 '() _%L142467%_))) + (let* ((_%__stx148612148613%_ _%L142468%_) + (_%g142494142506%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148575148576%_))))) - (let ((_%__kont148577148578%_ + _%__stx148612148613%_))))) + (let ((_%__kont148614148615%_ (lambda () - (let ((_%f142506%_ + (let ((_%f142543%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142357%_ - _%L142431%_)))) - (if (and (let ((__tmp149139 + _%self142394%_ + _%L142468%_)))) + (if (and (let ((__tmp149176 (symbol->string ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%f142506%_))) + _%f142543%_))) (declare (not safe)) - (##string-prefix? '"##" __tmp149139)) + (##string-prefix? '"##" __tmp149176)) (not (let () (declare (not safe)) - (##memq _%f142506%_ gxc#checked-primitives)))) + (##memq _%f142543%_ gxc#checked-primitives)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp142508%_ ((_%rest142511%_ + (let _%lp142545%_ ((_%rest142548%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse (let ((__tmp149141 - (lambda (_%g142628142631%_ - _%g142629142633%_) - (cons _%g142628142631%_ - _%g142629142633%_)))) + (reverse (let ((__tmp149178 + (lambda (_%g142665142668%_ + _%g142666142670%_) + (cons _%g142665142668%_ + _%g142666142670%_)))) (declare (not safe)) (__foldr1 - __tmp149141 + __tmp149178 '() - _%L142430%_)))) - (_%bind142513%_ '()) - (_%args142514%_ '())) - (let* ((_%rest142515142523%_ _%rest142511%_) - (_%else142517142531%_ + _%L142467%_)))) + (_%bind142550%_ '()) + (_%args142551%_ '())) + (let* ((_%rest142552142560%_ _%rest142548%_) + (_%else142554142568%_ (lambda () (cons 'let - (cons _%bind142513%_ + (cons _%bind142550%_ (cons '(declare (not safe)) - (cons (cons _%f142506%_ - _%args142514%_) + (cons (cons _%f142543%_ + _%args142551%_) '())))))) - (_%K142519142617%_ - (lambda (_%rest142534%_ _%e142535%_) - (let* ((_%__stx148529148530%_ _%e142535%_) - (_%g142540142558%_ + (_%K142556142654%_ + (lambda (_%rest142571%_ _%e142572%_) + (let* ((_%__stx148566148567%_ _%e142572%_) + (_%g142577142595%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148529148530%_))))) - (let ((_%__kont148531148532%_ + _%__stx148566148567%_))))) + (let ((_%__kont148568148569%_ (lambda () - (_%lp142508%_ - _%rest142534%_ - _%bind142513%_ + (_%lp142545%_ + _%rest142571%_ + _%bind142550%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e142535%_)) - _%args142514%_)))) - (_%__kont148533148534%_ + (gxc#compile-e__0 _%e142572%_)) + _%args142551%_)))) + (_%__kont148570148571%_ (lambda () - (_%lp142508%_ - _%rest142534%_ - _%bind142513%_ + (_%lp142545%_ + _%rest142571%_ + _%bind142550%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e142535%_)) - _%args142514%_)))) - (_%__kont148535148536%_ + (gxc#compile-e__0 _%e142572%_)) + _%args142551%_)))) + (_%__kont148572148573%_ (lambda () - (let ((_%tmp142565%_ - (let ((__tmp149140 + (let ((_%tmp142602%_ + (let ((__tmp149177 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149140)))) - (_%lp142508%_ - _%rest142534%_ - (cons (cons _%tmp142565%_ + (make-symbol__0 __tmp149177)))) + (_%lp142545%_ + _%rest142571%_ + (cons (cons _%tmp142602%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142535%_)) + _%e142572%_)) '())) - _%bind142513%_) - (cons _%tmp142565%_ _%args142514%_)))))) + _%bind142550%_) + (cons _%tmp142602%_ _%args142551%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148529148530%_)) - (let ((_%e142542142596%_ + (gx#stx-pair? _%__stx148566148567%_)) + (let ((_%e142579142633%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148529148530%_)))) - (let ((_%tl142544142601%_ + (gx#stx-e _%__stx148566148567%_)))) + (let ((_%tl142581142638%_ (let () (declare (not safe)) - (##cdr _%e142542142596%_))) - (_%hd142543142599%_ + (##cdr _%e142579142633%_))) + (_%hd142580142636%_ (let () (declare (not safe)) - (##car _%e142542142596%_)))) + (##car _%e142579142633%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142543142599%_)) + (gx#identifier? _%hd142580142636%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142543142599%_)) + _%hd142580142636%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142544142601%_)) - (let ((_%e142545142604%_ + _%tl142581142638%_)) + (let ((_%e142582142641%_ (let () (declare (not safe)) (gx#stx-e - _%tl142544142601%_)))) - (let ((_%tl142547142609%_ + _%tl142581142638%_)))) + (let ((_%tl142584142646%_ (let () (declare (not safe)) - (##cdr _%e142545142604%_))) - (_%hd142546142607%_ + (##cdr _%e142582142641%_))) + (_%hd142583142644%_ (let () (declare (not safe)) - (##car _%e142545142604%_)))) + (##car _%e142582142641%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142547142609%_)) - (_%__kont148531148532%_) - (_%__kont148535148536%_)))) - (_%__kont148535148536%_)) + _%tl142584142646%_)) + (_%__kont148568148569%_) + (_%__kont148572148573%_)))) + (_%__kont148572148573%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd142543142599%_)) + _%hd142580142636%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142544142601%_)) - (let ((_%e142551142581%_ + _%tl142581142638%_)) + (let ((_%e142588142618%_ (let () (declare (not safe)) (gx#stx-e - _%tl142544142601%_)))) - (let ((_%tl142553142586%_ + _%tl142581142638%_)))) + (let ((_%tl142590142623%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142551142581%_))) - (_%hd142552142584%_ - (let () (declare (not safe)) (##car _%e142551142581%_)))) + (##cdr _%e142588142618%_))) + (_%hd142589142621%_ + (let () (declare (not safe)) (##car _%e142588142618%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142553142586%_)) - (_%__kont148533148534%_) - (_%__kont148535148536%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148535148536%_)) - (_%__kont148535148536%_))) - (_%__kont148535148536%_)))) - (_%__kont148535148536%_))))))) - (if (pair? _%rest142515142523%_) - (let ((_%hd142520142620%_ + (gx#stx-null? _%tl142590142623%_)) + (_%__kont148570148571%_) + (_%__kont148572148573%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148572148573%_)) + (_%__kont148572148573%_))) + (_%__kont148572148573%_)))) + (_%__kont148572148573%_))))))) + (if (pair? _%rest142552142560%_) + (let ((_%hd142557142657%_ (let () (declare (not safe)) - (##car _%rest142515142523%_))) - (_%tl142521142622%_ + (##car _%rest142552142560%_))) + (_%tl142558142659%_ (let () (declare (not safe)) - (##cdr _%rest142515142523%_)))) - (let* ((_%e142625%_ _%hd142520142620%_) - (_%rest142627%_ _%tl142521142622%_)) - (_%K142519142617%_ _%rest142627%_ _%e142625%_))) - (_%else142517142531%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%compile-call142360%_ - _%L142431%_ - (let ((__tmp149142 - (lambda (_%g142635142638%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142636142640%_) - (cons _%g142635142638%_ _%g142636142640%_)))) + (##cdr _%rest142552142560%_)))) + (let* ((_%e142662%_ _%hd142557142657%_) + (_%rest142664%_ _%tl142558142659%_)) + (_%K142556142654%_ _%rest142664%_ _%e142662%_))) + (_%else142554142568%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%compile-call142397%_ + _%L142468%_ + (let ((__tmp149179 + (lambda (_%g142672142675%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g142673142677%_) + (cons _%g142672142675%_ _%g142673142677%_)))) (declare (not safe)) - (__foldr1 __tmp149142 '() _%L142430%_))))))) + (__foldr1 __tmp149179 '() _%L142467%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148579148580%_ + (_%__kont148616148617%_ (lambda () - (_%compile-call142360%_ - _%L142431%_ - (let ((__tmp149143 - (lambda (_%g142475142478%_ - _%g142476142480%_) - (cons _%g142475142478%_ - _%g142476142480%_)))) + (_%compile-call142397%_ + _%L142468%_ + (let ((__tmp149180 + (lambda (_%g142512142515%_ + _%g142513142517%_) + (cons _%g142512142515%_ + _%g142513142517%_)))) (declare (not safe)) (__foldr1 - __tmp149143 + __tmp149180 '() - _%L142430%_)))))) + _%L142467%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148575148576%_)) - (let ((_%e142459142488%_ + _%__stx148612148613%_)) + (let ((_%e142496142525%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148575148576%_)))) - (let ((_%tl142461142493%_ + _%__stx148612148613%_)))) + (let ((_%tl142498142530%_ (let () (declare (not safe)) - (##cdr _%e142459142488%_))) - (_%hd142460142491%_ + (##cdr _%e142496142525%_))) + (_%hd142497142528%_ (let () (declare (not safe)) - (##car _%e142459142488%_)))) + (##car _%e142496142525%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142460142491%_)) + _%hd142497142528%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142460142491%_)) + _%hd142497142528%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142461142493%_)) - (let ((_%e142462142496%_ + _%tl142498142530%_)) + (let ((_%e142499142533%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl142461142493%_)))) - (let ((_%tl142464142501%_ + (gx#stx-e _%tl142498142530%_)))) + (let ((_%tl142501142538%_ (let () (declare (not safe)) - (##cdr _%e142462142496%_))) - (_%hd142463142499%_ + (##cdr _%e142499142533%_))) + (_%hd142500142536%_ (let () (declare (not safe)) - (##car _%e142462142496%_)))) + (##car _%e142499142533%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142464142501%_)) - (_%__kont148577148578%_) - (_%__kont148579148580%_)))) - (_%__kont148579148580%_)) - (_%__kont148579148580%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148579148580%_)))) - (_%__kont148579148580%_)))))) - _%rand142380142427%_ - _%hd142370142401%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop142375142411%_ - _%target142372142406%_ + (gx#stx-null? _%tl142501142538%_)) + (_%__kont148614148615%_) + (_%__kont148616148617%_)))) + (_%__kont148616148617%_)) + (_%__kont148616148617%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148616148617%_)))) + (_%__kont148616148617%_)))))) + _%rand142417142464%_ + _%hd142407142438%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop142412142448%_ + _%target142409142443%_ '())) - (_%g142362142385%_ - _%g142363142388%_))))) - (_%g142362142385%_ - _%g142363142388%_)))) - (_%g142362142385%_ _%g142363142388%_)))) - (_%g142362142385%_ _%g142363142388%_))))) - (_%g142361142646%_ _%stx142358%_))))) + (_%g142399142422%_ + _%g142400142425%_))))) + (_%g142399142422%_ + _%g142400142425%_)))) + (_%g142399142422%_ _%g142400142425%_)))) + (_%g142399142422%_ _%g142400142425%_))))) + (_%g142398142683%_ _%stx142395%_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_%self142100%_ _%stx142101%_) - (let* ((_%__stx148647148648%_ _%stx142101%_) - (_%g142104142133%_ + (lambda (_%self142137%_ _%stx142138%_) + (let* ((_%__stx148684148685%_ _%stx142138%_) + (_%g142141142170%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148647148648%_))))) - (let ((_%__kont148649148650%_ - (lambda (_%L142201%_ _%L142202%_) + _%__stx148684148685%_))))) + (let ((_%__kont148686148687%_ + (lambda (_%L142238%_ _%L142239%_) (if (gxc#current-compile-decls-unsafe?) (gxc#generate-runtime-call% - _%self142100%_ - _%stx142101%_) - (let ((_%f142224%_ - (let ((__tmp149144 + _%self142137%_ + _%stx142138%_) + (let ((_%f142261%_ + (let ((__tmp149181 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L142202%_ '())))) + (cons _%L142239%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self142100%_ - __tmp149144)))) - (let _%lp142226%_ ((_%rest142229%_ - (reverse (let ((__tmp149146 - (lambda (_%g142346142349%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142347142351%_) - (cons _%g142346142349%_ _%g142347142351%_)))) + _%self142137%_ + __tmp149181)))) + (let _%lp142263%_ ((_%rest142266%_ + (reverse (let ((__tmp149183 + (lambda (_%g142383142386%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g142384142388%_) + (cons _%g142383142386%_ _%g142384142388%_)))) (declare (not safe)) - (__foldr1 __tmp149146 '() _%L142201%_)))) + (__foldr1 __tmp149183 '() _%L142238%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind142231%_ '()) - (_%args142232%_ '())) - (let* ((_%rest142233142241%_ _%rest142229%_) - (_%else142235142249%_ + (_%bind142268%_ '()) + (_%args142269%_ '())) + (let* ((_%rest142270142278%_ _%rest142266%_) + (_%else142272142286%_ (lambda () (cons 'let - (cons _%bind142231%_ + (cons _%bind142268%_ (cons '(declare (not safe)) - (cons (cons _%f142224%_ + (cons (cons _%f142261%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%args142232%_) + _%args142269%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K142237142335%_ - (lambda (_%rest142252%_ _%e142253%_) - (let* ((_%__stx148601148602%_ _%e142253%_) - (_%g142258142276%_ + (_%K142274142372%_ + (lambda (_%rest142289%_ _%e142290%_) + (let* ((_%__stx148638148639%_ _%e142290%_) + (_%g142295142313%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148601148602%_))))) - (let ((_%__kont148603148604%_ + _%__stx148638148639%_))))) + (let ((_%__kont148640148641%_ (lambda () - (_%lp142226%_ - _%rest142252%_ - _%bind142231%_ + (_%lp142263%_ + _%rest142289%_ + _%bind142268%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142253%_)) - _%args142232%_)))) - (_%__kont148605148606%_ + _%e142290%_)) + _%args142269%_)))) + (_%__kont148642148643%_ (lambda () - (_%lp142226%_ - _%rest142252%_ - _%bind142231%_ + (_%lp142263%_ + _%rest142289%_ + _%bind142268%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142253%_)) - _%args142232%_)))) - (_%__kont148607148608%_ + _%e142290%_)) + _%args142269%_)))) + (_%__kont148644148645%_ (lambda () - (let ((_%tmp142283%_ - (let ((__tmp149145 + (let ((_%tmp142320%_ + (let ((__tmp149182 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149145)))) + (make-symbol__0 __tmp149182)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp142226%_ - _%rest142252%_ - (cons (cons _%tmp142283%_ + (_%lp142263%_ + _%rest142289%_ + (cons (cons _%tmp142320%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e142253%_)) + (gxc#compile-e__0 _%e142290%_)) '())) - _%bind142231%_) + _%bind142268%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%tmp142283%_ - _%args142232%_)))))) + (cons _%tmp142320%_ + _%args142269%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148601148602%_)) - (let ((_%e142260142314%_ + _%__stx148638148639%_)) + (let ((_%e142297142351%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148601148602%_)))) - (let ((_%tl142262142319%_ + _%__stx148638148639%_)))) + (let ((_%tl142299142356%_ (let () (declare (not safe)) - (##cdr _%e142260142314%_))) - (_%hd142261142317%_ + (##cdr _%e142297142351%_))) + (_%hd142298142354%_ (let () (declare (not safe)) - (##car _%e142260142314%_)))) + (##car _%e142297142351%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142261142317%_)) + _%hd142298142354%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142261142317%_)) + _%hd142298142354%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl142262142319%_)) - (let ((_%e142263142322%_ + (gx#stx-pair? _%tl142299142356%_)) + (let ((_%e142300142359%_ (let () (declare (not safe)) - (gx#stx-e _%tl142262142319%_)))) - (let ((_%tl142265142327%_ + (gx#stx-e _%tl142299142356%_)))) + (let ((_%tl142302142364%_ (let () (declare (not safe)) - (##cdr _%e142263142322%_))) - (_%hd142264142325%_ + (##cdr _%e142300142359%_))) + (_%hd142301142362%_ (let () (declare (not safe)) - (##car _%e142263142322%_)))) + (##car _%e142300142359%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142265142327%_)) - (_%__kont148603148604%_) - (_%__kont148607148608%_)))) - (_%__kont148607148608%_)) + (gx#stx-null? _%tl142302142364%_)) + (_%__kont148640148641%_) + (_%__kont148644148645%_)))) + (_%__kont148644148645%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd142261142317%_)) + (gx#stx-eq? '%#quote _%hd142298142354%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142262142319%_)) - (let ((_%e142269142299%_ + (gx#stx-pair? _%tl142299142356%_)) + (let ((_%e142306142336%_ (let () (declare (not safe)) - (gx#stx-e _%tl142262142319%_)))) - (let ((_%tl142271142304%_ + (gx#stx-e _%tl142299142356%_)))) + (let ((_%tl142308142341%_ (let () (declare (not safe)) - (##cdr _%e142269142299%_))) - (_%hd142270142302%_ + (##cdr _%e142306142336%_))) + (_%hd142307142339%_ (let () (declare (not safe)) - (##car _%e142269142299%_)))) + (##car _%e142306142336%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142271142304%_)) - (_%__kont148605148606%_) - (_%__kont148607148608%_)))) - (_%__kont148607148608%_)) - (_%__kont148607148608%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148607148608%_)))) - (_%__kont148607148608%_))))))) - (if (pair? _%rest142233142241%_) - (let ((_%hd142238142338%_ + (gx#stx-null? _%tl142308142341%_)) + (_%__kont148642148643%_) + (_%__kont148644148645%_)))) + (_%__kont148644148645%_)) + (_%__kont148644148645%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148644148645%_)))) + (_%__kont148644148645%_))))))) + (if (pair? _%rest142270142278%_) + (let ((_%hd142275142375%_ (let () (declare (not safe)) - (##car _%rest142233142241%_))) - (_%tl142239142340%_ + (##car _%rest142270142278%_))) + (_%tl142276142377%_ (let () (declare (not safe)) - (##cdr _%rest142233142241%_)))) - (let* ((_%e142343%_ _%hd142238142338%_) - (_%rest142345%_ _%tl142239142340%_)) - (_%K142237142335%_ - _%rest142345%_ - _%e142343%_))) - (_%else142235142249%_)))))))) - (_%__kont148653148654%_ + (##cdr _%rest142270142278%_)))) + (let* ((_%e142380%_ _%hd142275142375%_) + (_%rest142382%_ _%tl142276142377%_)) + (_%K142274142372%_ + _%rest142382%_ + _%e142380%_))) + (_%else142272142286%_)))))))) + (_%__kont148690148691%_ (lambda () - (gxc#generate-runtime-call% _%self142100%_ _%stx142101%_)))) - (let ((_%__match148692148693%_ - (lambda (_%e142108142145%_ - _%hd142109142148%_ - _%tl142110142150%_ - _%e142111142153%_ - _%hd142112142156%_ - _%tl142113142158%_ - _%e142114142161%_ - _%hd142115142164%_ - _%tl142116142166%_ - _%e142117142169%_ - _%hd142118142172%_ - _%tl142119142174%_ - _%__splice148651148652%_ - _%target142120142177%_ - _%tl142122142179%_) - (letrec ((_%loop142123142182%_ - (lambda (_%hd142121142185%_ - _%rand142127142187%_) + (gxc#generate-runtime-call% _%self142137%_ _%stx142138%_)))) + (let ((_%__match148729148730%_ + (lambda (_%e142145142182%_ + _%hd142146142185%_ + _%tl142147142187%_ + _%e142148142190%_ + _%hd142149142193%_ + _%tl142150142195%_ + _%e142151142198%_ + _%hd142152142201%_ + _%tl142153142203%_ + _%e142154142206%_ + _%hd142155142209%_ + _%tl142156142211%_ + _%__splice148688148689%_ + _%target142157142214%_ + _%tl142159142216%_) + (letrec ((_%loop142160142219%_ + (lambda (_%hd142158142222%_ + _%rand142164142224%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142121142185%_)) - (let ((_%e142124142190%_ + (gx#stx-pair? _%hd142158142222%_)) + (let ((_%e142161142227%_ (let () (declare (not safe)) - (gx#stx-e _%hd142121142185%_)))) - (let ((_%lp-tl142126142195%_ + (gx#stx-e _%hd142158142222%_)))) + (let ((_%lp-tl142163142232%_ (let () (declare (not safe)) - (##cdr _%e142124142190%_))) - (_%lp-hd142125142193%_ + (##cdr _%e142161142227%_))) + (_%lp-hd142162142230%_ (let () (declare (not safe)) - (##car _%e142124142190%_)))) - (_%loop142123142182%_ - _%lp-tl142126142195%_ - (cons _%lp-hd142125142193%_ - _%rand142127142187%_)))) - (let ((_%rand142128142198%_ - (reverse _%rand142127142187%_))) - (_%__kont148649148650%_ - _%rand142128142198%_ - _%hd142118142172%_)))))) - (_%loop142123142182%_ _%target142120142177%_ '()))))) + (##car _%e142161142227%_)))) + (_%loop142160142219%_ + _%lp-tl142163142232%_ + (cons _%lp-hd142162142230%_ + _%rand142164142224%_)))) + (let ((_%rand142165142235%_ + (reverse _%rand142164142224%_))) + (_%__kont148686148687%_ + _%rand142165142235%_ + _%hd142155142209%_)))))) + (_%loop142160142219%_ _%target142157142214%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148647148648%_)) - (let ((_%e142108142145%_ + (gx#stx-pair? _%__stx148684148685%_)) + (let ((_%e142145142182%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148647148648%_)))) - (let ((_%tl142110142150%_ + (gx#stx-e _%__stx148684148685%_)))) + (let ((_%tl142147142187%_ (let () (declare (not safe)) - (##cdr _%e142108142145%_))) - (_%hd142109142148%_ + (##cdr _%e142145142182%_))) + (_%hd142146142185%_ (let () (declare (not safe)) - (##car _%e142108142145%_)))) + (##car _%e142145142182%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142110142150%_)) - (let ((_%e142111142153%_ + (gx#stx-pair? _%tl142147142187%_)) + (let ((_%e142148142190%_ (let () (declare (not safe)) - (gx#stx-e _%tl142110142150%_)))) - (let ((_%tl142113142158%_ + (gx#stx-e _%tl142147142187%_)))) + (let ((_%tl142150142195%_ (let () (declare (not safe)) - (##cdr _%e142111142153%_))) - (_%hd142112142156%_ + (##cdr _%e142148142190%_))) + (_%hd142149142193%_ (let () (declare (not safe)) - (##car _%e142111142153%_)))) + (##car _%e142148142190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142112142156%_)) - (let ((_%e142114142161%_ + (gx#stx-pair? _%hd142149142193%_)) + (let ((_%e142151142198%_ (let () (declare (not safe)) - (gx#stx-e _%hd142112142156%_)))) - (let ((_%tl142116142166%_ + (gx#stx-e _%hd142149142193%_)))) + (let ((_%tl142153142203%_ (let () (declare (not safe)) - (##cdr _%e142114142161%_))) - (_%hd142115142164%_ + (##cdr _%e142151142198%_))) + (_%hd142152142201%_ (let () (declare (not safe)) - (##car _%e142114142161%_)))) + (##car _%e142151142198%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142115142164%_)) + _%hd142152142201%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142115142164%_)) + _%hd142152142201%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142116142166%_)) - (let ((_%e142117142169%_ + _%tl142153142203%_)) + (let ((_%e142154142206%_ (let () (declare (not safe)) (gx#stx-e - _%tl142116142166%_)))) - (let ((_%tl142119142174%_ + _%tl142153142203%_)))) + (let ((_%tl142156142211%_ (let () (declare (not safe)) - (##cdr _%e142117142169%_))) - (_%hd142118142172%_ + (##cdr _%e142154142206%_))) + (_%hd142155142209%_ (let () (declare (not safe)) - (##car _%e142117142169%_)))) + (##car _%e142154142206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142119142174%_)) + _%tl142156142211%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl142113142158%_)) - (let ((_%__splice148651148652%_ + (gx#stx-pair/null? _%tl142150142195%_)) + (let ((_%__splice148688148689%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl142113142158%_ + _%tl142150142195%_ '0)))) - (let ((_%tl142122142179%_ + (let ((_%tl142159142216%_ (let () (declare (not safe)) - (##vector-ref _%__splice148651148652%_ '1))) - (_%target142120142177%_ + (##vector-ref _%__splice148688148689%_ '1))) + (_%target142157142214%_ (let () (declare (not safe)) - (##vector-ref _%__splice148651148652%_ '0)))) + (##vector-ref _%__splice148688148689%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142122142179%_)) - (_%__match148692148693%_ - _%e142108142145%_ - _%hd142109142148%_ - _%tl142110142150%_ - _%e142111142153%_ - _%hd142112142156%_ - _%tl142113142158%_ - _%e142114142161%_ - _%hd142115142164%_ - _%tl142116142166%_ - _%e142117142169%_ - _%hd142118142172%_ - _%tl142119142174%_ - _%__splice148651148652%_ - _%target142120142177%_ - _%tl142122142179%_) - (_%__kont148653148654%_)))) - (_%__kont148653148654%_)) - (_%__kont148653148654%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148653148654%_)) - (_%__kont148653148654%_)) - (_%__kont148653148654%_)))) - (_%__kont148653148654%_)))) - (_%__kont148653148654%_)))) - (_%__kont148653148654%_))))))) + (gx#stx-null? _%tl142159142216%_)) + (_%__match148729148730%_ + _%e142145142182%_ + _%hd142146142185%_ + _%tl142147142187%_ + _%e142148142190%_ + _%hd142149142193%_ + _%tl142150142195%_ + _%e142151142198%_ + _%hd142152142201%_ + _%tl142153142203%_ + _%e142154142206%_ + _%hd142155142209%_ + _%tl142156142211%_ + _%__splice148688148689%_ + _%target142157142214%_ + _%tl142159142216%_) + (_%__kont148690148691%_)))) + (_%__kont148690148691%_)) + (_%__kont148690148691%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148690148691%_)) + (_%__kont148690148691%_)) + (_%__kont148690148691%_)))) + (_%__kont148690148691%_)))) + (_%__kont148690148691%_)))) + (_%__kont148690148691%_))))))) (define gxc#generate-runtime-if% - (lambda (_%self141912%_ _%stx141913%_) - (letrec ((_%simplify141915%_ - (lambda (_%code142000%_) - (let* ((_%code142001142019%_ _%code142000%_) - (_%else142003142027%_ (lambda () _%code142000%_)) - (_%K142005142063%_ - (lambda (_%expr142030%_ _%test142031%_) - (let* ((_%expr142032142040%_ _%expr142030%_) - (_%else142034142048%_ + (lambda (_%self141949%_ _%stx141950%_) + (letrec ((_%simplify141952%_ + (lambda (_%code142037%_) + (let* ((_%code142038142056%_ _%code142037%_) + (_%else142040142064%_ (lambda () _%code142037%_)) + (_%K142042142100%_ + (lambda (_%expr142067%_ _%test142068%_) + (let* ((_%expr142069142077%_ _%expr142067%_) + (_%else142071142085%_ (lambda () (cons 'and - (cons _%test142031%_ - (cons _%expr142030%_ + (cons _%test142068%_ + (cons _%expr142067%_ '()))))) - (_%K142036142053%_ - (lambda (_%exprs142051%_) + (_%K142073142090%_ + (lambda (_%exprs142088%_) (cons 'and - (cons _%test142031%_ - _%exprs142051%_))))) - (if (pair? _%expr142032142040%_) - (let ((_%hd142037142056%_ + (cons _%test142068%_ + _%exprs142088%_))))) + (if (pair? _%expr142069142077%_) + (let ((_%hd142074142093%_ (let () (declare (not safe)) - (##car _%expr142032142040%_))) - (_%tl142038142058%_ + (##car _%expr142069142077%_))) + (_%tl142075142095%_ (let () (declare (not safe)) - (##cdr _%expr142032142040%_)))) + (##cdr _%expr142069142077%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142037142056%_ 'and)) - (let ((_%exprs142061%_ - _%tl142038142058%_)) - (_%K142036142053%_ - _%exprs142061%_)) - (_%else142034142048%_))) - (_%else142034142048%_)))))) - (if (pair? _%code142001142019%_) - (let ((_%hd142006142066%_ + (##eq? _%hd142074142093%_ 'and)) + (let ((_%exprs142098%_ + _%tl142075142095%_)) + (_%K142073142090%_ + _%exprs142098%_)) + (_%else142071142085%_))) + (_%else142071142085%_)))))) + (if (pair? _%code142038142056%_) + (let ((_%hd142043142103%_ (let () (declare (not safe)) - (##car _%code142001142019%_))) - (_%tl142007142068%_ + (##car _%code142038142056%_))) + (_%tl142044142105%_ (let () (declare (not safe)) - (##cdr _%code142001142019%_)))) + (##cdr _%code142038142056%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142006142066%_ 'if)) - (if (pair? _%tl142007142068%_) - (let ((_%hd142008142071%_ + (##eq? _%hd142043142103%_ 'if)) + (if (pair? _%tl142044142105%_) + (let ((_%hd142045142108%_ (let () (declare (not safe)) - (##car _%tl142007142068%_))) - (_%tl142009142073%_ + (##car _%tl142044142105%_))) + (_%tl142046142110%_ (let () (declare (not safe)) - (##cdr _%tl142007142068%_)))) - (let ((_%test142076%_ - _%hd142008142071%_)) - (if (pair? _%tl142009142073%_) - (let ((_%hd142010142078%_ + (##cdr _%tl142044142105%_)))) + (let ((_%test142113%_ + _%hd142045142108%_)) + (if (pair? _%tl142046142110%_) + (let ((_%hd142047142115%_ (let () (declare (not safe)) - (##car _%tl142009142073%_))) - (_%tl142011142080%_ + (##car _%tl142046142110%_))) + (_%tl142048142117%_ (let () (declare (not safe)) - (##cdr _%tl142009142073%_)))) - (let ((_%expr142083%_ - _%hd142010142078%_)) - (if (pair? _%tl142011142080%_) - (let ((_%hd142012142085%_ + (##cdr _%tl142046142110%_)))) + (let ((_%expr142120%_ + _%hd142047142115%_)) + (if (pair? _%tl142048142117%_) + (let ((_%hd142049142122%_ (let () (declare (not safe)) - (##car _%tl142011142080%_))) - (_%tl142013142087%_ + (##car _%tl142048142117%_))) + (_%tl142050142124%_ (let () (declare (not safe)) - (##cdr _%tl142011142080%_)))) - (if (pair? _%hd142012142085%_) - (let ((_%hd142014142090%_ + (##cdr _%tl142048142117%_)))) + (if (pair? _%hd142049142122%_) + (let ((_%hd142051142127%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%hd142012142085%_))) - (_%tl142015142092%_ + (##car _%hd142049142122%_))) + (_%tl142052142129%_ (let () (declare (not safe)) - (##cdr _%hd142012142085%_)))) + (##cdr _%hd142049142122%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142014142090%_ 'quote)) - (if (pair? _%tl142015142092%_) - (let ((_%hd142016142095%_ + (##eq? _%hd142051142127%_ 'quote)) + (if (pair? _%tl142052142129%_) + (let ((_%hd142053142132%_ (let () (declare (not safe)) - (##car _%tl142015142092%_))) - (_%tl142017142097%_ + (##car _%tl142052142129%_))) + (_%tl142054142134%_ (let () (declare (not safe)) - (##cdr _%tl142015142092%_)))) + (##cdr _%tl142052142129%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142016142095%_ '#f)) - (if (null? _%tl142017142097%_) - (if (null? _%tl142013142087%_) - (_%K142005142063%_ - _%expr142083%_ - _%test142076%_) - (_%else142003142027%_)) - (_%else142003142027%_)) - (_%else142003142027%_))) - (_%else142003142027%_)) - (_%else142003142027%_))) - (_%else142003142027%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else142003142027%_)))) - (_%else142003142027%_)))) - (_%else142003142027%_)) - (_%else142003142027%_))) - (_%else142003142027%_)))))) - (let* ((_%g141917141938%_ - (lambda (_%g141918141935%_) + (##eq? _%hd142053142132%_ '#f)) + (if (null? _%tl142054142134%_) + (if (null? _%tl142050142124%_) + (_%K142042142100%_ + _%expr142120%_ + _%test142113%_) + (_%else142040142064%_)) + (_%else142040142064%_)) + (_%else142040142064%_))) + (_%else142040142064%_)) + (_%else142040142064%_))) + (_%else142040142064%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else142040142064%_)))) + (_%else142040142064%_)))) + (_%else142040142064%_)) + (_%else142040142064%_))) + (_%else142040142064%_)))))) + (let* ((_%g141954141975%_ + (lambda (_%g141955141972%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141918141935%_)))) - (_%g141916141997%_ - (lambda (_%g141918141941%_) + _%g141955141972%_)))) + (_%g141953142034%_ + (lambda (_%g141955141978%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141918141941%_)) - (let ((_%e141922141943%_ + (gx#stx-pair? _%g141955141978%_)) + (let ((_%e141959141980%_ (let () (declare (not safe)) - (gx#stx-e _%g141918141941%_)))) - (let ((_%hd141923141946%_ + (gx#stx-e _%g141955141978%_)))) + (let ((_%hd141960141983%_ (let () (declare (not safe)) - (##car _%e141922141943%_))) - (_%tl141924141948%_ + (##car _%e141959141980%_))) + (_%tl141961141985%_ (let () (declare (not safe)) - (##cdr _%e141922141943%_)))) + (##cdr _%e141959141980%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141924141948%_)) - (let ((_%e141925141951%_ + (gx#stx-pair? _%tl141961141985%_)) + (let ((_%e141962141988%_ (let () (declare (not safe)) - (gx#stx-e _%tl141924141948%_)))) - (let ((_%hd141926141954%_ + (gx#stx-e _%tl141961141985%_)))) + (let ((_%hd141963141991%_ (let () (declare (not safe)) - (##car _%e141925141951%_))) - (_%tl141927141956%_ + (##car _%e141962141988%_))) + (_%tl141964141993%_ (let () (declare (not safe)) - (##cdr _%e141925141951%_)))) + (##cdr _%e141962141988%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141927141956%_)) - (let ((_%e141928141959%_ + (gx#stx-pair? _%tl141964141993%_)) + (let ((_%e141965141996%_ (let () (declare (not safe)) (gx#stx-e - _%tl141927141956%_)))) - (let ((_%hd141929141962%_ + _%tl141964141993%_)))) + (let ((_%hd141966141999%_ (let () (declare (not safe)) - (##car _%e141928141959%_))) - (_%tl141930141964%_ + (##car _%e141965141996%_))) + (_%tl141967142001%_ (let () (declare (not safe)) - (##cdr _%e141928141959%_)))) + (##cdr _%e141965141996%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141930141964%_)) - (let ((_%e141931141967%_ + _%tl141967142001%_)) + (let ((_%e141968142004%_ (let () (declare (not safe)) (gx#stx-e - _%tl141930141964%_)))) - (let ((_%hd141932141970%_ + _%tl141967142001%_)))) + (let ((_%hd141969142007%_ (let () (declare (not safe)) - (##car _%e141931141967%_))) - (_%tl141933141972%_ + (##car _%e141968142004%_))) + (_%tl141970142009%_ (let () (declare (not safe)) - (##cdr _%e141931141967%_)))) + (##cdr _%e141968142004%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141933141972%_)) - ((lambda (_%L141975%_ + _%tl141970142009%_)) + ((lambda (_%L142012%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L141976%_ - _%L141977%_) + _%L142013%_ + _%L142014%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (_%simplify141915%_ + (_%simplify141952%_ (cons 'if (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141912%_ - _%L141977%_)) + _%self141949%_ + _%L142014%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141912%_ - _%L141976%_)) + _%self141949%_ + _%L142013%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141912%_ - _%L141975%_)) + _%self141949%_ + _%L142012%_)) '()))))) (cons 'if - (cons (let ((__tmp149147 + (cons (let ((__tmp149184 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self141912%_ - _%L141977%_))))) + _%self141949%_ + _%L142014%_))))) (declare (not safe)) (__call-with-parameters - __tmp149147 + __tmp149184 gxc#current-compile-boolean-context '#t)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141912%_ - _%L141976%_)) + _%self141949%_ + _%L142013%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141912%_ - _%L141975%_)) + _%self141949%_ + _%L142012%_)) '())))))) - _%hd141932141970%_ - _%hd141929141962%_ - _%hd141926141954%_) - (_%g141917141938%_ _%g141918141941%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141917141938%_ - _%g141918141941%_)))) - (_%g141917141938%_ - _%g141918141941%_)))) - (_%g141917141938%_ _%g141918141941%_)))) - (_%g141917141938%_ _%g141918141941%_))))) - (_%g141916141997%_ _%stx141913%_))))) + _%hd141969142007%_ + _%hd141966141999%_ + _%hd141963141991%_) + (_%g141954141975%_ _%g141955141978%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141954141975%_ + _%g141955141978%_)))) + (_%g141954141975%_ + _%g141955141978%_)))) + (_%g141954141975%_ _%g141955141978%_)))) + (_%g141954141975%_ _%g141955141978%_))))) + (_%g141953142034%_ _%stx141950%_))))) (define gxc#generate-runtime-ref% - (lambda (_%self141860%_ _%stx141861%_) - (let* ((_%g141863141876%_ - (lambda (_%g141864141873%_) + (lambda (_%self141897%_ _%stx141898%_) + (let* ((_%g141900141913%_ + (lambda (_%g141901141910%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141864141873%_)))) - (_%g141862141909%_ - (lambda (_%g141864141879%_) + _%g141901141910%_)))) + (_%g141899141946%_ + (lambda (_%g141901141916%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141864141879%_)) - (let ((_%e141866141881%_ + (gx#stx-pair? _%g141901141916%_)) + (let ((_%e141903141918%_ (let () (declare (not safe)) - (gx#stx-e _%g141864141879%_)))) - (let ((_%hd141867141884%_ + (gx#stx-e _%g141901141916%_)))) + (let ((_%hd141904141921%_ (let () (declare (not safe)) - (##car _%e141866141881%_))) - (_%tl141868141886%_ + (##car _%e141903141918%_))) + (_%tl141905141923%_ (let () (declare (not safe)) - (##cdr _%e141866141881%_)))) + (##cdr _%e141903141918%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141868141886%_)) - (let ((_%e141869141889%_ + (gx#stx-pair? _%tl141905141923%_)) + (let ((_%e141906141926%_ (let () (declare (not safe)) - (gx#stx-e _%tl141868141886%_)))) - (let ((_%hd141870141892%_ + (gx#stx-e _%tl141905141923%_)))) + (let ((_%hd141907141929%_ (let () (declare (not safe)) - (##car _%e141869141889%_))) - (_%tl141871141894%_ + (##car _%e141906141926%_))) + (_%tl141908141931%_ (let () (declare (not safe)) - (##cdr _%e141869141889%_)))) + (##cdr _%e141906141926%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141871141894%_)) - ((lambda (_%L141897%_) + (gx#stx-null? _%tl141908141931%_)) + ((lambda (_%L141934%_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L141897%_))) - _%hd141870141892%_) - (_%g141863141876%_ _%g141864141879%_)))) - (_%g141863141876%_ _%g141864141879%_)))) - (_%g141863141876%_ _%g141864141879%_))))) - (_%g141862141909%_ _%stx141861%_)))) + _%L141934%_))) + _%hd141907141929%_) + (_%g141900141913%_ _%g141901141916%_)))) + (_%g141900141913%_ _%g141901141916%_)))) + (_%g141900141913%_ _%g141901141916%_))))) + (_%g141899141946%_ _%stx141898%_)))) (define gxc#generate-runtime-setq% - (lambda (_%self141792%_ _%stx141793%_) - (let* ((_%g141795141812%_ - (lambda (_%g141796141809%_) + (lambda (_%self141829%_ _%stx141830%_) + (let* ((_%g141832141849%_ + (lambda (_%g141833141846%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141796141809%_)))) - (_%g141794141857%_ - (lambda (_%g141796141815%_) + _%g141833141846%_)))) + (_%g141831141894%_ + (lambda (_%g141833141852%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141796141815%_)) - (let ((_%e141799141817%_ + (gx#stx-pair? _%g141833141852%_)) + (let ((_%e141836141854%_ (let () (declare (not safe)) - (gx#stx-e _%g141796141815%_)))) - (let ((_%hd141800141820%_ + (gx#stx-e _%g141833141852%_)))) + (let ((_%hd141837141857%_ (let () (declare (not safe)) - (##car _%e141799141817%_))) - (_%tl141801141822%_ + (##car _%e141836141854%_))) + (_%tl141838141859%_ (let () (declare (not safe)) - (##cdr _%e141799141817%_)))) + (##cdr _%e141836141854%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141801141822%_)) - (let ((_%e141802141825%_ + (gx#stx-pair? _%tl141838141859%_)) + (let ((_%e141839141862%_ (let () (declare (not safe)) - (gx#stx-e _%tl141801141822%_)))) - (let ((_%hd141803141828%_ + (gx#stx-e _%tl141838141859%_)))) + (let ((_%hd141840141865%_ (let () (declare (not safe)) - (##car _%e141802141825%_))) - (_%tl141804141830%_ + (##car _%e141839141862%_))) + (_%tl141841141867%_ (let () (declare (not safe)) - (##cdr _%e141802141825%_)))) + (##cdr _%e141839141862%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141804141830%_)) - (let ((_%e141805141833%_ + (gx#stx-pair? _%tl141841141867%_)) + (let ((_%e141842141870%_ (let () (declare (not safe)) - (gx#stx-e _%tl141804141830%_)))) - (let ((_%hd141806141836%_ + (gx#stx-e _%tl141841141867%_)))) + (let ((_%hd141843141873%_ (let () (declare (not safe)) - (##car _%e141805141833%_))) - (_%tl141807141838%_ + (##car _%e141842141870%_))) + (_%tl141844141875%_ (let () (declare (not safe)) - (##cdr _%e141805141833%_)))) + (##cdr _%e141842141870%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141807141838%_)) - ((lambda (_%L141841%_ - _%L141842%_) + _%tl141844141875%_)) + ((lambda (_%L141878%_ + _%L141879%_) (cons 'set! (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#generate-runtime-binding-id _%L141842%_)) + (gxc#generate-runtime-binding-id _%L141879%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141792%_ _%L141841%_)) + (gxc#compile-e__1 _%self141829%_ _%L141878%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141806141836%_ - _%hd141803141828%_) - (_%g141795141812%_ - _%g141796141815%_)))) - (_%g141795141812%_ _%g141796141815%_)))) - (_%g141795141812%_ _%g141796141815%_)))) - (_%g141795141812%_ _%g141796141815%_))))) - (_%g141794141857%_ _%stx141793%_)))) + _%hd141843141873%_ + _%hd141840141865%_) + (_%g141832141849%_ + _%g141833141852%_)))) + (_%g141832141849%_ _%g141833141852%_)))) + (_%g141832141849%_ _%g141833141852%_)))) + (_%g141832141849%_ _%g141833141852%_))))) + (_%g141831141894%_ _%stx141830%_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_%self141603%_ _%stx141604%_) - (let* ((_%g141606141623%_ - (lambda (_%g141607141620%_) + (lambda (_%self141640%_ _%stx141641%_) + (let* ((_%g141643141660%_ + (lambda (_%g141644141657%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141607141620%_)))) - (_%g141605141789%_ - (lambda (_%g141607141626%_) + _%g141644141657%_)))) + (_%g141642141826%_ + (lambda (_%g141644141663%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141607141626%_)) - (let ((_%e141610141628%_ + (gx#stx-pair? _%g141644141663%_)) + (let ((_%e141647141665%_ (let () (declare (not safe)) - (gx#stx-e _%g141607141626%_)))) - (let ((_%hd141611141631%_ + (gx#stx-e _%g141644141663%_)))) + (let ((_%hd141648141668%_ (let () (declare (not safe)) - (##car _%e141610141628%_))) - (_%tl141612141633%_ + (##car _%e141647141665%_))) + (_%tl141649141670%_ (let () (declare (not safe)) - (##cdr _%e141610141628%_)))) + (##cdr _%e141647141665%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141612141633%_)) - (let ((_%e141613141636%_ + (gx#stx-pair? _%tl141649141670%_)) + (let ((_%e141650141673%_ (let () (declare (not safe)) - (gx#stx-e _%tl141612141633%_)))) - (let ((_%hd141614141639%_ + (gx#stx-e _%tl141649141670%_)))) + (let ((_%hd141651141676%_ (let () (declare (not safe)) - (##car _%e141613141636%_))) - (_%tl141615141641%_ + (##car _%e141650141673%_))) + (_%tl141652141678%_ (let () (declare (not safe)) - (##cdr _%e141613141636%_)))) + (##cdr _%e141650141673%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141615141641%_)) - (let ((_%e141616141644%_ + (gx#stx-pair? _%tl141652141678%_)) + (let ((_%e141653141681%_ (let () (declare (not safe)) - (gx#stx-e _%tl141615141641%_)))) - (let ((_%hd141617141647%_ + (gx#stx-e _%tl141652141678%_)))) + (let ((_%hd141654141684%_ (let () (declare (not safe)) - (##car _%e141616141644%_))) - (_%tl141618141649%_ + (##car _%e141653141681%_))) + (_%tl141655141686%_ (let () (declare (not safe)) - (##cdr _%e141616141644%_)))) + (##cdr _%e141653141681%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141618141649%_)) - ((lambda (_%L141652%_ - _%L141653%_) + _%tl141655141686%_)) + ((lambda (_%L141689%_ + _%L141690%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141603%_ _%L141652%_)) + (gxc#compile-e__1 _%self141640%_ _%L141689%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141603%_ _%L141653%_)) + (gxc#compile-e__1 _%self141640%_ _%L141690%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp141668%_ ((_%rest141671%_ + (let _%lp141705%_ ((_%rest141708%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L141653%_ (cons _%L141652%_ '()))) - (_%bind141673%_ '()) - (_%args141674%_ '())) - (let* ((_%rest141675141683%_ _%rest141671%_) - (_%else141677141691%_ + (cons _%L141690%_ (cons _%L141689%_ '()))) + (_%bind141710%_ '()) + (_%args141711%_ '())) + (let* ((_%rest141712141720%_ _%rest141708%_) + (_%else141714141728%_ (lambda () (cons 'let - (cons _%bind141673%_ + (cons _%bind141710%_ (cons '(declare (not safe)) (cons (cons '##structure-instance-of? - _%args141674%_) + _%args141711%_) '())))))) - (_%K141679141777%_ - (lambda (_%rest141694%_ _%e141695%_) - (let* ((_%__stx148695148696%_ _%e141695%_) - (_%g141700141718%_ + (_%K141716141814%_ + (lambda (_%rest141731%_ _%e141732%_) + (let* ((_%__stx148732148733%_ _%e141732%_) + (_%g141737141755%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148695148696%_))))) - (let ((_%__kont148697148698%_ + _%__stx148732148733%_))))) + (let ((_%__kont148734148735%_ (lambda () - (_%lp141668%_ - _%rest141694%_ - _%bind141673%_ + (_%lp141705%_ + _%rest141731%_ + _%bind141710%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141695%_)) - _%args141674%_)))) - (_%__kont148699148700%_ + (gxc#compile-e__0 _%e141732%_)) + _%args141711%_)))) + (_%__kont148736148737%_ (lambda () - (_%lp141668%_ - _%rest141694%_ - _%bind141673%_ + (_%lp141705%_ + _%rest141731%_ + _%bind141710%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141695%_)) - _%args141674%_)))) - (_%__kont148701148702%_ + (gxc#compile-e__0 _%e141732%_)) + _%args141711%_)))) + (_%__kont148738148739%_ (lambda () - (let ((_%tmp141725%_ - (let ((__tmp149148 + (let ((_%tmp141762%_ + (let ((__tmp149185 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149148)))) - (_%lp141668%_ - _%rest141694%_ - (cons (cons _%tmp141725%_ + (make-symbol__0 __tmp149185)))) + (_%lp141705%_ + _%rest141731%_ + (cons (cons _%tmp141762%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141695%_)) + _%e141732%_)) '())) - _%bind141673%_) - (cons _%tmp141725%_ _%args141674%_)))))) + _%bind141710%_) + (cons _%tmp141762%_ _%args141711%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148695148696%_)) - (let ((_%e141702141756%_ + (gx#stx-pair? _%__stx148732148733%_)) + (let ((_%e141739141793%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148695148696%_)))) - (let ((_%tl141704141761%_ + (gx#stx-e _%__stx148732148733%_)))) + (let ((_%tl141741141798%_ (let () (declare (not safe)) - (##cdr _%e141702141756%_))) - (_%hd141703141759%_ + (##cdr _%e141739141793%_))) + (_%hd141740141796%_ (let () (declare (not safe)) - (##car _%e141702141756%_)))) + (##car _%e141739141793%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141703141759%_)) + (gx#identifier? _%hd141740141796%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141703141759%_)) + _%hd141740141796%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141704141761%_)) - (let ((_%e141705141764%_ + _%tl141741141798%_)) + (let ((_%e141742141801%_ (let () (declare (not safe)) (gx#stx-e - _%tl141704141761%_)))) - (let ((_%tl141707141769%_ + _%tl141741141798%_)))) + (let ((_%tl141744141806%_ (let () (declare (not safe)) - (##cdr _%e141705141764%_))) - (_%hd141706141767%_ + (##cdr _%e141742141801%_))) + (_%hd141743141804%_ (let () (declare (not safe)) - (##car _%e141705141764%_)))) + (##car _%e141742141801%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141707141769%_)) - (_%__kont148697148698%_) - (_%__kont148701148702%_)))) - (_%__kont148701148702%_)) + _%tl141744141806%_)) + (_%__kont148734148735%_) + (_%__kont148738148739%_)))) + (_%__kont148738148739%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141703141759%_)) + _%hd141740141796%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141704141761%_)) - (let ((_%e141711141741%_ + _%tl141741141798%_)) + (let ((_%e141748141778%_ (let () (declare (not safe)) (gx#stx-e - _%tl141704141761%_)))) - (let ((_%tl141713141746%_ + _%tl141741141798%_)))) + (let ((_%tl141750141783%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141711141741%_))) - (_%hd141712141744%_ - (let () (declare (not safe)) (##car _%e141711141741%_)))) + (##cdr _%e141748141778%_))) + (_%hd141749141781%_ + (let () (declare (not safe)) (##car _%e141748141778%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141713141746%_)) - (_%__kont148699148700%_) - (_%__kont148701148702%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148701148702%_)) - (_%__kont148701148702%_))) - (_%__kont148701148702%_)))) - (_%__kont148701148702%_))))))) - (if (pair? _%rest141675141683%_) - (let ((_%hd141680141780%_ + (gx#stx-null? _%tl141750141783%_)) + (_%__kont148736148737%_) + (_%__kont148738148739%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148738148739%_)) + (_%__kont148738148739%_))) + (_%__kont148738148739%_)))) + (_%__kont148738148739%_))))))) + (if (pair? _%rest141712141720%_) + (let ((_%hd141717141817%_ (let () (declare (not safe)) - (##car _%rest141675141683%_))) - (_%tl141681141782%_ + (##car _%rest141712141720%_))) + (_%tl141718141819%_ (let () (declare (not safe)) - (##cdr _%rest141675141683%_)))) - (let* ((_%e141785%_ _%hd141680141780%_) - (_%rest141787%_ _%tl141681141782%_)) - (_%K141679141777%_ _%rest141787%_ _%e141785%_))) - (_%else141677141691%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141617141647%_ - _%hd141614141639%_) - (_%g141606141623%_ - _%g141607141626%_)))) - (_%g141606141623%_ _%g141607141626%_)))) - (_%g141606141623%_ _%g141607141626%_)))) - (_%g141606141623%_ _%g141607141626%_))))) - (_%g141605141789%_ _%stx141604%_)))) + (##cdr _%rest141712141720%_)))) + (let* ((_%e141822%_ _%hd141717141817%_) + (_%rest141824%_ _%tl141718141819%_)) + (_%K141716141814%_ _%rest141824%_ _%e141822%_))) + (_%else141714141728%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd141654141684%_ + _%hd141651141676%_) + (_%g141643141660%_ + _%g141644141663%_)))) + (_%g141643141660%_ _%g141644141663%_)))) + (_%g141643141660%_ _%g141644141663%_)))) + (_%g141643141660%_ _%g141644141663%_))))) + (_%g141642141826%_ _%stx141641%_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_%self141414%_ _%stx141415%_) - (let* ((_%g141417141434%_ - (lambda (_%g141418141431%_) + (lambda (_%self141451%_ _%stx141452%_) + (let* ((_%g141454141471%_ + (lambda (_%g141455141468%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141418141431%_)))) - (_%g141416141600%_ - (lambda (_%g141418141437%_) + _%g141455141468%_)))) + (_%g141453141637%_ + (lambda (_%g141455141474%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141418141437%_)) - (let ((_%e141421141439%_ + (gx#stx-pair? _%g141455141474%_)) + (let ((_%e141458141476%_ (let () (declare (not safe)) - (gx#stx-e _%g141418141437%_)))) - (let ((_%hd141422141442%_ + (gx#stx-e _%g141455141474%_)))) + (let ((_%hd141459141479%_ (let () (declare (not safe)) - (##car _%e141421141439%_))) - (_%tl141423141444%_ + (##car _%e141458141476%_))) + (_%tl141460141481%_ (let () (declare (not safe)) - (##cdr _%e141421141439%_)))) + (##cdr _%e141458141476%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141423141444%_)) - (let ((_%e141424141447%_ + (gx#stx-pair? _%tl141460141481%_)) + (let ((_%e141461141484%_ (let () (declare (not safe)) - (gx#stx-e _%tl141423141444%_)))) - (let ((_%hd141425141450%_ + (gx#stx-e _%tl141460141481%_)))) + (let ((_%hd141462141487%_ (let () (declare (not safe)) - (##car _%e141424141447%_))) - (_%tl141426141452%_ + (##car _%e141461141484%_))) + (_%tl141463141489%_ (let () (declare (not safe)) - (##cdr _%e141424141447%_)))) + (##cdr _%e141461141484%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141426141452%_)) - (let ((_%e141427141455%_ + (gx#stx-pair? _%tl141463141489%_)) + (let ((_%e141464141492%_ (let () (declare (not safe)) - (gx#stx-e _%tl141426141452%_)))) - (let ((_%hd141428141458%_ + (gx#stx-e _%tl141463141489%_)))) + (let ((_%hd141465141495%_ (let () (declare (not safe)) - (##car _%e141427141455%_))) - (_%tl141429141460%_ + (##car _%e141464141492%_))) + (_%tl141466141497%_ (let () (declare (not safe)) - (##cdr _%e141427141455%_)))) + (##cdr _%e141464141492%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141429141460%_)) - ((lambda (_%L141463%_ - _%L141464%_) + _%tl141466141497%_)) + ((lambda (_%L141500%_ + _%L141501%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-direct-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141414%_ _%L141463%_)) + (gxc#compile-e__1 _%self141451%_ _%L141500%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141414%_ _%L141464%_)) + (gxc#compile-e__1 _%self141451%_ _%L141501%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp141479%_ ((_%rest141482%_ + (let _%lp141516%_ ((_%rest141519%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L141464%_ (cons _%L141463%_ '()))) - (_%bind141484%_ '()) - (_%args141485%_ '())) - (let* ((_%rest141486141494%_ _%rest141482%_) - (_%else141488141502%_ + (cons _%L141501%_ (cons _%L141500%_ '()))) + (_%bind141521%_ '()) + (_%args141522%_ '())) + (let* ((_%rest141523141531%_ _%rest141519%_) + (_%else141525141539%_ (lambda () (cons 'let - (cons _%bind141484%_ + (cons _%bind141521%_ (cons '(declare (not safe)) (cons (cons '##structure-direct-instance-of? - _%args141485%_) + _%args141522%_) '())))))) - (_%K141490141588%_ - (lambda (_%rest141505%_ _%e141506%_) - (let* ((_%__stx148741148742%_ _%e141506%_) - (_%g141511141529%_ + (_%K141527141625%_ + (lambda (_%rest141542%_ _%e141543%_) + (let* ((_%__stx148778148779%_ _%e141543%_) + (_%g141548141566%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148741148742%_))))) - (let ((_%__kont148743148744%_ + _%__stx148778148779%_))))) + (let ((_%__kont148780148781%_ (lambda () - (_%lp141479%_ - _%rest141505%_ - _%bind141484%_ + (_%lp141516%_ + _%rest141542%_ + _%bind141521%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141506%_)) - _%args141485%_)))) - (_%__kont148745148746%_ + (gxc#compile-e__0 _%e141543%_)) + _%args141522%_)))) + (_%__kont148782148783%_ (lambda () - (_%lp141479%_ - _%rest141505%_ - _%bind141484%_ + (_%lp141516%_ + _%rest141542%_ + _%bind141521%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141506%_)) - _%args141485%_)))) - (_%__kont148747148748%_ + (gxc#compile-e__0 _%e141543%_)) + _%args141522%_)))) + (_%__kont148784148785%_ (lambda () - (let ((_%tmp141536%_ - (let ((__tmp149149 + (let ((_%tmp141573%_ + (let ((__tmp149186 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149149)))) - (_%lp141479%_ - _%rest141505%_ - (cons (cons _%tmp141536%_ + (make-symbol__0 __tmp149186)))) + (_%lp141516%_ + _%rest141542%_ + (cons (cons _%tmp141573%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141506%_)) + _%e141543%_)) '())) - _%bind141484%_) - (cons _%tmp141536%_ _%args141485%_)))))) + _%bind141521%_) + (cons _%tmp141573%_ _%args141522%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148741148742%_)) - (let ((_%e141513141567%_ + (gx#stx-pair? _%__stx148778148779%_)) + (let ((_%e141550141604%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148741148742%_)))) - (let ((_%tl141515141572%_ + (gx#stx-e _%__stx148778148779%_)))) + (let ((_%tl141552141609%_ (let () (declare (not safe)) - (##cdr _%e141513141567%_))) - (_%hd141514141570%_ + (##cdr _%e141550141604%_))) + (_%hd141551141607%_ (let () (declare (not safe)) - (##car _%e141513141567%_)))) + (##car _%e141550141604%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141514141570%_)) + (gx#identifier? _%hd141551141607%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141514141570%_)) + _%hd141551141607%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141515141572%_)) - (let ((_%e141516141575%_ + _%tl141552141609%_)) + (let ((_%e141553141612%_ (let () (declare (not safe)) (gx#stx-e - _%tl141515141572%_)))) - (let ((_%tl141518141580%_ + _%tl141552141609%_)))) + (let ((_%tl141555141617%_ (let () (declare (not safe)) - (##cdr _%e141516141575%_))) - (_%hd141517141578%_ + (##cdr _%e141553141612%_))) + (_%hd141554141615%_ (let () (declare (not safe)) - (##car _%e141516141575%_)))) + (##car _%e141553141612%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141518141580%_)) - (_%__kont148743148744%_) - (_%__kont148747148748%_)))) - (_%__kont148747148748%_)) + _%tl141555141617%_)) + (_%__kont148780148781%_) + (_%__kont148784148785%_)))) + (_%__kont148784148785%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141514141570%_)) + _%hd141551141607%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141515141572%_)) - (let ((_%e141522141552%_ + _%tl141552141609%_)) + (let ((_%e141559141589%_ (let () (declare (not safe)) (gx#stx-e - _%tl141515141572%_)))) - (let ((_%tl141524141557%_ + _%tl141552141609%_)))) + (let ((_%tl141561141594%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141522141552%_))) - (_%hd141523141555%_ - (let () (declare (not safe)) (##car _%e141522141552%_)))) + (##cdr _%e141559141589%_))) + (_%hd141560141592%_ + (let () (declare (not safe)) (##car _%e141559141589%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141524141557%_)) - (_%__kont148745148746%_) - (_%__kont148747148748%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148747148748%_)) - (_%__kont148747148748%_))) - (_%__kont148747148748%_)))) - (_%__kont148747148748%_))))))) - (if (pair? _%rest141486141494%_) - (let ((_%hd141491141591%_ + (gx#stx-null? _%tl141561141594%_)) + (_%__kont148782148783%_) + (_%__kont148784148785%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148784148785%_)) + (_%__kont148784148785%_))) + (_%__kont148784148785%_)))) + (_%__kont148784148785%_))))))) + (if (pair? _%rest141523141531%_) + (let ((_%hd141528141628%_ (let () (declare (not safe)) - (##car _%rest141486141494%_))) - (_%tl141492141593%_ + (##car _%rest141523141531%_))) + (_%tl141529141630%_ (let () (declare (not safe)) - (##cdr _%rest141486141494%_)))) - (let* ((_%e141596%_ _%hd141491141591%_) - (_%rest141598%_ _%tl141492141593%_)) - (_%K141490141588%_ _%rest141598%_ _%e141596%_))) - (_%else141488141502%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141428141458%_ - _%hd141425141450%_) - (_%g141417141434%_ - _%g141418141437%_)))) - (_%g141417141434%_ _%g141418141437%_)))) - (_%g141417141434%_ _%g141418141437%_)))) - (_%g141417141434%_ _%g141418141437%_))))) - (_%g141416141600%_ _%stx141415%_)))) + (##cdr _%rest141523141531%_)))) + (let* ((_%e141633%_ _%hd141528141628%_) + (_%rest141635%_ _%tl141529141630%_)) + (_%K141527141625%_ _%rest141635%_ _%e141633%_))) + (_%else141525141539%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd141465141495%_ + _%hd141462141487%_) + (_%g141454141471%_ + _%g141455141474%_)))) + (_%g141454141471%_ _%g141455141474%_)))) + (_%g141454141471%_ _%g141455141474%_)))) + (_%g141454141471%_ _%g141455141474%_))))) + (_%g141453141637%_ _%stx141452%_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_%self141330%_ _%stx141331%_) - (let* ((_%g141333141354%_ - (lambda (_%g141334141351%_) + (lambda (_%self141367%_ _%stx141368%_) + (let* ((_%g141370141391%_ + (lambda (_%g141371141388%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141334141351%_)))) - (_%g141332141411%_ - (lambda (_%g141334141357%_) + _%g141371141388%_)))) + (_%g141369141448%_ + (lambda (_%g141371141394%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141334141357%_)) - (let ((_%e141338141359%_ + (gx#stx-pair? _%g141371141394%_)) + (let ((_%e141375141396%_ (let () (declare (not safe)) - (gx#stx-e _%g141334141357%_)))) - (let ((_%hd141339141362%_ + (gx#stx-e _%g141371141394%_)))) + (let ((_%hd141376141399%_ (let () (declare (not safe)) - (##car _%e141338141359%_))) - (_%tl141340141364%_ + (##car _%e141375141396%_))) + (_%tl141377141401%_ (let () (declare (not safe)) - (##cdr _%e141338141359%_)))) + (##cdr _%e141375141396%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141340141364%_)) - (let ((_%e141341141367%_ + (gx#stx-pair? _%tl141377141401%_)) + (let ((_%e141378141404%_ (let () (declare (not safe)) - (gx#stx-e _%tl141340141364%_)))) - (let ((_%hd141342141370%_ + (gx#stx-e _%tl141377141401%_)))) + (let ((_%hd141379141407%_ (let () (declare (not safe)) - (##car _%e141341141367%_))) - (_%tl141343141372%_ + (##car _%e141378141404%_))) + (_%tl141380141409%_ (let () (declare (not safe)) - (##cdr _%e141341141367%_)))) + (##cdr _%e141378141404%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141343141372%_)) - (let ((_%e141344141375%_ + (gx#stx-pair? _%tl141380141409%_)) + (let ((_%e141381141412%_ (let () (declare (not safe)) - (gx#stx-e _%tl141343141372%_)))) - (let ((_%hd141345141378%_ + (gx#stx-e _%tl141380141409%_)))) + (let ((_%hd141382141415%_ (let () (declare (not safe)) - (##car _%e141344141375%_))) - (_%tl141346141380%_ + (##car _%e141381141412%_))) + (_%tl141383141417%_ (let () (declare (not safe)) - (##cdr _%e141344141375%_)))) + (##cdr _%e141381141412%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141346141380%_)) - (let ((_%e141347141383%_ + _%tl141383141417%_)) + (let ((_%e141384141420%_ (let () (declare (not safe)) (gx#stx-e - _%tl141346141380%_)))) - (let ((_%hd141348141386%_ + _%tl141383141417%_)))) + (let ((_%hd141385141423%_ (let () (declare (not safe)) - (##car _%e141347141383%_))) - (_%tl141349141388%_ + (##car _%e141384141420%_))) + (_%tl141386141425%_ (let () (declare (not safe)) - (##cdr _%e141347141383%_)))) + (##cdr _%e141384141420%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141349141388%_)) - ((lambda (_%L141391%_ - _%L141392%_ - _%L141393%_) + _%tl141386141425%_)) + ((lambda (_%L141428%_ + _%L141429%_ + _%L141430%_) (cons '##structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141330%_ _%L141391%_)) + (gxc#compile-e__1 _%self141367%_ _%L141428%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141330%_ - _%L141392%_)) + _%self141367%_ + _%L141429%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141330%_ - _%L141393%_)) + _%self141367%_ + _%L141430%_)) (cons ''#f '())))))) - _%hd141348141386%_ - _%hd141345141378%_ - _%hd141342141370%_) - (_%g141333141354%_ _%g141334141357%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141333141354%_ - _%g141334141357%_)))) - (_%g141333141354%_ _%g141334141357%_)))) - (_%g141333141354%_ _%g141334141357%_)))) - (_%g141333141354%_ _%g141334141357%_))))) - (_%g141332141411%_ _%stx141331%_)))) + _%hd141385141423%_ + _%hd141382141415%_ + _%hd141379141407%_) + (_%g141370141391%_ _%g141371141394%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141370141391%_ + _%g141371141394%_)))) + (_%g141370141391%_ _%g141371141394%_)))) + (_%g141370141391%_ _%g141371141394%_)))) + (_%g141370141391%_ _%g141371141394%_))))) + (_%g141369141448%_ _%stx141368%_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_%self141230%_ _%stx141231%_) - (let* ((_%g141233141258%_ - (lambda (_%g141234141255%_) + (lambda (_%self141267%_ _%stx141268%_) + (let* ((_%g141270141295%_ + (lambda (_%g141271141292%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141234141255%_)))) - (_%g141232141327%_ - (lambda (_%g141234141261%_) + _%g141271141292%_)))) + (_%g141269141364%_ + (lambda (_%g141271141298%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141234141261%_)) - (let ((_%e141239141263%_ + (gx#stx-pair? _%g141271141298%_)) + (let ((_%e141276141300%_ (let () (declare (not safe)) - (gx#stx-e _%g141234141261%_)))) - (let ((_%hd141240141266%_ + (gx#stx-e _%g141271141298%_)))) + (let ((_%hd141277141303%_ (let () (declare (not safe)) - (##car _%e141239141263%_))) - (_%tl141241141268%_ + (##car _%e141276141300%_))) + (_%tl141278141305%_ (let () (declare (not safe)) - (##cdr _%e141239141263%_)))) + (##cdr _%e141276141300%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141241141268%_)) - (let ((_%e141242141271%_ + (gx#stx-pair? _%tl141278141305%_)) + (let ((_%e141279141308%_ (let () (declare (not safe)) - (gx#stx-e _%tl141241141268%_)))) - (let ((_%hd141243141274%_ + (gx#stx-e _%tl141278141305%_)))) + (let ((_%hd141280141311%_ (let () (declare (not safe)) - (##car _%e141242141271%_))) - (_%tl141244141276%_ + (##car _%e141279141308%_))) + (_%tl141281141313%_ (let () (declare (not safe)) - (##cdr _%e141242141271%_)))) + (##cdr _%e141279141308%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141244141276%_)) - (let ((_%e141245141279%_ + (gx#stx-pair? _%tl141281141313%_)) + (let ((_%e141282141316%_ (let () (declare (not safe)) - (gx#stx-e _%tl141244141276%_)))) - (let ((_%hd141246141282%_ + (gx#stx-e _%tl141281141313%_)))) + (let ((_%hd141283141319%_ (let () (declare (not safe)) - (##car _%e141245141279%_))) - (_%tl141247141284%_ + (##car _%e141282141316%_))) + (_%tl141284141321%_ (let () (declare (not safe)) - (##cdr _%e141245141279%_)))) + (##cdr _%e141282141316%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141247141284%_)) - (let ((_%e141248141287%_ + _%tl141284141321%_)) + (let ((_%e141285141324%_ (let () (declare (not safe)) (gx#stx-e - _%tl141247141284%_)))) - (let ((_%hd141249141290%_ + _%tl141284141321%_)))) + (let ((_%hd141286141327%_ (let () (declare (not safe)) - (##car _%e141248141287%_))) - (_%tl141250141292%_ + (##car _%e141285141324%_))) + (_%tl141287141329%_ (let () (declare (not safe)) - (##cdr _%e141248141287%_)))) + (##cdr _%e141285141324%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141250141292%_)) - (let ((_%e141251141295%_ + _%tl141287141329%_)) + (let ((_%e141288141332%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl141250141292%_)))) - (let ((_%hd141252141298%_ - (let () (declare (not safe)) (##car _%e141251141295%_))) - (_%tl141253141300%_ + (gx#stx-e _%tl141287141329%_)))) + (let ((_%hd141289141335%_ + (let () (declare (not safe)) (##car _%e141288141332%_))) + (_%tl141290141337%_ (let () (declare (not safe)) - (##cdr _%e141251141295%_)))) + (##cdr _%e141288141332%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141253141300%_)) - ((lambda (_%L141303%_ - _%L141304%_ - _%L141305%_ - _%L141306%_) + (gx#stx-null? _%tl141290141337%_)) + ((lambda (_%L141340%_ + _%L141341%_ + _%L141342%_ + _%L141343%_) (cons '##structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141230%_ - _%L141304%_)) + _%self141267%_ + _%L141341%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141230%_ - _%L141303%_)) + _%self141267%_ + _%L141340%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141230%_ - _%L141305%_)) + _%self141267%_ + _%L141342%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141230%_ - _%L141306%_)) + _%self141267%_ + _%L141343%_)) (cons ''#f '()))))))) - _%hd141252141298%_ - _%hd141249141290%_ - _%hd141246141282%_ - _%hd141243141274%_) - (_%g141233141258%_ _%g141234141261%_)))) - (_%g141233141258%_ _%g141234141261%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141233141258%_ - _%g141234141261%_)))) - (_%g141233141258%_ _%g141234141261%_)))) - (_%g141233141258%_ _%g141234141261%_)))) - (_%g141233141258%_ _%g141234141261%_))))) - (_%g141232141327%_ _%stx141231%_)))) + _%hd141289141335%_ + _%hd141286141327%_ + _%hd141283141319%_ + _%hd141280141311%_) + (_%g141270141295%_ _%g141271141298%_)))) + (_%g141270141295%_ _%g141271141298%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141270141295%_ + _%g141271141298%_)))) + (_%g141270141295%_ _%g141271141298%_)))) + (_%g141270141295%_ _%g141271141298%_)))) + (_%g141270141295%_ _%g141271141298%_))))) + (_%g141269141364%_ _%stx141268%_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_%self141146%_ _%stx141147%_) - (let* ((_%g141149141170%_ - (lambda (_%g141150141167%_) + (lambda (_%self141183%_ _%stx141184%_) + (let* ((_%g141186141207%_ + (lambda (_%g141187141204%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141150141167%_)))) - (_%g141148141227%_ - (lambda (_%g141150141173%_) + _%g141187141204%_)))) + (_%g141185141264%_ + (lambda (_%g141187141210%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141150141173%_)) - (let ((_%e141154141175%_ + (gx#stx-pair? _%g141187141210%_)) + (let ((_%e141191141212%_ (let () (declare (not safe)) - (gx#stx-e _%g141150141173%_)))) - (let ((_%hd141155141178%_ + (gx#stx-e _%g141187141210%_)))) + (let ((_%hd141192141215%_ (let () (declare (not safe)) - (##car _%e141154141175%_))) - (_%tl141156141180%_ + (##car _%e141191141212%_))) + (_%tl141193141217%_ (let () (declare (not safe)) - (##cdr _%e141154141175%_)))) + (##cdr _%e141191141212%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141156141180%_)) - (let ((_%e141157141183%_ + (gx#stx-pair? _%tl141193141217%_)) + (let ((_%e141194141220%_ (let () (declare (not safe)) - (gx#stx-e _%tl141156141180%_)))) - (let ((_%hd141158141186%_ + (gx#stx-e _%tl141193141217%_)))) + (let ((_%hd141195141223%_ (let () (declare (not safe)) - (##car _%e141157141183%_))) - (_%tl141159141188%_ + (##car _%e141194141220%_))) + (_%tl141196141225%_ (let () (declare (not safe)) - (##cdr _%e141157141183%_)))) + (##cdr _%e141194141220%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141159141188%_)) - (let ((_%e141160141191%_ + (gx#stx-pair? _%tl141196141225%_)) + (let ((_%e141197141228%_ (let () (declare (not safe)) - (gx#stx-e _%tl141159141188%_)))) - (let ((_%hd141161141194%_ + (gx#stx-e _%tl141196141225%_)))) + (let ((_%hd141198141231%_ (let () (declare (not safe)) - (##car _%e141160141191%_))) - (_%tl141162141196%_ + (##car _%e141197141228%_))) + (_%tl141199141233%_ (let () (declare (not safe)) - (##cdr _%e141160141191%_)))) + (##cdr _%e141197141228%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141162141196%_)) - (let ((_%e141163141199%_ + _%tl141199141233%_)) + (let ((_%e141200141236%_ (let () (declare (not safe)) (gx#stx-e - _%tl141162141196%_)))) - (let ((_%hd141164141202%_ + _%tl141199141233%_)))) + (let ((_%hd141201141239%_ (let () (declare (not safe)) - (##car _%e141163141199%_))) - (_%tl141165141204%_ + (##car _%e141200141236%_))) + (_%tl141202141241%_ (let () (declare (not safe)) - (##cdr _%e141163141199%_)))) + (##cdr _%e141200141236%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141165141204%_)) - ((lambda (_%L141207%_ - _%L141208%_ - _%L141209%_) + _%tl141202141241%_)) + ((lambda (_%L141244%_ + _%L141245%_ + _%L141246%_) (cons '##direct-structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141146%_ _%L141207%_)) + (gxc#compile-e__1 _%self141183%_ _%L141244%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141146%_ - _%L141208%_)) + _%self141183%_ + _%L141245%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141146%_ - _%L141209%_)) + _%self141183%_ + _%L141246%_)) (cons ''#f '())))))) - _%hd141164141202%_ - _%hd141161141194%_ - _%hd141158141186%_) - (_%g141149141170%_ _%g141150141173%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141149141170%_ - _%g141150141173%_)))) - (_%g141149141170%_ _%g141150141173%_)))) - (_%g141149141170%_ _%g141150141173%_)))) - (_%g141149141170%_ _%g141150141173%_))))) - (_%g141148141227%_ _%stx141147%_)))) + _%hd141201141239%_ + _%hd141198141231%_ + _%hd141195141223%_) + (_%g141186141207%_ _%g141187141210%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141186141207%_ + _%g141187141210%_)))) + (_%g141186141207%_ _%g141187141210%_)))) + (_%g141186141207%_ _%g141187141210%_)))) + (_%g141186141207%_ _%g141187141210%_))))) + (_%g141185141264%_ _%stx141184%_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_%self141046%_ _%stx141047%_) - (let* ((_%g141049141074%_ - (lambda (_%g141050141071%_) + (lambda (_%self141083%_ _%stx141084%_) + (let* ((_%g141086141111%_ + (lambda (_%g141087141108%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141050141071%_)))) - (_%g141048141143%_ - (lambda (_%g141050141077%_) + _%g141087141108%_)))) + (_%g141085141180%_ + (lambda (_%g141087141114%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141050141077%_)) - (let ((_%e141055141079%_ + (gx#stx-pair? _%g141087141114%_)) + (let ((_%e141092141116%_ (let () (declare (not safe)) - (gx#stx-e _%g141050141077%_)))) - (let ((_%hd141056141082%_ + (gx#stx-e _%g141087141114%_)))) + (let ((_%hd141093141119%_ (let () (declare (not safe)) - (##car _%e141055141079%_))) - (_%tl141057141084%_ + (##car _%e141092141116%_))) + (_%tl141094141121%_ (let () (declare (not safe)) - (##cdr _%e141055141079%_)))) + (##cdr _%e141092141116%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141057141084%_)) - (let ((_%e141058141087%_ + (gx#stx-pair? _%tl141094141121%_)) + (let ((_%e141095141124%_ (let () (declare (not safe)) - (gx#stx-e _%tl141057141084%_)))) - (let ((_%hd141059141090%_ + (gx#stx-e _%tl141094141121%_)))) + (let ((_%hd141096141127%_ (let () (declare (not safe)) - (##car _%e141058141087%_))) - (_%tl141060141092%_ + (##car _%e141095141124%_))) + (_%tl141097141129%_ (let () (declare (not safe)) - (##cdr _%e141058141087%_)))) + (##cdr _%e141095141124%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141060141092%_)) - (let ((_%e141061141095%_ + (gx#stx-pair? _%tl141097141129%_)) + (let ((_%e141098141132%_ (let () (declare (not safe)) - (gx#stx-e _%tl141060141092%_)))) - (let ((_%hd141062141098%_ + (gx#stx-e _%tl141097141129%_)))) + (let ((_%hd141099141135%_ (let () (declare (not safe)) - (##car _%e141061141095%_))) - (_%tl141063141100%_ + (##car _%e141098141132%_))) + (_%tl141100141137%_ (let () (declare (not safe)) - (##cdr _%e141061141095%_)))) + (##cdr _%e141098141132%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141063141100%_)) - (let ((_%e141064141103%_ + _%tl141100141137%_)) + (let ((_%e141101141140%_ (let () (declare (not safe)) (gx#stx-e - _%tl141063141100%_)))) - (let ((_%hd141065141106%_ + _%tl141100141137%_)))) + (let ((_%hd141102141143%_ (let () (declare (not safe)) - (##car _%e141064141103%_))) - (_%tl141066141108%_ + (##car _%e141101141140%_))) + (_%tl141103141145%_ (let () (declare (not safe)) - (##cdr _%e141064141103%_)))) + (##cdr _%e141101141140%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141066141108%_)) - (let ((_%e141067141111%_ + _%tl141103141145%_)) + (let ((_%e141104141148%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl141066141108%_)))) - (let ((_%hd141068141114%_ - (let () (declare (not safe)) (##car _%e141067141111%_))) - (_%tl141069141116%_ + (gx#stx-e _%tl141103141145%_)))) + (let ((_%hd141105141151%_ + (let () (declare (not safe)) (##car _%e141104141148%_))) + (_%tl141106141153%_ (let () (declare (not safe)) - (##cdr _%e141067141111%_)))) + (##cdr _%e141104141148%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141069141116%_)) - ((lambda (_%L141119%_ - _%L141120%_ - _%L141121%_ - _%L141122%_) + (gx#stx-null? _%tl141106141153%_)) + ((lambda (_%L141156%_ + _%L141157%_ + _%L141158%_ + _%L141159%_) (cons '##direct-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141046%_ - _%L141120%_)) + _%self141083%_ + _%L141157%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141046%_ - _%L141119%_)) + _%self141083%_ + _%L141156%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141046%_ - _%L141121%_)) + _%self141083%_ + _%L141158%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141046%_ - _%L141122%_)) + _%self141083%_ + _%L141159%_)) (cons ''#f '()))))))) - _%hd141068141114%_ - _%hd141065141106%_ - _%hd141062141098%_ - _%hd141059141090%_) - (_%g141049141074%_ _%g141050141077%_)))) - (_%g141049141074%_ _%g141050141077%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141049141074%_ - _%g141050141077%_)))) - (_%g141049141074%_ _%g141050141077%_)))) - (_%g141049141074%_ _%g141050141077%_)))) - (_%g141049141074%_ _%g141050141077%_))))) - (_%g141048141143%_ _%stx141047%_)))) + _%hd141105141151%_ + _%hd141102141143%_ + _%hd141099141135%_ + _%hd141096141127%_) + (_%g141086141111%_ _%g141087141114%_)))) + (_%g141086141111%_ _%g141087141114%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141086141111%_ + _%g141087141114%_)))) + (_%g141086141111%_ _%g141087141114%_)))) + (_%g141086141111%_ _%g141087141114%_)))) + (_%g141086141111%_ _%g141087141114%_))))) + (_%g141085141180%_ _%stx141084%_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_%self140841%_ _%stx140842%_) - (let* ((_%g140844140865%_ - (lambda (_%g140845140862%_) + (lambda (_%self140878%_ _%stx140879%_) + (let* ((_%g140881140902%_ + (lambda (_%g140882140899%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140845140862%_)))) - (_%g140843141043%_ - (lambda (_%g140845140868%_) + _%g140882140899%_)))) + (_%g140880141080%_ + (lambda (_%g140882140905%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140845140868%_)) - (let ((_%e140849140870%_ + (gx#stx-pair? _%g140882140905%_)) + (let ((_%e140886140907%_ (let () (declare (not safe)) - (gx#stx-e _%g140845140868%_)))) - (let ((_%hd140850140873%_ + (gx#stx-e _%g140882140905%_)))) + (let ((_%hd140887140910%_ (let () (declare (not safe)) - (##car _%e140849140870%_))) - (_%tl140851140875%_ + (##car _%e140886140907%_))) + (_%tl140888140912%_ (let () (declare (not safe)) - (##cdr _%e140849140870%_)))) + (##cdr _%e140886140907%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140851140875%_)) - (let ((_%e140852140878%_ + (gx#stx-pair? _%tl140888140912%_)) + (let ((_%e140889140915%_ (let () (declare (not safe)) - (gx#stx-e _%tl140851140875%_)))) - (let ((_%hd140853140881%_ + (gx#stx-e _%tl140888140912%_)))) + (let ((_%hd140890140918%_ (let () (declare (not safe)) - (##car _%e140852140878%_))) - (_%tl140854140883%_ + (##car _%e140889140915%_))) + (_%tl140891140920%_ (let () (declare (not safe)) - (##cdr _%e140852140878%_)))) + (##cdr _%e140889140915%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140854140883%_)) - (let ((_%e140855140886%_ + (gx#stx-pair? _%tl140891140920%_)) + (let ((_%e140892140923%_ (let () (declare (not safe)) - (gx#stx-e _%tl140854140883%_)))) - (let ((_%hd140856140889%_ + (gx#stx-e _%tl140891140920%_)))) + (let ((_%hd140893140926%_ (let () (declare (not safe)) - (##car _%e140855140886%_))) - (_%tl140857140891%_ + (##car _%e140892140923%_))) + (_%tl140894140928%_ (let () (declare (not safe)) - (##cdr _%e140855140886%_)))) + (##cdr _%e140892140923%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140857140891%_)) - (let ((_%e140858140894%_ + _%tl140894140928%_)) + (let ((_%e140895140931%_ (let () (declare (not safe)) (gx#stx-e - _%tl140857140891%_)))) - (let ((_%hd140859140897%_ + _%tl140894140928%_)))) + (let ((_%hd140896140934%_ (let () (declare (not safe)) - (##car _%e140858140894%_))) - (_%tl140860140899%_ + (##car _%e140895140931%_))) + (_%tl140897140936%_ (let () (declare (not safe)) - (##cdr _%e140858140894%_)))) + (##cdr _%e140895140931%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140860140899%_)) - ((lambda (_%L140902%_ - _%L140903%_ - _%L140904%_) + _%tl140897140936%_)) + ((lambda (_%L140939%_ + _%L140940%_ + _%L140941%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140841%_ - _%L140902%_)) + _%self140878%_ + _%L140939%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140841%_ - _%L140903%_)) + _%self140878%_ + _%L140940%_)) (cons ''#f (cons ''#f '()))))) - (let _%lp140922%_ ((_%rest140925%_ - (cons _%L140903%_ - (cons _%L140902%_ '()))) - (_%bind140927%_ '()) - (_%args140928%_ '())) - (let* ((_%rest140929140937%_ _%rest140925%_) - (_%else140931140945%_ + (let _%lp140959%_ ((_%rest140962%_ + (cons _%L140940%_ + (cons _%L140939%_ '()))) + (_%bind140964%_ '()) + (_%args140965%_ '())) + (let* ((_%rest140966140974%_ _%rest140962%_) + (_%else140968140982%_ (lambda () (cons 'let - (cons _%bind140927%_ + (cons _%bind140964%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-ref - (let ((__tmp149150 + (let ((__tmp149187 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp149150 _%args140928%_))) + (__foldr1 cons __tmp149187 _%args140965%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140933141031%_ - (lambda (_%rest140948%_ _%e140949%_) - (let* ((_%__stx148787148788%_ _%e140949%_) - (_%g140954140972%_ + (_%K140970141068%_ + (lambda (_%rest140985%_ _%e140986%_) + (let* ((_%__stx148824148825%_ _%e140986%_) + (_%g140991141009%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148787148788%_))))) - (let ((_%__kont148789148790%_ + _%__stx148824148825%_))))) + (let ((_%__kont148826148827%_ (lambda () - (_%lp140922%_ - _%rest140948%_ - _%bind140927%_ + (_%lp140959%_ + _%rest140985%_ + _%bind140964%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140949%_)) - _%args140928%_)))) - (_%__kont148791148792%_ + _%e140986%_)) + _%args140965%_)))) + (_%__kont148828148829%_ (lambda () - (_%lp140922%_ - _%rest140948%_ - _%bind140927%_ + (_%lp140959%_ + _%rest140985%_ + _%bind140964%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140949%_)) - _%args140928%_)))) - (_%__kont148793148794%_ + _%e140986%_)) + _%args140965%_)))) + (_%__kont148830148831%_ (lambda () - (let ((_%tmp140979%_ - (let ((__tmp149151 + (let ((_%tmp141016%_ + (let ((__tmp149188 (let () (declare (not safe)) @@ -11572,1578 +11572,1578 @@ '__tmp)))) (declare (not safe)) (make-symbol__0 - __tmp149151)))) - (_%lp140922%_ - _%rest140948%_ - (cons (cons _%tmp140979%_ + __tmp149188)))) + (_%lp140959%_ + _%rest140985%_ + (cons (cons _%tmp141016%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e140949%_)) + (gxc#compile-e__0 _%e140986%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind140927%_) - (cons _%tmp140979%_ - _%args140928%_)))))) + _%bind140964%_) + (cons _%tmp141016%_ + _%args140965%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148787148788%_)) - (let ((_%e140956141010%_ + _%__stx148824148825%_)) + (let ((_%e140993141047%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148787148788%_)))) - (let ((_%tl140958141015%_ + _%__stx148824148825%_)))) + (let ((_%tl140995141052%_ (let () (declare (not safe)) - (##cdr _%e140956141010%_))) - (_%hd140957141013%_ + (##cdr _%e140993141047%_))) + (_%hd140994141050%_ (let () (declare (not safe)) - (##car _%e140956141010%_)))) + (##car _%e140993141047%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140957141013%_)) + _%hd140994141050%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140957141013%_)) + _%hd140994141050%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140958141015%_)) - (let ((_%e140959141018%_ + _%tl140995141052%_)) + (let ((_%e140996141055%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl140958141015%_)))) - (let ((_%tl140961141023%_ + (gx#stx-e _%tl140995141052%_)))) + (let ((_%tl140998141060%_ (let () (declare (not safe)) - (##cdr _%e140959141018%_))) - (_%hd140960141021%_ + (##cdr _%e140996141055%_))) + (_%hd140997141058%_ (let () (declare (not safe)) - (##car _%e140959141018%_)))) + (##car _%e140996141055%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140961141023%_)) - (_%__kont148789148790%_) - (_%__kont148793148794%_)))) - (_%__kont148793148794%_)) + (gx#stx-null? _%tl140998141060%_)) + (_%__kont148826148827%_) + (_%__kont148830148831%_)))) + (_%__kont148830148831%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd140957141013%_)) + _%hd140994141050%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl140958141015%_)) - (let ((_%e140965140995%_ + (gx#stx-pair? _%tl140995141052%_)) + (let ((_%e141002141032%_ (let () (declare (not safe)) - (gx#stx-e _%tl140958141015%_)))) - (let ((_%tl140967141000%_ + (gx#stx-e _%tl140995141052%_)))) + (let ((_%tl141004141037%_ (let () (declare (not safe)) - (##cdr _%e140965140995%_))) - (_%hd140966140998%_ + (##cdr _%e141002141032%_))) + (_%hd141003141035%_ (let () (declare (not safe)) - (##car _%e140965140995%_)))) + (##car _%e141002141032%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140967141000%_)) - (_%__kont148791148792%_) - (_%__kont148793148794%_)))) - (_%__kont148793148794%_)) - (_%__kont148793148794%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148793148794%_)))) - (_%__kont148793148794%_))))))) - (if (pair? _%rest140929140937%_) - (let ((_%hd140934141034%_ + (gx#stx-null? _%tl141004141037%_)) + (_%__kont148828148829%_) + (_%__kont148830148831%_)))) + (_%__kont148830148831%_)) + (_%__kont148830148831%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148830148831%_)))) + (_%__kont148830148831%_))))))) + (if (pair? _%rest140966140974%_) + (let ((_%hd140971141071%_ (let () (declare (not safe)) - (##car _%rest140929140937%_))) - (_%tl140935141036%_ + (##car _%rest140966140974%_))) + (_%tl140972141073%_ (let () (declare (not safe)) - (##cdr _%rest140929140937%_)))) - (let* ((_%e141039%_ _%hd140934141034%_) - (_%rest141041%_ _%tl140935141036%_)) - (_%K140933141031%_ - _%rest141041%_ - _%e141039%_))) - (_%else140931140945%_)))))) - _%hd140859140897%_ - _%hd140856140889%_ - _%hd140853140881%_) - (_%g140844140865%_ _%g140845140868%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140844140865%_ - _%g140845140868%_)))) - (_%g140844140865%_ _%g140845140868%_)))) - (_%g140844140865%_ _%g140845140868%_)))) - (_%g140844140865%_ _%g140845140868%_))))) - (_%g140843141043%_ _%stx140842%_)))) + (##cdr _%rest140966140974%_)))) + (let* ((_%e141076%_ _%hd140971141071%_) + (_%rest141078%_ _%tl140972141073%_)) + (_%K140970141068%_ + _%rest141078%_ + _%e141076%_))) + (_%else140968140982%_)))))) + _%hd140896140934%_ + _%hd140893140926%_ + _%hd140890140918%_) + (_%g140881140902%_ _%g140882140905%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140881140902%_ + _%g140882140905%_)))) + (_%g140881140902%_ _%g140882140905%_)))) + (_%g140881140902%_ _%g140882140905%_)))) + (_%g140881140902%_ _%g140882140905%_))))) + (_%g140880141080%_ _%stx140879%_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_%self140620%_ _%stx140621%_) - (let* ((_%g140623140648%_ - (lambda (_%g140624140645%_) + (lambda (_%self140657%_ _%stx140658%_) + (let* ((_%g140660140685%_ + (lambda (_%g140661140682%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140624140645%_)))) - (_%g140622140838%_ - (lambda (_%g140624140651%_) + _%g140661140682%_)))) + (_%g140659140875%_ + (lambda (_%g140661140688%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140624140651%_)) - (let ((_%e140629140653%_ + (gx#stx-pair? _%g140661140688%_)) + (let ((_%e140666140690%_ (let () (declare (not safe)) - (gx#stx-e _%g140624140651%_)))) - (let ((_%hd140630140656%_ + (gx#stx-e _%g140661140688%_)))) + (let ((_%hd140667140693%_ (let () (declare (not safe)) - (##car _%e140629140653%_))) - (_%tl140631140658%_ + (##car _%e140666140690%_))) + (_%tl140668140695%_ (let () (declare (not safe)) - (##cdr _%e140629140653%_)))) + (##cdr _%e140666140690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140631140658%_)) - (let ((_%e140632140661%_ + (gx#stx-pair? _%tl140668140695%_)) + (let ((_%e140669140698%_ (let () (declare (not safe)) - (gx#stx-e _%tl140631140658%_)))) - (let ((_%hd140633140664%_ + (gx#stx-e _%tl140668140695%_)))) + (let ((_%hd140670140701%_ (let () (declare (not safe)) - (##car _%e140632140661%_))) - (_%tl140634140666%_ + (##car _%e140669140698%_))) + (_%tl140671140703%_ (let () (declare (not safe)) - (##cdr _%e140632140661%_)))) + (##cdr _%e140669140698%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140634140666%_)) - (let ((_%e140635140669%_ + (gx#stx-pair? _%tl140671140703%_)) + (let ((_%e140672140706%_ (let () (declare (not safe)) - (gx#stx-e _%tl140634140666%_)))) - (let ((_%hd140636140672%_ + (gx#stx-e _%tl140671140703%_)))) + (let ((_%hd140673140709%_ (let () (declare (not safe)) - (##car _%e140635140669%_))) - (_%tl140637140674%_ + (##car _%e140672140706%_))) + (_%tl140674140711%_ (let () (declare (not safe)) - (##cdr _%e140635140669%_)))) + (##cdr _%e140672140706%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140637140674%_)) - (let ((_%e140638140677%_ + _%tl140674140711%_)) + (let ((_%e140675140714%_ (let () (declare (not safe)) (gx#stx-e - _%tl140637140674%_)))) - (let ((_%hd140639140680%_ + _%tl140674140711%_)))) + (let ((_%hd140676140717%_ (let () (declare (not safe)) - (##car _%e140638140677%_))) - (_%tl140640140682%_ + (##car _%e140675140714%_))) + (_%tl140677140719%_ (let () (declare (not safe)) - (##cdr _%e140638140677%_)))) + (##cdr _%e140675140714%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140640140682%_)) - (let ((_%e140641140685%_ + _%tl140677140719%_)) + (let ((_%e140678140722%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl140640140682%_)))) - (let ((_%hd140642140688%_ - (let () (declare (not safe)) (##car _%e140641140685%_))) - (_%tl140643140690%_ + (gx#stx-e _%tl140677140719%_)))) + (let ((_%hd140679140725%_ + (let () (declare (not safe)) (##car _%e140678140722%_))) + (_%tl140680140727%_ (let () (declare (not safe)) - (##cdr _%e140641140685%_)))) + (##cdr _%e140678140722%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140643140690%_)) - ((lambda (_%L140693%_ - _%L140694%_ - _%L140695%_ - _%L140696%_) + (gx#stx-null? _%tl140680140727%_)) + ((lambda (_%L140730%_ + _%L140731%_ + _%L140732%_ + _%L140733%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140620%_ - _%L140694%_)) + _%self140657%_ + _%L140731%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140620%_ - _%L140693%_)) + _%self140657%_ + _%L140730%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140620%_ - _%L140695%_)) + _%self140657%_ + _%L140732%_)) (cons ''#f (cons ''#f '())))))) - (let _%lp140717%_ ((_%rest140720%_ - (cons _%L140695%_ - (cons _%L140693%_ - (cons _%L140694%_ + (let _%lp140754%_ ((_%rest140757%_ + (cons _%L140732%_ + (cons _%L140730%_ + (cons _%L140731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind140722%_ '()) - (_%args140723%_ '())) - (let* ((_%rest140724140732%_ _%rest140720%_) - (_%else140726140740%_ + (_%bind140759%_ '()) + (_%args140760%_ '())) + (let* ((_%rest140761140769%_ _%rest140757%_) + (_%else140763140777%_ (lambda () (cons 'let - (cons _%bind140722%_ + (cons _%bind140759%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp149152 (cons ''#f (cons ''#f '())))) + (let ((__tmp149189 (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp149152 _%args140723%_))) + (__foldr1 cons __tmp149189 _%args140760%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140728140826%_ - (lambda (_%rest140743%_ _%e140744%_) - (let* ((_%__stx148833148834%_ - _%e140744%_) - (_%g140749140767%_ + (_%K140765140863%_ + (lambda (_%rest140780%_ _%e140781%_) + (let* ((_%__stx148870148871%_ + _%e140781%_) + (_%g140786140804%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148833148834%_))))) - (let ((_%__kont148835148836%_ + _%__stx148870148871%_))))) + (let ((_%__kont148872148873%_ (lambda () - (_%lp140717%_ - _%rest140743%_ - _%bind140722%_ + (_%lp140754%_ + _%rest140780%_ + _%bind140759%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140744%_)) - _%args140723%_)))) - (_%__kont148837148838%_ + _%e140781%_)) + _%args140760%_)))) + (_%__kont148874148875%_ (lambda () - (_%lp140717%_ - _%rest140743%_ - _%bind140722%_ + (_%lp140754%_ + _%rest140780%_ + _%bind140759%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140744%_)) - _%args140723%_)))) - (_%__kont148839148840%_ + _%e140781%_)) + _%args140760%_)))) + (_%__kont148876148877%_ (lambda () - (let ((_%tmp140774%_ - (let ((__tmp149153 + (let ((_%tmp140811%_ + (let ((__tmp149190 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149153)))) - (_%lp140717%_ - _%rest140743%_ - (cons (cons _%tmp140774%_ + (make-symbol__0 __tmp149190)))) + (_%lp140754%_ + _%rest140780%_ + (cons (cons _%tmp140811%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140744%_)) + (gxc#compile-e__0 _%e140781%_)) '())) - _%bind140722%_) - (cons _%tmp140774%_ _%args140723%_)))))) + _%bind140759%_) + (cons _%tmp140811%_ _%args140760%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148833148834%_)) - (let ((_%e140751140805%_ + _%__stx148870148871%_)) + (let ((_%e140788140842%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148833148834%_)))) - (let ((_%tl140753140810%_ + _%__stx148870148871%_)))) + (let ((_%tl140790140847%_ (let () (declare (not safe)) - (##cdr _%e140751140805%_))) - (_%hd140752140808%_ + (##cdr _%e140788140842%_))) + (_%hd140789140845%_ (let () (declare (not safe)) - (##car _%e140751140805%_)))) + (##car _%e140788140842%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140752140808%_)) + _%hd140789140845%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd140752140808%_)) + (gx#stx-eq? '%#ref _%hd140789140845%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140753140810%_)) - (let ((_%e140754140813%_ + (gx#stx-pair? _%tl140790140847%_)) + (let ((_%e140791140850%_ (let () (declare (not safe)) - (gx#stx-e _%tl140753140810%_)))) - (let ((_%tl140756140818%_ + (gx#stx-e _%tl140790140847%_)))) + (let ((_%tl140793140855%_ (let () (declare (not safe)) - (##cdr _%e140754140813%_))) - (_%hd140755140816%_ + (##cdr _%e140791140850%_))) + (_%hd140792140853%_ (let () (declare (not safe)) - (##car _%e140754140813%_)))) + (##car _%e140791140850%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140756140818%_)) - (_%__kont148835148836%_) - (_%__kont148839148840%_)))) - (_%__kont148839148840%_)) + (gx#stx-null? _%tl140793140855%_)) + (_%__kont148872148873%_) + (_%__kont148876148877%_)))) + (_%__kont148876148877%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd140752140808%_)) + (gx#stx-eq? '%#quote _%hd140789140845%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140753140810%_)) - (let ((_%e140760140790%_ + (gx#stx-pair? _%tl140790140847%_)) + (let ((_%e140797140827%_ (let () (declare (not safe)) - (gx#stx-e _%tl140753140810%_)))) - (let ((_%tl140762140795%_ + (gx#stx-e _%tl140790140847%_)))) + (let ((_%tl140799140832%_ (let () (declare (not safe)) - (##cdr _%e140760140790%_))) - (_%hd140761140793%_ + (##cdr _%e140797140827%_))) + (_%hd140798140830%_ (let () (declare (not safe)) - (##car _%e140760140790%_)))) + (##car _%e140797140827%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140762140795%_)) - (_%__kont148837148838%_) - (_%__kont148839148840%_)))) - (_%__kont148839148840%_)) - (_%__kont148839148840%_))) - (_%__kont148839148840%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148839148840%_))))))) - (if (pair? _%rest140724140732%_) - (let ((_%hd140729140829%_ + (gx#stx-null? _%tl140799140832%_)) + (_%__kont148874148875%_) + (_%__kont148876148877%_)))) + (_%__kont148876148877%_)) + (_%__kont148876148877%_))) + (_%__kont148876148877%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148876148877%_))))))) + (if (pair? _%rest140761140769%_) + (let ((_%hd140766140866%_ (let () (declare (not safe)) - (##car _%rest140724140732%_))) - (_%tl140730140831%_ + (##car _%rest140761140769%_))) + (_%tl140767140868%_ (let () (declare (not safe)) - (##cdr _%rest140724140732%_)))) - (let* ((_%e140834%_ _%hd140729140829%_) - (_%rest140836%_ - _%tl140730140831%_)) - (_%K140728140826%_ - _%rest140836%_ - _%e140834%_))) - (_%else140726140740%_)))))) - _%hd140642140688%_ - _%hd140639140680%_ - _%hd140636140672%_ - _%hd140633140664%_) - (_%g140623140648%_ _%g140624140651%_)))) - (_%g140623140648%_ _%g140624140651%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140623140648%_ - _%g140624140651%_)))) - (_%g140623140648%_ _%g140624140651%_)))) - (_%g140623140648%_ _%g140624140651%_)))) - (_%g140623140648%_ _%g140624140651%_))))) - (_%g140622140838%_ _%stx140621%_)))) + (##cdr _%rest140761140769%_)))) + (let* ((_%e140871%_ _%hd140766140866%_) + (_%rest140873%_ + _%tl140767140868%_)) + (_%K140765140863%_ + _%rest140873%_ + _%e140871%_))) + (_%else140763140777%_)))))) + _%hd140679140725%_ + _%hd140676140717%_ + _%hd140673140709%_ + _%hd140670140701%_) + (_%g140660140685%_ _%g140661140688%_)))) + (_%g140660140685%_ _%g140661140688%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140660140685%_ + _%g140661140688%_)))) + (_%g140660140685%_ _%g140661140688%_)))) + (_%g140660140685%_ _%g140661140688%_)))) + (_%g140660140685%_ _%g140661140688%_))))) + (_%g140659140875%_ _%stx140658%_)))) (define gxc#generate-runtime-loader-import% - (lambda (_%self140459%_ _%stx140460%_) - (letrec ((_%import-set-template140462%_ - (lambda (_%in140565%_ _%phi140566%_) - (let ((_%iphi140568%_ - (fx+ _%phi140566%_ + (lambda (_%self140496%_ _%stx140497%_) + (letrec ((_%import-set-template140499%_ + (lambda (_%in140602%_ _%phi140603%_) + (let ((_%iphi140605%_ + (fx+ _%phi140603%_ (##direct-structure-ref - _%in140565%_ + _%in140602%_ '2 gx#import-set::t '#f))) - (_%imports140569%_ + (_%imports140606%_ (##structure-ref (##direct-structure-ref - _%in140565%_ + _%in140602%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp140571%_ ((_%rest140573%_ _%imports140569%_) - (_%r140574%_ '())) - (let* ((_%rest140575140583%_ _%rest140573%_) - (_%else140577140591%_ (lambda () _%r140574%_)) - (_%K140579140608%_ - (lambda (_%rest140594%_ _%in140595%_) + (let _%lp140608%_ ((_%rest140610%_ _%imports140606%_) + (_%r140611%_ '())) + (let* ((_%rest140612140620%_ _%rest140610%_) + (_%else140614140628%_ (lambda () _%r140611%_)) + (_%K140616140645%_ + (lambda (_%rest140631%_ _%in140632%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in140595%_ + _%in140632%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi140568%_)) - (_%lp140571%_ - _%rest140594%_ - (cons _%in140595%_ _%r140574%_)) - (_%lp140571%_ - _%rest140594%_ - _%r140574%_)) + (##fxzero? _%iphi140605%_)) + (_%lp140608%_ + _%rest140631%_ + (cons _%in140632%_ _%r140611%_)) + (_%lp140608%_ + _%rest140631%_ + _%r140611%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140595%_ + _%in140632%_ 'gx#module-import::t)) - (let ((_%iphi140599%_ - (fx+ _%phi140566%_ + (let ((_%iphi140636%_ + (fx+ _%phi140603%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140595%_ + _%in140632%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi140599%_)) - (_%lp140571%_ - _%rest140594%_ + (##fxzero? _%iphi140636%_)) + (_%lp140608%_ + _%rest140631%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in140595%_ + _%in140632%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r140574%_)) - (_%lp140571%_ - _%rest140594%_ - _%r140574%_))) + _%r140611%_)) + (_%lp140608%_ + _%rest140631%_ + _%r140611%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140595%_ + _%in140632%_ 'gx#import-set::t)) - (let ((_%xphi140602%_ - (fx+ _%iphi140568%_ + (let ((_%xphi140639%_ + (fx+ _%iphi140605%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140595%_ + _%in140632%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi140602%_)) - (_%lp140571%_ - _%rest140594%_ + _%xphi140639%_)) + (_%lp140608%_ + _%rest140631%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in140595%_ + _%in140632%_ '1 '#f '#f)) - _%r140574%_)) + _%r140611%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi140602%_)) - (_%lp140571%_ - _%rest140594%_ - (let ((__tmp149154 - (_%import-set-template140462%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in140595%_ - _%iphi140568%_))) + _%xphi140639%_)) + (_%lp140608%_ + _%rest140631%_ + (let ((__tmp149191 + (_%import-set-template140499%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%in140632%_ + _%iphi140605%_))) (declare (not safe)) - (__foldl1 cons _%r140574%_ __tmp149154))) - (_%lp140571%_ _%rest140594%_ _%r140574%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp140571%_ - _%rest140594%_ - _%r140574%_))))))) - (if (pair? _%rest140575140583%_) - (let ((_%hd140580140611%_ + (__foldl1 cons _%r140611%_ __tmp149191))) + (_%lp140608%_ _%rest140631%_ _%r140611%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp140608%_ + _%rest140631%_ + _%r140611%_))))))) + (if (pair? _%rest140612140620%_) + (let ((_%hd140617140648%_ (let () (declare (not safe)) - (##car _%rest140575140583%_))) - (_%tl140581140613%_ + (##car _%rest140612140620%_))) + (_%tl140618140650%_ (let () (declare (not safe)) - (##cdr _%rest140575140583%_)))) - (let* ((_%in140616%_ _%hd140580140611%_) - (_%rest140618%_ _%tl140581140613%_)) - (_%K140579140608%_ - _%rest140618%_ - _%in140616%_))) - (_%else140577140591%_)))))))) - (let* ((_%g140464140474%_ - (lambda (_%g140465140471%_) + (##cdr _%rest140612140620%_)))) + (let* ((_%in140653%_ _%hd140617140648%_) + (_%rest140655%_ _%tl140618140650%_)) + (_%K140616140645%_ + _%rest140655%_ + _%in140653%_))) + (_%else140614140628%_)))))))) + (let* ((_%g140501140511%_ + (lambda (_%g140502140508%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140465140471%_)))) - (_%g140463140562%_ - (lambda (_%g140465140477%_) + _%g140502140508%_)))) + (_%g140500140599%_ + (lambda (_%g140502140514%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140465140477%_)) - (let ((_%e140467140479%_ + (gx#stx-pair? _%g140502140514%_)) + (let ((_%e140504140516%_ (let () (declare (not safe)) - (gx#stx-e _%g140465140477%_)))) - (let ((_%hd140468140482%_ + (gx#stx-e _%g140502140514%_)))) + (let ((_%hd140505140519%_ (let () (declare (not safe)) - (##car _%e140467140479%_))) - (_%tl140469140484%_ + (##car _%e140504140516%_))) + (_%tl140506140521%_ (let () (declare (not safe)) - (##cdr _%e140467140479%_)))) - ((lambda (_%L140487%_) - (let ((_%ht140498%_ + (##cdr _%e140504140516%_)))) + ((lambda (_%L140524%_) + (let ((_%ht140535%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _%lp140500%_ ((_%rest140502%_ - _%L140487%_) - (_%loads140503%_ '())) - (letrec ((_%K140505%_ - (lambda (_%ctx140555%_ - _%rest140556%_) - (let ((_%id140558%_ + (let _%lp140537%_ ((_%rest140539%_ + _%L140524%_) + (_%loads140540%_ '())) + (letrec ((_%K140542%_ + (lambda (_%ctx140592%_ + _%rest140593%_) + (let ((_%id140595%_ (##structure-ref - _%ctx140555%_ + _%ctx140592%_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (__hash-get - _%ht140498%_ - _%id140558%_)) - (_%lp140500%_ - _%rest140556%_ - _%loads140503%_) - (let ((_%rt140560%_ + _%ht140535%_ + _%id140595%_)) + (_%lp140537%_ + _%rest140593%_ + _%loads140540%_) + (let ((_%rt140597%_ (let () (declare (not safe)) (gxc#module-id->path-string - _%id140558%_)))) + _%id140595%_)))) (let () (declare (not safe)) (__hash-put! - _%ht140498%_ - _%id140558%_ - _%rt140560%_)) - (_%lp140500%_ - _%rest140556%_ - (cons _%rt140560%_ - _%loads140503%_)))))))) - (let* ((_%rest140506140514%_ - _%rest140502%_) - (_%else140508140526%_ + _%ht140535%_ + _%id140595%_ + _%rt140597%_)) + (_%lp140537%_ + _%rest140593%_ + (cons _%rt140597%_ + _%loads140540%_)))))))) + (let* ((_%rest140543140551%_ + _%rest140539%_) + (_%else140545140563%_ (lambda () (cons 'begin - (let ((__tmp149156 - (lambda (_%g140521140523%_) + (let ((__tmp149193 + (lambda (_%g140558140560%_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g140521140523%_))) - (__tmp149155 (reverse _%loads140503%_))) + _%g140558140560%_))) + (__tmp149192 (reverse _%loads140540%_))) (declare (not safe)) - (##map __tmp149156 __tmp149155))))) + (##map __tmp149193 __tmp149192))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140510140543%_ - (lambda (_%rest140529%_ - _%in140530%_) + (_%K140547140580%_ + (lambda (_%rest140566%_ + _%in140567%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in140530%_ + _%in140567%_ 'gx#module-context::t)) - (_%K140505%_ - _%in140530%_ - _%rest140529%_) + (_%K140542%_ + _%in140567%_ + _%rest140566%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140530%_ + _%in140567%_ 'gx#module-import::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%in140530%_ + _%in140567%_ '3 '#f '#f))) - (_%K140505%_ + (_%K140542%_ (##direct-structure-ref (let () (declare (not safe)) - (##unchecked-structure-ref _%in140530%_ '1 '#f '#f)) + (##unchecked-structure-ref _%in140567%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%rest140529%_) - (_%lp140500%_ _%rest140529%_ _%loads140503%_)) + _%rest140566%_) + (_%lp140537%_ _%rest140566%_ _%loads140540%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140530%_ + _%in140567%_ 'gx#import-set::t)) - (let ((_%phi140535%_ + (let ((_%phi140572%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140530%_ + _%in140567%_ '2 '#f '#f)))) - (if (fxzero? _%phi140535%_) - (_%K140505%_ + (if (fxzero? _%phi140572%_) + (_%K140542%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140530%_ + _%in140567%_ '1 '#f '#f)) - _%rest140529%_) - (if (fxpositive? _%phi140535%_) - (let ((_%deps140539%_ - (_%import-set-template140462%_ - _%in140530%_ + _%rest140566%_) + (if (fxpositive? _%phi140572%_) + (let ((_%deps140576%_ + (_%import-set-template140499%_ + _%in140567%_ '0))) - (_%lp140500%_ + (_%lp140537%_ (let () (declare (not safe)) (__foldl1 cons - _%rest140529%_ - _%deps140539%_)) - _%loads140503%_)) - (_%lp140500%_ _%rest140529%_ _%loads140503%_)))) + _%rest140566%_ + _%deps140576%_)) + _%loads140540%_)) + (_%lp140537%_ _%rest140566%_ _%loads140540%_)))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _%stx140460%_ - _%in140530%_)))))))) + _%stx140497%_ + _%in140567%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest140506140514%_) - (let ((_%hd140511140546%_ + (if (pair? _%rest140543140551%_) + (let ((_%hd140548140583%_ (let () (declare (not safe)) - (##car _%rest140506140514%_))) - (_%tl140512140548%_ + (##car _%rest140543140551%_))) + (_%tl140549140585%_ (let () (declare (not safe)) - (##cdr _%rest140506140514%_)))) - (let* ((_%in140551%_ - _%hd140511140546%_) - (_%rest140553%_ - _%tl140512140548%_)) - (_%K140510140543%_ - _%rest140553%_ - _%in140551%_))) - (_%else140508140526%_))))))) - _%tl140469140484%_))) - (_%g140464140474%_ _%g140465140477%_))))) - (_%g140463140562%_ _%stx140460%_))))) + (##cdr _%rest140543140551%_)))) + (let* ((_%in140588%_ + _%hd140548140583%_) + (_%rest140590%_ + _%tl140549140585%_)) + (_%K140547140580%_ + _%rest140590%_ + _%in140588%_))) + (_%else140545140563%_))))))) + _%tl140506140521%_))) + (_%g140501140511%_ _%g140502140514%_))))) + (_%g140500140599%_ _%stx140497%_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_%self140272%_ _%stx140273%_) - (letrec ((_%add-lift!140275%_ - (lambda (_%expr140457%_) + (lambda (_%self140309%_ _%stx140310%_) + (letrec ((_%add-lift!140312%_ + (lambda (_%expr140494%_) (set-box! (let () (declare (not safe)) (gxc#current-compile-lift)) - (cons _%expr140457%_ + (cons _%expr140494%_ (unbox (let () (declare (not safe)) (gxc#current-compile-lift))))))) - (_%generate-syntax-quote140276%_ - (lambda (_%id140454%_ _%marks140455%_) + (_%generate-syntax-quote140313%_ + (lambda (_%id140491%_ _%marks140492%_) (cons '##structure (cons 'gx#syntax-quote::t - (cons (cons 'quote (cons _%id140454%_ '())) + (cons (cons 'quote (cons _%id140491%_ '())) (cons '#f (cons '(gx#current-expander-context) - (cons _%marks140455%_ + (cons _%marks140492%_ '())))))))) - (_%generate-simple140277%_ - (lambda (_%stxq140449%_) - (let ((_%gid140451%_ + (_%generate-simple140314%_ + (lambda (_%stxq140486%_) + (let ((_%gid140488%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid140452%_ - (gxc#generate-runtime-identifier _%stxq140449%_))) - (_%add-lift!140275%_ + (_%qid140489%_ + (gxc#generate-runtime-identifier _%stxq140486%_))) + (_%add-lift!140312%_ (cons 'define - (cons _%gid140451%_ - (cons (_%generate-syntax-quote140276%_ - _%qid140452%_ + (cons _%gid140488%_ + (cons (_%generate-syntax-quote140313%_ + _%qid140489%_ ''()) '())))) - (let ((__tmp149157 + (let ((__tmp149194 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp149157 _%stxq140449%_ _%gid140451%_)) - _%gid140451%_))) - (_%generate-serialized140278%_ - (lambda (_%stxq140439%_ _%marks140440%_) - (let* ((_%mark-refs140442%_ - (map _%generate-mark140279%_ _%marks140440%_)) - (_%gid140444%_ + (hash-put! __tmp149194 _%stxq140486%_ _%gid140488%_)) + _%gid140488%_))) + (_%generate-serialized140315%_ + (lambda (_%stxq140476%_ _%marks140477%_) + (let* ((_%mark-refs140479%_ + (map _%generate-mark140316%_ _%marks140477%_)) + (_%gid140481%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid140446%_ - (gxc#generate-runtime-identifier _%stxq140439%_))) - (_%add-lift!140275%_ + (_%qid140483%_ + (gxc#generate-runtime-identifier _%stxq140476%_))) + (_%add-lift!140312%_ (cons 'define - (cons _%gid140444%_ - (cons (_%generate-syntax-quote140276%_ - _%qid140446%_ - (cons 'list _%mark-refs140442%_)) + (cons _%gid140481%_ + (cons (_%generate-syntax-quote140313%_ + _%qid140483%_ + (cons 'list _%mark-refs140479%_)) '())))) - (let ((__tmp149158 + (let ((__tmp149195 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp149158 _%stxq140439%_ _%gid140444%_)) - _%gid140444%_))) - (_%generate-mark140279%_ - (lambda (_%mark140424%_) - (let ((_%$e140426%_ - (let ((__tmp149159 + (hash-put! __tmp149195 _%stxq140476%_ _%gid140481%_)) + _%gid140481%_))) + (_%generate-mark140316%_ + (lambda (_%mark140461%_) + (let ((_%$e140463%_ + (let ((__tmp149196 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) - (hash-get __tmp149159 _%mark140424%_)))) - (if _%$e140426%_ - _%$e140426%_ - (let* ((_%gid140430%_ + (hash-get __tmp149196 _%mark140461%_)))) + (if _%$e140463%_ + _%$e140463%_ + (let* ((_%gid140467%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%repr140432%_ - (_%serialize-mark140280%_ _%mark140424%_)) - (_%ctx140434%_ - (let ((__tmp149160 + (_%repr140469%_ + (_%serialize-mark140317%_ _%mark140461%_)) + (_%ctx140471%_ + (let ((__tmp149197 (##structure-ref - _%mark140424%_ + _%mark140461%_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp149160))) - (_%ctx-ref140436%_ - (if (eq? _%ctx140434%_ + (gx#core-context-top__1 __tmp149197))) + (_%ctx-ref140473%_ + (if (eq? _%ctx140471%_ (let () (declare (not safe)) (gx#current-expander-context))) '(gx#current-expander-context) (cons 'gx#import-module (cons (cons 'quote - (cons (_%context-ref140281%_ - _%ctx140434%_) + (cons (_%context-ref140318%_ + _%ctx140471%_) '())) '()))))) - (let ((__tmp149161 + (let ((__tmp149198 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) (hash-put! - __tmp149161 - _%mark140424%_ - _%gid140430%_)) - (_%add-lift!140275%_ + __tmp149198 + _%mark140461%_ + _%gid140467%_)) + (_%add-lift!140312%_ (cons 'define - (cons _%gid140430%_ + (cons _%gid140467%_ (cons (cons 'gx#core-deserialize-mark (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%repr140432%_ '())) - (cons _%ctx-ref140436%_ '()))) + (cons _%repr140469%_ '())) + (cons _%ctx-ref140473%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%gid140430%_))))) - (_%serialize-mark140280%_ - (lambda (_%mark140371%_) - (letrec ((_%quote-e140373%_ - (lambda (_%sym140422%_) + _%gid140467%_))))) + (_%serialize-mark140317%_ + (lambda (_%mark140408%_) + (letrec ((_%quote-e140410%_ + (lambda (_%sym140459%_) (if (let () (declare (not safe)) - (interned-symbol? _%sym140422%_)) - _%sym140422%_ + (interned-symbol? _%sym140459%_)) + _%sym140459%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%sym140422%_)))))) - (let* ((_%mark140374140383%_ _%mark140371%_) - (_%E140376140387%_ + _%sym140459%_)))))) + (let* ((_%mark140411140420%_ _%mark140408%_) + (_%E140413140424%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mark140374140383%_ + _%mark140411140420%_ '((expander-mark subst ctx phi trace)))) '#!void)) - (_%K140377140399%_ - (lambda (_%trace140390%_ - _%phi140391%_ - _%ctx140392%_ - _%subst140393%_) - (let ((_%subs140395%_ - (if _%subst140393%_ + (_%K140414140436%_ + (lambda (_%trace140427%_ + _%phi140428%_ + _%ctx140429%_ + _%subst140430%_) + (let ((_%subs140432%_ + (if _%subst140430%_ (let () (declare (not safe)) - (hash->list _%subst140393%_)) + (hash->list _%subst140430%_)) '()))) - (cons _%phi140391%_ - (map (lambda (_%pair140397%_) - (cons (_%quote-e140373%_ - (car _%pair140397%_)) - (_%quote-e140373%_ - (cdr _%pair140397%_)))) - _%subs140395%_)))))) + (cons _%phi140428%_ + (map (lambda (_%pair140434%_) + (cons (_%quote-e140410%_ + (car _%pair140434%_)) + (_%quote-e140410%_ + (cdr _%pair140434%_)))) + _%subs140432%_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%mark140374140383%_ + _%mark140411140420%_ 'gx#expander-mark::t)) - (let* ((_%e140378140402%_ + (let* ((_%e140415140439%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140374140383%_ + _%mark140411140420%_ '1 '#f '#f))) - (_%subst140405%_ _%e140378140402%_) - (_%e140379140407%_ + (_%subst140442%_ _%e140415140439%_) + (_%e140416140444%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140374140383%_ + _%mark140411140420%_ '2 '#f '#f))) - (_%ctx140410%_ _%e140379140407%_) - (_%e140380140412%_ + (_%ctx140447%_ _%e140416140444%_) + (_%e140417140449%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140374140383%_ + _%mark140411140420%_ '3 '#f '#f))) - (_%phi140415%_ _%e140380140412%_) - (_%e140381140417%_ + (_%phi140452%_ _%e140417140449%_) + (_%e140418140454%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140374140383%_ + _%mark140411140420%_ '4 '#f '#f))) - (_%trace140420%_ _%e140381140417%_)) - (_%K140377140399%_ - _%trace140420%_ - _%phi140415%_ - _%ctx140410%_ - _%subst140405%_)) - (_%E140376140387%_)))))) - (_%context-ref140281%_ - (lambda (_%ctx140358%_) - (if (let ((__tmp149162 + (_%trace140457%_ _%e140418140454%_)) + (_%K140414140436%_ + _%trace140457%_ + _%phi140452%_ + _%ctx140447%_ + _%subst140442%_)) + (_%E140413140424%_)))))) + (_%context-ref140318%_ + (lambda (_%ctx140395%_) + (if (let ((__tmp149199 (##structure-ref - _%ctx140358%_ + _%ctx140395%_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp149162 + __tmp149199 'gx#module-context::t)) - (let ((_%ctx-ref140360%_ - (_%context-ref-nested140283%_ _%ctx140358%_)) - (_%ctx-origin140361%_ - (_%context-ref-origin140282%_ _%ctx140358%_)) - (_%origin140362%_ - (_%context-ref-origin140282%_ + (let ((_%ctx-ref140397%_ + (_%context-ref-nested140320%_ _%ctx140395%_)) + (_%ctx-origin140398%_ + (_%context-ref-origin140319%_ _%ctx140395%_)) + (_%origin140399%_ + (_%context-ref-origin140319%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (if (eq? _%origin140362%_ _%ctx-origin140361%_) - (let ((_%ref140364%_ - (_%context-ref-nested140283%_ + (if (eq? _%origin140399%_ _%ctx-origin140398%_) + (let ((_%ref140401%_ + (_%context-ref-nested140320%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (let _%lp140366%_ ((_%ref140368%_ - (cdr _%ref140364%_)) - (_%ctx-ref140369%_ - (cdr _%ctx-ref140360%_))) - (if (and (pair? _%ref140368%_) + (let _%lp140403%_ ((_%ref140405%_ + (cdr _%ref140401%_)) + (_%ctx-ref140406%_ + (cdr _%ctx-ref140397%_))) + (if (and (pair? _%ref140405%_) (eq? (let () (declare (not safe)) - (##car _%ref140368%_)) - (car _%ctx-ref140369%_))) - (_%lp140366%_ - (cdr _%ref140368%_) - (cdr _%ctx-ref140369%_)) - (cons '#f _%ctx-ref140369%_)))) - _%ctx-ref140360%_)) - (let ((__tmp149163 + (##car _%ref140405%_)) + (car _%ctx-ref140406%_))) + (_%lp140403%_ + (cdr _%ref140405%_) + (cdr _%ctx-ref140406%_)) + (cons '#f _%ctx-ref140406%_)))) + _%ctx-ref140397%_)) + (let ((__tmp149200 (##structure-ref - _%ctx140358%_ + _%ctx140395%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149163))))) - (_%context-ref-origin140282%_ - (lambda (_%ctx140350%_) - (let _%lp140352%_ ((_%ctx140354%_ _%ctx140350%_)) - (let ((_%super140356%_ + (make-symbol__1 '":" __tmp149200))))) + (_%context-ref-origin140319%_ + (lambda (_%ctx140387%_) + (let _%lp140389%_ ((_%ctx140391%_ _%ctx140387%_)) + (let ((_%super140393%_ (##structure-ref - _%ctx140354%_ + _%ctx140391%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140356%_ + _%super140393%_ 'gx#module-context::t)) - (_%lp140352%_ _%super140356%_) - _%ctx140354%_))))) - (_%context-ref-nested140283%_ - (lambda (_%ctx140341%_) - (let _%lp140343%_ ((_%ctx140345%_ _%ctx140341%_) - (_%r140346%_ '())) - (let ((_%super140348%_ + (_%lp140389%_ _%super140393%_) + _%ctx140391%_))))) + (_%context-ref-nested140320%_ + (lambda (_%ctx140378%_) + (let _%lp140380%_ ((_%ctx140382%_ _%ctx140378%_) + (_%r140383%_ '())) + (let ((_%super140385%_ (##structure-ref - _%ctx140345%_ + _%ctx140382%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140348%_ + _%super140385%_ 'gx#module-context::t)) - (_%lp140343%_ - _%super140348%_ + (_%lp140380%_ + _%super140385%_ (cons (car (##structure-ref - _%ctx140345%_ + _%ctx140382%_ '7 gx#module-context::t '#f)) - _%r140346%_)) - (cons (let ((__tmp149164 + _%r140383%_)) + (cons (let ((__tmp149201 (##structure-ref - _%ctx140345%_ + _%ctx140382%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149164)) - _%r140346%_))))))) - (let* ((_%g140285140298%_ - (lambda (_%g140286140295%_) + (make-symbol__1 '":" __tmp149201)) + _%r140383%_))))))) + (let* ((_%g140322140335%_ + (lambda (_%g140323140332%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140286140295%_)))) - (_%g140284140338%_ - (lambda (_%g140286140301%_) + _%g140323140332%_)))) + (_%g140321140375%_ + (lambda (_%g140323140338%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140286140301%_)) - (let ((_%e140288140303%_ + (gx#stx-pair? _%g140323140338%_)) + (let ((_%e140325140340%_ (let () (declare (not safe)) - (gx#stx-e _%g140286140301%_)))) - (let ((_%hd140289140306%_ + (gx#stx-e _%g140323140338%_)))) + (let ((_%hd140326140343%_ (let () (declare (not safe)) - (##car _%e140288140303%_))) - (_%tl140290140308%_ + (##car _%e140325140340%_))) + (_%tl140327140345%_ (let () (declare (not safe)) - (##cdr _%e140288140303%_)))) + (##cdr _%e140325140340%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140290140308%_)) - (let ((_%e140291140311%_ + (gx#stx-pair? _%tl140327140345%_)) + (let ((_%e140328140348%_ (let () (declare (not safe)) - (gx#stx-e _%tl140290140308%_)))) - (let ((_%hd140292140314%_ + (gx#stx-e _%tl140327140345%_)))) + (let ((_%hd140329140351%_ (let () (declare (not safe)) - (##car _%e140291140311%_))) - (_%tl140293140316%_ + (##car _%e140328140348%_))) + (_%tl140330140353%_ (let () (declare (not safe)) - (##cdr _%e140291140311%_)))) + (##cdr _%e140328140348%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140293140316%_)) - ((lambda (_%L140319%_) + (gx#stx-null? _%tl140330140353%_)) + ((lambda (_%L140356%_) (if (let () (declare (not safe)) - (gx#identifier? _%L140319%_)) - (let ((_%$e140332%_ - (let ((__tmp149165 + (gx#identifier? _%L140356%_)) + (let ((_%$e140369%_ + (let ((__tmp149202 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-get __tmp149165 _%L140319%_)))) + (hash-get __tmp149202 _%L140356%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e140332%_ - _%$e140332%_ - (let ((_%marks140336%_ + (if _%$e140369%_ + _%$e140369%_ + (let ((_%marks140373%_ (##direct-structure-ref - _%L140319%_ + _%L140356%_ '4 gx#syntax-quote::t '#f))) - (if (null? _%marks140336%_) - (_%generate-simple140277%_ - _%L140319%_) - (_%generate-serialized140278%_ - _%L140319%_ - _%marks140336%_))))) + (if (null? _%marks140373%_) + (_%generate-simple140314%_ + _%L140356%_) + (_%generate-serialized140315%_ + _%L140356%_ + _%marks140373%_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _%L140319%_)))) - _%hd140292140314%_) - (_%g140285140298%_ - _%g140286140301%_)))) - (_%g140285140298%_ _%g140286140301%_)))) - (_%g140285140298%_ _%g140286140301%_))))) - (_%g140284140338%_ _%stx140273%_))))) + _%L140356%_)))) + _%hd140329140351%_) + (_%g140322140335%_ + _%g140323140338%_)))) + (_%g140322140335%_ _%g140323140338%_)))) + (_%g140322140335%_ _%g140323140338%_))))) + (_%g140321140375%_ _%stx140310%_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_%self140204%_ _%stx140205%_) - (let* ((_%g140207140224%_ - (lambda (_%g140208140221%_) + (lambda (_%self140241%_ _%stx140242%_) + (let* ((_%g140244140261%_ + (lambda (_%g140245140258%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140208140221%_)))) - (_%g140206140269%_ - (lambda (_%g140208140227%_) + _%g140245140258%_)))) + (_%g140243140306%_ + (lambda (_%g140245140264%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140208140227%_)) - (let ((_%e140211140229%_ + (gx#stx-pair? _%g140245140264%_)) + (let ((_%e140248140266%_ (let () (declare (not safe)) - (gx#stx-e _%g140208140227%_)))) - (let ((_%hd140212140232%_ + (gx#stx-e _%g140245140264%_)))) + (let ((_%hd140249140269%_ (let () (declare (not safe)) - (##car _%e140211140229%_))) - (_%tl140213140234%_ + (##car _%e140248140266%_))) + (_%tl140250140271%_ (let () (declare (not safe)) - (##cdr _%e140211140229%_)))) + (##cdr _%e140248140266%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140213140234%_)) - (let ((_%e140214140237%_ + (gx#stx-pair? _%tl140250140271%_)) + (let ((_%e140251140274%_ (let () (declare (not safe)) - (gx#stx-e _%tl140213140234%_)))) - (let ((_%hd140215140240%_ + (gx#stx-e _%tl140250140271%_)))) + (let ((_%hd140252140277%_ (let () (declare (not safe)) - (##car _%e140214140237%_))) - (_%tl140216140242%_ + (##car _%e140251140274%_))) + (_%tl140253140279%_ (let () (declare (not safe)) - (##cdr _%e140214140237%_)))) + (##cdr _%e140251140274%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140216140242%_)) - (let ((_%e140217140245%_ + (gx#stx-pair? _%tl140253140279%_)) + (let ((_%e140254140282%_ (let () (declare (not safe)) - (gx#stx-e _%tl140216140242%_)))) - (let ((_%hd140218140248%_ + (gx#stx-e _%tl140253140279%_)))) + (let ((_%hd140255140285%_ (let () (declare (not safe)) - (##car _%e140217140245%_))) - (_%tl140219140250%_ + (##car _%e140254140282%_))) + (_%tl140256140287%_ (let () (declare (not safe)) - (##cdr _%e140217140245%_)))) + (##cdr _%e140254140282%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140219140250%_)) - ((lambda (_%L140253%_ - _%L140254%_) + _%tl140256140287%_)) + ((lambda (_%L140290%_ + _%L140291%_) (cons 'define (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L140254%_)) + (gx#stx-e _%L140291%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self140204%_ _%L140253%_)) + (gxc#compile-e__1 _%self140241%_ _%L140290%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd140218140248%_ - _%hd140215140240%_) - (_%g140207140224%_ - _%g140208140227%_)))) - (_%g140207140224%_ _%g140208140227%_)))) - (_%g140207140224%_ _%g140208140227%_)))) - (_%g140207140224%_ _%g140208140227%_))))) - (_%g140206140269%_ _%stx140205%_)))) + _%hd140255140285%_ + _%hd140252140277%_) + (_%g140244140261%_ + _%g140245140264%_)))) + (_%g140244140261%_ _%g140245140264%_)))) + (_%g140244140261%_ _%g140245140264%_)))) + (_%g140244140261%_ _%g140245140264%_))))) + (_%g140243140306%_ _%stx140242%_)))) (define gxc#generate-meta-begin% - (lambda (_%self140153%_ _%stx140154%_) - (let* ((_%g140156140166%_ - (lambda (_%g140157140163%_) + (lambda (_%self140190%_ _%stx140191%_) + (let* ((_%g140193140203%_ + (lambda (_%g140194140200%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140157140163%_)))) - (_%g140155140201%_ - (lambda (_%g140157140169%_) + _%g140194140200%_)))) + (_%g140192140238%_ + (lambda (_%g140194140206%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140157140169%_)) - (let ((_%e140159140171%_ + (gx#stx-pair? _%g140194140206%_)) + (let ((_%e140196140208%_ (let () (declare (not safe)) - (gx#stx-e _%g140157140169%_)))) - (let ((_%hd140160140174%_ + (gx#stx-e _%g140194140206%_)))) + (let ((_%hd140197140211%_ (let () (declare (not safe)) - (##car _%e140159140171%_))) - (_%tl140161140176%_ + (##car _%e140196140208%_))) + (_%tl140198140213%_ (let () (declare (not safe)) - (##cdr _%e140159140171%_)))) - ((lambda (_%L140179%_) - (let* ((_%c-body140193%_ - (map (lambda (_%g140188140190%_) + (##cdr _%e140196140208%_)))) + ((lambda (_%L140216%_) + (let* ((_%c-body140230%_ + (map (lambda (_%g140225140227%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self140153%_ - _%g140188140190%_))) - _%L140179%_)) - (_%c-body140198%_ - (let ((__tmp149166 - (lambda (_%$obj140195%_) - (not (eq? _%$obj140195%_ + _%self140190%_ + _%g140225140227%_))) + _%L140216%_)) + (_%c-body140235%_ + (let ((__tmp149203 + (lambda (_%$obj140232%_) + (not (eq? _%$obj140232%_ '#!void))))) (declare (not safe)) (##filter - __tmp149166 - _%c-body140193%_)))) - (cons '%#begin _%c-body140198%_))) - _%tl140161140176%_))) - (_%g140156140166%_ _%g140157140169%_))))) - (_%g140155140201%_ _%stx140154%_)))) + __tmp149203 + _%c-body140230%_)))) + (cons '%#begin _%c-body140235%_))) + _%tl140198140213%_))) + (_%g140193140203%_ _%g140194140206%_))))) + (_%g140192140238%_ _%stx140191%_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_%self140058%_ _%stx140059%_) - (let* ((_%g140061140071%_ - (lambda (_%g140062140068%_) + (lambda (_%self140095%_ _%stx140096%_) + (let* ((_%g140098140108%_ + (lambda (_%g140099140105%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140062140068%_)))) - (_%g140060140150%_ - (lambda (_%g140062140074%_) + _%g140099140105%_)))) + (_%g140097140187%_ + (lambda (_%g140099140111%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140062140074%_)) - (let ((_%e140064140076%_ + (gx#stx-pair? _%g140099140111%_)) + (let ((_%e140101140113%_ (let () (declare (not safe)) - (gx#stx-e _%g140062140074%_)))) - (let ((_%hd140065140079%_ + (gx#stx-e _%g140099140111%_)))) + (let ((_%hd140102140116%_ (let () (declare (not safe)) - (##car _%e140064140076%_))) - (_%tl140066140081%_ + (##car _%e140101140113%_))) + (_%tl140103140118%_ (let () (declare (not safe)) - (##cdr _%e140064140076%_)))) - ((lambda (_%L140084%_) - (let* ((_%phi140094%_ - (let ((__tmp149167 + (##cdr _%e140101140113%_)))) + ((lambda (_%L140121%_) + (let* ((_%phi140131%_ + (let ((__tmp149204 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp149167 '1))) - (_%block140096%_ + (##fx+ __tmp149204 '1))) + (_%block140133%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self140058%_ 'state)) - _%phi140094%_)) - (_%compiled140099%_ - (let ((__tmp149168 + (slot-ref__0 _%self140095%_ 'state)) + _%phi140131%_)) + (_%compiled140136%_ + (let ((__tmp149205 (lambda () (gxc#apply-generate-meta-phi__% '#f (let () (declare (not safe)) (slot-ref__0 - _%self140058%_ + _%self140095%_ 'state)) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L140084%_))))) + _%L140121%_))))) (declare (not safe)) (__call-with-parameters - __tmp149168 + __tmp149205 gx#current-expander-phi - _%phi140094%_))) - (_%g140102140112%_ - (lambda (_%g140103140109%_) + _%phi140131%_))) + (_%g140139140149%_ + (lambda (_%g140140140146%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140103140109%_)))) - (_%g140101140147%_ - (lambda (_%g140103140115%_) + _%g140140140146%_)))) + (_%g140138140184%_ + (lambda (_%g140140140152%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140103140115%_)) - (let ((_%e140105140117%_ + (gx#stx-pair? _%g140140140152%_)) + (let ((_%e140142140154%_ (let () (declare (not safe)) (gx#stx-e - _%g140103140115%_)))) - (let ((_%hd140106140120%_ + _%g140140140152%_)))) + (let ((_%hd140143140157%_ (let () (declare (not safe)) - (##car _%e140105140117%_))) - (_%tl140107140122%_ + (##car _%e140142140154%_))) + (_%tl140144140159%_ (let () (declare (not safe)) - (##cdr _%e140105140117%_)))) + (##cdr _%e140142140154%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140106140120%_)) + _%hd140143140157%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _%hd140106140120%_)) - ((lambda (_%L140125%_) - (let ((_%c-body140142%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_%$obj140139%_) - (not (eq? _%$obj140139%_ '#!void))) - _%L140125%_))) - (if _%block140096%_ + _%hd140143140157%_)) + ((lambda (_%L140162%_) + (let ((_%c-body140179%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (filter (lambda (_%$obj140176%_) + (not (eq? _%$obj140176%_ '#!void))) + _%L140162%_))) + (if _%block140133%_ (cons '%#begin-syntax (cons (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%block140096%_ + (cons _%block140133%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%c-body140142%_)) - (if (null? _%c-body140142%_) + _%c-body140179%_)) + (if (null? _%c-body140179%_) '#!void - (cons '%#begin-syntax _%c-body140142%_))))) - _%tl140107140122%_) - (_%g140102140112%_ _%g140103140115%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140102140112%_ - _%g140103140115%_)))) - (_%g140102140112%_ - _%g140103140115%_))))) - (_%g140101140147%_ _%compiled140099%_))) - _%tl140066140081%_))) - (_%g140061140071%_ _%g140062140074%_))))) - (_%g140060140150%_ _%stx140059%_)))) + (cons '%#begin-syntax _%c-body140179%_))))) + _%tl140144140159%_) + (_%g140139140149%_ _%g140140140152%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140139140149%_ + _%g140140140152%_)))) + (_%g140139140149%_ + _%g140140140152%_))))) + (_%g140138140184%_ _%compiled140136%_))) + _%tl140103140118%_))) + (_%g140098140108%_ _%g140099140111%_))))) + (_%g140097140187%_ _%stx140096%_)))) (define gxc#generate-meta-module% - (lambda (_%self139989%_ _%stx139990%_) + (lambda (_%self140026%_ _%stx140027%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139989%_ 'state))) - (let* ((_%g139992140006%_ - (lambda (_%g139993140003%_) + (let () (declare (not safe)) (slot-ref__0 _%self140026%_ 'state))) + (let* ((_%g140029140043%_ + (lambda (_%g140030140040%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139993140003%_)))) - (_%g139991140055%_ - (lambda (_%g139993140009%_) + _%g140030140040%_)))) + (_%g140028140092%_ + (lambda (_%g140030140046%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139993140009%_)) - (let ((_%e139996140011%_ + (gx#stx-pair? _%g140030140046%_)) + (let ((_%e140033140048%_ (let () (declare (not safe)) - (gx#stx-e _%g139993140009%_)))) - (let ((_%hd139997140014%_ + (gx#stx-e _%g140030140046%_)))) + (let ((_%hd140034140051%_ (let () (declare (not safe)) - (##car _%e139996140011%_))) - (_%tl139998140016%_ + (##car _%e140033140048%_))) + (_%tl140035140053%_ (let () (declare (not safe)) - (##cdr _%e139996140011%_)))) + (##cdr _%e140033140048%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139998140016%_)) - (let ((_%e139999140019%_ + (gx#stx-pair? _%tl140035140053%_)) + (let ((_%e140036140056%_ (let () (declare (not safe)) - (gx#stx-e _%tl139998140016%_)))) - (let ((_%hd140000140022%_ + (gx#stx-e _%tl140035140053%_)))) + (let ((_%hd140037140059%_ (let () (declare (not safe)) - (##car _%e139999140019%_))) - (_%tl140001140024%_ + (##car _%e140036140056%_))) + (_%tl140038140061%_ (let () (declare (not safe)) - (##cdr _%e139999140019%_)))) - ((lambda (_%L140027%_ _%L140028%_) - (let ((_%key140041%_ + (##cdr _%e140036140056%_)))) + ((lambda (_%L140064%_ _%L140065%_) + (let ((_%key140078%_ (let () (declare (not safe)) (gx#core-identifier-key - _%L140028%_)))) + _%L140065%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%key140041%_)) + (interned-symbol? _%key140078%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _%stx139990%_ - _%L140028%_ - _%key140041%_))) - (let* ((_%ctx140043%_ + _%stx140027%_ + _%L140065%_ + _%key140078%_))) + (let* ((_%ctx140080%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L140028%_))) - (_%code140046%_ - (let ((__tmp149169 + _%L140065%_))) + (_%code140083%_ + (let ((__tmp149206 (lambda () - (let ((__tmp149170 + (let ((__tmp149207 (##structure-ref - _%ctx140043%_ + _%ctx140080%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self139989%_ - __tmp149170))))) + _%self140026%_ + __tmp149207))))) (declare (not safe)) (__call-with-parameters - __tmp149169 + __tmp149206 gx#current-expander-context - _%ctx140043%_))) - (_%rt140048%_ - (let ((__tmp149171 + _%ctx140080%_))) + (_%rt140085%_ + (let ((__tmp149208 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-get - __tmp149171 - _%ctx140043%_))) - (_%loader140050%_ - (if _%rt140048%_ + __tmp149208 + _%ctx140080%_))) + (_%loader140087%_ + (if _%rt140085%_ (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'load-module '())) - (cons (cons '%#quote (cons _%rt140048%_ '())) + (cons (cons '%#quote (cons _%rt140085%_ '())) '()))) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%modid140052%_ + (_%modid140089%_ (let () (declare (not safe)) - (gx#stx-e _%L140028%_)))) + (gx#stx-e _%L140065%_)))) (gxc#meta-state-end-phi! (let () (declare (not safe)) (slot-ref__0 - _%self139989%_ + _%self140026%_ 'state))) (cons '%#module - (cons _%modid140052%_ - (cons _%code140046%_ - _%loader140050%_)))))) - _%tl140001140024%_ - _%hd140000140022%_))) - (_%g139992140006%_ _%g139993140009%_)))) - (_%g139992140006%_ _%g139993140009%_))))) - (_%g139991140055%_ _%stx139990%_)))) + (cons _%modid140089%_ + (cons _%code140083%_ + _%loader140087%_)))))) + _%tl140038140061%_ + _%hd140037140059%_))) + (_%g140029140043%_ _%g140030140046%_)))) + (_%g140029140043%_ _%g140030140046%_))))) + (_%g140028140092%_ _%stx140027%_)))) (define gxc#generate-meta-import-path - (lambda (_%ctx139976%_ _%context-chain139977%_) - (let _%lp139979%_ ((_%ctx139981%_ _%ctx139976%_) (_%path139982%_ '())) - (let ((_%super139984%_ - (##structure-ref _%ctx139981%_ '3 gx#phi-context::t '#f))) - (if (memq _%super139984%_ _%context-chain139977%_) + (lambda (_%ctx140013%_ _%context-chain140014%_) + (let _%lp140016%_ ((_%ctx140018%_ _%ctx140013%_) (_%path140019%_ '())) + (let ((_%super140021%_ + (##structure-ref _%ctx140018%_ '3 gx#phi-context::t '#f))) + (if (memq _%super140021%_ _%context-chain140014%_) (cons '#f (cons (car (##structure-ref - _%ctx139981%_ + _%ctx140018%_ '7 gx#module-context::t '#f)) - _%path139982%_)) + _%path140019%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%super139984%_ + _%super140021%_ 'gx#module-context::t)) - (_%lp139979%_ - _%super139984%_ + (_%lp140016%_ + _%super140021%_ (cons (car (##structure-ref - _%ctx139981%_ + _%ctx140018%_ '7 gx#module-context::t '#f)) - _%path139982%_)) - (cons (let ((__tmp149172 + _%path140019%_)) + (cons (let ((__tmp149209 (##structure-ref - _%ctx139981%_ + _%ctx140018%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149172)) - _%path139982%_))))))) + (make-symbol__1 '":" __tmp149209)) + _%path140019%_))))))) (define gxc#current-context-chain (lambda () - (let _%lp139969%_ ((_%ctx139971%_ + (let _%lp140006%_ ((_%ctx140008%_ (let () (declare (not safe)) (gx#current-expander-context))) - (_%r139972%_ '())) + (_%r140009%_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _%ctx139971%_ 'gx#module-context::t)) - (_%lp139969%_ + (##structure-instance-of? _%ctx140008%_ 'gx#module-context::t)) + (_%lp140006%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx139971%_ '3 '#f '#f)) - (cons _%ctx139971%_ _%r139972%_)) - _%r139972%_)))) + (##unchecked-structure-ref _%ctx140008%_ '3 '#f '#f)) + (cons _%ctx140008%_ _%r140009%_)) + _%r140009%_)))) (define gxc#generate-meta-import% - (lambda (_%self139732%_ _%stx139733%_) - (letrec* ((_%context-chain139735%_ (gxc#current-context-chain)) - (_%make-import-spec139736%_ - (lambda (_%in139905%_) - (let* ((_%in139906139918%_ _%in139905%_) - (_%E139908139922%_ + (lambda (_%self139769%_ _%stx139770%_) + (letrec* ((_%context-chain139772%_ (gxc#current-context-chain)) + (_%make-import-spec139773%_ + (lambda (_%in139942%_) + (let* ((_%in139943139955%_ _%in139942%_) + (_%E139945139959%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%in139906139918%_ + _%in139943139955%_ '((module-import (module-export src-ctx @@ -13153,390 +13153,390 @@ name phi)))) '#!void)) - (_%K139909139932%_ - (lambda (_%phi139925%_ - _%name139926%_ - _%src-name139927%_ - _%src-phi139928%_ - _%src-key139929%_ - _%src-ctx139930%_) - (cons _%phi139925%_ + (_%K139946139969%_ + (lambda (_%phi139962%_ + _%name139963%_ + _%src-name139964%_ + _%src-phi139965%_ + _%src-key139966%_ + _%src-ctx139967%_) + (cons _%phi139962%_ (cons (gxc#generate-runtime-identifier-key - _%name139926%_) - (cons _%src-phi139928%_ + _%name139963%_) + (cons _%src-phi139965%_ (cons (gxc#generate-runtime-identifier-key - _%src-name139927%_) + _%src-name139964%_) '()))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139906139918%_ + _%in139943139955%_ 'gx#module-import::t)) - (let ((_%e139910139935%_ + (let ((_%e139947139972%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139906139918%_ + _%in139943139955%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e139910139935%_ + _%e139947139972%_ 'gx#module-export::t)) - (let* ((_%e139913139938%_ + (let* ((_%e139950139975%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139910139935%_ + _%e139947139972%_ '1 '#f '#f))) - (_%src-ctx139941%_ _%e139913139938%_) - (_%e139914139943%_ + (_%src-ctx139978%_ _%e139950139975%_) + (_%e139951139980%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139910139935%_ + _%e139947139972%_ '2 '#f '#f))) - (_%src-key139946%_ _%e139914139943%_) - (_%e139915139948%_ + (_%src-key139983%_ _%e139951139980%_) + (_%e139952139985%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139910139935%_ + _%e139947139972%_ '3 '#f '#f))) - (_%src-phi139951%_ _%e139915139948%_) - (_%e139916139953%_ + (_%src-phi139988%_ _%e139952139985%_) + (_%e139953139990%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139910139935%_ + _%e139947139972%_ '4 '#f '#f))) - (_%src-name139956%_ _%e139916139953%_) - (_%e139911139958%_ + (_%src-name139993%_ _%e139953139990%_) + (_%e139948139995%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139906139918%_ + _%in139943139955%_ '2 '#f '#f))) - (_%name139961%_ _%e139911139958%_) - (_%e139912139963%_ + (_%name139998%_ _%e139948139995%_) + (_%e139949140000%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139906139918%_ + _%in139943139955%_ '3 '#f '#f))) - (_%phi139966%_ _%e139912139963%_)) - (_%K139909139932%_ - _%phi139966%_ - _%name139961%_ - _%src-name139956%_ - _%src-phi139951%_ - _%src-key139946%_ - _%src-ctx139941%_)) - (_%E139908139922%_))) - (_%E139908139922%_))))) - (_%make-import-path139737%_ - (lambda (_%ctx139903%_) + (_%phi140003%_ _%e139949140000%_)) + (_%K139946139969%_ + _%phi140003%_ + _%name139998%_ + _%src-name139993%_ + _%src-phi139988%_ + _%src-key139983%_ + _%src-ctx139978%_)) + (_%E139945139959%_))) + (_%E139945139959%_))))) + (_%make-import-path139774%_ + (lambda (_%ctx139940%_) (gxc#generate-meta-import-path - _%ctx139903%_ - _%context-chain139735%_))) - (_%make-import-spec-in139738%_ - (lambda (_%ctx139900%_ _%in139901%_) + _%ctx139940%_ + _%context-chain139772%_))) + (_%make-import-spec-in139775%_ + (lambda (_%ctx139937%_ _%in139938%_) (cons 'spec: - (cons (_%make-import-path139737%_ _%ctx139900%_) - (reverse _%in139901%_)))))) + (cons (_%make-import-path139774%_ _%ctx139937%_) + (reverse _%in139938%_)))))) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139732%_ 'state))) - (let* ((_%g139740139750%_ - (lambda (_%g139741139747%_) + (let () (declare (not safe)) (slot-ref__0 _%self139769%_ 'state))) + (let* ((_%g139777139787%_ + (lambda (_%g139778139784%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139741139747%_)))) - (_%g139739139897%_ - (lambda (_%g139741139753%_) + _%g139778139784%_)))) + (_%g139776139934%_ + (lambda (_%g139778139790%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139741139753%_)) - (let ((_%e139743139755%_ + (gx#stx-pair? _%g139778139790%_)) + (let ((_%e139780139792%_ (let () (declare (not safe)) - (gx#stx-e _%g139741139753%_)))) - (let ((_%hd139744139758%_ + (gx#stx-e _%g139778139790%_)))) + (let ((_%hd139781139795%_ (let () (declare (not safe)) - (##car _%e139743139755%_))) - (_%tl139745139760%_ + (##car _%e139780139792%_))) + (_%tl139782139797%_ (let () (declare (not safe)) - (##cdr _%e139743139755%_)))) - ((lambda (_%L139763%_) - (let _%lp139774%_ ((_%rest139776%_ _%L139763%_) - (_%current-src139777%_ '#f) - (_%current-in139778%_ '()) - (_%r139779%_ '())) - (let* ((_%rest139780139788%_ _%rest139776%_) - (_%else139782139798%_ + (##cdr _%e139780139792%_)))) + ((lambda (_%L139800%_) + (let _%lp139811%_ ((_%rest139813%_ _%L139800%_) + (_%current-src139814%_ '#f) + (_%current-in139815%_ '()) + (_%r139816%_ '())) + (let* ((_%rest139817139825%_ _%rest139813%_) + (_%else139819139835%_ (lambda () - (let ((_%r139796%_ - (if _%current-src139777%_ - (cons (_%make-import-spec-in139738%_ - _%current-src139777%_ - _%current-in139778%_) - _%r139779%_) - _%r139779%_))) + (let ((_%r139833%_ + (if _%current-src139814%_ + (cons (_%make-import-spec-in139775%_ + _%current-src139814%_ + _%current-in139815%_) + _%r139816%_) + _%r139816%_))) (cons '%#import - (reverse _%r139796%_))))) - (_%K139784139885%_ - (lambda (_%rest139801%_ _%in139802%_) + (reverse _%r139833%_))))) + (_%K139821139922%_ + (lambda (_%rest139838%_ _%in139839%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139802%_ + _%in139839%_ 'gx#module-import::t)) - (let* ((_%in139804139811%_ - _%in139802%_) - (_%E139806139815%_ + (let* ((_%in139841139848%_ + _%in139839%_) + (_%E139843139852%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in139804139811%_ + _%in139841139848%_ '((module-import (module-export src-ctx))))) '#!void)) - (_%K139807139823%_ - (lambda (_%src-ctx139818%_) - (if (eq? _%current-src139777%_ _%src-ctx139818%_) - (_%lp139774%_ - _%rest139801%_ - _%current-src139777%_ - (cons (_%make-import-spec139736%_ _%in139802%_) - _%current-in139778%_) - _%r139779%_) - (if _%current-src139777%_ - (_%lp139774%_ - _%rest139801%_ - _%src-ctx139818%_ - (cons (_%make-import-spec139736%_ _%in139802%_) '()) - (cons (_%make-import-spec-in139738%_ - _%current-src139777%_ - _%current-in139778%_) - _%r139779%_)) - (_%lp139774%_ - _%rest139801%_ - _%src-ctx139818%_ - (cons (_%make-import-spec139736%_ _%in139802%_) '()) - _%r139779%_))))) - (_%e139808139826%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%in139804139811%_ '1 '#f '#f)))) + (_%K139844139860%_ + (lambda (_%src-ctx139855%_) + (if (eq? _%current-src139814%_ _%src-ctx139855%_) + (_%lp139811%_ + _%rest139838%_ + _%current-src139814%_ + (cons (_%make-import-spec139773%_ _%in139839%_) + _%current-in139815%_) + _%r139816%_) + (if _%current-src139814%_ + (_%lp139811%_ + _%rest139838%_ + _%src-ctx139855%_ + (cons (_%make-import-spec139773%_ _%in139839%_) '()) + (cons (_%make-import-spec-in139775%_ + _%current-src139814%_ + _%current-in139815%_) + _%r139816%_)) + (_%lp139811%_ + _%rest139838%_ + _%src-ctx139855%_ + (cons (_%make-import-spec139773%_ _%in139839%_) '()) + _%r139816%_))))) + (_%e139845139863%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%in139841139848%_ '1 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e139808139826%_ + _%e139845139863%_ 'gx#module-export::t)) - (let* ((_%e139809139829%_ + (let* ((_%e139846139866%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%e139808139826%_ + _%e139845139863%_ '1 '#f '#f))) - (_%src-ctx139832%_ _%e139809139829%_)) - (_%K139807139823%_ _%src-ctx139832%_)) + (_%src-ctx139869%_ _%e139846139866%_)) + (_%K139844139860%_ _%src-ctx139869%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E139806139815%_))) + (_%E139843139852%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139802%_ + _%in139839%_ 'gx#import-set::t)) - (let* ((_%phi139835%_ + (let* ((_%phi139872%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139802%_ + _%in139839%_ '2 '#f '#f))) - (_%src139837%_ + (_%src139874%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139802%_ + _%in139839%_ '1 '#f '#f))) - (_%src-in139877%_ - (let* ((_%g139838139847%_ + (_%src-in139914%_ + (let* ((_%g139875139884%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%make-import-path139737%_ _%src139837%_)) - (_%E139841139851%_ + (_%make-import-path139774%_ _%src139874%_)) + (_%E139878139888%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g139838139847%_ + _%g139875139884%_ '([path]) '(path))) '#!void))) - (let ((_%K139843139867%_ - (lambda (_%path139865%_) _%path139865%_)) - (_%K139842139857%_ - (lambda (_%path139855%_) - (cons 'in: _%path139855%_)))) - (if (pair? _%g139838139847%_) - (let ((_%tl139845139872%_ + (let ((_%K139880139904%_ + (lambda (_%path139902%_) _%path139902%_)) + (_%K139879139894%_ + (lambda (_%path139892%_) + (cons 'in: _%path139892%_)))) + (if (pair? _%g139875139884%_) + (let ((_%tl139882139909%_ (let () (declare (not safe)) - (##cdr _%g139838139847%_))) - (_%hd139844139870%_ + (##cdr _%g139875139884%_))) + (_%hd139881139907%_ (let () (declare (not safe)) - (##car _%g139838139847%_)))) - (if (null? _%tl139845139872%_) - (let ((_%path139875%_ _%hd139844139870%_)) - (_%K139843139867%_ _%path139875%_)) - (let ((_%path139860%_ _%g139838139847%_)) - (_%K139842139857%_ _%path139860%_)))) - (let ((_%path139860%_ _%g139838139847%_)) - (_%K139842139857%_ _%path139860%_)))))) - (_%r139879%_ - (if _%current-src139777%_ - (cons (_%make-import-spec-in139738%_ - _%current-src139777%_ - _%current-in139778%_) - _%r139779%_) - _%r139779%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp139774%_ - _%rest139801%_ + (##car _%g139875139884%_)))) + (if (null? _%tl139882139909%_) + (let ((_%path139912%_ _%hd139881139907%_)) + (_%K139880139904%_ _%path139912%_)) + (let ((_%path139897%_ _%g139875139884%_)) + (_%K139879139894%_ _%path139897%_)))) + (let ((_%path139897%_ _%g139875139884%_)) + (_%K139879139894%_ _%path139897%_)))))) + (_%r139916%_ + (if _%current-src139814%_ + (cons (_%make-import-spec-in139775%_ + _%current-src139814%_ + _%current-in139815%_) + _%r139816%_) + _%r139816%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp139811%_ + _%rest139838%_ '#f '() - (cons (if (fxzero? _%phi139835%_) - _%src-in139877%_ + (cons (if (fxzero? _%phi139872%_) + _%src-in139914%_ (cons 'phi: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi139835%_ - (cons _%src-in139877%_ '())))) - _%r139879%_))) + (cons _%phi139872%_ + (cons _%src-in139914%_ '())))) + _%r139916%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _%in139802%_ + _%in139839%_ 'gx#module-context::t)) - (let ((_%r139883%_ - (if _%current-src139777%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (_%make-import-spec-in139738%_ - _%current-src139777%_ - _%current-in139778%_) - _%r139779%_) - _%r139779%_))) - (_%lp139774%_ - _%rest139801%_ + (let ((_%r139920%_ + (if _%current-src139814%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (_%make-import-spec-in139775%_ + _%current-src139814%_ + _%current-in139815%_) + _%r139816%_) + _%r139816%_))) + (_%lp139811%_ + _%rest139838%_ '#f '() (cons (cons 'runtime: - (_%make-import-path139737%_ _%in139802%_)) - _%r139883%_))) + (_%make-import-path139774%_ _%in139839%_)) + _%r139920%_))) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest139780139788%_) - (let ((_%hd139785139888%_ + (if (pair? _%rest139817139825%_) + (let ((_%hd139822139925%_ (let () (declare (not safe)) - (##car _%rest139780139788%_))) - (_%tl139786139890%_ + (##car _%rest139817139825%_))) + (_%tl139823139927%_ (let () (declare (not safe)) - (##cdr _%rest139780139788%_)))) - (let* ((_%in139893%_ - _%hd139785139888%_) - (_%rest139895%_ - _%tl139786139890%_)) - (_%K139784139885%_ - _%rest139895%_ - _%in139893%_))) - (_%else139782139798%_))))) - _%tl139745139760%_))) - (_%g139740139750%_ _%g139741139753%_))))) - (_%g139739139897%_ _%stx139733%_))))) + (##cdr _%rest139817139825%_)))) + (let* ((_%in139930%_ + _%hd139822139925%_) + (_%rest139932%_ + _%tl139823139927%_)) + (_%K139821139922%_ + _%rest139932%_ + _%in139930%_))) + (_%else139819139835%_))))) + _%tl139782139797%_))) + (_%g139777139787%_ _%g139778139790%_))))) + (_%g139776139934%_ _%stx139770%_))))) (define gxc#generate-meta-export% - (lambda (_%self139542%_ _%stx139543%_) - (letrec* ((_%context-chain139545%_ (gxc#current-context-chain)) - (_%make-import-path139546%_ - (lambda (_%ctx139730%_) + (lambda (_%self139579%_ _%stx139580%_) + (letrec* ((_%context-chain139582%_ (gxc#current-context-chain)) + (_%make-import-path139583%_ + (lambda (_%ctx139767%_) (gxc#generate-meta-import-path - _%ctx139730%_ - _%context-chain139545%_)))) - (let* ((_%g139548139558%_ - (lambda (_%g139549139555%_) + _%ctx139767%_ + _%context-chain139582%_)))) + (let* ((_%g139585139595%_ + (lambda (_%g139586139592%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139549139555%_)))) - (_%g139547139727%_ - (lambda (_%g139549139561%_) + _%g139586139592%_)))) + (_%g139584139764%_ + (lambda (_%g139586139598%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139549139561%_)) - (let ((_%e139551139563%_ + (gx#stx-pair? _%g139586139598%_)) + (let ((_%e139588139600%_ (let () (declare (not safe)) - (gx#stx-e _%g139549139561%_)))) - (let ((_%hd139552139566%_ + (gx#stx-e _%g139586139598%_)))) + (let ((_%hd139589139603%_ (let () (declare (not safe)) - (##car _%e139551139563%_))) - (_%tl139553139568%_ + (##car _%e139588139600%_))) + (_%tl139590139605%_ (let () (declare (not safe)) - (##cdr _%e139551139563%_)))) - ((lambda (_%L139571%_) - (let _%lp139582%_ ((_%rest139584%_ _%L139571%_) - (_%r139585%_ '())) - (let* ((_%rest139586139594%_ _%rest139584%_) - (_%else139588139602%_ + (##cdr _%e139588139600%_)))) + ((lambda (_%L139608%_) + (let _%lp139619%_ ((_%rest139621%_ _%L139608%_) + (_%r139622%_ '())) + (let* ((_%rest139623139631%_ _%rest139621%_) + (_%else139625139639%_ (lambda () (cons '%#export - (reverse _%r139585%_)))) - (_%K139590139715%_ - (lambda (_%rest139605%_ _%out139606%_) - (let* ((_%out139607139620%_ - _%out139606%_) - (_%E139610139624%_ + (reverse _%r139622%_)))) + (_%K139627139752%_ + (lambda (_%rest139642%_ _%out139643%_) + (let* ((_%out139644139657%_ + _%out139643%_) + (_%E139647139661%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%out139607139620%_ + _%out139644139657%_ '((module-export ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _ @@ -13546,491 +13546,491 @@ '((export-set src phi)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K139614139694%_ - (lambda (_%name139690%_ - _%phi139691%_ - _%key139692%_) - (_%lp139582%_ - _%rest139605%_ + (let ((_%K139651139731%_ + (lambda (_%name139727%_ + _%phi139728%_ + _%key139729%_) + (_%lp139619%_ + _%rest139642%_ (cons (cons 'spec: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi139691%_ + (cons _%phi139728%_ (cons (gxc#generate-runtime-identifier-key - _%key139692%_) + _%key139729%_) (cons (gxc#generate-runtime-identifier-key - _%name139690%_) + _%name139727%_) '())))) - _%r139585%_)))) + _%r139622%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K139611139674%_ - (lambda (_%phi139628%_ - _%src139629%_) - (let* ((_%out139669%_ - (if _%src139629%_ + (_%K139648139711%_ + (lambda (_%phi139665%_ + _%src139666%_) + (let* ((_%out139706%_ + (if _%src139666%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'import: - (cons (let* ((_%g139630139639%_ - (_%make-import-path139546%_ - _%src139629%_)) - (_%E139633139643%_ + (cons (let* ((_%g139667139676%_ + (_%make-import-path139583%_ + _%src139666%_)) + (_%E139670139680%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g139630139639%_ + _%g139667139676%_ '([path]) '(path))) '#!void))) - (let ((_%K139635139659%_ - (lambda (_%path139657%_) - _%path139657%_)) - (_%K139634139649%_ - (lambda (_%path139647%_) - (cons 'in: _%path139647%_)))) - (if (pair? _%g139630139639%_) - (let ((_%tl139637139664%_ + (let ((_%K139672139696%_ + (lambda (_%path139694%_) + _%path139694%_)) + (_%K139671139686%_ + (lambda (_%path139684%_) + (cons 'in: _%path139684%_)))) + (if (pair? _%g139667139676%_) + (let ((_%tl139674139701%_ (let () (declare (not safe)) - (##cdr _%g139630139639%_))) - (_%hd139636139662%_ + (##cdr _%g139667139676%_))) + (_%hd139673139699%_ (let () (declare (not safe)) - (##car _%g139630139639%_)))) - (if (null? _%tl139637139664%_) - (let ((_%path139667%_ - _%hd139636139662%_)) - (_%K139635139659%_ - _%path139667%_)) - (let ((_%path139652%_ - _%g139630139639%_)) - (_%K139634139649%_ - _%path139652%_)))) - (let ((_%path139652%_ - _%g139630139639%_)) - (_%K139634139649%_ - _%path139652%_))))) + (##car _%g139667139676%_)))) + (if (null? _%tl139674139701%_) + (let ((_%path139704%_ + _%hd139673139699%_)) + (_%K139672139696%_ + _%path139704%_)) + (let ((_%path139689%_ + _%g139667139676%_)) + (_%K139671139686%_ + _%path139689%_)))) + (let ((_%path139689%_ + _%g139667139676%_)) + (_%K139671139686%_ + _%path139689%_))))) '())) '#t)) - (_%out139671%_ - (if (fxzero? _%phi139628%_) - _%out139669%_ + (_%out139708%_ + (if (fxzero? _%phi139665%_) + _%out139706%_ (cons 'phi: - (cons _%phi139628%_ - (cons _%out139669%_ '())))))) - (_%lp139582%_ - _%rest139605%_ - (cons _%out139671%_ _%r139585%_)))))) + (cons _%phi139665%_ + (cons _%out139706%_ '())))))) + (_%lp139619%_ + _%rest139642%_ + (cons _%out139708%_ _%r139622%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match139609139687%_ + (let ((_%try-match139646139724%_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out139607139620%_ + _%out139644139657%_ 'gx#export-set::t)) - (let* ((_%e139612139677%_ + (let* ((_%e139649139714%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%out139607139620%_ + _%out139644139657%_ '1 '#f '#f))) - (_%e139613139682%_ + (_%e139650139719%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139607139620%_ + _%out139644139657%_ '2 '#f '#f)))) - (let ((_%src139680%_ _%e139612139677%_) - (_%phi139685%_ _%e139613139682%_)) - (_%K139611139674%_ _%phi139685%_ _%src139680%_))) - (_%E139610139624%_))))) + (let ((_%src139717%_ _%e139649139714%_) + (_%phi139722%_ _%e139650139719%_)) + (_%K139648139711%_ _%phi139722%_ _%src139717%_))) + (_%E139647139661%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out139607139620%_ + _%out139644139657%_ 'gx#module-export::t)) - (let* ((_%e139615139697%_ + (let* ((_%e139652139734%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%out139607139620%_ + _%out139644139657%_ '1 '#f '#f))) - (_%e139616139700%_ + (_%e139653139737%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139607139620%_ + _%out139644139657%_ '2 '#f '#f))) - (_%e139617139705%_ + (_%e139654139742%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139607139620%_ + _%out139644139657%_ '3 '#f '#f))) - (_%e139618139710%_ + (_%e139655139747%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139607139620%_ + _%out139644139657%_ '4 '#f '#f)))) - (let ((_%key139703%_ _%e139616139700%_) - (_%phi139708%_ _%e139617139705%_) - (_%name139713%_ _%e139618139710%_)) - (_%K139614139694%_ - _%name139713%_ - _%phi139708%_ - _%key139703%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match139609139687%_)))))))) - (if (pair? _%rest139586139594%_) - (let ((_%hd139591139718%_ + (let ((_%key139740%_ _%e139653139737%_) + (_%phi139745%_ _%e139654139742%_) + (_%name139750%_ _%e139655139747%_)) + (_%K139651139731%_ + _%name139750%_ + _%phi139745%_ + _%key139740%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match139646139724%_)))))))) + (if (pair? _%rest139623139631%_) + (let ((_%hd139628139755%_ (let () (declare (not safe)) - (##car _%rest139586139594%_))) - (_%tl139592139720%_ + (##car _%rest139623139631%_))) + (_%tl139629139757%_ (let () (declare (not safe)) - (##cdr _%rest139586139594%_)))) - (let* ((_%out139723%_ - _%hd139591139718%_) - (_%rest139725%_ - _%tl139592139720%_)) - (_%K139590139715%_ - _%rest139725%_ - _%out139723%_))) - (_%else139588139602%_))))) - _%tl139553139568%_))) - (_%g139548139558%_ _%g139549139561%_))))) - (_%g139547139727%_ _%stx139543%_))))) + (##cdr _%rest139623139631%_)))) + (let* ((_%out139760%_ + _%hd139628139755%_) + (_%rest139762%_ + _%tl139629139757%_)) + (_%K139627139752%_ + _%rest139762%_ + _%out139760%_))) + (_%else139625139639%_))))) + _%tl139590139605%_))) + (_%g139585139595%_ _%g139586139598%_))))) + (_%g139584139764%_ _%stx139580%_))))) (define gxc#generate-meta-provide% - (lambda (_%self139503%_ _%stx139504%_) + (lambda (_%self139540%_ _%stx139541%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139503%_ 'state))) - (let* ((_%g139506139516%_ - (lambda (_%g139507139513%_) + (let () (declare (not safe)) (slot-ref__0 _%self139540%_ 'state))) + (let* ((_%g139543139553%_ + (lambda (_%g139544139550%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139507139513%_)))) - (_%g139505139539%_ - (lambda (_%g139507139519%_) + _%g139544139550%_)))) + (_%g139542139576%_ + (lambda (_%g139544139556%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139507139519%_)) - (let ((_%e139509139521%_ + (gx#stx-pair? _%g139544139556%_)) + (let ((_%e139546139558%_ (let () (declare (not safe)) - (gx#stx-e _%g139507139519%_)))) - (let ((_%hd139510139524%_ + (gx#stx-e _%g139544139556%_)))) + (let ((_%hd139547139561%_ (let () (declare (not safe)) - (##car _%e139509139521%_))) - (_%tl139511139526%_ + (##car _%e139546139558%_))) + (_%tl139548139563%_ (let () (declare (not safe)) - (##cdr _%e139509139521%_)))) - ((lambda (_%L139529%_) + (##cdr _%e139546139558%_)))) + ((lambda (_%L139566%_) (cons '%#provide (map gxc#generate-runtime-identifier - _%L139529%_))) - _%tl139511139526%_))) - (_%g139506139516%_ _%g139507139519%_))))) - (_%g139505139539%_ _%stx139504%_)))) + _%L139566%_))) + _%tl139548139563%_))) + (_%g139543139553%_ _%g139544139556%_))))) + (_%g139542139576%_ _%stx139541%_)))) (define gxc#generate-meta-extern% - (lambda (_%self139374%_ _%stx139375%_) - (letrec ((_%generate1139377%_ - (lambda (_%id139498%_ _%eid139499%_) - (let ((_%eid139501%_ + (lambda (_%self139411%_ _%stx139412%_) + (letrec ((_%generate1139414%_ + (lambda (_%id139535%_ _%eid139536%_) + (let ((_%eid139538%_ (let () (declare (not safe)) - (gx#stx-e _%eid139499%_)))) + (gx#stx-e _%eid139536%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%eid139501%_)) + (interned-symbol? _%eid139538%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _%stx139375%_ - _%eid139501%_))) - (cons (gxc#generate-runtime-identifier _%id139498%_) - (cons _%eid139501%_ '())))))) - (let* ((_%g139379139407%_ - (lambda (_%g139380139404%_) + _%stx139412%_ + _%eid139538%_))) + (cons (gxc#generate-runtime-identifier _%id139535%_) + (cons _%eid139538%_ '())))))) + (let* ((_%g139416139444%_ + (lambda (_%g139417139441%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139380139404%_)))) - (_%g139378139495%_ - (lambda (_%g139380139410%_) + _%g139417139441%_)))) + (_%g139415139532%_ + (lambda (_%g139417139447%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139380139410%_)) - (let ((_%e139383139412%_ + (gx#stx-pair? _%g139417139447%_)) + (let ((_%e139420139449%_ (let () (declare (not safe)) - (gx#stx-e _%g139380139410%_)))) - (let ((_%hd139384139415%_ + (gx#stx-e _%g139417139447%_)))) + (let ((_%hd139421139452%_ (let () (declare (not safe)) - (##car _%e139383139412%_))) - (_%tl139385139417%_ + (##car _%e139420139449%_))) + (_%tl139422139454%_ (let () (declare (not safe)) - (##cdr _%e139383139412%_)))) + (##cdr _%e139420139449%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl139385139417%_)) - (let ((_g149173_ + (gx#stx-pair/null? _%tl139422139454%_)) + (let ((_g149210_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl139385139417%_ + _%tl139422139454%_ '0)))) (begin - (let ((_g149174_ + (let ((_g149211_ (let () (declare (not safe)) - (if (##values? _g149173_) - (##vector-length _g149173_) + (if (##values? _g149210_) + (##vector-length _g149210_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149174_ 2))) + (##fx= _g149211_ 2))) (error "Context expects 2 values" - _g149174_))) - (let ((_%target139386139420%_ + _g149211_))) + (let ((_%target139423139457%_ (let () (declare (not safe)) - (##vector-ref _g149173_ 0))) - (_%tl139388139422%_ + (##vector-ref _g149210_ 0))) + (_%tl139425139459%_ (let () (declare (not safe)) - (##vector-ref _g149173_ 1)))) + (##vector-ref _g149210_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139388139422%_)) - (letrec ((_%loop139389139425%_ - (lambda (_%hd139387139428%_ - _%eid139393139430%_ - _%id139394139432%_) + (gx#stx-null? _%tl139425139459%_)) + (letrec ((_%loop139426139462%_ + (lambda (_%hd139424139465%_ + _%eid139430139467%_ + _%id139431139469%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd139387139428%_)) - (let ((_%e139390139435%_ + _%hd139424139465%_)) + (let ((_%e139427139472%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd139387139428%_)))) - (let ((_%lp-hd139391139438%_ + (gx#stx-e _%hd139424139465%_)))) + (let ((_%lp-hd139428139475%_ (let () (declare (not safe)) - (##car _%e139390139435%_))) - (_%lp-tl139392139440%_ + (##car _%e139427139472%_))) + (_%lp-tl139429139477%_ (let () (declare (not safe)) - (##cdr _%e139390139435%_)))) + (##cdr _%e139427139472%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd139391139438%_)) - (let ((_%e139397139443%_ + (gx#stx-pair? _%lp-hd139428139475%_)) + (let ((_%e139434139480%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd139391139438%_)))) - (let ((_%hd139398139446%_ + (gx#stx-e _%lp-hd139428139475%_)))) + (let ((_%hd139435139483%_ (let () (declare (not safe)) - (##car _%e139397139443%_))) - (_%tl139399139448%_ + (##car _%e139434139480%_))) + (_%tl139436139485%_ (let () (declare (not safe)) - (##cdr _%e139397139443%_)))) + (##cdr _%e139434139480%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139399139448%_)) - (let ((_%e139400139451%_ + (gx#stx-pair? _%tl139436139485%_)) + (let ((_%e139437139488%_ (let () (declare (not safe)) - (gx#stx-e _%tl139399139448%_)))) - (let ((_%hd139401139454%_ + (gx#stx-e _%tl139436139485%_)))) + (let ((_%hd139438139491%_ (let () (declare (not safe)) - (##car _%e139400139451%_))) - (_%tl139402139456%_ + (##car _%e139437139488%_))) + (_%tl139439139493%_ (let () (declare (not safe)) - (##cdr _%e139400139451%_)))) + (##cdr _%e139437139488%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139402139456%_)) - (_%loop139389139425%_ - _%lp-tl139392139440%_ - (cons _%hd139401139454%_ - _%eid139393139430%_) - (cons _%hd139398139446%_ - _%id139394139432%_)) - (_%g139379139407%_ - _%g139380139410%_)))) - (_%g139379139407%_ _%g139380139410%_)))) - (_%g139379139407%_ _%g139380139410%_)))) - (let ((_%eid139395139459%_ (reverse _%eid139393139430%_)) - (_%id139396139461%_ (reverse _%id139394139432%_))) - ((lambda (_%L139464%_ _%L139465%_) + (gx#stx-null? _%tl139439139493%_)) + (_%loop139426139462%_ + _%lp-tl139429139477%_ + (cons _%hd139438139491%_ + _%eid139430139467%_) + (cons _%hd139435139483%_ + _%id139431139469%_)) + (_%g139416139444%_ + _%g139417139447%_)))) + (_%g139416139444%_ _%g139417139447%_)))) + (_%g139416139444%_ _%g139417139447%_)))) + (let ((_%eid139432139496%_ (reverse _%eid139430139467%_)) + (_%id139433139498%_ (reverse _%id139431139469%_))) + ((lambda (_%L139501%_ _%L139502%_) (cons '%#extern - (map _%generate1139377%_ - (let ((__tmp149175 - (lambda (_%g139480139483%_ - _%g139481139485%_) - (cons _%g139480139483%_ - _%g139481139485%_)))) + (map _%generate1139414%_ + (let ((__tmp149212 + (lambda (_%g139517139520%_ + _%g139518139522%_) + (cons _%g139517139520%_ + _%g139518139522%_)))) (declare (not safe)) - (__foldr1 __tmp149175 '() _%L139465%_)) - (let ((__tmp149176 - (lambda (_%g139487139490%_ - _%g139488139492%_) - (cons _%g139487139490%_ - _%g139488139492%_)))) + (__foldr1 __tmp149212 '() _%L139502%_)) + (let ((__tmp149213 + (lambda (_%g139524139527%_ + _%g139525139529%_) + (cons _%g139524139527%_ + _%g139525139529%_)))) (declare (not safe)) - (__foldr1 __tmp149176 '() _%L139464%_))))) - _%eid139395139459%_ - _%id139396139461%_)))))) + (__foldr1 __tmp149213 '() _%L139501%_))))) + _%eid139432139496%_ + _%id139433139498%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop139389139425%_ - _%target139386139420%_ + (_%loop139426139462%_ + _%target139423139457%_ '() '())) - (_%g139379139407%_ - _%g139380139410%_))))) - (_%g139379139407%_ _%g139380139410%_)))) - (_%g139379139407%_ _%g139380139410%_))))) - (_%g139378139495%_ _%stx139375%_))))) + (_%g139416139444%_ + _%g139417139447%_))))) + (_%g139416139444%_ _%g139417139447%_)))) + (_%g139416139444%_ _%g139417139447%_))))) + (_%g139415139532%_ _%stx139412%_))))) (define gxc#generate-meta-define-values% - (lambda (_%self139164%_ _%stx139165%_) - (letrec ((_%generate1139167%_ - (lambda (_%id139369%_) - (let ((_%eid139371%_ + (lambda (_%self139201%_ _%stx139202%_) + (letrec ((_%generate1139204%_ + (lambda (_%id139406%_) + (let ((_%eid139408%_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%id139369%_))) - (_%ident139372%_ - (gxc#generate-runtime-identifier _%id139369%_))) + (gxc#generate-runtime-binding-id _%id139406%_))) + (_%ident139409%_ + (gxc#generate-runtime-identifier _%id139406%_))) (cons '%#define-runtime - (cons _%ident139372%_ (cons _%eid139371%_ '())))))) - (_%generate*139168%_ - (lambda (_%all139337%_) - (let* ((_%all139338139346%_ _%all139337%_) - (_%else139340139354%_ - (lambda () (cons '%#begin _%all139337%_))) - (_%K139342139359%_ - (lambda (_%one139357%_) _%one139357%_))) - (if (pair? _%all139338139346%_) - (let ((_%hd139343139362%_ + (cons _%ident139409%_ (cons _%eid139408%_ '())))))) + (_%generate*139205%_ + (lambda (_%all139374%_) + (let* ((_%all139375139383%_ _%all139374%_) + (_%else139377139391%_ + (lambda () (cons '%#begin _%all139374%_))) + (_%K139379139396%_ + (lambda (_%one139394%_) _%one139394%_))) + (if (pair? _%all139375139383%_) + (let ((_%hd139380139399%_ (let () (declare (not safe)) - (##car _%all139338139346%_))) - (_%tl139344139364%_ + (##car _%all139375139383%_))) + (_%tl139381139401%_ (let () (declare (not safe)) - (##cdr _%all139338139346%_)))) - (let ((_%one139367%_ _%hd139343139362%_)) - (if (null? _%tl139344139364%_) - (_%K139342139359%_ _%one139367%_) - (_%else139340139354%_)))) - (_%else139340139354%_)))))) - (let* ((_%g139170139187%_ - (lambda (_%g139171139184%_) + (##cdr _%all139375139383%_)))) + (let ((_%one139404%_ _%hd139380139399%_)) + (if (null? _%tl139381139401%_) + (_%K139379139396%_ _%one139404%_) + (_%else139377139391%_)))) + (_%else139377139391%_)))))) + (let* ((_%g139207139224%_ + (lambda (_%g139208139221%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139171139184%_)))) - (_%g139169139334%_ - (lambda (_%g139171139190%_) + _%g139208139221%_)))) + (_%g139206139371%_ + (lambda (_%g139208139227%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139171139190%_)) - (let ((_%e139174139192%_ + (gx#stx-pair? _%g139208139227%_)) + (let ((_%e139211139229%_ (let () (declare (not safe)) - (gx#stx-e _%g139171139190%_)))) - (let ((_%hd139175139195%_ + (gx#stx-e _%g139208139227%_)))) + (let ((_%hd139212139232%_ (let () (declare (not safe)) - (##car _%e139174139192%_))) - (_%tl139176139197%_ + (##car _%e139211139229%_))) + (_%tl139213139234%_ (let () (declare (not safe)) - (##cdr _%e139174139192%_)))) + (##cdr _%e139211139229%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139176139197%_)) - (let ((_%e139177139200%_ + (gx#stx-pair? _%tl139213139234%_)) + (let ((_%e139214139237%_ (let () (declare (not safe)) - (gx#stx-e _%tl139176139197%_)))) - (let ((_%hd139178139203%_ + (gx#stx-e _%tl139213139234%_)))) + (let ((_%hd139215139240%_ (let () (declare (not safe)) - (##car _%e139177139200%_))) - (_%tl139179139205%_ + (##car _%e139214139237%_))) + (_%tl139216139242%_ (let () (declare (not safe)) - (##cdr _%e139177139200%_)))) + (##cdr _%e139214139237%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139179139205%_)) - (let ((_%e139180139208%_ + (gx#stx-pair? _%tl139216139242%_)) + (let ((_%e139217139245%_ (let () (declare (not safe)) (gx#stx-e - _%tl139179139205%_)))) - (let ((_%hd139181139211%_ + _%tl139216139242%_)))) + (let ((_%hd139218139248%_ (let () (declare (not safe)) - (##car _%e139180139208%_))) - (_%tl139182139213%_ + (##car _%e139217139245%_))) + (_%tl139219139250%_ (let () (declare (not safe)) - (##cdr _%e139180139208%_)))) + (##cdr _%e139217139245%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139182139213%_)) - ((lambda (_%L139216%_ - _%L139217%_) - (let _%lp139233%_ ((_%rest139235%_ + _%tl139219139250%_)) + ((lambda (_%L139253%_ + _%L139254%_) + (let _%lp139270%_ ((_%rest139272%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L139217%_) - (_%r139236%_ '())) + _%L139254%_) + (_%r139273%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx148912148913%_ - _%rest139235%_) - (_%g139241139258%_ + (let* ((_%__stx148949148950%_ + _%rest139272%_) + (_%g139278139295%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14038,160 +14038,160 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148912148913%_))))) - (let ((_%__kont148914148915%_ - (lambda (_%L139321%_) - (_%lp139233%_ _%L139321%_ _%r139236%_))) - (_%__kont148916148917%_ - (lambda (_%L139294%_ _%L139295%_) - (_%lp139233%_ - _%L139294%_ - (cons (_%generate1139167%_ _%L139295%_) - _%r139236%_)))) - (_%__kont148918148919%_ - (lambda (_%L139270%_) - (_%generate*139168%_ - (let ((__tmp149177 - (cons (_%generate1139167%_ _%L139270%_) '()))) + _%__stx148949148950%_))))) + (let ((_%__kont148951148952%_ + (lambda (_%L139358%_) + (_%lp139270%_ _%L139358%_ _%r139273%_))) + (_%__kont148953148954%_ + (lambda (_%L139331%_ _%L139332%_) + (_%lp139270%_ + _%L139331%_ + (cons (_%generate1139204%_ _%L139332%_) + _%r139273%_)))) + (_%__kont148955148956%_ + (lambda (_%L139307%_) + (_%generate*139205%_ + (let ((__tmp149214 + (cons (_%generate1139204%_ _%L139307%_) '()))) (declare (not safe)) - (__foldl1 cons __tmp149177 _%r139236%_))))) - (_%__kont148920148921%_ - (lambda () (_%generate*139168%_ (reverse _%r139236%_))))) - (let ((_%g139239139281%_ + (__foldl1 cons __tmp149214 _%r139273%_))))) + (_%__kont148957148958%_ + (lambda () (_%generate*139205%_ (reverse _%r139273%_))))) + (let ((_%g139276139318%_ (lambda () - (let ((_%L139270%_ _%__stx148912148913%_)) + (let ((_%L139307%_ _%__stx148949148950%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L139270%_)) - (_%__kont148918148919%_ _%L139270%_) - (_%__kont148920148921%_)))))) + (gx#identifier? _%L139307%_)) + (_%__kont148955148956%_ _%L139307%_) + (_%__kont148957148958%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148912148913%_)) - (let ((_%e139244139310%_ + (gx#stx-pair? _%__stx148949148950%_)) + (let ((_%e139281139347%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148912148913%_)))) - (let ((_%tl139246139315%_ + (gx#stx-e _%__stx148949148950%_)))) + (let ((_%tl139283139352%_ (let () (declare (not safe)) - (##cdr _%e139244139310%_))) - (_%hd139245139313%_ + (##cdr _%e139281139347%_))) + (_%hd139282139350%_ (let () (declare (not safe)) - (##car _%e139244139310%_)))) + (##car _%e139281139347%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd139245139313%_)) - (let ((_%e139247139318%_ + (gx#stx-datum? _%hd139282139350%_)) + (let ((_%e139284139355%_ (let () (declare (not safe)) - (gx#stx-e _%hd139245139313%_)))) - (if (equal? _%e139247139318%_ '#f) - (_%__kont148914148915%_ - _%tl139246139315%_) - (_%__kont148916148917%_ - _%tl139246139315%_ - _%hd139245139313%_))) - (_%__kont148916148917%_ - _%tl139246139315%_ - _%hd139245139313%_)))) - (let () (declare (not safe)) (_%g139239139281%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139181139211%_ - _%hd139178139203%_) - (_%g139170139187%_ - _%g139171139190%_)))) - (_%g139170139187%_ - _%g139171139190%_)))) - (_%g139170139187%_ _%g139171139190%_)))) - (_%g139170139187%_ _%g139171139190%_))))) - (_%g139169139334%_ _%stx139165%_))))) + (gx#stx-e _%hd139282139350%_)))) + (if (equal? _%e139284139355%_ '#f) + (_%__kont148951148952%_ + _%tl139283139352%_) + (_%__kont148953148954%_ + _%tl139283139352%_ + _%hd139282139350%_))) + (_%__kont148953148954%_ + _%tl139283139352%_ + _%hd139282139350%_)))) + (let () (declare (not safe)) (_%g139276139318%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd139218139248%_ + _%hd139215139240%_) + (_%g139207139224%_ + _%g139208139227%_)))) + (_%g139207139224%_ + _%g139208139227%_)))) + (_%g139207139224%_ _%g139208139227%_)))) + (_%g139207139224%_ _%g139208139227%_))))) + (_%g139206139371%_ _%stx139202%_))))) (define gxc#generate-meta-define-syntax% - (lambda (_%self139061%_ _%stx139062%_) - (let* ((_%g139064139081%_ - (lambda (_%g139065139078%_) + (lambda (_%self139098%_ _%stx139099%_) + (let* ((_%g139101139118%_ + (lambda (_%g139102139115%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139065139078%_)))) - (_%g139063139161%_ - (lambda (_%g139065139084%_) + _%g139102139115%_)))) + (_%g139100139198%_ + (lambda (_%g139102139121%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139065139084%_)) - (let ((_%e139068139086%_ + (gx#stx-pair? _%g139102139121%_)) + (let ((_%e139105139123%_ (let () (declare (not safe)) - (gx#stx-e _%g139065139084%_)))) - (let ((_%hd139069139089%_ + (gx#stx-e _%g139102139121%_)))) + (let ((_%hd139106139126%_ (let () (declare (not safe)) - (##car _%e139068139086%_))) - (_%tl139070139091%_ + (##car _%e139105139123%_))) + (_%tl139107139128%_ (let () (declare (not safe)) - (##cdr _%e139068139086%_)))) + (##cdr _%e139105139123%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139070139091%_)) - (let ((_%e139071139094%_ + (gx#stx-pair? _%tl139107139128%_)) + (let ((_%e139108139131%_ (let () (declare (not safe)) - (gx#stx-e _%tl139070139091%_)))) - (let ((_%hd139072139097%_ + (gx#stx-e _%tl139107139128%_)))) + (let ((_%hd139109139134%_ (let () (declare (not safe)) - (##car _%e139071139094%_))) - (_%tl139073139099%_ + (##car _%e139108139131%_))) + (_%tl139110139136%_ (let () (declare (not safe)) - (##cdr _%e139071139094%_)))) + (##cdr _%e139108139131%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139073139099%_)) - (let ((_%e139074139102%_ + (gx#stx-pair? _%tl139110139136%_)) + (let ((_%e139111139139%_ (let () (declare (not safe)) - (gx#stx-e _%tl139073139099%_)))) - (let ((_%hd139075139105%_ + (gx#stx-e _%tl139110139136%_)))) + (let ((_%hd139112139142%_ (let () (declare (not safe)) - (##car _%e139074139102%_))) - (_%tl139076139107%_ + (##car _%e139111139139%_))) + (_%tl139113139144%_ (let () (declare (not safe)) - (##cdr _%e139074139102%_)))) + (##cdr _%e139111139139%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139076139107%_)) - ((lambda (_%L139110%_ - _%L139111%_) - (let* ((_%eid139126%_ + _%tl139113139144%_)) + ((lambda (_%L139147%_ + _%L139148%_) + (let* ((_%eid139163%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L139111%_))) - (_%phi139128%_ - (let ((__tmp149178 + _%L139148%_))) + (_%phi139165%_ + (let ((__tmp149215 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp149178 '1))) - (_%block139130%_ + (##fx+ __tmp149215 '1))) + (_%block139167%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self139061%_ 'state)) - _%phi139128%_))) + (slot-ref__0 _%self139098%_ 'state)) + _%phi139165%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g139133139140%_ - (lambda (_%g139134139137%_) + (let* ((_%g139170139177%_ + (lambda (_%g139171139174%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14199,24 +14199,24 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139134139137%_)))) - (_%g139132139158%_ - (lambda (_%g139134139143%_) - ((lambda (_%L139145%_) + _%g139171139174%_)))) + (_%g139169139195%_ + (lambda (_%g139171139180%_) + ((lambda (_%L139182%_) (gxc#meta-state-add-phi! (let () (declare (not safe)) - (slot-ref__0 _%self139061%_ 'state)) - _%phi139128%_ + (slot-ref__0 _%self139098%_ 'state)) + _%phi139165%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime)) - (cons _%L139145%_ (cons _%L139110%_ '()))))) - _%g139134139143%_)))) + (cons _%L139182%_ (cons _%L139147%_ '()))))) + _%g139171139180%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139132139158%_ - _%eid139126%_)) - (if _%block139130%_ + (_%g139169139195%_ + _%eid139163%_)) + (if _%block139167%_ (cons '%#begin (cons (cons '%#begin-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14225,7 +14225,7 @@ (cons 'load-module '())) (cons (cons '%#quote - (cons _%block139130%_ + (cons _%block139167%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) @@ -14233,129 +14233,129 @@ '())) (cons (cons '%#define-syntax (cons (gxc#generate-runtime-identifier - _%L139111%_) - (cons _%eid139126%_ '()))) + _%L139148%_) + (cons _%eid139163%_ '()))) '()))) (cons '%#define-syntax - (cons (gxc#generate-runtime-identifier _%L139111%_) - (cons _%eid139126%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139075139105%_ - _%hd139072139097%_) - (_%g139064139081%_ - _%g139065139084%_)))) - (_%g139064139081%_ _%g139065139084%_)))) - (_%g139064139081%_ _%g139065139084%_)))) - (_%g139064139081%_ _%g139065139084%_))))) - (_%g139063139161%_ _%stx139062%_)))) + (cons (gxc#generate-runtime-identifier _%L139148%_) + (cons _%eid139163%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd139112139142%_ + _%hd139109139134%_) + (_%g139101139118%_ + _%g139102139121%_)))) + (_%g139101139118%_ _%g139102139121%_)))) + (_%g139101139118%_ _%g139102139121%_)))) + (_%g139101139118%_ _%g139102139121%_))))) + (_%g139100139198%_ _%stx139099%_)))) (define gxc#generate-meta-define-alias% - (lambda (_%self138993%_ _%stx138994%_) - (let* ((_%g138996139013%_ - (lambda (_%g138997139010%_) + (lambda (_%self139030%_ _%stx139031%_) + (let* ((_%g139033139050%_ + (lambda (_%g139034139047%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138997139010%_)))) - (_%g138995139058%_ - (lambda (_%g138997139016%_) + _%g139034139047%_)))) + (_%g139032139095%_ + (lambda (_%g139034139053%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138997139016%_)) - (let ((_%e139000139018%_ + (gx#stx-pair? _%g139034139053%_)) + (let ((_%e139037139055%_ (let () (declare (not safe)) - (gx#stx-e _%g138997139016%_)))) - (let ((_%hd139001139021%_ + (gx#stx-e _%g139034139053%_)))) + (let ((_%hd139038139058%_ (let () (declare (not safe)) - (##car _%e139000139018%_))) - (_%tl139002139023%_ + (##car _%e139037139055%_))) + (_%tl139039139060%_ (let () (declare (not safe)) - (##cdr _%e139000139018%_)))) + (##cdr _%e139037139055%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139002139023%_)) - (let ((_%e139003139026%_ + (gx#stx-pair? _%tl139039139060%_)) + (let ((_%e139040139063%_ (let () (declare (not safe)) - (gx#stx-e _%tl139002139023%_)))) - (let ((_%hd139004139029%_ + (gx#stx-e _%tl139039139060%_)))) + (let ((_%hd139041139066%_ (let () (declare (not safe)) - (##car _%e139003139026%_))) - (_%tl139005139031%_ + (##car _%e139040139063%_))) + (_%tl139042139068%_ (let () (declare (not safe)) - (##cdr _%e139003139026%_)))) + (##cdr _%e139040139063%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139005139031%_)) - (let ((_%e139006139034%_ + (gx#stx-pair? _%tl139042139068%_)) + (let ((_%e139043139071%_ (let () (declare (not safe)) - (gx#stx-e _%tl139005139031%_)))) - (let ((_%hd139007139037%_ + (gx#stx-e _%tl139042139068%_)))) + (let ((_%hd139044139074%_ (let () (declare (not safe)) - (##car _%e139006139034%_))) - (_%tl139008139039%_ + (##car _%e139043139071%_))) + (_%tl139045139076%_ (let () (declare (not safe)) - (##cdr _%e139006139034%_)))) + (##cdr _%e139043139071%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139008139039%_)) - ((lambda (_%L139042%_ - _%L139043%_) + _%tl139045139076%_)) + ((lambda (_%L139079%_ + _%L139080%_) (cons '%#define-alias (cons (gxc#generate-runtime-identifier - _%L139043%_) + _%L139080%_) (cons (gxc#generate-runtime-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L139042%_) + _%L139079%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139007139037%_ - _%hd139004139029%_) - (_%g138996139013%_ - _%g138997139016%_)))) - (_%g138996139013%_ _%g138997139016%_)))) - (_%g138996139013%_ _%g138997139016%_)))) - (_%g138996139013%_ _%g138997139016%_))))) - (_%g138995139058%_ _%stx138994%_)))) + _%hd139044139074%_ + _%hd139041139066%_) + (_%g139033139050%_ + _%g139034139053%_)))) + (_%g139033139050%_ _%g139034139053%_)))) + (_%g139033139050%_ _%g139034139053%_)))) + (_%g139033139050%_ _%g139034139053%_))))) + (_%g139032139095%_ _%stx139031%_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_%self138990%_ _%stx138991%_) + (lambda (_%self139027%_ _%stx139028%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self138990%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self139027%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx138991%_) - (gxc#generate-meta-define-values% _%self138990%_ _%stx138991%_))) + _%stx139028%_) + (gxc#generate-meta-define-values% _%self139027%_ _%stx139028%_))) (define gxc#generate-meta-phi-expr - (lambda (_%self138987%_ _%stx138988%_) + (lambda (_%self139024%_ _%stx139025%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self138987%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self139024%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx138988%_) + _%stx139025%_) '#!void)) (define gxc#meta-state::t - (let ((__tmp149180 (list)) (__tmp149179 (cons (cons 'struct: '#t) '()))) + (let ((__tmp149217 (list)) (__tmp149216 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state::t 'meta-state - __tmp149180 + __tmp149217 '(src n open blocks) - __tmp149179 + __tmp149216 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (__make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _%$args138984%_ - (apply make-instance gxc#meta-state::t _%$args138984%_))) + (lambda _%$args139021%_ + (apply make-instance gxc#meta-state::t _%$args139021%_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -14421,77 +14421,77 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_%self138329138968%_ _%ctx138970%_) - (let* ((_%self138972%_ _%self138329138968%_) - (_%self138974%_ _%self138972%_)) - (if (let ((__tmp149181 + (lambda (_%self138366139005%_ _%ctx139007%_) + (let* ((_%self139009%_ _%self138366139005%_) + (_%self139011%_ _%self139009%_)) + (if (let ((__tmp149218 (let () (declare (not safe)) - (##structure-length _%self138974%_)))) + (##structure-length _%self139011%_)))) (declare (not safe)) - (##fx< '4 __tmp149181)) + (##fx< '4 __tmp149218)) (begin - (let ((__tmp149182 - (let ((__tmp149183 + (let ((__tmp149219 + (let ((__tmp149220 (##structure-ref - _%ctx138970%_ + _%ctx139007%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp149183)))) + (gxc#module-id->path-string __tmp149220)))) (declare (not safe)) (##unchecked-structure-set! - _%self138974%_ - __tmp149182 + _%self139011%_ + __tmp149219 '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self138974%_ '1 '2 '#f '#f)) - (let ((__tmp149184 + (##unchecked-structure-set! _%self139011%_ '1 '2 '#f '#f)) + (let ((__tmp149221 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self138974%_ - __tmp149184 + _%self139011%_ + __tmp149221 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self138974%_ '() '4 '#f '#f)) + (##unchecked-structure-set! _%self139011%_ '() '4 '#f '#f)) '#!void) - (let ((__tmp149185 + (let ((__tmp149222 (let () (declare (not safe)) - (##vector-length _%self138974%_)))) + (##vector-length _%self139011%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self138974%_ + _%self139011%_ '4 - __tmp149185)))))) + __tmp149222)))))) (let () (declare (not safe)) (__bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp149187 (list)) (__tmp149186 (cons (cons 'struct: '#t) '()))) + (let ((__tmp149224 (list)) (__tmp149223 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp149187 + __tmp149224 '(ctx phi n code) - __tmp149186 + __tmp149223 '#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 _%$args138843%_ - (apply make-instance gxc#meta-state-block::t _%$args138843%_))) + (lambda _%$args138880%_ + (apply make-instance gxc#meta-state-block::t _%$args138880%_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -14557,100 +14557,100 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_%state138802%_ _%phi138803%_) - (let* ((_%state138804138812%_ _%state138802%_) - (_%E138806138816%_ + (lambda (_%state138839%_ _%phi138840%_) + (let* ((_%state138841138849%_ _%state138839%_) + (_%E138843138853%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%state138804138812%_ + _%state138841138849%_ '((meta-state src n open)))) '#!void)) - (_%K138807138825%_ - (lambda (_%open138819%_ _%n138820%_ _%src138821%_) + (_%K138844138862%_ + (lambda (_%open138856%_ _%n138857%_ _%src138858%_) (if (let () (declare (not safe)) - (hash-get _%open138819%_ _%phi138803%_)) + (hash-get _%open138856%_ _%phi138840%_)) '#f - (let ((_%block-ref138823%_ - (let ((__tmp149188 (number->string _%n138820%_))) + (let ((_%block-ref138860%_ + (let ((__tmp149225 (number->string _%n138857%_))) (declare (not safe)) (##string-append - _%src138821%_ + _%src138858%_ '"~" - __tmp149188)))) + __tmp149225)))) (##structure-set! - _%state138802%_ - (let () (declare (not safe)) (##fx+ _%n138820%_ '1)) + _%state138839%_ + (let () (declare (not safe)) (##fx+ _%n138857%_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp149189 - (let ((__tmp149190 + (let ((__tmp149226 + (let ((__tmp149227 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp149190 - _%phi138803%_ - _%n138820%_ + __tmp149227 + _%phi138840%_ + _%n138857%_ '())))) (declare (not safe)) - (hash-put! _%open138819%_ _%phi138803%_ __tmp149189)) - _%block-ref138823%_))))) + (hash-put! _%open138856%_ _%phi138840%_ __tmp149226)) + _%block-ref138860%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%state138804138812%_ + _%state138841138849%_ 'gxc#meta-state::t)) - (let* ((_%e138808138828%_ + (let* ((_%e138845138865%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138804138812%_ + _%state138841138849%_ '1 '#f '#f))) - (_%src138831%_ _%e138808138828%_) - (_%e138809138833%_ + (_%src138868%_ _%e138845138865%_) + (_%e138846138870%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138804138812%_ + _%state138841138849%_ '2 '#f '#f))) - (_%n138836%_ _%e138809138833%_) - (_%e138810138838%_ + (_%n138873%_ _%e138846138870%_) + (_%e138847138875%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138804138812%_ + _%state138841138849%_ '3 '#f '#f))) - (_%open138841%_ _%e138810138838%_)) - (_%K138807138825%_ _%open138841%_ _%n138836%_ _%src138831%_)) - (_%E138806138816%_))))) + (_%open138878%_ _%e138847138875%_)) + (_%K138844138862%_ _%open138878%_ _%n138873%_ _%src138868%_)) + (_%E138843138853%_))))) (define gxc#meta-state-add-phi! - (lambda (_%state138796%_ _%phi138797%_ _%stx138798%_) - (let ((_%block138800%_ - (let ((__tmp149191 + (lambda (_%state138833%_ _%phi138834%_ _%stx138835%_) + (let ((_%block138837%_ + (let ((__tmp149228 (##structure-ref - _%state138796%_ + _%state138833%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp149191 _%phi138797%_)))) + (hash-get __tmp149228 _%phi138834%_)))) (##structure-set! - _%block138800%_ - (cons _%stx138798%_ + _%block138837%_ + (cons _%stx138835%_ (##structure-ref - _%block138800%_ + _%block138837%_ '4 gxc#meta-state-block::t '#f)) @@ -14658,264 +14658,264 @@ gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_%state138790%_) + (lambda (_%state138827%_) (##structure-set! - _%state138790%_ - (let ((__tmp149194 - (lambda (_%_138792%_ _%block138793%_ _%r138794%_) - (cons _%block138793%_ _%r138794%_))) - (__tmp149193 - (##structure-ref _%state138790%_ '4 gxc#meta-state::t '#f)) - (__tmp149192 - (##structure-ref _%state138790%_ '3 gxc#meta-state::t '#f))) + _%state138827%_ + (let ((__tmp149231 + (lambda (_%_138829%_ _%block138830%_ _%r138831%_) + (cons _%block138830%_ _%r138831%_))) + (__tmp149230 + (##structure-ref _%state138827%_ '4 gxc#meta-state::t '#f)) + (__tmp149229 + (##structure-ref _%state138827%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp149194 __tmp149193 __tmp149192)) + (hash-fold __tmp149231 __tmp149230 __tmp149229)) '4 gxc#meta-state::t '#f) (##structure-set! - _%state138790%_ + _%state138827%_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_%state138742%_) - (gxc#meta-state-end-phi! _%state138742%_) - (let ((__tmp149196 - (lambda (_%block138744%_ _%r138745%_) - (let* ((_%block138746138755%_ _%block138744%_) - (_%E138748138759%_ + (lambda (_%state138779%_) + (gxc#meta-state-end-phi! _%state138779%_) + (let ((__tmp149233 + (lambda (_%block138781%_ _%r138782%_) + (let* ((_%block138783138792%_ _%block138781%_) + (_%E138785138796%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block138746138755%_ + _%block138783138792%_ '((meta-state-block ctx phi n code)))) '#!void)) - (_%K138749138767%_ - (lambda (_%code138762%_ - _%n138763%_ - _%phi138764%_ - _%ctx138765%_) - (if (null? _%code138762%_) - _%r138745%_ - (cons (cons _%ctx138765%_ - (cons _%phi138764%_ - (cons _%n138763%_ + (_%K138786138804%_ + (lambda (_%code138799%_ + _%n138800%_ + _%phi138801%_ + _%ctx138802%_) + (if (null? _%code138799%_) + _%r138782%_ + (cons (cons _%ctx138802%_ + (cons _%phi138801%_ + (cons _%n138800%_ (cons (cons '%#begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _%code138762%_)) + (reverse _%code138799%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r138745%_))))) + _%r138782%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%block138746138755%_ + _%block138783138792%_ 'gxc#meta-state-block::t)) - (let* ((_%e138750138770%_ + (let* ((_%e138787138807%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138746138755%_ + _%block138783138792%_ '1 '#f '#f))) - (_%ctx138773%_ _%e138750138770%_) - (_%e138751138775%_ + (_%ctx138810%_ _%e138787138807%_) + (_%e138788138812%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138746138755%_ + _%block138783138792%_ '2 '#f '#f))) - (_%phi138778%_ _%e138751138775%_) - (_%e138752138780%_ + (_%phi138815%_ _%e138788138812%_) + (_%e138789138817%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138746138755%_ + _%block138783138792%_ '3 '#f '#f))) - (_%n138783%_ _%e138752138780%_) - (_%e138753138785%_ + (_%n138820%_ _%e138789138817%_) + (_%e138790138822%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138746138755%_ + _%block138783138792%_ '4 '#f '#f))) - (_%code138788%_ _%e138753138785%_)) - (_%K138749138767%_ - _%code138788%_ - _%n138783%_ - _%phi138778%_ - _%ctx138773%_)) - (_%E138748138759%_))))) - (__tmp149195 - (##structure-ref _%state138742%_ '4 gxc#meta-state::t '#f))) + (_%code138825%_ _%e138790138822%_)) + (_%K138786138804%_ + _%code138825%_ + _%n138820%_ + _%phi138815%_ + _%ctx138810%_)) + (_%E138785138796%_))))) + (__tmp149232 + (##structure-ref _%state138779%_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (__foldl1 __tmp149196 '() __tmp149195)))) + (__foldl1 __tmp149233 '() __tmp149232)))) (define gxc#collect-expression-refs - (lambda (_%stx138738%_) - (let ((_%ht138740%_ + (lambda (_%stx138775%_) + (let ((_%ht138777%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (gxc#apply-collect-expression-refs__% '#f _%ht138740%_ _%stx138738%_) - _%ht138740%_))) + (gxc#apply-collect-expression-refs__% '#f _%ht138777%_ _%stx138775%_) + _%ht138777%_))) (define gxc#collect-refs-ref% - (lambda (_%self138681%_ _%stx138682%_) - (let* ((_%g138684138697%_ - (lambda (_%g138685138694%_) + (lambda (_%self138718%_ _%stx138719%_) + (let* ((_%g138721138734%_ + (lambda (_%g138722138731%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138685138694%_)))) - (_%g138683138735%_ - (lambda (_%g138685138700%_) + _%g138722138731%_)))) + (_%g138720138772%_ + (lambda (_%g138722138737%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138685138700%_)) - (let ((_%e138687138702%_ + (gx#stx-pair? _%g138722138737%_)) + (let ((_%e138724138739%_ (let () (declare (not safe)) - (gx#stx-e _%g138685138700%_)))) - (let ((_%hd138688138705%_ + (gx#stx-e _%g138722138737%_)))) + (let ((_%hd138725138742%_ (let () (declare (not safe)) - (##car _%e138687138702%_))) - (_%tl138689138707%_ + (##car _%e138724138739%_))) + (_%tl138726138744%_ (let () (declare (not safe)) - (##cdr _%e138687138702%_)))) + (##cdr _%e138724138739%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138689138707%_)) - (let ((_%e138690138710%_ + (gx#stx-pair? _%tl138726138744%_)) + (let ((_%e138727138747%_ (let () (declare (not safe)) - (gx#stx-e _%tl138689138707%_)))) - (let ((_%hd138691138713%_ + (gx#stx-e _%tl138726138744%_)))) + (let ((_%hd138728138750%_ (let () (declare (not safe)) - (##car _%e138690138710%_))) - (_%tl138692138715%_ + (##car _%e138727138747%_))) + (_%tl138729138752%_ (let () (declare (not safe)) - (##cdr _%e138690138710%_)))) + (##cdr _%e138727138747%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138692138715%_)) - ((lambda (_%L138718%_) - (let* ((_%bind138730%_ + (gx#stx-null? _%tl138729138752%_)) + ((lambda (_%L138755%_) + (let* ((_%bind138767%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L138718%_))) - (_%eid138732%_ - (if _%bind138730%_ + _%L138755%_))) + (_%eid138769%_ + (if _%bind138767%_ (##structure-ref - _%bind138730%_ + _%bind138767%_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _%L138718%_)))) - (__tmp149197 + _%L138755%_)))) + (__tmp149234 (let () (declare (not safe)) (slot-ref__0 - _%self138681%_ + _%self138718%_ 'table)))) (declare (not safe)) (hash-put! - __tmp149197 - _%eid138732%_ - _%eid138732%_))) - _%hd138691138713%_) - (_%g138684138697%_ _%g138685138700%_)))) - (_%g138684138697%_ _%g138685138700%_)))) - (_%g138684138697%_ _%g138685138700%_))))) - (_%g138683138735%_ _%stx138682%_)))) + __tmp149234 + _%eid138769%_ + _%eid138769%_))) + _%hd138728138750%_) + (_%g138721138734%_ _%g138722138737%_)))) + (_%g138721138734%_ _%g138722138737%_)))) + (_%g138721138734%_ _%g138722138737%_))))) + (_%g138720138772%_ _%stx138719%_)))) (define gxc#collect-refs-setq% - (lambda (_%self138608%_ _%stx138609%_) - (let* ((_%g138611138628%_ - (lambda (_%g138612138625%_) + (lambda (_%self138645%_ _%stx138646%_) + (let* ((_%g138648138665%_ + (lambda (_%g138649138662%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138612138625%_)))) - (_%g138610138678%_ - (lambda (_%g138612138631%_) + _%g138649138662%_)))) + (_%g138647138715%_ + (lambda (_%g138649138668%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138612138631%_)) - (let ((_%e138615138633%_ + (gx#stx-pair? _%g138649138668%_)) + (let ((_%e138652138670%_ (let () (declare (not safe)) - (gx#stx-e _%g138612138631%_)))) - (let ((_%hd138616138636%_ + (gx#stx-e _%g138649138668%_)))) + (let ((_%hd138653138673%_ (let () (declare (not safe)) - (##car _%e138615138633%_))) - (_%tl138617138638%_ + (##car _%e138652138670%_))) + (_%tl138654138675%_ (let () (declare (not safe)) - (##cdr _%e138615138633%_)))) + (##cdr _%e138652138670%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138617138638%_)) - (let ((_%e138618138641%_ + (gx#stx-pair? _%tl138654138675%_)) + (let ((_%e138655138678%_ (let () (declare (not safe)) - (gx#stx-e _%tl138617138638%_)))) - (let ((_%hd138619138644%_ + (gx#stx-e _%tl138654138675%_)))) + (let ((_%hd138656138681%_ (let () (declare (not safe)) - (##car _%e138618138641%_))) - (_%tl138620138646%_ + (##car _%e138655138678%_))) + (_%tl138657138683%_ (let () (declare (not safe)) - (##cdr _%e138618138641%_)))) + (##cdr _%e138655138678%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138620138646%_)) - (let ((_%e138621138649%_ + (gx#stx-pair? _%tl138657138683%_)) + (let ((_%e138658138686%_ (let () (declare (not safe)) - (gx#stx-e _%tl138620138646%_)))) - (let ((_%hd138622138652%_ + (gx#stx-e _%tl138657138683%_)))) + (let ((_%hd138659138689%_ (let () (declare (not safe)) - (##car _%e138621138649%_))) - (_%tl138623138654%_ + (##car _%e138658138686%_))) + (_%tl138660138691%_ (let () (declare (not safe)) - (##cdr _%e138621138649%_)))) + (##cdr _%e138658138686%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138623138654%_)) - ((lambda (_%L138657%_ - _%L138658%_) - (let* ((_%bind138673%_ + _%tl138660138691%_)) + ((lambda (_%L138694%_ + _%L138695%_) + (let* ((_%bind138710%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L138658%_))) - (_%eid138675%_ - (if _%bind138673%_ + _%L138695%_))) + (_%eid138712%_ + (if _%bind138710%_ (##structure-ref - _%bind138673%_ + _%bind138710%_ '1 gx#binding::t '#f) @@ -14923,382 +14923,382 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L138658%_))))) + (gx#stx-e _%L138695%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp149198 + (let ((__tmp149235 (let () (declare (not safe)) (slot-ref__0 - _%self138608%_ + _%self138645%_ 'table)))) (declare (not safe)) (hash-put! - __tmp149198 - _%eid138675%_ - _%eid138675%_)) + __tmp149235 + _%eid138712%_ + _%eid138712%_)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138608%_ - _%L138657%_)))) - _%hd138622138652%_ - _%hd138619138644%_) - (_%g138611138628%_ - _%g138612138631%_)))) - (_%g138611138628%_ _%g138612138631%_)))) - (_%g138611138628%_ _%g138612138631%_)))) - (_%g138611138628%_ _%g138612138631%_))))) - (_%g138610138678%_ _%stx138609%_)))) + _%self138645%_ + _%L138694%_)))) + _%hd138659138689%_ + _%hd138656138681%_) + (_%g138648138665%_ + _%g138649138668%_)))) + (_%g138648138665%_ _%g138649138668%_)))) + (_%g138648138665%_ _%g138649138668%_)))) + (_%g138648138665%_ _%g138649138668%_))))) + (_%g138647138715%_ _%stx138646%_)))) (define gxc#find-runtime-begin% - (lambda (_%self138565%_ _%stx138566%_) - (let* ((_%g138568138578%_ - (lambda (_%g138569138575%_) + (lambda (_%self138602%_ _%stx138603%_) + (let* ((_%g138605138615%_ + (lambda (_%g138606138612%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138569138575%_)))) - (_%g138567138605%_ - (lambda (_%g138569138581%_) + _%g138606138612%_)))) + (_%g138604138642%_ + (lambda (_%g138606138618%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138569138581%_)) - (let ((_%e138571138583%_ + (gx#stx-pair? _%g138606138618%_)) + (let ((_%e138608138620%_ (let () (declare (not safe)) - (gx#stx-e _%g138569138581%_)))) - (let ((_%hd138572138586%_ + (gx#stx-e _%g138606138618%_)))) + (let ((_%hd138609138623%_ (let () (declare (not safe)) - (##car _%e138571138583%_))) - (_%tl138573138588%_ + (##car _%e138608138620%_))) + (_%tl138610138625%_ (let () (declare (not safe)) - (##cdr _%e138571138583%_)))) - ((lambda (_%L138591%_) - (let ((__tmp149199 - (lambda (_%g138600138602%_) + (##cdr _%e138608138620%_)))) + ((lambda (_%L138628%_) + (let ((__tmp149236 + (lambda (_%g138637138639%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138565%_ - _%g138600138602%_))))) + _%self138602%_ + _%g138637138639%_))))) (declare (not safe)) - (__ormap1 __tmp149199 _%L138591%_))) - _%tl138573138588%_))) - (_%g138568138578%_ _%g138569138581%_))))) - (_%g138567138605%_ _%stx138566%_)))) + (__ormap1 __tmp149236 _%L138628%_))) + _%tl138610138625%_))) + (_%g138605138615%_ _%g138606138618%_))))) + (_%g138604138642%_ _%stx138603%_)))) (define gxc#count-values-single% - (lambda (_%self138562%_ _%stx138563%_) '1)) + (lambda (_%self138599%_ _%stx138600%_) '1)) (define gxc#count-values-call% - (lambda (_%self138428%_ _%stx138429%_) - (let* ((_%__stx148942148943%_ _%stx138429%_) - (_%g138432138461%_ + (lambda (_%self138465%_ _%stx138466%_) + (let* ((_%__stx148979148980%_ _%stx138466%_) + (_%g138469138498%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148942148943%_))))) - (let ((_%__kont148944148945%_ - (lambda (_%L138529%_ _%L138530%_) - (length (let ((__tmp149200 - (lambda (_%g138551138554%_ _%g138552138556%_) - (cons _%g138551138554%_ - _%g138552138556%_)))) + _%__stx148979148980%_))))) + (let ((_%__kont148981148982%_ + (lambda (_%L138566%_ _%L138567%_) + (length (let ((__tmp149237 + (lambda (_%g138588138591%_ _%g138589138593%_) + (cons _%g138588138591%_ + _%g138589138593%_)))) (declare (not safe)) - (__foldr1 __tmp149200 '() _%L138529%_))))) - (_%__kont148948148949%_ (lambda () '#f))) - (let ((_%__match148987148988%_ - (lambda (_%e138436138473%_ - _%hd138437138476%_ - _%tl138438138478%_ - _%e138439138481%_ - _%hd138440138484%_ - _%tl138441138486%_ - _%e138442138489%_ - _%hd138443138492%_ - _%tl138444138494%_ - _%e138445138497%_ - _%hd138446138500%_ - _%tl138447138502%_ - _%__splice148946148947%_ - _%target138448138505%_ - _%tl138450138507%_) - (letrec ((_%loop138451138510%_ - (lambda (_%hd138449138513%_ - _%rand138455138515%_) + (__foldr1 __tmp149237 '() _%L138566%_))))) + (_%__kont148985148986%_ (lambda () '#f))) + (let ((_%__match149024149025%_ + (lambda (_%e138473138510%_ + _%hd138474138513%_ + _%tl138475138515%_ + _%e138476138518%_ + _%hd138477138521%_ + _%tl138478138523%_ + _%e138479138526%_ + _%hd138480138529%_ + _%tl138481138531%_ + _%e138482138534%_ + _%hd138483138537%_ + _%tl138484138539%_ + _%__splice148983148984%_ + _%target138485138542%_ + _%tl138487138544%_) + (letrec ((_%loop138488138547%_ + (lambda (_%hd138486138550%_ + _%rand138492138552%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138449138513%_)) - (let ((_%e138452138518%_ + (gx#stx-pair? _%hd138486138550%_)) + (let ((_%e138489138555%_ (let () (declare (not safe)) - (gx#stx-e _%hd138449138513%_)))) - (let ((_%lp-tl138454138523%_ + (gx#stx-e _%hd138486138550%_)))) + (let ((_%lp-tl138491138560%_ (let () (declare (not safe)) - (##cdr _%e138452138518%_))) - (_%lp-hd138453138521%_ + (##cdr _%e138489138555%_))) + (_%lp-hd138490138558%_ (let () (declare (not safe)) - (##car _%e138452138518%_)))) - (_%loop138451138510%_ - _%lp-tl138454138523%_ - (cons _%lp-hd138453138521%_ - _%rand138455138515%_)))) - (let ((_%rand138456138526%_ - (reverse _%rand138455138515%_))) - (let ((_%L138529%_ _%rand138456138526%_) - (_%L138530%_ _%hd138446138500%_)) + (##car _%e138489138555%_)))) + (_%loop138488138547%_ + _%lp-tl138491138560%_ + (cons _%lp-hd138490138558%_ + _%rand138492138552%_)))) + (let ((_%rand138493138563%_ + (reverse _%rand138492138552%_))) + (let ((_%L138566%_ _%rand138493138563%_) + (_%L138567%_ _%hd138483138537%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L138530%_ + _%L138567%_ 'values)) - (_%__kont148944148945%_ - _%L138529%_ - _%L138530%_) - (_%__kont148948148949%_)))))))) - (_%loop138451138510%_ _%target138448138505%_ '()))))) + (_%__kont148981148982%_ + _%L138566%_ + _%L138567%_) + (_%__kont148985148986%_)))))))) + (_%loop138488138547%_ _%target138485138542%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148942148943%_)) - (let ((_%e138436138473%_ + (gx#stx-pair? _%__stx148979148980%_)) + (let ((_%e138473138510%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148942148943%_)))) - (let ((_%tl138438138478%_ + (gx#stx-e _%__stx148979148980%_)))) + (let ((_%tl138475138515%_ (let () (declare (not safe)) - (##cdr _%e138436138473%_))) - (_%hd138437138476%_ + (##cdr _%e138473138510%_))) + (_%hd138474138513%_ (let () (declare (not safe)) - (##car _%e138436138473%_)))) + (##car _%e138473138510%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138438138478%_)) - (let ((_%e138439138481%_ + (gx#stx-pair? _%tl138475138515%_)) + (let ((_%e138476138518%_ (let () (declare (not safe)) - (gx#stx-e _%tl138438138478%_)))) - (let ((_%tl138441138486%_ + (gx#stx-e _%tl138475138515%_)))) + (let ((_%tl138478138523%_ (let () (declare (not safe)) - (##cdr _%e138439138481%_))) - (_%hd138440138484%_ + (##cdr _%e138476138518%_))) + (_%hd138477138521%_ (let () (declare (not safe)) - (##car _%e138439138481%_)))) + (##car _%e138476138518%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138440138484%_)) - (let ((_%e138442138489%_ + (gx#stx-pair? _%hd138477138521%_)) + (let ((_%e138479138526%_ (let () (declare (not safe)) - (gx#stx-e _%hd138440138484%_)))) - (let ((_%tl138444138494%_ + (gx#stx-e _%hd138477138521%_)))) + (let ((_%tl138481138531%_ (let () (declare (not safe)) - (##cdr _%e138442138489%_))) - (_%hd138443138492%_ + (##cdr _%e138479138526%_))) + (_%hd138480138529%_ (let () (declare (not safe)) - (##car _%e138442138489%_)))) + (##car _%e138479138526%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd138443138492%_)) + _%hd138480138529%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd138443138492%_)) + _%hd138480138529%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138444138494%_)) - (let ((_%e138445138497%_ + _%tl138481138531%_)) + (let ((_%e138482138534%_ (let () (declare (not safe)) (gx#stx-e - _%tl138444138494%_)))) - (let ((_%tl138447138502%_ + _%tl138481138531%_)))) + (let ((_%tl138484138539%_ (let () (declare (not safe)) - (##cdr _%e138445138497%_))) - (_%hd138446138500%_ + (##cdr _%e138482138534%_))) + (_%hd138483138537%_ (let () (declare (not safe)) - (##car _%e138445138497%_)))) + (##car _%e138482138534%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138447138502%_)) + _%tl138484138539%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl138441138486%_)) - (let ((_%__splice148946148947%_ + (gx#stx-pair/null? _%tl138478138523%_)) + (let ((_%__splice148983148984%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl138441138486%_ + _%tl138478138523%_ '0)))) - (let ((_%tl138450138507%_ + (let ((_%tl138487138544%_ (let () (declare (not safe)) - (##vector-ref _%__splice148946148947%_ '1))) - (_%target138448138505%_ + (##vector-ref _%__splice148983148984%_ '1))) + (_%target138485138542%_ (let () (declare (not safe)) - (##vector-ref _%__splice148946148947%_ '0)))) + (##vector-ref _%__splice148983148984%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138450138507%_)) - (_%__match148987148988%_ - _%e138436138473%_ - _%hd138437138476%_ - _%tl138438138478%_ - _%e138439138481%_ - _%hd138440138484%_ - _%tl138441138486%_ - _%e138442138489%_ - _%hd138443138492%_ - _%tl138444138494%_ - _%e138445138497%_ - _%hd138446138500%_ - _%tl138447138502%_ - _%__splice148946148947%_ - _%target138448138505%_ - _%tl138450138507%_) - (_%__kont148948148949%_)))) - (_%__kont148948148949%_)) - (_%__kont148948148949%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148948148949%_)) - (_%__kont148948148949%_)) - (_%__kont148948148949%_)))) - (_%__kont148948148949%_)))) - (_%__kont148948148949%_)))) - (_%__kont148948148949%_))))))) + (gx#stx-null? _%tl138487138544%_)) + (_%__match149024149025%_ + _%e138473138510%_ + _%hd138474138513%_ + _%tl138475138515%_ + _%e138476138518%_ + _%hd138477138521%_ + _%tl138478138523%_ + _%e138479138526%_ + _%hd138480138529%_ + _%tl138481138531%_ + _%e138482138534%_ + _%hd138483138537%_ + _%tl138484138539%_ + _%__splice148983148984%_ + _%target138485138542%_ + _%tl138487138544%_) + (_%__kont148985148986%_)))) + (_%__kont148985148986%_)) + (_%__kont148985148986%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148985148986%_)) + (_%__kont148985148986%_)) + (_%__kont148985148986%_)))) + (_%__kont148985148986%_)))) + (_%__kont148985148986%_)))) + (_%__kont148985148986%_))))))) (define gxc#count-values-if% - (lambda (_%self138331%_ _%stx138332%_) - (let* ((_%g138334138355%_ - (lambda (_%g138335138352%_) + (lambda (_%self138368%_ _%stx138369%_) + (let* ((_%g138371138392%_ + (lambda (_%g138372138389%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138335138352%_)))) - (_%g138333138425%_ - (lambda (_%g138335138358%_) + _%g138372138389%_)))) + (_%g138370138462%_ + (lambda (_%g138372138395%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138335138358%_)) - (let ((_%e138339138360%_ + (gx#stx-pair? _%g138372138395%_)) + (let ((_%e138376138397%_ (let () (declare (not safe)) - (gx#stx-e _%g138335138358%_)))) - (let ((_%hd138340138363%_ + (gx#stx-e _%g138372138395%_)))) + (let ((_%hd138377138400%_ (let () (declare (not safe)) - (##car _%e138339138360%_))) - (_%tl138341138365%_ + (##car _%e138376138397%_))) + (_%tl138378138402%_ (let () (declare (not safe)) - (##cdr _%e138339138360%_)))) + (##cdr _%e138376138397%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138341138365%_)) - (let ((_%e138342138368%_ + (gx#stx-pair? _%tl138378138402%_)) + (let ((_%e138379138405%_ (let () (declare (not safe)) - (gx#stx-e _%tl138341138365%_)))) - (let ((_%hd138343138371%_ + (gx#stx-e _%tl138378138402%_)))) + (let ((_%hd138380138408%_ (let () (declare (not safe)) - (##car _%e138342138368%_))) - (_%tl138344138373%_ + (##car _%e138379138405%_))) + (_%tl138381138410%_ (let () (declare (not safe)) - (##cdr _%e138342138368%_)))) + (##cdr _%e138379138405%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138344138373%_)) - (let ((_%e138345138376%_ + (gx#stx-pair? _%tl138381138410%_)) + (let ((_%e138382138413%_ (let () (declare (not safe)) - (gx#stx-e _%tl138344138373%_)))) - (let ((_%hd138346138379%_ + (gx#stx-e _%tl138381138410%_)))) + (let ((_%hd138383138416%_ (let () (declare (not safe)) - (##car _%e138345138376%_))) - (_%tl138347138381%_ + (##car _%e138382138413%_))) + (_%tl138384138418%_ (let () (declare (not safe)) - (##cdr _%e138345138376%_)))) + (##cdr _%e138382138413%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138347138381%_)) - (let ((_%e138348138384%_ + _%tl138384138418%_)) + (let ((_%e138385138421%_ (let () (declare (not safe)) (gx#stx-e - _%tl138347138381%_)))) - (let ((_%hd138349138387%_ + _%tl138384138418%_)))) + (let ((_%hd138386138424%_ (let () (declare (not safe)) - (##car _%e138348138384%_))) - (_%tl138350138389%_ + (##car _%e138385138421%_))) + (_%tl138387138426%_ (let () (declare (not safe)) - (##cdr _%e138348138384%_)))) + (##cdr _%e138385138421%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138350138389%_)) - ((lambda (_%L138392%_ - _%L138393%_ - _%L138394%_) - (let ((_%c1138411138413%_ + _%tl138387138426%_)) + ((lambda (_%L138429%_ + _%L138430%_ + _%L138431%_) + (let ((_%c1138448138450%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self138331%_ _%L138393%_)))) - (if _%c1138411138413%_ - (let* ((_%c1138416%_ _%c1138411138413%_) - (_%c2138417138419%_ + (gxc#compile-e__1 _%self138368%_ _%L138430%_)))) + (if _%c1138448138450%_ + (let* ((_%c1138453%_ _%c1138448138450%_) + (_%c2138454138456%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self138331%_ - _%L138392%_)))) - (if _%c2138417138419%_ - (let ((_%c2138422%_ _%c2138417138419%_)) - (if (fx= _%c1138416%_ _%c2138422%_) - _%c1138416%_ + _%self138368%_ + _%L138429%_)))) + (if _%c2138454138456%_ + (let ((_%c2138459%_ _%c2138454138456%_)) + (if (fx= _%c1138453%_ _%c2138459%_) + _%c1138453%_ '#f)) '#f)) '#f))) - _%hd138349138387%_ - _%hd138346138379%_ - _%hd138343138371%_) - (_%g138334138355%_ _%g138335138358%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138334138355%_ - _%g138335138358%_)))) - (_%g138334138355%_ _%g138335138358%_)))) - (_%g138334138355%_ _%g138335138358%_)))) - (_%g138334138355%_ _%g138335138358%_))))) - (_%g138333138425%_ _%stx138332%_)))))) + _%hd138386138424%_ + _%hd138383138416%_ + _%hd138380138408%_) + (_%g138371138392%_ _%g138372138395%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g138371138392%_ + _%g138372138395%_)))) + (_%g138371138392%_ _%g138372138395%_)))) + (_%g138371138392%_ _%g138372138395%_)))) + (_%g138371138392%_ _%g138372138395%_))))) + (_%g138370138462%_ _%stx138369%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~1.scm b/src/bootstrap/gerbil/compiler/compile~1.scm index 874625c96..1a31af844 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]#_g149202_| + (define |gxc[1]#_g149239_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149204_| + (define |gxc[1]#_g149241_| (##structure gx#syntax-quote::t '::collect-bindings::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149206_| + (define |gxc[1]#_g149243_| (##structure gx#syntax-quote::t 'make-::collect-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149208_| + (define |gxc[1]#_g149245_| (##structure gx#syntax-quote::t '::collect-bindings? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149211_| + (define |gxc[1]#_g149248_| (##structure gx#syntax-quote::t '::lift-modules::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149213_| + (define |gxc[1]#_g149250_| (##structure gx#syntax-quote::t 'make-::lift-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149215_| + (define |gxc[1]#_g149252_| (##structure gx#syntax-quote::t '::lift-modules? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149217_| + (define |gxc[1]#_g149254_| (##structure gx#syntax-quote::t '::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149219_| + (define |gxc[1]#_g149256_| (##structure gx#syntax-quote::t '::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149221_| + (define |gxc[1]#_g149258_| (##structure gx#syntax-quote::t '&::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149223_| + (define |gxc[1]#_g149260_| (##structure gx#syntax-quote::t '&::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149225_| + (define |gxc[1]#_g149262_| (##structure gx#syntax-quote::t '::find-runtime-code::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149227_| + (define |gxc[1]#_g149264_| (##structure gx#syntax-quote::t 'make-::find-runtime-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149229_| + (define |gxc[1]#_g149266_| (##structure gx#syntax-quote::t '::find-runtime-code? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149231_| + (define |gxc[1]#_g149268_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149233_| + (define |gxc[1]#_g149270_| (##structure gx#syntax-quote::t '::find-lambda-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149235_| + (define |gxc[1]#_g149272_| (##structure gx#syntax-quote::t 'make-::find-lambda-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149237_| + (define |gxc[1]#_g149274_| (##structure gx#syntax-quote::t '::find-lambda-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149239_| + (define |gxc[1]#_g149276_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149241_| + (define |gxc[1]#_g149278_| (##structure gx#syntax-quote::t '::count-values::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149243_| + (define |gxc[1]#_g149280_| (##structure gx#syntax-quote::t 'make-::count-values #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149245_| + (define |gxc[1]#_g149282_| (##structure gx#syntax-quote::t '::count-values? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149247_| + (define |gxc[1]#_g149284_| (##structure gx#syntax-quote::t '::generate-runtime-empty::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149249_| + (define |gxc[1]#_g149286_| (##structure gx#syntax-quote::t 'make-::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149251_| + (define |gxc[1]#_g149288_| (##structure gx#syntax-quote::t '::generate-runtime-empty? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149253_| + (define |gxc[1]#_g149290_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149255_| + (define |gxc[1]#_g149292_| (##structure gx#syntax-quote::t '::generate-loader::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149257_| + (define |gxc[1]#_g149294_| (##structure gx#syntax-quote::t 'make-::generate-loader #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149259_| + (define |gxc[1]#_g149296_| (##structure gx#syntax-quote::t '::generate-loader? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149262_| + (define |gxc[1]#_g149299_| (##structure gx#syntax-quote::t '::generate-runtime::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149264_| + (define |gxc[1]#_g149301_| (##structure gx#syntax-quote::t 'make-::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149266_| + (define |gxc[1]#_g149303_| (##structure gx#syntax-quote::t '::generate-runtime? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149268_| + (define |gxc[1]#_g149305_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149270_| + (define |gxc[1]#_g149307_| (##structure gx#syntax-quote::t '::generate-runtime-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149272_| + (define |gxc[1]#_g149309_| (##structure gx#syntax-quote::t 'make-::generate-runtime-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149274_| + (define |gxc[1]#_g149311_| (##structure gx#syntax-quote::t '::generate-runtime-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149276_| + (define |gxc[1]#_g149313_| (##structure gx#syntax-quote::t '::collect-expression-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149278_| + (define |gxc[1]#_g149315_| (##structure gx#syntax-quote::t 'make-::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149280_| + (define |gxc[1]#_g149317_| (##structure gx#syntax-quote::t '::collect-expression-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149282_| + (define |gxc[1]#_g149319_| (##structure gx#syntax-quote::t '::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149284_| + (define |gxc[1]#_g149321_| (##structure gx#syntax-quote::t '::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149286_| + (define |gxc[1]#_g149323_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149288_| + (define |gxc[1]#_g149325_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149290_| + (define |gxc[1]#_g149327_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149292_| + (define |gxc[1]#_g149329_| (##structure gx#syntax-quote::t '::generate-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149294_| + (define |gxc[1]#_g149331_| (##structure gx#syntax-quote::t 'make-::generate-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149296_| + (define |gxc[1]#_g149333_| (##structure gx#syntax-quote::t '::generate-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149298_| + (define |gxc[1]#_g149335_| (##structure gx#syntax-quote::t '::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149300_| + (define |gxc[1]#_g149337_| (##structure gx#syntax-quote::t '::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149302_| + (define |gxc[1]#_g149339_| (##structure gx#syntax-quote::t '&::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149304_| + (define |gxc[1]#_g149341_| (##structure gx#syntax-quote::t '&::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149306_| + (define |gxc[1]#_g149343_| (##structure gx#syntax-quote::t '::generate-meta-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149308_| + (define |gxc[1]#_g149345_| (##structure gx#syntax-quote::t 'make-::generate-meta-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149310_| + (define |gxc[1]#_g149347_| (##structure gx#syntax-quote::t '::generate-meta-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149312_| + (define |gxc[1]#_g149349_| (##structure gx#syntax-quote::t '::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149314_| + (define |gxc[1]#_g149351_| (##structure gx#syntax-quote::t '::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149316_| + (define |gxc[1]#_g149353_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149318_| + (define |gxc[1]#_g149355_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149323_| + (define |gxc[1]#_g149360_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149325_| + (define |gxc[1]#_g149362_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149327_| + (define |gxc[1]#_g149364_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149329_| + (define |gxc[1]#_g149366_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149330_| + (define |gxc[1]#_g149367_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149331_| + (define |gxc[1]#_g149368_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149332_| + (define |gxc[1]#_g149369_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149334_| + (define |gxc[1]#_g149371_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149335_| + (define |gxc[1]#_g149372_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149336_| + (define |gxc[1]#_g149373_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149337_| + (define |gxc[1]#_g149374_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149339_| + (define |gxc[1]#_g149376_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149340_| + (define |gxc[1]#_g149377_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149341_| + (define |gxc[1]#_g149378_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149342_| + (define |gxc[1]#_g149379_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149344_| + (define |gxc[1]#_g149381_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149345_| + (define |gxc[1]#_g149382_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149346_| + (define |gxc[1]#_g149383_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149347_| + (define |gxc[1]#_g149384_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149349_| + (define |gxc[1]#_g149386_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149351_| + (define |gxc[1]#_g149388_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149353_| + (define |gxc[1]#_g149390_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149355_| + (define |gxc[1]#_g149392_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149356_| + (define |gxc[1]#_g149393_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149357_| + (define |gxc[1]#_g149394_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149358_| + (define |gxc[1]#_g149395_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149360_| + (define |gxc[1]#_g149397_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149361_| + (define |gxc[1]#_g149398_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149362_| + (define |gxc[1]#_g149399_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149363_| + (define |gxc[1]#_g149400_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149365_| + (define |gxc[1]#_g149402_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149366_| + (define |gxc[1]#_g149403_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149367_| + (define |gxc[1]#_g149404_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149368_| + (define |gxc[1]#_g149405_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149370_| + (define |gxc[1]#_g149407_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149371_| + (define |gxc[1]#_g149408_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149372_| + (define |gxc[1]#_g149409_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149373_| + (define |gxc[1]#_g149410_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! @@ -674,7 +674,7 @@ '())) (begin (define |gxc[:0:]#::collect-bindings| - (let ((__obj148989 + (let ((__obj149026 (let () (declare (not safe)) (##structure @@ -703,7 +703,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148989 + __obj149026 'gxc#::collect-bindings::t '1 '#f @@ -711,65 +711,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148989 + __obj149026 '::collect-bindings '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149026 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '() '6 '#f '#f)) - (let ((__tmp149201 (cons |gxc[1]#_g149202_| '()))) + (##unchecked-structure-set! __obj149026 '() '6 '#f '#f)) + (let ((__tmp149238 (cons |gxc[1]#_g149239_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148989 __tmp149201 '3 '#f '#f)) + (##unchecked-structure-set! __obj149026 __tmp149238 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149026 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149026 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149026 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '#f '11 '#f '#f)) - (let ((__tmp149203 |gxc[1]#_g149204_|)) + (##unchecked-structure-set! __obj149026 '#f '11 '#f '#f)) + (let ((__tmp149240 |gxc[1]#_g149241_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148989 __tmp149203 '12 '#f '#f)) - (let ((__tmp149205 |gxc[1]#_g149206_|)) + (##unchecked-structure-set! __obj149026 __tmp149240 '12 '#f '#f)) + (let ((__tmp149242 |gxc[1]#_g149243_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148989 __tmp149205 '13 '#f '#f)) - (let ((__tmp149207 |gxc[1]#_g149208_|)) + (##unchecked-structure-set! __obj149026 __tmp149242 '13 '#f '#f)) + (let ((__tmp149244 |gxc[1]#_g149245_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148989 __tmp149207 '14 '#f '#f)) + (##unchecked-structure-set! __obj149026 __tmp149244 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149026 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149026 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149026 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149026 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149026 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149026 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148989 '() '20 '#f '#f)) - __obj148989)) + (##unchecked-structure-set! __obj149026 '() '20 '#f '#f)) + __obj149026)) (define |gxc[:0:]#::lift-modules| - (let ((__obj148991 + (let ((__obj149028 (let () (declare (not safe)) (##structure @@ -798,68 +798,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148991 + __obj149028 'gxc#::lift-modules::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148991 '::lift-modules '2 '#f '#f)) + (##unchecked-structure-set! __obj149028 '::lift-modules '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148991 '(modules) '4 '#f '#f)) + (##unchecked-structure-set! __obj149028 '(modules) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148991 '(modules) '6 '#f '#f)) - (let ((__tmp149209 (cons |gxc[1]#_g149202_| '()))) + (##unchecked-structure-set! __obj149028 '(modules) '6 '#f '#f)) + (let ((__tmp149246 (cons |gxc[1]#_g149239_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148991 __tmp149209 '3 '#f '#f)) + (##unchecked-structure-set! __obj149028 __tmp149246 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148991 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149028 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148991 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149028 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148991 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149028 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148991 '#f '11 '#f '#f)) - (let ((__tmp149210 |gxc[1]#_g149211_|)) + (##unchecked-structure-set! __obj149028 '#f '11 '#f '#f)) + (let ((__tmp149247 |gxc[1]#_g149248_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148991 __tmp149210 '12 '#f '#f)) - (let ((__tmp149212 |gxc[1]#_g149213_|)) + (##unchecked-structure-set! __obj149028 __tmp149247 '12 '#f '#f)) + (let ((__tmp149249 |gxc[1]#_g149250_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148991 __tmp149212 '13 '#f '#f)) - (let ((__tmp149214 |gxc[1]#_g149215_|)) + (##unchecked-structure-set! __obj149028 __tmp149249 '13 '#f '#f)) + (let ((__tmp149251 |gxc[1]#_g149252_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148991 __tmp149214 '14 '#f '#f)) - (let ((__tmp149216 (cons (cons 'modules |gxc[1]#_g149217_|) '()))) + (##unchecked-structure-set! __obj149028 __tmp149251 '14 '#f '#f)) + (let ((__tmp149253 (cons (cons 'modules |gxc[1]#_g149254_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148991 __tmp149216 '15 '#f '#f)) - (let ((__tmp149218 (cons (cons 'modules |gxc[1]#_g149219_|) '()))) + (##unchecked-structure-set! __obj149028 __tmp149253 '15 '#f '#f)) + (let ((__tmp149255 (cons (cons 'modules |gxc[1]#_g149256_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148991 __tmp149218 '16 '#f '#f)) - (let ((__tmp149220 (cons (cons 'modules |gxc[1]#_g149221_|) '()))) + (##unchecked-structure-set! __obj149028 __tmp149255 '16 '#f '#f)) + (let ((__tmp149257 (cons (cons 'modules |gxc[1]#_g149258_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148991 __tmp149220 '17 '#f '#f)) - (let ((__tmp149222 (cons (cons 'modules |gxc[1]#_g149223_|) '()))) + (##unchecked-structure-set! __obj149028 __tmp149257 '17 '#f '#f)) + (let ((__tmp149259 (cons (cons 'modules |gxc[1]#_g149260_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148991 __tmp149222 '18 '#f '#f)) + (##unchecked-structure-set! __obj149028 __tmp149259 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148991 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149028 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148991 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149028 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148991 '() '20 '#f '#f)) - __obj148991)) + (##unchecked-structure-set! __obj149028 '() '20 '#f '#f)) + __obj149028)) (define |gxc[:0:]#::find-runtime-code| - (let ((__obj148993 + (let ((__obj149030 (let () (declare (not safe)) (##structure @@ -888,7 +888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148993 + __obj149030 'gxc#::find-runtime-code::t '1 '#f @@ -896,65 +896,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148993 + __obj149030 '::find-runtime-code '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149030 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj149030 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149030 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149030 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149030 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149030 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '#f '11 '#f '#f)) - (let ((__tmp149224 |gxc[1]#_g149225_|)) + (##unchecked-structure-set! __obj149030 '#f '11 '#f '#f)) + (let ((__tmp149261 |gxc[1]#_g149262_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148993 __tmp149224 '12 '#f '#f)) - (let ((__tmp149226 |gxc[1]#_g149227_|)) + (##unchecked-structure-set! __obj149030 __tmp149261 '12 '#f '#f)) + (let ((__tmp149263 |gxc[1]#_g149264_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148993 __tmp149226 '13 '#f '#f)) - (let ((__tmp149228 |gxc[1]#_g149229_|)) + (##unchecked-structure-set! __obj149030 __tmp149263 '13 '#f '#f)) + (let ((__tmp149265 |gxc[1]#_g149266_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148993 __tmp149228 '14 '#f '#f)) + (##unchecked-structure-set! __obj149030 __tmp149265 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149030 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149030 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149030 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149030 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149030 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149030 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148993 '() '20 '#f '#f)) - __obj148993)) + (##unchecked-structure-set! __obj149030 '() '20 '#f '#f)) + __obj149030)) (define |gxc[:0:]#::find-lambda-expression| - (let ((__obj148995 + (let ((__obj149032 (let () (declare (not safe)) (##structure @@ -983,7 +983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148995 + __obj149032 'gxc#::find-lambda-expression::t '1 '#f @@ -991,65 +991,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148995 + __obj149032 '::find-lambda-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149032 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '() '6 '#f '#f)) - (let ((__tmp149230 (cons |gxc[1]#_g149231_| '()))) + (##unchecked-structure-set! __obj149032 '() '6 '#f '#f)) + (let ((__tmp149267 (cons |gxc[1]#_g149268_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148995 __tmp149230 '3 '#f '#f)) + (##unchecked-structure-set! __obj149032 __tmp149267 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149032 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149032 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149032 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '#f '11 '#f '#f)) - (let ((__tmp149232 |gxc[1]#_g149233_|)) + (##unchecked-structure-set! __obj149032 '#f '11 '#f '#f)) + (let ((__tmp149269 |gxc[1]#_g149270_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148995 __tmp149232 '12 '#f '#f)) - (let ((__tmp149234 |gxc[1]#_g149235_|)) + (##unchecked-structure-set! __obj149032 __tmp149269 '12 '#f '#f)) + (let ((__tmp149271 |gxc[1]#_g149272_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148995 __tmp149234 '13 '#f '#f)) - (let ((__tmp149236 |gxc[1]#_g149237_|)) + (##unchecked-structure-set! __obj149032 __tmp149271 '13 '#f '#f)) + (let ((__tmp149273 |gxc[1]#_g149274_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148995 __tmp149236 '14 '#f '#f)) + (##unchecked-structure-set! __obj149032 __tmp149273 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149032 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149032 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149032 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149032 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149032 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149032 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148995 '() '20 '#f '#f)) - __obj148995)) + (##unchecked-structure-set! __obj149032 '() '20 '#f '#f)) + __obj149032)) (define |gxc[:0:]#::count-values| - (let ((__obj148997 + (let ((__obj149034 (let () (declare (not safe)) (##structure @@ -1078,68 +1078,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148997 + __obj149034 'gxc#::count-values::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '::count-values '2 '#f '#f)) + (##unchecked-structure-set! __obj149034 '::count-values '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149034 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '() '6 '#f '#f)) - (let ((__tmp149238 (cons |gxc[1]#_g149239_| '()))) + (##unchecked-structure-set! __obj149034 '() '6 '#f '#f)) + (let ((__tmp149275 (cons |gxc[1]#_g149276_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj148997 __tmp149238 '3 '#f '#f)) + (##unchecked-structure-set! __obj149034 __tmp149275 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149034 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149034 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149034 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '#f '11 '#f '#f)) - (let ((__tmp149240 |gxc[1]#_g149241_|)) + (##unchecked-structure-set! __obj149034 '#f '11 '#f '#f)) + (let ((__tmp149277 |gxc[1]#_g149278_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148997 __tmp149240 '12 '#f '#f)) - (let ((__tmp149242 |gxc[1]#_g149243_|)) + (##unchecked-structure-set! __obj149034 __tmp149277 '12 '#f '#f)) + (let ((__tmp149279 |gxc[1]#_g149280_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148997 __tmp149242 '13 '#f '#f)) - (let ((__tmp149244 |gxc[1]#_g149245_|)) + (##unchecked-structure-set! __obj149034 __tmp149279 '13 '#f '#f)) + (let ((__tmp149281 |gxc[1]#_g149282_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148997 __tmp149244 '14 '#f '#f)) + (##unchecked-structure-set! __obj149034 __tmp149281 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149034 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149034 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149034 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149034 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149034 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149034 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148997 '() '20 '#f '#f)) - __obj148997)) + (##unchecked-structure-set! __obj149034 '() '20 '#f '#f)) + __obj149034)) (define |gxc[:0:]#::generate-runtime-empty| - (let ((__obj148999 + (let ((__obj149036 (let () (declare (not safe)) (##structure @@ -1168,7 +1168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148999 + __obj149036 'gxc#::generate-runtime-empty::t '1 '#f @@ -1176,65 +1176,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj148999 + __obj149036 '::generate-runtime-empty '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149036 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj149036 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149036 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149036 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149036 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149036 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '#f '11 '#f '#f)) - (let ((__tmp149246 |gxc[1]#_g149247_|)) + (##unchecked-structure-set! __obj149036 '#f '11 '#f '#f)) + (let ((__tmp149283 |gxc[1]#_g149284_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148999 __tmp149246 '12 '#f '#f)) - (let ((__tmp149248 |gxc[1]#_g149249_|)) + (##unchecked-structure-set! __obj149036 __tmp149283 '12 '#f '#f)) + (let ((__tmp149285 |gxc[1]#_g149286_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148999 __tmp149248 '13 '#f '#f)) - (let ((__tmp149250 |gxc[1]#_g149251_|)) + (##unchecked-structure-set! __obj149036 __tmp149285 '13 '#f '#f)) + (let ((__tmp149287 |gxc[1]#_g149288_|)) (declare (not safe)) - (##unchecked-structure-set! __obj148999 __tmp149250 '14 '#f '#f)) + (##unchecked-structure-set! __obj149036 __tmp149287 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149036 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149036 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149036 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149036 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149036 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149036 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj148999 '() '20 '#f '#f)) - __obj148999)) + (##unchecked-structure-set! __obj149036 '() '20 '#f '#f)) + __obj149036)) (define |gxc[:0:]#::generate-loader| - (let ((__obj149000 + (let ((__obj149037 (let () (declare (not safe)) (##structure @@ -1263,7 +1263,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149000 + __obj149037 'gxc#::generate-loader::t '1 '#f @@ -1271,65 +1271,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149000 + __obj149037 '::generate-loader '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149037 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '() '6 '#f '#f)) - (let ((__tmp149252 (cons |gxc[1]#_g149253_| '()))) + (##unchecked-structure-set! __obj149037 '() '6 '#f '#f)) + (let ((__tmp149289 (cons |gxc[1]#_g149290_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149000 __tmp149252 '3 '#f '#f)) + (##unchecked-structure-set! __obj149037 __tmp149289 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149037 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149037 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149037 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '#f '11 '#f '#f)) - (let ((__tmp149254 |gxc[1]#_g149255_|)) + (##unchecked-structure-set! __obj149037 '#f '11 '#f '#f)) + (let ((__tmp149291 |gxc[1]#_g149292_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149000 __tmp149254 '12 '#f '#f)) - (let ((__tmp149256 |gxc[1]#_g149257_|)) + (##unchecked-structure-set! __obj149037 __tmp149291 '12 '#f '#f)) + (let ((__tmp149293 |gxc[1]#_g149294_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149000 __tmp149256 '13 '#f '#f)) - (let ((__tmp149258 |gxc[1]#_g149259_|)) + (##unchecked-structure-set! __obj149037 __tmp149293 '13 '#f '#f)) + (let ((__tmp149295 |gxc[1]#_g149296_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149000 __tmp149258 '14 '#f '#f)) + (##unchecked-structure-set! __obj149037 __tmp149295 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149037 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149037 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149037 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149037 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149037 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149037 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149000 '() '20 '#f '#f)) - __obj149000)) + (##unchecked-structure-set! __obj149037 '() '20 '#f '#f)) + __obj149037)) (define |gxc[:0:]#::generate-runtime| - (let ((__obj149002 + (let ((__obj149039 (let () (declare (not safe)) (##structure @@ -1358,7 +1358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149002 + __obj149039 'gxc#::generate-runtime::t '1 '#f @@ -1366,65 +1366,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149002 + __obj149039 '::generate-runtime '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149039 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '() '6 '#f '#f)) - (let ((__tmp149260 (cons |gxc[1]#_g149253_| '()))) + (##unchecked-structure-set! __obj149039 '() '6 '#f '#f)) + (let ((__tmp149297 (cons |gxc[1]#_g149290_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149002 __tmp149260 '3 '#f '#f)) + (##unchecked-structure-set! __obj149039 __tmp149297 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149039 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149039 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149039 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '#f '11 '#f '#f)) - (let ((__tmp149261 |gxc[1]#_g149262_|)) + (##unchecked-structure-set! __obj149039 '#f '11 '#f '#f)) + (let ((__tmp149298 |gxc[1]#_g149299_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149002 __tmp149261 '12 '#f '#f)) - (let ((__tmp149263 |gxc[1]#_g149264_|)) + (##unchecked-structure-set! __obj149039 __tmp149298 '12 '#f '#f)) + (let ((__tmp149300 |gxc[1]#_g149301_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149002 __tmp149263 '13 '#f '#f)) - (let ((__tmp149265 |gxc[1]#_g149266_|)) + (##unchecked-structure-set! __obj149039 __tmp149300 '13 '#f '#f)) + (let ((__tmp149302 |gxc[1]#_g149303_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149002 __tmp149265 '14 '#f '#f)) + (##unchecked-structure-set! __obj149039 __tmp149302 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149039 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149039 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149039 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149039 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149039 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149039 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149002 '() '20 '#f '#f)) - __obj149002)) + (##unchecked-structure-set! __obj149039 '() '20 '#f '#f)) + __obj149039)) (define |gxc[:0:]#::generate-runtime-phi| - (let ((__obj149004 + (let ((__obj149041 (let () (declare (not safe)) (##structure @@ -1453,7 +1453,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149004 + __obj149041 'gxc#::generate-runtime-phi::t '1 '#f @@ -1461,65 +1461,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149004 + __obj149041 '::generate-runtime-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149041 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '() '6 '#f '#f)) - (let ((__tmp149267 (cons |gxc[1]#_g149268_| '()))) + (##unchecked-structure-set! __obj149041 '() '6 '#f '#f)) + (let ((__tmp149304 (cons |gxc[1]#_g149305_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149004 __tmp149267 '3 '#f '#f)) + (##unchecked-structure-set! __obj149041 __tmp149304 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149041 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149041 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149041 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '#f '11 '#f '#f)) - (let ((__tmp149269 |gxc[1]#_g149270_|)) + (##unchecked-structure-set! __obj149041 '#f '11 '#f '#f)) + (let ((__tmp149306 |gxc[1]#_g149307_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149004 __tmp149269 '12 '#f '#f)) - (let ((__tmp149271 |gxc[1]#_g149272_|)) + (##unchecked-structure-set! __obj149041 __tmp149306 '12 '#f '#f)) + (let ((__tmp149308 |gxc[1]#_g149309_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149004 __tmp149271 '13 '#f '#f)) - (let ((__tmp149273 |gxc[1]#_g149274_|)) + (##unchecked-structure-set! __obj149041 __tmp149308 '13 '#f '#f)) + (let ((__tmp149310 |gxc[1]#_g149311_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149004 __tmp149273 '14 '#f '#f)) + (##unchecked-structure-set! __obj149041 __tmp149310 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149041 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149041 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149041 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149041 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149041 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149041 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149004 '() '20 '#f '#f)) - __obj149004)) + (##unchecked-structure-set! __obj149041 '() '20 '#f '#f)) + __obj149041)) (define |gxc[:0:]#::collect-expression-refs| - (let ((__obj149006 + (let ((__obj149043 (let () (declare (not safe)) (##structure @@ -1548,7 +1548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149006 + __obj149043 'gxc#::collect-expression-refs::t '1 '#f @@ -1556,65 +1556,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149006 + __obj149043 '::collect-expression-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149006 '(table) '4 '#f '#f)) + (##unchecked-structure-set! __obj149043 '(table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149006 '(table) '6 '#f '#f)) + (##unchecked-structure-set! __obj149043 '(table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149006 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149043 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149006 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149043 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149006 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149043 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149006 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149043 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149006 '#f '11 '#f '#f)) - (let ((__tmp149275 |gxc[1]#_g149276_|)) + (##unchecked-structure-set! __obj149043 '#f '11 '#f '#f)) + (let ((__tmp149312 |gxc[1]#_g149313_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149006 __tmp149275 '12 '#f '#f)) - (let ((__tmp149277 |gxc[1]#_g149278_|)) + (##unchecked-structure-set! __obj149043 __tmp149312 '12 '#f '#f)) + (let ((__tmp149314 |gxc[1]#_g149315_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149006 __tmp149277 '13 '#f '#f)) - (let ((__tmp149279 |gxc[1]#_g149280_|)) + (##unchecked-structure-set! __obj149043 __tmp149314 '13 '#f '#f)) + (let ((__tmp149316 |gxc[1]#_g149317_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149006 __tmp149279 '14 '#f '#f)) - (let ((__tmp149281 (cons (cons 'table |gxc[1]#_g149282_|) '()))) + (##unchecked-structure-set! __obj149043 __tmp149316 '14 '#f '#f)) + (let ((__tmp149318 (cons (cons 'table |gxc[1]#_g149319_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149006 __tmp149281 '15 '#f '#f)) - (let ((__tmp149283 (cons (cons 'table |gxc[1]#_g149284_|) '()))) + (##unchecked-structure-set! __obj149043 __tmp149318 '15 '#f '#f)) + (let ((__tmp149320 (cons (cons 'table |gxc[1]#_g149321_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149006 __tmp149283 '16 '#f '#f)) - (let ((__tmp149285 (cons (cons 'table |gxc[1]#_g149286_|) '()))) + (##unchecked-structure-set! __obj149043 __tmp149320 '16 '#f '#f)) + (let ((__tmp149322 (cons (cons 'table |gxc[1]#_g149323_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149006 __tmp149285 '17 '#f '#f)) - (let ((__tmp149287 (cons (cons 'table |gxc[1]#_g149288_|) '()))) + (##unchecked-structure-set! __obj149043 __tmp149322 '17 '#f '#f)) + (let ((__tmp149324 (cons (cons 'table |gxc[1]#_g149325_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149006 __tmp149287 '18 '#f '#f)) + (##unchecked-structure-set! __obj149043 __tmp149324 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149006 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149043 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149006 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149043 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149006 '() '20 '#f '#f)) - __obj149006)) + (##unchecked-structure-set! __obj149043 '() '20 '#f '#f)) + __obj149043)) (define |gxc[:0:]#::generate-meta| - (let ((__obj149008 + (let ((__obj149045 (let () (declare (not safe)) (##structure @@ -1643,68 +1643,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149008 + __obj149045 'gxc#::generate-meta::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149008 '::generate-meta '2 '#f '#f)) + (##unchecked-structure-set! __obj149045 '::generate-meta '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149008 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj149045 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149008 '(state) '6 '#f '#f)) - (let ((__tmp149289 (cons |gxc[1]#_g149290_| '()))) + (##unchecked-structure-set! __obj149045 '(state) '6 '#f '#f)) + (let ((__tmp149326 (cons |gxc[1]#_g149327_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149008 __tmp149289 '3 '#f '#f)) + (##unchecked-structure-set! __obj149045 __tmp149326 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149008 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149045 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149008 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149045 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149008 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149045 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149008 '#f '11 '#f '#f)) - (let ((__tmp149291 |gxc[1]#_g149292_|)) + (##unchecked-structure-set! __obj149045 '#f '11 '#f '#f)) + (let ((__tmp149328 |gxc[1]#_g149329_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149008 __tmp149291 '12 '#f '#f)) - (let ((__tmp149293 |gxc[1]#_g149294_|)) + (##unchecked-structure-set! __obj149045 __tmp149328 '12 '#f '#f)) + (let ((__tmp149330 |gxc[1]#_g149331_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149008 __tmp149293 '13 '#f '#f)) - (let ((__tmp149295 |gxc[1]#_g149296_|)) + (##unchecked-structure-set! __obj149045 __tmp149330 '13 '#f '#f)) + (let ((__tmp149332 |gxc[1]#_g149333_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149008 __tmp149295 '14 '#f '#f)) - (let ((__tmp149297 (cons (cons 'state |gxc[1]#_g149298_|) '()))) + (##unchecked-structure-set! __obj149045 __tmp149332 '14 '#f '#f)) + (let ((__tmp149334 (cons (cons 'state |gxc[1]#_g149335_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149008 __tmp149297 '15 '#f '#f)) - (let ((__tmp149299 (cons (cons 'state |gxc[1]#_g149300_|) '()))) + (##unchecked-structure-set! __obj149045 __tmp149334 '15 '#f '#f)) + (let ((__tmp149336 (cons (cons 'state |gxc[1]#_g149337_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149008 __tmp149299 '16 '#f '#f)) - (let ((__tmp149301 (cons (cons 'state |gxc[1]#_g149302_|) '()))) + (##unchecked-structure-set! __obj149045 __tmp149336 '16 '#f '#f)) + (let ((__tmp149338 (cons (cons 'state |gxc[1]#_g149339_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149008 __tmp149301 '17 '#f '#f)) - (let ((__tmp149303 (cons (cons 'state |gxc[1]#_g149304_|) '()))) + (##unchecked-structure-set! __obj149045 __tmp149338 '17 '#f '#f)) + (let ((__tmp149340 (cons (cons 'state |gxc[1]#_g149341_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149008 __tmp149303 '18 '#f '#f)) + (##unchecked-structure-set! __obj149045 __tmp149340 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149008 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149045 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149008 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149045 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149008 '() '20 '#f '#f)) - __obj149008)) + (##unchecked-structure-set! __obj149045 '() '20 '#f '#f)) + __obj149045)) (define |gxc[:0:]#::generate-meta-phi| - (let ((__obj149010 + (let ((__obj149047 (let () (declare (not safe)) (##structure @@ -1733,7 +1733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149010 + __obj149047 'gxc#::generate-meta-phi::t '1 '#f @@ -1741,220 +1741,220 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149010 + __obj149047 '::generate-meta-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149010 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj149047 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149010 '(state) '6 '#f '#f)) + (##unchecked-structure-set! __obj149047 '(state) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149010 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149047 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149010 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149047 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149010 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149047 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149010 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149047 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149010 '#f '11 '#f '#f)) - (let ((__tmp149305 |gxc[1]#_g149306_|)) + (##unchecked-structure-set! __obj149047 '#f '11 '#f '#f)) + (let ((__tmp149342 |gxc[1]#_g149343_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149010 __tmp149305 '12 '#f '#f)) - (let ((__tmp149307 |gxc[1]#_g149308_|)) + (##unchecked-structure-set! __obj149047 __tmp149342 '12 '#f '#f)) + (let ((__tmp149344 |gxc[1]#_g149345_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149010 __tmp149307 '13 '#f '#f)) - (let ((__tmp149309 |gxc[1]#_g149310_|)) + (##unchecked-structure-set! __obj149047 __tmp149344 '13 '#f '#f)) + (let ((__tmp149346 |gxc[1]#_g149347_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149010 __tmp149309 '14 '#f '#f)) - (let ((__tmp149311 (cons (cons 'state |gxc[1]#_g149312_|) '()))) + (##unchecked-structure-set! __obj149047 __tmp149346 '14 '#f '#f)) + (let ((__tmp149348 (cons (cons 'state |gxc[1]#_g149349_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149010 __tmp149311 '15 '#f '#f)) - (let ((__tmp149313 (cons (cons 'state |gxc[1]#_g149314_|) '()))) + (##unchecked-structure-set! __obj149047 __tmp149348 '15 '#f '#f)) + (let ((__tmp149350 (cons (cons 'state |gxc[1]#_g149351_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149010 __tmp149313 '16 '#f '#f)) - (let ((__tmp149315 (cons (cons 'state |gxc[1]#_g149316_|) '()))) + (##unchecked-structure-set! __obj149047 __tmp149350 '16 '#f '#f)) + (let ((__tmp149352 (cons (cons 'state |gxc[1]#_g149353_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149010 __tmp149315 '17 '#f '#f)) - (let ((__tmp149317 (cons (cons 'state |gxc[1]#_g149318_|) '()))) + (##unchecked-structure-set! __obj149047 __tmp149352 '17 '#f '#f)) + (let ((__tmp149354 (cons (cons 'state |gxc[1]#_g149355_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149010 __tmp149317 '18 '#f '#f)) + (##unchecked-structure-set! __obj149047 __tmp149354 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149010 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149047 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149010 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149047 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149010 '() '20 '#f '#f)) - __obj149010)) + (##unchecked-structure-set! __obj149047 '() '20 '#f '#f)) + __obj149047)) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_%$stx138079%_) - (let* ((_%g138083138118%_ - (lambda (_%g138084138114%_) + (lambda (_%$stx138116%_) + (let* ((_%g138120138155%_ + (lambda (_%g138121138151%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138084138114%_)))) - (_%g138082138244%_ - (lambda (_%g138084138122%_) + _%g138121138151%_)))) + (_%g138119138281%_ + (lambda (_%g138121138159%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138084138122%_)) - (let ((_%e138089138125%_ + (gx#stx-pair? _%g138121138159%_)) + (let ((_%e138126138162%_ (let () (declare (not safe)) - (gx#syntax-e _%g138084138122%_)))) - (let ((_%hd138090138129%_ + (gx#syntax-e _%g138121138159%_)))) + (let ((_%hd138127138166%_ (let () (declare (not safe)) - (##car _%e138089138125%_))) - (_%tl138091138132%_ + (##car _%e138126138162%_))) + (_%tl138128138169%_ (let () (declare (not safe)) - (##cdr _%e138089138125%_)))) + (##cdr _%e138126138162%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138091138132%_)) - (let ((_%e138092138135%_ + (gx#stx-pair? _%tl138128138169%_)) + (let ((_%e138129138172%_ (let () (declare (not safe)) - (gx#syntax-e _%tl138091138132%_)))) - (let ((_%hd138093138139%_ + (gx#syntax-e _%tl138128138169%_)))) + (let ((_%hd138130138176%_ (let () (declare (not safe)) - (##car _%e138092138135%_))) - (_%tl138094138142%_ + (##car _%e138129138172%_))) + (_%tl138131138179%_ (let () (declare (not safe)) - (##cdr _%e138092138135%_)))) + (##cdr _%e138129138172%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138093138139%_)) - (let ((_%e138095138145%_ + (gx#stx-pair? _%hd138130138176%_)) + (let ((_%e138132138182%_ (let () (declare (not safe)) (gx#syntax-e - _%hd138093138139%_)))) - (let ((_%hd138096138149%_ + _%hd138130138176%_)))) + (let ((_%hd138133138186%_ (let () (declare (not safe)) - (##car _%e138095138145%_))) - (_%tl138097138152%_ + (##car _%e138132138182%_))) + (_%tl138134138189%_ (let () (declare (not safe)) - (##cdr _%e138095138145%_)))) + (##cdr _%e138132138182%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138097138152%_)) - (let ((_%e138098138155%_ + _%tl138134138189%_)) + (let ((_%e138135138192%_ (let () (declare (not safe)) (gx#syntax-e - _%tl138097138152%_)))) - (let ((_%hd138099138159%_ + _%tl138134138189%_)))) + (let ((_%hd138136138196%_ (let () (declare (not safe)) - (##car _%e138098138155%_))) - (_%tl138100138162%_ + (##car _%e138135138192%_))) + (_%tl138137138199%_ (let () (declare (not safe)) - (##cdr _%e138098138155%_)))) + (##cdr _%e138135138192%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138100138162%_)) - (let ((_%e138101138165%_ + _%tl138137138199%_)) + (let ((_%e138138138202%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl138100138162%_)))) - (let ((_%hd138102138169%_ - (let () (declare (not safe)) (##car _%e138101138165%_))) - (_%tl138103138172%_ + (gx#syntax-e _%tl138137138199%_)))) + (let ((_%hd138139138206%_ + (let () (declare (not safe)) (##car _%e138138138202%_))) + (_%tl138140138209%_ (let () (declare (not safe)) - (##cdr _%e138101138165%_)))) + (##cdr _%e138138138202%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138103138172%_)) + (gx#stx-null? _%tl138140138209%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl138094138142%_)) - (let ((_g149319_ + (gx#stx-pair/null? _%tl138131138179%_)) + (let ((_g149356_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl138094138142%_ + _%tl138131138179%_ '0)))) (begin - (let ((_g149320_ + (let ((_g149357_ (let () (declare (not safe)) - (if (##values? _g149319_) - (##vector-length _g149319_) + (if (##values? _g149356_) + (##vector-length _g149356_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149320_ 2))) + (##fx= _g149357_ 2))) (error "Context expects 2 values" - _g149320_))) - (let ((_%target138104138175%_ + _g149357_))) + (let ((_%target138141138212%_ (let () (declare (not safe)) - (##vector-ref _g149319_ 0))) - (_%tl138106138178%_ + (##vector-ref _g149356_ 0))) + (_%tl138143138215%_ (let () (declare (not safe)) - (##vector-ref _g149319_ 1)))) + (##vector-ref _g149356_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138106138178%_)) - (letrec ((_%loop138107138181%_ - (lambda (_%hd138105138185%_ - _%body138111138188%_) + (gx#stx-null? _%tl138143138215%_)) + (letrec ((_%loop138144138218%_ + (lambda (_%hd138142138222%_ + _%body138148138225%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd138105138185%_)) - (let ((_%e138108138191%_ + _%hd138142138222%_)) + (let ((_%e138145138228%_ (let () (declare (not safe)) (gx#syntax-e - _%hd138105138185%_)))) - (let ((_%lp-hd138109138195%_ + _%hd138142138222%_)))) + (let ((_%lp-hd138146138232%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e138108138191%_))) - (_%lp-tl138110138198%_ - (let () (declare (not safe)) (##cdr _%e138108138191%_)))) - (_%loop138107138181%_ - _%lp-tl138110138198%_ - (cons _%lp-hd138109138195%_ _%body138111138188%_)))) + (##car _%e138145138228%_))) + (_%lp-tl138147138235%_ + (let () (declare (not safe)) (##cdr _%e138145138228%_)))) + (_%loop138144138218%_ + _%lp-tl138147138235%_ + (cons _%lp-hd138146138232%_ _%body138148138225%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body138112138201%_ - (reverse _%body138111138188%_))) - ((lambda (_%L138205%_ - _%L138207%_ - _%L138208%_ - _%L138209%_) + (let ((_%body138149138238%_ + (reverse _%body138148138225%_))) + ((lambda (_%L138242%_ + _%L138244%_ + _%L138245%_ + _%L138246%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1967,8 +1967,8 @@ (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138207%_ '())) - (cons (cons _%L138209%_ + (cons _%L138244%_ '())) + (cons (cons _%L138246%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1976,7 +1976,7 @@ '()) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L138208%_ + (cons (cons _%L138245%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2037,7 +2037,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138209%_ + (cons _%L138246%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2051,7 +2051,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L138208%_ '()))) + (cons _%L138245%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -2068,7 +2068,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138209%_ + (cons _%L138246%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2080,7 +2080,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L138208%_ '()))) + (cons _%L138245%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -2149,7 +2149,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L138209%_ '()))) + (cons _%L138246%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2160,7 +2160,7 @@ (gx#datum->syntax__0 '#f 'tmp)) - (cons _%L138208%_ '()))) + (cons _%L138245%_ '()))) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2171,99 +2171,99 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) - (let ((__tmp149321 - (lambda (_%g138235138238%_ - _%g138236138241%_) - (cons _%g138235138238%_ - _%g138236138241%_)))) + (let ((__tmp149358 + (lambda (_%g138272138275%_ + _%g138273138278%_) + (cons _%g138272138275%_ + _%g138273138278%_)))) (declare (not safe)) - (__foldr1 __tmp149321 '() _%L138205%_))) + (__foldr1 __tmp149358 '() _%L138242%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body138112138201%_ - _%hd138102138169%_ - _%hd138099138159%_ - _%hd138096138149%_)))))) + _%body138149138238%_ + _%hd138139138206%_ + _%hd138136138196%_ + _%hd138133138186%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop138107138181%_ - _%target138104138175%_ + (_%loop138144138218%_ + _%target138141138212%_ '())) - (_%g138083138118%_ _%g138084138122%_))))) - (_%g138083138118%_ _%g138084138122%_)) - (_%g138083138118%_ _%g138084138122%_)))) - (_%g138083138118%_ _%g138084138122%_)))) + (_%g138120138155%_ _%g138121138159%_))))) + (_%g138120138155%_ _%g138121138159%_)) + (_%g138120138155%_ _%g138121138159%_)))) + (_%g138120138155%_ _%g138121138159%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138083138118%_ - _%g138084138122%_)))) - (_%g138083138118%_ _%g138084138122%_)))) - (_%g138083138118%_ _%g138084138122%_)))) - (_%g138083138118%_ _%g138084138122%_))))) - (_%g138082138244%_ _%$stx138079%_)))) + (_%g138120138155%_ + _%g138121138159%_)))) + (_%g138120138155%_ _%g138121138159%_)))) + (_%g138120138155%_ _%g138121138159%_)))) + (_%g138120138155%_ _%g138121138159%_))))) + (_%g138119138281%_ _%$stx138116%_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_%$stx138249%_) - (let* ((_%g138253138271%_ - (lambda (_%g138254138267%_) + (lambda (_%$stx138286%_) + (let* ((_%g138290138308%_ + (lambda (_%g138291138304%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138254138267%_)))) - (_%g138252138326%_ - (lambda (_%g138254138275%_) + _%g138291138304%_)))) + (_%g138289138363%_ + (lambda (_%g138291138312%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138254138275%_)) - (let ((_%e138257138278%_ + (gx#stx-pair? _%g138291138312%_)) + (let ((_%e138294138315%_ (let () (declare (not safe)) - (gx#syntax-e _%g138254138275%_)))) - (let ((_%hd138258138282%_ + (gx#syntax-e _%g138291138312%_)))) + (let ((_%hd138295138319%_ (let () (declare (not safe)) - (##car _%e138257138278%_))) - (_%tl138259138285%_ + (##car _%e138294138315%_))) + (_%tl138296138322%_ (let () (declare (not safe)) - (##cdr _%e138257138278%_)))) + (##cdr _%e138294138315%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138259138285%_)) - (let ((_%e138260138288%_ + (gx#stx-pair? _%tl138296138322%_)) + (let ((_%e138297138325%_ (let () (declare (not safe)) - (gx#syntax-e _%tl138259138285%_)))) - (let ((_%hd138261138292%_ + (gx#syntax-e _%tl138296138322%_)))) + (let ((_%hd138298138329%_ (let () (declare (not safe)) - (##car _%e138260138288%_))) - (_%tl138262138295%_ + (##car _%e138297138325%_))) + (_%tl138299138332%_ (let () (declare (not safe)) - (##cdr _%e138260138288%_)))) + (##cdr _%e138297138325%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138262138295%_)) - (let ((_%e138263138298%_ + (gx#stx-pair? _%tl138299138332%_)) + (let ((_%e138300138335%_ (let () (declare (not safe)) (gx#syntax-e - _%tl138262138295%_)))) - (let ((_%hd138264138302%_ + _%tl138299138332%_)))) + (let ((_%hd138301138339%_ (let () (declare (not safe)) - (##car _%e138263138298%_))) - (_%tl138265138305%_ + (##car _%e138300138335%_))) + (_%tl138302138342%_ (let () (declare (not safe)) - (##cdr _%e138263138298%_)))) + (##cdr _%e138300138335%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138265138305%_)) - ((lambda (_%L138308%_ - _%L138310%_) + _%tl138302138342%_)) + ((lambda (_%L138345%_ + _%L138347%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2275,7 +2275,7 @@ (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives)) - (cons _%L138310%_ '())) + (cons _%L138347%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) @@ -2288,22 +2288,22 @@ '#f 'current-compile-decls-unsafe?)) '()) - (cons _%L138310%_ - (cons _%L138308%_ + (cons _%L138347%_ + (cons _%L138345%_ '())))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138264138302%_ - _%hd138261138292%_) - (_%g138253138271%_ - _%g138254138275%_)))) - (_%g138253138271%_ _%g138254138275%_)))) - (_%g138253138271%_ _%g138254138275%_)))) - (_%g138253138271%_ _%g138254138275%_))))) - (_%g138252138326%_ _%$stx138249%_)))) + _%hd138301138339%_ + _%hd138298138329%_) + (_%g138290138308%_ + _%g138291138312%_)))) + (_%g138290138308%_ _%g138291138312%_)))) + (_%g138290138308%_ _%g138291138312%_)))) + (_%g138290138308%_ _%g138291138312%_))))) + (_%g138289138363%_ _%$stx138286%_)))) (define |gxc[:0:]#meta-state| - (let ((__obj149012 + (let ((__obj149049 (let () (declare (not safe)) (##structure @@ -2332,18 +2332,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149012 + __obj149049 'gxc#meta-state::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149012 'meta-state '2 '#f '#f)) + (##unchecked-structure-set! __obj149049 'meta-state '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149012 + __obj149049 '(src n open blocks) '4 '#f @@ -2351,79 +2351,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149012 + __obj149049 '(src n open blocks) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149012 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149049 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149012 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj149049 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149012 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149049 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149012 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149049 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149012 ':init! '11 '#f '#f)) - (let ((__tmp149322 |gxc[1]#_g149323_|)) + (##unchecked-structure-set! __obj149049 ':init! '11 '#f '#f)) + (let ((__tmp149359 |gxc[1]#_g149360_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149012 __tmp149322 '12 '#f '#f)) - (let ((__tmp149324 |gxc[1]#_g149325_|)) + (##unchecked-structure-set! __obj149049 __tmp149359 '12 '#f '#f)) + (let ((__tmp149361 |gxc[1]#_g149362_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149012 __tmp149324 '13 '#f '#f)) - (let ((__tmp149326 |gxc[1]#_g149327_|)) + (##unchecked-structure-set! __obj149049 __tmp149361 '13 '#f '#f)) + (let ((__tmp149363 |gxc[1]#_g149364_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149012 __tmp149326 '14 '#f '#f)) - (let ((__tmp149328 - (cons (cons 'src |gxc[1]#_g149329_|) - (cons (cons 'n |gxc[1]#_g149330_|) - (cons (cons 'open |gxc[1]#_g149331_|) - (cons (cons 'blocks |gxc[1]#_g149332_|) + (##unchecked-structure-set! __obj149049 __tmp149363 '14 '#f '#f)) + (let ((__tmp149365 + (cons (cons 'src |gxc[1]#_g149366_|) + (cons (cons 'n |gxc[1]#_g149367_|) + (cons (cons 'open |gxc[1]#_g149368_|) + (cons (cons 'blocks |gxc[1]#_g149369_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149012 __tmp149328 '15 '#f '#f)) - (let ((__tmp149333 - (cons (cons 'src |gxc[1]#_g149334_|) - (cons (cons 'n |gxc[1]#_g149335_|) - (cons (cons 'open |gxc[1]#_g149336_|) - (cons (cons 'blocks |gxc[1]#_g149337_|) + (##unchecked-structure-set! __obj149049 __tmp149365 '15 '#f '#f)) + (let ((__tmp149370 + (cons (cons 'src |gxc[1]#_g149371_|) + (cons (cons 'n |gxc[1]#_g149372_|) + (cons (cons 'open |gxc[1]#_g149373_|) + (cons (cons 'blocks |gxc[1]#_g149374_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149012 __tmp149333 '16 '#f '#f)) - (let ((__tmp149338 - (cons (cons 'src |gxc[1]#_g149339_|) - (cons (cons 'n |gxc[1]#_g149340_|) - (cons (cons 'open |gxc[1]#_g149341_|) - (cons (cons 'blocks |gxc[1]#_g149342_|) + (##unchecked-structure-set! __obj149049 __tmp149370 '16 '#f '#f)) + (let ((__tmp149375 + (cons (cons 'src |gxc[1]#_g149376_|) + (cons (cons 'n |gxc[1]#_g149377_|) + (cons (cons 'open |gxc[1]#_g149378_|) + (cons (cons 'blocks |gxc[1]#_g149379_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149012 __tmp149338 '17 '#f '#f)) - (let ((__tmp149343 - (cons (cons 'src |gxc[1]#_g149344_|) - (cons (cons 'n |gxc[1]#_g149345_|) - (cons (cons 'open |gxc[1]#_g149346_|) - (cons (cons 'blocks |gxc[1]#_g149347_|) + (##unchecked-structure-set! __obj149049 __tmp149375 '17 '#f '#f)) + (let ((__tmp149380 + (cons (cons 'src |gxc[1]#_g149381_|) + (cons (cons 'n |gxc[1]#_g149382_|) + (cons (cons 'open |gxc[1]#_g149383_|) + (cons (cons 'blocks |gxc[1]#_g149384_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149012 __tmp149343 '18 '#f '#f)) + (##unchecked-structure-set! __obj149049 __tmp149380 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149012 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149049 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149012 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149049 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149012 '() '20 '#f '#f)) - __obj149012)) + (##unchecked-structure-set! __obj149049 '() '20 '#f '#f)) + __obj149049)) (define |gxc[:0:]#meta-state-block| - (let ((__obj149013 + (let ((__obj149050 (let () (declare (not safe)) (##structure @@ -2452,7 +2452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149013 + __obj149050 'gxc#meta-state-block::t '1 '#f @@ -2460,7 +2460,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149013 + __obj149050 'meta-state-block '2 '#f @@ -2468,7 +2468,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149013 + __obj149050 '(ctx phi n code) '4 '#f @@ -2476,74 +2476,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149013 + __obj149050 '(ctx phi n code) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149013 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149050 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149013 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj149050 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149013 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149050 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149013 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149050 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149013 '#f '11 '#f '#f)) - (let ((__tmp149348 |gxc[1]#_g149349_|)) + (##unchecked-structure-set! __obj149050 '#f '11 '#f '#f)) + (let ((__tmp149385 |gxc[1]#_g149386_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149013 __tmp149348 '12 '#f '#f)) - (let ((__tmp149350 |gxc[1]#_g149351_|)) + (##unchecked-structure-set! __obj149050 __tmp149385 '12 '#f '#f)) + (let ((__tmp149387 |gxc[1]#_g149388_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149013 __tmp149350 '13 '#f '#f)) - (let ((__tmp149352 |gxc[1]#_g149353_|)) + (##unchecked-structure-set! __obj149050 __tmp149387 '13 '#f '#f)) + (let ((__tmp149389 |gxc[1]#_g149390_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149013 __tmp149352 '14 '#f '#f)) - (let ((__tmp149354 - (cons (cons 'ctx |gxc[1]#_g149355_|) - (cons (cons 'phi |gxc[1]#_g149356_|) - (cons (cons 'n |gxc[1]#_g149357_|) - (cons (cons 'code |gxc[1]#_g149358_|) + (##unchecked-structure-set! __obj149050 __tmp149389 '14 '#f '#f)) + (let ((__tmp149391 + (cons (cons 'ctx |gxc[1]#_g149392_|) + (cons (cons 'phi |gxc[1]#_g149393_|) + (cons (cons 'n |gxc[1]#_g149394_|) + (cons (cons 'code |gxc[1]#_g149395_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149013 __tmp149354 '15 '#f '#f)) - (let ((__tmp149359 - (cons (cons 'ctx |gxc[1]#_g149360_|) - (cons (cons 'phi |gxc[1]#_g149361_|) - (cons (cons 'n |gxc[1]#_g149362_|) - (cons (cons 'code |gxc[1]#_g149363_|) + (##unchecked-structure-set! __obj149050 __tmp149391 '15 '#f '#f)) + (let ((__tmp149396 + (cons (cons 'ctx |gxc[1]#_g149397_|) + (cons (cons 'phi |gxc[1]#_g149398_|) + (cons (cons 'n |gxc[1]#_g149399_|) + (cons (cons 'code |gxc[1]#_g149400_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149013 __tmp149359 '16 '#f '#f)) - (let ((__tmp149364 - (cons (cons 'ctx |gxc[1]#_g149365_|) - (cons (cons 'phi |gxc[1]#_g149366_|) - (cons (cons 'n |gxc[1]#_g149367_|) - (cons (cons 'code |gxc[1]#_g149368_|) + (##unchecked-structure-set! __obj149050 __tmp149396 '16 '#f '#f)) + (let ((__tmp149401 + (cons (cons 'ctx |gxc[1]#_g149402_|) + (cons (cons 'phi |gxc[1]#_g149403_|) + (cons (cons 'n |gxc[1]#_g149404_|) + (cons (cons 'code |gxc[1]#_g149405_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149013 __tmp149364 '17 '#f '#f)) - (let ((__tmp149369 - (cons (cons 'ctx |gxc[1]#_g149370_|) - (cons (cons 'phi |gxc[1]#_g149371_|) - (cons (cons 'n |gxc[1]#_g149372_|) - (cons (cons 'code |gxc[1]#_g149373_|) + (##unchecked-structure-set! __obj149050 __tmp149401 '17 '#f '#f)) + (let ((__tmp149406 + (cons (cons 'ctx |gxc[1]#_g149407_|) + (cons (cons 'phi |gxc[1]#_g149408_|) + (cons (cons 'n |gxc[1]#_g149409_|) + (cons (cons 'code |gxc[1]#_g149410_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149013 __tmp149369 '18 '#f '#f)) + (##unchecked-structure-set! __obj149050 __tmp149406 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149013 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149050 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149013 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149050 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149013 '() '20 '#f '#f)) - __obj149013)))) + (##unchecked-structure-set! __obj149050 '() '20 '#f '#f)) + __obj149050)))) diff --git a/src/bootstrap/gerbil/compiler/driver~0.scm b/src/bootstrap/gerbil/compiler/driver~0.scm index 040c0cfcf..8941f0a11 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 1733687567) + (define gerbil/compiler/driver::timestamp 1733870081) (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 ((__tmp202507 (current-time))) + (floor (let ((__tmp202544 (current-time))) (declare (not safe)) - (##time->seconds __tmp202507)))))) + (##time->seconds __tmp202544)))))) (define gxc#compile-timestamp-nanos (lambda () - (let ((__tmp202508 (current-time))) + (let ((__tmp202545 (current-time))) (declare (not safe)) - (##time->seconds __tmp202508)))) + (##time->seconds __tmp202545)))) (define gxc#scheme-file-settings '(permissions: 420 char-encoding: UTF-8 eol-encoding: lf)) (define gxc#with-output-to-scheme-file - (lambda (_%path202364%_ _%fun202365%_) + (lambda (_%path202401%_ _%fun202402%_) (with-output-to-file - (cons 'path: (cons _%path202364%_ gxc#scheme-file-settings)) - _%fun202365%_))) + (cons 'path: (cons _%path202401%_ gxc#scheme-file-settings)) + _%fun202402%_))) (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-libdir202359%_) - (string-append '"-Wl,-rpath=" _%gerbil-libdir202359%_))) + (lambda (_%gerbil-libdir202396%_) + (string-append '"-Wl,-rpath=" _%gerbil-libdir202396%_))) (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 (_%dir202357%_) (delete-file-or-directory _%dir202357%_ '#t))) + (lambda (_%dir202394%_) (delete-file-or-directory _%dir202394%_ '#t))) (define gxc#compile-module__% - (lambda (_%srcpath202330%_ _%opts202331%_) - (if (string? _%srcpath202330%_) + (lambda (_%srcpath202367%_ _%opts202368%_) + (if (string? _%srcpath202367%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath202330%_))) - (let ((_%outdir202333%_ + _%srcpath202367%_))) + (let ((_%outdir202370%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts202331%_))) - (_%invoke-gsc?202334%_ + (pgetq__0 'output-dir: _%opts202368%_))) + (_%invoke-gsc?202371%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts202331%_))) - (_%gsc-options202335%_ + (pgetq__0 'invoke-gsc: _%opts202368%_))) + (_%gsc-options202372%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts202331%_))) - (_%keep-scm?202336%_ + (pgetq__0 'gsc-options: _%opts202368%_))) + (_%keep-scm?202373%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts202331%_))) - (_%verbosity202337%_ + (pgetq__0 'keep-scm: _%opts202368%_))) + (_%verbosity202374%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts202331%_))) - (_%optimize202338%_ + (pgetq__0 'verbose: _%opts202368%_))) + (_%optimize202375%_ (let () (declare (not safe)) - (pgetq__0 'optimize: _%opts202331%_))) - (_%debug202339%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts202331%_))) - (_%gen-ssxi202340%_ + (pgetq__0 'optimize: _%opts202368%_))) + (_%debug202376%_ + (let () (declare (not safe)) (pgetq__0 'debug: _%opts202368%_))) + (_%gen-ssxi202377%_ (let () (declare (not safe)) - (pgetq__0 'generate-ssxi: _%opts202331%_))) - (_%parallel?202341%_ + (pgetq__0 'generate-ssxi: _%opts202368%_))) + (_%parallel?202378%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts202331%_)))) - (if _%outdir202333%_ - (let ((__tmp202509 + (pgetq__0 'parallel: _%opts202368%_)))) + (if _%outdir202370%_ + (let ((__tmp202546 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir202333%_))))) + (create-directory*__0 _%outdir202370%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202509)) + (__with-lock gxc#+driver-mutex+ __tmp202546)) '#!void) - (if _%optimize202338%_ - (let ((__tmp202510 + (if _%optimize202375%_ + (let ((__tmp202547 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202510)) + (__with-lock gxc#+driver-mutex+ __tmp202547)) '#!void) - (let ((__tmp202513 + (let ((__tmp202550 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _%srcpath202330%_)) + (gxc#verbose '"compile " _%srcpath202367%_)) (gxc#compile-top-module - (let ((__tmp202514 + (let ((__tmp202551 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath202330%_))))) + (gx#import-module__0 _%srcpath202367%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202514))))) - (__tmp202512 (gxc#compile-timestamp)) - (__tmp202511 - (cons 'compile-module (cons _%srcpath202330%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp202551))))) + (__tmp202549 (gxc#compile-timestamp)) + (__tmp202548 + (cons 'compile-module (cons _%srcpath202367%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp202513 + __tmp202550 gxc#current-compile-output-dir - _%outdir202333%_ + _%outdir202370%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?202334%_ + _%invoke-gsc?202371%_ gxc#current-compile-gsc-options - _%gsc-options202335%_ + _%gsc-options202372%_ gxc#current-compile-keep-scm - _%keep-scm?202336%_ + _%keep-scm?202373%_ gxc#current-compile-verbose - _%verbosity202337%_ + _%verbosity202374%_ gxc#current-compile-optimize - _%optimize202338%_ + _%optimize202375%_ gxc#current-compile-debug - _%debug202339%_ + _%debug202376%_ gxc#current-compile-generate-ssxi - _%gen-ssxi202340%_ + _%gen-ssxi202377%_ gxc#current-compile-timestamp - __tmp202512 + __tmp202549 gxc#current-compile-context - __tmp202511 + __tmp202548 gxc#current-compile-parallel - _%parallel?202341%_ + _%parallel?202378%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_%srcpath202350%_) - (let ((_%opts202352%_ '())) - (gxc#compile-module__% _%srcpath202350%_ _%opts202352%_)))) + (lambda (_%srcpath202387%_) + (let ((_%opts202389%_ '())) + (gxc#compile-module__% _%srcpath202387%_ _%opts202389%_)))) (define gxc#compile-module - (lambda _g202516_ - (let ((_g202515_ (let () (declare (not safe)) (##length _g202516_)))) - (cond ((let () (declare (not safe)) (##fx= _g202515_ 1)) - (apply gxc#compile-module__0 _g202516_)) - ((let () (declare (not safe)) (##fx= _g202515_ 2)) - (apply gxc#compile-module__% _g202516_)) + (lambda _g202553_ + (let ((_g202552_ (let () (declare (not safe)) (##length _g202553_)))) + (cond ((let () (declare (not safe)) (##fx= _g202552_ 1)) + (apply gxc#compile-module__0 _g202553_)) + ((let () (declare (not safe)) (##fx= _g202552_ 2)) + (apply gxc#compile-module__% _g202553_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g202516_)))))) + _g202553_)))))) (define gxc#compile-exe__% - (lambda (_%srcpath202305%_ _%opts202306%_) - (if (string? _%srcpath202305%_) + (lambda (_%srcpath202342%_ _%opts202343%_) + (if (string? _%srcpath202342%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath202305%_))) - (let ((_%outdir202308%_ + _%srcpath202342%_))) + (let ((_%outdir202345%_ (let () (declare (not safe)) - (pgetq__0 'output-dir: _%opts202306%_))) - (_%invoke-gsc?202309%_ + (pgetq__0 'output-dir: _%opts202343%_))) + (_%invoke-gsc?202346%_ (let () (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts202306%_))) - (_%gsc-options202310%_ + (pgetq__0 'invoke-gsc: _%opts202343%_))) + (_%gsc-options202347%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts202306%_))) - (_%keep-scm?202311%_ + (pgetq__0 'gsc-options: _%opts202343%_))) + (_%keep-scm?202348%_ (let () (declare (not safe)) - (pgetq__0 'keep-scm: _%opts202306%_))) - (_%verbosity202312%_ + (pgetq__0 'keep-scm: _%opts202343%_))) + (_%verbosity202349%_ (let () (declare (not safe)) - (pgetq__0 'verbose: _%opts202306%_))) - (_%debug202313%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts202306%_))) - (_%parallel?202314%_ + (pgetq__0 'verbose: _%opts202343%_))) + (_%debug202350%_ + (let () (declare (not safe)) (pgetq__0 'debug: _%opts202343%_))) + (_%parallel?202351%_ (let () (declare (not safe)) - (pgetq__0 'parallel: _%opts202306%_)))) - (if _%outdir202308%_ - (let ((__tmp202517 + (pgetq__0 'parallel: _%opts202343%_)))) + (if _%outdir202345%_ + (let ((__tmp202554 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir202308%_))))) + (create-directory*__0 _%outdir202345%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202517)) + (__with-lock gxc#+driver-mutex+ __tmp202554)) '#!void) - (let ((__tmp202520 + (let ((__tmp202557 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _%srcpath202305%_)) + (gxc#verbose '"compile exe " _%srcpath202342%_)) (gxc#compile-executable-module - (let ((__tmp202521 + (let ((__tmp202558 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath202305%_))))) + (gx#import-module__0 _%srcpath202342%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202521)) - _%opts202306%_))) - (__tmp202519 (gxc#compile-timestamp)) - (__tmp202518 (cons 'compile-exe (cons _%srcpath202305%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp202558)) + _%opts202343%_))) + (__tmp202556 (gxc#compile-timestamp)) + (__tmp202555 (cons 'compile-exe (cons _%srcpath202342%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp202520 + __tmp202557 gxc#current-compile-output-dir - _%outdir202308%_ + _%outdir202345%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?202309%_ + _%invoke-gsc?202346%_ gxc#current-compile-gsc-options - _%gsc-options202310%_ + _%gsc-options202347%_ gxc#current-compile-keep-scm - _%keep-scm?202311%_ + _%keep-scm?202348%_ gxc#current-compile-verbose - _%verbosity202312%_ + _%verbosity202349%_ gxc#current-compile-debug - _%debug202313%_ + _%debug202350%_ gxc#current-compile-timestamp - __tmp202519 + __tmp202556 gxc#current-compile-context - __tmp202518 + __tmp202555 gxc#current-compile-parallel - _%parallel?202314%_ + _%parallel?202351%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_%srcpath202322%_) - (let ((_%opts202324%_ '())) - (gxc#compile-exe__% _%srcpath202322%_ _%opts202324%_)))) + (lambda (_%srcpath202359%_) + (let ((_%opts202361%_ '())) + (gxc#compile-exe__% _%srcpath202359%_ _%opts202361%_)))) (define gxc#compile-exe - (lambda _g202523_ - (let ((_g202522_ (let () (declare (not safe)) (##length _g202523_)))) - (cond ((let () (declare (not safe)) (##fx= _g202522_ 1)) - (apply gxc#compile-exe__0 _g202523_)) - ((let () (declare (not safe)) (##fx= _g202522_ 2)) - (apply gxc#compile-exe__% _g202523_)) + (lambda _g202560_ + (let ((_g202559_ (let () (declare (not safe)) (##length _g202560_)))) + (cond ((let () (declare (not safe)) (##fx= _g202559_ 1)) + (apply gxc#compile-exe__0 _g202560_)) + ((let () (declare (not safe)) (##fx= _g202559_ 2)) + (apply gxc#compile-exe__% _g202560_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g202523_)))))) + _g202560_)))))) (define gxc#compile-executable-module - (lambda (_%ctx202301%_ _%opts202302%_) + (lambda (_%ctx202338%_ _%opts202339%_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _%opts202302%_)) + (pgetq__0 'full-program-optimization: _%opts202339%_)) (gxc#compile-executable-module/full-program-optimization - _%ctx202301%_ - _%opts202302%_) + _%ctx202338%_ + _%opts202339%_) (gxc#compile-executable-module/separate - _%ctx202301%_ - _%opts202302%_)))) + _%ctx202338%_ + _%opts202339%_)))) (define gxc#compile-executable-module/separate - (lambda (_%ctx202091%_ _%opts202092%_) - (letrec ((_%generate-stub202094%_ - (lambda (_%builtin-modules202297%_) - (let ((_%mod-main202299%_ - (gxc#find-runtime-symbol _%ctx202091%_ 'main))) - (let ((__tmp202524 + (lambda (_%ctx202128%_ _%opts202129%_) + (letrec ((_%generate-stub202131%_ + (lambda (_%builtin-modules202334%_) + (let ((_%mod-main202336%_ + (gxc#find-runtime-symbol _%ctx202128%_ 'main))) + (let ((__tmp202561 (cons 'define (cons 'builtin-modules (cons (cons 'quote - (cons _%builtin-modules202297%_ + (cons _%builtin-modules202334%_ '())) '()))))) (declare (not safe)) - (##write __tmp202524)) - (let ((__tmp202525 + (##write __tmp202561)) + (let ((__tmp202562 (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-main202299%_ + (cons _%mod-main202336%_ (cons (cons 'cdr ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'command-line '()) '())) @@ -370,325 +370,325 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (##write __tmp202525)) + (##write __tmp202562)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%get-libgerbil-ld-opts202095%_ - (lambda (_%gerbil-libdir202295%_) - (let ((__tmp202526 + (_%get-libgerbil-ld-opts202132%_ + (lambda (_%gerbil-libdir202332%_) + (let ((__tmp202563 (path-expand '"libgerbil.ldd" - _%gerbil-libdir202295%_))) + _%gerbil-libdir202332%_))) (declare (not safe)) - (##call-with-input-file __tmp202526 read)))) - (_%replace-extension202096%_ - (lambda (_%path202292%_ _%ext202293%_) + (##call-with-input-file __tmp202563 read)))) + (_%replace-extension202133%_ + (lambda (_%path202329%_ _%ext202330%_) (string-append - (path-strip-extension _%path202292%_) - _%ext202293%_))) - (_%userlib-module?202097%_ - (lambda (_%ctx202290%_) - (if (_%exclude-module?202099%_ _%ctx202290%_) + (path-strip-extension _%path202329%_) + _%ext202330%_))) + (_%userlib-module?202134%_ + (lambda (_%ctx202327%_) + (if (_%exclude-module?202136%_ _%ctx202327%_) '#f - (not (_%libgerbil-module?202098%_ _%ctx202290%_))))) - (_%libgerbil-module?202098%_ - (lambda (_%ctx202283%_) - (let ((_%id-str202285%_ + (not (_%libgerbil-module?202135%_ _%ctx202327%_))))) + (_%libgerbil-module?202135%_ + (lambda (_%ctx202320%_) + (let ((_%id-str202322%_ (symbol->string (##structure-ref - _%ctx202283%_ + _%ctx202320%_ '1 gx#expander-context::t '#f)))) - (if (_%exclude-module?202099%_ _%id-str202285%_) + (if (_%exclude-module?202136%_ _%id-str202322%_) '#f - (let ((_%$e202287%_ + (let ((_%$e202324%_ (let () (declare (not safe)) (##string-prefix? '"gerbil/" - _%id-str202285%_)))) - (if _%$e202287%_ - _%$e202287%_ + _%id-str202322%_)))) + (if _%$e202324%_ + _%$e202324%_ (let () (declare (not safe)) (##string-prefix? '"std/" - _%id-str202285%_)))))))) - (_%exclude-module?202099%_ - (lambda (_%ctx-or-str202279%_) - (let ((_%str202281%_ - (if (string? _%ctx-or-str202279%_) - _%ctx-or-str202279%_ + _%id-str202322%_)))))))) + (_%exclude-module?202136%_ + (lambda (_%ctx-or-str202316%_) + (let ((_%str202318%_ + (if (string? _%ctx-or-str202316%_) + _%ctx-or-str202316%_ (symbol->string (##structure-ref - _%ctx-or-str202279%_ + _%ctx-or-str202316%_ '1 gx#expander-context::t '#f))))) (declare (not safe)) - (##string-prefix? '"gerbil/core" _%str202281%_)))) - (_%not-file-empty?202100%_ - (lambda (_%path202277%_) - (not (gxc#file-empty? _%path202277%_)))) - (_%fold-libgerbil-runtime-scm202101%_ - (lambda (_%gerbil-staticdir202270%_ _%libgerbil-scm202271%_) - (let ((_%gerbil-runtime-scm202275%_ - (let ((__tmp202527 - (lambda (_%rtm202273%_) + (##string-prefix? '"gerbil/core" _%str202318%_)))) + (_%not-file-empty?202137%_ + (lambda (_%path202314%_) + (not (gxc#file-empty? _%path202314%_)))) + (_%fold-libgerbil-runtime-scm202138%_ + (lambda (_%gerbil-staticdir202307%_ _%libgerbil-scm202308%_) + (let ((_%gerbil-runtime-scm202312%_ + (let ((__tmp202564 + (lambda (_%rtm202310%_) (path-expand - (let ((__tmp202528 - (let ((__tmp202529 + (let ((__tmp202565 + (let ((__tmp202566 (let () (declare (not safe)) (string-split - _%rtm202273%_ + _%rtm202310%_ '#\/)))) (declare (not safe)) (string-join - __tmp202529 + __tmp202566 '"__")))) (declare (not safe)) - (##string-append __tmp202528 '".scm")) - _%gerbil-staticdir202270%_)))) + (##string-append __tmp202565 '".scm")) + _%gerbil-staticdir202307%_)))) (declare (not safe)) - (##map __tmp202527 gxc#gerbil-runtime-modules)))) - (_%remove-duplicates202102%_ - (append _%gerbil-runtime-scm202275%_ - _%libgerbil-scm202271%_))))) - (_%remove-duplicates202102%_ - (lambda (_%strlst202230%_) - (let _%loop202232%_ ((_%rest202234%_ _%strlst202230%_) - (_%result202235%_ '())) - (let* ((_%rest202236202244%_ _%rest202234%_) - (_%else202238202252%_ - (lambda () (reverse! _%result202235%_))) - (_%K202240202258%_ - (lambda (_%rest202255%_ _%path202256%_) - (if (member _%path202256%_ _%result202235%_) - (_%loop202232%_ - _%rest202255%_ - _%result202235%_) - (_%loop202232%_ - _%rest202255%_ - (cons _%path202256%_ - _%result202235%_)))))) - (if (pair? _%rest202236202244%_) - (let ((_%hd202241202261%_ + (##map __tmp202564 gxc#gerbil-runtime-modules)))) + (_%remove-duplicates202139%_ + (append _%gerbil-runtime-scm202312%_ + _%libgerbil-scm202308%_))))) + (_%remove-duplicates202139%_ + (lambda (_%strlst202267%_) + (let _%loop202269%_ ((_%rest202271%_ _%strlst202267%_) + (_%result202272%_ '())) + (let* ((_%rest202273202281%_ _%rest202271%_) + (_%else202275202289%_ + (lambda () (reverse! _%result202272%_))) + (_%K202277202295%_ + (lambda (_%rest202292%_ _%path202293%_) + (if (member _%path202293%_ _%result202272%_) + (_%loop202269%_ + _%rest202292%_ + _%result202272%_) + (_%loop202269%_ + _%rest202292%_ + (cons _%path202293%_ + _%result202272%_)))))) + (if (pair? _%rest202273202281%_) + (let ((_%hd202278202298%_ (let () (declare (not safe)) - (##car _%rest202236202244%_))) - (_%tl202242202263%_ + (##car _%rest202273202281%_))) + (_%tl202279202300%_ (let () (declare (not safe)) - (##cdr _%rest202236202244%_)))) - (let* ((_%path202266%_ _%hd202241202261%_) - (_%rest202268%_ _%tl202242202263%_)) - (_%K202240202258%_ - _%rest202268%_ - _%path202266%_))) - (_%else202238202252%_)))))) - (_%compile-stub202103%_ - (lambda (_%output-scm202110%_ _%output-bin202111%_) - (let* ((_%gerbil-home202113%_ - (let ((__tmp202530 + (##cdr _%rest202273202281%_)))) + (let* ((_%path202303%_ _%hd202278202298%_) + (_%rest202305%_ _%tl202279202300%_)) + (_%K202277202295%_ + _%rest202305%_ + _%path202303%_))) + (_%else202275202289%_)))))) + (_%compile-stub202140%_ + (lambda (_%output-scm202147%_ _%output-bin202148%_) + (let* ((_%gerbil-home202150%_ + (let ((__tmp202567 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp202530))) - (_%gerbil-libdir202115%_ - (path-expand '"lib" _%gerbil-home202113%_)) - (_%gerbil-staticdir202117%_ - (path-expand '"static" _%gerbil-libdir202115%_)) - (_%deps202119%_ - (gxc#find-runtime-module-deps _%ctx202091%_)) - (_%libgerbil-deps202121%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp202567))) + (_%gerbil-libdir202152%_ + (path-expand '"lib" _%gerbil-home202150%_)) + (_%gerbil-staticdir202154%_ + (path-expand '"static" _%gerbil-libdir202152%_)) + (_%deps202156%_ + (gxc#find-runtime-module-deps _%ctx202128%_)) + (_%libgerbil-deps202158%_ (let () (declare (not safe)) (##filter - _%libgerbil-module?202098%_ - _%deps202119%_))) - (_%libgerbil-scm202123%_ + _%libgerbil-module?202135%_ + _%deps202156%_))) + (_%libgerbil-scm202160%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%libgerbil-deps202121%_))) - (_%libgerbil-scm202125%_ - (_%fold-libgerbil-runtime-scm202101%_ - _%gerbil-staticdir202117%_ - _%libgerbil-scm202123%_)) - (_%libgerbil-c202131%_ - (map (lambda (_%g202126202128%_) - (_%replace-extension202096%_ - _%g202126202128%_ + _%libgerbil-deps202158%_))) + (_%libgerbil-scm202162%_ + (_%fold-libgerbil-runtime-scm202138%_ + _%gerbil-staticdir202154%_ + _%libgerbil-scm202160%_)) + (_%libgerbil-c202168%_ + (map (lambda (_%g202163202165%_) + (_%replace-extension202133%_ + _%g202163202165%_ '".c")) - _%libgerbil-scm202125%_)) - (_%libgerbil-o202137%_ - (map (lambda (_%g202132202134%_) - (_%replace-extension202096%_ - _%g202132202134%_ + _%libgerbil-scm202162%_)) + (_%libgerbil-o202174%_ + (map (lambda (_%g202169202171%_) + (_%replace-extension202133%_ + _%g202169202171%_ '".o")) - _%libgerbil-scm202125%_)) - (_%src-deps202139%_ + _%libgerbil-scm202162%_)) + (_%src-deps202176%_ (let () (declare (not safe)) (##filter - _%userlib-module?202097%_ - _%deps202119%_))) - (_%src-deps-scm202141%_ + _%userlib-module?202134%_ + _%deps202156%_))) + (_%src-deps-scm202178%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%src-deps202139%_))) - (_%src-deps-scm202143%_ + _%src-deps202176%_))) + (_%src-deps-scm202180%_ (let () (declare (not safe)) (##filter - _%not-file-empty?202100%_ - _%src-deps-scm202141%_))) - (_%src-deps-scm202145%_ + _%not-file-empty?202137%_ + _%src-deps-scm202178%_))) + (_%src-deps-scm202182%_ (let () (declare (not safe)) - (##map path-expand _%src-deps-scm202143%_))) - (_%src-deps-c202151%_ - (let ((__tmp202531 - (lambda (_%g202146202148%_) - (_%replace-extension202096%_ - _%g202146202148%_ + (##map path-expand _%src-deps-scm202180%_))) + (_%src-deps-c202188%_ + (let ((__tmp202568 + (lambda (_%g202183202185%_) + (_%replace-extension202133%_ + _%g202183202185%_ '".c")))) (declare (not safe)) - (##map __tmp202531 _%src-deps-scm202145%_))) - (_%src-deps-o202157%_ - (let ((__tmp202532 - (lambda (_%g202152202154%_) - (_%replace-extension202096%_ - _%g202152202154%_ + (##map __tmp202568 _%src-deps-scm202182%_))) + (_%src-deps-o202194%_ + (let ((__tmp202569 + (lambda (_%g202189202191%_) + (_%replace-extension202133%_ + _%g202189202191%_ '".o")))) (declare (not safe)) - (##map __tmp202532 _%src-deps-scm202145%_))) - (_%src-bin-scm202159%_ - (gxc#find-static-module-file _%ctx202091%_)) - (_%src-bin-scm202161%_ - (path-expand _%src-bin-scm202159%_)) - (_%src-bin-c202163%_ - (_%replace-extension202096%_ - _%src-bin-scm202161%_ + (##map __tmp202569 _%src-deps-scm202182%_))) + (_%src-bin-scm202196%_ + (gxc#find-static-module-file _%ctx202128%_)) + (_%src-bin-scm202198%_ + (path-expand _%src-bin-scm202196%_)) + (_%src-bin-c202200%_ + (_%replace-extension202133%_ + _%src-bin-scm202198%_ '".c")) - (_%src-bin-o202165%_ - (_%replace-extension202096%_ - _%src-bin-scm202161%_ + (_%src-bin-o202202%_ + (_%replace-extension202133%_ + _%src-bin-scm202198%_ '".o")) - (_%output-bin202167%_ - (path-expand _%output-bin202111%_)) - (_%output-scm202169%_ - (path-expand _%output-scm202110%_)) - (_%output-c202171%_ - (_%replace-extension202096%_ - _%output-scm202169%_ + (_%output-bin202204%_ + (path-expand _%output-bin202148%_)) + (_%output-scm202206%_ + (path-expand _%output-scm202147%_)) + (_%output-c202208%_ + (_%replace-extension202133%_ + _%output-scm202206%_ '".c")) - (_%output-o202173%_ - (_%replace-extension202096%_ - _%output-scm202169%_ + (_%output-o202210%_ + (_%replace-extension202133%_ + _%output-scm202206%_ '".o")) - (_%output_-c202175%_ - (_%replace-extension202096%_ - _%output-scm202169%_ + (_%output_-c202212%_ + (_%replace-extension202133%_ + _%output-scm202206%_ '"_.c")) - (_%output_-o202177%_ - (_%replace-extension202096%_ - _%output-scm202169%_ + (_%output_-o202214%_ + (_%replace-extension202133%_ + _%output-scm202206%_ '"_.o")) - (_%gsc-link-opts202179%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts202181%_ + (_%gsc-link-opts202216%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts202218%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts202183%_ + (_%gsc-static-opts202220%_ (gxc#gsc-static-include-options - _%gerbil-staticdir202117%_)) - (_%output-ld-opts202185%_ (gxc#gcc-ld-options)) - (_%libgerbil-ld-opts202187%_ - (_%get-libgerbil-ld-opts202095%_ - _%gerbil-libdir202115%_)) - (_%rpath202189%_ - (gxc#gerbil-rpath _%gerbil-libdir202115%_)) - (_%builtin-modules202193%_ - (_%remove-duplicates202102%_ - (let ((__tmp202533 - (let ((__tmp202535 - (lambda (_%mod202191%_) + _%gerbil-staticdir202154%_)) + (_%output-ld-opts202222%_ (gxc#gcc-ld-options)) + (_%libgerbil-ld-opts202224%_ + (_%get-libgerbil-ld-opts202132%_ + _%gerbil-libdir202152%_)) + (_%rpath202226%_ + (gxc#gerbil-rpath _%gerbil-libdir202152%_)) + (_%builtin-modules202230%_ + (_%remove-duplicates202139%_ + (let ((__tmp202570 + (let ((__tmp202572 + (lambda (_%mod202228%_) (symbol->string (##structure-ref - _%mod202191%_ + _%mod202228%_ '1 gx#expander-context::t '#f)))) - (__tmp202534 - (cons _%ctx202091%_ - _%deps202119%_))) + (__tmp202571 + (cons _%ctx202128%_ + _%deps202156%_))) (declare (not safe)) - (##map __tmp202535 __tmp202534)))) + (##map __tmp202572 __tmp202571)))) (declare (not safe)) (##append gxc#gerbil-runtime-modules - __tmp202533))))) - (letrec ((_%compile-obj202196%_ - (lambda (_%scm-path202203%_ _%c-path202204%_) - (let* ((_%o-path202206%_ - (_%replace-extension202096%_ - _%c-path202204%_ + __tmp202570))))) + (letrec ((_%compile-obj202233%_ + (lambda (_%scm-path202240%_ _%c-path202241%_) + (let* ((_%o-path202243%_ + (_%replace-extension202133%_ + _%c-path202241%_ '".o")) - (_%lock202208%_ + (_%lock202245%_ (let () (declare (not safe)) (##string-append - _%o-path202206%_ + _%o-path202243%_ '".lock"))) - (_%locked202210%_ '#f) - (_%unlock202213%_ + (_%locked202247%_ '#f) + (_%unlock202250%_ (lambda () - (close-port _%locked202210%_) + (close-port _%locked202247%_) (let () (declare (not safe)) (##delete-file - _%lock202208%_))))) - (let _%retry202216%_ () + _%lock202245%_))))) + (let _%retry202253%_ () (if (let () (declare (not safe)) - (##file-exists? _%lock202208%_)) + (##file-exists? _%lock202245%_)) (begin (thread-sleep! '.01) - (_%retry202216%_)) + (_%retry202253%_)) (begin - (set! _%locked202210%_ - (let ((__tmp202536 + (set! _%locked202247%_ + (let ((__tmp202573 (lambda () (open-file (cons 'path: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lock202208%_ + (cons _%lock202245%_ (cons 'create: (cons '#t '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__with-catch false - __tmp202536))) - (if _%locked202210%_ + __tmp202573))) + (if _%locked202247%_ '#!void - (_%retry202216%_))))) - (let ((__tmp202538 + (_%retry202253%_))))) + (let ((__tmp202575 (lambda () (if (or (not (let () (declare (not safe)) (##file-exists? - _%o-path202206%_))) - (not _%scm-path202203%_) + _%o-path202243%_))) + (not _%scm-path202240%_) (let () (declare (not safe)) (file-newer? - _%scm-path202203%_ - _%o-path202206%_))) - (let ((_%gsc-cc-opts202227%_ + _%scm-path202240%_ + _%o-path202243%_))) + (let ((_%gsc-cc-opts202264%_ (gxc#gsc-cc-options__%__0 '#f '#f))) @@ -698,41 +698,41 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp202539 + (let ((__tmp202576 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp202540 (cons _%c-path202204%_ '()))) + (let ((__tmp202577 (cons _%c-path202241%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202540 - _%gsc-static-opts202183%_)))) + __tmp202577 + _%gsc-static-opts202220%_)))) (declare (not safe)) - (__foldr1 cons __tmp202539 _%gsc-cc-opts202227%_))))) + (__foldr1 cons __tmp202576 _%gsc-cc-opts202264%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (__tmp202537 - (lambda () (_%unlock202213%_)))) + (__tmp202574 + (lambda () (_%unlock202250%_)))) (declare (not safe)) (__with-unwind-protect - __tmp202538 - __tmp202537)))))) - (let ((__tmp202541 + __tmp202575 + __tmp202574)))))) + (let ((__tmp202578 (lambda () - (let ((__tmp202542 - (path-directory _%output-bin202167%_))) + (let ((__tmp202579 + (path-directory _%output-bin202204%_))) (declare (not safe)) - (create-directory*__0 __tmp202542))))) + (create-directory*__0 __tmp202579))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202541)) + (__with-lock gxc#+driver-mutex+ __tmp202578)) (gxc#with-output-to-scheme-file - _%output-scm202169%_ + _%output-scm202206%_ (lambda () - (_%generate-stub202094%_ - _%builtin-modules202193%_))) + (_%generate-stub202131%_ + _%builtin-modules202230%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it202201%_ + (let ((_%compile-it202238%_ (lambda () (gxc#invoke__% '#f @@ -740,46 +740,46 @@ absent-value (gxc#gerbil-gsc) (cons '"-link" - (let ((__tmp202543 - (let ((__tmp202544 - (let ((__tmp202545 + (let ((__tmp202580 + (let ((__tmp202581 + (let ((__tmp202582 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%src-bin-scm202161%_ - (cons _%output-scm202169%_ '())))) + (cons _%src-bin-scm202198%_ + (cons _%output-scm202206%_ '())))) (declare (not safe)) - (__foldr1 cons __tmp202545 _%src-deps-scm202145%_)))) + (__foldr1 cons __tmp202582 _%src-deps-scm202182%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202544 - _%libgerbil-c202131%_)))) + __tmp202581 + _%libgerbil-c202168%_)))) (declare (not safe)) (__foldr1 cons - __tmp202543 - _%gsc-link-opts202179%_)))) + __tmp202580 + _%gsc-link-opts202216%_)))) (for-each - _%compile-obj202196%_ - (let ((__tmp202546 - (cons _%src-bin-scm202161%_ - (cons _%output-scm202169%_ + _%compile-obj202233%_ + (let ((__tmp202583 + (cons _%src-bin-scm202198%_ + (cons _%output-scm202206%_ (cons '#f '()))))) (declare (not safe)) (__foldr1 cons - __tmp202546 - _%src-deps-scm202145%_)) - (let ((__tmp202547 - (cons _%src-bin-c202163%_ - (cons _%output-c202171%_ - (cons _%output_-c202175%_ + __tmp202583 + _%src-deps-scm202182%_)) + (let ((__tmp202584 + (cons _%src-bin-c202200%_ + (cons _%output-c202208%_ + (cons _%output_-c202212%_ '()))))) (declare (not safe)) (__foldr1 cons - __tmp202547 - _%src-deps-c202151%_))) + __tmp202584 + _%src-deps-c202188%_))) (gxc#invoke__% '#f absent-value @@ -787,71 +787,71 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin202167%_ - (let ((__tmp202548 - (cons _%src-bin-o202165%_ + (cons _%output-bin202204%_ + (let ((__tmp202585 + (cons _%src-bin-o202202%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%output-o202173%_ - (cons _%output_-o202177%_ - (let ((__tmp202549 - (let ((__tmp202550 - (let ((__tmp202552 + (cons _%output-o202210%_ + (cons _%output_-o202214%_ + (let ((__tmp202586 + (let ((__tmp202587 + (let ((__tmp202589 (cons '"-L" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%gerbil-libdir202115%_ + (cons _%gerbil-libdir202152%_ (cons '"-lgambit" - _%libgerbil-ld-opts202187%_)))) - (__tmp202551 + _%libgerbil-ld-opts202224%_)))) + (__tmp202588 (if (gxc#gerbil-enable-shared?) - (cons _%rpath202189%_ '()) + (cons _%rpath202226%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp202552 __tmp202551)))) + (__foldr1 cons __tmp202589 __tmp202588)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202550 - _%output-ld-opts202185%_)))) + __tmp202587 + _%output-ld-opts202222%_)))) (declare (not safe)) (__foldr1 cons - __tmp202549 - _%libgerbil-o202137%_))))))) + __tmp202586 + _%libgerbil-o202174%_))))))) (declare (not safe)) - (__foldr1 cons __tmp202548 _%src-deps-o202157%_)))))) + (__foldr1 cons __tmp202585 _%src-deps-o202194%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp202553 - (cons _%output-c202171%_ - (cons _%output_-c202175%_ - (cons _%output-o202173%_ - (cons _%output_-o202177%_ + (let ((__tmp202590 + (cons _%output-c202208%_ + (cons _%output_-c202212%_ + (cons _%output-o202210%_ + (cons _%output_-o202214%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##for-each delete-file __tmp202553))))) + (##for-each delete-file __tmp202590))))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it202201%_)) - (_%compile-it202201%_))) + _%compile-it202238%_)) + (_%compile-it202238%_))) '#!void)))))) - (let* ((_%output-bin202105%_ - (gxc#compile-exe-output-file _%ctx202091%_ _%opts202092%_)) - (_%output-scm202107%_ + (let* ((_%output-bin202142%_ + (gxc#compile-exe-output-file _%ctx202128%_ _%opts202129%_)) + (_%output-scm202144%_ (let () (declare (not safe)) - (##string-append _%output-bin202105%_ '"__exe.scm")))) - (_%compile-stub202103%_ - _%output-scm202107%_ - _%output-bin202105%_))))) + (##string-append _%output-bin202142%_ '"__exe.scm")))) + (_%compile-stub202140%_ + _%output-scm202144%_ + _%output-bin202142%_))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_%ctx201913%_ _%opts201914%_) - (letrec ((_%reset-declare201916%_ + (lambda (_%ctx201950%_ _%opts201951%_) + (letrec ((_%reset-declare201953%_ (lambda () '(declare (gambit-scheme) @@ -873,36 +873,36 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_%generate-stub201917%_ - (lambda (_%deps202082%_) - (let ((_%mod-main202084%_ - (gxc#find-runtime-symbol _%ctx201913%_ 'main)) - (_%reset-decl202085%_ (_%reset-declare201916%_)) - (_%user-decl202086%_ (_%user-declare201918%_))) + (_%generate-stub201954%_ + (lambda (_%deps202119%_) + (let ((_%mod-main202121%_ + (gxc#find-runtime-symbol _%ctx201950%_ 'main)) + (_%reset-decl202122%_ (_%reset-declare201953%_)) + (_%user-decl202123%_ (_%user-declare201955%_))) (for-each - (lambda (_%dep202088%_) + (lambda (_%dep202125%_) (let () (declare (not safe)) (##write '(##namespace ("")))) (newline) (let () (declare (not safe)) - (##write _%reset-decl202085%_)) + (##write _%reset-decl202122%_)) (newline) - (if _%user-decl202086%_ + (if _%user-decl202123%_ (begin (let () (declare (not safe)) - (##write _%user-decl202086%_)) + (##write _%user-decl202123%_)) (newline)) '#!void) - (let ((__tmp202554 - (cons 'include (cons _%dep202088%_ '())))) + (let ((__tmp202591 + (cons 'include (cons _%dep202125%_ '())))) (declare (not safe)) - (##write __tmp202554)) + (##write __tmp202591)) (newline)) - _%deps202082%_) - (let ((__tmp202555 + _%deps202119%_) + (let ((__tmp202592 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'gerbil-runtime-init! @@ -912,236 +912,236 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'apply - (cons _%mod-main202084%_ + (cons _%mod-main202121%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'cdr (cons (cons 'command-line '()) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (##write __tmp202555)) + (##write __tmp202592)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%user-declare201918%_ + (_%user-declare201955%_ (lambda () - (let* ((_%gsc-opts201987%_ + (let* ((_%gsc-opts202024%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts201914%_))) - (_%gsc-prelude201989%_ - (if _%gsc-opts201987%_ - (member '"-prelude" _%gsc-opts201987%_) + (pgetq__0 'gsc-options: _%opts201951%_))) + (_%gsc-prelude202026%_ + (if _%gsc-opts202024%_ + (member '"-prelude" _%gsc-opts202024%_) '#f)) - (_%gsc-prelude201991%_ - (if _%gsc-prelude201989%_ + (_%gsc-prelude202028%_ + (if _%gsc-prelude202026%_ (read (open-input-string - (cadr _%gsc-prelude201989%_))) + (cadr _%gsc-prelude202026%_))) '#f))) - (let _%lp201994%_ ((_%rest201996%_ - (cons _%gsc-prelude201991%_ '())) - (_%user-decls201997%_ '())) - (let* ((_%rest201998202006%_ _%rest201996%_) - (_%else202000202014%_ + (let _%lp202031%_ ((_%rest202033%_ + (cons _%gsc-prelude202028%_ '())) + (_%user-decls202034%_ '())) + (let* ((_%rest202035202043%_ _%rest202033%_) + (_%else202037202051%_ (lambda () - (if (null? _%user-decls201997%_) + (if (null? _%user-decls202034%_) '#f (cons 'declare - (reverse _%user-decls201997%_))))) - (_%K202002202070%_ - (lambda (_%rest202017%_ _%expr202018%_) - (let* ((_%expr202019202031%_ _%expr202018%_) - (_%else202022202039%_ + (reverse _%user-decls202034%_))))) + (_%K202039202107%_ + (lambda (_%rest202054%_ _%expr202055%_) + (let* ((_%expr202056202068%_ _%expr202055%_) + (_%else202059202076%_ (lambda () - (_%lp201994%_ - _%rest202017%_ - _%user-decls201997%_)))) - (let ((_%K202027202060%_ - (lambda (_%decls202058%_) - (_%lp201994%_ - _%rest202017%_ + (_%lp202031%_ + _%rest202054%_ + _%user-decls202034%_)))) + (let ((_%K202064202097%_ + (lambda (_%decls202095%_) + (_%lp202031%_ + _%rest202054%_ (let () (declare (not safe)) (__foldl1 cons - _%user-decls201997%_ - _%decls202058%_))))) - (_%K202024202045%_ - (lambda (_%exprs202043%_) - (_%lp201994%_ - (append _%exprs202043%_ - _%rest202017%_) - _%user-decls201997%_)))) - (if (pair? _%expr202019202031%_) - (let ((_%tl202029202065%_ + _%user-decls202034%_ + _%decls202095%_))))) + (_%K202061202082%_ + (lambda (_%exprs202080%_) + (_%lp202031%_ + (append _%exprs202080%_ + _%rest202054%_) + _%user-decls202034%_)))) + (if (pair? _%expr202056202068%_) + (let ((_%tl202066202102%_ (let () (declare (not safe)) - (##cdr _%expr202019202031%_))) - (_%hd202028202063%_ + (##cdr _%expr202056202068%_))) + (_%hd202065202100%_ (let () (declare (not safe)) - (##car _%expr202019202031%_)))) + (##car _%expr202056202068%_)))) (if (let () (declare (not safe)) - (##eq? _%hd202028202063%_ + (##eq? _%hd202065202100%_ 'declare)) - (let ((_%decls202068%_ - _%tl202029202065%_)) - (_%K202027202060%_ - _%decls202068%_)) + (let ((_%decls202105%_ + _%tl202066202102%_)) + (_%K202064202097%_ + _%decls202105%_)) (if (let () (declare (not safe)) - (##eq? _%hd202028202063%_ + (##eq? _%hd202065202100%_ 'begin)) - (let ((_%exprs202053%_ - _%tl202029202065%_)) - (_%K202024202045%_ - _%exprs202053%_)) - (_%else202022202039%_)))) - (_%else202022202039%_))))))) - (if (pair? _%rest201998202006%_) - (let ((_%hd202003202073%_ + (let ((_%exprs202090%_ + _%tl202066202102%_)) + (_%K202061202082%_ + _%exprs202090%_)) + (_%else202059202076%_)))) + (_%else202059202076%_))))))) + (if (pair? _%rest202035202043%_) + (let ((_%hd202040202110%_ (let () (declare (not safe)) - (##car _%rest201998202006%_))) - (_%tl202004202075%_ + (##car _%rest202035202043%_))) + (_%tl202041202112%_ (let () (declare (not safe)) - (##cdr _%rest201998202006%_)))) - (let* ((_%expr202078%_ _%hd202003202073%_) - (_%rest202080%_ _%tl202004202075%_)) - (_%K202002202070%_ - _%rest202080%_ - _%expr202078%_))) - (_%else202000202014%_))))))) - (_%compile-stub201919%_ - (lambda (_%output-scm201926%_ _%output-bin201927%_) - (let* ((_%gerbil-home201929%_ - (let ((__tmp202556 + (##cdr _%rest202035202043%_)))) + (let* ((_%expr202115%_ _%hd202040202110%_) + (_%rest202117%_ _%tl202041202112%_)) + (_%K202039202107%_ + _%rest202117%_ + _%expr202115%_))) + (_%else202037202051%_))))))) + (_%compile-stub201956%_ + (lambda (_%output-scm201963%_ _%output-bin201964%_) + (let* ((_%gerbil-home201966%_ + (let ((__tmp202593 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp202556))) - (_%gerbil-libdir201931%_ - (path-expand '"lib" _%gerbil-home201929%_)) - (_%runtime201933%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp202593))) + (_%gerbil-libdir201968%_ + (path-expand '"lib" _%gerbil-home201966%_)) + (_%runtime201970%_ (let () (declare (not safe)) (##map gxc#find-static-module-file gxc#gerbil-runtime-modules))) - (_%gambit-sharp201935%_ + (_%gambit-sharp201972%_ (path-expand '"lib/_gambit#.scm" - _%gerbil-home201929%_)) - (_%include-gambit-sharp201937%_ + _%gerbil-home201966%_)) + (_%include-gambit-sharp201974%_ (let () (declare (not safe)) (##string-append '"(include \"" - _%gambit-sharp201935%_ + _%gambit-sharp201972%_ '"\")"))) - (_%bin-scm201939%_ - (gxc#find-static-module-file _%ctx201913%_)) - (_%deps201941%_ - (gxc#find-runtime-module-deps _%ctx201913%_)) - (_%deps201943%_ + (_%bin-scm201976%_ + (gxc#find-static-module-file _%ctx201950%_)) + (_%deps201978%_ + (gxc#find-runtime-module-deps _%ctx201950%_)) + (_%deps201980%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%deps201941%_))) - (_%deps201948%_ - (let ((__tmp202557 - (lambda (_%$obj201945%_) - (not (gxc#file-empty? _%$obj201945%_))))) + _%deps201978%_))) + (_%deps201985%_ + (let ((__tmp202594 + (lambda (_%$obj201982%_) + (not (gxc#file-empty? _%$obj201982%_))))) (declare (not safe)) - (##filter __tmp202557 _%deps201943%_))) - (_%deps201952%_ - (let ((__tmp202558 - (lambda (_%f201950%_) + (##filter __tmp202594 _%deps201980%_))) + (_%deps201989%_ + (let ((__tmp202595 + (lambda (_%f201987%_) (not (let () (declare (not safe)) (##member - _%f201950%_ - _%runtime201933%_)))))) + _%f201987%_ + _%runtime201970%_)))))) (declare (not safe)) - (##filter __tmp202558 _%deps201948%_))) - (_%output-base201954%_ - (let ((__tmp202559 + (##filter __tmp202595 _%deps201985%_))) + (_%output-base201991%_ + (let ((__tmp202596 (path-strip-extension - _%output-scm201926%_))) + _%output-scm201963%_))) (declare (not safe)) - (##string-append __tmp202559))) - (_%output-c201956%_ + (##string-append __tmp202596))) + (_%output-c201993%_ (let () (declare (not safe)) - (##string-append _%output-base201954%_ '".c"))) - (_%output-o201958%_ + (##string-append _%output-base201991%_ '".c"))) + (_%output-o201995%_ (let () (declare (not safe)) - (##string-append _%output-base201954%_ '".o"))) - (_%output-c_201960%_ + (##string-append _%output-base201991%_ '".o"))) + (_%output-c_201997%_ (let () (declare (not safe)) - (##string-append _%output-base201954%_ '"_.c"))) - (_%output-o_201962%_ + (##string-append _%output-base201991%_ '"_.c"))) + (_%output-o_201999%_ (let () (declare (not safe)) - (##string-append _%output-base201954%_ '"_.o"))) - (_%gsc-link-opts201964%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts201966%_ + (##string-append _%output-base201991%_ '"_.o"))) + (_%gsc-link-opts202001%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts202003%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts201968%_ + (_%gsc-static-opts202005%_ (gxc#gsc-static-include-options - (path-expand '"static" _%gerbil-libdir201931%_))) - (_%output-ld-opts201970%_ (gxc#gcc-ld-options)) - (_%gsc-gx-macros201972%_ + (path-expand '"static" _%gerbil-libdir201968%_))) + (_%output-ld-opts202007%_ (gxc#gcc-ld-options)) + (_%gsc-gx-macros202009%_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) (cons '"-e" (cons '"(define-cond-expand-feature|enable-smp|)" (cons '"-e" - (cons _%include-gambit-sharp201937%_ + (cons _%include-gambit-sharp201974%_ '())))) (cons '"-e" - (cons _%include-gambit-sharp201937%_ + (cons _%include-gambit-sharp201974%_ '())))) - (_%gsc-link-opts201974%_ + (_%gsc-link-opts202011%_ (let () (declare (not safe)) (##append - _%gsc-link-opts201964%_ - _%gsc-gx-macros201972%_))) - (_%rpath201976%_ - (gxc#gerbil-rpath _%gerbil-libdir201931%_)) - (_%default-ld-options201978%_ + _%gsc-link-opts202001%_ + _%gsc-gx-macros202009%_))) + (_%rpath202013%_ + (gxc#gerbil-rpath _%gerbil-libdir201968%_)) + (_%default-ld-options202015%_ (cons '"-ldl" (cons '"-lm" '())))) - (let ((__tmp202560 + (let ((__tmp202597 (lambda () - (let ((__tmp202561 - (path-directory _%output-bin201927%_))) + (let ((__tmp202598 + (path-directory _%output-bin201964%_))) (declare (not safe)) - (create-directory*__0 __tmp202561))))) + (create-directory*__0 __tmp202598))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202560)) + (__with-lock gxc#+driver-mutex+ __tmp202597)) (gxc#with-output-to-scheme-file - _%output-scm201926%_ + _%output-scm201963%_ (lambda () - (_%generate-stub201917%_ - (let ((__tmp202562 - (let ((__tmp202563 - (cons _%bin-scm201939%_ '()))) + (_%generate-stub201954%_ + (let ((__tmp202599 + (let ((__tmp202600 + (cons _%bin-scm201976%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202563 - _%deps201952%_)))) + __tmp202600 + _%deps201989%_)))) (declare (not safe)) - (__foldr1 cons __tmp202562 _%runtime201933%_))))) + (__foldr1 cons __tmp202599 _%runtime201970%_))))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it201984%_ + (let ((_%compile-it202021%_ (lambda () (gxc#invoke__% '#f @@ -1150,13 +1150,13 @@ (gxc#gerbil-gsc) (cons '"-link" (cons '"-o" - (cons _%output-c_201960%_ - (let ((__tmp202564 - (cons _%output-scm201926%_ + (cons _%output-c_201997%_ + (let ((__tmp202601 + (cons _%output-scm201963%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) (declare (not safe)) - (__foldr1 cons __tmp202564 _%gsc-link-opts201974%_)))))) + (__foldr1 cons __tmp202601 _%gsc-link-opts202011%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#invoke__% '#f @@ -1164,23 +1164,23 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp202565 - (let ((__tmp202566 - (cons _%output-c201956%_ - (cons _%output-c_201960%_ + (let ((__tmp202602 + (let ((__tmp202603 + (cons _%output-c201993%_ + (cons _%output-c_201997%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202566 - _%gsc-static-opts201968%_)))) + __tmp202603 + _%gsc-static-opts202005%_)))) (declare (not safe)) (__foldr1 cons - __tmp202565 - _%gsc-cc-opts201966%_)))) + __tmp202602 + _%gsc-cc-opts202003%_)))) (gxc#invoke__% '#f absent-value @@ -1188,27 +1188,27 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin201927%_ - (cons _%output-o201958%_ - (cons _%output-o_201962%_ + (cons _%output-bin201964%_ + (cons _%output-o201995%_ + (cons _%output-o_201999%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp202567 - (let ((__tmp202569 + (let ((__tmp202604 + (let ((__tmp202606 (cons '"-L" - (cons _%gerbil-libdir201931%_ + (cons _%gerbil-libdir201968%_ (cons '"-lgambit" - _%default-ld-options201978%_)))) - (__tmp202568 + _%default-ld-options202015%_)))) + (__tmp202605 (if (gxc#gerbil-enable-shared?) - (cons _%rpath201976%_ '()) + (cons _%rpath202013%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp202569 __tmp202568)))) + (__foldr1 cons __tmp202606 __tmp202605)))) (declare (not safe)) (__foldr1 cons - __tmp202567 - _%output-ld-opts201970%_))))))))))) + __tmp202604 + _%output-ld-opts202007%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) @@ -1216,626 +1216,626 @@ (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it201984%_)) - (_%compile-it201984%_))) + _%compile-it202021%_)) + (_%compile-it202021%_))) '#!void))))) - (let* ((_%output-bin201921%_ - (gxc#compile-exe-output-file _%ctx201913%_ _%opts201914%_)) - (_%output-scm201923%_ + (let* ((_%output-bin201958%_ + (gxc#compile-exe-output-file _%ctx201950%_ _%opts201951%_)) + (_%output-scm201960%_ (let () (declare (not safe)) - (##string-append _%output-bin201921%_ '"__exe.scm")))) - (_%compile-stub201919%_ - _%output-scm201923%_ - _%output-bin201921%_))))) + (##string-append _%output-bin201958%_ '"__exe.scm")))) + (_%compile-stub201956%_ + _%output-scm201960%_ + _%output-bin201958%_))))) (define gxc#find-export-binding - (lambda (_%ctx201862%_ _%id201863%_) - (let ((_%$e201909%_ - (let ((__tmp202571 - (lambda (_%e201864201866%_) - (let* ((_%g201868201878%_ _%e201864201866%_) - (_%else201870201886%_ (lambda () '#f)) - (_%K201872201890%_ (lambda () '#t))) + (lambda (_%ctx201899%_ _%id201900%_) + (let ((_%$e201946%_ + (let ((__tmp202608 + (lambda (_%e201901201903%_) + (let* ((_%g201905201915%_ _%e201901201903%_) + (_%else201907201923%_ (lambda () '#f)) + (_%K201909201927%_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%g201868201878%_ + _%g201905201915%_ 'gx#module-export::t)) - (let* ((_%e201873201893%_ + (let* ((_%e201910201930%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201868201878%_ + _%g201905201915%_ '1 '#f '#f))) - (_%e201874201896%_ + (_%e201911201933%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201868201878%_ + _%g201905201915%_ '2 '#f '#f))) - (_%e201875201899%_ + (_%e201912201936%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201868201878%_ + _%g201905201915%_ '3 '#f '#f)))) (if (let () (declare (not safe)) - (##eq? _%e201875201899%_ '0)) - (let ((_%e201876201902%_ + (##eq? _%e201912201936%_ '0)) + (let ((_%e201913201939%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201868201878%_ + _%g201905201915%_ '4 '#f '#f)))) - (if ((lambda (_%g201904201906%_) - (eq? _%g201904201906%_ - _%id201863%_)) - _%e201876201902%_) - (_%K201872201890%_) - (_%else201870201886%_))) - (_%else201870201886%_))) - (_%else201870201886%_))))) - (__tmp202570 + (if ((lambda (_%g201941201943%_) + (eq? _%g201941201943%_ + _%id201900%_)) + _%e201913201939%_) + (_%K201909201927%_) + (_%else201907201923%_))) + (_%else201907201923%_))) + (_%else201907201923%_))))) + (__tmp202607 (##structure-ref - _%ctx201862%_ + _%ctx201899%_ '9 gx#module-context::t '#f))) (declare (not safe)) - (__find __tmp202571 __tmp202570)))) - (if _%$e201909%_ + (__find __tmp202608 __tmp202607)))) + (if _%$e201946%_ (let () (declare (not safe)) - (gx#core-resolve-module-export _%$e201909%_)) + (gx#core-resolve-module-export _%$e201946%_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_%ctx201853%_ _%id201854%_) - (let ((_%$e201856%_ - (gxc#find-export-binding _%ctx201853%_ _%id201854%_))) - (if _%$e201856%_ - ((lambda (_%bind201859%_) + (lambda (_%ctx201890%_ _%id201891%_) + (let ((_%$e201893%_ + (gxc#find-export-binding _%ctx201890%_ _%id201891%_))) + (if _%$e201893%_ + ((lambda (_%bind201896%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind201859%_ + _%bind201896%_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _%id201854%_))) - (##structure-ref _%bind201859%_ '1 gx#binding::t '#f)) - _%$e201856%_) - (let ((__tmp202572 + _%id201891%_))) + (##structure-ref _%bind201896%_ '1 gx#binding::t '#f)) + _%$e201893%_) + (let ((__tmp202609 (##structure-ref - _%ctx201853%_ + _%ctx201890%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp202572 - _%id201854%_)))))) + __tmp202609 + _%id201891%_)))))) (define gxc#find-runtime-module-deps - (lambda (_%ctx201719%_) - (letrec* ((_%ht201721%_ + (lambda (_%ctx201756%_) + (letrec* ((_%ht201758%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%import-set-template201722%_ - (lambda (_%in201798%_ _%phi201799%_) - (let ((_%iphi201801%_ - (fx+ _%phi201799%_ + (_%import-set-template201759%_ + (lambda (_%in201835%_ _%phi201836%_) + (let ((_%iphi201838%_ + (fx+ _%phi201836%_ (##direct-structure-ref - _%in201798%_ + _%in201835%_ '2 gx#import-set::t '#f))) - (_%imports201802%_ + (_%imports201839%_ (##structure-ref (##direct-structure-ref - _%in201798%_ + _%in201835%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp201804%_ ((_%rest201806%_ _%imports201802%_) - (_%r201807%_ '())) - (let* ((_%rest201808201816%_ _%rest201806%_) - (_%else201810201824%_ (lambda () _%r201807%_)) - (_%K201812201841%_ - (lambda (_%rest201827%_ _%in201828%_) + (let _%lp201841%_ ((_%rest201843%_ _%imports201839%_) + (_%r201844%_ '())) + (let* ((_%rest201845201853%_ _%rest201843%_) + (_%else201847201861%_ (lambda () _%r201844%_)) + (_%K201849201878%_ + (lambda (_%rest201864%_ _%in201865%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in201828%_ + _%in201865%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi201801%_)) - (_%lp201804%_ - _%rest201827%_ - (cons _%in201828%_ _%r201807%_)) - (_%lp201804%_ - _%rest201827%_ - _%r201807%_)) + (##fxzero? _%iphi201838%_)) + (_%lp201841%_ + _%rest201864%_ + (cons _%in201865%_ _%r201844%_)) + (_%lp201841%_ + _%rest201864%_ + _%r201844%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in201828%_ + _%in201865%_ 'gx#module-import::t)) - (let ((_%iphi201832%_ - (fx+ _%phi201799%_ + (let ((_%iphi201869%_ + (fx+ _%phi201836%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in201828%_ + _%in201865%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi201832%_)) - (_%lp201804%_ - _%rest201827%_ + (##fxzero? _%iphi201869%_)) + (_%lp201841%_ + _%rest201864%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in201828%_ + _%in201865%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r201807%_)) - (_%lp201804%_ - _%rest201827%_ - _%r201807%_))) + _%r201844%_)) + (_%lp201841%_ + _%rest201864%_ + _%r201844%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in201828%_ + _%in201865%_ 'gx#import-set::t)) - (let ((_%xphi201835%_ - (fx+ _%iphi201801%_ + (let ((_%xphi201872%_ + (fx+ _%iphi201838%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in201828%_ + _%in201865%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi201835%_)) - (_%lp201804%_ - _%rest201827%_ + _%xphi201872%_)) + (_%lp201841%_ + _%rest201864%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in201828%_ + _%in201865%_ '1 '#f '#f)) - _%r201807%_)) + _%r201844%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi201835%_)) - (_%lp201804%_ - _%rest201827%_ - (let ((__tmp202573 + _%xphi201872%_)) + (_%lp201841%_ + _%rest201864%_ + (let ((__tmp202610 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%import-set-template201722%_ - _%in201828%_ - _%iphi201801%_))) + (_%import-set-template201759%_ + _%in201865%_ + _%iphi201838%_))) (declare (not safe)) - (__foldl1 cons _%r201807%_ __tmp202573))) - (_%lp201804%_ _%rest201827%_ _%r201807%_)))) + (__foldl1 cons _%r201844%_ __tmp202610))) + (_%lp201841%_ _%rest201864%_ _%r201844%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp201804%_ - _%rest201827%_ - _%r201807%_))))))) - (if (pair? _%rest201808201816%_) - (let ((_%hd201813201844%_ + (_%lp201841%_ + _%rest201864%_ + _%r201844%_))))))) + (if (pair? _%rest201845201853%_) + (let ((_%hd201850201881%_ (let () (declare (not safe)) - (##car _%rest201808201816%_))) - (_%tl201814201846%_ + (##car _%rest201845201853%_))) + (_%tl201851201883%_ (let () (declare (not safe)) - (##cdr _%rest201808201816%_)))) - (let* ((_%in201849%_ _%hd201813201844%_) - (_%rest201851%_ _%tl201814201846%_)) - (_%K201812201841%_ - _%rest201851%_ - _%in201849%_))) - (_%else201810201824%_))))))) - (_%find-deps201723%_ - (lambda (_%rest201731%_ _%deps201732%_) - (let* ((_%rest201733201741%_ _%rest201731%_) - (_%else201735201749%_ (lambda () _%deps201732%_)) - (_%K201737201786%_ - (lambda (_%rest201752%_ _%hd201753%_) + (##cdr _%rest201845201853%_)))) + (let* ((_%in201886%_ _%hd201850201881%_) + (_%rest201888%_ _%tl201851201883%_)) + (_%K201849201878%_ + _%rest201888%_ + _%in201886%_))) + (_%else201847201861%_))))))) + (_%find-deps201760%_ + (lambda (_%rest201768%_ _%deps201769%_) + (let* ((_%rest201770201778%_ _%rest201768%_) + (_%else201772201786%_ (lambda () _%deps201769%_)) + (_%K201774201823%_ + (lambda (_%rest201789%_ _%hd201790%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd201753%_ + _%hd201790%_ 'gx#module-context::t)) - (let ((_%id201756%_ + (let ((_%id201793%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201753%_ + _%hd201790%_ '1 '#f '#f))) - (_%imports201757%_ + (_%imports201794%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201753%_ + _%hd201790%_ '8 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht201721%_ - _%id201756%_)) - (_%find-deps201723%_ - _%rest201752%_ - _%deps201732%_) - (let ((_%$e201760%_ + _%ht201758%_ + _%id201793%_)) + (_%find-deps201760%_ + _%rest201789%_ + _%deps201769%_) + (let ((_%$e201797%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd201753%_)))) - (if _%$e201760%_ - ((lambda (_%pre201763%_) - (let ((_%xdeps201765%_ - (_%find-deps201723%_ - (cons _%pre201763%_ - _%imports201757%_) - _%deps201732%_))) + _%hd201790%_)))) + (if _%$e201797%_ + ((lambda (_%pre201800%_) + (let ((_%xdeps201802%_ + (_%find-deps201760%_ + (cons _%pre201800%_ + _%imports201794%_) + _%deps201769%_))) (let () (declare (not safe)) (__hash-put! - _%ht201721%_ - _%id201756%_ - _%hd201753%_)) - (_%find-deps201723%_ - _%rest201752%_ - (cons _%hd201753%_ - _%xdeps201765%_)))) - _%$e201760%_) - (let ((_%xdeps201768%_ - (_%find-deps201723%_ - _%imports201757%_ - _%deps201732%_))) + _%ht201758%_ + _%id201793%_ + _%hd201790%_)) + (_%find-deps201760%_ + _%rest201789%_ + (cons _%hd201790%_ + _%xdeps201802%_)))) + _%$e201797%_) + (let ((_%xdeps201805%_ + (_%find-deps201760%_ + _%imports201794%_ + _%deps201769%_))) (let () (declare (not safe)) (__hash-put! - _%ht201721%_ - _%id201756%_ - _%hd201753%_)) - (_%find-deps201723%_ - _%rest201752%_ - (cons _%hd201753%_ - _%xdeps201768%_))))))) + _%ht201758%_ + _%id201793%_ + _%hd201790%_)) + (_%find-deps201760%_ + _%rest201789%_ + (cons _%hd201790%_ + _%xdeps201805%_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd201753%_ + _%hd201790%_ 'gx#prelude-context::t)) - (let ((_%id201771%_ + (let ((_%id201808%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201753%_ + _%hd201790%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht201721%_ - _%id201771%_)) - (_%find-deps201723%_ - _%rest201752%_ - _%deps201732%_) - (let ((_%xdeps201775%_ - (_%find-deps201723%_ + _%ht201758%_ + _%id201808%_)) + (_%find-deps201760%_ + _%rest201789%_ + _%deps201769%_) + (let ((_%xdeps201812%_ + (_%find-deps201760%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201753%_ + _%hd201790%_ '7 '#f '#f)) - _%deps201732%_))) + _%deps201769%_))) (if (let () (declare (not safe)) (__hash-get - _%ht201721%_ - _%id201771%_)) - (_%find-deps201723%_ - _%rest201752%_ - _%xdeps201775%_) + _%ht201758%_ + _%id201808%_)) + (_%find-deps201760%_ + _%rest201789%_ + _%xdeps201812%_) (begin (let () (declare (not safe)) (__hash-put! - _%ht201721%_ - _%id201771%_ - _%hd201753%_)) - (_%find-deps201723%_ - _%rest201752%_ - (cons _%hd201753%_ - _%xdeps201775%_))))))) + _%ht201758%_ + _%id201808%_ + _%hd201790%_)) + (_%find-deps201760%_ + _%rest201789%_ + (cons _%hd201790%_ + _%xdeps201812%_))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201753%_ + _%hd201790%_ 'gx#module-import::t)) (if (fxzero? (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201753%_ + _%hd201790%_ '3 '#f '#f))) - (_%find-deps201723%_ + (_%find-deps201760%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201753%_ + _%hd201790%_ '1 '#f '#f)) - _%rest201752%_) - _%deps201732%_) - (_%find-deps201723%_ - _%rest201752%_ - _%deps201732%_)) + _%rest201789%_) + _%deps201769%_) + (_%find-deps201760%_ + _%rest201789%_ + _%deps201769%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201753%_ + _%hd201790%_ 'gx#module-export::t)) - (_%find-deps201723%_ + (_%find-deps201760%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201753%_ + _%hd201790%_ '1 '#f '#f)) - _%rest201752%_) - _%deps201732%_) + _%rest201789%_) + _%deps201769%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201753%_ + _%hd201790%_ 'gx#import-set::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##unchecked-structure-ref _%hd201753%_ '2 '#f '#f))) - (_%find-deps201723%_ + (##unchecked-structure-ref _%hd201790%_ '2 '#f '#f))) + (_%find-deps201760%_ (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%hd201753%_ '1 '#f '#f)) - _%rest201752%_) - _%deps201732%_) + (##unchecked-structure-ref _%hd201790%_ '1 '#f '#f)) + _%rest201789%_) + _%deps201769%_) (if (fxpositive? (let () (declare (not safe)) - (##unchecked-structure-ref _%hd201753%_ '2 '#f '#f))) - (let ((_%xdeps201782%_ - (_%import-set-template201722%_ _%hd201753%_ '0))) - (_%find-deps201723%_ + (##unchecked-structure-ref _%hd201790%_ '2 '#f '#f))) + (let ((_%xdeps201819%_ + (_%import-set-template201759%_ _%hd201790%_ '0))) + (_%find-deps201760%_ (let () (declare (not safe)) - (__foldl1 cons _%rest201752%_ _%xdeps201782%_)) - _%deps201732%_)) - (_%find-deps201723%_ _%rest201752%_ _%deps201732%_))) + (__foldl1 cons _%rest201789%_ _%xdeps201819%_)) + _%deps201769%_)) + (_%find-deps201760%_ _%rest201789%_ _%deps201769%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _%hd201753%_)))))))))) - (if (pair? _%rest201733201741%_) - (let ((_%hd201738201789%_ + _%hd201790%_)))))))))) + (if (pair? _%rest201770201778%_) + (let ((_%hd201775201826%_ (let () (declare (not safe)) - (##car _%rest201733201741%_))) - (_%tl201739201791%_ + (##car _%rest201770201778%_))) + (_%tl201776201828%_ (let () (declare (not safe)) - (##cdr _%rest201733201741%_)))) - (let* ((_%hd201794%_ _%hd201738201789%_) - (_%rest201796%_ _%tl201739201791%_)) - (_%K201737201786%_ - _%rest201796%_ - _%hd201794%_))) - (_%else201735201749%_)))))) - (let ((__tmp202574 + (##cdr _%rest201770201778%_)))) + (let* ((_%hd201831%_ _%hd201775201826%_) + (_%rest201833%_ _%tl201776201828%_)) + (_%K201774201823%_ + _%rest201833%_ + _%hd201831%_))) + (_%else201772201786%_)))))) + (let ((__tmp202611 (filter gx#expander-context-id - (_%find-deps201723%_ - (let ((_%$e201725%_ + (_%find-deps201760%_ + (let ((_%$e201762%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%ctx201719%_)))) - (if _%$e201725%_ - ((lambda (_%pre201728%_) - (cons _%pre201728%_ + _%ctx201756%_)))) + (if _%$e201762%_ + ((lambda (_%pre201765%_) + (cons _%pre201765%_ (##structure-ref - _%ctx201719%_ + _%ctx201756%_ '8 gx#module-context::t '#f))) - _%$e201725%_) + _%$e201762%_) (##structure-ref - _%ctx201719%_ + _%ctx201756%_ '8 gx#module-context::t '#f))) '())))) (declare (not safe)) - (##reverse __tmp202574))))) + (##reverse __tmp202611))))) (define gxc#find-static-module-file - (lambda (_%ctx201649%_) - (let* ((_%context-id201651%_ + (lambda (_%ctx201686%_) + (let* ((_%context-id201688%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%ctx201649%_ + _%ctx201686%_ 'gx#module-context::t)) (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx201649%_ '1 '#f '#f)) - (string->symbol _%ctx201649%_))) - (_%scm201653%_ - (let ((__tmp202575 - (gxc#static-module-name _%context-id201651%_))) + (##unchecked-structure-ref _%ctx201686%_ '1 '#f '#f)) + (string->symbol _%ctx201686%_))) + (_%scm201690%_ + (let ((__tmp202612 + (gxc#static-module-name _%context-id201688%_))) (declare (not safe)) - (##string-append __tmp202575 '".scm"))) - (_%dirs201655%_ (let () (declare (not safe)) (load-path))) - (_%dirs201661%_ - (let ((_%user-libpath201657%_ + (##string-append __tmp202612 '".scm"))) + (_%dirs201692%_ (let () (declare (not safe)) (load-path))) + (_%dirs201698%_ + (let ((_%user-libpath201694%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%user-libpath201657%_ - (let ((_%user-libpath201659%_ - (path-expand '"lib" _%user-libpath201657%_))) + (if _%user-libpath201694%_ + (let ((_%user-libpath201696%_ + (path-expand '"lib" _%user-libpath201694%_))) (if (let () (declare (not safe)) - (##member _%user-libpath201659%_ _%dirs201655%_)) - _%dirs201655%_ - (cons _%user-libpath201659%_ _%dirs201655%_))) - _%dirs201655%_))) - (_%dirs201671%_ - (let ((_%$e201663%_ + (##member _%user-libpath201696%_ _%dirs201692%_)) + _%dirs201692%_ + (cons _%user-libpath201696%_ _%dirs201692%_))) + _%dirs201692%_))) + (_%dirs201708%_ + (let ((_%$e201700%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e201663%_ - ((lambda (_%g201665201667%_) - (cons _%g201665201667%_ _%dirs201661%_)) - _%$e201663%_) - _%dirs201661%_))) - (_%dirs201677%_ - (let ((__tmp202576 - (lambda (_%g201672201674%_) - (path-expand '"static" _%g201672201674%_)))) + (if _%$e201700%_ + ((lambda (_%g201702201704%_) + (cons _%g201702201704%_ _%dirs201698%_)) + _%$e201700%_) + _%dirs201698%_))) + (_%dirs201714%_ + (let ((__tmp202613 + (lambda (_%g201709201711%_) + (path-expand '"static" _%g201709201711%_)))) (declare (not safe)) - (##map __tmp202576 _%dirs201671%_)))) - (let _%lp201680%_ ((_%rest201682%_ _%dirs201677%_)) - (let* ((_%rest201683201691%_ _%rest201682%_) - (_%else201685201699%_ + (##map __tmp202613 _%dirs201708%_)))) + (let _%lp201717%_ ((_%rest201719%_ _%dirs201714%_)) + (let* ((_%rest201720201728%_ _%rest201719%_) + (_%else201722201736%_ (lambda () - (let ((__tmp202577 + (let ((__tmp202614 (##structure-ref - _%ctx201649%_ + _%ctx201686%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp202577 - _%scm201653%_)))) - (_%K201687201707%_ - (lambda (_%rest201702%_ _%dir201703%_) - (let ((_%path201705%_ - (path-expand _%scm201653%_ _%dir201703%_))) + __tmp202614 + _%scm201690%_)))) + (_%K201724201744%_ + (lambda (_%rest201739%_ _%dir201740%_) + (let ((_%path201742%_ + (path-expand _%scm201690%_ _%dir201740%_))) (if (let () (declare (not safe)) - (##file-exists? _%path201705%_)) - _%path201705%_ - (_%lp201680%_ _%rest201702%_)))))) - (if (pair? _%rest201683201691%_) - (let ((_%hd201688201710%_ + (##file-exists? _%path201742%_)) + _%path201742%_ + (_%lp201717%_ _%rest201739%_)))))) + (if (pair? _%rest201720201728%_) + (let ((_%hd201725201747%_ (let () (declare (not safe)) - (##car _%rest201683201691%_))) - (_%tl201689201712%_ + (##car _%rest201720201728%_))) + (_%tl201726201749%_ (let () (declare (not safe)) - (##cdr _%rest201683201691%_)))) - (let* ((_%dir201715%_ _%hd201688201710%_) - (_%rest201717%_ _%tl201689201712%_)) - (_%K201687201707%_ _%rest201717%_ _%dir201715%_))) - (_%else201685201699%_))))))) + (##cdr _%rest201720201728%_)))) + (let* ((_%dir201752%_ _%hd201725201747%_) + (_%rest201754%_ _%tl201726201749%_)) + (_%K201724201744%_ _%rest201754%_ _%dir201752%_))) + (_%else201722201736%_))))))) (define gxc#file-empty? - (lambda (_%path201647%_) - (zero? (let ((__tmp202578 (file-info _%path201647%_ '#t))) + (lambda (_%path201684%_) + (zero? (let ((__tmp202615 (file-info _%path201684%_ '#t))) (declare (not safe)) - (##file-info-size __tmp202578))))) + (##file-info-size __tmp202615))))) (define gxc#compile-top-module - (lambda (_%ctx201643%_) - (let ((__tmp202582 + (lambda (_%ctx201680%_) + (let ((__tmp202619 (lambda () - (let ((__tmp202583 + (let ((__tmp202620 (##structure-ref - _%ctx201643%_ + _%ctx201680%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp202583)) + (gxc#verbose '"compile " __tmp202620)) (if (let () (declare (not safe)) (gxc#current-compile-optimize)) - (let ((__tmp202584 + (let ((__tmp202621 (lambda () (let () (declare (not safe)) - (gxc#optimize! _%ctx201643%_))))) + (gxc#optimize! _%ctx201680%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202584)) + (__with-lock gxc#+driver-mutex+ __tmp202621)) '#!void) - (gxc#collect-bindings _%ctx201643%_) - (gxc#compile-runtime-code _%ctx201643%_) - (gxc#compile-meta-code _%ctx201643%_) + (gxc#collect-bindings _%ctx201680%_) + (gxc#compile-runtime-code _%ctx201680%_) + (gxc#compile-meta-code _%ctx201680%_) (if (and (let () (declare (not safe)) (gxc#current-compile-optimize)) (let () (declare (not safe)) (gxc#current-compile-generate-ssxi))) - (gxc#compile-ssxi-code _%ctx201643%_) + (gxc#compile-ssxi-code _%ctx201680%_) '#!void))) - (__tmp202581 - (let ((__obj202505 + (__tmp202618 + (let ((__obj202542 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) (let () (declare (not safe)) - (gxc#symbol-table:::init! __obj202505)) - __obj202505)) - (__tmp202580 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202579 + (gxc#symbol-table:::init! __obj202542)) + __obj202542)) + (__tmp202617 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp202616 (let () (declare (not safe)) (make-hash-table__% @@ -1850,137 +1850,137 @@ absent-value)))) (declare (not safe)) (__call-with-parameters - __tmp202582 + __tmp202619 gx#current-expander-context - _%ctx201643%_ + _%ctx201680%_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp202581 + __tmp202618 gxc#current-compile-runtime-sections - __tmp202580 + __tmp202617 gxc#current-compile-runtime-names - __tmp202579)))) + __tmp202616)))) (define gxc#collect-bindings - (lambda (_%ctx201641%_) - (let ((__tmp202585 - (##structure-ref _%ctx201641%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx201678%_) + (let ((__tmp202622 + (##structure-ref _%ctx201678%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp202585)))) + (gxc#apply-collect-bindings __tmp202622)))) (define gxc#compile-runtime-code - (lambda (_%ctx201589%_) - (letrec ((_%compile1201591%_ - (lambda (_%ctx201630%_) - (let* ((_%code201632%_ + (lambda (_%ctx201626%_) + (letrec ((_%compile1201628%_ + (lambda (_%ctx201667%_) + (let* ((_%code201669%_ (##structure-ref - _%ctx201630%_ + _%ctx201667%_ '11 gx#module-context::t '#f)) - (_%rtm201636%_ - (let ((_%idstr201634%_ - (let ((__tmp202586 + (_%rtm201673%_ + (let ((_%idstr201671%_ + (let ((__tmp202623 (##structure-ref - _%ctx201630%_ + _%ctx201667%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp202586)))) + __tmp202623)))) (declare (not safe)) - (##string-append _%idstr201634%_ '"~0"))) - (_%rtc?201638%_ + (##string-append _%idstr201671%_ '"~0"))) + (_%rtc?201675%_ (let () (declare (not safe)) - (gxc#apply-find-runtime-code _%code201632%_)))) - (if _%rtc?201638%_ - (let ((__tmp202587 + (gxc#apply-find-runtime-code _%code201669%_)))) + (if _%rtc?201675%_ + (let ((__tmp202624 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-put! - __tmp202587 - _%ctx201630%_ - _%rtm201636%_)) + __tmp202624 + _%ctx201667%_ + _%rtm201673%_)) '#!void) - (_%generate-runtime-code201593%_ - _%ctx201630%_ - _%code201632%_ - (if _%rtc?201638%_ _%rtm201636%_ '#f))))) - (_%context-timestamp201592%_ - (lambda (_%ctx201628%_) - (let ((__tmp202588 - (let ((__tmp202589 + (_%generate-runtime-code201630%_ + _%ctx201667%_ + _%code201669%_ + (if _%rtc?201675%_ _%rtm201673%_ '#f))))) + (_%context-timestamp201629%_ + (lambda (_%ctx201665%_) + (let ((__tmp202625 + (let ((__tmp202626 (symbol->string (##structure-ref - _%ctx201628%_ + _%ctx201665%_ '1 gx#expander-context::t '#f)))) (declare (not safe)) - (##string-append __tmp202589 '"::timestamp")))) + (##string-append __tmp202626 '"::timestamp")))) (declare (not safe)) - (##string->symbol __tmp202588)))) - (_%generate-runtime-code201593%_ - (lambda (_%ctx201600%_ _%code201601%_ _%rtm201602%_) - (let* ((_%runtime-code?201604%_ (if _%rtm201602%_ '#t '#f)) - (_%lifts201606%_ (box '())) - (_%runtime-code201609%_ - (if _%runtime-code?201604%_ - (let ((__tmp202592 + (##string->symbol __tmp202625)))) + (_%generate-runtime-code201630%_ + (lambda (_%ctx201637%_ _%code201638%_ _%rtm201639%_) + (let* ((_%runtime-code?201641%_ (if _%rtm201639%_ '#t '#f)) + (_%lifts201643%_ (box '())) + (_%runtime-code201646%_ + (if _%runtime-code?201641%_ + (let ((__tmp202629 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _%code201601%_)))) - (__tmp202591 + _%code201638%_)))) + (__tmp202628 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202590 + (__tmp202627 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp202592 + __tmp202629 gx#current-expander-context - _%ctx201600%_ + _%ctx201637%_ gx#current-expander-phi '0 gxc#current-compile-lift - _%lifts201606%_ + _%lifts201643%_ gxc#current-compile-marks - __tmp202591 + __tmp202628 gxc#current-compile-identifiers - __tmp202590)) + __tmp202627)) '#f)) - (_%runtime-code201611%_ - (if _%runtime-code?201604%_ - (if (null? (unbox _%lifts201606%_)) - _%runtime-code201609%_ + (_%runtime-code201648%_ + (if _%runtime-code?201641%_ + (if (null? (unbox _%lifts201643%_)) + _%runtime-code201646%_ (cons 'begin - (let ((__tmp202594 - (cons _%runtime-code201609%_ + (let ((__tmp202631 + (cons _%runtime-code201646%_ '())) - (__tmp202593 - (reverse (unbox _%lifts201606%_)))) + (__tmp202630 + (reverse (unbox _%lifts201643%_)))) (declare (not safe)) (__foldr1 cons - __tmp202594 - __tmp202593)))) + __tmp202631 + __tmp202630)))) '#f)) - (_%runtime-code201613%_ - (if _%runtime-code?201604%_ + (_%runtime-code201650%_ + (if _%runtime-code?201641%_ (cons 'begin (cons (cons 'define - (cons (_%context-timestamp201592%_ - _%ctx201600%_) + (cons (_%context-timestamp201629%_ + _%ctx201637%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1988,779 +1988,779 @@ (gxc#current-compile-timestamp)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%runtime-code201611%_ '()))) + (cons _%runtime-code201648%_ '()))) '#f)) - (_%loader-code201616%_ - (let ((__tmp202595 + (_%loader-code201653%_ + (let ((__tmp202632 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _%code201601%_))))) + _%code201638%_))))) (declare (not safe)) (__call-with-parameters - __tmp202595 + __tmp202632 gx#current-expander-context - _%ctx201600%_))) - (_%loader-code201618%_ + _%ctx201637%_))) + (_%loader-code201655%_ (cons 'begin - (cons _%loader-code201616%_ - (cons (if _%runtime-code?201604%_ + (cons _%loader-code201653%_ + (cons (if _%runtime-code?201641%_ (cons 'load-module - (cons _%rtm201602%_ + (cons _%rtm201639%_ '())) '(begin)) '())))) - (_%scm0201620%_ - (gxc#compile-output-file _%ctx201600%_ '0 '".scm")) - (_%scmrt201622%_ + (_%scm0201657%_ + (gxc#compile-output-file _%ctx201637%_ '0 '".scm")) + (_%scmrt201659%_ (gxc#compile-output-file - _%ctx201600%_ + _%ctx201637%_ '#f '".scm")) - (_%scms201624%_ - (gxc#compile-static-output-file _%ctx201600%_))) - (if _%runtime-code?201604%_ + (_%scms201661%_ + (gxc#compile-static-output-file _%ctx201637%_))) + (if _%runtime-code?201641%_ (gxc#compile-scm-file__0 - _%scm0201620%_ - _%runtime-code201613%_) + _%scm0201657%_ + _%runtime-code201650%_) '#!void) - (let ((__tmp202596 + (let ((__tmp202633 (lambda () (gxc#compile-scm-file__0 - _%scmrt201622%_ - _%loader-code201618%_)))) + _%scmrt201659%_ + _%loader-code201655%_)))) (declare (not safe)) (__call-with-parameters - __tmp202596 + __tmp202633 gxc#current-compile-gsc-options '#f)) (if (let () (declare (not safe)) - (##file-exists? _%scms201624%_)) + (##file-exists? _%scms201661%_)) (let () (declare (not safe)) - (##delete-file _%scms201624%_)) + (##delete-file _%scms201661%_)) '#!void) - (if _%runtime-code?201604%_ + (if _%runtime-code?201641%_ (let () (declare (not safe)) - (##copy-file _%scm0201620%_ _%scms201624%_)) + (##copy-file _%scm0201657%_ _%scms201661%_)) (let () (declare (not safe)) - (##call-with-output-file _%scms201624%_ void))))))) - (let* ((_%all-modules201595%_ - (cons _%ctx201589%_ (gxc#lift-nested-modules _%ctx201589%_))) - (__tmp202597 - (lambda (_%ctx201597%_) - (let ((__tmp202598 - (lambda () (_%compile1201591%_ _%ctx201597%_)))) + (##call-with-output-file _%scms201661%_ void))))))) + (let* ((_%all-modules201632%_ + (cons _%ctx201626%_ (gxc#lift-nested-modules _%ctx201626%_))) + (__tmp202634 + (lambda (_%ctx201634%_) + (let ((__tmp202635 + (lambda () (_%compile1201628%_ _%ctx201634%_)))) (declare (not safe)) (__call-with-parameters - __tmp202598 + __tmp202635 gxc#current-compile-decls '()))))) (declare (not safe)) - (##for-each __tmp202597 _%all-modules201595%_))))) + (##for-each __tmp202634 _%all-modules201632%_))))) (define gxc#compile-meta-code - (lambda (_%ctx201489%_) - (letrec ((_%compile-ssi201491%_ - (lambda (_%code201557%_) - (let* ((_%path201559%_ + (lambda (_%ctx201526%_) + (letrec ((_%compile-ssi201528%_ + (lambda (_%code201594%_) + (let* ((_%path201596%_ (gxc#compile-output-file - _%ctx201489%_ + _%ctx201526%_ '#f '".ssi")) - (_%prelude201571%_ - (let* ((_%super201561%_ + (_%prelude201608%_ + (let* ((_%super201598%_ (##structure-ref - _%ctx201489%_ + _%ctx201526%_ '3 gx#phi-context::t '#f)) - (_%$e201563%_ + (_%$e201600%_ (##structure-ref - _%super201561%_ + _%super201598%_ '1 gx#expander-context::t '#f))) - (if _%$e201563%_ - ((lambda (_%g201565201567%_) + (if _%$e201600%_ + ((lambda (_%g201602201604%_) (let () (declare (not safe)) (make-symbol__1 '":" - _%g201565201567%_))) - _%$e201563%_) + _%g201602201604%_))) + _%$e201600%_) ':))) - (_%ns201573%_ + (_%ns201610%_ (##structure-ref - _%ctx201489%_ + _%ctx201526%_ '6 gx#module-context::t '#f)) - (_%idstr201575%_ + (_%idstr201612%_ (symbol->string (##structure-ref - _%ctx201489%_ + _%ctx201526%_ '1 gx#expander-context::t '#f))) - (_%pkg201583%_ - (let ((_%$e201577%_ + (_%pkg201620%_ + (let ((_%$e201614%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr201575%_ '#\/)))) - (if _%$e201577%_ - ((lambda (_%x201580%_) - (let ((__tmp202599 + (string-rindex__0 _%idstr201612%_ '#\/)))) + (if _%$e201614%_ + ((lambda (_%x201617%_) + (let ((__tmp202636 (substring - _%idstr201575%_ + _%idstr201612%_ '0 - _%x201580%_))) + _%x201617%_))) (declare (not safe)) - (##string->symbol __tmp202599))) - _%$e201577%_) + (##string->symbol __tmp202636))) + _%$e201614%_) '#f))) - (_%rt201585%_ - (let ((__tmp202600 + (_%rt201622%_ + (let ((__tmp202637 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) - (hash-get __tmp202600 _%ctx201489%_)))) + (hash-get __tmp202637 _%ctx201526%_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path201559%_)) + (gxc#verbose '"compile " _%path201596%_)) (gxc#with-output-to-scheme-file - _%path201559%_ + _%path201596%_ (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _%prelude201571%_)) - (if _%pkg201583%_ + (displayln '"prelude:" '" " _%prelude201608%_)) + (if _%pkg201620%_ (let () (declare (not safe)) - (displayln '"package:" '" " _%pkg201583%_)) + (displayln '"package:" '" " _%pkg201620%_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _%ns201573%_)) + (displayln '"namespace:" '" " _%ns201610%_)) (newline) - (pretty-print _%code201557%_) - (if _%rt201585%_ + (pretty-print _%code201594%_) + (if _%rt201622%_ (pretty-print (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%rt201585%_ '())) + (cons _%rt201622%_ '())) '())))) '#!void)))))) - (_%compile-phi201492%_ - (lambda (_%part201497%_) - (let* ((_%part201498201511%_ _%part201497%_) - (_%E201500201515%_ + (_%compile-phi201529%_ + (lambda (_%part201534%_) + (let* ((_%part201535201548%_ _%part201534%_) + (_%E201537201552%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%part201498201511%_ + _%part201535201548%_ '([phi-ctx phi n code]))) '#!void)) - (_%K201501201526%_ - (lambda (_%code201518%_ - _%n201519%_ - _%phi201520%_ - _%phi-ctx201521%_) - (let ((_%code201524%_ - (let ((__tmp202601 + (_%K201538201563%_ + (lambda (_%code201555%_ + _%n201556%_ + _%phi201557%_ + _%phi-ctx201558%_) + (let ((_%code201561%_ + (let ((__tmp202638 (lambda () (gxc#generate-runtime-phi - _%code201518%_)))) + _%code201555%_)))) (declare (not safe)) (__call-with-parameters - __tmp202601 + __tmp202638 gx#current-expander-context - _%phi-ctx201521%_ + _%phi-ctx201558%_ gx#current-expander-phi - _%phi201520%_)))) + _%phi201557%_)))) (gxc#compile-scm-file__% (gxc#compile-output-file - _%ctx201489%_ - _%n201519%_ + _%ctx201526%_ + _%n201556%_ '".scm") - _%code201524%_ + _%code201561%_ '#t))))) - (if (pair? _%part201498201511%_) - (let ((_%hd201502201529%_ + (if (pair? _%part201535201548%_) + (let ((_%hd201539201566%_ (let () (declare (not safe)) - (##car _%part201498201511%_))) - (_%tl201503201531%_ + (##car _%part201535201548%_))) + (_%tl201540201568%_ (let () (declare (not safe)) - (##cdr _%part201498201511%_)))) - (let ((_%phi-ctx201534%_ _%hd201502201529%_)) - (if (pair? _%tl201503201531%_) - (let ((_%hd201504201536%_ + (##cdr _%part201535201548%_)))) + (let ((_%phi-ctx201571%_ _%hd201539201566%_)) + (if (pair? _%tl201540201568%_) + (let ((_%hd201541201573%_ (let () (declare (not safe)) - (##car _%tl201503201531%_))) - (_%tl201505201538%_ + (##car _%tl201540201568%_))) + (_%tl201542201575%_ (let () (declare (not safe)) - (##cdr _%tl201503201531%_)))) - (let ((_%phi201541%_ _%hd201504201536%_)) - (if (pair? _%tl201505201538%_) - (let ((_%hd201506201543%_ + (##cdr _%tl201540201568%_)))) + (let ((_%phi201578%_ _%hd201541201573%_)) + (if (pair? _%tl201542201575%_) + (let ((_%hd201543201580%_ (let () (declare (not safe)) - (##car _%tl201505201538%_))) - (_%tl201507201545%_ + (##car _%tl201542201575%_))) + (_%tl201544201582%_ (let () (declare (not safe)) - (##cdr _%tl201505201538%_)))) - (let ((_%n201548%_ - _%hd201506201543%_)) - (if (pair? _%tl201507201545%_) - (let ((_%hd201508201550%_ + (##cdr _%tl201542201575%_)))) + (let ((_%n201585%_ + _%hd201543201580%_)) + (if (pair? _%tl201544201582%_) + (let ((_%hd201545201587%_ (let () (declare (not safe)) - (##car _%tl201507201545%_))) - (_%tl201509201552%_ + (##car _%tl201544201582%_))) + (_%tl201546201589%_ (let () (declare (not safe)) - (##cdr _%tl201507201545%_)))) - (let ((_%code201555%_ - _%hd201508201550%_)) - (if (null? _%tl201509201552%_) - (_%K201501201526%_ - _%code201555%_ - _%n201548%_ - _%phi201541%_ - _%phi-ctx201534%_) - (_%E201500201515%_)))) - (_%E201500201515%_)))) - (_%E201500201515%_)))) - (_%E201500201515%_)))) - (_%E201500201515%_)))))) - (let ((_g202602_ (gxc#generate-meta-code _%ctx201489%_))) + (##cdr _%tl201544201582%_)))) + (let ((_%code201592%_ + _%hd201545201587%_)) + (if (null? _%tl201546201589%_) + (_%K201538201563%_ + _%code201592%_ + _%n201585%_ + _%phi201578%_ + _%phi-ctx201571%_) + (_%E201537201552%_)))) + (_%E201537201552%_)))) + (_%E201537201552%_)))) + (_%E201537201552%_)))) + (_%E201537201552%_)))))) + (let ((_g202639_ (gxc#generate-meta-code _%ctx201526%_))) (begin - (let ((_g202603_ + (let ((_g202640_ (let () (declare (not safe)) - (if (##values? _g202602_) - (##vector-length _g202602_) + (if (##values? _g202639_) + (##vector-length _g202639_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g202603_ 2))) - (error "Context expects 2 values" _g202603_))) - (let ((_%ssi-code201494%_ - (let () (declare (not safe)) (##vector-ref _g202602_ 0))) - (_%phi-code201495%_ - (let () (declare (not safe)) (##vector-ref _g202602_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g202640_ 2))) + (error "Context expects 2 values" _g202640_))) + (let ((_%ssi-code201531%_ + (let () (declare (not safe)) (##vector-ref _g202639_ 0))) + (_%phi-code201532%_ + (let () (declare (not safe)) (##vector-ref _g202639_ 1)))) (begin - (_%compile-ssi201491%_ _%ssi-code201494%_) - (for-each _%compile-phi201492%_ _%phi-code201495%_)))))))) + (_%compile-ssi201528%_ _%ssi-code201531%_) + (for-each _%compile-phi201529%_ _%phi-code201532%_)))))))) (define gxc#compile-ssxi-code - (lambda (_%ctx201471%_) - (let* ((_%path201473%_ - (gxc#compile-output-file _%ctx201471%_ '#f '".ssxi.ss")) - (_%code201475%_ - (let ((__tmp202604 + (lambda (_%ctx201508%_) + (let* ((_%path201510%_ + (gxc#compile-output-file _%ctx201508%_ '#f '".ssxi.ss")) + (_%code201512%_ + (let ((__tmp202641 (##structure-ref - _%ctx201471%_ + _%ctx201508%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp202604))) - (_%idstr201477%_ + (gxc#apply-generate-ssxi __tmp202641))) + (_%idstr201514%_ (symbol->string (##structure-ref - _%ctx201471%_ + _%ctx201508%_ '1 gx#expander-context::t '#f))) - (_%pkg201485%_ - (let ((_%$e201479%_ + (_%pkg201522%_ + (let ((_%$e201516%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr201477%_ '#\/)))) - (if _%$e201479%_ - ((lambda (_%x201482%_) - (let ((__tmp202605 - (substring _%idstr201477%_ '0 _%x201482%_))) + (string-rindex__0 _%idstr201514%_ '#\/)))) + (if _%$e201516%_ + ((lambda (_%x201519%_) + (let ((__tmp202642 + (substring _%idstr201514%_ '0 _%x201519%_))) (declare (not safe)) - (##string->symbol __tmp202605))) - _%$e201479%_) + (##string->symbol __tmp202642))) + _%$e201516%_) '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path201473%_)) + (gxc#verbose '"compile " _%path201510%_)) (gxc#with-output-to-scheme-file - _%path201473%_ + _%path201510%_ (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _%pkg201485%_ + (if _%pkg201522%_ (let () (declare (not safe)) - (displayln '"package: " _%pkg201485%_)) + (displayln '"package: " _%pkg201522%_)) '#!void) (newline) - (pretty-print _%code201475%_)))))) + (pretty-print _%code201512%_)))))) (define gxc#generate-meta-code - (lambda (_%ctx201464%_) - (let* ((_%state201466%_ - (let ((__obj202506 + (lambda (_%ctx201501%_) + (let* ((_%state201503%_ + (let ((__obj202543 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gxc#meta-state:::init! __obj202506 _%ctx201464%_)) - __obj202506)) - (_%ssi-code201468%_ - (let ((__tmp202606 + (gxc#meta-state:::init! __obj202543 _%ctx201501%_)) + __obj202543)) + (_%ssi-code201505%_ + (let ((__tmp202643 (##structure-ref - _%ctx201464%_ + _%ctx201501%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#apply-generate-meta__% '#f - _%state201466%_ - __tmp202606)))) - (values _%ssi-code201468%_ + _%state201503%_ + __tmp202643)))) + (values _%ssi-code201505%_ (let () (declare (not safe)) - (gxc#meta-state-end! _%state201466%_)))))) + (gxc#meta-state-end! _%state201503%_)))))) (define gxc#generate-runtime-phi - (lambda (_%stx201457%_) - (let ((_%lifts201459%_ (box '()))) - (let ((__tmp202609 + (lambda (_%stx201494%_) + (let ((_%lifts201496%_ (box '()))) + (let ((__tmp202646 (lambda () - (let ((_%code201462%_ + (let ((_%code201499%_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _%stx201457%_)))) - (if (null? (unbox _%lifts201459%_)) - _%code201462%_ + (gxc#apply-generate-runtime-phi _%stx201494%_)))) + (if (null? (unbox _%lifts201496%_)) + _%code201499%_ (cons 'begin - (let ((__tmp202611 (cons _%code201462%_ '())) - (__tmp202610 - (reverse (unbox _%lifts201459%_)))) + (let ((__tmp202648 (cons _%code201499%_ '())) + (__tmp202647 + (reverse (unbox _%lifts201496%_)))) (declare (not safe)) - (__foldr1 cons __tmp202611 __tmp202610))))))) - (__tmp202608 + (__foldr1 cons __tmp202648 __tmp202647))))))) + (__tmp202645 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202607 + (__tmp202644 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp202609 + __tmp202646 gxc#current-compile-lift - _%lifts201459%_ + _%lifts201496%_ gxc#current-compile-marks - __tmp202608 + __tmp202645 gxc#current-compile-identifiers - __tmp202607))))) + __tmp202644))))) (define gxc#lift-nested-modules - (lambda (_%ctx201453%_) - (let ((_%modules201455%_ (box '()))) - (let ((__tmp202612 - (##structure-ref _%ctx201453%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx201490%_) + (let ((_%modules201492%_ (box '()))) + (let ((__tmp202649 + (##structure-ref _%ctx201490%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules__% '#f _%modules201455%_ __tmp202612)) - (reverse (unbox _%modules201455%_))))) + (gxc#apply-lift-modules__% '#f _%modules201492%_ __tmp202649)) + (reverse (unbox _%modules201492%_))))) (define gxc#compile-scm-file__% - (lambda (_%path201433%_ _%code201434%_ _%phi?201435%_) - (let () (declare (not safe)) (gxc#verbose '"compile " _%path201433%_)) + (lambda (_%path201470%_ _%code201471%_ _%phi?201472%_) + (let () (declare (not safe)) (gxc#verbose '"compile " _%path201470%_)) (gxc#with-output-to-scheme-file - _%path201433%_ + _%path201470%_ (lambda () (pretty-print (cons 'declare (cons (cons 'block '()) (cons (cons 'standard-bindings '()) (cons (cons 'extended-bindings '()) - (let ((__tmp202613 - (if _%phi?201435%_ + (let ((__tmp202650 + (if _%phi?201472%_ '((inlining-limit 200)) '()))) (declare (not safe)) - (__foldr1 cons '() __tmp202613))))))) - (pretty-print _%code201434%_))) + (__foldr1 cons '() __tmp202650))))))) + (pretty-print _%code201471%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it201439%_ + (let ((_%compile-it201476%_ (lambda () - (gxc#gsc-compile-file _%path201433%_ _%phi?201435%_)))) + (gxc#gsc-compile-file _%path201470%_ _%phi?201472%_)))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) - (let ((__tmp202614 - (cons 'compile-file (cons _%path201433%_ '())))) + (let ((__tmp202651 + (cons 'compile-file (cons _%path201470%_ '())))) (declare (not safe)) - (gxc#add-compile-job!__% _%compile-it201439%_ __tmp202614)) - (_%compile-it201439%_))) + (gxc#add-compile-job!__% _%compile-it201476%_ __tmp202651)) + (_%compile-it201476%_))) '#!void))) (define gxc#compile-scm-file__0 - (lambda (_%path201444%_ _%code201445%_) - (let ((_%phi?201447%_ '#f)) + (lambda (_%path201481%_ _%code201482%_) + (let ((_%phi?201484%_ '#f)) (gxc#compile-scm-file__% - _%path201444%_ - _%code201445%_ - _%phi?201447%_)))) + _%path201481%_ + _%code201482%_ + _%phi?201484%_)))) (define gxc#compile-scm-file - (lambda _g202616_ - (let ((_g202615_ (let () (declare (not safe)) (##length _g202616_)))) - (cond ((let () (declare (not safe)) (##fx= _g202615_ 2)) - (apply gxc#compile-scm-file__0 _g202616_)) - ((let () (declare (not safe)) (##fx= _g202615_ 3)) - (apply gxc#compile-scm-file__% _g202616_)) + (lambda _g202653_ + (let ((_g202652_ (let () (declare (not safe)) (##length _g202653_)))) + (cond ((let () (declare (not safe)) (##fx= _g202652_ 2)) + (apply gxc#compile-scm-file__0 _g202653_)) + ((let () (declare (not safe)) (##fx= _g202652_ 3)) + (apply gxc#compile-scm-file__% _g202653_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g202616_)))))) + _g202653_)))))) (define gxc#gsc-link-options__% - (lambda (_%phi?201334%_) - (let _%lp201336%_ ((_%rest201338%_ + (lambda (_%phi?201371%_) + (let _%lp201373%_ ((_%rest201375%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201339%_ '())) - (let* ((_%rest201340201360%_ _%rest201338%_) - (_%else201344201368%_ + (_%opts201376%_ '())) + (let* ((_%rest201377201397%_ _%rest201375%_) + (_%else201381201405%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-debug-source" - (cons '"-track-scheme" (reverse _%opts201339%_))) - (reverse _%opts201339%_))))) - (let ((_%K201354201411%_ - (lambda (_%rest201409%_) - (_%lp201336%_ _%rest201409%_ _%opts201339%_))) - (_%K201349201393%_ - (lambda (_%rest201391%_) - (_%lp201336%_ _%rest201391%_ _%opts201339%_))) - (_%K201346201375%_ - (lambda (_%rest201372%_ _%opt201373%_) - (_%lp201336%_ - _%rest201372%_ - (cons _%opt201373%_ _%opts201339%_))))) - (if (pair? _%rest201340201360%_) - (let ((_%tl201356201416%_ + (cons '"-track-scheme" (reverse _%opts201376%_))) + (reverse _%opts201376%_))))) + (let ((_%K201391201448%_ + (lambda (_%rest201446%_) + (_%lp201373%_ _%rest201446%_ _%opts201376%_))) + (_%K201386201430%_ + (lambda (_%rest201428%_) + (_%lp201373%_ _%rest201428%_ _%opts201376%_))) + (_%K201383201412%_ + (lambda (_%rest201409%_ _%opt201410%_) + (_%lp201373%_ + _%rest201409%_ + (cons _%opt201410%_ _%opts201376%_))))) + (if (pair? _%rest201377201397%_) + (let ((_%tl201393201453%_ (let () (declare (not safe)) - (##cdr _%rest201340201360%_))) - (_%hd201355201414%_ + (##cdr _%rest201377201397%_))) + (_%hd201392201451%_ (let () (declare (not safe)) - (##car _%rest201340201360%_)))) - (if (equal? _%hd201355201414%_ '"-cc-options") - (if (pair? _%tl201356201416%_) - (let* ((_%tl201358201419%_ + (##car _%rest201377201397%_)))) + (if (equal? _%hd201392201451%_ '"-cc-options") + (if (pair? _%tl201393201453%_) + (let* ((_%tl201395201456%_ (let () (declare (not safe)) - (##cdr _%tl201356201416%_))) - (_%rest201422%_ _%tl201358201419%_)) - (_%K201354201411%_ _%rest201422%_)) - (let ((_%opt201383%_ _%hd201355201414%_) - (_%rest201385%_ _%tl201356201416%_)) - (_%K201346201375%_ - _%rest201385%_ - _%opt201383%_))) - (if (equal? _%hd201355201414%_ '"-ld-options") - (if (pair? _%tl201356201416%_) - (let* ((_%tl201353201401%_ + (##cdr _%tl201393201453%_))) + (_%rest201459%_ _%tl201395201456%_)) + (_%K201391201448%_ _%rest201459%_)) + (let ((_%opt201420%_ _%hd201392201451%_) + (_%rest201422%_ _%tl201393201453%_)) + (_%K201383201412%_ + _%rest201422%_ + _%opt201420%_))) + (if (equal? _%hd201392201451%_ '"-ld-options") + (if (pair? _%tl201393201453%_) + (let* ((_%tl201390201438%_ (let () (declare (not safe)) - (##cdr _%tl201356201416%_))) - (_%rest201404%_ _%tl201353201401%_)) - (_%K201349201393%_ _%rest201404%_)) - (let ((_%opt201383%_ _%hd201355201414%_) - (_%rest201385%_ _%tl201356201416%_)) - (_%K201346201375%_ - _%rest201385%_ - _%opt201383%_))) - (let ((_%opt201383%_ _%hd201355201414%_) - (_%rest201385%_ _%tl201356201416%_)) - (_%K201346201375%_ - _%rest201385%_ - _%opt201383%_))))) - (_%else201344201368%_))))))) + (##cdr _%tl201393201453%_))) + (_%rest201441%_ _%tl201390201438%_)) + (_%K201386201430%_ _%rest201441%_)) + (let ((_%opt201420%_ _%hd201392201451%_) + (_%rest201422%_ _%tl201393201453%_)) + (_%K201383201412%_ + _%rest201422%_ + _%opt201420%_))) + (let ((_%opt201420%_ _%hd201392201451%_) + (_%rest201422%_ _%tl201393201453%_)) + (_%K201383201412%_ + _%rest201422%_ + _%opt201420%_))))) + (_%else201381201405%_))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_%phi?201428%_ '#f)) (gxc#gsc-link-options__% _%phi?201428%_)))) + (let ((_%phi?201465%_ '#f)) (gxc#gsc-link-options__% _%phi?201465%_)))) (define gxc#gsc-link-options - (lambda _g202618_ - (let ((_g202617_ (let () (declare (not safe)) (##length _g202618_)))) - (cond ((let () (declare (not safe)) (##fx= _g202617_ 0)) - (apply gxc#gsc-link-options__0 _g202618_)) - ((let () (declare (not safe)) (##fx= _g202617_ 1)) - (apply gxc#gsc-link-options__% _g202618_)) + (lambda _g202655_ + (let ((_g202654_ (let () (declare (not safe)) (##length _g202655_)))) + (cond ((let () (declare (not safe)) (##fx= _g202654_ 0)) + (apply gxc#gsc-link-options__0 _g202655_)) + ((let () (declare (not safe)) (##fx= _g202654_ 1)) + (apply gxc#gsc-link-options__% _g202655_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g202618_)))))) + _g202655_)))))) (define gxc#gsc-cc-options__%__% - (lambda (_%@@keywords201183%_ _%static?201179201184%_ _%phi?201186%_) - (let ((_%static?201188%_ - (if (eq? _%static?201179201184%_ absent-value) + (lambda (_%@@keywords201220%_ _%static?201216201221%_ _%phi?201223%_) + (let ((_%static?201225%_ + (if (eq? _%static?201216201221%_ absent-value) '#f - _%static?201179201184%_))) - (if _%phi?201186%_ + _%static?201216201221%_))) + (if _%phi?201223%_ (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" (cons '"-g" '())) '()) - (let _%lp201190%_ ((_%rest201192%_ + (let _%lp201227%_ ((_%rest201229%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201193%_ '())) - (let* ((_%rest201194201220%_ _%rest201192%_) - (_%else201199201228%_ + (_%opts201230%_ '())) + (let* ((_%rest201231201257%_ _%rest201229%_) + (_%else201236201265%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" - (cons '"-g" (reverse! _%opts201193%_))) - (reverse! _%opts201193%_))))) - (let ((_%K201214201291%_ - (lambda (_%rest201288%_ _%opt201289%_) - (if _%static?201188%_ - (_%lp201190%_ - _%rest201288%_ - (cons _%opt201289%_ - (cons '"-cc-options" _%opts201193%_))) - (_%lp201190%_ _%rest201288%_ _%opts201193%_)))) - (_%K201209201268%_ - (lambda (_%rest201265%_ _%opt201266%_) - (_%lp201190%_ - _%rest201265%_ - (cons _%opt201266%_ - (cons '"-cc-options" _%opts201193%_))))) - (_%K201204201248%_ - (lambda (_%rest201246%_) - (_%lp201190%_ _%rest201246%_ _%opts201193%_))) - (_%K201201201234%_ - (lambda (_%rest201232%_) - (_%lp201190%_ _%rest201232%_ _%opts201193%_)))) - (if (pair? _%rest201194201220%_) - (let ((_%tl201216201296%_ + (cons '"-g" (reverse! _%opts201230%_))) + (reverse! _%opts201230%_))))) + (let ((_%K201251201328%_ + (lambda (_%rest201325%_ _%opt201326%_) + (if _%static?201225%_ + (_%lp201227%_ + _%rest201325%_ + (cons _%opt201326%_ + (cons '"-cc-options" _%opts201230%_))) + (_%lp201227%_ _%rest201325%_ _%opts201230%_)))) + (_%K201246201305%_ + (lambda (_%rest201302%_ _%opt201303%_) + (_%lp201227%_ + _%rest201302%_ + (cons _%opt201303%_ + (cons '"-cc-options" _%opts201230%_))))) + (_%K201241201285%_ + (lambda (_%rest201283%_) + (_%lp201227%_ _%rest201283%_ _%opts201230%_))) + (_%K201238201271%_ + (lambda (_%rest201269%_) + (_%lp201227%_ _%rest201269%_ _%opts201230%_)))) + (if (pair? _%rest201231201257%_) + (let ((_%tl201253201333%_ (let () (declare (not safe)) - (##cdr _%rest201194201220%_))) - (_%hd201215201294%_ + (##cdr _%rest201231201257%_))) + (_%hd201252201331%_ (let () (declare (not safe)) - (##car _%rest201194201220%_)))) - (if (equal? _%hd201215201294%_ '"-cc-options") - (if (pair? _%tl201216201296%_) - (let ((_%tl201218201301%_ + (##car _%rest201231201257%_)))) + (if (equal? _%hd201252201331%_ '"-cc-options") + (if (pair? _%tl201253201333%_) + (let ((_%tl201255201338%_ (let () (declare (not safe)) - (##cdr _%tl201216201296%_))) - (_%hd201217201299%_ + (##cdr _%tl201253201333%_))) + (_%hd201254201336%_ (let () (declare (not safe)) - (##car _%tl201216201296%_)))) - (if (equal? _%hd201217201299%_ '"-Bstatic") - (let ((_%opt201304%_ - _%hd201217201299%_) - (_%rest201306%_ - _%tl201218201301%_)) - (_%K201214201291%_ - _%rest201306%_ - _%opt201304%_)) - (let ((_%opt201281%_ - _%hd201217201299%_) - (_%rest201283%_ - _%tl201218201301%_)) - (_%K201209201268%_ - _%rest201283%_ - _%opt201281%_)))) - (let ((_%rest201240%_ _%tl201216201296%_)) - (_%K201201201234%_ _%rest201240%_))) - (if (equal? _%hd201215201294%_ '"-ld-options") - (if (pair? _%tl201216201296%_) - (let* ((_%tl201208201256%_ + (##car _%tl201253201333%_)))) + (if (equal? _%hd201254201336%_ '"-Bstatic") + (let ((_%opt201341%_ + _%hd201254201336%_) + (_%rest201343%_ + _%tl201255201338%_)) + (_%K201251201328%_ + _%rest201343%_ + _%opt201341%_)) + (let ((_%opt201318%_ + _%hd201254201336%_) + (_%rest201320%_ + _%tl201255201338%_)) + (_%K201246201305%_ + _%rest201320%_ + _%opt201318%_)))) + (let ((_%rest201277%_ _%tl201253201333%_)) + (_%K201238201271%_ _%rest201277%_))) + (if (equal? _%hd201252201331%_ '"-ld-options") + (if (pair? _%tl201253201333%_) + (let* ((_%tl201245201293%_ (let () (declare (not safe)) - (##cdr _%tl201216201296%_))) - (_%rest201259%_ - _%tl201208201256%_)) - (_%K201204201248%_ _%rest201259%_)) - (let ((_%rest201240%_ - _%tl201216201296%_)) - (_%K201201201234%_ _%rest201240%_))) - (let ((_%rest201240%_ _%tl201216201296%_)) - (_%K201201201234%_ _%rest201240%_))))) - (_%else201199201228%_))))))))) + (##cdr _%tl201253201333%_))) + (_%rest201296%_ + _%tl201245201293%_)) + (_%K201241201285%_ _%rest201296%_)) + (let ((_%rest201277%_ + _%tl201253201333%_)) + (_%K201238201271%_ _%rest201277%_))) + (let ((_%rest201277%_ _%tl201253201333%_)) + (_%K201238201271%_ _%rest201277%_))))) + (_%else201236201265%_))))))))) (define gxc#gsc-cc-options__%__0 - (lambda (_%@@keywords201311%_ _%static?201179201312%_) - (let ((_%phi?201314%_ '#f)) + (lambda (_%@@keywords201348%_ _%static?201216201349%_) + (let ((_%phi?201351%_ '#f)) (gxc#gsc-cc-options__%__% - _%@@keywords201311%_ - _%static?201179201312%_ - _%phi?201314%_)))) + _%@@keywords201348%_ + _%static?201216201349%_ + _%phi?201351%_)))) (define gxc#gsc-cc-options__% - (lambda _g202620_ - (let ((_g202619_ (let () (declare (not safe)) (##length _g202620_)))) - (cond ((let () (declare (not safe)) (##fx= _g202619_ 2)) - (apply gxc#gsc-cc-options__%__0 _g202620_)) - ((let () (declare (not safe)) (##fx= _g202619_ 3)) - (apply gxc#gsc-cc-options__%__% _g202620_)) + (lambda _g202657_ + (let ((_g202656_ (let () (declare (not safe)) (##length _g202657_)))) + (cond ((let () (declare (not safe)) (##fx= _g202656_ 2)) + (apply gxc#gsc-cc-options__%__0 _g202657_)) + ((let () (declare (not safe)) (##fx= _g202656_ 3)) + (apply gxc#gsc-cc-options__%__% _g202657_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options__% - _g202620_)))))) + _g202657_)))))) (define gxc#gsc-cc-options__@ - (lambda (_%@@keywords201323%_ . _%args201324%_) + (lambda (_%@@keywords201360%_ . _%args201361%_) (apply gxc#gsc-cc-options__% - _%@@keywords201323%_ + _%@@keywords201360%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords201323%_ + _%@@keywords201360%_ 'static: absent-value)) - _%args201324%_))) + _%args201361%_))) (define gxc#gsc-cc-options - (lambda _%args201180201330%_ + (lambda _%args201217201367%_ (apply keyword-dispatch '#(static:) gxc#gsc-cc-options__@ - _%args201180201330%_))) + _%args201217201367%_))) (define gxc#gsc-ld-options__%__% - (lambda (_%@@keywords201028%_ _%static?201024201029%_ _%phi?201031%_) - (let ((_%static?201033%_ - (if (eq? _%static?201024201029%_ absent-value) + (lambda (_%@@keywords201065%_ _%static?201061201066%_ _%phi?201068%_) + (let ((_%static?201070%_ + (if (eq? _%static?201061201066%_ absent-value) '#f - _%static?201024201029%_))) - (if _%phi?201031%_ + _%static?201061201066%_))) + (if _%phi?201068%_ '() - (let _%lp201035%_ ((_%rest201037%_ + (let _%lp201072%_ ((_%rest201074%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201038%_ '())) - (let* ((_%rest201039201065%_ _%rest201037%_) - (_%else201044201073%_ - (lambda () (reverse! _%opts201038%_)))) - (let ((_%K201059201136%_ - (lambda (_%rest201133%_ _%opt201134%_) - (if _%static?201033%_ - (_%lp201035%_ - _%rest201133%_ - (cons _%opt201134%_ - (cons '"-ld-options" _%opts201038%_))) - (_%lp201035%_ _%rest201133%_ _%opts201038%_)))) - (_%K201054201113%_ - (lambda (_%rest201110%_ _%opt201111%_) - (_%lp201035%_ - _%rest201110%_ - (cons _%opt201111%_ - (cons '"-ld-options" _%opts201038%_))))) - (_%K201049201093%_ - (lambda (_%rest201091%_) - (_%lp201035%_ _%rest201091%_ _%opts201038%_))) - (_%K201046201079%_ - (lambda (_%rest201077%_) - (_%lp201035%_ _%rest201077%_ _%opts201038%_)))) - (if (pair? _%rest201039201065%_) - (let ((_%tl201061201141%_ + (_%opts201075%_ '())) + (let* ((_%rest201076201102%_ _%rest201074%_) + (_%else201081201110%_ + (lambda () (reverse! _%opts201075%_)))) + (let ((_%K201096201173%_ + (lambda (_%rest201170%_ _%opt201171%_) + (if _%static?201070%_ + (_%lp201072%_ + _%rest201170%_ + (cons _%opt201171%_ + (cons '"-ld-options" _%opts201075%_))) + (_%lp201072%_ _%rest201170%_ _%opts201075%_)))) + (_%K201091201150%_ + (lambda (_%rest201147%_ _%opt201148%_) + (_%lp201072%_ + _%rest201147%_ + (cons _%opt201148%_ + (cons '"-ld-options" _%opts201075%_))))) + (_%K201086201130%_ + (lambda (_%rest201128%_) + (_%lp201072%_ _%rest201128%_ _%opts201075%_))) + (_%K201083201116%_ + (lambda (_%rest201114%_) + (_%lp201072%_ _%rest201114%_ _%opts201075%_)))) + (if (pair? _%rest201076201102%_) + (let ((_%tl201098201178%_ (let () (declare (not safe)) - (##cdr _%rest201039201065%_))) - (_%hd201060201139%_ + (##cdr _%rest201076201102%_))) + (_%hd201097201176%_ (let () (declare (not safe)) - (##car _%rest201039201065%_)))) - (if (equal? _%hd201060201139%_ '"-ld-options") - (if (pair? _%tl201061201141%_) - (let ((_%tl201063201146%_ + (##car _%rest201076201102%_)))) + (if (equal? _%hd201097201176%_ '"-ld-options") + (if (pair? _%tl201098201178%_) + (let ((_%tl201100201183%_ (let () (declare (not safe)) - (##cdr _%tl201061201141%_))) - (_%hd201062201144%_ + (##cdr _%tl201098201178%_))) + (_%hd201099201181%_ (let () (declare (not safe)) - (##car _%tl201061201141%_)))) - (if (equal? _%hd201062201144%_ '"-static") - (let ((_%opt201149%_ - _%hd201062201144%_) - (_%rest201151%_ - _%tl201063201146%_)) - (_%K201059201136%_ - _%rest201151%_ - _%opt201149%_)) - (let ((_%opt201126%_ - _%hd201062201144%_) - (_%rest201128%_ - _%tl201063201146%_)) - (_%K201054201113%_ - _%rest201128%_ - _%opt201126%_)))) - (let ((_%rest201085%_ _%tl201061201141%_)) - (_%K201046201079%_ _%rest201085%_))) - (if (equal? _%hd201060201139%_ '"-cc-options") - (if (pair? _%tl201061201141%_) - (let* ((_%tl201053201101%_ + (##car _%tl201098201178%_)))) + (if (equal? _%hd201099201181%_ '"-static") + (let ((_%opt201186%_ + _%hd201099201181%_) + (_%rest201188%_ + _%tl201100201183%_)) + (_%K201096201173%_ + _%rest201188%_ + _%opt201186%_)) + (let ((_%opt201163%_ + _%hd201099201181%_) + (_%rest201165%_ + _%tl201100201183%_)) + (_%K201091201150%_ + _%rest201165%_ + _%opt201163%_)))) + (let ((_%rest201122%_ _%tl201098201178%_)) + (_%K201083201116%_ _%rest201122%_))) + (if (equal? _%hd201097201176%_ '"-cc-options") + (if (pair? _%tl201098201178%_) + (let* ((_%tl201090201138%_ (let () (declare (not safe)) - (##cdr _%tl201061201141%_))) - (_%rest201104%_ - _%tl201053201101%_)) - (_%K201049201093%_ _%rest201104%_)) - (let ((_%rest201085%_ - _%tl201061201141%_)) - (_%K201046201079%_ _%rest201085%_))) - (let ((_%rest201085%_ _%tl201061201141%_)) - (_%K201046201079%_ _%rest201085%_))))) - (_%else201044201073%_))))))))) + (##cdr _%tl201098201178%_))) + (_%rest201141%_ + _%tl201090201138%_)) + (_%K201086201130%_ _%rest201141%_)) + (let ((_%rest201122%_ + _%tl201098201178%_)) + (_%K201083201116%_ _%rest201122%_))) + (let ((_%rest201122%_ _%tl201098201178%_)) + (_%K201083201116%_ _%rest201122%_))))) + (_%else201081201110%_))))))))) (define gxc#gsc-ld-options__%__0 - (lambda (_%@@keywords201156%_ _%static?201024201157%_) - (let ((_%phi?201159%_ '#f)) + (lambda (_%@@keywords201193%_ _%static?201061201194%_) + (let ((_%phi?201196%_ '#f)) (gxc#gsc-ld-options__%__% - _%@@keywords201156%_ - _%static?201024201157%_ - _%phi?201159%_)))) + _%@@keywords201193%_ + _%static?201061201194%_ + _%phi?201196%_)))) (define gxc#gsc-ld-options__% - (lambda _g202622_ - (let ((_g202621_ (let () (declare (not safe)) (##length _g202622_)))) - (cond ((let () (declare (not safe)) (##fx= _g202621_ 2)) - (apply gxc#gsc-ld-options__%__0 _g202622_)) - ((let () (declare (not safe)) (##fx= _g202621_ 3)) - (apply gxc#gsc-ld-options__%__% _g202622_)) + (lambda _g202659_ + (let ((_g202658_ (let () (declare (not safe)) (##length _g202659_)))) + (cond ((let () (declare (not safe)) (##fx= _g202658_ 2)) + (apply gxc#gsc-ld-options__%__0 _g202659_)) + ((let () (declare (not safe)) (##fx= _g202658_ 3)) + (apply gxc#gsc-ld-options__%__% _g202659_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-ld-options__% - _g202622_)))))) + _g202659_)))))) (define gxc#gsc-ld-options__@ - (lambda (_%@@keywords201168%_ . _%args201169%_) + (lambda (_%@@keywords201205%_ . _%args201206%_) (apply gxc#gsc-ld-options__% - _%@@keywords201168%_ + _%@@keywords201205%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords201168%_ + _%@@keywords201205%_ 'static: absent-value)) - _%args201169%_))) + _%args201206%_))) (define gxc#gsc-ld-options - (lambda _%args201025201175%_ + (lambda _%args201062201212%_ (apply keyword-dispatch '#(static:) gxc#gsc-ld-options__@ - _%args201025201175%_))) + _%args201062201212%_))) (define gxc#gsc-static-include-options - (lambda (_%staticdir201019%_) - (let ((_%user-staticdir201021%_ + (lambda (_%staticdir201056%_) + (let ((_%user-staticdir201058%_ (path-expand (path-expand '"lib/static" @@ -2768,337 +2768,337 @@ (cons '"-cc-options" (cons (string-append '"-I " - _%staticdir201019%_ + _%staticdir201056%_ '" -I " - _%user-staticdir201021%_) + _%user-staticdir201058%_) '()))))) (define gxc#gcc-ld-options (lambda () - (let _%lp200931%_ ((_%rest200933%_ + (let _%lp200968%_ ((_%rest200970%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts200934%_ '())) - (let* ((_%rest200935200955%_ _%rest200933%_) - (_%else200939200963%_ (lambda () _%opts200934%_))) - (let ((_%K200949201006%_ - (lambda (_%rest201004%_) - (_%lp200931%_ _%rest201004%_ _%opts200934%_))) - (_%K200944200984%_ - (lambda (_%rest200981%_ _%opt200982%_) - (_%lp200931%_ - _%rest200981%_ - (let ((__tmp202623 - (let ((__tmp202624 + (_%opts200971%_ '())) + (let* ((_%rest200972200992%_ _%rest200970%_) + (_%else200976201000%_ (lambda () _%opts200971%_))) + (let ((_%K200986201043%_ + (lambda (_%rest201041%_) + (_%lp200968%_ _%rest201041%_ _%opts200971%_))) + (_%K200981201021%_ + (lambda (_%rest201018%_ _%opt201019%_) + (_%lp200968%_ + _%rest201018%_ + (let ((__tmp202660 + (let ((__tmp202661 (let () (declare (not safe)) - (string-split _%opt200982%_ '#\space)))) + (string-split _%opt201019%_ '#\space)))) (declare (not safe)) - (##filter gxc#not-string-empty? __tmp202624)))) + (##filter gxc#not-string-empty? __tmp202661)))) (declare (not safe)) - (##append _%opts200934%_ __tmp202623))))) - (_%K200941200969%_ - (lambda (_%rest200967%_) - (_%lp200931%_ _%rest200967%_ _%opts200934%_)))) - (if (pair? _%rest200935200955%_) - (let ((_%tl200951201011%_ + (##append _%opts200971%_ __tmp202660))))) + (_%K200978201006%_ + (lambda (_%rest201004%_) + (_%lp200968%_ _%rest201004%_ _%opts200971%_)))) + (if (pair? _%rest200972200992%_) + (let ((_%tl200988201048%_ (let () (declare (not safe)) - (##cdr _%rest200935200955%_))) - (_%hd200950201009%_ + (##cdr _%rest200972200992%_))) + (_%hd200987201046%_ (let () (declare (not safe)) - (##car _%rest200935200955%_)))) - (if (equal? _%hd200950201009%_ '"-cc-options") - (if (pair? _%tl200951201011%_) - (let* ((_%tl200953201014%_ + (##car _%rest200972200992%_)))) + (if (equal? _%hd200987201046%_ '"-cc-options") + (if (pair? _%tl200988201048%_) + (let* ((_%tl200990201051%_ (let () (declare (not safe)) - (##cdr _%tl200951201011%_))) - (_%rest201017%_ _%tl200953201014%_)) - (_%K200949201006%_ _%rest201017%_)) - (let ((_%rest200975%_ _%tl200951201011%_)) - (_%K200941200969%_ _%rest200975%_))) - (if (equal? _%hd200950201009%_ '"-ld-options") - (if (pair? _%tl200951201011%_) - (let ((_%tl200948200994%_ + (##cdr _%tl200988201048%_))) + (_%rest201054%_ _%tl200990201051%_)) + (_%K200986201043%_ _%rest201054%_)) + (let ((_%rest201012%_ _%tl200988201048%_)) + (_%K200978201006%_ _%rest201012%_))) + (if (equal? _%hd200987201046%_ '"-ld-options") + (if (pair? _%tl200988201048%_) + (let ((_%tl200985201031%_ (let () (declare (not safe)) - (##cdr _%tl200951201011%_))) - (_%hd200947200992%_ + (##cdr _%tl200988201048%_))) + (_%hd200984201029%_ (let () (declare (not safe)) - (##car _%tl200951201011%_)))) - (let ((_%opt200997%_ _%hd200947200992%_) - (_%rest200999%_ _%tl200948200994%_)) - (_%K200944200984%_ - _%rest200999%_ - _%opt200997%_))) - (let ((_%rest200975%_ _%tl200951201011%_)) - (_%K200941200969%_ _%rest200975%_))) - (let ((_%rest200975%_ _%tl200951201011%_)) - (_%K200941200969%_ _%rest200975%_))))) - (_%else200939200963%_))))))) + (##car _%tl200988201048%_)))) + (let ((_%opt201034%_ _%hd200984201029%_) + (_%rest201036%_ _%tl200985201031%_)) + (_%K200981201021%_ + _%rest201036%_ + _%opt201034%_))) + (let ((_%rest201012%_ _%tl200988201048%_)) + (_%K200978201006%_ _%rest201012%_))) + (let ((_%rest201012%_ _%tl200988201048%_)) + (_%K200978201006%_ _%rest201012%_))))) + (_%else200976201000%_))))))) (define gxc#not-string-empty? - (lambda (_%str200928%_) - (not (let () (declare (not safe)) (string-empty? _%str200928%_))))) + (lambda (_%str200965%_) + (not (let () (declare (not safe)) (string-empty? _%str200965%_))))) (define gxc#gsc-compile-file - (lambda (_%path200921%_ _%phi?200922%_) - (let ((_%gsc-link-opts200924%_ - (gxc#gsc-link-options__% _%phi?200922%_)) - (_%gsc-cc-opts200925%_ - (gxc#gsc-cc-options__%__% '#f absent-value _%phi?200922%_)) - (_%gsc-ld-opts200926%_ - (gxc#gsc-ld-options__%__% '#f absent-value _%phi?200922%_))) + (lambda (_%path200958%_ _%phi?200959%_) + (let ((_%gsc-link-opts200961%_ + (gxc#gsc-link-options__% _%phi?200959%_)) + (_%gsc-cc-opts200962%_ + (gxc#gsc-cc-options__%__% '#f absent-value _%phi?200959%_)) + (_%gsc-ld-opts200963%_ + (gxc#gsc-ld-options__%__% '#f absent-value _%phi?200959%_))) (gxc#invoke__% '#f absent-value absent-value (gxc#gerbil-gsc) - (let ((__tmp202625 - (let ((__tmp202626 - (let ((__tmp202627 (cons _%path200921%_ '()))) + (let ((__tmp202662 + (let ((__tmp202663 + (let ((__tmp202664 (cons _%path200958%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202627 - _%gsc-link-opts200924%_)))) + __tmp202664 + _%gsc-link-opts200961%_)))) (declare (not safe)) - (__foldr1 cons __tmp202626 _%gsc-ld-opts200926%_)))) + (__foldr1 cons __tmp202663 _%gsc-ld-opts200963%_)))) (declare (not safe)) - (__foldr1 cons __tmp202625 _%gsc-cc-opts200925%_)))))) + (__foldr1 cons __tmp202662 _%gsc-cc-opts200962%_)))))) (define gxc#compile-output-file - (lambda (_%ctx200887%_ _%n200888%_ _%ext200889%_) - (letrec ((_%module-relative-path200891%_ - (lambda (_%ctx200919%_) + (lambda (_%ctx200924%_ _%n200925%_ _%ext200926%_) + (letrec ((_%module-relative-path200928%_ + (lambda (_%ctx200956%_) (path-strip-directory - (let ((__tmp202628 + (let ((__tmp202665 (##structure-ref - _%ctx200919%_ + _%ctx200956%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp202628))))) - (_%module-source-directory200892%_ - (lambda (_%ctx200915%_) + (gxc#module-id->path-string __tmp202665))))) + (_%module-source-directory200929%_ + (lambda (_%ctx200952%_) (path-directory - (let ((_%mpath200917%_ + (let ((_%mpath200954%_ (##structure-ref - _%ctx200915%_ + _%ctx200952%_ '7 gx#module-context::t '#f))) - (if (string? _%mpath200917%_) - _%mpath200917%_ - (last _%mpath200917%_)))))) - (_%section-string200893%_ - (lambda (_%n200909%_) - (if (number? _%n200909%_) + (if (string? _%mpath200954%_) + _%mpath200954%_ + (last _%mpath200954%_)))))) + (_%section-string200930%_ + (lambda (_%n200946%_) + (if (number? _%n200946%_) (let () (declare (not safe)) - (##number->string _%n200909%_)) - (if (symbol? _%n200909%_) + (##number->string _%n200946%_)) + (if (symbol? _%n200946%_) (let () (declare (not safe)) - (##symbol->string _%n200909%_)) - (if (string? _%n200909%_) - _%n200909%_ + (##symbol->string _%n200946%_)) + (if (string? _%n200946%_) + _%n200946%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _%n200909%_))))))) - (_%file-name200894%_ - (lambda (_%path200907%_) - (if _%n200888%_ + _%n200946%_))))))) + (_%file-name200931%_ + (lambda (_%path200944%_) + (if _%n200925%_ (string-append - _%path200907%_ + _%path200944%_ '"~" - (_%section-string200893%_ _%n200888%_) - _%ext200889%_) - (string-append _%path200907%_ _%ext200889%_)))) - (_%file-path200895%_ + (_%section-string200930%_ _%n200925%_) + _%ext200926%_) + (string-append _%path200944%_ _%ext200926%_)))) + (_%file-path200932%_ (lambda () - (let ((_%$e200901%_ + (let ((_%$e200938%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e200901%_ - ((lambda (_%outdir200904%_) + (if _%$e200938%_ + ((lambda (_%outdir200941%_) (path-expand - (_%file-name200894%_ - (let ((__tmp202629 + (_%file-name200931%_ + (let ((__tmp202666 (##structure-ref - _%ctx200887%_ + _%ctx200924%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp202629))) - _%outdir200904%_)) - _%$e200901%_) + (gxc#module-id->path-string __tmp202666))) + _%outdir200941%_)) + _%$e200938%_) (path-expand - (_%file-name200894%_ - (_%module-relative-path200891%_ _%ctx200887%_)) - (_%module-source-directory200892%_ - _%ctx200887%_))))))) - (let ((_%path200897%_ (_%file-path200895%_))) - (let ((__tmp202630 + (_%file-name200931%_ + (_%module-relative-path200928%_ _%ctx200924%_)) + (_%module-source-directory200929%_ + _%ctx200924%_))))))) + (let ((_%path200934%_ (_%file-path200932%_))) + (let ((__tmp202667 (lambda () - (let ((__tmp202631 (path-directory _%path200897%_))) + (let ((__tmp202668 (path-directory _%path200934%_))) (declare (not safe)) - (create-directory*__0 __tmp202631))))) + (create-directory*__0 __tmp202668))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202630)) - _%path200897%_)))) + (__with-lock gxc#+driver-mutex+ __tmp202667)) + _%path200934%_)))) (define gxc#compile-static-output-file - (lambda (_%ctx200868%_) - (letrec ((_%file-name200870%_ - (lambda (_%id200885%_) - (let ((__tmp202632 (gxc#static-module-name _%id200885%_))) + (lambda (_%ctx200905%_) + (letrec ((_%file-name200907%_ + (lambda (_%id200922%_) + (let ((__tmp202669 (gxc#static-module-name _%id200922%_))) (declare (not safe)) - (##string-append __tmp202632 '".scm")))) - (_%file-path200871%_ + (##string-append __tmp202669 '".scm")))) + (_%file-path200908%_ (lambda () - (let* ((_%file200877%_ - (_%file-name200870%_ + (let* ((_%file200914%_ + (_%file-name200907%_ (##structure-ref - _%ctx200868%_ + _%ctx200905%_ '1 gx#expander-context::t '#f))) - (_%$e200879%_ + (_%$e200916%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e200879%_ - ((lambda (_%outdir200882%_) + (if _%$e200916%_ + ((lambda (_%outdir200919%_) (path-expand - _%file200877%_ - (path-expand '"static" _%outdir200882%_))) - _%$e200879%_) - (path-expand _%file200877%_ '"static")))))) - (let ((_%path200873%_ (_%file-path200871%_))) - (let ((__tmp202633 + _%file200914%_ + (path-expand '"static" _%outdir200919%_))) + _%$e200916%_) + (path-expand _%file200914%_ '"static")))))) + (let ((_%path200910%_ (_%file-path200908%_))) + (let ((__tmp202670 (lambda () - (let ((__tmp202634 (path-directory _%path200873%_))) + (let ((__tmp202671 (path-directory _%path200910%_))) (declare (not safe)) - (create-directory*__0 __tmp202634))))) + (create-directory*__0 __tmp202671))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202633)) - _%path200873%_)))) + (__with-lock gxc#+driver-mutex+ __tmp202670)) + _%path200910%_)))) (define gxc#compile-exe-output-file - (lambda (_%ctx200861%_ _%opts200862%_) - (let ((_%$e200864%_ + (lambda (_%ctx200898%_ _%opts200899%_) + (let ((_%$e200901%_ (let () (declare (not safe)) - (pgetq__0 'output-file: _%opts200862%_)))) - (if _%$e200864%_ - _%$e200864%_ + (pgetq__0 'output-file: _%opts200899%_)))) + (if _%$e200901%_ + _%$e200901%_ (path-strip-directory (symbol->string (##structure-ref - _%ctx200861%_ + _%ctx200898%_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_%idstr200851%_) - (if (string? _%idstr200851%_) - (let* ((_%str200854%_ + (lambda (_%idstr200888%_) + (if (string? _%idstr200888%_) + (let* ((_%str200891%_ (let () (declare (not safe)) - (gxc#module-id->path-string _%idstr200851%_))) - (_%strs200856%_ + (gxc#module-id->path-string _%idstr200888%_))) + (_%strs200893%_ (let () (declare (not safe)) - (string-split _%str200854%_ '#\/)))) + (string-split _%str200891%_ '#\/)))) (declare (not safe)) - (string-join _%strs200856%_ '"__")) - (if (symbol? _%idstr200851%_) + (string-join _%strs200893%_ '"__")) + (if (symbol? _%idstr200888%_) (gxc#static-module-name (let () (declare (not safe)) - (##symbol->string _%idstr200851%_))) + (##symbol->string _%idstr200888%_))) (let () (declare (not safe)) - (error '"Bad module id" _%idstr200851%_)))))) + (error '"Bad module id" _%idstr200888%_)))))) (define gxc#gerbil-enable-shared? (lambda () - (let ((__tmp202635 - (let ((__tmp202636 (configure-command-string))) + (let ((__tmp202672 + (let ((__tmp202673 (configure-command-string))) (declare (not safe)) - (__string-split __tmp202636 '#\')))) + (__string-split __tmp202673 '#\')))) (declare (not safe)) - (##member '"--enable-shared" __tmp202635)))) + (##member '"--enable-shared" __tmp202672)))) (define gxc#invoke__% - (lambda (_%@@keywords200815%_ - _%stdout-redirection200811200816%_ - _%stderr-redirection200812200818%_ - _%program200820%_ - _%args200821%_) - (let* ((_%stdout-redirection200823%_ - (if (eq? _%stdout-redirection200811200816%_ absent-value) + (lambda (_%@@keywords200852%_ + _%stdout-redirection200848200853%_ + _%stderr-redirection200849200855%_ + _%program200857%_ + _%args200858%_) + (let* ((_%stdout-redirection200860%_ + (if (eq? _%stdout-redirection200848200853%_ absent-value) '#f - _%stdout-redirection200811200816%_)) - (_%stderr-redirection200825%_ - (if (eq? _%stderr-redirection200812200818%_ absent-value) + _%stdout-redirection200848200853%_)) + (_%stderr-redirection200862%_ + (if (eq? _%stderr-redirection200849200855%_ absent-value) '#f - _%stderr-redirection200812200818%_))) - (let ((__tmp202637 (cons _%program200820%_ _%args200821%_))) + _%stderr-redirection200849200855%_))) + (let ((__tmp202674 (cons _%program200857%_ _%args200858%_))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp202637)) - (let* ((_%proc200827%_ + (gxc#verbose '"invoke " __tmp202674)) + (let* ((_%proc200864%_ (open-process (cons 'path: - (cons _%program200820%_ + (cons _%program200857%_ (cons 'arguments: - (cons _%args200821%_ + (cons _%args200858%_ (cons 'stdout-redirection: - (cons _%stdout-redirection200823%_ + (cons _%stdout-redirection200860%_ (cons 'stderr-redirection: - (cons _%stderr-redirection200825%_ + (cons _%stderr-redirection200862%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%output200832%_ - (if (or _%stdout-redirection200823%_ - _%stderr-redirection200825%_) - (read-line _%proc200827%_ '#f) + (_%output200869%_ + (if (or _%stdout-redirection200860%_ + _%stderr-redirection200862%_) + (read-line _%proc200864%_ '#f) '#f)) - (_%status200835%_ (process-status _%proc200827%_))) - (let () (declare (not safe)) (##close-port _%proc200827%_)) - (if (zero? _%status200835%_) + (_%status200872%_ (process-status _%proc200864%_))) + (let () (declare (not safe)) (##close-port _%proc200864%_)) + (if (zero? _%status200872%_) '#!void (begin - (display _%output200832%_) - (let ((__tmp202638 (cons _%program200820%_ _%args200821%_))) + (display _%output200869%_) + (let ((__tmp202675 (cons _%program200857%_ _%args200858%_))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp202638 - _%status200835%_)))))))) + __tmp202675 + _%status200872%_)))))))) (define gxc#invoke__@ - (lambda (_%@@keywords200840%_ . _%args200841%_) + (lambda (_%@@keywords200877%_ . _%args200878%_) (apply gxc#invoke__% - _%@@keywords200840%_ + _%@@keywords200877%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords200840%_ + _%@@keywords200877%_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords200840%_ + _%@@keywords200877%_ 'stderr-redirection: absent-value)) - _%args200841%_))) + _%args200878%_))) (define gxc#invoke - (lambda _%args200813200847%_ + (lambda _%args200850200884%_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _%args200813200847%_))))) + _%args200850200884%_))))) diff --git a/src/bootstrap/gerbil/compiler/driver~1.scm b/src/bootstrap/gerbil/compiler/driver~1.scm index 724b1a9de..272d11afa 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 (_%$stx200746%_) - (let* ((_%g200750200764%_ - (lambda (_%g200751200760%_) + (lambda (_%$stx200783%_) + (let* ((_%g200787200801%_ + (lambda (_%g200788200797%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200751200760%_)))) - (_%g200749200806%_ - (lambda (_%g200751200768%_) + _%g200788200797%_)))) + (_%g200786200843%_ + (lambda (_%g200788200805%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200751200768%_)) - (let ((_%e200753200771%_ + (gx#stx-pair? _%g200788200805%_)) + (let ((_%e200790200808%_ (let () (declare (not safe)) - (gx#syntax-e _%g200751200768%_)))) - (let ((_%hd200754200775%_ + (gx#syntax-e _%g200788200805%_)))) + (let ((_%hd200791200812%_ (let () (declare (not safe)) - (##car _%e200753200771%_))) - (_%tl200755200778%_ + (##car _%e200790200808%_))) + (_%tl200792200815%_ (let () (declare (not safe)) - (##cdr _%e200753200771%_)))) + (##cdr _%e200790200808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200755200778%_)) - (let ((_%e200756200781%_ + (gx#stx-pair? _%tl200792200815%_)) + (let ((_%e200793200818%_ (let () (declare (not safe)) - (gx#syntax-e _%tl200755200778%_)))) - (let ((_%hd200757200785%_ + (gx#syntax-e _%tl200792200815%_)))) + (let ((_%hd200794200822%_ (let () (declare (not safe)) - (##car _%e200756200781%_))) - (_%tl200758200788%_ + (##car _%e200793200818%_))) + (_%tl200795200825%_ (let () (declare (not safe)) - (##cdr _%e200756200781%_)))) + (##cdr _%e200793200818%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl200758200788%_)) - ((lambda (_%L200791%_) + (gx#stx-null? _%tl200795200825%_)) + ((lambda (_%L200828%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -60,11 +60,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L200791%_ '()))) + (cons '() (cons _%L200828%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd200757200785%_) - (_%g200750200764%_ _%g200751200768%_)))) - (_%g200750200764%_ _%g200751200768%_)))) - (_%g200750200764%_ _%g200751200768%_))))) - (_%g200749200806%_ _%$stx200746%_)))) + _%hd200794200822%_) + (_%g200787200801%_ _%g200788200805%_)))) + (_%g200787200801%_ _%g200788200805%_)))) + (_%g200787200801%_ _%g200788200805%_))))) + (_%g200786200843%_ _%$stx200783%_)))) diff --git a/src/bootstrap/gerbil/compiler/method~0.scm b/src/bootstrap/gerbil/compiler/method~0.scm index ad04155c7..4ca8673cf 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 1733687560) + (define gerbil/compiler/method::timestamp 1733870075) (begin (define gxc#current-compile-method (make-parameter '#f)) (define gxc#compile-e__0 - (lambda (_%stx137694%_) - (let* ((_%self137696%_ + (lambda (_%stx137731%_) + (let* ((_%self137733%_ (let () (declare (not safe)) (gxc#current-compile-method))) - (_%$e137698%_ - (let ((__tmp137894 (gxc#stx-car-e _%stx137694%_))) + (_%$e137735%_ + (let ((__tmp137931 (gxc#stx-car-e _%stx137731%_))) (declare (not safe)) - (method-ref _%self137696%_ __tmp137894)))) - (if _%$e137698%_ - ((lambda (_%method137701%_) - (declare (not safe)) - (_%method137701%_ _%self137696%_ _%stx137694%_)) - _%$e137698%_) - (let ((__tmp137896 (gxc#stx-car-e _%stx137694%_)) - (__tmp137895 + (method-ref _%self137733%_ __tmp137931)))) + (if _%$e137735%_ + ((lambda (_%method137738%_) + (declare (not safe)) + (_%method137738%_ _%self137733%_ _%stx137731%_)) + _%$e137735%_) + (let ((__tmp137933 (gxc#stx-car-e _%stx137731%_)) + (__tmp137932 (let () (declare (not safe)) - (gx#syntax->datum _%stx137694%_)))) + (gx#syntax->datum _%stx137731%_)))) (declare (not safe)) (error '"missing method" - _%self137696%_ - __tmp137896 - __tmp137895)))))) + _%self137733%_ + __tmp137933 + __tmp137932)))))) (define gxc#compile-e__1 - (lambda (_%self137705%_ _%stx137706%_) - (let ((_%$e137708%_ - (let ((__tmp137897 (gxc#stx-car-e _%stx137706%_))) - (declare (not safe)) - (method-ref _%self137705%_ __tmp137897)))) - (if _%$e137708%_ - ((lambda (_%method137711%_) - (declare (not safe)) - (_%method137711%_ _%self137705%_ _%stx137706%_)) - _%$e137708%_) - (let ((__tmp137899 (gxc#stx-car-e _%stx137706%_)) - (__tmp137898 + (lambda (_%self137742%_ _%stx137743%_) + (let ((_%$e137745%_ + (let ((__tmp137934 (gxc#stx-car-e _%stx137743%_))) + (declare (not safe)) + (method-ref _%self137742%_ __tmp137934)))) + (if _%$e137745%_ + ((lambda (_%method137748%_) + (declare (not safe)) + (_%method137748%_ _%self137742%_ _%stx137743%_)) + _%$e137745%_) + (let ((__tmp137936 (gxc#stx-car-e _%stx137743%_)) + (__tmp137935 (let () (declare (not safe)) - (gx#syntax->datum _%stx137706%_)))) + (gx#syntax->datum _%stx137743%_)))) (declare (not safe)) (error '"missing method" - _%self137705%_ - __tmp137899 - __tmp137898)))))) + _%self137742%_ + __tmp137936 + __tmp137935)))))) (define gxc#compile-e - (lambda _g137901_ - (let ((_g137900_ (let () (declare (not safe)) (##length _g137901_)))) - (cond ((let () (declare (not safe)) (##fx= _g137900_ 1)) - (apply gxc#compile-e__0 _g137901_)) - ((let () (declare (not safe)) (##fx= _g137900_ 2)) - (apply gxc#compile-e__1 _g137901_)) + (lambda _g137938_ + (let ((_g137937_ (let () (declare (not safe)) (##length _g137938_)))) + (cond ((let () (declare (not safe)) (##fx= _g137937_ 1)) + (apply gxc#compile-e__0 _g137938_)) + ((let () (declare (not safe)) (##fx= _g137937_ 2)) + (apply gxc#compile-e__1 _g137938_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g137901_)))))) + _g137938_)))))) (define gxc#stx-car-e - (lambda (_%stx137692%_) - (let ((__tmp137902 - (car (let () (declare (not safe)) (gx#stx-e _%stx137692%_))))) + (lambda (_%stx137729%_) + (let ((__tmp137939 + (car (let () (declare (not safe)) (gx#stx-e _%stx137729%_))))) (declare (not safe)) - (gx#stx-e __tmp137902)))) - (define gxc#void-method (lambda (_%self137689%_ _%stx137690%_) '#!void)) - (define gxc#false-method (lambda (_%self137686%_ _%stx137687%_) '#f)) - (define gxc#true-method (lambda (_%self137683%_ _%stx137684%_) '#t)) + (gx#stx-e __tmp137939)))) + (define gxc#void-method (lambda (_%self137726%_ _%stx137727%_) '#!void)) + (define gxc#false-method (lambda (_%self137723%_ _%stx137724%_) '#f)) + (define gxc#true-method (lambda (_%self137720%_ _%stx137721%_) '#t)) (define gxc#identity-method - (lambda (_%self137680%_ _%stx137681%_) _%stx137681%_)) + (lambda (_%self137717%_ _%stx137718%_) _%stx137718%_)) (define gxc#::void-expression::t - (let ((__tmp137903 (list))) + (let ((__tmp137940 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-expression::t '::void-expression - __tmp137903 + __tmp137940 '() '() '#f))) @@ -84,10 +84,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-expression::t))) (define gxc#make-::void-expression - (lambda _%$args137677%_ - (apply make-instance gxc#::void-expression::t _%$args137677%_))) + (lambda _%$args137714%_ + (apply make-instance gxc#::void-expression::t _%$args137714%_))) (define gxc#::void-expression-bind-methods! - (let ((__tmp137904 + (let ((__tmp137941 (lambda () (let () (declare (not safe)) @@ -216,14 +216,14 @@ '%#struct-unchecked-set! gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp137904))) + (__make-promise __tmp137941))) (define gxc#::void-special-form::t - (let ((__tmp137905 (list))) + (let ((__tmp137942 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-special-form::t '::void-special-form - __tmp137905 + __tmp137942 '() '() '#f))) @@ -232,10 +232,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-special-form::t))) (define gxc#make-::void-special-form - (lambda _%$args137673%_ - (apply make-instance gxc#::void-special-form::t _%$args137673%_))) + (lambda _%$args137710%_ + (apply make-instance gxc#::void-special-form::t _%$args137710%_))) (define gxc#::void-special-form-bind-methods! - (let ((__tmp137906 + (let ((__tmp137943 (lambda () (let () (declare (not safe)) @@ -310,31 +310,31 @@ '%#declare gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp137906))) + (__make-promise __tmp137943))) (define gxc#::void::t - (let ((__tmp137907 + (let ((__tmp137944 (list gxc#::void-special-form::t gxc#::void-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::void::t '::void __tmp137907 '() '() '#f))) + (__make-class-type 'gxc#::void::t '::void __tmp137944 '() '() '#f))) (define gxc#::void? (let () (declare (not safe)) (__make-class-predicate gxc#::void::t))) (define gxc#make-::void - (lambda _%$args137669%_ - (apply make-instance gxc#::void::t _%$args137669%_))) + (lambda _%$args137706%_ + (apply make-instance gxc#::void::t _%$args137706%_))) (define gxc#::void-bind-methods! - (let ((__tmp137908 + (let ((__tmp137945 (lambda () (force gxc#::void-special-form-bind-methods!) (force gxc#::void-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137908))) + (__make-promise __tmp137945))) (define gxc#::false-expression::t - (let ((__tmp137909 (list))) + (let ((__tmp137946 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-expression::t '::false-expression - __tmp137909 + __tmp137946 '() '() '#f))) @@ -343,10 +343,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-expression::t))) (define gxc#make-::false-expression - (lambda _%$args137665%_ - (apply make-instance gxc#::false-expression::t _%$args137665%_))) + (lambda _%$args137702%_ + (apply make-instance gxc#::false-expression::t _%$args137702%_))) (define gxc#::false-expression-bind-methods! - (let ((__tmp137910 + (let ((__tmp137947 (lambda () (let () (declare (not safe)) @@ -475,14 +475,14 @@ '%#struct-unchecked-set! gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp137910))) + (__make-promise __tmp137947))) (define gxc#::false-special-form::t - (let ((__tmp137911 (list))) + (let ((__tmp137948 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-special-form::t '::false-special-form - __tmp137911 + __tmp137948 '() '() '#f))) @@ -491,10 +491,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-special-form::t))) (define gxc#make-::false-special-form - (lambda _%$args137661%_ - (apply make-instance gxc#::false-special-form::t _%$args137661%_))) + (lambda _%$args137698%_ + (apply make-instance gxc#::false-special-form::t _%$args137698%_))) (define gxc#::false-special-form-bind-methods! - (let ((__tmp137912 + (let ((__tmp137949 (lambda () (let () (declare (not safe)) @@ -569,31 +569,31 @@ '%#declare gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp137912))) + (__make-promise __tmp137949))) (define gxc#::false::t - (let ((__tmp137913 + (let ((__tmp137950 (list gxc#::false-special-form::t gxc#::false-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::false::t '::false __tmp137913 '() '() '#f))) + (__make-class-type 'gxc#::false::t '::false __tmp137950 '() '() '#f))) (define gxc#::false? (let () (declare (not safe)) (__make-class-predicate gxc#::false::t))) (define gxc#make-::false - (lambda _%$args137657%_ - (apply make-instance gxc#::false::t _%$args137657%_))) + (lambda _%$args137694%_ + (apply make-instance gxc#::false::t _%$args137694%_))) (define gxc#::false-bind-methods! - (let ((__tmp137914 + (let ((__tmp137951 (lambda () (force gxc#::false-special-form-bind-methods!) (force gxc#::false-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137914))) + (__make-promise __tmp137951))) (define gxc#::identity-expression::t - (let ((__tmp137915 (list))) + (let ((__tmp137952 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-expression::t '::identity-expression - __tmp137915 + __tmp137952 '() '() '#f))) @@ -602,10 +602,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-expression::t))) (define gxc#make-::identity-expression - (lambda _%$args137653%_ - (apply make-instance gxc#::identity-expression::t _%$args137653%_))) + (lambda _%$args137690%_ + (apply make-instance gxc#::identity-expression::t _%$args137690%_))) (define gxc#::identity-expression-bind-methods! - (let ((__tmp137916 + (let ((__tmp137953 (lambda () (let () (declare (not safe)) @@ -734,14 +734,14 @@ '%#struct-unchecked-set! gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp137916))) + (__make-promise __tmp137953))) (define gxc#::identity-special-form::t - (let ((__tmp137917 (list))) + (let ((__tmp137954 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-special-form::t '::identity-special-form - __tmp137917 + __tmp137954 '() '() '#f))) @@ -750,10 +750,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-special-form::t))) (define gxc#make-::identity-special-form - (lambda _%$args137649%_ - (apply make-instance gxc#::identity-special-form::t _%$args137649%_))) + (lambda _%$args137686%_ + (apply make-instance gxc#::identity-special-form::t _%$args137686%_))) (define gxc#::identity-special-form-bind-methods! - (let ((__tmp137918 + (let ((__tmp137955 (lambda () (let () (declare (not safe)) @@ -828,38 +828,38 @@ '%#declare gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp137918))) + (__make-promise __tmp137955))) (define gxc#::identity::t - (let ((__tmp137919 + (let ((__tmp137956 (list gxc#::identity-special-form::t gxc#::identity-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::identity::t '::identity - __tmp137919 + __tmp137956 '() '() '#f))) (define gxc#::identity? (let () (declare (not safe)) (__make-class-predicate gxc#::identity::t))) (define gxc#make-::identity - (lambda _%$args137645%_ - (apply make-instance gxc#::identity::t _%$args137645%_))) + (lambda _%$args137682%_ + (apply make-instance gxc#::identity::t _%$args137682%_))) (define gxc#::identity-bind-methods! - (let ((__tmp137920 + (let ((__tmp137957 (lambda () (force gxc#::identity-special-form-bind-methods!) (force gxc#::identity-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137920))) + (__make-promise __tmp137957))) (define gxc#::basic-xform-expression::t - (let ((__tmp137921 (list))) + (let ((__tmp137958 (list))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform-expression::t '::basic-xform-expression - __tmp137921 + __tmp137958 '() '() '#f))) @@ -868,10 +868,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform-expression::t))) (define gxc#make-::basic-xform-expression - (lambda _%$args137641%_ - (apply make-instance gxc#::basic-xform-expression::t _%$args137641%_))) + (lambda _%$args137678%_ + (apply make-instance gxc#::basic-xform-expression::t _%$args137678%_))) (define gxc#::basic-xform-expression-bind-methods! - (let ((__tmp137922 + (let ((__tmp137959 (lambda () (let () (declare (not safe)) @@ -1000,15 +1000,15 @@ '%#struct-unchecked-set! gxc#xform-operands))))) (declare (not safe)) - (__make-promise __tmp137922))) + (__make-promise __tmp137959))) (define gxc#::basic-xform::t - (let ((__tmp137923 + (let ((__tmp137960 (list gxc#::basic-xform-expression::t gxc#::identity::t))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform::t '::basic-xform - __tmp137923 + __tmp137960 '() '() '#f))) @@ -1017,10 +1017,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform::t))) (define gxc#make-::basic-xform - (lambda _%$args137637%_ - (apply make-instance gxc#::basic-xform::t _%$args137637%_))) + (lambda _%$args137674%_ + (apply make-instance gxc#::basic-xform::t _%$args137674%_))) (define gxc#::basic-xform-bind-methods! - (let ((__tmp137924 + (let ((__tmp137961 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (force gxc#::identity-bind-methods!) @@ -1055,2552 +1055,2552 @@ '%#define-syntax gxc#xform-define-syntax%))))) (declare (not safe)) - (__make-promise __tmp137924))) + (__make-promise __tmp137961))) (define gxc#apply-begin% - (lambda (_%self137593%_ _%stx137594%_) - (let* ((_%g137596137606%_ - (lambda (_%g137597137603%_) + (lambda (_%self137630%_ _%stx137631%_) + (let* ((_%g137633137643%_ + (lambda (_%g137634137640%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137597137603%_)))) - (_%g137595137633%_ - (lambda (_%g137597137609%_) + _%g137634137640%_)))) + (_%g137632137670%_ + (lambda (_%g137634137646%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137597137609%_)) - (let ((_%e137599137611%_ + (gx#stx-pair? _%g137634137646%_)) + (let ((_%e137636137648%_ (let () (declare (not safe)) - (gx#stx-e _%g137597137609%_)))) - (let ((_%hd137600137614%_ + (gx#stx-e _%g137634137646%_)))) + (let ((_%hd137637137651%_ (let () (declare (not safe)) - (##car _%e137599137611%_))) - (_%tl137601137616%_ + (##car _%e137636137648%_))) + (_%tl137638137653%_ (let () (declare (not safe)) - (##cdr _%e137599137611%_)))) - ((lambda (_%L137619%_) + (##cdr _%e137636137648%_)))) + ((lambda (_%L137656%_) (for-each - (lambda (_%g137628137630%_) + (lambda (_%g137665137667%_) (gxc#compile-e__1 - _%self137593%_ - _%g137628137630%_)) + _%self137630%_ + _%g137665137667%_)) (let () (declare (not safe)) - (gx#stx-e _%L137619%_)))) - _%tl137601137616%_))) - (_%g137596137606%_ _%g137597137609%_))))) - (_%g137595137633%_ _%stx137594%_)))) + (gx#stx-e _%L137656%_)))) + _%tl137638137653%_))) + (_%g137633137643%_ _%g137634137646%_))))) + (_%g137632137670%_ _%stx137631%_)))) (define gxc#apply-last-begin% - (lambda (_%self137554%_ _%stx137555%_) - (let* ((_%g137557137567%_ - (lambda (_%g137558137564%_) + (lambda (_%self137591%_ _%stx137592%_) + (let* ((_%g137594137604%_ + (lambda (_%g137595137601%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137558137564%_)))) - (_%g137556137590%_ - (lambda (_%g137558137570%_) + _%g137595137601%_)))) + (_%g137593137627%_ + (lambda (_%g137595137607%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137558137570%_)) - (let ((_%e137560137572%_ + (gx#stx-pair? _%g137595137607%_)) + (let ((_%e137597137609%_ (let () (declare (not safe)) - (gx#stx-e _%g137558137570%_)))) - (let ((_%hd137561137575%_ + (gx#stx-e _%g137595137607%_)))) + (let ((_%hd137598137612%_ (let () (declare (not safe)) - (##car _%e137560137572%_))) - (_%tl137562137577%_ + (##car _%e137597137609%_))) + (_%tl137599137614%_ (let () (declare (not safe)) - (##cdr _%e137560137572%_)))) - ((lambda (_%L137580%_) + (##cdr _%e137597137609%_)))) + ((lambda (_%L137617%_) (gxc#compile-e__1 - _%self137554%_ - (last _%L137580%_))) - _%tl137562137577%_))) - (_%g137557137567%_ _%g137558137570%_))))) - (_%g137556137590%_ _%stx137555%_)))) + _%self137591%_ + (last _%L137617%_))) + _%tl137599137614%_))) + (_%g137594137604%_ _%g137595137607%_))))) + (_%g137593137627%_ _%stx137592%_)))) (define gxc#apply-begin-syntax% - (lambda (_%self137550%_ _%stx137551%_) - (let ((__tmp137927 - (lambda () (gxc#apply-begin% _%self137550%_ _%stx137551%_))) - (__tmp137925 - (let ((__tmp137926 + (lambda (_%self137587%_ _%stx137588%_) + (let ((__tmp137964 + (lambda () (gxc#apply-begin% _%self137587%_ _%stx137588%_))) + (__tmp137962 + (let ((__tmp137963 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137926 '1)))) + (##fx+ __tmp137963 '1)))) (declare (not safe)) (__call-with-parameters - __tmp137927 + __tmp137964 gx#current-expander-phi - __tmp137925)))) + __tmp137962)))) (define gxc#apply-module% - (lambda (_%self137489%_ _%stx137490%_) - (let* ((_%g137492137506%_ - (lambda (_%g137493137503%_) + (lambda (_%self137526%_ _%stx137527%_) + (let* ((_%g137529137543%_ + (lambda (_%g137530137540%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137493137503%_)))) - (_%g137491137547%_ - (lambda (_%g137493137509%_) + _%g137530137540%_)))) + (_%g137528137584%_ + (lambda (_%g137530137546%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137493137509%_)) - (let ((_%e137496137511%_ + (gx#stx-pair? _%g137530137546%_)) + (let ((_%e137533137548%_ (let () (declare (not safe)) - (gx#stx-e _%g137493137509%_)))) - (let ((_%hd137497137514%_ + (gx#stx-e _%g137530137546%_)))) + (let ((_%hd137534137551%_ (let () (declare (not safe)) - (##car _%e137496137511%_))) - (_%tl137498137516%_ + (##car _%e137533137548%_))) + (_%tl137535137553%_ (let () (declare (not safe)) - (##cdr _%e137496137511%_)))) + (##cdr _%e137533137548%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137498137516%_)) - (let ((_%e137499137519%_ + (gx#stx-pair? _%tl137535137553%_)) + (let ((_%e137536137556%_ (let () (declare (not safe)) - (gx#stx-e _%tl137498137516%_)))) - (let ((_%hd137500137522%_ + (gx#stx-e _%tl137535137553%_)))) + (let ((_%hd137537137559%_ (let () (declare (not safe)) - (##car _%e137499137519%_))) - (_%tl137501137524%_ + (##car _%e137536137556%_))) + (_%tl137538137561%_ (let () (declare (not safe)) - (##cdr _%e137499137519%_)))) - ((lambda (_%L137527%_ _%L137528%_) - (let* ((_%ctx137541%_ + (##cdr _%e137536137556%_)))) + ((lambda (_%L137564%_ _%L137565%_) + (let* ((_%ctx137578%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L137528%_))) - (_%ctx-stx137543%_ + _%L137565%_))) + (_%ctx-stx137580%_ (##structure-ref - _%ctx137541%_ + _%ctx137578%_ '11 gx#module-context::t '#f)) - (__tmp137928 + (__tmp137965 (lambda () (gxc#compile-e__1 - _%self137489%_ - _%ctx-stx137543%_)))) + _%self137526%_ + _%ctx-stx137580%_)))) (declare (not safe)) (__call-with-parameters - __tmp137928 + __tmp137965 gx#current-expander-context - _%ctx137541%_))) - _%tl137501137524%_ - _%hd137500137522%_))) - (_%g137492137506%_ _%g137493137509%_)))) - (_%g137492137506%_ _%g137493137509%_))))) - (_%g137491137547%_ _%stx137490%_)))) + _%ctx137578%_))) + _%tl137538137561%_ + _%hd137537137559%_))) + (_%g137529137543%_ _%g137530137546%_)))) + (_%g137529137543%_ _%g137530137546%_))))) + (_%g137528137584%_ _%stx137527%_)))) (define gxc#apply-begin-annotation% - (lambda (_%self137421%_ _%stx137422%_) - (let* ((_%g137424137441%_ - (lambda (_%g137425137438%_) + (lambda (_%self137458%_ _%stx137459%_) + (let* ((_%g137461137478%_ + (lambda (_%g137462137475%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137425137438%_)))) - (_%g137423137486%_ - (lambda (_%g137425137444%_) + _%g137462137475%_)))) + (_%g137460137523%_ + (lambda (_%g137462137481%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137425137444%_)) - (let ((_%e137428137446%_ + (gx#stx-pair? _%g137462137481%_)) + (let ((_%e137465137483%_ (let () (declare (not safe)) - (gx#stx-e _%g137425137444%_)))) - (let ((_%hd137429137449%_ + (gx#stx-e _%g137462137481%_)))) + (let ((_%hd137466137486%_ (let () (declare (not safe)) - (##car _%e137428137446%_))) - (_%tl137430137451%_ + (##car _%e137465137483%_))) + (_%tl137467137488%_ (let () (declare (not safe)) - (##cdr _%e137428137446%_)))) + (##cdr _%e137465137483%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137430137451%_)) - (let ((_%e137431137454%_ + (gx#stx-pair? _%tl137467137488%_)) + (let ((_%e137468137491%_ (let () (declare (not safe)) - (gx#stx-e _%tl137430137451%_)))) - (let ((_%hd137432137457%_ + (gx#stx-e _%tl137467137488%_)))) + (let ((_%hd137469137494%_ (let () (declare (not safe)) - (##car _%e137431137454%_))) - (_%tl137433137459%_ + (##car _%e137468137491%_))) + (_%tl137470137496%_ (let () (declare (not safe)) - (##cdr _%e137431137454%_)))) + (##cdr _%e137468137491%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137433137459%_)) - (let ((_%e137434137462%_ + (gx#stx-pair? _%tl137470137496%_)) + (let ((_%e137471137499%_ (let () (declare (not safe)) - (gx#stx-e _%tl137433137459%_)))) - (let ((_%hd137435137465%_ + (gx#stx-e _%tl137470137496%_)))) + (let ((_%hd137472137502%_ (let () (declare (not safe)) - (##car _%e137434137462%_))) - (_%tl137436137467%_ + (##car _%e137471137499%_))) + (_%tl137473137504%_ (let () (declare (not safe)) - (##cdr _%e137434137462%_)))) + (##cdr _%e137471137499%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137436137467%_)) - ((lambda (_%L137470%_ - _%L137471%_) + _%tl137473137504%_)) + ((lambda (_%L137507%_ + _%L137508%_) (gxc#compile-e__1 - _%self137421%_ - _%L137470%_)) - _%hd137435137465%_ - _%hd137432137457%_) - (_%g137424137441%_ - _%g137425137444%_)))) - (_%g137424137441%_ _%g137425137444%_)))) - (_%g137424137441%_ _%g137425137444%_)))) - (_%g137424137441%_ _%g137425137444%_))))) - (_%g137423137486%_ _%stx137422%_)))) + _%self137458%_ + _%L137507%_)) + _%hd137472137502%_ + _%hd137469137494%_) + (_%g137461137478%_ + _%g137462137481%_)))) + (_%g137461137478%_ _%g137462137481%_)))) + (_%g137461137478%_ _%g137462137481%_)))) + (_%g137461137478%_ _%g137462137481%_))))) + (_%g137460137523%_ _%stx137459%_)))) (define gxc#apply-define-values% - (lambda (_%self137353%_ _%stx137354%_) - (let* ((_%g137356137373%_ - (lambda (_%g137357137370%_) + (lambda (_%self137390%_ _%stx137391%_) + (let* ((_%g137393137410%_ + (lambda (_%g137394137407%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137357137370%_)))) - (_%g137355137418%_ - (lambda (_%g137357137376%_) + _%g137394137407%_)))) + (_%g137392137455%_ + (lambda (_%g137394137413%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137357137376%_)) - (let ((_%e137360137378%_ + (gx#stx-pair? _%g137394137413%_)) + (let ((_%e137397137415%_ (let () (declare (not safe)) - (gx#stx-e _%g137357137376%_)))) - (let ((_%hd137361137381%_ + (gx#stx-e _%g137394137413%_)))) + (let ((_%hd137398137418%_ (let () (declare (not safe)) - (##car _%e137360137378%_))) - (_%tl137362137383%_ + (##car _%e137397137415%_))) + (_%tl137399137420%_ (let () (declare (not safe)) - (##cdr _%e137360137378%_)))) + (##cdr _%e137397137415%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137362137383%_)) - (let ((_%e137363137386%_ + (gx#stx-pair? _%tl137399137420%_)) + (let ((_%e137400137423%_ (let () (declare (not safe)) - (gx#stx-e _%tl137362137383%_)))) - (let ((_%hd137364137389%_ + (gx#stx-e _%tl137399137420%_)))) + (let ((_%hd137401137426%_ (let () (declare (not safe)) - (##car _%e137363137386%_))) - (_%tl137365137391%_ + (##car _%e137400137423%_))) + (_%tl137402137428%_ (let () (declare (not safe)) - (##cdr _%e137363137386%_)))) + (##cdr _%e137400137423%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137365137391%_)) - (let ((_%e137366137394%_ + (gx#stx-pair? _%tl137402137428%_)) + (let ((_%e137403137431%_ (let () (declare (not safe)) - (gx#stx-e _%tl137365137391%_)))) - (let ((_%hd137367137397%_ + (gx#stx-e _%tl137402137428%_)))) + (let ((_%hd137404137434%_ (let () (declare (not safe)) - (##car _%e137366137394%_))) - (_%tl137368137399%_ + (##car _%e137403137431%_))) + (_%tl137405137436%_ (let () (declare (not safe)) - (##cdr _%e137366137394%_)))) + (##cdr _%e137403137431%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137368137399%_)) - ((lambda (_%L137402%_ - _%L137403%_) + _%tl137405137436%_)) + ((lambda (_%L137439%_ + _%L137440%_) (gxc#compile-e__1 - _%self137353%_ - _%L137402%_)) - _%hd137367137397%_ - _%hd137364137389%_) - (_%g137356137373%_ - _%g137357137376%_)))) - (_%g137356137373%_ _%g137357137376%_)))) - (_%g137356137373%_ _%g137357137376%_)))) - (_%g137356137373%_ _%g137357137376%_))))) - (_%g137355137418%_ _%stx137354%_)))) + _%self137390%_ + _%L137439%_)) + _%hd137404137434%_ + _%hd137401137426%_) + (_%g137393137410%_ + _%g137394137413%_)))) + (_%g137393137410%_ _%g137394137413%_)))) + (_%g137393137410%_ _%g137394137413%_)))) + (_%g137393137410%_ _%g137394137413%_))))) + (_%g137392137455%_ _%stx137391%_)))) (define gxc#apply-define-syntax% - (lambda (_%self137284%_ _%stx137285%_) - (let* ((_%g137287137304%_ - (lambda (_%g137288137301%_) + (lambda (_%self137321%_ _%stx137322%_) + (let* ((_%g137324137341%_ + (lambda (_%g137325137338%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137288137301%_)))) - (_%g137286137350%_ - (lambda (_%g137288137307%_) + _%g137325137338%_)))) + (_%g137323137387%_ + (lambda (_%g137325137344%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137288137307%_)) - (let ((_%e137291137309%_ + (gx#stx-pair? _%g137325137344%_)) + (let ((_%e137328137346%_ (let () (declare (not safe)) - (gx#stx-e _%g137288137307%_)))) - (let ((_%hd137292137312%_ + (gx#stx-e _%g137325137344%_)))) + (let ((_%hd137329137349%_ (let () (declare (not safe)) - (##car _%e137291137309%_))) - (_%tl137293137314%_ + (##car _%e137328137346%_))) + (_%tl137330137351%_ (let () (declare (not safe)) - (##cdr _%e137291137309%_)))) + (##cdr _%e137328137346%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137293137314%_)) - (let ((_%e137294137317%_ + (gx#stx-pair? _%tl137330137351%_)) + (let ((_%e137331137354%_ (let () (declare (not safe)) - (gx#stx-e _%tl137293137314%_)))) - (let ((_%hd137295137320%_ + (gx#stx-e _%tl137330137351%_)))) + (let ((_%hd137332137357%_ (let () (declare (not safe)) - (##car _%e137294137317%_))) - (_%tl137296137322%_ + (##car _%e137331137354%_))) + (_%tl137333137359%_ (let () (declare (not safe)) - (##cdr _%e137294137317%_)))) + (##cdr _%e137331137354%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137296137322%_)) - (let ((_%e137297137325%_ + (gx#stx-pair? _%tl137333137359%_)) + (let ((_%e137334137362%_ (let () (declare (not safe)) - (gx#stx-e _%tl137296137322%_)))) - (let ((_%hd137298137328%_ + (gx#stx-e _%tl137333137359%_)))) + (let ((_%hd137335137365%_ (let () (declare (not safe)) - (##car _%e137297137325%_))) - (_%tl137299137330%_ + (##car _%e137334137362%_))) + (_%tl137336137367%_ (let () (declare (not safe)) - (##cdr _%e137297137325%_)))) + (##cdr _%e137334137362%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137299137330%_)) - ((lambda (_%L137333%_ - _%L137334%_) - (let ((__tmp137931 + _%tl137336137367%_)) + ((lambda (_%L137370%_ + _%L137371%_) + (let ((__tmp137968 (lambda () (gxc#compile-e__1 - _%self137284%_ - _%L137333%_))) - (__tmp137929 - (let ((__tmp137930 + _%self137321%_ + _%L137370%_))) + (__tmp137966 + (let ((__tmp137967 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137930 '1)))) + (##fx+ __tmp137967 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp137931 + __tmp137968 gx#current-expander-phi - __tmp137929))) - _%hd137298137328%_ - _%hd137295137320%_) - (_%g137287137304%_ - _%g137288137307%_)))) - (_%g137287137304%_ _%g137288137307%_)))) - (_%g137287137304%_ _%g137288137307%_)))) - (_%g137287137304%_ _%g137288137307%_))))) - (_%g137286137350%_ _%stx137285%_)))) + __tmp137966))) + _%hd137335137365%_ + _%hd137332137357%_) + (_%g137324137341%_ + _%g137325137344%_)))) + (_%g137324137341%_ _%g137325137344%_)))) + (_%g137324137341%_ _%g137325137344%_)))) + (_%g137324137341%_ _%g137325137344%_))))) + (_%g137323137387%_ _%stx137322%_)))) (define gxc#apply-body-lambda% - (lambda (_%self137216%_ _%stx137217%_) - (let* ((_%g137219137236%_ - (lambda (_%g137220137233%_) + (lambda (_%self137253%_ _%stx137254%_) + (let* ((_%g137256137273%_ + (lambda (_%g137257137270%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137220137233%_)))) - (_%g137218137281%_ - (lambda (_%g137220137239%_) + _%g137257137270%_)))) + (_%g137255137318%_ + (lambda (_%g137257137276%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137220137239%_)) - (let ((_%e137223137241%_ + (gx#stx-pair? _%g137257137276%_)) + (let ((_%e137260137278%_ (let () (declare (not safe)) - (gx#stx-e _%g137220137239%_)))) - (let ((_%hd137224137244%_ + (gx#stx-e _%g137257137276%_)))) + (let ((_%hd137261137281%_ (let () (declare (not safe)) - (##car _%e137223137241%_))) - (_%tl137225137246%_ + (##car _%e137260137278%_))) + (_%tl137262137283%_ (let () (declare (not safe)) - (##cdr _%e137223137241%_)))) + (##cdr _%e137260137278%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137225137246%_)) - (let ((_%e137226137249%_ + (gx#stx-pair? _%tl137262137283%_)) + (let ((_%e137263137286%_ (let () (declare (not safe)) - (gx#stx-e _%tl137225137246%_)))) - (let ((_%hd137227137252%_ + (gx#stx-e _%tl137262137283%_)))) + (let ((_%hd137264137289%_ (let () (declare (not safe)) - (##car _%e137226137249%_))) - (_%tl137228137254%_ + (##car _%e137263137286%_))) + (_%tl137265137291%_ (let () (declare (not safe)) - (##cdr _%e137226137249%_)))) + (##cdr _%e137263137286%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137228137254%_)) - (let ((_%e137229137257%_ + (gx#stx-pair? _%tl137265137291%_)) + (let ((_%e137266137294%_ (let () (declare (not safe)) - (gx#stx-e _%tl137228137254%_)))) - (let ((_%hd137230137260%_ + (gx#stx-e _%tl137265137291%_)))) + (let ((_%hd137267137297%_ (let () (declare (not safe)) - (##car _%e137229137257%_))) - (_%tl137231137262%_ + (##car _%e137266137294%_))) + (_%tl137268137299%_ (let () (declare (not safe)) - (##cdr _%e137229137257%_)))) + (##cdr _%e137266137294%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137231137262%_)) - ((lambda (_%L137265%_ - _%L137266%_) + _%tl137268137299%_)) + ((lambda (_%L137302%_ + _%L137303%_) (gxc#compile-e__1 - _%self137216%_ - _%L137265%_)) - _%hd137230137260%_ - _%hd137227137252%_) - (_%g137219137236%_ - _%g137220137239%_)))) - (_%g137219137236%_ _%g137220137239%_)))) - (_%g137219137236%_ _%g137220137239%_)))) - (_%g137219137236%_ _%g137220137239%_))))) - (_%g137218137281%_ _%stx137217%_)))) + _%self137253%_ + _%L137302%_)) + _%hd137267137297%_ + _%hd137264137289%_) + (_%g137256137273%_ + _%g137257137276%_)))) + (_%g137256137273%_ _%g137257137276%_)))) + (_%g137256137273%_ _%g137257137276%_)))) + (_%g137256137273%_ _%g137257137276%_))))) + (_%g137255137318%_ _%stx137254%_)))) (define gxc#apply-body-case-lambda% - (lambda (_%self137098%_ _%stx137099%_) - (let* ((_%g137101137129%_ - (lambda (_%g137102137126%_) + (lambda (_%self137135%_ _%stx137136%_) + (let* ((_%g137138137166%_ + (lambda (_%g137139137163%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137102137126%_)))) - (_%g137100137213%_ - (lambda (_%g137102137132%_) + _%g137139137163%_)))) + (_%g137137137250%_ + (lambda (_%g137139137169%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137102137132%_)) - (let ((_%e137105137134%_ + (gx#stx-pair? _%g137139137169%_)) + (let ((_%e137142137171%_ (let () (declare (not safe)) - (gx#stx-e _%g137102137132%_)))) - (let ((_%hd137106137137%_ + (gx#stx-e _%g137139137169%_)))) + (let ((_%hd137143137174%_ (let () (declare (not safe)) - (##car _%e137105137134%_))) - (_%tl137107137139%_ + (##car _%e137142137171%_))) + (_%tl137144137176%_ (let () (declare (not safe)) - (##cdr _%e137105137134%_)))) + (##cdr _%e137142137171%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl137107137139%_)) - (let ((_g137932_ + (gx#stx-pair/null? _%tl137144137176%_)) + (let ((_g137969_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl137107137139%_ + _%tl137144137176%_ '0)))) (begin - (let ((_g137933_ + (let ((_g137970_ (let () (declare (not safe)) - (if (##values? _g137932_) - (##vector-length _g137932_) + (if (##values? _g137969_) + (##vector-length _g137969_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137933_ 2))) + (##fx= _g137970_ 2))) (error "Context expects 2 values" - _g137933_))) - (let ((_%target137108137142%_ + _g137970_))) + (let ((_%target137145137179%_ (let () (declare (not safe)) - (##vector-ref _g137932_ 0))) - (_%tl137110137144%_ + (##vector-ref _g137969_ 0))) + (_%tl137147137181%_ (let () (declare (not safe)) - (##vector-ref _g137932_ 1)))) + (##vector-ref _g137969_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137110137144%_)) - (letrec ((_%loop137111137147%_ - (lambda (_%hd137109137150%_ - _%body137115137152%_ - _%hd137116137154%_) + (gx#stx-null? _%tl137147137181%_)) + (letrec ((_%loop137148137184%_ + (lambda (_%hd137146137187%_ + _%body137152137189%_ + _%hd137153137191%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd137109137150%_)) - (let ((_%e137112137157%_ + _%hd137146137187%_)) + (let ((_%e137149137194%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd137109137150%_)))) - (let ((_%lp-hd137113137160%_ + (gx#stx-e _%hd137146137187%_)))) + (let ((_%lp-hd137150137197%_ (let () (declare (not safe)) - (##car _%e137112137157%_))) - (_%lp-tl137114137162%_ + (##car _%e137149137194%_))) + (_%lp-tl137151137199%_ (let () (declare (not safe)) - (##cdr _%e137112137157%_)))) + (##cdr _%e137149137194%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd137113137160%_)) - (let ((_%e137119137165%_ + (gx#stx-pair? _%lp-hd137150137197%_)) + (let ((_%e137156137202%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd137113137160%_)))) - (let ((_%hd137120137168%_ + (gx#stx-e _%lp-hd137150137197%_)))) + (let ((_%hd137157137205%_ (let () (declare (not safe)) - (##car _%e137119137165%_))) - (_%tl137121137170%_ + (##car _%e137156137202%_))) + (_%tl137158137207%_ (let () (declare (not safe)) - (##cdr _%e137119137165%_)))) + (##cdr _%e137156137202%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137121137170%_)) - (let ((_%e137122137173%_ + (gx#stx-pair? _%tl137158137207%_)) + (let ((_%e137159137210%_ (let () (declare (not safe)) - (gx#stx-e _%tl137121137170%_)))) - (let ((_%hd137123137176%_ + (gx#stx-e _%tl137158137207%_)))) + (let ((_%hd137160137213%_ (let () (declare (not safe)) - (##car _%e137122137173%_))) - (_%tl137124137178%_ + (##car _%e137159137210%_))) + (_%tl137161137215%_ (let () (declare (not safe)) - (##cdr _%e137122137173%_)))) + (##cdr _%e137159137210%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137124137178%_)) - (_%loop137111137147%_ - _%lp-tl137114137162%_ - (cons _%hd137123137176%_ - _%body137115137152%_) - (cons _%hd137120137168%_ - _%hd137116137154%_)) - (_%g137101137129%_ - _%g137102137132%_)))) - (_%g137101137129%_ _%g137102137132%_)))) - (_%g137101137129%_ _%g137102137132%_)))) - (let ((_%body137117137181%_ (reverse _%body137115137152%_)) - (_%hd137118137183%_ (reverse _%hd137116137154%_))) - ((lambda (_%L137186%_ _%L137187%_) + (gx#stx-null? _%tl137161137215%_)) + (_%loop137148137184%_ + _%lp-tl137151137199%_ + (cons _%hd137160137213%_ + _%body137152137189%_) + (cons _%hd137157137205%_ + _%hd137153137191%_)) + (_%g137138137166%_ + _%g137139137169%_)))) + (_%g137138137166%_ _%g137139137169%_)))) + (_%g137138137166%_ _%g137139137169%_)))) + (let ((_%body137154137218%_ (reverse _%body137152137189%_)) + (_%hd137155137220%_ (reverse _%hd137153137191%_))) + ((lambda (_%L137223%_ _%L137224%_) (for-each - (lambda (_%g137201137203%_) - (gxc#compile-e__1 _%self137098%_ _%g137201137203%_)) - (let ((__tmp137934 - (lambda (_%g137205137208%_ _%g137206137210%_) - (cons _%g137205137208%_ _%g137206137210%_)))) + (lambda (_%g137238137240%_) + (gxc#compile-e__1 _%self137135%_ _%g137238137240%_)) + (let ((__tmp137971 + (lambda (_%g137242137245%_ _%g137243137247%_) + (cons _%g137242137245%_ _%g137243137247%_)))) (declare (not safe)) - (__foldr1 __tmp137934 '() _%L137186%_)))) - _%body137117137181%_ - _%hd137118137183%_)))))) + (__foldr1 __tmp137971 '() _%L137223%_)))) + _%body137154137218%_ + _%hd137155137220%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop137111137147%_ - _%target137108137142%_ + (_%loop137148137184%_ + _%target137145137179%_ '() '())) - (_%g137101137129%_ - _%g137102137132%_))))) - (_%g137101137129%_ _%g137102137132%_)))) - (_%g137101137129%_ _%g137102137132%_))))) - (_%g137100137213%_ _%stx137099%_)))) + (_%g137138137166%_ + _%g137139137169%_))))) + (_%g137138137166%_ _%g137139137169%_)))) + (_%g137138137166%_ _%g137139137169%_))))) + (_%g137137137250%_ _%stx137136%_)))) (define gxc#apply-body-let-values% - (lambda (_%self136951%_ _%stx136952%_) - (let* ((_%g136954136989%_ - (lambda (_%g136955136986%_) + (lambda (_%self136988%_ _%stx136989%_) + (let* ((_%g136991137026%_ + (lambda (_%g136992137023%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136955136986%_)))) - (_%g136953137095%_ - (lambda (_%g136955136992%_) + _%g136992137023%_)))) + (_%g136990137132%_ + (lambda (_%g136992137029%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136955136992%_)) - (let ((_%e136959136994%_ + (gx#stx-pair? _%g136992137029%_)) + (let ((_%e136996137031%_ (let () (declare (not safe)) - (gx#stx-e _%g136955136992%_)))) - (let ((_%hd136960136997%_ + (gx#stx-e _%g136992137029%_)))) + (let ((_%hd136997137034%_ (let () (declare (not safe)) - (##car _%e136959136994%_))) - (_%tl136961136999%_ + (##car _%e136996137031%_))) + (_%tl136998137036%_ (let () (declare (not safe)) - (##cdr _%e136959136994%_)))) + (##cdr _%e136996137031%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136961136999%_)) - (let ((_%e136962137002%_ + (gx#stx-pair? _%tl136998137036%_)) + (let ((_%e136999137039%_ (let () (declare (not safe)) - (gx#stx-e _%tl136961136999%_)))) - (let ((_%hd136963137005%_ + (gx#stx-e _%tl136998137036%_)))) + (let ((_%hd137000137042%_ (let () (declare (not safe)) - (##car _%e136962137002%_))) - (_%tl136964137007%_ + (##car _%e136999137039%_))) + (_%tl137001137044%_ (let () (declare (not safe)) - (##cdr _%e136962137002%_)))) + (##cdr _%e136999137039%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd136963137005%_)) - (let ((_g137935_ + (gx#stx-pair/null? _%hd137000137042%_)) + (let ((_g137972_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd136963137005%_ + _%hd137000137042%_ '0)))) (begin - (let ((_g137936_ + (let ((_g137973_ (let () (declare (not safe)) - (if (##values? _g137935_) + (if (##values? _g137972_) (##vector-length - _g137935_) + _g137972_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137936_ 2))) + (##fx= _g137973_ 2))) (error "Context expects 2 values" - _g137936_))) - (let ((_%target136965137010%_ + _g137973_))) + (let ((_%target137002137047%_ (let () (declare (not safe)) - (##vector-ref _g137935_ 0))) - (_%tl136967137012%_ + (##vector-ref _g137972_ 0))) + (_%tl137004137049%_ (let () (declare (not safe)) (##vector-ref - _g137935_ + _g137972_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136967137012%_)) - (letrec ((_%loop136968137015%_ - (lambda (_%hd136966137018%_ + _%tl137004137049%_)) + (letrec ((_%loop137005137052%_ + (lambda (_%hd137003137055%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr136972137020%_ - _%hd136973137022%_) + _%expr137009137057%_ + _%hd137010137059%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136966137018%_)) - (let ((_%e136969137025%_ + (gx#stx-pair? _%hd137003137055%_)) + (let ((_%e137006137062%_ (let () (declare (not safe)) - (gx#stx-e _%hd136966137018%_)))) - (let ((_%lp-hd136970137028%_ + (gx#stx-e _%hd137003137055%_)))) + (let ((_%lp-hd137007137065%_ (let () (declare (not safe)) - (##car _%e136969137025%_))) - (_%lp-tl136971137030%_ + (##car _%e137006137062%_))) + (_%lp-tl137008137067%_ (let () (declare (not safe)) - (##cdr _%e136969137025%_)))) + (##cdr _%e137006137062%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd136970137028%_)) - (let ((_%e136979137033%_ + (gx#stx-pair? _%lp-hd137007137065%_)) + (let ((_%e137016137070%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd136970137028%_)))) - (let ((_%hd136980137036%_ + (gx#stx-e _%lp-hd137007137065%_)))) + (let ((_%hd137017137073%_ (let () (declare (not safe)) - (##car _%e136979137033%_))) - (_%tl136981137038%_ + (##car _%e137016137070%_))) + (_%tl137018137075%_ (let () (declare (not safe)) - (##cdr _%e136979137033%_)))) + (##cdr _%e137016137070%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136981137038%_)) - (let ((_%e136982137041%_ + (gx#stx-pair? _%tl137018137075%_)) + (let ((_%e137019137078%_ (let () (declare (not safe)) (gx#stx-e - _%tl136981137038%_)))) - (let ((_%hd136983137044%_ + _%tl137018137075%_)))) + (let ((_%hd137020137081%_ (let () (declare (not safe)) - (##car _%e136982137041%_))) - (_%tl136984137046%_ + (##car _%e137019137078%_))) + (_%tl137021137083%_ (let () (declare (not safe)) - (##cdr _%e136982137041%_)))) + (##cdr _%e137019137078%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136984137046%_)) - (_%loop136968137015%_ - _%lp-tl136971137030%_ - (cons _%hd136983137044%_ - _%expr136972137020%_) - (cons _%hd136980137036%_ - _%hd136973137022%_)) - (_%g136954136989%_ - _%g136955136992%_)))) - (_%g136954136989%_ - _%g136955136992%_)))) - (_%g136954136989%_ _%g136955136992%_)))) - (let ((_%expr136974137049%_ - (reverse _%expr136972137020%_)) - (_%hd136975137051%_ - (reverse _%hd136973137022%_))) + _%tl137021137083%_)) + (_%loop137005137052%_ + _%lp-tl137008137067%_ + (cons _%hd137020137081%_ + _%expr137009137057%_) + (cons _%hd137017137073%_ + _%hd137010137059%_)) + (_%g136991137026%_ + _%g136992137029%_)))) + (_%g136991137026%_ + _%g136992137029%_)))) + (_%g136991137026%_ _%g136992137029%_)))) + (let ((_%expr137011137086%_ + (reverse _%expr137009137057%_)) + (_%hd137012137088%_ + (reverse _%hd137010137059%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136964137007%_)) - (let ((_%e136976137054%_ + (gx#stx-pair? _%tl137001137044%_)) + (let ((_%e137013137091%_ (let () (declare (not safe)) - (gx#stx-e _%tl136964137007%_)))) - (let ((_%hd136977137057%_ + (gx#stx-e _%tl137001137044%_)))) + (let ((_%hd137014137094%_ (let () (declare (not safe)) - (##car _%e136976137054%_))) - (_%tl136978137059%_ + (##car _%e137013137091%_))) + (_%tl137015137096%_ (let () (declare (not safe)) - (##cdr _%e136976137054%_)))) + (##cdr _%e137013137091%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136978137059%_)) - ((lambda (_%L137062%_ - _%L137063%_ - _%L137064%_) + (gx#stx-null? _%tl137015137096%_)) + ((lambda (_%L137099%_ + _%L137100%_ + _%L137101%_) (for-each - (lambda (_%g137083137085%_) + (lambda (_%g137120137122%_) (gxc#compile-e__1 - _%self136951%_ - _%g137083137085%_)) - (let ((__tmp137938 - (lambda (_%g137087137090%_ - _%g137088137092%_) - (cons _%g137087137090%_ - _%g137088137092%_))) - (__tmp137937 - (cons _%L137062%_ '()))) + _%self136988%_ + _%g137120137122%_)) + (let ((__tmp137975 + (lambda (_%g137124137127%_ + _%g137125137129%_) + (cons _%g137124137127%_ + _%g137125137129%_))) + (__tmp137974 + (cons _%L137099%_ '()))) (declare (not safe)) (__foldr1 - __tmp137938 - __tmp137937 - _%L137063%_)))) - _%hd136977137057%_ - _%expr136974137049%_ - _%hd136975137051%_) - (_%g136954136989%_ _%g136955136992%_)))) - (_%g136954136989%_ _%g136955136992%_))))))) + __tmp137975 + __tmp137974 + _%L137100%_)))) + _%hd137014137094%_ + _%expr137011137086%_ + _%hd137012137088%_) + (_%g136991137026%_ _%g136992137029%_)))) + (_%g136991137026%_ _%g136992137029%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136968137015%_ - _%target136965137010%_ + (_%loop137005137052%_ + _%target137002137047%_ '() '())) - (_%g136954136989%_ - _%g136955136992%_))))) - (_%g136954136989%_ _%g136955136992%_)))) - (_%g136954136989%_ _%g136955136992%_)))) - (_%g136954136989%_ _%g136955136992%_))))) - (_%g136953137095%_ _%stx136952%_)))) + (_%g136991137026%_ + _%g136992137029%_))))) + (_%g136991137026%_ _%g136992137029%_)))) + (_%g136991137026%_ _%g136992137029%_)))) + (_%g136991137026%_ _%g136992137029%_))))) + (_%g136990137132%_ _%stx136989%_)))) (define gxc#apply-body-last-let-values% - (lambda (_%self136896%_ _%stx136897%_) - (let* ((_%g136899136913%_ - (lambda (_%g136900136910%_) + (lambda (_%self136933%_ _%stx136934%_) + (let* ((_%g136936136950%_ + (lambda (_%g136937136947%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136900136910%_)))) - (_%g136898136948%_ - (lambda (_%g136900136916%_) + _%g136937136947%_)))) + (_%g136935136985%_ + (lambda (_%g136937136953%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136900136916%_)) - (let ((_%e136903136918%_ + (gx#stx-pair? _%g136937136953%_)) + (let ((_%e136940136955%_ (let () (declare (not safe)) - (gx#stx-e _%g136900136916%_)))) - (let ((_%hd136904136921%_ + (gx#stx-e _%g136937136953%_)))) + (let ((_%hd136941136958%_ (let () (declare (not safe)) - (##car _%e136903136918%_))) - (_%tl136905136923%_ + (##car _%e136940136955%_))) + (_%tl136942136960%_ (let () (declare (not safe)) - (##cdr _%e136903136918%_)))) + (##cdr _%e136940136955%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136905136923%_)) - (let ((_%e136906136926%_ + (gx#stx-pair? _%tl136942136960%_)) + (let ((_%e136943136963%_ (let () (declare (not safe)) - (gx#stx-e _%tl136905136923%_)))) - (let ((_%hd136907136929%_ + (gx#stx-e _%tl136942136960%_)))) + (let ((_%hd136944136966%_ (let () (declare (not safe)) - (##car _%e136906136926%_))) - (_%tl136908136931%_ + (##car _%e136943136963%_))) + (_%tl136945136968%_ (let () (declare (not safe)) - (##cdr _%e136906136926%_)))) - ((lambda (_%L136934%_ _%L136935%_) + (##cdr _%e136943136963%_)))) + ((lambda (_%L136971%_ _%L136972%_) (gxc#compile-e__1 - _%self136896%_ - (last _%L136934%_))) - _%tl136908136931%_ - _%hd136907136929%_))) - (_%g136899136913%_ _%g136900136916%_)))) - (_%g136899136913%_ _%g136900136916%_))))) - (_%g136898136948%_ _%stx136897%_)))) + _%self136933%_ + (last _%L136971%_))) + _%tl136945136968%_ + _%hd136944136966%_))) + (_%g136936136950%_ _%g136937136953%_)))) + (_%g136936136950%_ _%g136937136953%_))))) + (_%g136935136985%_ _%stx136934%_)))) (define gxc#apply-body-setq% - (lambda (_%self136828%_ _%stx136829%_) - (let* ((_%g136831136848%_ - (lambda (_%g136832136845%_) + (lambda (_%self136865%_ _%stx136866%_) + (let* ((_%g136868136885%_ + (lambda (_%g136869136882%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136832136845%_)))) - (_%g136830136893%_ - (lambda (_%g136832136851%_) + _%g136869136882%_)))) + (_%g136867136930%_ + (lambda (_%g136869136888%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136832136851%_)) - (let ((_%e136835136853%_ + (gx#stx-pair? _%g136869136888%_)) + (let ((_%e136872136890%_ (let () (declare (not safe)) - (gx#stx-e _%g136832136851%_)))) - (let ((_%hd136836136856%_ + (gx#stx-e _%g136869136888%_)))) + (let ((_%hd136873136893%_ (let () (declare (not safe)) - (##car _%e136835136853%_))) - (_%tl136837136858%_ + (##car _%e136872136890%_))) + (_%tl136874136895%_ (let () (declare (not safe)) - (##cdr _%e136835136853%_)))) + (##cdr _%e136872136890%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136837136858%_)) - (let ((_%e136838136861%_ + (gx#stx-pair? _%tl136874136895%_)) + (let ((_%e136875136898%_ (let () (declare (not safe)) - (gx#stx-e _%tl136837136858%_)))) - (let ((_%hd136839136864%_ + (gx#stx-e _%tl136874136895%_)))) + (let ((_%hd136876136901%_ (let () (declare (not safe)) - (##car _%e136838136861%_))) - (_%tl136840136866%_ + (##car _%e136875136898%_))) + (_%tl136877136903%_ (let () (declare (not safe)) - (##cdr _%e136838136861%_)))) + (##cdr _%e136875136898%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136840136866%_)) - (let ((_%e136841136869%_ + (gx#stx-pair? _%tl136877136903%_)) + (let ((_%e136878136906%_ (let () (declare (not safe)) - (gx#stx-e _%tl136840136866%_)))) - (let ((_%hd136842136872%_ + (gx#stx-e _%tl136877136903%_)))) + (let ((_%hd136879136909%_ (let () (declare (not safe)) - (##car _%e136841136869%_))) - (_%tl136843136874%_ + (##car _%e136878136906%_))) + (_%tl136880136911%_ (let () (declare (not safe)) - (##cdr _%e136841136869%_)))) + (##cdr _%e136878136906%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136843136874%_)) - ((lambda (_%L136877%_ - _%L136878%_) + _%tl136880136911%_)) + ((lambda (_%L136914%_ + _%L136915%_) (gxc#compile-e__1 - _%self136828%_ - _%L136877%_)) - _%hd136842136872%_ - _%hd136839136864%_) - (_%g136831136848%_ - _%g136832136851%_)))) - (_%g136831136848%_ _%g136832136851%_)))) - (_%g136831136848%_ _%g136832136851%_)))) - (_%g136831136848%_ _%g136832136851%_))))) - (_%g136830136893%_ _%stx136829%_)))) + _%self136865%_ + _%L136914%_)) + _%hd136879136909%_ + _%hd136876136901%_) + (_%g136868136885%_ + _%g136869136888%_)))) + (_%g136868136885%_ _%g136869136888%_)))) + (_%g136868136885%_ _%g136869136888%_)))) + (_%g136868136885%_ _%g136869136888%_))))) + (_%g136867136930%_ _%stx136866%_)))) (define gxc#apply-operands - (lambda (_%self136741%_ _%stx136742%_) - (let* ((_%g136744136763%_ - (lambda (_%g136745136760%_) + (lambda (_%self136778%_ _%stx136779%_) + (let* ((_%g136781136800%_ + (lambda (_%g136782136797%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136745136760%_)))) - (_%g136743136825%_ - (lambda (_%g136745136766%_) + _%g136782136797%_)))) + (_%g136780136862%_ + (lambda (_%g136782136803%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136745136766%_)) - (let ((_%e136747136768%_ + (gx#stx-pair? _%g136782136803%_)) + (let ((_%e136784136805%_ (let () (declare (not safe)) - (gx#stx-e _%g136745136766%_)))) - (let ((_%hd136748136771%_ + (gx#stx-e _%g136782136803%_)))) + (let ((_%hd136785136808%_ (let () (declare (not safe)) - (##car _%e136747136768%_))) - (_%tl136749136773%_ + (##car _%e136784136805%_))) + (_%tl136786136810%_ (let () (declare (not safe)) - (##cdr _%e136747136768%_)))) + (##cdr _%e136784136805%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl136749136773%_)) - (let ((_g137939_ + (gx#stx-pair/null? _%tl136786136810%_)) + (let ((_g137976_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl136749136773%_ + _%tl136786136810%_ '0)))) (begin - (let ((_g137940_ + (let ((_g137977_ (let () (declare (not safe)) - (if (##values? _g137939_) - (##vector-length _g137939_) + (if (##values? _g137976_) + (##vector-length _g137976_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137940_ 2))) + (##fx= _g137977_ 2))) (error "Context expects 2 values" - _g137940_))) - (let ((_%target136750136776%_ + _g137977_))) + (let ((_%target136787136813%_ (let () (declare (not safe)) - (##vector-ref _g137939_ 0))) - (_%tl136752136778%_ + (##vector-ref _g137976_ 0))) + (_%tl136789136815%_ (let () (declare (not safe)) - (##vector-ref _g137939_ 1)))) + (##vector-ref _g137976_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136752136778%_)) - (letrec ((_%loop136753136781%_ - (lambda (_%hd136751136784%_ - _%rands136757136786%_) + (gx#stx-null? _%tl136789136815%_)) + (letrec ((_%loop136790136818%_ + (lambda (_%hd136788136821%_ + _%rands136794136823%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd136751136784%_)) - (let ((_%e136754136789%_ + _%hd136788136821%_)) + (let ((_%e136791136826%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd136751136784%_)))) - (let ((_%lp-hd136755136792%_ + (gx#stx-e _%hd136788136821%_)))) + (let ((_%lp-hd136792136829%_ (let () (declare (not safe)) - (##car _%e136754136789%_))) - (_%lp-tl136756136794%_ + (##car _%e136791136826%_))) + (_%lp-tl136793136831%_ (let () (declare (not safe)) - (##cdr _%e136754136789%_)))) - (_%loop136753136781%_ - _%lp-tl136756136794%_ - (cons _%lp-hd136755136792%_ _%rands136757136786%_)))) - (let ((_%rands136758136797%_ (reverse _%rands136757136786%_))) - ((lambda (_%L136800%_) + (##cdr _%e136791136826%_)))) + (_%loop136790136818%_ + _%lp-tl136793136831%_ + (cons _%lp-hd136792136829%_ _%rands136794136823%_)))) + (let ((_%rands136795136834%_ (reverse _%rands136794136823%_))) + ((lambda (_%L136837%_) (for-each - (lambda (_%g136813136815%_) - (gxc#compile-e__1 _%self136741%_ _%g136813136815%_)) - (let ((__tmp137941 - (lambda (_%g136817136820%_ _%g136818136822%_) - (cons _%g136817136820%_ _%g136818136822%_)))) + (lambda (_%g136850136852%_) + (gxc#compile-e__1 _%self136778%_ _%g136850136852%_)) + (let ((__tmp137978 + (lambda (_%g136854136857%_ _%g136855136859%_) + (cons _%g136854136857%_ _%g136855136859%_)))) (declare (not safe)) - (__foldr1 __tmp137941 '() _%L136800%_)))) - _%rands136758136797%_)))))) + (__foldr1 __tmp137978 '() _%L136837%_)))) + _%rands136795136834%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136753136781%_ - _%target136750136776%_ + (_%loop136790136818%_ + _%target136787136813%_ '())) - (_%g136744136763%_ - _%g136745136766%_))))) - (_%g136744136763%_ _%g136745136766%_)))) - (_%g136744136763%_ _%g136745136766%_))))) - (_%g136743136825%_ _%stx136742%_)))) + (_%g136781136800%_ + _%g136782136803%_))))) + (_%g136781136800%_ _%g136782136803%_)))) + (_%g136781136800%_ _%g136782136803%_))))) + (_%g136780136862%_ _%stx136779%_)))) (define gxc#xform-wrap-source - (lambda (_%stx136738%_ _%src-stx136739%_) - (let ((__tmp137942 + (lambda (_%stx136775%_ _%src-stx136776%_) + (let ((__tmp137979 (let () (declare (not safe)) - (gx#stx-source _%src-stx136739%_)))) + (gx#stx-source _%src-stx136776%_)))) (declare (not safe)) - (gx#stx-wrap-source _%stx136738%_ __tmp137942)))) + (gx#stx-wrap-source _%stx136775%_ __tmp137979)))) (define gxc#xform-wrap-apply - (lambda (_%stx136734%_ _%src-stx136735%_ _%ctx136736%_) + (lambda (_%stx136771%_ _%src-stx136772%_ _%ctx136773%_) (gxc#compile-e__1 - _%ctx136736%_ - (gxc#xform-wrap-source _%stx136734%_ _%src-stx136735%_)))) + _%ctx136773%_ + (gxc#xform-wrap-source _%stx136771%_ _%src-stx136772%_)))) (define gxc#xform-begin% - (lambda (_%self136689%_ _%stx136690%_) - (let* ((_%g136692136702%_ - (lambda (_%g136693136699%_) + (lambda (_%self136726%_ _%stx136727%_) + (let* ((_%g136729136739%_ + (lambda (_%g136730136736%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136693136699%_)))) - (_%g136691136731%_ - (lambda (_%g136693136705%_) + _%g136730136736%_)))) + (_%g136728136768%_ + (lambda (_%g136730136742%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136693136705%_)) - (let ((_%e136695136707%_ + (gx#stx-pair? _%g136730136742%_)) + (let ((_%e136732136744%_ (let () (declare (not safe)) - (gx#stx-e _%g136693136705%_)))) - (let ((_%hd136696136710%_ + (gx#stx-e _%g136730136742%_)))) + (let ((_%hd136733136747%_ (let () (declare (not safe)) - (##car _%e136695136707%_))) - (_%tl136697136712%_ + (##car _%e136732136744%_))) + (_%tl136734136749%_ (let () (declare (not safe)) - (##cdr _%e136695136707%_)))) - ((lambda (_%L136715%_) - (let ((_%forms136729%_ - (map (lambda (_%g136724136726%_) + (##cdr _%e136732136744%_)))) + ((lambda (_%L136752%_) + (let ((_%forms136766%_ + (map (lambda (_%g136761136763%_) (gxc#compile-e__1 - _%self136689%_ - _%g136724136726%_)) - _%L136715%_))) + _%self136726%_ + _%g136761136763%_)) + _%L136752%_))) (gxc#xform-wrap-source - (cons '%#begin _%forms136729%_) - _%stx136690%_))) - _%tl136697136712%_))) - (_%g136692136702%_ _%g136693136705%_))))) - (_%g136691136731%_ _%stx136690%_)))) + (cons '%#begin _%forms136766%_) + _%stx136727%_))) + _%tl136734136749%_))) + (_%g136729136739%_ _%g136730136742%_))))) + (_%g136728136768%_ _%stx136727%_)))) (define gxc#xform-begin-syntax% - (lambda (_%self136643%_ _%stx136644%_) - (let* ((_%g136646136656%_ - (lambda (_%g136647136653%_) + (lambda (_%self136680%_ _%stx136681%_) + (let* ((_%g136683136693%_ + (lambda (_%g136684136690%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136647136653%_)))) - (_%g136645136686%_ - (lambda (_%g136647136659%_) + _%g136684136690%_)))) + (_%g136682136723%_ + (lambda (_%g136684136696%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136647136659%_)) - (let ((_%e136649136661%_ + (gx#stx-pair? _%g136684136696%_)) + (let ((_%e136686136698%_ (let () (declare (not safe)) - (gx#stx-e _%g136647136659%_)))) - (let ((_%hd136650136664%_ + (gx#stx-e _%g136684136696%_)))) + (let ((_%hd136687136701%_ (let () (declare (not safe)) - (##car _%e136649136661%_))) - (_%tl136651136666%_ + (##car _%e136686136698%_))) + (_%tl136688136703%_ (let () (declare (not safe)) - (##cdr _%e136649136661%_)))) - ((lambda (_%L136669%_) - (let ((__tmp137945 + (##cdr _%e136686136698%_)))) + ((lambda (_%L136706%_) + (let ((__tmp137982 (lambda () - (let ((_%forms136684%_ - (map (lambda (_%g136679136681%_) + (let ((_%forms136721%_ + (map (lambda (_%g136716136718%_) (gxc#compile-e__1 - _%self136643%_ - _%g136679136681%_)) - _%L136669%_))) + _%self136680%_ + _%g136716136718%_)) + _%L136706%_))) (gxc#xform-wrap-source - (cons '%#begin-syntax _%forms136684%_) - _%stx136644%_)))) - (__tmp137943 - (let ((__tmp137944 + (cons '%#begin-syntax _%forms136721%_) + _%stx136681%_)))) + (__tmp137980 + (let ((__tmp137981 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137944 '1)))) + (##fx+ __tmp137981 '1)))) (declare (not safe)) (__call-with-parameters - __tmp137945 + __tmp137982 gx#current-expander-phi - __tmp137943))) - _%tl136651136666%_))) - (_%g136646136656%_ _%g136647136659%_))))) - (_%g136645136686%_ _%stx136644%_)))) + __tmp137980))) + _%tl136688136703%_))) + (_%g136683136693%_ _%g136684136696%_))))) + (_%g136682136723%_ _%stx136681%_)))) (define gxc#xform-module% - (lambda (_%self136580%_ _%stx136581%_) - (let* ((_%g136583136597%_ - (lambda (_%g136584136594%_) + (lambda (_%self136617%_ _%stx136618%_) + (let* ((_%g136620136634%_ + (lambda (_%g136621136631%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136584136594%_)))) - (_%g136582136640%_ - (lambda (_%g136584136600%_) + _%g136621136631%_)))) + (_%g136619136677%_ + (lambda (_%g136621136637%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136584136600%_)) - (let ((_%e136587136602%_ + (gx#stx-pair? _%g136621136637%_)) + (let ((_%e136624136639%_ (let () (declare (not safe)) - (gx#stx-e _%g136584136600%_)))) - (let ((_%hd136588136605%_ + (gx#stx-e _%g136621136637%_)))) + (let ((_%hd136625136642%_ (let () (declare (not safe)) - (##car _%e136587136602%_))) - (_%tl136589136607%_ + (##car _%e136624136639%_))) + (_%tl136626136644%_ (let () (declare (not safe)) - (##cdr _%e136587136602%_)))) + (##cdr _%e136624136639%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136589136607%_)) - (let ((_%e136590136610%_ + (gx#stx-pair? _%tl136626136644%_)) + (let ((_%e136627136647%_ (let () (declare (not safe)) - (gx#stx-e _%tl136589136607%_)))) - (let ((_%hd136591136613%_ + (gx#stx-e _%tl136626136644%_)))) + (let ((_%hd136628136650%_ (let () (declare (not safe)) - (##car _%e136590136610%_))) - (_%tl136592136615%_ + (##car _%e136627136647%_))) + (_%tl136629136652%_ (let () (declare (not safe)) - (##cdr _%e136590136610%_)))) - ((lambda (_%L136618%_ _%L136619%_) - (let* ((_%ctx136632%_ + (##cdr _%e136627136647%_)))) + ((lambda (_%L136655%_ _%L136656%_) + (let* ((_%ctx136669%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L136619%_))) - (_%code136634%_ + _%L136656%_))) + (_%code136671%_ (##structure-ref - _%ctx136632%_ + _%ctx136669%_ '11 gx#module-context::t '#f)) - (_%code136637%_ - (let ((__tmp137946 + (_%code136674%_ + (let ((__tmp137983 (lambda () (gxc#compile-e__1 - _%self136580%_ - _%code136634%_)))) + _%self136617%_ + _%code136671%_)))) (declare (not safe)) (__call-with-parameters - __tmp137946 + __tmp137983 gx#current-expander-context - _%ctx136632%_)))) + _%ctx136669%_)))) (##structure-set! - _%ctx136632%_ - _%code136637%_ + _%ctx136669%_ + _%code136674%_ '11 gx#module-context::t '#f) (gxc#xform-wrap-source (cons '%#module - (cons _%L136619%_ - (cons _%code136637%_ '()))) - _%stx136581%_))) - _%tl136592136615%_ - _%hd136591136613%_))) - (_%g136583136597%_ _%g136584136600%_)))) - (_%g136583136597%_ _%g136584136600%_))))) - (_%g136582136640%_ _%stx136581%_)))) + (cons _%L136656%_ + (cons _%code136674%_ '()))) + _%stx136618%_))) + _%tl136629136652%_ + _%hd136628136650%_))) + (_%g136620136634%_ _%g136621136637%_)))) + (_%g136620136634%_ _%g136621136637%_))))) + (_%g136619136677%_ _%stx136618%_)))) (define gxc#xform-define-values% - (lambda (_%self136510%_ _%stx136511%_) - (let* ((_%g136513136530%_ - (lambda (_%g136514136527%_) + (lambda (_%self136547%_ _%stx136548%_) + (let* ((_%g136550136567%_ + (lambda (_%g136551136564%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136514136527%_)))) - (_%g136512136577%_ - (lambda (_%g136514136533%_) + _%g136551136564%_)))) + (_%g136549136614%_ + (lambda (_%g136551136570%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136514136533%_)) - (let ((_%e136517136535%_ + (gx#stx-pair? _%g136551136570%_)) + (let ((_%e136554136572%_ (let () (declare (not safe)) - (gx#stx-e _%g136514136533%_)))) - (let ((_%hd136518136538%_ + (gx#stx-e _%g136551136570%_)))) + (let ((_%hd136555136575%_ (let () (declare (not safe)) - (##car _%e136517136535%_))) - (_%tl136519136540%_ + (##car _%e136554136572%_))) + (_%tl136556136577%_ (let () (declare (not safe)) - (##cdr _%e136517136535%_)))) + (##cdr _%e136554136572%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136519136540%_)) - (let ((_%e136520136543%_ + (gx#stx-pair? _%tl136556136577%_)) + (let ((_%e136557136580%_ (let () (declare (not safe)) - (gx#stx-e _%tl136519136540%_)))) - (let ((_%hd136521136546%_ + (gx#stx-e _%tl136556136577%_)))) + (let ((_%hd136558136583%_ (let () (declare (not safe)) - (##car _%e136520136543%_))) - (_%tl136522136548%_ + (##car _%e136557136580%_))) + (_%tl136559136585%_ (let () (declare (not safe)) - (##cdr _%e136520136543%_)))) + (##cdr _%e136557136580%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136522136548%_)) - (let ((_%e136523136551%_ + (gx#stx-pair? _%tl136559136585%_)) + (let ((_%e136560136588%_ (let () (declare (not safe)) - (gx#stx-e _%tl136522136548%_)))) - (let ((_%hd136524136554%_ + (gx#stx-e _%tl136559136585%_)))) + (let ((_%hd136561136591%_ (let () (declare (not safe)) - (##car _%e136523136551%_))) - (_%tl136525136556%_ + (##car _%e136560136588%_))) + (_%tl136562136593%_ (let () (declare (not safe)) - (##cdr _%e136523136551%_)))) + (##cdr _%e136560136588%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136525136556%_)) - ((lambda (_%L136559%_ - _%L136560%_) - (let ((_%expr136575%_ + _%tl136562136593%_)) + ((lambda (_%L136596%_ + _%L136597%_) + (let ((_%expr136612%_ (gxc#compile-e__1 - _%self136510%_ - _%L136559%_))) + _%self136547%_ + _%L136596%_))) (gxc#xform-wrap-source (cons '%#define-values - (cons _%L136560%_ - (cons _%expr136575%_ + (cons _%L136597%_ + (cons _%expr136612%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx136511%_))) - _%hd136524136554%_ - _%hd136521136546%_) - (_%g136513136530%_ - _%g136514136533%_)))) - (_%g136513136530%_ _%g136514136533%_)))) - (_%g136513136530%_ _%g136514136533%_)))) - (_%g136513136530%_ _%g136514136533%_))))) - (_%g136512136577%_ _%stx136511%_)))) + _%stx136548%_))) + _%hd136561136591%_ + _%hd136558136583%_) + (_%g136550136567%_ + _%g136551136570%_)))) + (_%g136550136567%_ _%g136551136570%_)))) + (_%g136550136567%_ _%g136551136570%_)))) + (_%g136550136567%_ _%g136551136570%_))))) + (_%g136549136614%_ _%stx136548%_)))) (define gxc#xform-define-syntax% - (lambda (_%self136439%_ _%stx136440%_) - (let* ((_%g136442136459%_ - (lambda (_%g136443136456%_) + (lambda (_%self136476%_ _%stx136477%_) + (let* ((_%g136479136496%_ + (lambda (_%g136480136493%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136443136456%_)))) - (_%g136441136507%_ - (lambda (_%g136443136462%_) + _%g136480136493%_)))) + (_%g136478136544%_ + (lambda (_%g136480136499%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136443136462%_)) - (let ((_%e136446136464%_ + (gx#stx-pair? _%g136480136499%_)) + (let ((_%e136483136501%_ (let () (declare (not safe)) - (gx#stx-e _%g136443136462%_)))) - (let ((_%hd136447136467%_ + (gx#stx-e _%g136480136499%_)))) + (let ((_%hd136484136504%_ (let () (declare (not safe)) - (##car _%e136446136464%_))) - (_%tl136448136469%_ + (##car _%e136483136501%_))) + (_%tl136485136506%_ (let () (declare (not safe)) - (##cdr _%e136446136464%_)))) + (##cdr _%e136483136501%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136448136469%_)) - (let ((_%e136449136472%_ + (gx#stx-pair? _%tl136485136506%_)) + (let ((_%e136486136509%_ (let () (declare (not safe)) - (gx#stx-e _%tl136448136469%_)))) - (let ((_%hd136450136475%_ + (gx#stx-e _%tl136485136506%_)))) + (let ((_%hd136487136512%_ (let () (declare (not safe)) - (##car _%e136449136472%_))) - (_%tl136451136477%_ + (##car _%e136486136509%_))) + (_%tl136488136514%_ (let () (declare (not safe)) - (##cdr _%e136449136472%_)))) + (##cdr _%e136486136509%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136451136477%_)) - (let ((_%e136452136480%_ + (gx#stx-pair? _%tl136488136514%_)) + (let ((_%e136489136517%_ (let () (declare (not safe)) - (gx#stx-e _%tl136451136477%_)))) - (let ((_%hd136453136483%_ + (gx#stx-e _%tl136488136514%_)))) + (let ((_%hd136490136520%_ (let () (declare (not safe)) - (##car _%e136452136480%_))) - (_%tl136454136485%_ + (##car _%e136489136517%_))) + (_%tl136491136522%_ (let () (declare (not safe)) - (##cdr _%e136452136480%_)))) + (##cdr _%e136489136517%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136454136485%_)) - ((lambda (_%L136488%_ - _%L136489%_) - (let ((__tmp137949 + _%tl136491136522%_)) + ((lambda (_%L136525%_ + _%L136526%_) + (let ((__tmp137986 (lambda () - (let ((_%expr136505%_ + (let ((_%expr136542%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#compile-e__1 _%self136439%_ _%L136488%_))) + (gxc#compile-e__1 _%self136476%_ _%L136525%_))) (gxc#xform-wrap-source (cons '%#define-syntax - (cons _%L136489%_ (cons _%expr136505%_ '()))) - _%stx136440%_)))) - (__tmp137947 - (let ((__tmp137948 + (cons _%L136526%_ (cons _%expr136542%_ '()))) + _%stx136477%_)))) + (__tmp137984 + (let ((__tmp137985 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137948 '1)))) + (##fx+ __tmp137985 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp137949 + __tmp137986 gx#current-expander-phi - __tmp137947))) - _%hd136453136483%_ - _%hd136450136475%_) - (_%g136442136459%_ - _%g136443136462%_)))) - (_%g136442136459%_ _%g136443136462%_)))) - (_%g136442136459%_ _%g136443136462%_)))) - (_%g136442136459%_ _%g136443136462%_))))) - (_%g136441136507%_ _%stx136440%_)))) + __tmp137984))) + _%hd136490136520%_ + _%hd136487136512%_) + (_%g136479136496%_ + _%g136480136499%_)))) + (_%g136479136496%_ _%g136480136499%_)))) + (_%g136479136496%_ _%g136480136499%_)))) + (_%g136479136496%_ _%g136480136499%_))))) + (_%g136478136544%_ _%stx136477%_)))) (define gxc#xform-begin-annotation% - (lambda (_%self136369%_ _%stx136370%_) - (let* ((_%g136372136389%_ - (lambda (_%g136373136386%_) + (lambda (_%self136406%_ _%stx136407%_) + (let* ((_%g136409136426%_ + (lambda (_%g136410136423%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136373136386%_)))) - (_%g136371136436%_ - (lambda (_%g136373136392%_) + _%g136410136423%_)))) + (_%g136408136473%_ + (lambda (_%g136410136429%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136373136392%_)) - (let ((_%e136376136394%_ + (gx#stx-pair? _%g136410136429%_)) + (let ((_%e136413136431%_ (let () (declare (not safe)) - (gx#stx-e _%g136373136392%_)))) - (let ((_%hd136377136397%_ + (gx#stx-e _%g136410136429%_)))) + (let ((_%hd136414136434%_ (let () (declare (not safe)) - (##car _%e136376136394%_))) - (_%tl136378136399%_ + (##car _%e136413136431%_))) + (_%tl136415136436%_ (let () (declare (not safe)) - (##cdr _%e136376136394%_)))) + (##cdr _%e136413136431%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136378136399%_)) - (let ((_%e136379136402%_ + (gx#stx-pair? _%tl136415136436%_)) + (let ((_%e136416136439%_ (let () (declare (not safe)) - (gx#stx-e _%tl136378136399%_)))) - (let ((_%hd136380136405%_ + (gx#stx-e _%tl136415136436%_)))) + (let ((_%hd136417136442%_ (let () (declare (not safe)) - (##car _%e136379136402%_))) - (_%tl136381136407%_ + (##car _%e136416136439%_))) + (_%tl136418136444%_ (let () (declare (not safe)) - (##cdr _%e136379136402%_)))) + (##cdr _%e136416136439%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136381136407%_)) - (let ((_%e136382136410%_ + (gx#stx-pair? _%tl136418136444%_)) + (let ((_%e136419136447%_ (let () (declare (not safe)) - (gx#stx-e _%tl136381136407%_)))) - (let ((_%hd136383136413%_ + (gx#stx-e _%tl136418136444%_)))) + (let ((_%hd136420136450%_ (let () (declare (not safe)) - (##car _%e136382136410%_))) - (_%tl136384136415%_ + (##car _%e136419136447%_))) + (_%tl136421136452%_ (let () (declare (not safe)) - (##cdr _%e136382136410%_)))) + (##cdr _%e136419136447%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136384136415%_)) - ((lambda (_%L136418%_ - _%L136419%_) - (let ((_%expr136434%_ + _%tl136421136452%_)) + ((lambda (_%L136455%_ + _%L136456%_) + (let ((_%expr136471%_ (gxc#compile-e__1 - _%self136369%_ - _%L136418%_))) + _%self136406%_ + _%L136455%_))) (gxc#xform-wrap-source (cons '%#begin-annotation - (cons _%L136419%_ - (cons _%expr136434%_ + (cons _%L136456%_ + (cons _%expr136471%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx136370%_))) - _%hd136383136413%_ - _%hd136380136405%_) - (_%g136372136389%_ - _%g136373136392%_)))) - (_%g136372136389%_ _%g136373136392%_)))) - (_%g136372136389%_ _%g136373136392%_)))) - (_%g136372136389%_ _%g136373136392%_))))) - (_%g136371136436%_ _%stx136370%_)))) + _%stx136407%_))) + _%hd136420136450%_ + _%hd136417136442%_) + (_%g136409136426%_ + _%g136410136429%_)))) + (_%g136409136426%_ _%g136410136429%_)))) + (_%g136409136426%_ _%g136410136429%_)))) + (_%g136409136426%_ _%g136410136429%_))))) + (_%g136408136473%_ _%stx136407%_)))) (define gxc#xform-lambda% - (lambda (_%self136307%_ _%stx136308%_) - (let* ((_%g136310136324%_ - (lambda (_%g136311136321%_) + (lambda (_%self136344%_ _%stx136345%_) + (let* ((_%g136347136361%_ + (lambda (_%g136348136358%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136311136321%_)))) - (_%g136309136366%_ - (lambda (_%g136311136327%_) + _%g136348136358%_)))) + (_%g136346136403%_ + (lambda (_%g136348136364%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136311136327%_)) - (let ((_%e136314136329%_ + (gx#stx-pair? _%g136348136364%_)) + (let ((_%e136351136366%_ (let () (declare (not safe)) - (gx#stx-e _%g136311136327%_)))) - (let ((_%hd136315136332%_ + (gx#stx-e _%g136348136364%_)))) + (let ((_%hd136352136369%_ (let () (declare (not safe)) - (##car _%e136314136329%_))) - (_%tl136316136334%_ + (##car _%e136351136366%_))) + (_%tl136353136371%_ (let () (declare (not safe)) - (##cdr _%e136314136329%_)))) + (##cdr _%e136351136366%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136316136334%_)) - (let ((_%e136317136337%_ + (gx#stx-pair? _%tl136353136371%_)) + (let ((_%e136354136374%_ (let () (declare (not safe)) - (gx#stx-e _%tl136316136334%_)))) - (let ((_%hd136318136340%_ + (gx#stx-e _%tl136353136371%_)))) + (let ((_%hd136355136377%_ (let () (declare (not safe)) - (##car _%e136317136337%_))) - (_%tl136319136342%_ + (##car _%e136354136374%_))) + (_%tl136356136379%_ (let () (declare (not safe)) - (##cdr _%e136317136337%_)))) - ((lambda (_%L136345%_ _%L136346%_) - (let ((__tmp137951 + (##cdr _%e136354136374%_)))) + ((lambda (_%L136382%_ _%L136383%_) + (let ((__tmp137988 (lambda () - (let ((_%body136364%_ - (map (lambda (_%g136359136361%_) + (let ((_%body136401%_ + (map (lambda (_%g136396136398%_) (gxc#compile-e__1 - _%self136307%_ - _%g136359136361%_)) - _%L136345%_))) + _%self136344%_ + _%g136396136398%_)) + _%L136382%_))) (gxc#xform-wrap-source (cons '%#lambda - (cons _%L136346%_ - _%body136364%_)) - _%stx136308%_)))) - (__tmp137950 + (cons _%L136383%_ + _%body136401%_)) + _%stx136345%_)))) + (__tmp137987 (gxc#xform-let-locals - _%L136346%_))) + _%L136383%_))) (declare (not safe)) (__call-with-parameters - __tmp137951 + __tmp137988 gxc#current-compile-local-env - __tmp137950))) - _%tl136319136342%_ - _%hd136318136340%_))) - (_%g136310136324%_ _%g136311136327%_)))) - (_%g136310136324%_ _%g136311136327%_))))) - (_%g136309136366%_ _%stx136308%_)))) + __tmp137987))) + _%tl136356136379%_ + _%hd136355136377%_))) + (_%g136347136361%_ _%g136348136364%_)))) + (_%g136347136361%_ _%g136348136364%_))))) + (_%g136346136403%_ _%stx136345%_)))) (define gxc#xform-case-lambda% - (lambda (_%self136215%_ _%stx136216%_) - (letrec ((_%clause-e136218%_ - (lambda (_%clause136259%_) - (let* ((_%g136261136272%_ - (lambda (_%g136262136269%_) + (lambda (_%self136252%_ _%stx136253%_) + (letrec ((_%clause-e136255%_ + (lambda (_%clause136296%_) + (let* ((_%g136298136309%_ + (lambda (_%g136299136306%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136262136269%_)))) - (_%g136260136304%_ - (lambda (_%g136262136275%_) + _%g136299136306%_)))) + (_%g136297136341%_ + (lambda (_%g136299136312%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136262136275%_)) - (let ((_%e136265136277%_ + (gx#stx-pair? _%g136299136312%_)) + (let ((_%e136302136314%_ (let () (declare (not safe)) - (gx#stx-e _%g136262136275%_)))) - (let ((_%hd136266136280%_ + (gx#stx-e _%g136299136312%_)))) + (let ((_%hd136303136317%_ (let () (declare (not safe)) - (##car _%e136265136277%_))) - (_%tl136267136282%_ + (##car _%e136302136314%_))) + (_%tl136304136319%_ (let () (declare (not safe)) - (##cdr _%e136265136277%_)))) - ((lambda (_%L136285%_ _%L136286%_) - (let ((__tmp137953 + (##cdr _%e136302136314%_)))) + ((lambda (_%L136322%_ _%L136323%_) + (let ((__tmp137990 (lambda () - (let ((_%body136302%_ - (map (lambda (_%g136297136299%_) + (let ((_%body136339%_ + (map (lambda (_%g136334136336%_) (gxc#compile-e__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%self136215%_ - _%g136297136299%_)) - _%L136285%_))) + _%self136252%_ + _%g136334136336%_)) + _%L136322%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L136286%_ - _%body136302%_)))) - (__tmp137952 + (cons _%L136323%_ + _%body136339%_)))) + (__tmp137989 (gxc#xform-let-locals - _%L136286%_))) + _%L136323%_))) (declare (not safe)) (__call-with-parameters - __tmp137953 + __tmp137990 gxc#current-compile-local-env - __tmp137952))) - _%tl136267136282%_ - _%hd136266136280%_))) - (_%g136261136272%_ _%g136262136275%_))))) - (_%g136260136304%_ _%clause136259%_))))) - (let* ((_%g136220136230%_ - (lambda (_%g136221136227%_) + __tmp137989))) + _%tl136304136319%_ + _%hd136303136317%_))) + (_%g136298136309%_ _%g136299136312%_))))) + (_%g136297136341%_ _%clause136296%_))))) + (let* ((_%g136257136267%_ + (lambda (_%g136258136264%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136221136227%_)))) - (_%g136219136256%_ - (lambda (_%g136221136233%_) + _%g136258136264%_)))) + (_%g136256136293%_ + (lambda (_%g136258136270%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136221136233%_)) - (let ((_%e136223136235%_ + (gx#stx-pair? _%g136258136270%_)) + (let ((_%e136260136272%_ (let () (declare (not safe)) - (gx#stx-e _%g136221136233%_)))) - (let ((_%hd136224136238%_ + (gx#stx-e _%g136258136270%_)))) + (let ((_%hd136261136275%_ (let () (declare (not safe)) - (##car _%e136223136235%_))) - (_%tl136225136240%_ + (##car _%e136260136272%_))) + (_%tl136262136277%_ (let () (declare (not safe)) - (##cdr _%e136223136235%_)))) - ((lambda (_%L136243%_) - (let ((_%clauses136254%_ - (map _%clause-e136218%_ _%L136243%_))) + (##cdr _%e136260136272%_)))) + ((lambda (_%L136280%_) + (let ((_%clauses136291%_ + (map _%clause-e136255%_ _%L136280%_))) (gxc#xform-wrap-source - (cons '%#case-lambda _%clauses136254%_) - _%stx136216%_))) - _%tl136225136240%_))) - (_%g136220136230%_ _%g136221136233%_))))) - (_%g136219136256%_ _%stx136216%_))))) + (cons '%#case-lambda _%clauses136291%_) + _%stx136253%_))) + _%tl136262136277%_))) + (_%g136257136267%_ _%g136258136270%_))))) + (_%g136256136293%_ _%stx136253%_))))) (define gxc#xform-let-values% - (lambda (_%self135969%_ _%stx135970%_) - (let* ((_%g135972136005%_ - (lambda (_%g135973136002%_) + (lambda (_%self136006%_ _%stx136007%_) + (let* ((_%g136009136042%_ + (lambda (_%g136010136039%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135973136002%_)))) - (_%g135971136212%_ - (lambda (_%g135973136008%_) + _%g136010136039%_)))) + (_%g136008136249%_ + (lambda (_%g136010136045%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135973136008%_)) - (let ((_%e135978136010%_ + (gx#stx-pair? _%g136010136045%_)) + (let ((_%e136015136047%_ (let () (declare (not safe)) - (gx#stx-e _%g135973136008%_)))) - (let ((_%hd135979136013%_ + (gx#stx-e _%g136010136045%_)))) + (let ((_%hd136016136050%_ (let () (declare (not safe)) - (##car _%e135978136010%_))) - (_%tl135980136015%_ + (##car _%e136015136047%_))) + (_%tl136017136052%_ (let () (declare (not safe)) - (##cdr _%e135978136010%_)))) + (##cdr _%e136015136047%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135980136015%_)) - (let ((_%e135981136018%_ + (gx#stx-pair? _%tl136017136052%_)) + (let ((_%e136018136055%_ (let () (declare (not safe)) - (gx#stx-e _%tl135980136015%_)))) - (let ((_%hd135982136021%_ + (gx#stx-e _%tl136017136052%_)))) + (let ((_%hd136019136058%_ (let () (declare (not safe)) - (##car _%e135981136018%_))) - (_%tl135983136023%_ + (##car _%e136018136055%_))) + (_%tl136020136060%_ (let () (declare (not safe)) - (##cdr _%e135981136018%_)))) + (##cdr _%e136018136055%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd135982136021%_)) - (let ((_g137954_ + (gx#stx-pair/null? _%hd136019136058%_)) + (let ((_g137991_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135982136021%_ + _%hd136019136058%_ '0)))) (begin - (let ((_g137955_ + (let ((_g137992_ (let () (declare (not safe)) - (if (##values? _g137954_) + (if (##values? _g137991_) (##vector-length - _g137954_) + _g137991_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137955_ 2))) + (##fx= _g137992_ 2))) (error "Context expects 2 values" - _g137955_))) - (let ((_%target135984136026%_ + _g137992_))) + (let ((_%target136021136063%_ (let () (declare (not safe)) - (##vector-ref _g137954_ 0))) - (_%tl135986136028%_ + (##vector-ref _g137991_ 0))) + (_%tl136023136065%_ (let () (declare (not safe)) (##vector-ref - _g137954_ + _g137991_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135986136028%_)) - (letrec ((_%loop135987136031%_ - (lambda (_%hd135985136034%_ + _%tl136023136065%_)) + (letrec ((_%loop136024136068%_ + (lambda (_%hd136022136071%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135991136036%_ - _%hd135992136038%_) + _%expr136028136073%_ + _%hd136029136075%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135985136034%_)) - (let ((_%e135988136041%_ + (gx#stx-pair? _%hd136022136071%_)) + (let ((_%e136025136078%_ (let () (declare (not safe)) - (gx#stx-e _%hd135985136034%_)))) - (let ((_%lp-hd135989136044%_ + (gx#stx-e _%hd136022136071%_)))) + (let ((_%lp-hd136026136081%_ (let () (declare (not safe)) - (##car _%e135988136041%_))) - (_%lp-tl135990136046%_ + (##car _%e136025136078%_))) + (_%lp-tl136027136083%_ (let () (declare (not safe)) - (##cdr _%e135988136041%_)))) + (##cdr _%e136025136078%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135989136044%_)) - (let ((_%e135995136049%_ + (gx#stx-pair? _%lp-hd136026136081%_)) + (let ((_%e136032136086%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135989136044%_)))) - (let ((_%hd135996136052%_ + (gx#stx-e _%lp-hd136026136081%_)))) + (let ((_%hd136033136089%_ (let () (declare (not safe)) - (##car _%e135995136049%_))) - (_%tl135997136054%_ + (##car _%e136032136086%_))) + (_%tl136034136091%_ (let () (declare (not safe)) - (##cdr _%e135995136049%_)))) + (##cdr _%e136032136086%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135997136054%_)) - (let ((_%e135998136057%_ + (gx#stx-pair? _%tl136034136091%_)) + (let ((_%e136035136094%_ (let () (declare (not safe)) (gx#stx-e - _%tl135997136054%_)))) - (let ((_%hd135999136060%_ + _%tl136034136091%_)))) + (let ((_%hd136036136097%_ (let () (declare (not safe)) - (##car _%e135998136057%_))) - (_%tl136000136062%_ + (##car _%e136035136094%_))) + (_%tl136037136099%_ (let () (declare (not safe)) - (##cdr _%e135998136057%_)))) + (##cdr _%e136035136094%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136000136062%_)) - (_%loop135987136031%_ - _%lp-tl135990136046%_ - (cons _%hd135999136060%_ - _%expr135991136036%_) - (cons _%hd135996136052%_ - _%hd135992136038%_)) - (_%g135972136005%_ - _%g135973136008%_)))) - (_%g135972136005%_ - _%g135973136008%_)))) - (_%g135972136005%_ _%g135973136008%_)))) - (let ((_%expr135993136065%_ - (reverse _%expr135991136036%_)) - (_%hd135994136067%_ - (reverse _%hd135992136038%_))) - ((lambda (_%L136070%_ - _%L136071%_ - _%L136072%_ - _%L136073%_) - (let* ((_%g136092136108%_ - (lambda (_%g136093136105%_) + _%tl136037136099%_)) + (_%loop136024136068%_ + _%lp-tl136027136083%_ + (cons _%hd136036136097%_ + _%expr136028136073%_) + (cons _%hd136033136089%_ + _%hd136029136075%_)) + (_%g136009136042%_ + _%g136010136045%_)))) + (_%g136009136042%_ + _%g136010136045%_)))) + (_%g136009136042%_ _%g136010136045%_)))) + (let ((_%expr136030136102%_ + (reverse _%expr136028136073%_)) + (_%hd136031136104%_ + (reverse _%hd136029136075%_))) + ((lambda (_%L136107%_ + _%L136108%_ + _%L136109%_ + _%L136110%_) + (let* ((_%g136129136145%_ + (lambda (_%g136130136142%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136093136105%_)))) - (_%g136091136198%_ - (lambda (_%g136093136111%_) + _%g136130136142%_)))) + (_%g136128136235%_ + (lambda (_%g136130136148%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g136093136111%_)) - (let ((_g137956_ + _%g136130136148%_)) + (let ((_g137993_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g136093136111%_ + _%g136130136148%_ '0)))) (begin - (let ((_g137957_ + (let ((_g137994_ (let () (declare (not safe)) (if (##values? - _g137956_) + _g137993_) (##vector-length - _g137956_) + _g137993_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137957_ + (##fx= _g137994_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g137957_))) - (let ((_%target136095136113%_ + _g137994_))) + (let ((_%target136132136150%_ (let () (declare (not safe)) (##vector-ref - _g137956_ + _g137993_ 0))) - (_%tl136097136115%_ + (_%tl136134136152%_ (let () (declare (not safe)) (##vector-ref - _g137956_ + _g137993_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136097136115%_)) - (letrec ((_%loop136098136118%_ - (lambda (_%hd136096136121%_ + _%tl136134136152%_)) + (letrec ((_%loop136135136155%_ + (lambda (_%hd136133136158%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr136102136123%_) + _%expr136139136160%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136096136121%_)) - (let ((_%e136099136126%_ + (gx#stx-pair? _%hd136133136158%_)) + (let ((_%e136136136163%_ (let () (declare (not safe)) - (gx#syntax-e _%hd136096136121%_)))) - (let ((_%lp-hd136100136129%_ + (gx#syntax-e _%hd136133136158%_)))) + (let ((_%lp-hd136137136166%_ (let () (declare (not safe)) - (##car _%e136099136126%_))) - (_%lp-tl136101136131%_ + (##car _%e136136136163%_))) + (_%lp-tl136138136168%_ (let () (declare (not safe)) - (##cdr _%e136099136126%_)))) - (_%loop136098136118%_ - _%lp-tl136101136131%_ - (cons _%lp-hd136100136129%_ - _%expr136102136123%_)))) - (let ((_%expr136103136134%_ - (reverse _%expr136102136123%_))) - ((lambda (_%L136137%_) - (let ((__tmp137960 + (##cdr _%e136136136163%_)))) + (_%loop136135136155%_ + _%lp-tl136138136168%_ + (cons _%lp-hd136137136166%_ + _%expr136139136160%_)))) + (let ((_%expr136140136171%_ + (reverse _%expr136139136160%_))) + ((lambda (_%L136174%_) + (let ((__tmp137997 (lambda () - (let* ((_%g136151136158%_ - (lambda (_%g136152136155%_) + (let* ((_%g136188136195%_ + (lambda (_%g136189136192%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136152136155%_)))) - (_%g136150136184%_ - (lambda (_%g136152136161%_) - ((lambda (_%L136163%_) + _%g136189136192%_)))) + (_%g136187136221%_ + (lambda (_%g136189136198%_) + ((lambda (_%L136200%_) (gxc#xform-wrap-source - (cons _%L136073%_ + (cons _%L136110%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L136137%_ - _%L136072%_)) - (let ((__tmp137961 - (lambda (_%g136173136177%_ - _%g136174136179%_ - _%g136175136181%_) - (cons (cons _%g136174136179%_ - (cons _%g136173136177%_ + _%L136174%_ + _%L136109%_)) + (let ((__tmp137998 + (lambda (_%g136210136214%_ + _%g136211136216%_ + _%g136212136218%_) + (cons (cons _%g136211136216%_ + (cons _%g136210136214%_ '())) - _%g136175136181%_)))) + _%g136212136218%_)))) (declare (not safe)) (__foldr2 - __tmp137961 + __tmp137998 '() - _%L136137%_ - _%L136072%_))) - _%L136163%_)) - _%stx135970%_)) - _%g136152136161%_)))) + _%L136174%_ + _%L136109%_))) + _%L136200%_)) + _%stx136007%_)) + _%g136189136198%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g136150136184%_ - (map (lambda (_%g136186136188%_) + (_%g136187136221%_ + (map (lambda (_%g136223136225%_) (gxc#compile-e__1 - _%self135969%_ - _%g136186136188%_)) - _%L136070%_))))) - (__tmp137958 + _%self136006%_ + _%g136223136225%_)) + _%L136107%_))))) + (__tmp137995 (gxc#xform-let-locals - (let ((__tmp137959 - (lambda (_%g136190136193%_ - _%g136191136195%_) - (cons _%g136190136193%_ - _%g136191136195%_)))) + (let ((__tmp137996 + (lambda (_%g136227136230%_ + _%g136228136232%_) + (cons _%g136227136230%_ + _%g136228136232%_)))) (declare (not safe)) (__foldr1 - __tmp137959 + __tmp137996 '() - _%L136072%_))))) + _%L136109%_))))) (declare (not safe)) (__call-with-parameters - __tmp137960 + __tmp137997 gxc#current-compile-local-env - __tmp137958))) - _%expr136103136134%_)))))) - (_%loop136098136118%_ _%target136095136113%_ '())) + __tmp137995))) + _%expr136140136171%_)))))) + (_%loop136135136155%_ _%target136132136150%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g136092136108%_ - _%g136093136111%_))))) - (_%g136092136108%_ - _%g136093136111%_))))) - (_%g136091136198%_ - (map (lambda (_%g136200136202%_) + (_%g136129136145%_ + _%g136130136148%_))))) + (_%g136129136145%_ + _%g136130136148%_))))) + (_%g136128136235%_ + (map (lambda (_%g136237136239%_) (gxc#compile-e__1 - _%self135969%_ - _%g136200136202%_)) - (let ((__tmp137962 - (lambda (_%g136204136207%_ - _%g136205136209%_) - (cons _%g136204136207%_ - _%g136205136209%_)))) + _%self136006%_ + _%g136237136239%_)) + (let ((__tmp137999 + (lambda (_%g136241136244%_ + _%g136242136246%_) + (cons _%g136241136244%_ + _%g136242136246%_)))) (declare (not safe)) (__foldr1 - __tmp137962 + __tmp137999 '() - _%L136071%_)))))) - _%tl135983136023%_ - _%expr135993136065%_ - _%hd135994136067%_ - _%hd135979136013%_)))))) + _%L136108%_)))))) + _%tl136020136060%_ + _%expr136030136102%_ + _%hd136031136104%_ + _%hd136016136050%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135987136031%_ - _%target135984136026%_ + (_%loop136024136068%_ + _%target136021136063%_ '() '())) - (_%g135972136005%_ - _%g135973136008%_))))) - (_%g135972136005%_ _%g135973136008%_)))) - (_%g135972136005%_ _%g135973136008%_)))) - (_%g135972136005%_ _%g135973136008%_))))) - (_%g135971136212%_ _%stx135970%_)))) + (_%g136009136042%_ + _%g136010136045%_))))) + (_%g136009136042%_ _%g136010136045%_)))) + (_%g136009136042%_ _%g136010136045%_)))) + (_%g136009136042%_ _%g136010136045%_))))) + (_%g136008136249%_ _%stx136007%_)))) (define gxc#xform-letrec-values% - (lambda (_%self135723%_ _%stx135724%_) - (let* ((_%g135726135759%_ - (lambda (_%g135727135756%_) + (lambda (_%self135760%_ _%stx135761%_) + (let* ((_%g135763135796%_ + (lambda (_%g135764135793%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135727135756%_)))) - (_%g135725135966%_ - (lambda (_%g135727135762%_) + _%g135764135793%_)))) + (_%g135762136003%_ + (lambda (_%g135764135799%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135727135762%_)) - (let ((_%e135732135764%_ + (gx#stx-pair? _%g135764135799%_)) + (let ((_%e135769135801%_ (let () (declare (not safe)) - (gx#stx-e _%g135727135762%_)))) - (let ((_%hd135733135767%_ + (gx#stx-e _%g135764135799%_)))) + (let ((_%hd135770135804%_ (let () (declare (not safe)) - (##car _%e135732135764%_))) - (_%tl135734135769%_ + (##car _%e135769135801%_))) + (_%tl135771135806%_ (let () (declare (not safe)) - (##cdr _%e135732135764%_)))) + (##cdr _%e135769135801%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135734135769%_)) - (let ((_%e135735135772%_ + (gx#stx-pair? _%tl135771135806%_)) + (let ((_%e135772135809%_ (let () (declare (not safe)) - (gx#stx-e _%tl135734135769%_)))) - (let ((_%hd135736135775%_ + (gx#stx-e _%tl135771135806%_)))) + (let ((_%hd135773135812%_ (let () (declare (not safe)) - (##car _%e135735135772%_))) - (_%tl135737135777%_ + (##car _%e135772135809%_))) + (_%tl135774135814%_ (let () (declare (not safe)) - (##cdr _%e135735135772%_)))) + (##cdr _%e135772135809%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd135736135775%_)) - (let ((_g137963_ + (gx#stx-pair/null? _%hd135773135812%_)) + (let ((_g138000_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135736135775%_ + _%hd135773135812%_ '0)))) (begin - (let ((_g137964_ + (let ((_g138001_ (let () (declare (not safe)) - (if (##values? _g137963_) + (if (##values? _g138000_) (##vector-length - _g137963_) + _g138000_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137964_ 2))) + (##fx= _g138001_ 2))) (error "Context expects 2 values" - _g137964_))) - (let ((_%target135738135780%_ + _g138001_))) + (let ((_%target135775135817%_ (let () (declare (not safe)) - (##vector-ref _g137963_ 0))) - (_%tl135740135782%_ + (##vector-ref _g138000_ 0))) + (_%tl135777135819%_ (let () (declare (not safe)) (##vector-ref - _g137963_ + _g138000_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135740135782%_)) - (letrec ((_%loop135741135785%_ - (lambda (_%hd135739135788%_ + _%tl135777135819%_)) + (letrec ((_%loop135778135822%_ + (lambda (_%hd135776135825%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135745135790%_ - _%hd135746135792%_) + _%expr135782135827%_ + _%hd135783135829%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135739135788%_)) - (let ((_%e135742135795%_ + (gx#stx-pair? _%hd135776135825%_)) + (let ((_%e135779135832%_ (let () (declare (not safe)) - (gx#stx-e _%hd135739135788%_)))) - (let ((_%lp-hd135743135798%_ + (gx#stx-e _%hd135776135825%_)))) + (let ((_%lp-hd135780135835%_ (let () (declare (not safe)) - (##car _%e135742135795%_))) - (_%lp-tl135744135800%_ + (##car _%e135779135832%_))) + (_%lp-tl135781135837%_ (let () (declare (not safe)) - (##cdr _%e135742135795%_)))) + (##cdr _%e135779135832%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135743135798%_)) - (let ((_%e135749135803%_ + (gx#stx-pair? _%lp-hd135780135835%_)) + (let ((_%e135786135840%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135743135798%_)))) - (let ((_%hd135750135806%_ + (gx#stx-e _%lp-hd135780135835%_)))) + (let ((_%hd135787135843%_ (let () (declare (not safe)) - (##car _%e135749135803%_))) - (_%tl135751135808%_ + (##car _%e135786135840%_))) + (_%tl135788135845%_ (let () (declare (not safe)) - (##cdr _%e135749135803%_)))) + (##cdr _%e135786135840%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135751135808%_)) - (let ((_%e135752135811%_ + (gx#stx-pair? _%tl135788135845%_)) + (let ((_%e135789135848%_ (let () (declare (not safe)) (gx#stx-e - _%tl135751135808%_)))) - (let ((_%hd135753135814%_ + _%tl135788135845%_)))) + (let ((_%hd135790135851%_ (let () (declare (not safe)) - (##car _%e135752135811%_))) - (_%tl135754135816%_ + (##car _%e135789135848%_))) + (_%tl135791135853%_ (let () (declare (not safe)) - (##cdr _%e135752135811%_)))) + (##cdr _%e135789135848%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135754135816%_)) - (_%loop135741135785%_ - _%lp-tl135744135800%_ - (cons _%hd135753135814%_ - _%expr135745135790%_) - (cons _%hd135750135806%_ - _%hd135746135792%_)) - (_%g135726135759%_ - _%g135727135762%_)))) - (_%g135726135759%_ - _%g135727135762%_)))) - (_%g135726135759%_ _%g135727135762%_)))) - (let ((_%expr135747135819%_ - (reverse _%expr135745135790%_)) - (_%hd135748135821%_ - (reverse _%hd135746135792%_))) - ((lambda (_%L135824%_ - _%L135825%_ - _%L135826%_ - _%L135827%_) - (let ((__tmp137967 + _%tl135791135853%_)) + (_%loop135778135822%_ + _%lp-tl135781135837%_ + (cons _%hd135790135851%_ + _%expr135782135827%_) + (cons _%hd135787135843%_ + _%hd135783135829%_)) + (_%g135763135796%_ + _%g135764135799%_)))) + (_%g135763135796%_ + _%g135764135799%_)))) + (_%g135763135796%_ _%g135764135799%_)))) + (let ((_%expr135784135856%_ + (reverse _%expr135782135827%_)) + (_%hd135785135858%_ + (reverse _%hd135783135829%_))) + ((lambda (_%L135861%_ + _%L135862%_ + _%L135863%_ + _%L135864%_) + (let ((__tmp138004 (lambda () - (let* ((_%g135847135863%_ - (lambda (_%g135848135860%_) + (let* ((_%g135884135900%_ + (lambda (_%g135885135897%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135848135860%_)))) - (_%g135846135945%_ - (lambda (_%g135848135866%_) + _%g135885135897%_)))) + (_%g135883135982%_ + (lambda (_%g135885135903%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g135848135866%_)) - (let ((_g137968_ + _%g135885135903%_)) + (let ((_g138005_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g135848135866%_ + _%g135885135903%_ '0)))) (begin - (let ((_g137969_ + (let ((_g138006_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g137968_) - (##vector-length _g137968_) + (if (##values? _g138005_) + (##vector-length _g138005_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137969_ 2))) - (error "Context expects 2 values" _g137969_))) - (let ((_%target135850135868%_ + (if (not (let () (declare (not safe)) (##fx= _g138006_ 2))) + (error "Context expects 2 values" _g138006_))) + (let ((_%target135887135905%_ (let () (declare (not safe)) - (##vector-ref _g137968_ 0))) - (_%tl135852135870%_ + (##vector-ref _g138005_ 0))) + (_%tl135889135907%_ (let () (declare (not safe)) - (##vector-ref _g137968_ 1)))) + (##vector-ref _g138005_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135852135870%_)) - (letrec ((_%loop135853135873%_ - (lambda (_%hd135851135876%_ - _%expr135857135878%_) + (gx#stx-null? _%tl135889135907%_)) + (letrec ((_%loop135890135910%_ + (lambda (_%hd135888135913%_ + _%expr135894135915%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135851135876%_)) - (let ((_%e135854135881%_ + (gx#stx-pair? _%hd135888135913%_)) + (let ((_%e135891135918%_ (let () (declare (not safe)) (gx#syntax-e - _%hd135851135876%_)))) - (let ((_%lp-hd135855135884%_ + _%hd135888135913%_)))) + (let ((_%lp-hd135892135921%_ (let () (declare (not safe)) - (##car _%e135854135881%_))) - (_%lp-tl135856135886%_ + (##car _%e135891135918%_))) + (_%lp-tl135893135923%_ (let () (declare (not safe)) - (##cdr _%e135854135881%_)))) - (_%loop135853135873%_ - _%lp-tl135856135886%_ - (cons _%lp-hd135855135884%_ - _%expr135857135878%_)))) - (let ((_%expr135858135889%_ - (reverse _%expr135857135878%_))) - ((lambda (_%L135892%_) - (let* ((_%g135906135913%_ - (lambda (_%g135907135910%_) + (##cdr _%e135891135918%_)))) + (_%loop135890135910%_ + _%lp-tl135893135923%_ + (cons _%lp-hd135892135921%_ + _%expr135894135915%_)))) + (let ((_%expr135895135926%_ + (reverse _%expr135894135915%_))) + ((lambda (_%L135929%_) + (let* ((_%g135943135950%_ + (lambda (_%g135944135947%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135907135910%_)))) - (_%g135905135938%_ - (lambda (_%g135907135916%_) - ((lambda (_%L135918%_) + _%g135944135947%_)))) + (_%g135942135975%_ + (lambda (_%g135944135953%_) + ((lambda (_%L135955%_) (gxc#xform-wrap-source - (cons _%L135827%_ + (cons _%L135864%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L135892%_ - _%L135826%_)) - (let ((__tmp137970 - (lambda (_%g135927135931%_ - _%g135928135933%_ - _%g135929135935%_) - (cons (cons _%g135928135933%_ - (cons _%g135927135931%_ + _%L135929%_ + _%L135863%_)) + (let ((__tmp138007 + (lambda (_%g135964135968%_ + _%g135965135970%_ + _%g135966135972%_) + (cons (cons _%g135965135970%_ + (cons _%g135964135968%_ '())) - _%g135929135935%_)))) + _%g135966135972%_)))) (declare (not safe)) (__foldr2 - __tmp137970 + __tmp138007 '() - _%L135892%_ - _%L135826%_))) - _%L135918%_)) - _%stx135724%_)) - _%g135907135916%_)))) + _%L135929%_ + _%L135863%_))) + _%L135955%_)) + _%stx135761%_)) + _%g135944135953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135905135938%_ - (map (lambda (_%g135940135942%_) + (_%g135942135975%_ + (map (lambda (_%g135977135979%_) (gxc#compile-e__1 - _%self135723%_ - _%g135940135942%_)) - _%L135824%_)))) - _%expr135858135889%_)))))) - (_%loop135853135873%_ _%target135850135868%_ '())) - (_%g135847135863%_ _%g135848135866%_))))) + _%self135760%_ + _%g135977135979%_)) + _%L135861%_)))) + _%expr135895135926%_)))))) + (_%loop135890135910%_ _%target135887135905%_ '())) + (_%g135884135900%_ _%g135885135903%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135847135863%_ - _%g135848135866%_))))) - (_%g135846135945%_ - (map (lambda (_%g135947135949%_) + (_%g135884135900%_ + _%g135885135903%_))))) + (_%g135883135982%_ + (map (lambda (_%g135984135986%_) (gxc#compile-e__1 - _%self135723%_ - _%g135947135949%_)) - (let ((__tmp137971 - (lambda (_%g135951135954%_ - _%g135952135956%_) - (cons _%g135951135954%_ - _%g135952135956%_)))) + _%self135760%_ + _%g135984135986%_)) + (let ((__tmp138008 + (lambda (_%g135988135991%_ + _%g135989135993%_) + (cons _%g135988135991%_ + _%g135989135993%_)))) (declare (not safe)) (__foldr1 - __tmp137971 + __tmp138008 '() - _%L135825%_))))))) - (__tmp137965 + _%L135862%_))))))) + (__tmp138002 (gxc#xform-let-locals - (let ((__tmp137966 - (lambda (_%g135958135961%_ - _%g135959135963%_) - (cons _%g135958135961%_ - _%g135959135963%_)))) + (let ((__tmp138003 + (lambda (_%g135995135998%_ + _%g135996136000%_) + (cons _%g135995135998%_ + _%g135996136000%_)))) (declare (not safe)) (__foldr1 - __tmp137966 + __tmp138003 '() - _%L135826%_))))) + _%L135863%_))))) (declare (not safe)) (__call-with-parameters - __tmp137967 + __tmp138004 gxc#current-compile-local-env - __tmp137965))) - _%tl135737135777%_ - _%expr135747135819%_ - _%hd135748135821%_ - _%hd135733135767%_)))))) + __tmp138002))) + _%tl135774135814%_ + _%expr135784135856%_ + _%hd135785135858%_ + _%hd135770135804%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135741135785%_ - _%target135738135780%_ + (_%loop135778135822%_ + _%target135775135817%_ '() '())) - (_%g135726135759%_ - _%g135727135762%_))))) - (_%g135726135759%_ _%g135727135762%_)))) - (_%g135726135759%_ _%g135727135762%_)))) - (_%g135726135759%_ _%g135727135762%_))))) - (_%g135725135966%_ _%stx135724%_)))) + (_%g135763135796%_ + _%g135764135799%_))))) + (_%g135763135796%_ _%g135764135799%_)))) + (_%g135763135796%_ _%g135764135799%_)))) + (_%g135763135796%_ _%g135764135799%_))))) + (_%g135762136003%_ _%stx135761%_)))) (define gxc#xform-let-locals - (lambda (_%bindings135590%_) - (letrec ((_%flatten135592%_ - (lambda (_%maybe-lst135650%_) + (lambda (_%bindings135627%_) + (letrec ((_%flatten135629%_ + (lambda (_%maybe-lst135687%_) (if (let () (declare (not safe)) - (gx#identifier? _%maybe-lst135650%_)) - (cons _%maybe-lst135650%_ '()) - (let _%loop135652%_ ((_%rest135654%_ - _%maybe-lst135650%_) - (_%result135655%_ '())) - (let* ((_%__stx137859137860%_ _%rest135654%_) - (_%g135659135671%_ + (gx#identifier? _%maybe-lst135687%_)) + (cons _%maybe-lst135687%_ '()) + (let _%loop135689%_ ((_%rest135691%_ + _%maybe-lst135687%_) + (_%result135692%_ '())) + (let* ((_%__stx137896137897%_ _%rest135691%_) + (_%g135696135708%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx137859137860%_))))) - (let ((_%__kont137861137862%_ - (lambda (_%L135709%_ _%L135710%_) - (_%loop135652%_ - _%L135709%_ - (let ((__tmp137972 - (_%flatten135592%_ _%L135710%_))) + _%__stx137896137897%_))))) + (let ((_%__kont137898137899%_ + (lambda (_%L135746%_ _%L135747%_) + (_%loop135689%_ + _%L135746%_ + (let ((__tmp138009 + (_%flatten135629%_ _%L135747%_))) (declare (not safe)) (__foldl1 cons - _%result135655%_ - __tmp137972))))) - (_%__kont137863137864%_ - (lambda (_%L135683%_) - (cons _%L135683%_ _%result135655%_))) - (_%__kont137865137866%_ - (lambda () _%result135655%_))) - (let ((_%g135657135696%_ + _%result135692%_ + __tmp138009))))) + (_%__kont137900137901%_ + (lambda (_%L135720%_) + (cons _%L135720%_ _%result135692%_))) + (_%__kont137902137903%_ + (lambda () _%result135692%_))) + (let ((_%g135694135733%_ (lambda () - (let ((_%L135683%_ - _%__stx137859137860%_)) + (let ((_%L135720%_ + _%__stx137896137897%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L135683%_)) - (_%__kont137863137864%_ - _%L135683%_) - (_%__kont137865137866%_)))))) + (gx#identifier? _%L135720%_)) + (_%__kont137900137901%_ + _%L135720%_) + (_%__kont137902137903%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx137859137860%_)) - (let ((_%e135663135701%_ + (gx#stx-pair? _%__stx137896137897%_)) + (let ((_%e135700135738%_ (let () (declare (not safe)) (gx#stx-e - _%__stx137859137860%_)))) - (let ((_%tl135665135706%_ + _%__stx137896137897%_)))) + (let ((_%tl135702135743%_ (let () (declare (not safe)) - (##cdr _%e135663135701%_))) - (_%hd135664135704%_ + (##cdr _%e135700135738%_))) + (_%hd135701135741%_ (let () (declare (not safe)) - (##car _%e135663135701%_)))) - (_%__kont137861137862%_ - _%tl135665135706%_ - _%hd135664135704%_))) + (##car _%e135700135738%_)))) + (_%__kont137898137899%_ + _%tl135702135743%_ + _%hd135701135741%_))) (let () (declare (not safe)) - (_%g135657135696%_))))))))))) - (let _%loop135594%_ ((_%rest135596%_ - (_%flatten135592%_ _%bindings135590%_)) - (_%locals135597%_ + (_%g135694135733%_))))))))))) + (let _%loop135631%_ ((_%rest135633%_ + (_%flatten135629%_ _%bindings135627%_)) + (_%locals135634%_ (let () (declare (not safe)) (gxc#current-compile-local-env)))) - (let* ((_%rest135598135609%_ _%rest135596%_) - (_%E135602135613%_ + (let* ((_%rest135635135646%_ _%rest135633%_) + (_%E135639135650%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest135598135609%_ + _%rest135635135646%_ '([(? identifier? id) . rest]) '((? identifier? id)) '(_))) '#!void))) - (let ((_%K135605135638%_ - (lambda (_%rest135635%_ _%id135636%_) - (_%loop135594%_ - _%rest135635%_ + (let ((_%K135642135675%_ + (lambda (_%rest135672%_ _%id135673%_) + (_%loop135631%_ + _%rest135672%_ (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id135636%_)) - _%locals135597%_)))) - (_%K135604135627%_ - (lambda (_%id135625%_) + (gxc#identifier-symbol _%id135673%_)) + _%locals135634%_)))) + (_%K135641135664%_ + (lambda (_%id135662%_) (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id135625%_)) - _%locals135597%_))) - (_%K135603135618%_ (lambda () _%locals135597%_))) - (let ((_%try-match135600135632%_ + (gxc#identifier-symbol _%id135662%_)) + _%locals135634%_))) + (_%K135640135655%_ (lambda () _%locals135634%_))) + (let ((_%try-match135637135669%_ (lambda () (if (let () (declare (not safe)) - (gx#identifier? _%rest135598135609%_)) - (let ((_%id135630%_ _%rest135598135609%_)) - (_%K135604135627%_ _%id135630%_)) - (_%K135603135618%_))))) - (if (pair? _%rest135598135609%_) - (let ((_%tl135607135643%_ + (gx#identifier? _%rest135635135646%_)) + (let ((_%id135667%_ _%rest135635135646%_)) + (_%K135641135664%_ _%id135667%_)) + (_%K135640135655%_))))) + (if (pair? _%rest135635135646%_) + (let ((_%tl135644135680%_ (let () (declare (not safe)) - (##cdr _%rest135598135609%_))) - (_%hd135606135641%_ + (##cdr _%rest135635135646%_))) + (_%hd135643135678%_ (let () (declare (not safe)) - (##car _%rest135598135609%_)))) + (##car _%rest135635135646%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd135606135641%_)) - (let ((_%id135646%_ _%hd135606135641%_) - (_%rest135648%_ _%tl135607135643%_)) - (_%K135605135638%_ _%rest135648%_ _%id135646%_)) - (_%K135603135618%_))) - (_%try-match135600135632%_))))))))) + (gx#identifier? _%hd135643135678%_)) + (let ((_%id135683%_ _%hd135643135678%_) + (_%rest135685%_ _%tl135644135680%_)) + (_%K135642135675%_ _%rest135685%_ _%id135683%_)) + (_%K135640135655%_))) + (_%try-match135637135669%_))))))))) (define gxc#xform-operands - (lambda (_%self135542%_ _%stx135543%_) - (let* ((_%g135545135556%_ - (lambda (_%g135546135553%_) + (lambda (_%self135579%_ _%stx135580%_) + (let* ((_%g135582135593%_ + (lambda (_%g135583135590%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135546135553%_)))) - (_%g135544135587%_ - (lambda (_%g135546135559%_) + _%g135583135590%_)))) + (_%g135581135624%_ + (lambda (_%g135583135596%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135546135559%_)) - (let ((_%e135549135561%_ + (gx#stx-pair? _%g135583135596%_)) + (let ((_%e135586135598%_ (let () (declare (not safe)) - (gx#stx-e _%g135546135559%_)))) - (let ((_%hd135550135564%_ + (gx#stx-e _%g135583135596%_)))) + (let ((_%hd135587135601%_ (let () (declare (not safe)) - (##car _%e135549135561%_))) - (_%tl135551135566%_ + (##car _%e135586135598%_))) + (_%tl135588135603%_ (let () (declare (not safe)) - (##cdr _%e135549135561%_)))) - ((lambda (_%L135569%_ _%L135570%_) - (let ((_%rands135585%_ - (map (lambda (_%g135580135582%_) + (##cdr _%e135586135598%_)))) + ((lambda (_%L135606%_ _%L135607%_) + (let ((_%rands135622%_ + (map (lambda (_%g135617135619%_) (gxc#compile-e__1 - _%self135542%_ - _%g135580135582%_)) - _%L135569%_))) + _%self135579%_ + _%g135617135619%_)) + _%L135606%_))) (gxc#xform-wrap-source - (cons _%L135570%_ _%rands135585%_) - _%stx135543%_))) - _%tl135551135566%_ - _%hd135550135564%_))) - (_%g135545135556%_ _%g135546135559%_))))) - (_%g135544135587%_ _%stx135543%_)))) + (cons _%L135607%_ _%rands135622%_) + _%stx135580%_))) + _%tl135588135603%_ + _%hd135587135601%_))) + (_%g135582135593%_ _%g135583135596%_))))) + (_%g135581135624%_ _%stx135580%_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_%self135472%_ _%stx135473%_) - (let* ((_%g135475135492%_ - (lambda (_%g135476135489%_) + (lambda (_%self135509%_ _%stx135510%_) + (let* ((_%g135512135529%_ + (lambda (_%g135513135526%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135476135489%_)))) - (_%g135474135539%_ - (lambda (_%g135476135495%_) + _%g135513135526%_)))) + (_%g135511135576%_ + (lambda (_%g135513135532%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135476135495%_)) - (let ((_%e135479135497%_ + (gx#stx-pair? _%g135513135532%_)) + (let ((_%e135516135534%_ (let () (declare (not safe)) - (gx#stx-e _%g135476135495%_)))) - (let ((_%hd135480135500%_ + (gx#stx-e _%g135513135532%_)))) + (let ((_%hd135517135537%_ (let () (declare (not safe)) - (##car _%e135479135497%_))) - (_%tl135481135502%_ + (##car _%e135516135534%_))) + (_%tl135518135539%_ (let () (declare (not safe)) - (##cdr _%e135479135497%_)))) + (##cdr _%e135516135534%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135481135502%_)) - (let ((_%e135482135505%_ + (gx#stx-pair? _%tl135518135539%_)) + (let ((_%e135519135542%_ (let () (declare (not safe)) - (gx#stx-e _%tl135481135502%_)))) - (let ((_%hd135483135508%_ + (gx#stx-e _%tl135518135539%_)))) + (let ((_%hd135520135545%_ (let () (declare (not safe)) - (##car _%e135482135505%_))) - (_%tl135484135510%_ + (##car _%e135519135542%_))) + (_%tl135521135547%_ (let () (declare (not safe)) - (##cdr _%e135482135505%_)))) + (##cdr _%e135519135542%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135484135510%_)) - (let ((_%e135485135513%_ + (gx#stx-pair? _%tl135521135547%_)) + (let ((_%e135522135550%_ (let () (declare (not safe)) - (gx#stx-e _%tl135484135510%_)))) - (let ((_%hd135486135516%_ + (gx#stx-e _%tl135521135547%_)))) + (let ((_%hd135523135553%_ (let () (declare (not safe)) - (##car _%e135485135513%_))) - (_%tl135487135518%_ + (##car _%e135522135550%_))) + (_%tl135524135555%_ (let () (declare (not safe)) - (##cdr _%e135485135513%_)))) + (##cdr _%e135522135550%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135487135518%_)) - ((lambda (_%L135521%_ - _%L135522%_) - (let ((_%expr135537%_ + _%tl135524135555%_)) + ((lambda (_%L135558%_ + _%L135559%_) + (let ((_%expr135574%_ (gxc#compile-e__1 - _%self135472%_ - _%L135521%_))) + _%self135509%_ + _%L135558%_))) (gxc#xform-wrap-source (cons '%#set! - (cons _%L135522%_ - (cons _%expr135537%_ + (cons _%L135559%_ + (cons _%expr135574%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx135473%_))) - _%hd135486135516%_ - _%hd135483135508%_) - (_%g135475135492%_ - _%g135476135495%_)))) - (_%g135475135492%_ _%g135476135495%_)))) - (_%g135475135492%_ _%g135476135495%_)))) - (_%g135475135492%_ _%g135476135495%_))))) - (_%g135474135539%_ _%stx135473%_)))))) + _%stx135510%_))) + _%hd135523135553%_ + _%hd135520135545%_) + (_%g135512135529%_ + _%g135513135532%_)))) + (_%g135512135529%_ _%g135513135532%_)))) + (_%g135512135529%_ _%g135513135532%_)))) + (_%g135512135529%_ _%g135513135532%_))))) + (_%g135511135576%_ _%stx135510%_)))))) diff --git a/src/bootstrap/gerbil/compiler/method~1.scm b/src/bootstrap/gerbil/compiler/method~1.scm index bd0c444de..09cbf88be 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]#_g138000_| + (define |gxc[1]#_g138037_| (##structure gx#syntax-quote::t '::void-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138002_| + (define |gxc[1]#_g138039_| (##structure gx#syntax-quote::t 'make-::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138004_| + (define |gxc[1]#_g138041_| (##structure gx#syntax-quote::t '::void-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138006_| + (define |gxc[1]#_g138043_| (##structure gx#syntax-quote::t '::void-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138008_| + (define |gxc[1]#_g138045_| (##structure gx#syntax-quote::t 'make-::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138010_| + (define |gxc[1]#_g138047_| (##structure gx#syntax-quote::t '::void-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138012_| + (define |gxc[1]#_g138049_| (##structure gx#syntax-quote::t '::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138013_| + (define |gxc[1]#_g138050_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138015_| + (define |gxc[1]#_g138052_| (##structure gx#syntax-quote::t '::void::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138017_| + (define |gxc[1]#_g138054_| (##structure gx#syntax-quote::t 'make-::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138019_| + (define |gxc[1]#_g138056_| (##structure gx#syntax-quote::t '::void? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138021_| + (define |gxc[1]#_g138058_| (##structure gx#syntax-quote::t '::false-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138023_| + (define |gxc[1]#_g138060_| (##structure gx#syntax-quote::t 'make-::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138025_| + (define |gxc[1]#_g138062_| (##structure gx#syntax-quote::t '::false-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138027_| + (define |gxc[1]#_g138064_| (##structure gx#syntax-quote::t '::false-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138029_| + (define |gxc[1]#_g138066_| (##structure gx#syntax-quote::t 'make-::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138031_| + (define |gxc[1]#_g138068_| (##structure gx#syntax-quote::t '::false-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138033_| + (define |gxc[1]#_g138070_| (##structure gx#syntax-quote::t '::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138034_| + (define |gxc[1]#_g138071_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138036_| + (define |gxc[1]#_g138073_| (##structure gx#syntax-quote::t '::false::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138038_| + (define |gxc[1]#_g138075_| (##structure gx#syntax-quote::t 'make-::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138040_| + (define |gxc[1]#_g138077_| (##structure gx#syntax-quote::t '::false? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138042_| + (define |gxc[1]#_g138079_| (##structure gx#syntax-quote::t '::identity-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138044_| + (define |gxc[1]#_g138081_| (##structure gx#syntax-quote::t 'make-::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138046_| + (define |gxc[1]#_g138083_| (##structure gx#syntax-quote::t '::identity-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138048_| + (define |gxc[1]#_g138085_| (##structure gx#syntax-quote::t '::identity-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138050_| + (define |gxc[1]#_g138087_| (##structure gx#syntax-quote::t 'make-::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138052_| + (define |gxc[1]#_g138089_| (##structure gx#syntax-quote::t '::identity-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138054_| + (define |gxc[1]#_g138091_| (##structure gx#syntax-quote::t '::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138055_| + (define |gxc[1]#_g138092_| (##structure gx#syntax-quote::t '::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138057_| + (define |gxc[1]#_g138094_| (##structure gx#syntax-quote::t '::identity::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138059_| + (define |gxc[1]#_g138096_| (##structure gx#syntax-quote::t 'make-::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138061_| + (define |gxc[1]#_g138098_| (##structure gx#syntax-quote::t '::identity? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138063_| + (define |gxc[1]#_g138100_| (##structure gx#syntax-quote::t '::basic-xform-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138065_| + (define |gxc[1]#_g138102_| (##structure gx#syntax-quote::t 'make-::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138067_| + (define |gxc[1]#_g138104_| (##structure gx#syntax-quote::t '::basic-xform-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138069_| + (define |gxc[1]#_g138106_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138070_| + (define |gxc[1]#_g138107_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138072_| + (define |gxc[1]#_g138109_| (##structure gx#syntax-quote::t '::basic-xform::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138074_| + (define |gxc[1]#_g138111_| (##structure gx#syntax-quote::t 'make-::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138076_| + (define |gxc[1]#_g138113_| (##structure gx#syntax-quote::t '::basic-xform? @@ -289,161 +289,161 @@ '())) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_%stx134014%_) - (let* ((_%__stx137715137716%_ _%stx134014%_) - (_%g134020134214%_ + (lambda (_%stx134051%_) + (let* ((_%__stx137752137753%_ _%stx134051%_) + (_%g134057134251%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx137715137716%_))))) - (let ((_%__kont137718137719%_ - (lambda (_%L135434%_ _%L135436%_ _%L135437%_ _%L135438%_) + _%__stx137752137753%_))))) + (let ((_%__kont137755137756%_ + (lambda (_%L135471%_ _%L135473%_ _%L135474%_ _%L135475%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defcompile-method)) - (cons _%L135438%_ - (cons (cons _%L135437%_ '()) - (cons _%L135436%_ _%L135434%_)))))) - (_%__kont137720137721%_ - (lambda (_%L135188%_ - _%L135190%_ - _%L135191%_ - _%L135192%_ - _%L135193%_) - (let* ((_%g135224135252%_ - (lambda (_%g135225135248%_) + (cons _%L135475%_ + (cons (cons _%L135474%_ '()) + (cons _%L135473%_ _%L135471%_)))))) + (_%__kont137757137758%_ + (lambda (_%L135225%_ + _%L135227%_ + _%L135228%_ + _%L135229%_ + _%L135230%_) + (let* ((_%g135261135289%_ + (lambda (_%g135262135285%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135225135248%_)))) - (_%g135223135372%_ - (lambda (_%g135225135256%_) + _%g135262135285%_)))) + (_%g135260135409%_ + (lambda (_%g135262135293%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135225135256%_)) - (let ((_%e135229135259%_ + (gx#stx-pair? _%g135262135293%_)) + (let ((_%e135266135296%_ (let () (declare (not safe)) - (gx#syntax-e _%g135225135256%_)))) - (let ((_%hd135230135263%_ + (gx#syntax-e _%g135262135293%_)))) + (let ((_%hd135267135300%_ (let () (declare (not safe)) - (##car _%e135229135259%_))) - (_%tl135231135266%_ + (##car _%e135266135296%_))) + (_%tl135268135303%_ (let () (declare (not safe)) - (##cdr _%e135229135259%_)))) + (##cdr _%e135266135296%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135231135266%_)) - (let ((_%e135232135269%_ + (gx#stx-pair? _%tl135268135303%_)) + (let ((_%e135269135306%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135231135266%_)))) - (let ((_%hd135233135273%_ + _%tl135268135303%_)))) + (let ((_%hd135270135310%_ (let () (declare (not safe)) - (##car _%e135232135269%_))) - (_%tl135234135276%_ + (##car _%e135269135306%_))) + (_%tl135271135313%_ (let () (declare (not safe)) - (##cdr _%e135232135269%_)))) + (##cdr _%e135269135306%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd135233135273%_)) - (let ((_g137973_ + _%hd135270135310%_)) + (let ((_g138010_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135233135273%_ + _%hd135270135310%_ '0)))) (begin - (let ((_g137974_ + (let ((_g138011_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137973_) - (##vector-length _g137973_) + _g138010_) + (##vector-length _g138010_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137974_ 2))) - (error "Context expects 2 values" _g137974_))) + (if (not (let () (declare (not safe)) (##fx= _g138011_ 2))) + (error "Context expects 2 values" _g138011_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target135235135279%_ + (let ((_%target135272135316%_ (let () (declare (not safe)) (##vector-ref - _g137973_ + _g138010_ 0))) - (_%tl135237135282%_ + (_%tl135274135319%_ (let () (declare (not safe)) (##vector-ref - _g137973_ + _g138010_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135237135282%_)) - (letrec ((_%loop135238135285%_ + _%tl135274135319%_)) + (letrec ((_%loop135275135322%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd135236135289%_ - _%super-bind-methods!135242135292%_) + (lambda (_%hd135273135326%_ + _%super-bind-methods!135279135329%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135236135289%_)) - (let ((_%e135239135295%_ + (gx#stx-pair? _%hd135273135326%_)) + (let ((_%e135276135332%_ (let () (declare (not safe)) - (gx#syntax-e _%hd135236135289%_)))) - (let ((_%lp-hd135240135299%_ + (gx#syntax-e _%hd135273135326%_)))) + (let ((_%lp-hd135277135336%_ (let () (declare (not safe)) - (##car _%e135239135295%_))) - (_%lp-tl135241135302%_ + (##car _%e135276135332%_))) + (_%lp-tl135278135339%_ (let () (declare (not safe)) - (##cdr _%e135239135295%_)))) - (_%loop135238135285%_ - _%lp-tl135241135302%_ - (cons _%lp-hd135240135299%_ - _%super-bind-methods!135242135292%_)))) - (let ((_%super-bind-methods!135243135305%_ - (reverse _%super-bind-methods!135242135292%_))) + (##cdr _%e135276135332%_)))) + (_%loop135275135322%_ + _%lp-tl135278135339%_ + (cons _%lp-hd135277135336%_ + _%super-bind-methods!135279135329%_)))) + (let ((_%super-bind-methods!135280135342%_ + (reverse _%super-bind-methods!135279135329%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135234135276%_)) - (let ((_%e135244135309%_ + (gx#stx-pair? _%tl135271135313%_)) + (let ((_%e135281135346%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135234135276%_)))) - (let ((_%hd135245135313%_ + _%tl135271135313%_)))) + (let ((_%hd135282135350%_ (let () (declare (not safe)) - (##car _%e135244135309%_))) - (_%tl135246135316%_ + (##car _%e135281135346%_))) + (_%tl135283135353%_ (let () (declare (not safe)) - (##cdr _%e135244135309%_)))) + (##cdr _%e135281135346%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135246135316%_)) - ((lambda (_%L135319%_ - _%L135321%_ - _%L135322%_) + _%tl135283135353%_)) + ((lambda (_%L135356%_ + _%L135358%_ + _%L135359%_) (cons (let () (declare (not safe)) @@ -454,22 +454,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L135193%_ - (let ((__tmp137975 - (lambda (_%g135349135352%_ - _%g135350135355%_) - (cons _%g135349135352%_ - _%g135350135355%_)))) + (cons (cons _%L135230%_ + (let ((__tmp138012 + (lambda (_%g135386135389%_ + _%g135387135392%_) + (cons _%g135386135389%_ + _%g135387135392%_)))) (declare (not safe)) (__foldr1 - __tmp137975 + __tmp138012 '() - _%L135192%_))) - (cons _%L135191%_ '()))) + _%L135229%_))) + (cons _%L135228%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L135322%_ + (cons _%L135359%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -479,234 +479,234 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp137978 - (lambda (_%g135344135358%_ _%g135345135361%_) + (let ((__tmp138015 + (lambda (_%g135381135395%_ _%g135382135398%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g135344135358%_ '())) - _%g135345135361%_))) - (__tmp137976 + (cons _%g135381135395%_ '())) + _%g135382135398%_))) + (__tmp138013 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L135188%_ - _%L135190%_)) - (let ((__tmp137977 - (lambda (_%g135346135364%_ - _%g135347135367%_ - _%g135348135369%_) + _%L135225%_ + _%L135227%_)) + (let ((__tmp138014 + (lambda (_%g135383135401%_ + _%g135384135404%_ + _%g135385135406%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L135319%_ + (cons _%L135356%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g135347135367%_ '())) - (cons _%g135346135364%_ '())))) + (cons _%g135384135404%_ '())) + (cons _%g135383135401%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g135348135369%_)))) + _%g135385135406%_)))) (declare (not safe)) (__foldr2 - __tmp137977 + __tmp138014 '() - _%L135188%_ - _%L135190%_))))) + _%L135225%_ + _%L135227%_))))) (declare (not safe)) - (__foldr1 __tmp137978 __tmp137976 _%L135321%_))) + (__foldr1 __tmp138015 __tmp138013 _%L135358%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd135245135313%_ - _%super-bind-methods!135243135305%_ - _%hd135230135263%_) - (_%g135224135252%_ - _%g135225135256%_)))) - (_%g135224135252%_ - _%g135225135256%_))))))) - (_%loop135238135285%_ _%target135235135279%_ '())) - (_%g135224135252%_ _%g135225135256%_))))) + _%hd135282135350%_ + _%super-bind-methods!135280135342%_ + _%hd135267135300%_) + (_%g135261135289%_ + _%g135262135293%_)))) + (_%g135261135289%_ + _%g135262135293%_))))))) + (_%loop135275135322%_ _%target135272135316%_ '())) + (_%g135261135289%_ _%g135262135293%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135224135252%_ - _%g135225135256%_)))) - (_%g135224135252%_ - _%g135225135256%_)))) - (_%g135224135252%_ _%g135225135256%_))))) - (_%g135223135372%_ + (_%g135261135289%_ + _%g135262135293%_)))) + (_%g135261135289%_ + _%g135262135293%_)))) + (_%g135261135289%_ _%g135262135293%_))))) + (_%g135260135409%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L135193%_ - _%L135193%_ + _%L135230%_ + _%L135230%_ '"-bind-methods!")) - (map (lambda (_%super135376%_) + (map (lambda (_%super135413%_) (let () (declare (not safe)) (gx#stx-identifier - _%super135376%_ - _%super135376%_ + _%super135413%_ + _%super135413%_ '"-bind-methods!"))) - (let ((__tmp137979 - (lambda (_%g135378135381%_ - _%g135379135384%_) - (cons _%g135378135381%_ - _%g135379135384%_)))) + (let ((__tmp138016 + (lambda (_%g135415135418%_ + _%g135416135421%_) + (cons _%g135415135418%_ + _%g135416135421%_)))) (declare (not safe)) - (__foldr1 __tmp137979 '() _%L135192%_))) + (__foldr1 __tmp138016 '() _%L135229%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L135193%_ - _%L135193%_ + _%L135230%_ + _%L135230%_ '"::t"))))))) - (_%__kont137726137727%_ - (lambda (_%L134819%_ - _%L134821%_ - _%L134822%_ - _%L134823%_ - _%L134824%_ - _%L134825%_ - _%L134826%_) - (let* ((_%g134864134892%_ - (lambda (_%g134865134888%_) + (_%__kont137763137764%_ + (lambda (_%L134856%_ + _%L134858%_ + _%L134859%_ + _%L134860%_ + _%L134861%_ + _%L134862%_ + _%L134863%_) + (let* ((_%g134901134929%_ + (lambda (_%g134902134925%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134865134888%_)))) - (_%g134863135028%_ - (lambda (_%g134865134896%_) + _%g134902134925%_)))) + (_%g134900135065%_ + (lambda (_%g134902134933%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134865134896%_)) - (let ((_%e134869134899%_ + (gx#stx-pair? _%g134902134933%_)) + (let ((_%e134906134936%_ (let () (declare (not safe)) - (gx#syntax-e _%g134865134896%_)))) - (let ((_%hd134870134903%_ + (gx#syntax-e _%g134902134933%_)))) + (let ((_%hd134907134940%_ (let () (declare (not safe)) - (##car _%e134869134899%_))) - (_%tl134871134906%_ + (##car _%e134906134936%_))) + (_%tl134908134943%_ (let () (declare (not safe)) - (##cdr _%e134869134899%_)))) + (##cdr _%e134906134936%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134871134906%_)) - (let ((_%e134872134909%_ + (gx#stx-pair? _%tl134908134943%_)) + (let ((_%e134909134946%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134871134906%_)))) - (let ((_%hd134873134913%_ + _%tl134908134943%_)))) + (let ((_%hd134910134950%_ (let () (declare (not safe)) - (##car _%e134872134909%_))) - (_%tl134874134916%_ + (##car _%e134909134946%_))) + (_%tl134911134953%_ (let () (declare (not safe)) - (##cdr _%e134872134909%_)))) + (##cdr _%e134909134946%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd134873134913%_)) - (let ((_g137980_ + _%hd134910134950%_)) + (let ((_g138017_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134873134913%_ + _%hd134910134950%_ '0)))) (begin - (let ((_g137981_ + (let ((_g138018_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137980_) - (##vector-length _g137980_) + _g138017_) + (##vector-length _g138017_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137981_ 2))) - (error "Context expects 2 values" _g137981_))) + (if (not (let () (declare (not safe)) (##fx= _g138018_ 2))) + (error "Context expects 2 values" _g138018_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target134875134919%_ + (let ((_%target134912134956%_ (let () (declare (not safe)) (##vector-ref - _g137980_ + _g138017_ 0))) - (_%tl134877134922%_ + (_%tl134914134959%_ (let () (declare (not safe)) (##vector-ref - _g137980_ + _g138017_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134877134922%_)) - (letrec ((_%loop134878134925%_ + _%tl134914134959%_)) + (letrec ((_%loop134915134962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd134876134929%_ - _%super-bind-methods!134882134932%_) + (lambda (_%hd134913134966%_ + _%super-bind-methods!134919134969%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134876134929%_)) - (let ((_%e134879134935%_ + (gx#stx-pair? _%hd134913134966%_)) + (let ((_%e134916134972%_ (let () (declare (not safe)) - (gx#syntax-e _%hd134876134929%_)))) - (let ((_%lp-hd134880134939%_ + (gx#syntax-e _%hd134913134966%_)))) + (let ((_%lp-hd134917134976%_ (let () (declare (not safe)) - (##car _%e134879134935%_))) - (_%lp-tl134881134942%_ + (##car _%e134916134972%_))) + (_%lp-tl134918134979%_ (let () (declare (not safe)) - (##cdr _%e134879134935%_)))) - (_%loop134878134925%_ - _%lp-tl134881134942%_ - (cons _%lp-hd134880134939%_ - _%super-bind-methods!134882134932%_)))) - (let ((_%super-bind-methods!134883134945%_ - (reverse _%super-bind-methods!134882134932%_))) + (##cdr _%e134916134972%_)))) + (_%loop134915134962%_ + _%lp-tl134918134979%_ + (cons _%lp-hd134917134976%_ + _%super-bind-methods!134919134969%_)))) + (let ((_%super-bind-methods!134920134982%_ + (reverse _%super-bind-methods!134919134969%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134874134916%_)) - (let ((_%e134884134949%_ + (gx#stx-pair? _%tl134911134953%_)) + (let ((_%e134921134986%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134874134916%_)))) - (let ((_%hd134885134953%_ + _%tl134911134953%_)))) + (let ((_%hd134922134990%_ (let () (declare (not safe)) - (##car _%e134884134949%_))) - (_%tl134886134956%_ + (##car _%e134921134986%_))) + (_%tl134923134993%_ (let () (declare (not safe)) - (##cdr _%e134884134949%_)))) + (##cdr _%e134921134986%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134886134956%_)) - ((lambda (_%L134959%_ - _%L134961%_ - _%L134962%_) + _%tl134923134993%_)) + ((lambda (_%L134996%_ + _%L134998%_ + _%L134999%_) (cons (let () (declare (not safe)) @@ -717,22 +717,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L134824%_ - (let ((__tmp137982 - (lambda (_%g134993134996%_ - _%g134994134999%_) - (cons _%g134993134996%_ - _%g134994134999%_)))) + (cons (cons _%L134861%_ + (let ((__tmp138019 + (lambda (_%g135030135033%_ + _%g135031135036%_) + (cons _%g135030135033%_ + _%g135031135036%_)))) (declare (not safe)) (__foldr1 - __tmp137982 + __tmp138019 '() - _%L134823%_))) - (cons _%L134822%_ '()))) + _%L134860%_))) + (cons _%L134859%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L134962%_ + (cons _%L134999%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -742,67 +742,67 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp137985 - (lambda (_%g134988135002%_ _%g134989135005%_) + (let ((__tmp138022 + (lambda (_%g135025135039%_ _%g135026135042%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g134988135002%_ '())) - _%g134989135005%_))) - (__tmp137983 + (cons _%g135025135039%_ '())) + _%g135026135042%_))) + (__tmp138020 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134819%_ - _%L134821%_)) - (let ((__tmp137984 - (lambda (_%g134990135008%_ - _%g134991135011%_ - _%g134992135013%_) + _%L134856%_ + _%L134858%_)) + (let ((__tmp138021 + (lambda (_%g135027135045%_ + _%g135028135048%_ + _%g135029135050%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L134959%_ + (cons _%L134996%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g134991135011%_ '())) - (cons _%g134990135008%_ '())))) + (cons _%g135028135048%_ '())) + (cons _%g135027135045%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g134992135013%_)))) + _%g135029135050%_)))) (declare (not safe)) (__foldr2 - __tmp137984 + __tmp138021 '() - _%L134819%_ - _%L134821%_))))) + _%L134856%_ + _%L134858%_))))) (declare (not safe)) - (__foldr1 __tmp137985 __tmp137983 _%L134961%_))) + (__foldr1 __tmp138022 __tmp138020 _%L134998%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L134826%_ + (cons (cons _%L134863%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp137986 + (let ((__tmp138023 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g134986135016%_ _%g134987135019%_) - (cons _%g134986135016%_ _%g134987135019%_)))) + (lambda (_%g135023135053%_ _%g135024135056%_) + (cons _%g135023135053%_ _%g135024135056%_)))) (declare (not safe)) - (__foldr1 __tmp137986 '() _%L134825%_)))) + (__foldr1 __tmp138023 '() _%L134862%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -810,7 +810,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L134962%_ + (cons _%L134999%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -819,18 +819,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L134824%_ - (let ((__tmp137987 - (lambda (_%g134984135022%_ + (cons (cons _%L134861%_ + (let ((__tmp138024 + (lambda (_%g135021135059%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g134985135025%_) - (cons _%g134984135022%_ _%g134985135025%_)))) + _%g135022135062%_) + (cons _%g135021135059%_ _%g135022135062%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp137987 + __tmp138024 '() - _%L134825%_))) + _%L134862%_))) '())) (cons (cons (let () (declare (not safe)) @@ -867,187 +867,187 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd134885134953%_ - _%super-bind-methods!134883134945%_ - _%hd134870134903%_) - (_%g134864134892%_ - _%g134865134896%_)))) - (_%g134864134892%_ - _%g134865134896%_))))))) - (_%loop134878134925%_ _%target134875134919%_ '())) - (_%g134864134892%_ _%g134865134896%_))))) + _%hd134922134990%_ + _%super-bind-methods!134920134982%_ + _%hd134907134940%_) + (_%g134901134929%_ + _%g134902134933%_)))) + (_%g134901134929%_ + _%g134902134933%_))))))) + (_%loop134915134962%_ _%target134912134956%_ '())) + (_%g134901134929%_ _%g134902134933%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134864134892%_ - _%g134865134896%_)))) - (_%g134864134892%_ - _%g134865134896%_)))) - (_%g134864134892%_ _%g134865134896%_))))) - (_%g134863135028%_ + (_%g134901134929%_ + _%g134902134933%_)))) + (_%g134901134929%_ + _%g134902134933%_)))) + (_%g134901134929%_ _%g134902134933%_))))) + (_%g134900135065%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L134824%_ - _%L134824%_ + _%L134861%_ + _%L134861%_ '"-bind-methods!")) - (map (lambda (_%super135032%_) + (map (lambda (_%super135069%_) (let () (declare (not safe)) (gx#stx-identifier - _%super135032%_ - _%super135032%_ + _%super135069%_ + _%super135069%_ '"-bind-methods!"))) - (let ((__tmp137988 - (lambda (_%g135034135037%_ - _%g135035135040%_) - (cons _%g135034135037%_ - _%g135035135040%_)))) + (let ((__tmp138025 + (lambda (_%g135071135074%_ + _%g135072135077%_) + (cons _%g135071135074%_ + _%g135072135077%_)))) (declare (not safe)) - (__foldr1 __tmp137988 '() _%L134823%_))) + (__foldr1 __tmp138025 '() _%L134860%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L134824%_ - _%L134824%_ + _%L134861%_ + _%L134861%_ '"::t"))))))) - (_%__kont137734137735%_ - (lambda (_%L134409%_ - _%L134411%_ - _%L134412%_ - _%L134413%_ - _%L134414%_ - _%L134415%_ - _%L134416%_) - (let* ((_%g134459134487%_ - (lambda (_%g134460134483%_) + (_%__kont137771137772%_ + (lambda (_%L134446%_ + _%L134448%_ + _%L134449%_ + _%L134450%_ + _%L134451%_ + _%L134452%_ + _%L134453%_) + (let* ((_%g134496134524%_ + (lambda (_%g134497134520%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134460134483%_)))) - (_%g134458134623%_ - (lambda (_%g134460134491%_) + _%g134497134520%_)))) + (_%g134495134660%_ + (lambda (_%g134497134528%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134460134491%_)) - (let ((_%e134464134494%_ + (gx#stx-pair? _%g134497134528%_)) + (let ((_%e134501134531%_ (let () (declare (not safe)) - (gx#syntax-e _%g134460134491%_)))) - (let ((_%hd134465134498%_ + (gx#syntax-e _%g134497134528%_)))) + (let ((_%hd134502134535%_ (let () (declare (not safe)) - (##car _%e134464134494%_))) - (_%tl134466134501%_ + (##car _%e134501134531%_))) + (_%tl134503134538%_ (let () (declare (not safe)) - (##cdr _%e134464134494%_)))) + (##cdr _%e134501134531%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134466134501%_)) - (let ((_%e134467134504%_ + (gx#stx-pair? _%tl134503134538%_)) + (let ((_%e134504134541%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134466134501%_)))) - (let ((_%hd134468134508%_ + _%tl134503134538%_)))) + (let ((_%hd134505134545%_ (let () (declare (not safe)) - (##car _%e134467134504%_))) - (_%tl134469134511%_ + (##car _%e134504134541%_))) + (_%tl134506134548%_ (let () (declare (not safe)) - (##cdr _%e134467134504%_)))) + (##cdr _%e134504134541%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd134468134508%_)) - (let ((_g137989_ + _%hd134505134545%_)) + (let ((_g138026_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134468134508%_ + _%hd134505134545%_ '0)))) (begin - (let ((_g137990_ + (let ((_g138027_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g137989_) - (##vector-length _g137989_) + _g138026_) + (##vector-length _g138026_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g137990_ 2))) - (error "Context expects 2 values" _g137990_))) + (if (not (let () (declare (not safe)) (##fx= _g138027_ 2))) + (error "Context expects 2 values" _g138027_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target134470134514%_ + (let ((_%target134507134551%_ (let () (declare (not safe)) (##vector-ref - _g137989_ + _g138026_ 0))) - (_%tl134472134517%_ + (_%tl134509134554%_ (let () (declare (not safe)) (##vector-ref - _g137989_ + _g138026_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134472134517%_)) - (letrec ((_%loop134473134520%_ + _%tl134509134554%_)) + (letrec ((_%loop134510134557%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd134471134524%_ - _%super-bind-methods!134477134527%_) + (lambda (_%hd134508134561%_ + _%super-bind-methods!134514134564%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134471134524%_)) - (let ((_%e134474134530%_ + (gx#stx-pair? _%hd134508134561%_)) + (let ((_%e134511134567%_ (let () (declare (not safe)) - (gx#syntax-e _%hd134471134524%_)))) - (let ((_%lp-hd134475134534%_ + (gx#syntax-e _%hd134508134561%_)))) + (let ((_%lp-hd134512134571%_ (let () (declare (not safe)) - (##car _%e134474134530%_))) - (_%lp-tl134476134537%_ + (##car _%e134511134567%_))) + (_%lp-tl134513134574%_ (let () (declare (not safe)) - (##cdr _%e134474134530%_)))) - (_%loop134473134520%_ - _%lp-tl134476134537%_ - (cons _%lp-hd134475134534%_ - _%super-bind-methods!134477134527%_)))) - (let ((_%super-bind-methods!134478134540%_ - (reverse _%super-bind-methods!134477134527%_))) + (##cdr _%e134511134567%_)))) + (_%loop134510134557%_ + _%lp-tl134513134574%_ + (cons _%lp-hd134512134571%_ + _%super-bind-methods!134514134564%_)))) + (let ((_%super-bind-methods!134515134577%_ + (reverse _%super-bind-methods!134514134564%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134469134511%_)) - (let ((_%e134479134544%_ + (gx#stx-pair? _%tl134506134548%_)) + (let ((_%e134516134581%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134469134511%_)))) - (let ((_%hd134480134548%_ + _%tl134506134548%_)))) + (let ((_%hd134517134585%_ (let () (declare (not safe)) - (##car _%e134479134544%_))) - (_%tl134481134551%_ + (##car _%e134516134581%_))) + (_%tl134518134588%_ (let () (declare (not safe)) - (##cdr _%e134479134544%_)))) + (##cdr _%e134516134581%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134481134551%_)) - ((lambda (_%L134554%_ - _%L134556%_ - _%L134557%_) + _%tl134518134588%_)) + ((lambda (_%L134591%_ + _%L134593%_ + _%L134594%_) (cons (let () (declare (not safe)) @@ -1058,23 +1058,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L134414%_ - (let ((__tmp137991 - (lambda (_%g134588134591%_ - _%g134589134594%_) - (cons _%g134588134591%_ - _%g134589134594%_)))) + (cons (cons _%L134451%_ + (let ((__tmp138028 + (lambda (_%g134625134628%_ + _%g134626134631%_) + (cons _%g134625134628%_ + _%g134626134631%_)))) (declare (not safe)) (__foldr1 - __tmp137991 + __tmp138028 '() - _%L134413%_))) - (cons _%L134412%_ + _%L134450%_))) + (cons _%L134449%_ (cons 'final: (cons '#t '()))))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L134557%_ + (cons _%L134594%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1084,75 +1084,75 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp137995 - (lambda (_%g134583134597%_ _%g134584134600%_) + (let ((__tmp138032 + (lambda (_%g134620134634%_ _%g134621134637%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g134583134597%_ '())) - _%g134584134600%_))) - (__tmp137992 + (cons _%g134620134634%_ '())) + _%g134621134637%_))) + (__tmp138029 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134409%_ - _%L134411%_)) - (let ((__tmp137994 - (lambda (_%g134585134603%_ - _%g134586134606%_ - _%g134587134608%_) + _%L134446%_ + _%L134448%_)) + (let ((__tmp138031 + (lambda (_%g134622134640%_ + _%g134623134643%_ + _%g134624134645%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L134554%_ + (cons _%L134591%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g134586134606%_ '())) - (cons _%g134585134603%_ '())))) + (cons _%g134623134643%_ '())) + (cons _%g134622134640%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g134587134608%_))) - (__tmp137993 + _%g134624134645%_))) + (__tmp138030 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'seal-class!)) - (cons _%L134554%_ '())) + (cons _%L134591%_ '())) '()))) (declare (not safe)) (__foldr2 - __tmp137994 - __tmp137993 - _%L134409%_ - _%L134411%_))))) + __tmp138031 + __tmp138030 + _%L134446%_ + _%L134448%_))))) (declare (not safe)) - (__foldr1 __tmp137995 __tmp137992 _%L134556%_))) + (__foldr1 __tmp138032 __tmp138029 _%L134593%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L134416%_ + (cons (cons _%L134453%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp137996 + (let ((__tmp138033 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g134581134611%_ _%g134582134614%_) - (cons _%g134581134611%_ _%g134582134614%_)))) + (lambda (_%g134618134648%_ _%g134619134651%_) + (cons _%g134618134648%_ _%g134619134651%_)))) (declare (not safe)) - (__foldr1 __tmp137996 '() _%L134415%_)))) + (__foldr1 __tmp138033 '() _%L134452%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -1160,7 +1160,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L134557%_ + (cons _%L134594%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -1169,18 +1169,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L134414%_ - (let ((__tmp137997 - (lambda (_%g134579134617%_ + (cons (cons _%L134451%_ + (let ((__tmp138034 + (lambda (_%g134616134654%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g134580134620%_) - (cons _%g134579134617%_ _%g134580134620%_)))) + _%g134617134657%_) + (cons _%g134616134654%_ _%g134617134657%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp137997 + __tmp138034 '() - _%L134415%_))) + _%L134452%_))) '())) (cons (cons (let () (declare (not safe)) @@ -1217,1364 +1217,1364 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd134480134548%_ - _%super-bind-methods!134478134540%_ - _%hd134465134498%_) - (_%g134459134487%_ - _%g134460134491%_)))) - (_%g134459134487%_ - _%g134460134491%_))))))) - (_%loop134473134520%_ _%target134470134514%_ '())) - (_%g134459134487%_ _%g134460134491%_))))) + _%hd134517134585%_ + _%super-bind-methods!134515134577%_ + _%hd134502134535%_) + (_%g134496134524%_ + _%g134497134528%_)))) + (_%g134496134524%_ + _%g134497134528%_))))))) + (_%loop134510134557%_ _%target134507134551%_ '())) + (_%g134496134524%_ _%g134497134528%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134459134487%_ - _%g134460134491%_)))) - (_%g134459134487%_ - _%g134460134491%_)))) - (_%g134459134487%_ _%g134460134491%_))))) - (_%g134458134623%_ + (_%g134496134524%_ + _%g134497134528%_)))) + (_%g134496134524%_ + _%g134497134528%_)))) + (_%g134496134524%_ _%g134497134528%_))))) + (_%g134495134660%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L134414%_ - _%L134414%_ + _%L134451%_ + _%L134451%_ '"-bind-methods!")) - (map (lambda (_%super134627%_) + (map (lambda (_%super134664%_) (let () (declare (not safe)) (gx#stx-identifier - _%super134627%_ - _%super134627%_ + _%super134664%_ + _%super134664%_ '"-bind-methods!"))) - (let ((__tmp137998 - (lambda (_%g134629134632%_ - _%g134630134635%_) - (cons _%g134629134632%_ - _%g134630134635%_)))) + (let ((__tmp138035 + (lambda (_%g134666134669%_ + _%g134667134672%_) + (cons _%g134666134669%_ + _%g134667134672%_)))) (declare (not safe)) - (__foldr1 __tmp137998 '() _%L134413%_))) + (__foldr1 __tmp138035 '() _%L134450%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L134414%_ - _%L134414%_ + _%L134451%_ + _%L134451%_ '"::t")))))))) - (let* ((_%__match137856137857%_ - (lambda (_%e134152134221%_ - _%hd134153134225%_ - _%tl134154134228%_ - _%e134155134231%_ - _%hd134156134235%_ - _%tl134157134238%_ - _%e134158134241%_ - _%hd134159134245%_ - _%tl134160134248%_ - _%__splice137736137737%_ - _%target134161134251%_ - _%tl134163134254%_) - (letrec ((_%loop134164134257%_ - (lambda (_%hd134162134261%_ - _%arg134168134264%_) + (let* ((_%__match137893137894%_ + (lambda (_%e134189134258%_ + _%hd134190134262%_ + _%tl134191134265%_ + _%e134192134268%_ + _%hd134193134272%_ + _%tl134194134275%_ + _%e134195134278%_ + _%hd134196134282%_ + _%tl134197134285%_ + _%__splice137773137774%_ + _%target134198134288%_ + _%tl134200134291%_) + (letrec ((_%loop134201134294%_ + (lambda (_%hd134199134298%_ + _%arg134205134301%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134162134261%_)) - (let ((_%e134165134267%_ + (gx#stx-pair? _%hd134199134298%_)) + (let ((_%e134202134304%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134162134261%_)))) - (let ((_%lp-tl134167134274%_ + _%hd134199134298%_)))) + (let ((_%lp-tl134204134311%_ (let () (declare (not safe)) - (##cdr _%e134165134267%_))) - (_%lp-hd134166134271%_ + (##cdr _%e134202134304%_))) + (_%lp-hd134203134308%_ (let () (declare (not safe)) - (##car _%e134165134267%_)))) - (_%loop134164134257%_ - _%lp-tl134167134274%_ - (cons _%lp-hd134166134271%_ - _%arg134168134264%_)))) - (let ((_%arg134169134277%_ - (reverse _%arg134168134264%_))) + (##car _%e134202134304%_)))) + (_%loop134201134294%_ + _%lp-tl134204134311%_ + (cons _%lp-hd134203134308%_ + _%arg134205134301%_)))) + (let ((_%arg134206134314%_ + (reverse _%arg134205134301%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134157134238%_)) - (let ((_%e134170134281%_ + _%tl134194134275%_)) + (let ((_%e134207134318%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134157134238%_)))) - (let ((_%tl134172134288%_ + _%tl134194134275%_)))) + (let ((_%tl134209134325%_ (let () (declare (not safe)) - (##cdr _%e134170134281%_))) - (_%hd134171134285%_ + (##cdr _%e134207134318%_))) + (_%hd134208134322%_ (let () (declare (not safe)) - (##car _%e134170134281%_)))) + (##car _%e134207134318%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134171134285%_)) - (let ((_%e134173134291%_ + _%hd134208134322%_)) + (let ((_%e134210134328%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134171134285%_)))) - (let ((_%tl134175134298%_ + _%hd134208134322%_)))) + (let ((_%tl134212134335%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e134173134291%_))) - (_%hd134174134295%_ - (let () (declare (not safe)) (##car _%e134173134291%_)))) + (##cdr _%e134210134328%_))) + (_%hd134211134332%_ + (let () (declare (not safe)) (##car _%e134210134328%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134175134298%_)) - (let ((_%__splice137738137739%_ + (gx#stx-pair/null? _%tl134212134335%_)) + (let ((_%__splice137775137776%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134175134298%_ '0)))) - (let ((_%tl134178134304%_ + (gx#syntax-split-splice _%tl134212134335%_ '0)))) + (let ((_%tl134215134341%_ (let () (declare (not safe)) - (##vector-ref _%__splice137738137739%_ '1))) - (_%target134176134301%_ + (##vector-ref _%__splice137775137776%_ '1))) + (_%target134213134338%_ (let () (declare (not safe)) - (##vector-ref _%__splice137738137739%_ '0)))) + (##vector-ref _%__splice137775137776%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134178134304%_)) - (letrec ((_%loop134179134307%_ - (lambda (_%hd134177134311%_ - _%super134183134314%_) + (gx#stx-null? _%tl134215134341%_)) + (letrec ((_%loop134216134344%_ + (lambda (_%hd134214134348%_ + _%super134220134351%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134177134311%_)) - (let ((_%e134180134317%_ + _%hd134214134348%_)) + (let ((_%e134217134354%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134177134311%_)))) - (let ((_%lp-tl134182134324%_ + _%hd134214134348%_)))) + (let ((_%lp-tl134219134361%_ (let () (declare (not safe)) - (##cdr _%e134180134317%_))) - (_%lp-hd134181134321%_ + (##cdr _%e134217134354%_))) + (_%lp-hd134218134358%_ (let () (declare (not safe)) - (##car _%e134180134317%_)))) - (_%loop134179134307%_ - _%lp-tl134182134324%_ - (cons _%lp-hd134181134321%_ - _%super134183134314%_)))) - (let ((_%super134184134327%_ - (reverse _%super134183134314%_))) + (##car _%e134217134354%_)))) + (_%loop134216134344%_ + _%lp-tl134219134361%_ + (cons _%lp-hd134218134358%_ + _%super134220134351%_)))) + (let ((_%super134221134364%_ + (reverse _%super134220134351%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134172134288%_)) - (let ((_%e134185134331%_ + _%tl134209134325%_)) + (let ((_%e134222134368%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134172134288%_)))) - (let ((_%tl134187134338%_ + _%tl134209134325%_)))) + (let ((_%tl134224134375%_ (let () (declare (not safe)) - (##cdr _%e134185134331%_))) - (_%hd134186134335%_ + (##cdr _%e134222134368%_))) + (_%hd134223134372%_ (let () (declare (not safe)) - (##car _%e134185134331%_)))) + (##car _%e134222134368%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134187134338%_)) - (let ((_%e134188134341%_ + _%tl134224134375%_)) + (let ((_%e134225134378%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl134187134338%_)))) - (let ((_%tl134190134348%_ + (gx#syntax-e _%tl134224134375%_)))) + (let ((_%tl134227134385%_ (let () (declare (not safe)) - (##cdr _%e134188134341%_))) - (_%hd134189134345%_ + (##cdr _%e134225134378%_))) + (_%hd134226134382%_ (let () (declare (not safe)) - (##car _%e134188134341%_)))) + (##car _%e134225134378%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd134189134345%_)) - (let ((_%e134191134351%_ + (gx#stx-datum? _%hd134226134382%_)) + (let ((_%e134228134388%_ (let () (declare (not safe)) - (gx#stx-e _%hd134189134345%_)))) - (if (equal? _%e134191134351%_ 'final:) + (gx#stx-e _%hd134226134382%_)))) + (if (equal? _%e134228134388%_ 'final:) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134190134348%_)) - (let ((_%__splice137740137741%_ + (gx#stx-pair/null? _%tl134227134385%_)) + (let ((_%__splice137777137778%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134190134348%_ + _%tl134227134385%_ '0)))) - (let ((_%tl134194134358%_ + (let ((_%tl134231134395%_ (let () (declare (not safe)) (##vector-ref - _%__splice137740137741%_ + _%__splice137777137778%_ '1))) - (_%target134192134355%_ + (_%target134229134392%_ (let () (declare (not safe)) (##vector-ref - _%__splice137740137741%_ + _%__splice137777137778%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134194134358%_)) - (letrec ((_%loop134195134361%_ - (lambda (_%hd134193134365%_ - _%implementation134199134368%_ - _%method134200134370%_) + _%tl134231134395%_)) + (letrec ((_%loop134232134398%_ + (lambda (_%hd134230134402%_ + _%implementation134236134405%_ + _%method134237134407%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134193134365%_)) - (let ((_%e134196134373%_ + _%hd134230134402%_)) + (let ((_%e134233134410%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd134193134365%_)))) - (let ((_%lp-tl134198134380%_ + (gx#syntax-e _%hd134230134402%_)))) + (let ((_%lp-tl134235134417%_ (let () (declare (not safe)) - (##cdr _%e134196134373%_))) - (_%lp-hd134197134377%_ + (##cdr _%e134233134410%_))) + (_%lp-hd134234134414%_ (let () (declare (not safe)) - (##car _%e134196134373%_)))) + (##car _%e134233134410%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd134197134377%_)) - (let ((_%e134203134383%_ + (gx#stx-pair? _%lp-hd134234134414%_)) + (let ((_%e134240134420%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd134197134377%_)))) - (let ((_%tl134205134390%_ + (gx#syntax-e _%lp-hd134234134414%_)))) + (let ((_%tl134242134427%_ (let () (declare (not safe)) - (##cdr _%e134203134383%_))) - (_%hd134204134387%_ + (##cdr _%e134240134420%_))) + (_%hd134241134424%_ (let () (declare (not safe)) - (##car _%e134203134383%_)))) + (##car _%e134240134420%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134205134390%_)) - (let ((_%e134206134393%_ + (gx#stx-pair? _%tl134242134427%_)) + (let ((_%e134243134430%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134205134390%_)))) - (let ((_%tl134208134400%_ + _%tl134242134427%_)))) + (let ((_%tl134245134437%_ (let () (declare (not safe)) - (##cdr _%e134206134393%_))) - (_%hd134207134397%_ + (##cdr _%e134243134430%_))) + (_%hd134244134434%_ (let () (declare (not safe)) - (##car _%e134206134393%_)))) + (##car _%e134243134430%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134208134400%_)) - (_%loop134195134361%_ - _%lp-tl134198134380%_ - (cons _%hd134207134397%_ - _%implementation134199134368%_) - (cons _%hd134204134387%_ - _%method134200134370%_)) + _%tl134245134437%_)) + (_%loop134232134398%_ + _%lp-tl134235134417%_ + (cons _%hd134244134434%_ + _%implementation134236134405%_) + (cons _%hd134241134424%_ + _%method134237134407%_)) (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_))))) - (let ((_%method134202134406%_ - (reverse _%method134200134370%_)) - (_%implementation134201134403%_ - (reverse _%implementation134199134368%_))) - (_%__kont137734137735%_ - _%implementation134201134403%_ - _%method134202134406%_ - _%hd134186134335%_ - _%super134184134327%_ - _%hd134174134295%_ - _%arg134169134277%_ - _%hd134159134245%_)))))) + (_%g134057134251%_))))) + (let ((_%method134239134443%_ + (reverse _%method134237134407%_)) + (_%implementation134238134440%_ + (reverse _%implementation134236134405%_))) + (_%__kont137771137772%_ + _%implementation134238134440%_ + _%method134239134443%_ + _%hd134223134372%_ + _%super134221134364%_ + _%hd134211134332%_ + _%arg134206134314%_ + _%hd134196134282%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop134195134361%_ - _%target134192134355%_ + (_%loop134232134398%_ + _%target134229134392%_ '() '())) (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_))) + (_%g134057134251%_))) (let () (declare (not safe)) - (_%g134020134214%_)))) - (let () (declare (not safe)) (_%g134020134214%_))))) - (let () (declare (not safe)) (_%g134020134214%_))))) + (_%g134057134251%_)))) + (let () (declare (not safe)) (_%g134057134251%_))))) + (let () (declare (not safe)) (_%g134057134251%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134020134214%_)))))))) - (_%loop134179134307%_ - _%target134176134301%_ + (_%g134057134251%_)))))))) + (_%loop134216134344%_ + _%target134213134338%_ '())) (let () (declare (not safe)) - (_%g134020134214%_))))) - (let () (declare (not safe)) (_%g134020134214%_))))) + (_%g134057134251%_))))) + (let () (declare (not safe)) (_%g134057134251%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_)))))))) - (_%loop134164134257%_ _%target134161134251%_ '())))) - (_%__match137830137831%_ - (lambda (_%e134092134645%_ - _%hd134093134649%_ - _%tl134094134652%_ - _%e134095134655%_ - _%hd134096134659%_ - _%tl134097134662%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_) - (letrec ((_%loop134104134681%_ - (lambda (_%hd134102134685%_ - _%arg134108134688%_) + (_%g134057134251%_)))))))) + (_%loop134201134294%_ _%target134198134288%_ '())))) + (_%__match137867137868%_ + (lambda (_%e134129134682%_ + _%hd134130134686%_ + _%tl134131134689%_ + _%e134132134692%_ + _%hd134133134696%_ + _%tl134134134699%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_) + (letrec ((_%loop134141134718%_ + (lambda (_%hd134139134722%_ + _%arg134145134725%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134102134685%_)) - (let ((_%e134105134691%_ + (gx#stx-pair? _%hd134139134722%_)) + (let ((_%e134142134728%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134102134685%_)))) - (let ((_%lp-tl134107134698%_ + _%hd134139134722%_)))) + (let ((_%lp-tl134144134735%_ (let () (declare (not safe)) - (##cdr _%e134105134691%_))) - (_%lp-hd134106134695%_ + (##cdr _%e134142134728%_))) + (_%lp-hd134143134732%_ (let () (declare (not safe)) - (##car _%e134105134691%_)))) - (_%loop134104134681%_ - _%lp-tl134107134698%_ - (cons _%lp-hd134106134695%_ - _%arg134108134688%_)))) - (let ((_%arg134109134701%_ - (reverse _%arg134108134688%_))) + (##car _%e134142134728%_)))) + (_%loop134141134718%_ + _%lp-tl134144134735%_ + (cons _%lp-hd134143134732%_ + _%arg134145134725%_)))) + (let ((_%arg134146134738%_ + (reverse _%arg134145134725%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134097134662%_)) - (let ((_%e134110134705%_ + _%tl134134134699%_)) + (let ((_%e134147134742%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134097134662%_)))) - (let ((_%tl134112134712%_ + _%tl134134134699%_)))) + (let ((_%tl134149134749%_ (let () (declare (not safe)) - (##cdr _%e134110134705%_))) - (_%hd134111134709%_ + (##cdr _%e134147134742%_))) + (_%hd134148134746%_ (let () (declare (not safe)) - (##car _%e134110134705%_)))) + (##car _%e134147134742%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134111134709%_)) - (let ((_%e134113134715%_ + _%hd134148134746%_)) + (let ((_%e134150134752%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134111134709%_)))) - (let ((_%tl134115134722%_ + _%hd134148134746%_)))) + (let ((_%tl134152134759%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e134113134715%_))) - (_%hd134114134719%_ - (let () (declare (not safe)) (##car _%e134113134715%_)))) + (##cdr _%e134150134752%_))) + (_%hd134151134756%_ + (let () (declare (not safe)) (##car _%e134150134752%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134115134722%_)) - (let ((_%__splice137730137731%_ + (gx#stx-pair/null? _%tl134152134759%_)) + (let ((_%__splice137767137768%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134115134722%_ '0)))) - (let ((_%tl134118134728%_ + (gx#syntax-split-splice _%tl134152134759%_ '0)))) + (let ((_%tl134155134765%_ (let () (declare (not safe)) - (##vector-ref _%__splice137730137731%_ '1))) - (_%target134116134725%_ + (##vector-ref _%__splice137767137768%_ '1))) + (_%target134153134762%_ (let () (declare (not safe)) - (##vector-ref _%__splice137730137731%_ '0)))) + (##vector-ref _%__splice137767137768%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134118134728%_)) - (letrec ((_%loop134119134731%_ - (lambda (_%hd134117134735%_ - _%super134123134738%_) + (gx#stx-null? _%tl134155134765%_)) + (letrec ((_%loop134156134768%_ + (lambda (_%hd134154134772%_ + _%super134160134775%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134117134735%_)) - (let ((_%e134120134741%_ + _%hd134154134772%_)) + (let ((_%e134157134778%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134117134735%_)))) - (let ((_%lp-tl134122134748%_ + _%hd134154134772%_)))) + (let ((_%lp-tl134159134785%_ (let () (declare (not safe)) - (##cdr _%e134120134741%_))) - (_%lp-hd134121134745%_ + (##cdr _%e134157134778%_))) + (_%lp-hd134158134782%_ (let () (declare (not safe)) - (##car _%e134120134741%_)))) - (_%loop134119134731%_ - _%lp-tl134122134748%_ - (cons _%lp-hd134121134745%_ - _%super134123134738%_)))) - (let ((_%super134124134751%_ - (reverse _%super134123134738%_))) + (##car _%e134157134778%_)))) + (_%loop134156134768%_ + _%lp-tl134159134785%_ + (cons _%lp-hd134158134782%_ + _%super134160134775%_)))) + (let ((_%super134161134788%_ + (reverse _%super134160134775%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134112134712%_)) - (let ((_%e134125134755%_ + _%tl134149134749%_)) + (let ((_%e134162134792%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134112134712%_)))) - (let ((_%tl134127134762%_ + _%tl134149134749%_)))) + (let ((_%tl134164134799%_ (let () (declare (not safe)) - (##cdr _%e134125134755%_))) - (_%hd134126134759%_ + (##cdr _%e134162134792%_))) + (_%hd134163134796%_ (let () (declare (not safe)) - (##car _%e134125134755%_)))) + (##car _%e134162134792%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134127134762%_)) - (let ((_%__splice137732137733%_ + _%tl134164134799%_)) + (let ((_%__splice137769137770%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134127134762%_ '0)))) - (let ((_%tl134130134768%_ + (gx#syntax-split-splice _%tl134164134799%_ '0)))) + (let ((_%tl134167134805%_ (let () (declare (not safe)) - (##vector-ref _%__splice137732137733%_ '1))) - (_%target134128134765%_ + (##vector-ref _%__splice137769137770%_ '1))) + (_%target134165134802%_ (let () (declare (not safe)) - (##vector-ref _%__splice137732137733%_ '0)))) + (##vector-ref _%__splice137769137770%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134130134768%_)) - (letrec ((_%loop134131134771%_ - (lambda (_%hd134129134775%_ - _%implementation134135134778%_ - _%method134136134780%_) + (gx#stx-null? _%tl134167134805%_)) + (letrec ((_%loop134168134808%_ + (lambda (_%hd134166134812%_ + _%implementation134172134815%_ + _%method134173134817%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134129134775%_)) - (let ((_%e134132134783%_ + (gx#stx-pair? _%hd134166134812%_)) + (let ((_%e134169134820%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134129134775%_)))) - (let ((_%lp-tl134134134790%_ + _%hd134166134812%_)))) + (let ((_%lp-tl134171134827%_ (let () (declare (not safe)) - (##cdr _%e134132134783%_))) - (_%lp-hd134133134787%_ + (##cdr _%e134169134820%_))) + (_%lp-hd134170134824%_ (let () (declare (not safe)) - (##car _%e134132134783%_)))) + (##car _%e134169134820%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd134133134787%_)) - (let ((_%e134139134793%_ + _%lp-hd134170134824%_)) + (let ((_%e134176134830%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd134133134787%_)))) - (let ((_%tl134141134800%_ + _%lp-hd134170134824%_)))) + (let ((_%tl134178134837%_ (let () (declare (not safe)) - (##cdr _%e134139134793%_))) - (_%hd134140134797%_ + (##cdr _%e134176134830%_))) + (_%hd134177134834%_ (let () (declare (not safe)) - (##car _%e134139134793%_)))) + (##car _%e134176134830%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134141134800%_)) - (let ((_%e134142134803%_ + _%tl134178134837%_)) + (let ((_%e134179134840%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl134141134800%_)))) - (let ((_%tl134144134810%_ + (gx#syntax-e _%tl134178134837%_)))) + (let ((_%tl134181134847%_ (let () (declare (not safe)) - (##cdr _%e134142134803%_))) - (_%hd134143134807%_ + (##cdr _%e134179134840%_))) + (_%hd134180134844%_ (let () (declare (not safe)) - (##car _%e134142134803%_)))) + (##car _%e134179134840%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134144134810%_)) - (_%loop134131134771%_ - _%lp-tl134134134790%_ - (cons _%hd134143134807%_ - _%implementation134135134778%_) - (cons _%hd134140134797%_ _%method134136134780%_)) - (_%__match137856137857%_ - _%e134092134645%_ - _%hd134093134649%_ - _%tl134094134652%_ - _%e134095134655%_ - _%hd134096134659%_ - _%tl134097134662%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_)))) - (_%__match137856137857%_ - _%e134092134645%_ - _%hd134093134649%_ - _%tl134094134652%_ - _%e134095134655%_ - _%hd134096134659%_ - _%tl134097134662%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_)))) + (gx#stx-null? _%tl134181134847%_)) + (_%loop134168134808%_ + _%lp-tl134171134827%_ + (cons _%hd134180134844%_ + _%implementation134172134815%_) + (cons _%hd134177134834%_ _%method134173134817%_)) + (_%__match137893137894%_ + _%e134129134682%_ + _%hd134130134686%_ + _%tl134131134689%_ + _%e134132134692%_ + _%hd134133134696%_ + _%tl134134134699%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_)))) + (_%__match137893137894%_ + _%e134129134682%_ + _%hd134130134686%_ + _%tl134131134689%_ + _%e134132134692%_ + _%hd134133134696%_ + _%tl134134134699%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137856137857%_ - _%e134092134645%_ - _%hd134093134649%_ - _%tl134094134652%_ - _%e134095134655%_ - _%hd134096134659%_ - _%tl134097134662%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_)))) - (let ((_%method134138134816%_ - (reverse _%method134136134780%_)) - (_%implementation134137134813%_ - (reverse _%implementation134135134778%_))) - (_%__kont137726137727%_ - _%implementation134137134813%_ - _%method134138134816%_ - _%hd134126134759%_ - _%super134124134751%_ - _%hd134114134719%_ - _%arg134109134701%_ - _%hd134099134669%_)))))) - (_%loop134131134771%_ - _%target134128134765%_ + (_%__match137893137894%_ + _%e134129134682%_ + _%hd134130134686%_ + _%tl134131134689%_ + _%e134132134692%_ + _%hd134133134696%_ + _%tl134134134699%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_)))) + (let ((_%method134175134853%_ + (reverse _%method134173134817%_)) + (_%implementation134174134850%_ + (reverse _%implementation134172134815%_))) + (_%__kont137763137764%_ + _%implementation134174134850%_ + _%method134175134853%_ + _%hd134163134796%_ + _%super134161134788%_ + _%hd134151134756%_ + _%arg134146134738%_ + _%hd134136134706%_)))))) + (_%loop134168134808%_ + _%target134165134802%_ '() '())) - (_%__match137856137857%_ - _%e134092134645%_ - _%hd134093134649%_ - _%tl134094134652%_ - _%e134095134655%_ - _%hd134096134659%_ - _%tl134097134662%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_)))) - (_%__match137856137857%_ - _%e134092134645%_ - _%hd134093134649%_ - _%tl134094134652%_ - _%e134095134655%_ - _%hd134096134659%_ - _%tl134097134662%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_)))) + (_%__match137893137894%_ + _%e134129134682%_ + _%hd134130134686%_ + _%tl134131134689%_ + _%e134132134692%_ + _%hd134133134696%_ + _%tl134134134699%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_)))) + (_%__match137893137894%_ + _%e134129134682%_ + _%hd134130134686%_ + _%tl134131134689%_ + _%e134132134692%_ + _%hd134133134696%_ + _%tl134134134699%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137856137857%_ - _%e134092134645%_ - _%hd134093134649%_ - _%tl134094134652%_ - _%e134095134655%_ - _%hd134096134659%_ - _%tl134097134662%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_))))))) - (_%loop134119134731%_ - _%target134116134725%_ + (_%__match137893137894%_ + _%e134129134682%_ + _%hd134130134686%_ + _%tl134131134689%_ + _%e134132134692%_ + _%hd134133134696%_ + _%tl134134134699%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_))))))) + (_%loop134156134768%_ + _%target134153134762%_ '())) - (_%__match137856137857%_ - _%e134092134645%_ - _%hd134093134649%_ - _%tl134094134652%_ - _%e134095134655%_ - _%hd134096134659%_ - _%tl134097134662%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_)))) - (_%__match137856137857%_ - _%e134092134645%_ - _%hd134093134649%_ - _%tl134094134652%_ - _%e134095134655%_ - _%hd134096134659%_ - _%tl134097134662%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_)))) + (_%__match137893137894%_ + _%e134129134682%_ + _%hd134130134686%_ + _%tl134131134689%_ + _%e134132134692%_ + _%hd134133134696%_ + _%tl134134134699%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_)))) + (_%__match137893137894%_ + _%e134129134682%_ + _%hd134130134686%_ + _%tl134131134689%_ + _%e134132134692%_ + _%hd134133134696%_ + _%tl134134134699%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137856137857%_ - _%e134092134645%_ - _%hd134093134649%_ - _%tl134094134652%_ - _%e134095134655%_ - _%hd134096134659%_ - _%tl134097134662%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_)))) - (_%__match137856137857%_ - _%e134092134645%_ - _%hd134093134649%_ - _%tl134094134652%_ - _%e134095134655%_ - _%hd134096134659%_ - _%tl134097134662%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_))))))) - (_%loop134104134681%_ _%target134101134675%_ '())))) - (_%__match137804137805%_ - (lambda (_%e134043135050%_ - _%hd134044135054%_ - _%tl134045135057%_ - _%e134046135060%_ - _%hd134047135064%_ - _%tl134048135067%_ - _%e134049135070%_ - _%e134050135074%_ - _%hd134051135078%_ - _%tl134052135081%_ - _%e134053135084%_ - _%hd134054135088%_ - _%tl134055135091%_ - _%__splice137722137723%_ - _%target134056135094%_ - _%tl134058135097%_) - (letrec ((_%loop134059135100%_ - (lambda (_%hd134057135104%_ - _%super134063135107%_) + (_%__match137893137894%_ + _%e134129134682%_ + _%hd134130134686%_ + _%tl134131134689%_ + _%e134132134692%_ + _%hd134133134696%_ + _%tl134134134699%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_)))) + (_%__match137893137894%_ + _%e134129134682%_ + _%hd134130134686%_ + _%tl134131134689%_ + _%e134132134692%_ + _%hd134133134696%_ + _%tl134134134699%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_))))))) + (_%loop134141134718%_ _%target134138134712%_ '())))) + (_%__match137841137842%_ + (lambda (_%e134080135087%_ + _%hd134081135091%_ + _%tl134082135094%_ + _%e134083135097%_ + _%hd134084135101%_ + _%tl134085135104%_ + _%e134086135107%_ + _%e134087135111%_ + _%hd134088135115%_ + _%tl134089135118%_ + _%e134090135121%_ + _%hd134091135125%_ + _%tl134092135128%_ + _%__splice137759137760%_ + _%target134093135131%_ + _%tl134095135134%_) + (letrec ((_%loop134096135137%_ + (lambda (_%hd134094135141%_ + _%super134100135144%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134057135104%_)) - (let ((_%e134060135110%_ + (gx#stx-pair? _%hd134094135141%_)) + (let ((_%e134097135147%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134057135104%_)))) - (let ((_%lp-tl134062135117%_ + _%hd134094135141%_)))) + (let ((_%lp-tl134099135154%_ (let () (declare (not safe)) - (##cdr _%e134060135110%_))) - (_%lp-hd134061135114%_ + (##cdr _%e134097135147%_))) + (_%lp-hd134098135151%_ (let () (declare (not safe)) - (##car _%e134060135110%_)))) - (_%loop134059135100%_ - _%lp-tl134062135117%_ - (cons _%lp-hd134061135114%_ - _%super134063135107%_)))) - (let ((_%super134064135120%_ - (reverse _%super134063135107%_))) + (##car _%e134097135147%_)))) + (_%loop134096135137%_ + _%lp-tl134099135154%_ + (cons _%lp-hd134098135151%_ + _%super134100135144%_)))) + (let ((_%super134101135157%_ + (reverse _%super134100135144%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134052135081%_)) - (let ((_%e134065135124%_ + _%tl134089135118%_)) + (let ((_%e134102135161%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134052135081%_)))) - (let ((_%tl134067135131%_ + _%tl134089135118%_)))) + (let ((_%tl134104135168%_ (let () (declare (not safe)) - (##cdr _%e134065135124%_))) - (_%hd134066135128%_ + (##cdr _%e134102135161%_))) + (_%hd134103135165%_ (let () (declare (not safe)) - (##car _%e134065135124%_)))) + (##car _%e134102135161%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134067135131%_)) - (let ((_%__splice137724137725%_ + _%tl134104135168%_)) + (let ((_%__splice137761137762%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134067135131%_ + _%tl134104135168%_ '0)))) - (let ((_%tl134070135137%_ + (let ((_%tl134107135174%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice137724137725%_ '1))) - (_%target134068135134%_ + (##vector-ref _%__splice137761137762%_ '1))) + (_%target134105135171%_ (let () (declare (not safe)) - (##vector-ref _%__splice137724137725%_ '0)))) + (##vector-ref _%__splice137761137762%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134070135137%_)) - (letrec ((_%loop134071135140%_ - (lambda (_%hd134069135144%_ - _%implementation134075135147%_ - _%method134076135149%_) + (gx#stx-null? _%tl134107135174%_)) + (letrec ((_%loop134108135177%_ + (lambda (_%hd134106135181%_ + _%implementation134112135184%_ + _%method134113135186%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134069135144%_)) - (let ((_%e134072135152%_ + (gx#stx-pair? _%hd134106135181%_)) + (let ((_%e134109135189%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134069135144%_)))) - (let ((_%lp-tl134074135159%_ + _%hd134106135181%_)))) + (let ((_%lp-tl134111135196%_ (let () (declare (not safe)) - (##cdr _%e134072135152%_))) - (_%lp-hd134073135156%_ + (##cdr _%e134109135189%_))) + (_%lp-hd134110135193%_ (let () (declare (not safe)) - (##car _%e134072135152%_)))) + (##car _%e134109135189%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd134073135156%_)) - (let ((_%e134079135162%_ + _%lp-hd134110135193%_)) + (let ((_%e134116135199%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd134073135156%_)))) - (let ((_%tl134081135169%_ + _%lp-hd134110135193%_)))) + (let ((_%tl134118135206%_ (let () (declare (not safe)) - (##cdr _%e134079135162%_))) - (_%hd134080135166%_ + (##cdr _%e134116135199%_))) + (_%hd134117135203%_ (let () (declare (not safe)) - (##car _%e134079135162%_)))) + (##car _%e134116135199%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134081135169%_)) - (let ((_%e134082135172%_ + _%tl134118135206%_)) + (let ((_%e134119135209%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134081135169%_)))) - (let ((_%tl134084135179%_ + _%tl134118135206%_)))) + (let ((_%tl134121135216%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e134082135172%_))) - (_%hd134083135176%_ - (let () (declare (not safe)) (##car _%e134082135172%_)))) + (##cdr _%e134119135209%_))) + (_%hd134120135213%_ + (let () (declare (not safe)) (##car _%e134119135209%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134084135179%_)) - (_%loop134071135140%_ - _%lp-tl134074135159%_ - (cons _%hd134083135176%_ _%implementation134075135147%_) - (cons _%hd134080135166%_ _%method134076135149%_)) - (let () (declare (not safe)) (_%g134020134214%_))))) + (gx#stx-null? _%tl134121135216%_)) + (_%loop134108135177%_ + _%lp-tl134111135196%_ + (cons _%hd134120135213%_ _%implementation134112135184%_) + (cons _%hd134117135203%_ _%method134113135186%_)) + (let () (declare (not safe)) (_%g134057134251%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_))))) - (let ((_%method134078135185%_ - (reverse _%method134076135149%_)) - (_%implementation134077135182%_ - (reverse _%implementation134075135147%_))) - (_%__kont137720137721%_ - _%implementation134077135182%_ - _%method134078135185%_ - _%hd134066135128%_ - _%super134064135120%_ - _%hd134054135088%_)))))) - (_%loop134071135140%_ _%target134068135134%_ '() '())) - (let () (declare (not safe)) (_%g134020134214%_))))) + (_%g134057134251%_))))) + (let ((_%method134115135222%_ + (reverse _%method134113135186%_)) + (_%implementation134114135219%_ + (reverse _%implementation134112135184%_))) + (_%__kont137757137758%_ + _%implementation134114135219%_ + _%method134115135222%_ + _%hd134103135165%_ + _%super134101135157%_ + _%hd134091135125%_)))))) + (_%loop134108135177%_ _%target134105135171%_ '() '())) + (let () (declare (not safe)) (_%g134057134251%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_)))))))) - (_%loop134059135100%_ _%target134056135094%_ '())))) - (_%__match137766137767%_ - (lambda (_%e134026135394%_ - _%hd134027135398%_ - _%tl134028135401%_ - _%e134029135404%_ - _%hd134030135408%_ - _%tl134031135411%_ - _%e134032135414%_ - _%hd134033135418%_ - _%tl134034135421%_ - _%e134035135424%_ - _%hd134036135428%_ - _%tl134037135431%_) - (let ((_%L135434%_ _%tl134037135431%_) - (_%L135436%_ _%hd134036135428%_) - (_%L135437%_ _%hd134033135418%_) - (_%L135438%_ _%hd134030135408%_)) + (_%g134057134251%_)))))))) + (_%loop134096135137%_ _%target134093135131%_ '())))) + (_%__match137803137804%_ + (lambda (_%e134063135431%_ + _%hd134064135435%_ + _%tl134065135438%_ + _%e134066135441%_ + _%hd134067135445%_ + _%tl134068135448%_ + _%e134069135451%_ + _%hd134070135455%_ + _%tl134071135458%_ + _%e134072135461%_ + _%hd134073135465%_ + _%tl134074135468%_) + (let ((_%L135471%_ _%tl134074135468%_) + (_%L135473%_ _%hd134073135465%_) + (_%L135474%_ _%hd134070135455%_) + (_%L135475%_ _%hd134067135445%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L135437%_)) - (_%__kont137718137719%_ - _%L135434%_ - _%L135436%_ - _%L135437%_ - _%L135438%_) + (gx#identifier? _%L135474%_)) + (_%__kont137755137756%_ + _%L135471%_ + _%L135473%_ + _%L135474%_ + _%L135475%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd134030135408%_)) - (let ((_%e134049135070%_ + (gx#stx-datum? _%hd134067135445%_)) + (let ((_%e134086135107%_ (let () (declare (not safe)) - (gx#stx-e _%hd134030135408%_)))) - (if (equal? _%e134049135070%_ '#f) + (gx#stx-e _%hd134067135445%_)))) + (if (equal? _%e134086135107%_ '#f) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134033135418%_)) - (let ((_%e134053135084%_ + (gx#stx-pair? _%hd134070135455%_)) + (let ((_%e134090135121%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134033135418%_)))) - (let ((_%tl134055135091%_ + _%hd134070135455%_)))) + (let ((_%tl134092135128%_ (let () (declare (not safe)) - (##cdr _%e134053135084%_))) - (_%hd134054135088%_ + (##cdr _%e134090135121%_))) + (_%hd134091135125%_ (let () (declare (not safe)) - (##car _%e134053135084%_)))) + (##car _%e134090135121%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134055135091%_)) - (let ((_%__splice137722137723%_ + _%tl134092135128%_)) + (let ((_%__splice137759137760%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134055135091%_ + _%tl134092135128%_ '0)))) - (let ((_%tl134058135097%_ + (let ((_%tl134095135134%_ (let () (declare (not safe)) (##vector-ref - _%__splice137722137723%_ + _%__splice137759137760%_ '1))) - (_%target134056135094%_ + (_%target134093135131%_ (let () (declare (not safe)) (##vector-ref - _%__splice137722137723%_ + _%__splice137759137760%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134058135097%_)) - (_%__match137804137805%_ - _%e134026135394%_ - _%hd134027135398%_ - _%tl134028135401%_ - _%e134029135404%_ - _%hd134030135408%_ - _%tl134031135411%_ - _%e134049135070%_ - _%e134032135414%_ - _%hd134033135418%_ - _%tl134034135421%_ - _%e134053135084%_ - _%hd134054135088%_ - _%tl134055135091%_ - _%__splice137722137723%_ - _%target134056135094%_ - _%tl134058135097%_) + _%tl134095135134%_)) + (_%__match137841137842%_ + _%e134063135431%_ + _%hd134064135435%_ + _%tl134065135438%_ + _%e134066135441%_ + _%hd134067135445%_ + _%tl134068135448%_ + _%e134086135107%_ + _%e134069135451%_ + _%hd134070135455%_ + _%tl134071135458%_ + _%e134090135121%_ + _%hd134091135125%_ + _%tl134092135128%_ + _%__splice137759137760%_ + _%target134093135131%_ + _%tl134095135134%_) (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_))) + (_%g134057134251%_))) (let () (declare (not safe)) - (_%g134020134214%_)))) + (_%g134057134251%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134030135408%_)) - (let ((_%e134098134665%_ + (gx#stx-pair? _%hd134067135445%_)) + (let ((_%e134135134702%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134030135408%_)))) - (let ((_%tl134100134672%_ + _%hd134067135445%_)))) + (let ((_%tl134137134709%_ (let () (declare (not safe)) - (##cdr _%e134098134665%_))) - (_%hd134099134669%_ + (##cdr _%e134135134702%_))) + (_%hd134136134706%_ (let () (declare (not safe)) - (##car _%e134098134665%_)))) + (##car _%e134135134702%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134100134672%_)) - (let ((_%__splice137728137729%_ + _%tl134137134709%_)) + (let ((_%__splice137765137766%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134100134672%_ + _%tl134137134709%_ '0)))) - (let ((_%tl134103134678%_ + (let ((_%tl134140134715%_ (let () (declare (not safe)) (##vector-ref - _%__splice137728137729%_ + _%__splice137765137766%_ '1))) - (_%target134101134675%_ + (_%target134138134712%_ (let () (declare (not safe)) (##vector-ref - _%__splice137728137729%_ + _%__splice137765137766%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134103134678%_)) - (_%__match137830137831%_ - _%e134026135394%_ - _%hd134027135398%_ - _%tl134028135401%_ - _%e134029135404%_ - _%hd134030135408%_ - _%tl134031135411%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_) + _%tl134140134715%_)) + (_%__match137867137868%_ + _%e134063135431%_ + _%hd134064135435%_ + _%tl134065135438%_ + _%e134066135441%_ + _%hd134067135445%_ + _%tl134068135448%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_) (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_))))))))) + (_%g134057134251%_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx137715137716%_)) - (let ((_%e134026135394%_ + (gx#stx-pair? _%__stx137752137753%_)) + (let ((_%e134063135431%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx137715137716%_)))) - (let ((_%tl134028135401%_ + (gx#syntax-e _%__stx137752137753%_)))) + (let ((_%tl134065135438%_ (let () (declare (not safe)) - (##cdr _%e134026135394%_))) - (_%hd134027135398%_ + (##cdr _%e134063135431%_))) + (_%hd134064135435%_ (let () (declare (not safe)) - (##car _%e134026135394%_)))) + (##car _%e134063135431%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134028135401%_)) - (let ((_%e134029135404%_ + (gx#stx-pair? _%tl134065135438%_)) + (let ((_%e134066135441%_ (let () (declare (not safe)) - (gx#syntax-e _%tl134028135401%_)))) - (let ((_%tl134031135411%_ + (gx#syntax-e _%tl134065135438%_)))) + (let ((_%tl134068135448%_ (let () (declare (not safe)) - (##cdr _%e134029135404%_))) - (_%hd134030135408%_ + (##cdr _%e134066135441%_))) + (_%hd134067135445%_ (let () (declare (not safe)) - (##car _%e134029135404%_)))) + (##car _%e134066135441%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134031135411%_)) - (let ((_%e134032135414%_ + (gx#stx-pair? _%tl134068135448%_)) + (let ((_%e134069135451%_ (let () (declare (not safe)) - (gx#syntax-e _%tl134031135411%_)))) - (let ((_%tl134034135421%_ + (gx#syntax-e _%tl134068135448%_)))) + (let ((_%tl134071135458%_ (let () (declare (not safe)) - (##cdr _%e134032135414%_))) - (_%hd134033135418%_ + (##cdr _%e134069135451%_))) + (_%hd134070135455%_ (let () (declare (not safe)) - (##car _%e134032135414%_)))) + (##car _%e134069135451%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134034135421%_)) - (let ((_%e134035135424%_ + (gx#stx-pair? _%tl134071135458%_)) + (let ((_%e134072135461%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134034135421%_)))) - (let ((_%tl134037135431%_ + _%tl134071135458%_)))) + (let ((_%tl134074135468%_ (let () (declare (not safe)) - (##cdr _%e134035135424%_))) - (_%hd134036135428%_ + (##cdr _%e134072135461%_))) + (_%hd134073135465%_ (let () (declare (not safe)) - (##car _%e134035135424%_)))) - (_%__match137766137767%_ - _%e134026135394%_ - _%hd134027135398%_ - _%tl134028135401%_ - _%e134029135404%_ - _%hd134030135408%_ - _%tl134031135411%_ - _%e134032135414%_ - _%hd134033135418%_ - _%tl134034135421%_ - _%e134035135424%_ - _%hd134036135428%_ - _%tl134037135431%_))) + (##car _%e134072135461%_)))) + (_%__match137803137804%_ + _%e134063135431%_ + _%hd134064135435%_ + _%tl134065135438%_ + _%e134066135441%_ + _%hd134067135445%_ + _%tl134068135448%_ + _%e134069135451%_ + _%hd134070135455%_ + _%tl134071135458%_ + _%e134072135461%_ + _%hd134073135465%_ + _%tl134074135468%_))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd134030135408%_)) - (let ((_%e134049135070%_ + _%hd134067135445%_)) + (let ((_%e134086135107%_ (let () (declare (not safe)) (gx#stx-e - _%hd134030135408%_)))) - (if (equal? _%e134049135070%_ + _%hd134067135445%_)))) + (if (equal? _%e134086135107%_ '#f) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134033135418%_)) - (let ((_%e134053135084%_ + _%hd134070135455%_)) + (let ((_%e134090135121%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd134033135418%_)))) - (let ((_%tl134055135091%_ + (gx#syntax-e _%hd134070135455%_)))) + (let ((_%tl134092135128%_ (let () (declare (not safe)) - (##cdr _%e134053135084%_))) - (_%hd134054135088%_ + (##cdr _%e134090135121%_))) + (_%hd134091135125%_ (let () (declare (not safe)) - (##car _%e134053135084%_)))) + (##car _%e134090135121%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134055135091%_)) - (let ((_%__splice137722137723%_ + (gx#stx-pair/null? _%tl134092135128%_)) + (let ((_%__splice137759137760%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134055135091%_ + _%tl134092135128%_ '0)))) - (let ((_%tl134058135097%_ + (let ((_%tl134095135134%_ (let () (declare (not safe)) - (##vector-ref _%__splice137722137723%_ '1))) - (_%target134056135094%_ + (##vector-ref _%__splice137759137760%_ '1))) + (_%target134093135131%_ (let () (declare (not safe)) (##vector-ref - _%__splice137722137723%_ + _%__splice137759137760%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134058135097%_)) - (_%__match137804137805%_ - _%e134026135394%_ - _%hd134027135398%_ - _%tl134028135401%_ - _%e134029135404%_ - _%hd134030135408%_ - _%tl134031135411%_ - _%e134049135070%_ - _%e134032135414%_ - _%hd134033135418%_ - _%tl134034135421%_ - _%e134053135084%_ - _%hd134054135088%_ - _%tl134055135091%_ - _%__splice137722137723%_ - _%target134056135094%_ - _%tl134058135097%_) + (gx#stx-null? _%tl134095135134%_)) + (_%__match137841137842%_ + _%e134063135431%_ + _%hd134064135435%_ + _%tl134065135438%_ + _%e134066135441%_ + _%hd134067135445%_ + _%tl134068135448%_ + _%e134086135107%_ + _%e134069135451%_ + _%hd134070135455%_ + _%tl134071135458%_ + _%e134090135121%_ + _%hd134091135125%_ + _%tl134092135128%_ + _%__splice137759137760%_ + _%target134093135131%_ + _%tl134095135134%_) (let () (declare (not safe)) - (_%g134020134214%_))))) - (let () (declare (not safe)) (_%g134020134214%_))))) - (let () (declare (not safe)) (_%g134020134214%_))) + (_%g134057134251%_))))) + (let () (declare (not safe)) (_%g134057134251%_))))) + (let () (declare (not safe)) (_%g134057134251%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134020134214%_)))) + (_%g134057134251%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134030135408%_)) - (let ((_%e134098134665%_ + _%hd134067135445%_)) + (let ((_%e134135134702%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134030135408%_)))) - (let ((_%tl134100134672%_ + _%hd134067135445%_)))) + (let ((_%tl134137134709%_ (let () (declare (not safe)) - (##cdr _%e134098134665%_))) - (_%hd134099134669%_ + (##cdr _%e134135134702%_))) + (_%hd134136134706%_ (let () (declare (not safe)) - (##car _%e134098134665%_)))) + (##car _%e134135134702%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134100134672%_)) - (let ((_%__splice137728137729%_ + _%tl134137134709%_)) + (let ((_%__splice137765137766%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134100134672%_ '0)))) - (let ((_%tl134103134678%_ + (gx#syntax-split-splice _%tl134137134709%_ '0)))) + (let ((_%tl134140134715%_ (let () (declare (not safe)) - (##vector-ref _%__splice137728137729%_ '1))) - (_%target134101134675%_ + (##vector-ref _%__splice137765137766%_ '1))) + (_%target134138134712%_ (let () (declare (not safe)) - (##vector-ref _%__splice137728137729%_ '0)))) + (##vector-ref _%__splice137765137766%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134103134678%_)) - (_%__match137830137831%_ - _%e134026135394%_ - _%hd134027135398%_ - _%tl134028135401%_ - _%e134029135404%_ - _%hd134030135408%_ - _%tl134031135411%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_) - (let () (declare (not safe)) (_%g134020134214%_))))) - (let () (declare (not safe)) (_%g134020134214%_))))) + (gx#stx-null? _%tl134140134715%_)) + (_%__match137867137868%_ + _%e134063135431%_ + _%hd134064135435%_ + _%tl134065135438%_ + _%e134066135441%_ + _%hd134067135445%_ + _%tl134068135448%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_) + (let () (declare (not safe)) (_%g134057134251%_))))) + (let () (declare (not safe)) (_%g134057134251%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134020134214%_))))))) + (_%g134057134251%_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd134030135408%_)) - (let ((_%e134049135070%_ + (gx#stx-datum? _%hd134067135445%_)) + (let ((_%e134086135107%_ (let () (declare (not safe)) - (gx#stx-e _%hd134030135408%_)))) + (gx#stx-e _%hd134067135445%_)))) (declare (not safe)) - (_%g134020134214%_)) + (_%g134057134251%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134030135408%_)) - (let ((_%e134098134665%_ + (gx#stx-pair? _%hd134067135445%_)) + (let ((_%e134135134702%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134030135408%_)))) - (let ((_%tl134100134672%_ + _%hd134067135445%_)))) + (let ((_%tl134137134709%_ (let () (declare (not safe)) - (##cdr _%e134098134665%_))) - (_%hd134099134669%_ + (##cdr _%e134135134702%_))) + (_%hd134136134706%_ (let () (declare (not safe)) - (##car _%e134098134665%_)))) + (##car _%e134135134702%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134100134672%_)) - (let ((_%__splice137728137729%_ + _%tl134137134709%_)) + (let ((_%__splice137765137766%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134100134672%_ + _%tl134137134709%_ '0)))) - (let ((_%tl134103134678%_ + (let ((_%tl134140134715%_ (let () (declare (not safe)) (##vector-ref - _%__splice137728137729%_ + _%__splice137765137766%_ '1))) - (_%target134101134675%_ + (_%target134138134712%_ (let () (declare (not safe)) (##vector-ref - _%__splice137728137729%_ + _%__splice137765137766%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134103134678%_)) - (_%__match137830137831%_ - _%e134026135394%_ - _%hd134027135398%_ - _%tl134028135401%_ - _%e134029135404%_ - _%hd134030135408%_ - _%tl134031135411%_ - _%e134098134665%_ - _%hd134099134669%_ - _%tl134100134672%_ - _%__splice137728137729%_ - _%target134101134675%_ - _%tl134103134678%_) + _%tl134140134715%_)) + (_%__match137867137868%_ + _%e134063135431%_ + _%hd134064135435%_ + _%tl134065135438%_ + _%e134066135441%_ + _%hd134067135445%_ + _%tl134068135448%_ + _%e134135134702%_ + _%hd134136134706%_ + _%tl134137134709%_ + _%__splice137765137766%_ + _%target134138134712%_ + _%tl134140134715%_) (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_))))) + (_%g134057134251%_))))) (let () (declare (not safe)) - (_%g134020134214%_))))))) - (let () (declare (not safe)) (_%g134020134214%_))))) - (let () (declare (not safe)) (_%g134020134214%_)))))))) + (_%g134057134251%_))))))) + (let () (declare (not safe)) (_%g134057134251%_))))) + (let () (declare (not safe)) (_%g134057134251%_)))))))) (define |gxc[:0:]#::void-expression| - (let ((__obj137883 + (let ((__obj137920 (let () (declare (not safe)) (##structure @@ -2603,7 +2603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137883 + __obj137920 'gxc#::void-expression::t '1 '#f @@ -2611,65 +2611,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137883 + __obj137920 '::void-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137920 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137920 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137920 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137920 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137920 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137920 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '#f '11 '#f '#f)) - (let ((__tmp137999 |gxc[1]#_g138000_|)) + (##unchecked-structure-set! __obj137920 '#f '11 '#f '#f)) + (let ((__tmp138036 |gxc[1]#_g138037_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137883 __tmp137999 '12 '#f '#f)) - (let ((__tmp138001 |gxc[1]#_g138002_|)) + (##unchecked-structure-set! __obj137920 __tmp138036 '12 '#f '#f)) + (let ((__tmp138038 |gxc[1]#_g138039_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137883 __tmp138001 '13 '#f '#f)) - (let ((__tmp138003 |gxc[1]#_g138004_|)) + (##unchecked-structure-set! __obj137920 __tmp138038 '13 '#f '#f)) + (let ((__tmp138040 |gxc[1]#_g138041_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137883 __tmp138003 '14 '#f '#f)) + (##unchecked-structure-set! __obj137920 __tmp138040 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137920 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137920 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137920 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137920 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137920 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137920 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137883 '() '20 '#f '#f)) - __obj137883)) + (##unchecked-structure-set! __obj137920 '() '20 '#f '#f)) + __obj137920)) (define |gxc[:0:]#::void-special-form| - (let ((__obj137884 + (let ((__obj137921 (let () (declare (not safe)) (##structure @@ -2698,7 +2698,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137884 + __obj137921 'gxc#::void-special-form::t '1 '#f @@ -2706,65 +2706,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137884 + __obj137921 '::void-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137921 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137921 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137921 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137921 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137921 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137921 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '#f '11 '#f '#f)) - (let ((__tmp138005 |gxc[1]#_g138006_|)) + (##unchecked-structure-set! __obj137921 '#f '11 '#f '#f)) + (let ((__tmp138042 |gxc[1]#_g138043_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137884 __tmp138005 '12 '#f '#f)) - (let ((__tmp138007 |gxc[1]#_g138008_|)) + (##unchecked-structure-set! __obj137921 __tmp138042 '12 '#f '#f)) + (let ((__tmp138044 |gxc[1]#_g138045_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137884 __tmp138007 '13 '#f '#f)) - (let ((__tmp138009 |gxc[1]#_g138010_|)) + (##unchecked-structure-set! __obj137921 __tmp138044 '13 '#f '#f)) + (let ((__tmp138046 |gxc[1]#_g138047_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137884 __tmp138009 '14 '#f '#f)) + (##unchecked-structure-set! __obj137921 __tmp138046 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137921 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137921 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137921 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137921 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137921 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137921 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137884 '() '20 '#f '#f)) - __obj137884)) + (##unchecked-structure-set! __obj137921 '() '20 '#f '#f)) + __obj137921)) (define |gxc[:0:]#::void| - (let ((__obj137885 + (let ((__obj137922 (let () (declare (not safe)) (##structure @@ -2792,65 +2792,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 'gxc#::void::t '1 '#f '#f)) + (##unchecked-structure-set! __obj137922 'gxc#::void::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '::void '2 '#f '#f)) + (##unchecked-structure-set! __obj137922 '::void '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137922 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '() '6 '#f '#f)) - (let ((__tmp138011 - (cons |gxc[1]#_g138012_| (cons |gxc[1]#_g138013_| '())))) + (##unchecked-structure-set! __obj137922 '() '6 '#f '#f)) + (let ((__tmp138048 + (cons |gxc[1]#_g138049_| (cons |gxc[1]#_g138050_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137885 __tmp138011 '3 '#f '#f)) + (##unchecked-structure-set! __obj137922 __tmp138048 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137922 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137922 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137922 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '#f '11 '#f '#f)) - (let ((__tmp138014 |gxc[1]#_g138015_|)) + (##unchecked-structure-set! __obj137922 '#f '11 '#f '#f)) + (let ((__tmp138051 |gxc[1]#_g138052_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137885 __tmp138014 '12 '#f '#f)) - (let ((__tmp138016 |gxc[1]#_g138017_|)) + (##unchecked-structure-set! __obj137922 __tmp138051 '12 '#f '#f)) + (let ((__tmp138053 |gxc[1]#_g138054_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137885 __tmp138016 '13 '#f '#f)) - (let ((__tmp138018 |gxc[1]#_g138019_|)) + (##unchecked-structure-set! __obj137922 __tmp138053 '13 '#f '#f)) + (let ((__tmp138055 |gxc[1]#_g138056_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137885 __tmp138018 '14 '#f '#f)) + (##unchecked-structure-set! __obj137922 __tmp138055 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137922 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137922 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137922 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137922 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137922 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137922 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137885 '() '20 '#f '#f)) - __obj137885)) + (##unchecked-structure-set! __obj137922 '() '20 '#f '#f)) + __obj137922)) (define |gxc[:0:]#::false-expression| - (let ((__obj137886 + (let ((__obj137923 (let () (declare (not safe)) (##structure @@ -2879,7 +2879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137886 + __obj137923 'gxc#::false-expression::t '1 '#f @@ -2887,65 +2887,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137886 + __obj137923 '::false-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137923 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137923 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137923 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137923 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137923 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137923 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '#f '11 '#f '#f)) - (let ((__tmp138020 |gxc[1]#_g138021_|)) + (##unchecked-structure-set! __obj137923 '#f '11 '#f '#f)) + (let ((__tmp138057 |gxc[1]#_g138058_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137886 __tmp138020 '12 '#f '#f)) - (let ((__tmp138022 |gxc[1]#_g138023_|)) + (##unchecked-structure-set! __obj137923 __tmp138057 '12 '#f '#f)) + (let ((__tmp138059 |gxc[1]#_g138060_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137886 __tmp138022 '13 '#f '#f)) - (let ((__tmp138024 |gxc[1]#_g138025_|)) + (##unchecked-structure-set! __obj137923 __tmp138059 '13 '#f '#f)) + (let ((__tmp138061 |gxc[1]#_g138062_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137886 __tmp138024 '14 '#f '#f)) + (##unchecked-structure-set! __obj137923 __tmp138061 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137923 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137923 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137923 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137923 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137923 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137923 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137886 '() '20 '#f '#f)) - __obj137886)) + (##unchecked-structure-set! __obj137923 '() '20 '#f '#f)) + __obj137923)) (define |gxc[:0:]#::false-special-form| - (let ((__obj137887 + (let ((__obj137924 (let () (declare (not safe)) (##structure @@ -2974,7 +2974,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137887 + __obj137924 'gxc#::false-special-form::t '1 '#f @@ -2982,65 +2982,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137887 + __obj137924 '::false-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137924 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137924 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137924 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137924 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137924 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137924 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '#f '11 '#f '#f)) - (let ((__tmp138026 |gxc[1]#_g138027_|)) + (##unchecked-structure-set! __obj137924 '#f '11 '#f '#f)) + (let ((__tmp138063 |gxc[1]#_g138064_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137887 __tmp138026 '12 '#f '#f)) - (let ((__tmp138028 |gxc[1]#_g138029_|)) + (##unchecked-structure-set! __obj137924 __tmp138063 '12 '#f '#f)) + (let ((__tmp138065 |gxc[1]#_g138066_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137887 __tmp138028 '13 '#f '#f)) - (let ((__tmp138030 |gxc[1]#_g138031_|)) + (##unchecked-structure-set! __obj137924 __tmp138065 '13 '#f '#f)) + (let ((__tmp138067 |gxc[1]#_g138068_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137887 __tmp138030 '14 '#f '#f)) + (##unchecked-structure-set! __obj137924 __tmp138067 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137924 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137924 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137924 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137924 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137924 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137924 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137887 '() '20 '#f '#f)) - __obj137887)) + (##unchecked-structure-set! __obj137924 '() '20 '#f '#f)) + __obj137924)) (define |gxc[:0:]#::false| - (let ((__obj137888 + (let ((__obj137925 (let () (declare (not safe)) (##structure @@ -3068,65 +3068,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 'gxc#::false::t '1 '#f '#f)) + (##unchecked-structure-set! __obj137925 'gxc#::false::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '::false '2 '#f '#f)) + (##unchecked-structure-set! __obj137925 '::false '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137925 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '() '6 '#f '#f)) - (let ((__tmp138032 - (cons |gxc[1]#_g138033_| (cons |gxc[1]#_g138034_| '())))) + (##unchecked-structure-set! __obj137925 '() '6 '#f '#f)) + (let ((__tmp138069 + (cons |gxc[1]#_g138070_| (cons |gxc[1]#_g138071_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137888 __tmp138032 '3 '#f '#f)) + (##unchecked-structure-set! __obj137925 __tmp138069 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137925 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137925 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137925 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '#f '11 '#f '#f)) - (let ((__tmp138035 |gxc[1]#_g138036_|)) + (##unchecked-structure-set! __obj137925 '#f '11 '#f '#f)) + (let ((__tmp138072 |gxc[1]#_g138073_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137888 __tmp138035 '12 '#f '#f)) - (let ((__tmp138037 |gxc[1]#_g138038_|)) + (##unchecked-structure-set! __obj137925 __tmp138072 '12 '#f '#f)) + (let ((__tmp138074 |gxc[1]#_g138075_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137888 __tmp138037 '13 '#f '#f)) - (let ((__tmp138039 |gxc[1]#_g138040_|)) + (##unchecked-structure-set! __obj137925 __tmp138074 '13 '#f '#f)) + (let ((__tmp138076 |gxc[1]#_g138077_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137888 __tmp138039 '14 '#f '#f)) + (##unchecked-structure-set! __obj137925 __tmp138076 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137925 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137925 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137925 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137925 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137925 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137925 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137888 '() '20 '#f '#f)) - __obj137888)) + (##unchecked-structure-set! __obj137925 '() '20 '#f '#f)) + __obj137925)) (define |gxc[:0:]#::identity-expression| - (let ((__obj137889 + (let ((__obj137926 (let () (declare (not safe)) (##structure @@ -3155,7 +3155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137889 + __obj137926 'gxc#::identity-expression::t '1 '#f @@ -3163,65 +3163,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137889 + __obj137926 '::identity-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137926 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137926 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137926 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137926 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137926 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137926 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '#f '11 '#f '#f)) - (let ((__tmp138041 |gxc[1]#_g138042_|)) + (##unchecked-structure-set! __obj137926 '#f '11 '#f '#f)) + (let ((__tmp138078 |gxc[1]#_g138079_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137889 __tmp138041 '12 '#f '#f)) - (let ((__tmp138043 |gxc[1]#_g138044_|)) + (##unchecked-structure-set! __obj137926 __tmp138078 '12 '#f '#f)) + (let ((__tmp138080 |gxc[1]#_g138081_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137889 __tmp138043 '13 '#f '#f)) - (let ((__tmp138045 |gxc[1]#_g138046_|)) + (##unchecked-structure-set! __obj137926 __tmp138080 '13 '#f '#f)) + (let ((__tmp138082 |gxc[1]#_g138083_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137889 __tmp138045 '14 '#f '#f)) + (##unchecked-structure-set! __obj137926 __tmp138082 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137926 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137926 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137926 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137926 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137926 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137926 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137889 '() '20 '#f '#f)) - __obj137889)) + (##unchecked-structure-set! __obj137926 '() '20 '#f '#f)) + __obj137926)) (define |gxc[:0:]#::identity-special-form| - (let ((__obj137890 + (let ((__obj137927 (let () (declare (not safe)) (##structure @@ -3250,7 +3250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137890 + __obj137927 'gxc#::identity-special-form::t '1 '#f @@ -3258,65 +3258,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137890 + __obj137927 '::identity-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137927 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137927 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137927 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137927 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137927 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137927 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '#f '11 '#f '#f)) - (let ((__tmp138047 |gxc[1]#_g138048_|)) + (##unchecked-structure-set! __obj137927 '#f '11 '#f '#f)) + (let ((__tmp138084 |gxc[1]#_g138085_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137890 __tmp138047 '12 '#f '#f)) - (let ((__tmp138049 |gxc[1]#_g138050_|)) + (##unchecked-structure-set! __obj137927 __tmp138084 '12 '#f '#f)) + (let ((__tmp138086 |gxc[1]#_g138087_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137890 __tmp138049 '13 '#f '#f)) - (let ((__tmp138051 |gxc[1]#_g138052_|)) + (##unchecked-structure-set! __obj137927 __tmp138086 '13 '#f '#f)) + (let ((__tmp138088 |gxc[1]#_g138089_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137890 __tmp138051 '14 '#f '#f)) + (##unchecked-structure-set! __obj137927 __tmp138088 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137927 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137927 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137927 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137927 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137927 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137927 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137890 '() '20 '#f '#f)) - __obj137890)) + (##unchecked-structure-set! __obj137927 '() '20 '#f '#f)) + __obj137927)) (define |gxc[:0:]#::identity| - (let ((__obj137891 + (let ((__obj137928 (let () (declare (not safe)) (##structure @@ -3345,69 +3345,69 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137891 + __obj137928 'gxc#::identity::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '::identity '2 '#f '#f)) + (##unchecked-structure-set! __obj137928 '::identity '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137928 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '() '6 '#f '#f)) - (let ((__tmp138053 - (cons |gxc[1]#_g138054_| (cons |gxc[1]#_g138055_| '())))) + (##unchecked-structure-set! __obj137928 '() '6 '#f '#f)) + (let ((__tmp138090 + (cons |gxc[1]#_g138091_| (cons |gxc[1]#_g138092_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137891 __tmp138053 '3 '#f '#f)) + (##unchecked-structure-set! __obj137928 __tmp138090 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137928 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137928 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137928 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '#f '11 '#f '#f)) - (let ((__tmp138056 |gxc[1]#_g138057_|)) + (##unchecked-structure-set! __obj137928 '#f '11 '#f '#f)) + (let ((__tmp138093 |gxc[1]#_g138094_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137891 __tmp138056 '12 '#f '#f)) - (let ((__tmp138058 |gxc[1]#_g138059_|)) + (##unchecked-structure-set! __obj137928 __tmp138093 '12 '#f '#f)) + (let ((__tmp138095 |gxc[1]#_g138096_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137891 __tmp138058 '13 '#f '#f)) - (let ((__tmp138060 |gxc[1]#_g138061_|)) + (##unchecked-structure-set! __obj137928 __tmp138095 '13 '#f '#f)) + (let ((__tmp138097 |gxc[1]#_g138098_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137891 __tmp138060 '14 '#f '#f)) + (##unchecked-structure-set! __obj137928 __tmp138097 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137928 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137928 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137928 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137928 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137928 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137928 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137891 '() '20 '#f '#f)) - __obj137891)) + (##unchecked-structure-set! __obj137928 '() '20 '#f '#f)) + __obj137928)) (define |gxc[:0:]#::basic-xform-expression| - (let ((__obj137892 + (let ((__obj137929 (let () (declare (not safe)) (##structure @@ -3436,7 +3436,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137892 + __obj137929 'gxc#::basic-xform-expression::t '1 '#f @@ -3444,65 +3444,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137892 + __obj137929 '::basic-xform-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137929 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj137929 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj137929 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137929 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137929 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137929 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '#f '11 '#f '#f)) - (let ((__tmp138062 |gxc[1]#_g138063_|)) + (##unchecked-structure-set! __obj137929 '#f '11 '#f '#f)) + (let ((__tmp138099 |gxc[1]#_g138100_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137892 __tmp138062 '12 '#f '#f)) - (let ((__tmp138064 |gxc[1]#_g138065_|)) + (##unchecked-structure-set! __obj137929 __tmp138099 '12 '#f '#f)) + (let ((__tmp138101 |gxc[1]#_g138102_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137892 __tmp138064 '13 '#f '#f)) - (let ((__tmp138066 |gxc[1]#_g138067_|)) + (##unchecked-structure-set! __obj137929 __tmp138101 '13 '#f '#f)) + (let ((__tmp138103 |gxc[1]#_g138104_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137892 __tmp138066 '14 '#f '#f)) + (##unchecked-structure-set! __obj137929 __tmp138103 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137929 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137929 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137929 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137929 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137929 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137929 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137892 '() '20 '#f '#f)) - __obj137892)) + (##unchecked-structure-set! __obj137929 '() '20 '#f '#f)) + __obj137929)) (define |gxc[:0:]#::basic-xform| - (let ((__obj137893 + (let ((__obj137930 (let () (declare (not safe)) (##structure @@ -3531,64 +3531,64 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137893 + __obj137930 'gxc#::basic-xform::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '::basic-xform '2 '#f '#f)) + (##unchecked-structure-set! __obj137930 '::basic-xform '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj137930 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '() '6 '#f '#f)) - (let ((__tmp138068 - (cons |gxc[1]#_g138069_| (cons |gxc[1]#_g138070_| '())))) + (##unchecked-structure-set! __obj137930 '() '6 '#f '#f)) + (let ((__tmp138105 + (cons |gxc[1]#_g138106_| (cons |gxc[1]#_g138107_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137893 __tmp138068 '3 '#f '#f)) + (##unchecked-structure-set! __obj137930 __tmp138105 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj137930 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj137930 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj137930 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '#f '11 '#f '#f)) - (let ((__tmp138071 |gxc[1]#_g138072_|)) + (##unchecked-structure-set! __obj137930 '#f '11 '#f '#f)) + (let ((__tmp138108 |gxc[1]#_g138109_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137893 __tmp138071 '12 '#f '#f)) - (let ((__tmp138073 |gxc[1]#_g138074_|)) + (##unchecked-structure-set! __obj137930 __tmp138108 '12 '#f '#f)) + (let ((__tmp138110 |gxc[1]#_g138111_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137893 __tmp138073 '13 '#f '#f)) - (let ((__tmp138075 |gxc[1]#_g138076_|)) + (##unchecked-structure-set! __obj137930 __tmp138110 '13 '#f '#f)) + (let ((__tmp138112 |gxc[1]#_g138113_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137893 __tmp138075 '14 '#f '#f)) + (##unchecked-structure-set! __obj137930 __tmp138112 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj137930 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj137930 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj137930 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj137930 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj137930 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj137930 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137893 '() '20 '#f '#f)) - __obj137893)))) + (##unchecked-structure-set! __obj137930 '() '20 '#f '#f)) + __obj137930)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm index 9fb639ef9..2bc5e8454 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 1733687564) + (define gerbil/compiler/optimize-ann::timestamp 1733870079) (begin (declare (inlining-limit 200)) (define gxc#::optimize-annotated::t - (let ((__tmp192402 (list gxc#::basic-xform::t)) - (__tmp192401 (cons (cons 'final: '#t) '()))) + (let ((__tmp192439 (list gxc#::basic-xform::t)) + (__tmp192438 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-annotated::t '::optimize-annotated - __tmp192402 + __tmp192439 '() - __tmp192401 + __tmp192438 '#f))) (define gxc#::optimize-annotated? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-annotated::t))) (define gxc#make-::optimize-annotated - (lambda _%$args189287%_ - (apply make-instance gxc#::optimize-annotated::t _%$args189287%_))) + (lambda _%$args189324%_ + (apply make-instance gxc#::optimize-annotated::t _%$args189324%_))) (define gxc#::optimize-annotated-bind-methods! - (let ((__tmp192403 + (let ((__tmp192440 (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 __tmp192403))) + (__make-promise __tmp192440))) (define gxc#apply-optimize-annotated - (lambda (_%stx189279%_) + (lambda (_%stx189316%_) (force gxc#::optimize-annotated-bind-methods!) - (let* ((_%self189282%_ - (let ((__obj192393 + (let* ((_%self189319%_ + (let ((__obj192430 (let () (declare (not safe)) (##structure gxc#::optimize-annotated::t)))) - __obj192393)) - (__tmp192404 + __obj192430)) + (__tmp192441 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189282%_ _%stx189279%_))))) + (gxc#compile-e__1 _%self189319%_ _%stx189316%_))))) (declare (not safe)) (__call-with-parameters - __tmp192404 + __tmp192441 gxc#current-compile-method - _%self189282%_)))) + _%self189319%_)))) (define gxc#::generate-runtime-repr::t - (let ((__tmp192406 (list gxc#::generate-runtime::t)) - (__tmp192405 (cons (cons 'final: '#t) '()))) + (let ((__tmp192443 (list gxc#::generate-runtime::t)) + (__tmp192442 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-repr::t '::generate-runtime-repr - __tmp192406 + __tmp192443 '() - __tmp192405 + __tmp192442 '#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 _%$args189276%_ - (apply make-instance gxc#::generate-runtime-repr::t _%$args189276%_))) + (lambda _%$args189313%_ + (apply make-instance gxc#::generate-runtime-repr::t _%$args189313%_))) (define gxc#::generate-runtime-repr-bind-methods! - (let ((__tmp192407 + (let ((__tmp192444 (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 __tmp192407))) + (__make-promise __tmp192444))) (define gxc#apply-generate-runtime-repr - (lambda (_%stx189268%_) + (lambda (_%stx189305%_) (force gxc#::generate-runtime-repr-bind-methods!) - (let* ((_%self189271%_ - (let ((__obj192395 + (let* ((_%self189308%_ + (let ((__obj192432 (let () (declare (not safe)) (##structure gxc#::generate-runtime-repr::t)))) - __obj192395)) - (__tmp192408 + __obj192432)) + (__tmp192445 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189271%_ _%stx189268%_))))) + (gxc#compile-e__1 _%self189308%_ _%stx189305%_))))) (declare (not safe)) (__call-with-parameters - __tmp192408 + __tmp192445 gxc#current-compile-method - _%self189271%_)))) + _%self189308%_)))) (define gxc#::push-match-vars::t - (let ((__tmp192410 (list)) (__tmp192409 (cons (cons 'final: '#t) '()))) + (let ((__tmp192447 (list)) (__tmp192446 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::push-match-vars::t '::push-match-vars - __tmp192410 + __tmp192447 '(vars K) - __tmp192409 + __tmp192446 '#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 _%$args189265%_ - (apply make-instance gxc#::push-match-vars::t _%$args189265%_))) + (lambda _%$args189302%_ + (apply make-instance gxc#::push-match-vars::t _%$args189302%_))) (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 ((__tmp192411 + (let ((__tmp192448 (lambda () (let () (declare (not safe)) @@ -199,1646 +199,1646 @@ (declare (not safe)) (__seal-class! gxc#::push-match-vars::t))))) (declare (not safe)) - (__make-promise __tmp192411))) + (__make-promise __tmp192448))) (define gxc#apply-push-match-vars__% - (lambda (_%@@keywords189235%_ - _%vars189231189236%_ - _%K189232189238%_ - _%stx189240%_) - (let* ((_%vars189243%_ - (if (eq? _%vars189231189236%_ absent-value) + (lambda (_%@@keywords189272%_ + _%vars189268189273%_ + _%K189269189275%_ + _%stx189277%_) + (let* ((_%vars189280%_ + (if (eq? _%vars189268189273%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'vars:)) - _%vars189231189236%_)) - (_%K189245%_ - (if (eq? _%K189232189238%_ absent-value) + _%vars189268189273%_)) + (_%K189282%_ + (if (eq? _%K189269189275%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'K:)) - _%K189232189238%_))) + _%K189269189275%_))) (force gxc#::push-match-vars-bind-methods!) - (let* ((_%self189247%_ - (let ((__obj192397 + (let* ((_%self189284%_ + (let ((__obj192434 (let () (declare (not safe)) (##structure gxc#::push-match-vars::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj192397 - _%vars189243%_ + __obj192434 + _%vars189280%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj192397 - _%K189245%_ + __obj192434 + _%K189282%_ '2 '#f '#f)) - __obj192397)) - (__tmp192412 + __obj192434)) + (__tmp192449 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189247%_ _%stx189240%_))))) + (gxc#compile-e__1 _%self189284%_ _%stx189277%_))))) (declare (not safe)) (__call-with-parameters - __tmp192412 + __tmp192449 gxc#current-compile-method - _%self189247%_))))) + _%self189284%_))))) (define gxc#apply-push-match-vars__@ - (lambda (_%@@keywords189254%_ . _%args189255%_) + (lambda (_%@@keywords189291%_ . _%args189292%_) (apply gxc#apply-push-match-vars__% - _%@@keywords189254%_ + _%@@keywords189291%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords189254%_ 'vars: absent-value)) + (symbolic-table-ref _%@@keywords189291%_ 'vars: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords189254%_ 'K: absent-value)) - _%args189255%_))) + (symbolic-table-ref _%@@keywords189291%_ 'K: absent-value)) + _%args189292%_))) (define gxc#apply-push-match-vars - (lambda _%args189233189261%_ + (lambda _%args189270189298%_ (apply keyword-dispatch '#(K: vars:) gxc#apply-push-match-vars__@ - _%args189233189261%_))) + _%args189270189298%_))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_%self189147%_ _%stx189148%_) - (let* ((_%__stx189303189304%_ _%stx189148%_) - (_%g189151189168%_ + (lambda (_%self189184%_ _%stx189185%_) + (let* ((_%__stx189340189341%_ _%stx189185%_) + (_%g189188189205%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189303189304%_))))) - (let ((_%__kont189305189306%_ - (lambda (_%L189204%_ _%L189205%_) - (let ((_%ann189221%_ + _%__stx189340189341%_))))) + (let ((_%__kont189342189343%_ + (lambda (_%L189241%_ _%L189242%_) + (let ((_%ann189258%_ (let () (declare (not safe)) - (gx#stx-e _%L189205%_)))) - (let ((__tmp192414 + (gx#stx-e _%L189242%_)))) + (let ((__tmp192451 (lambda () - (let ((_%$e189224%_ _%ann189221%_)) - (if (eq? '@match _%$e189224%_) + (let ((_%$e189261%_ _%ann189258%_)) + (if (eq? '@match _%$e189261%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing match expansion")) - (gxc#optimize-match _%L189204%_)) - (if (eq? '@syntax-case _%$e189224%_) + (gxc#optimize-match _%L189241%_)) + (if (eq? '@syntax-case _%$e189261%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing syntax-case expansion")) (gxc#optimize-syntax-case - _%L189204%_)) + _%L189241%_)) (let () (declare (not safe)) - (gxc#compile-e__0 _%L189204%_))))))) - (__tmp192413 - (cons _%ann189221%_ + (gxc#compile-e__0 _%L189241%_))))))) + (__tmp192450 + (cons _%ann189258%_ (let () (declare (not safe)) (gxc#current-annotation-optimizer))))) (declare (not safe)) (__call-with-parameters - __tmp192414 + __tmp192451 gxc#current-annotation-optimizer - __tmp192413))))) - (_%__kont189307189308%_ + __tmp192450))))) + (_%__kont189344189345%_ (lambda () (let () (declare (not safe)) (gxc#xform-begin-annotation% - _%self189147%_ - _%stx189148%_))))) - (let ((_%__match189328189329%_ - (lambda (_%e189155189180%_ - _%hd189156189183%_ - _%tl189157189185%_ - _%e189158189188%_ - _%hd189159189191%_ - _%tl189160189193%_ - _%e189161189196%_ - _%hd189162189199%_ - _%tl189163189201%_) - (let ((_%L189204%_ _%hd189162189199%_) - (_%L189205%_ _%hd189159189191%_)) + _%self189184%_ + _%stx189185%_))))) + (let ((_%__match189365189366%_ + (lambda (_%e189192189217%_ + _%hd189193189220%_ + _%tl189194189222%_ + _%e189195189225%_ + _%hd189196189228%_ + _%tl189197189230%_ + _%e189198189233%_ + _%hd189199189236%_ + _%tl189200189238%_) + (let ((_%L189241%_ _%hd189199189236%_) + (_%L189242%_ _%hd189196189228%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L189205%_)) - (_%__kont189305189306%_ _%L189204%_ _%L189205%_) - (_%__kont189307189308%_)))))) + (gx#identifier? _%L189242%_)) + (_%__kont189342189343%_ _%L189241%_ _%L189242%_) + (_%__kont189344189345%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189303189304%_)) - (let ((_%e189155189180%_ + (gx#stx-pair? _%__stx189340189341%_)) + (let ((_%e189192189217%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189303189304%_)))) - (let ((_%tl189157189185%_ + (gx#stx-e _%__stx189340189341%_)))) + (let ((_%tl189194189222%_ (let () (declare (not safe)) - (##cdr _%e189155189180%_))) - (_%hd189156189183%_ + (##cdr _%e189192189217%_))) + (_%hd189193189220%_ (let () (declare (not safe)) - (##car _%e189155189180%_)))) + (##car _%e189192189217%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189157189185%_)) - (let ((_%e189158189188%_ + (gx#stx-pair? _%tl189194189222%_)) + (let ((_%e189195189225%_ (let () (declare (not safe)) - (gx#stx-e _%tl189157189185%_)))) - (let ((_%tl189160189193%_ + (gx#stx-e _%tl189194189222%_)))) + (let ((_%tl189197189230%_ (let () (declare (not safe)) - (##cdr _%e189158189188%_))) - (_%hd189159189191%_ + (##cdr _%e189195189225%_))) + (_%hd189196189228%_ (let () (declare (not safe)) - (##car _%e189158189188%_)))) + (##car _%e189195189225%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189160189193%_)) - (let ((_%e189161189196%_ + (gx#stx-pair? _%tl189197189230%_)) + (let ((_%e189198189233%_ (let () (declare (not safe)) - (gx#stx-e _%tl189160189193%_)))) - (let ((_%tl189163189201%_ + (gx#stx-e _%tl189197189230%_)))) + (let ((_%tl189200189238%_ (let () (declare (not safe)) - (##cdr _%e189161189196%_))) - (_%hd189162189199%_ + (##cdr _%e189198189233%_))) + (_%hd189199189236%_ (let () (declare (not safe)) - (##car _%e189161189196%_)))) + (##car _%e189198189233%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189163189201%_)) - (_%__match189328189329%_ - _%e189155189180%_ - _%hd189156189183%_ - _%tl189157189185%_ - _%e189158189188%_ - _%hd189159189191%_ - _%tl189160189193%_ - _%e189161189196%_ - _%hd189162189199%_ - _%tl189163189201%_) - (_%__kont189307189308%_)))) - (_%__kont189307189308%_)))) - (_%__kont189307189308%_)))) - (_%__kont189307189308%_))))))) + (gx#stx-null? _%tl189200189238%_)) + (_%__match189365189366%_ + _%e189192189217%_ + _%hd189193189220%_ + _%tl189194189222%_ + _%e189195189225%_ + _%hd189196189228%_ + _%tl189197189230%_ + _%e189198189233%_ + _%hd189199189236%_ + _%tl189200189238%_) + (_%__kont189344189345%_)))) + (_%__kont189344189345%_)))) + (_%__kont189344189345%_)))) + (_%__kont189344189345%_))))))) (define gxc#optimize-match - (lambda (_%stx188446%_) - (let* ((_%g188448188478%_ - (lambda (_%g188449188475%_) + (lambda (_%stx188483%_) + (let* ((_%g188485188515%_ + (lambda (_%g188486188512%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g188449188475%_)))) - (_%g188447189144%_ - (lambda (_%g188449188481%_) + _%g188486188512%_)))) + (_%g188484189181%_ + (lambda (_%g188486188518%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188449188481%_)) - (let ((_%e188453188483%_ + (gx#stx-pair? _%g188486188518%_)) + (let ((_%e188490188520%_ (let () (declare (not safe)) - (gx#stx-e _%g188449188481%_)))) - (let ((_%hd188454188486%_ + (gx#stx-e _%g188486188518%_)))) + (let ((_%hd188491188523%_ (let () (declare (not safe)) - (##car _%e188453188483%_))) - (_%tl188455188488%_ + (##car _%e188490188520%_))) + (_%tl188492188525%_ (let () (declare (not safe)) - (##cdr _%e188453188483%_)))) + (##cdr _%e188490188520%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188454188486%_)) + (gx#identifier? _%hd188491188523%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188454188486%_)) + _%hd188491188523%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188455188488%_)) - (let ((_%e188456188491%_ + (gx#stx-pair? _%tl188492188525%_)) + (let ((_%e188493188528%_ (let () (declare (not safe)) - (gx#stx-e _%tl188455188488%_)))) - (let ((_%hd188457188494%_ + (gx#stx-e _%tl188492188525%_)))) + (let ((_%hd188494188531%_ (let () (declare (not safe)) - (##car _%e188456188491%_))) - (_%tl188458188496%_ + (##car _%e188493188528%_))) + (_%tl188495188533%_ (let () (declare (not safe)) - (##cdr _%e188456188491%_)))) + (##cdr _%e188493188528%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188457188494%_)) - (let ((_%e188459188499%_ + _%hd188494188531%_)) + (let ((_%e188496188536%_ (let () (declare (not safe)) (gx#stx-e - _%hd188457188494%_)))) - (let ((_%hd188460188502%_ + _%hd188494188531%_)))) + (let ((_%hd188497188539%_ (let () (declare (not safe)) - (##car _%e188459188499%_))) - (_%tl188461188504%_ + (##car _%e188496188536%_))) + (_%tl188498188541%_ (let () (declare (not safe)) - (##cdr _%e188459188499%_)))) + (##cdr _%e188496188536%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188460188502%_)) - (let ((_%e188462188507%_ + _%hd188497188539%_)) + (let ((_%e188499188544%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd188460188502%_)))) - (let ((_%hd188463188510%_ - (let () (declare (not safe)) (##car _%e188462188507%_))) - (_%tl188464188512%_ + (gx#stx-e _%hd188497188539%_)))) + (let ((_%hd188500188547%_ + (let () (declare (not safe)) (##car _%e188499188544%_))) + (_%tl188501188549%_ (let () (declare (not safe)) - (##cdr _%e188462188507%_)))) + (##cdr _%e188499188544%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188463188510%_)) - (let ((_%e188465188515%_ + (gx#stx-pair? _%hd188500188547%_)) + (let ((_%e188502188552%_ (let () (declare (not safe)) - (gx#stx-e _%hd188463188510%_)))) - (let ((_%hd188466188518%_ + (gx#stx-e _%hd188500188547%_)))) + (let ((_%hd188503188555%_ (let () (declare (not safe)) - (##car _%e188465188515%_))) - (_%tl188467188520%_ + (##car _%e188502188552%_))) + (_%tl188504188557%_ (let () (declare (not safe)) - (##cdr _%e188465188515%_)))) + (##cdr _%e188502188552%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188467188520%_)) + (gx#stx-null? _%tl188504188557%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188464188512%_)) - (let ((_%e188468188523%_ + (gx#stx-pair? _%tl188501188549%_)) + (let ((_%e188505188560%_ (let () (declare (not safe)) - (gx#stx-e _%tl188464188512%_)))) - (let ((_%hd188469188526%_ + (gx#stx-e _%tl188501188549%_)))) + (let ((_%hd188506188563%_ (let () (declare (not safe)) - (##car _%e188468188523%_))) - (_%tl188470188528%_ + (##car _%e188505188560%_))) + (_%tl188507188565%_ (let () (declare (not safe)) - (##cdr _%e188468188523%_)))) + (##cdr _%e188505188560%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188470188528%_)) + (gx#stx-null? _%tl188507188565%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188461188504%_)) + _%tl188498188541%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188458188496%_)) - (let ((_%e188471188531%_ + _%tl188495188533%_)) + (let ((_%e188508188568%_ (let () (declare (not safe)) (gx#stx-e - _%tl188458188496%_)))) - (let ((_%hd188472188534%_ + _%tl188495188533%_)))) + (let ((_%hd188509188571%_ (let () (declare (not safe)) - (##car _%e188471188531%_))) - (_%tl188473188536%_ + (##car _%e188508188568%_))) + (_%tl188510188573%_ (let () (declare (not safe)) - (##cdr _%e188471188531%_)))) + (##cdr _%e188508188568%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188473188536%_)) - ((lambda (_%L188539%_ + _%tl188510188573%_)) + ((lambda (_%L188576%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L188540%_ - _%L188541%_) - (let _%lp188565%_ ((_%body188567%_ _%L188539%_) - (_%negation188568%_ - (cons _%L188541%_ _%L188540%_)) - (_%clauses188569%_ '()) - (_%konts188570%_ '())) - (let* ((_%__stx189511189512%_ _%body188567%_) - (_%g188573188613%_ + _%L188577%_ + _%L188578%_) + (let _%lp188602%_ ((_%body188604%_ _%L188576%_) + (_%negation188605%_ + (cons _%L188578%_ _%L188577%_)) + (_%clauses188606%_ '()) + (_%konts188607%_ '())) + (let* ((_%__stx189548189549%_ _%body188604%_) + (_%g188610188650%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189511189512%_))))) - (let ((_%__kont189513189514%_ - (lambda (_%L188943%_) - (let* ((_%__stx189447189448%_ _%L188943%_) - (_%g188957188987%_ + _%__stx189548189549%_))))) + (let ((_%__kont189550189551%_ + (lambda (_%L188980%_) + (let* ((_%__stx189484189485%_ _%L188980%_) + (_%g188994189024%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189447189448%_))))) - (let ((_%__kont189449189450%_ - (lambda (_%L189083%_ - _%L189084%_ - _%L189085%_) - (if (null? _%clauses188569%_) - (let* ((_%negation189109189116%_ - _%negation188568%_) - (_%E189111189120%_ + _%__stx189484189485%_))))) + (let ((_%__kont189486189487%_ + (lambda (_%L189120%_ + _%L189121%_ + _%L189122%_) + (if (null? _%clauses188606%_) + (let* ((_%negation189146189153%_ + _%negation188605%_) + (_%E189148189157%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%negation189109189116%_ + _%negation189146189153%_ '([E . negate]))) '#!void)) - (_%K189112189126%_ - (lambda (_%negate189123%_ _%E189124%_) - (let ((__tmp192415 + (_%K189149189163%_ + (lambda (_%negate189160%_ _%E189161%_) + (let ((__tmp192452 (cons '%#let-values - (cons (cons (cons (cons _%E189124%_ '()) - (cons _%negate189123%_ '())) + (cons (cons (cons (cons _%E189161%_ '()) + (cons _%negate189160%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L189085%_ + (cons (cons (cons (cons _%L189122%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%L189084%_)) + (gxc#compile-e__0 _%L189121%_)) '())) '()) - (cons _%L189083%_ '()))) + (cons _%L189120%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192415 _%stx188446%_))))) + (gxc#xform-wrap-source __tmp192452 _%stx188483%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation189109189116%_) - (let ((_%hd189113189129%_ + (if (pair? _%negation189146189153%_) + (let ((_%hd189150189166%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%negation189109189116%_))) - (_%tl189114189131%_ + (##car _%negation189146189153%_))) + (_%tl189151189168%_ (let () (declare (not safe)) - (##cdr _%negation189109189116%_)))) - (let* ((_%E189134%_ _%hd189113189129%_) - (_%negate189136%_ _%tl189114189131%_)) - (_%K189112189126%_ _%negate189136%_ _%E189134%_))) - (_%E189111189120%_))) + (##cdr _%negation189146189153%_)))) + (let* ((_%E189171%_ _%hd189150189166%_) + (_%negate189173%_ _%tl189151189168%_)) + (_%K189149189163%_ _%negate189173%_ _%E189171%_))) + (_%E189148189157%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#optimize-match-body - _%stx188446%_ - _%negation188568%_ + _%stx188483%_ + _%negation188605%_ (cons (cons '#f (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L189083%_ '())))) - _%clauses188569%_) + (cons '() (cons _%L189120%_ '())))) + _%clauses188606%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L189085%_ + (cons (cons _%L189122%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _%L189084%_))) - _%konts188570%_))))) + (gxc#compile-e__0 _%L189121%_))) + _%konts188607%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189451189452%_ + (_%__kont189488189489%_ (lambda () - (let* ((_%negation188993189000%_ - _%negation188568%_) - (_%E188995189004%_ + (let* ((_%negation189030189037%_ + _%negation188605%_) + (_%E189032189041%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation188993189000%_ + _%negation189030189037%_ '([E ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . negate]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K188996189010%_ - (lambda (_%negate189007%_ - _%E189008%_) - (let ((__tmp192416 + (_%K189033189047%_ + (lambda (_%negate189044%_ + _%E189045%_) + (let ((__tmp192453 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%E189008%_ '()) - (cons _%negate189007%_ '())) + (cons (cons (cons (cons _%E189045%_ '()) + (cons _%negate189044%_ '())) '()) - (cons _%L188943%_ '()))))) + (cons _%L188980%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192416 _%stx188446%_))))) + (gxc#xform-wrap-source __tmp192453 _%stx188483%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation188993189000%_) - (let ((_%hd188997189013%_ + (if (pair? _%negation189030189037%_) + (let ((_%hd189034189050%_ (let () (declare (not safe)) - (##car _%negation188993189000%_))) - (_%tl188998189015%_ + (##car _%negation189030189037%_))) + (_%tl189035189052%_ (let () (declare (not safe)) - (##cdr _%negation188993189000%_)))) - (let* ((_%E189018%_ - _%hd188997189013%_) - (_%negate189020%_ - _%tl188998189015%_)) - (_%K188996189010%_ - _%negate189020%_ - _%E189018%_))) - (_%E188995189004%_)))))) - (let ((_%g188956189022%_ + (##cdr _%negation189030189037%_)))) + (let* ((_%E189055%_ + _%hd189034189050%_) + (_%negate189057%_ + _%tl189035189052%_)) + (_%K189033189047%_ + _%negate189057%_ + _%E189055%_))) + (_%E189032189041%_)))))) + (let ((_%g188993189059%_ (lambda () - (if (null? _%clauses188569%_) - (_%__kont189451189452%_) + (if (null? _%clauses188606%_) + (_%__kont189488189489%_) (let () (declare (not safe)) - (_%g188957188987%_)))))) + (_%g188994189024%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189447189448%_)) - (let ((_%e188962189027%_ + _%__stx189484189485%_)) + (let ((_%e188999189064%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189447189448%_)))) - (let ((_%tl188964189032%_ + _%__stx189484189485%_)))) + (let ((_%tl189001189069%_ (let () (declare (not safe)) - (##cdr _%e188962189027%_))) - (_%hd188963189030%_ + (##cdr _%e188999189064%_))) + (_%hd189000189067%_ (let () (declare (not safe)) - (##car _%e188962189027%_)))) + (##car _%e188999189064%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188963189030%_)) + _%hd189000189067%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188963189030%_)) + _%hd189000189067%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188964189032%_)) - (let ((_%e188965189035%_ + _%tl189001189069%_)) + (let ((_%e189002189072%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl188964189032%_)))) - (let ((_%tl188967189040%_ + (gx#stx-e _%tl189001189069%_)))) + (let ((_%tl189004189077%_ (let () (declare (not safe)) - (##cdr _%e188965189035%_))) - (_%hd188966189038%_ + (##cdr _%e189002189072%_))) + (_%hd189003189075%_ (let () (declare (not safe)) - (##car _%e188965189035%_)))) + (##car _%e189002189072%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188966189038%_)) - (let ((_%e188968189043%_ + (gx#stx-pair? _%hd189003189075%_)) + (let ((_%e189005189080%_ (let () (declare (not safe)) - (gx#stx-e _%hd188966189038%_)))) - (let ((_%tl188970189048%_ + (gx#stx-e _%hd189003189075%_)))) + (let ((_%tl189007189085%_ (let () (declare (not safe)) - (##cdr _%e188968189043%_))) - (_%hd188969189046%_ + (##cdr _%e189005189080%_))) + (_%hd189006189083%_ (let () (declare (not safe)) - (##car _%e188968189043%_)))) + (##car _%e189005189080%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188969189046%_)) - (let ((_%e188971189051%_ + (gx#stx-pair? _%hd189006189083%_)) + (let ((_%e189008189088%_ (let () (declare (not safe)) - (gx#stx-e _%hd188969189046%_)))) - (let ((_%tl188973189056%_ + (gx#stx-e _%hd189006189083%_)))) + (let ((_%tl189010189093%_ (let () (declare (not safe)) - (##cdr _%e188971189051%_))) - (_%hd188972189054%_ + (##cdr _%e189008189088%_))) + (_%hd189009189091%_ (let () (declare (not safe)) - (##car _%e188971189051%_)))) + (##car _%e189008189088%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188972189054%_)) - (let ((_%e188974189059%_ + _%hd189009189091%_)) + (let ((_%e189011189096%_ (let () (declare (not safe)) (gx#stx-e - _%hd188972189054%_)))) - (let ((_%tl188976189064%_ + _%hd189009189091%_)))) + (let ((_%tl189013189101%_ (let () (declare (not safe)) - (##cdr _%e188974189059%_))) - (_%hd188975189062%_ + (##cdr _%e189011189096%_))) + (_%hd189012189099%_ (let () (declare (not safe)) - (##car _%e188974189059%_)))) + (##car _%e189011189096%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188976189064%_)) + _%tl189013189101%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188973189056%_)) - (let ((_%e188977189067%_ + _%tl189010189093%_)) + (let ((_%e189014189104%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl188973189056%_)))) - (let ((_%tl188979189072%_ + (gx#stx-e _%tl189010189093%_)))) + (let ((_%tl189016189109%_ (let () (declare (not safe)) - (##cdr _%e188977189067%_))) - (_%hd188978189070%_ + (##cdr _%e189014189104%_))) + (_%hd189015189107%_ (let () (declare (not safe)) - (##car _%e188977189067%_)))) + (##car _%e189014189104%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188979189072%_)) + (gx#stx-null? _%tl189016189109%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188970189048%_)) + (gx#stx-null? _%tl189007189085%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188967189040%_)) - (let ((_%e188980189075%_ + (gx#stx-pair? _%tl189004189077%_)) + (let ((_%e189017189112%_ (let () (declare (not safe)) - (gx#stx-e _%tl188967189040%_)))) - (let ((_%tl188982189080%_ + (gx#stx-e _%tl189004189077%_)))) + (let ((_%tl189019189117%_ (let () (declare (not safe)) - (##cdr _%e188980189075%_))) - (_%hd188981189078%_ + (##cdr _%e189017189112%_))) + (_%hd189018189115%_ (let () (declare (not safe)) - (##car _%e188980189075%_)))) + (##car _%e189017189112%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188982189080%_)) - (_%__kont189449189450%_ - _%hd188981189078%_ - _%hd188978189070%_ - _%hd188975189062%_) + (gx#stx-null? _%tl189019189117%_)) + (_%__kont189486189487%_ + _%hd189018189115%_ + _%hd189015189107%_ + _%hd189012189099%_) (let () (declare (not safe)) - (_%g188956189022%_))))) + (_%g188993189059%_))))) (let () (declare (not safe)) - (_%g188956189022%_))) - (let () (declare (not safe)) (_%g188956189022%_))) - (let () (declare (not safe)) (_%g188956189022%_))))) - (let () (declare (not safe)) (_%g188956189022%_))) + (_%g188993189059%_))) + (let () (declare (not safe)) (_%g188993189059%_))) + (let () (declare (not safe)) (_%g188993189059%_))))) + (let () (declare (not safe)) (_%g188993189059%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188956189022%_))))) + (_%g188993189059%_))))) (let () (declare (not safe)) - (_%g188956189022%_))))) + (_%g188993189059%_))))) (let () (declare (not safe)) - (_%g188956189022%_))))) + (_%g188993189059%_))))) (let () (declare (not safe)) - (_%g188956189022%_))))) - (let () (declare (not safe)) (_%g188956189022%_))) - (let () (declare (not safe)) (_%g188956189022%_))) + (_%g188993189059%_))))) + (let () (declare (not safe)) (_%g188993189059%_))) + (let () (declare (not safe)) (_%g188993189059%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188956189022%_))))) + (_%g188993189059%_))))) (let () (declare (not safe)) - (_%g188956189022%_)))))))) - (_%__kont189515189516%_ - (lambda (_%L188674%_ _%L188675%_ _%L188676%_) - (let* ((_%__stx189331189332%_ _%L188675%_) - (_%g188703188752%_ + (_%g188993189059%_)))))))) + (_%__kont189552189553%_ + (lambda (_%L188711%_ _%L188712%_ _%L188713%_) + (let* ((_%__stx189368189369%_ _%L188712%_) + (_%g188740188789%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189331189332%_))))) - (let ((_%__kont189333189334%_ - (lambda (_%L188880%_ - _%L188881%_ - _%L188882%_) - (_%lp188565%_ - _%L188674%_ - _%negation188568%_ - (cons (cons _%L188676%_ + _%__stx189368189369%_))))) + (let ((_%__kont189370189371%_ + (lambda (_%L188917%_ + _%L188918%_ + _%L188919%_) + (_%lp188602%_ + _%L188711%_ + _%negation188605%_ + (cons (cons _%L188713%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L188880%_ '())))) + (cons '() (cons _%L188917%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clauses188569%_) - (cons (cons _%L188882%_ + _%clauses188606%_) + (cons (cons _%L188919%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L188881%_))) - _%konts188570%_)))) - (_%__kont189335189336%_ - (lambda (_%L188781%_) - (_%lp188565%_ - _%L188674%_ - (cons _%L188676%_ + _%L188918%_))) + _%konts188607%_)))) + (_%__kont189372189373%_ + (lambda (_%L188818%_) + (_%lp188602%_ + _%L188711%_ + (cons _%L188713%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L188781%_))) - _%clauses188569%_ - _%konts188570%_)))) + _%L188818%_))) + _%clauses188606%_ + _%konts188607%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189331189332%_)) - (let ((_%e188708188800%_ + _%__stx189368189369%_)) + (let ((_%e188745188837%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189331189332%_)))) - (let ((_%tl188710188805%_ + _%__stx189368189369%_)))) + (let ((_%tl188747188842%_ (let () (declare (not safe)) - (##cdr _%e188708188800%_))) - (_%hd188709188803%_ + (##cdr _%e188745188837%_))) + (_%hd188746188840%_ (let () (declare (not safe)) - (##car _%e188708188800%_)))) + (##car _%e188745188837%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188709188803%_)) + _%hd188746188840%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188709188803%_)) + _%hd188746188840%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188710188805%_)) - (let ((_%e188711188808%_ + _%tl188747188842%_)) + (let ((_%e188748188845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl188710188805%_)))) - (let ((_%tl188713188813%_ + (gx#stx-e _%tl188747188842%_)))) + (let ((_%tl188750188850%_ (let () (declare (not safe)) - (##cdr _%e188711188808%_))) - (_%hd188712188811%_ + (##cdr _%e188748188845%_))) + (_%hd188749188848%_ (let () (declare (not safe)) - (##car _%e188711188808%_)))) + (##car _%e188748188845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd188712188811%_)) + (gx#stx-null? _%hd188749188848%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188713188813%_)) - (let ((_%e188714188816%_ + (gx#stx-pair? _%tl188750188850%_)) + (let ((_%e188751188853%_ (let () (declare (not safe)) - (gx#stx-e _%tl188713188813%_)))) - (let ((_%tl188716188821%_ + (gx#stx-e _%tl188750188850%_)))) + (let ((_%tl188753188858%_ (let () (declare (not safe)) - (##cdr _%e188714188816%_))) - (_%hd188715188819%_ + (##cdr _%e188751188853%_))) + (_%hd188752188856%_ (let () (declare (not safe)) - (##car _%e188714188816%_)))) + (##car _%e188751188853%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188715188819%_)) - (let ((_%e188717188824%_ + (gx#stx-pair? _%hd188752188856%_)) + (let ((_%e188754188861%_ (let () (declare (not safe)) - (gx#stx-e _%hd188715188819%_)))) - (let ((_%tl188719188829%_ + (gx#stx-e _%hd188752188856%_)))) + (let ((_%tl188756188866%_ (let () (declare (not safe)) - (##cdr _%e188717188824%_))) - (_%hd188718188827%_ + (##cdr _%e188754188861%_))) + (_%hd188755188864%_ (let () (declare (not safe)) - (##car _%e188717188824%_)))) + (##car _%e188754188861%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188718188827%_)) + _%hd188755188864%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188718188827%_)) + _%hd188755188864%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188719188829%_)) - (let ((_%e188720188832%_ + _%tl188756188866%_)) + (let ((_%e188757188869%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl188719188829%_)))) - (let ((_%tl188722188837%_ - (let () (declare (not safe)) (##cdr _%e188720188832%_))) - (_%hd188721188835%_ + (gx#stx-e _%tl188756188866%_)))) + (let ((_%tl188759188874%_ + (let () (declare (not safe)) (##cdr _%e188757188869%_))) + (_%hd188758188872%_ (let () (declare (not safe)) - (##car _%e188720188832%_)))) + (##car _%e188757188869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188721188835%_)) - (let ((_%e188723188840%_ + (gx#stx-pair? _%hd188758188872%_)) + (let ((_%e188760188877%_ (let () (declare (not safe)) - (gx#stx-e _%hd188721188835%_)))) - (let ((_%tl188725188845%_ + (gx#stx-e _%hd188758188872%_)))) + (let ((_%tl188762188882%_ (let () (declare (not safe)) - (##cdr _%e188723188840%_))) - (_%hd188724188843%_ + (##cdr _%e188760188877%_))) + (_%hd188761188880%_ (let () (declare (not safe)) - (##car _%e188723188840%_)))) + (##car _%e188760188877%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188724188843%_)) - (let ((_%e188726188848%_ + (gx#stx-pair? _%hd188761188880%_)) + (let ((_%e188763188885%_ (let () (declare (not safe)) - (gx#stx-e _%hd188724188843%_)))) - (let ((_%tl188728188853%_ + (gx#stx-e _%hd188761188880%_)))) + (let ((_%tl188765188890%_ (let () (declare (not safe)) - (##cdr _%e188726188848%_))) - (_%hd188727188851%_ + (##cdr _%e188763188885%_))) + (_%hd188764188888%_ (let () (declare (not safe)) - (##car _%e188726188848%_)))) + (##car _%e188763188885%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188727188851%_)) - (let ((_%e188729188856%_ + (gx#stx-pair? _%hd188764188888%_)) + (let ((_%e188766188893%_ (let () (declare (not safe)) - (gx#stx-e _%hd188727188851%_)))) - (let ((_%tl188731188861%_ + (gx#stx-e _%hd188764188888%_)))) + (let ((_%tl188768188898%_ (let () (declare (not safe)) - (##cdr _%e188729188856%_))) - (_%hd188730188859%_ + (##cdr _%e188766188893%_))) + (_%hd188767188896%_ (let () (declare (not safe)) - (##car _%e188729188856%_)))) + (##car _%e188766188893%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188731188861%_)) + _%tl188768188898%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188728188853%_)) - (let ((_%e188732188864%_ + _%tl188765188890%_)) + (let ((_%e188769188901%_ (let () (declare (not safe)) (gx#stx-e - _%tl188728188853%_)))) - (let ((_%tl188734188869%_ + _%tl188765188890%_)))) + (let ((_%tl188771188906%_ (let () (declare (not safe)) - (##cdr _%e188732188864%_))) - (_%hd188733188867%_ + (##cdr _%e188769188901%_))) + (_%hd188770188904%_ (let () (declare (not safe)) - (##car _%e188732188864%_)))) + (##car _%e188769188901%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188734188869%_)) + _%tl188771188906%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl188725188845%_)) + (gx#stx-null? _%tl188762188882%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188722188837%_)) - (let ((_%e188735188872%_ + (gx#stx-pair? _%tl188759188874%_)) + (let ((_%e188772188909%_ (let () (declare (not safe)) - (gx#stx-e _%tl188722188837%_)))) - (let ((_%tl188737188877%_ + (gx#stx-e _%tl188759188874%_)))) + (let ((_%tl188774188914%_ (let () (declare (not safe)) - (##cdr _%e188735188872%_))) - (_%hd188736188875%_ + (##cdr _%e188772188909%_))) + (_%hd188773188912%_ (let () (declare (not safe)) - (##car _%e188735188872%_)))) + (##car _%e188772188909%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188737188877%_)) + (gx#stx-null? _%tl188774188914%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188716188821%_)) - (_%__kont189333189334%_ - _%hd188736188875%_ - _%hd188733188867%_ - _%hd188730188859%_) + (gx#stx-null? _%tl188753188858%_)) + (_%__kont189370189371%_ + _%hd188773188912%_ + _%hd188770188904%_ + _%hd188767188896%_) (let () (declare (not safe)) - (_%g188703188752%_))) + (_%g188740188789%_))) (let () (declare (not safe)) - (_%g188703188752%_))))) - (let () (declare (not safe)) (_%g188703188752%_))) - (let () (declare (not safe)) (_%g188703188752%_))) - (let () (declare (not safe)) (_%g188703188752%_))))) + (_%g188740188789%_))))) + (let () (declare (not safe)) (_%g188740188789%_))) + (let () (declare (not safe)) (_%g188740188789%_))) + (let () (declare (not safe)) (_%g188740188789%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188703188752%_))) + (_%g188740188789%_))) (let () (declare (not safe)) - (_%g188703188752%_))))) + (_%g188740188789%_))))) (let () (declare (not safe)) - (_%g188703188752%_))))) + (_%g188740188789%_))))) (let () (declare (not safe)) - (_%g188703188752%_))))) - (let () (declare (not safe)) (_%g188703188752%_))))) - (let () (declare (not safe)) (_%g188703188752%_))) + (_%g188740188789%_))))) + (let () (declare (not safe)) (_%g188740188789%_))))) + (let () (declare (not safe)) (_%g188740188789%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188703188752%_))) + (_%g188740188789%_))) (let () (declare (not safe)) - (_%g188703188752%_))))) + (_%g188740188789%_))))) (let () (declare (not safe)) - (_%g188703188752%_))))) + (_%g188740188789%_))))) (let () (declare (not safe)) - (_%g188703188752%_))) - (let () (declare (not safe)) (_%g188703188752%_))))) - (let () (declare (not safe)) (_%g188703188752%_))) + (_%g188740188789%_))) + (let () (declare (not safe)) (_%g188740188789%_))))) + (let () (declare (not safe)) (_%g188740188789%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _%hd188709188803%_)) + (gx#stx-eq? '%#begin-annotation _%hd188746188840%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188710188805%_)) - (let ((_%e188742188765%_ + (gx#stx-pair? _%tl188747188842%_)) + (let ((_%e188779188802%_ (let () (declare (not safe)) - (gx#stx-e _%tl188710188805%_)))) - (let ((_%tl188744188770%_ + (gx#stx-e _%tl188747188842%_)))) + (let ((_%tl188781188807%_ (let () (declare (not safe)) - (##cdr _%e188742188765%_))) - (_%hd188743188768%_ + (##cdr _%e188779188802%_))) + (_%hd188780188805%_ (let () (declare (not safe)) - (##car _%e188742188765%_)))) + (##car _%e188779188802%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188743188768%_)) + (gx#identifier? _%hd188780188805%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-else - _%hd188743188768%_)) + _%hd188780188805%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188744188770%_)) - (let ((_%e188745188773%_ + (gx#stx-pair? _%tl188781188807%_)) + (let ((_%e188782188810%_ (let () (declare (not safe)) - (gx#stx-e _%tl188744188770%_)))) - (let ((_%tl188747188778%_ + (gx#stx-e _%tl188781188807%_)))) + (let ((_%tl188784188815%_ (let () (declare (not safe)) - (##cdr _%e188745188773%_))) - (_%hd188746188776%_ + (##cdr _%e188782188810%_))) + (_%hd188783188813%_ (let () (declare (not safe)) - (##car _%e188745188773%_)))) + (##car _%e188782188810%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188747188778%_)) - (_%__kont189335189336%_ - _%hd188746188776%_) + _%tl188784188815%_)) + (_%__kont189372189373%_ + _%hd188783188813%_) (let () (declare (not safe)) - (_%g188703188752%_))))) + (_%g188740188789%_))))) (let () (declare (not safe)) - (_%g188703188752%_))) + (_%g188740188789%_))) (let () (declare (not safe)) - (_%g188703188752%_))) + (_%g188740188789%_))) (let () (declare (not safe)) - (_%g188703188752%_))))) - (let () (declare (not safe)) (_%g188703188752%_))) - (let () (declare (not safe)) (_%g188703188752%_)))) + (_%g188740188789%_))))) + (let () (declare (not safe)) (_%g188740188789%_))) + (let () (declare (not safe)) (_%g188740188789%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188703188752%_))))) + (_%g188740188789%_))))) (let () (declare (not safe)) - (_%g188703188752%_)))))))) + (_%g188740188789%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189511189512%_)) - (let ((_%e188576188919%_ + (gx#stx-pair? _%__stx189548189549%_)) + (let ((_%e188613188956%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189511189512%_)))) - (let ((_%tl188578188924%_ + (gx#stx-e _%__stx189548189549%_)))) + (let ((_%tl188615188961%_ (let () (declare (not safe)) - (##cdr _%e188576188919%_))) - (_%hd188577188922%_ + (##cdr _%e188613188956%_))) + (_%hd188614188959%_ (let () (declare (not safe)) - (##car _%e188576188919%_)))) + (##car _%e188613188956%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188577188922%_)) + (gx#identifier? _%hd188614188959%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _%hd188577188922%_)) + _%hd188614188959%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188578188924%_)) - (let ((_%e188579188927%_ + _%tl188615188961%_)) + (let ((_%e188616188964%_ (let () (declare (not safe)) (gx#stx-e - _%tl188578188924%_)))) - (let ((_%tl188581188932%_ + _%tl188615188961%_)))) + (let ((_%tl188618188969%_ (let () (declare (not safe)) - (##cdr _%e188579188927%_))) - (_%hd188580188930%_ + (##cdr _%e188616188964%_))) + (_%hd188617188967%_ (let () (declare (not safe)) - (##car _%e188579188927%_)))) + (##car _%e188616188964%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188580188930%_)) + _%hd188617188967%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _%hd188580188930%_)) + _%hd188617188967%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl188581188932%_)) - (let ((_%e188582188935%_ + (gx#stx-pair? _%tl188618188969%_)) + (let ((_%e188619188972%_ (let () (declare (not safe)) - (gx#stx-e _%tl188581188932%_)))) - (let ((_%tl188584188940%_ + (gx#stx-e _%tl188618188969%_)))) + (let ((_%tl188621188977%_ (let () (declare (not safe)) - (##cdr _%e188582188935%_))) - (_%hd188583188938%_ + (##cdr _%e188619188972%_))) + (_%hd188620188975%_ (let () (declare (not safe)) - (##car _%e188582188935%_)))) + (##car _%e188619188972%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188584188940%_)) - (_%__kont189513189514%_ _%hd188583188938%_) + (gx#stx-null? _%tl188621188977%_)) + (_%__kont189550189551%_ _%hd188620188975%_) (let () (declare (not safe)) - (_%g188573188613%_))))) - (let () (declare (not safe)) (_%g188573188613%_))) - (let () (declare (not safe)) (_%g188573188613%_))) - (let () (declare (not safe)) (_%g188573188613%_))))) + (_%g188610188650%_))))) + (let () (declare (not safe)) (_%g188610188650%_))) + (let () (declare (not safe)) (_%g188610188650%_))) + (let () (declare (not safe)) (_%g188610188650%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188573188613%_))) + (_%g188610188650%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188577188922%_)) + _%hd188614188959%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188578188924%_)) - (let ((_%e188591188626%_ + _%tl188615188961%_)) + (let ((_%e188628188663%_ (let () (declare (not safe)) (gx#stx-e - _%tl188578188924%_)))) - (let ((_%tl188593188631%_ + _%tl188615188961%_)))) + (let ((_%tl188630188668%_ (let () (declare (not safe)) - (##cdr _%e188591188626%_))) - (_%hd188592188629%_ + (##cdr _%e188628188663%_))) + (_%hd188629188666%_ (let () (declare (not safe)) - (##car _%e188591188626%_)))) + (##car _%e188628188663%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188592188629%_)) - (let ((_%e188594188634%_ + _%hd188629188666%_)) + (let ((_%e188631188671%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd188592188629%_)))) - (let ((_%tl188596188639%_ + (gx#stx-e _%hd188629188666%_)))) + (let ((_%tl188633188676%_ (let () (declare (not safe)) - (##cdr _%e188594188634%_))) - (_%hd188595188637%_ + (##cdr _%e188631188671%_))) + (_%hd188632188674%_ (let () (declare (not safe)) - (##car _%e188594188634%_)))) + (##car _%e188631188671%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188595188637%_)) - (let ((_%e188597188642%_ + (gx#stx-pair? _%hd188632188674%_)) + (let ((_%e188634188679%_ (let () (declare (not safe)) - (gx#stx-e _%hd188595188637%_)))) - (let ((_%tl188599188647%_ + (gx#stx-e _%hd188632188674%_)))) + (let ((_%tl188636188684%_ (let () (declare (not safe)) - (##cdr _%e188597188642%_))) - (_%hd188598188645%_ + (##cdr _%e188634188679%_))) + (_%hd188635188682%_ (let () (declare (not safe)) - (##car _%e188597188642%_)))) + (##car _%e188634188679%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188598188645%_)) - (let ((_%e188600188650%_ + (gx#stx-pair? _%hd188635188682%_)) + (let ((_%e188637188687%_ (let () (declare (not safe)) - (gx#stx-e _%hd188598188645%_)))) - (let ((_%tl188602188655%_ + (gx#stx-e _%hd188635188682%_)))) + (let ((_%tl188639188692%_ (let () (declare (not safe)) - (##cdr _%e188600188650%_))) - (_%hd188601188653%_ + (##cdr _%e188637188687%_))) + (_%hd188638188690%_ (let () (declare (not safe)) - (##car _%e188600188650%_)))) + (##car _%e188637188687%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188602188655%_)) + (gx#stx-null? _%tl188639188692%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188599188647%_)) - (let ((_%e188603188658%_ + _%tl188636188684%_)) + (let ((_%e188640188695%_ (let () (declare (not safe)) (gx#stx-e - _%tl188599188647%_)))) - (let ((_%tl188605188663%_ + _%tl188636188684%_)))) + (let ((_%tl188642188700%_ (let () (declare (not safe)) - (##cdr _%e188603188658%_))) - (_%hd188604188661%_ + (##cdr _%e188640188695%_))) + (_%hd188641188698%_ (let () (declare (not safe)) - (##car _%e188603188658%_)))) + (##car _%e188640188695%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188605188663%_)) + _%tl188642188700%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188596188639%_)) + _%tl188633188676%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl188593188631%_)) - (let ((_%e188606188666%_ + (gx#stx-pair? _%tl188630188668%_)) + (let ((_%e188643188703%_ (let () (declare (not safe)) - (gx#stx-e _%tl188593188631%_)))) - (let ((_%tl188608188671%_ + (gx#stx-e _%tl188630188668%_)))) + (let ((_%tl188645188708%_ (let () (declare (not safe)) - (##cdr _%e188606188666%_))) - (_%hd188607188669%_ + (##cdr _%e188643188703%_))) + (_%hd188644188706%_ (let () (declare (not safe)) - (##car _%e188606188666%_)))) + (##car _%e188643188703%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188608188671%_)) - (_%__kont189515189516%_ - _%hd188607188669%_ - _%hd188604188661%_ - _%hd188601188653%_) + (gx#stx-null? _%tl188645188708%_)) + (_%__kont189552189553%_ + _%hd188644188706%_ + _%hd188641188698%_ + _%hd188638188690%_) (let () (declare (not safe)) - (_%g188573188613%_))))) - (let () (declare (not safe)) (_%g188573188613%_))) - (let () (declare (not safe)) (_%g188573188613%_))) - (let () (declare (not safe)) (_%g188573188613%_))))) + (_%g188610188650%_))))) + (let () (declare (not safe)) (_%g188610188650%_))) + (let () (declare (not safe)) (_%g188610188650%_))) + (let () (declare (not safe)) (_%g188610188650%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188573188613%_))) + (_%g188610188650%_))) (let () (declare (not safe)) - (_%g188573188613%_))))) + (_%g188610188650%_))))) (let () (declare (not safe)) - (_%g188573188613%_))))) - (let () (declare (not safe)) (_%g188573188613%_))))) - (let () (declare (not safe)) (_%g188573188613%_))))) + (_%g188610188650%_))))) + (let () (declare (not safe)) (_%g188610188650%_))))) + (let () (declare (not safe)) (_%g188610188650%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188573188613%_))) + (_%g188610188650%_))) (let () (declare (not safe)) - (_%g188573188613%_)))) + (_%g188610188650%_)))) (let () (declare (not safe)) - (_%g188573188613%_))))) + (_%g188610188650%_))))) (let () (declare (not safe)) - (_%g188573188613%_))))))) - _%hd188472188534%_ - _%hd188469188526%_ - _%hd188466188518%_) - (_%g188448188478%_ _%g188449188481%_)))) + (_%g188610188650%_))))))) + _%hd188509188571%_ + _%hd188506188563%_ + _%hd188503188555%_) + (_%g188485188515%_ _%g188486188518%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188448188478%_ - _%g188449188481%_)) - (_%g188448188478%_ - _%g188449188481%_)) - (_%g188448188478%_ - _%g188449188481%_)))) - (_%g188448188478%_ _%g188449188481%_)) - (_%g188448188478%_ _%g188449188481%_)))) - (_%g188448188478%_ _%g188449188481%_)))) - (_%g188448188478%_ _%g188449188481%_)))) + (_%g188485188515%_ + _%g188486188518%_)) + (_%g188485188515%_ + _%g188486188518%_)) + (_%g188485188515%_ + _%g188486188518%_)))) + (_%g188485188515%_ _%g188486188518%_)) + (_%g188485188515%_ _%g188486188518%_)))) + (_%g188485188515%_ _%g188486188518%_)))) + (_%g188485188515%_ _%g188486188518%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188448188478%_ - _%g188449188481%_)))) - (_%g188448188478%_ _%g188449188481%_)) - (_%g188448188478%_ _%g188449188481%_)) - (_%g188448188478%_ _%g188449188481%_)))) - (_%g188448188478%_ _%g188449188481%_))))) - (_%g188447189144%_ _%stx188446%_)))) + (_%g188485188515%_ + _%g188486188518%_)))) + (_%g188485188515%_ _%g188486188518%_)) + (_%g188485188515%_ _%g188486188518%_)) + (_%g188485188515%_ _%g188486188518%_)))) + (_%g188485188515%_ _%g188486188518%_))))) + (_%g188484189181%_ _%stx188483%_)))) (define gxc#optimize-match-body - (lambda (_%stx188152%_ - _%negation188153%_ - _%clauses188154%_ - _%konts188155%_) - (letrec ((_%push-variables188157%_ - (lambda (_%clause188404%_ _%kont188405%_) - (let ((_%clause188406188416%_ _%clause188404%_) - (_%kont188407188418%_ _%kont188405%_)) - (let* ((_%E188409188422%_ + (lambda (_%stx188189%_ + _%negation188190%_ + _%clauses188191%_ + _%konts188192%_) + (letrec ((_%push-variables188194%_ + (lambda (_%clause188441%_ _%kont188442%_) + (let ((_%clause188443188453%_ _%clause188441%_) + (_%kont188444188455%_ _%kont188442%_)) + (let* ((_%E188446188459%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause188406188416%_ - _%kont188407188418%_ + _%clause188443188453%_ + _%kont188444188455%_ '([clause-name . clause-lambda] [K . _]))) '#!void)) - (_%K188410188429%_ - (lambda (_%clause-lambda188425%_ - _%clause-name188426%_ - _%K188427%_) - (cons _%clause-name188426%_ + (_%K188447188466%_ + (lambda (_%clause-lambda188462%_ + _%clause-name188463%_ + _%K188464%_) + (cons _%clause-name188463%_ (gxc#apply-push-match-vars__% '#f '() - _%K188427%_ - _%clause-lambda188425%_))))) - (if (pair? _%clause188406188416%_) - (let ((_%hd188413188432%_ + _%K188464%_ + _%clause-lambda188462%_))))) + (if (pair? _%clause188443188453%_) + (let ((_%hd188450188469%_ (let () (declare (not safe)) - (##car _%clause188406188416%_))) - (_%tl188414188434%_ + (##car _%clause188443188453%_))) + (_%tl188451188471%_ (let () (declare (not safe)) - (##cdr _%clause188406188416%_)))) - (let* ((_%clause-name188437%_ _%hd188413188432%_) - (_%clause-lambda188439%_ - _%tl188414188434%_)) - (if (pair? _%kont188407188418%_) - (let* ((_%hd188411188441%_ + (##cdr _%clause188443188453%_)))) + (let* ((_%clause-name188474%_ _%hd188450188469%_) + (_%clause-lambda188476%_ + _%tl188451188471%_)) + (if (pair? _%kont188444188455%_) + (let* ((_%hd188448188478%_ (let () (declare (not safe)) - (##car _%kont188407188418%_))) - (_%K188444%_ _%hd188411188441%_)) - (_%K188410188429%_ - _%clause-lambda188439%_ - _%clause-name188437%_ - _%K188444%_)) - (_%E188409188422%_)))) - (_%E188409188422%_)))))) - (_%start-match188158%_ - (lambda (_%kont188338%_) - (let* ((_%g188340188356%_ - (lambda (_%g188341188353%_) + (##car _%kont188444188455%_))) + (_%K188481%_ _%hd188448188478%_)) + (_%K188447188466%_ + _%clause-lambda188476%_ + _%clause-name188474%_ + _%K188481%_)) + (_%E188446188459%_)))) + (_%E188446188459%_)))))) + (_%start-match188195%_ + (lambda (_%kont188375%_) + (let* ((_%g188377188393%_ + (lambda (_%g188378188390%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g188341188353%_)))) - (_%g188339188401%_ - (lambda (_%g188341188359%_) + _%g188378188390%_)))) + (_%g188376188438%_ + (lambda (_%g188378188396%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188341188359%_)) - (let ((_%e188343188361%_ + (gx#stx-pair? _%g188378188396%_)) + (let ((_%e188380188398%_ (let () (declare (not safe)) - (gx#stx-e _%g188341188359%_)))) - (let ((_%hd188344188364%_ + (gx#stx-e _%g188378188396%_)))) + (let ((_%hd188381188401%_ (let () (declare (not safe)) - (##car _%e188343188361%_))) - (_%tl188345188366%_ + (##car _%e188380188398%_))) + (_%tl188382188403%_ (let () (declare (not safe)) - (##cdr _%e188343188361%_)))) + (##cdr _%e188380188398%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188344188364%_)) + _%hd188381188401%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188344188364%_)) + _%hd188381188401%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188345188366%_)) - (let ((_%e188346188369%_ + _%tl188382188403%_)) + (let ((_%e188383188406%_ (let () (declare (not safe)) (gx#stx-e - _%tl188345188366%_)))) - (let ((_%hd188347188372%_ + _%tl188382188403%_)))) + (let ((_%hd188384188409%_ (let () (declare (not safe)) - (##car _%e188346188369%_))) - (_%tl188348188374%_ + (##car _%e188383188406%_))) + (_%tl188385188411%_ (let () (declare (not safe)) - (##cdr _%e188346188369%_)))) + (##cdr _%e188383188406%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd188347188372%_)) + _%hd188384188409%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl188348188374%_)) - (let ((_%e188349188377%_ + (gx#stx-pair? _%tl188385188411%_)) + (let ((_%e188386188414%_ (let () (declare (not safe)) - (gx#stx-e _%tl188348188374%_)))) - (let ((_%hd188350188380%_ + (gx#stx-e _%tl188385188411%_)))) + (let ((_%hd188387188417%_ (let () (declare (not safe)) - (##car _%e188349188377%_))) - (_%tl188351188382%_ + (##car _%e188386188414%_))) + (_%tl188388188419%_ (let () (declare (not safe)) - (##cdr _%e188349188377%_)))) + (##cdr _%e188386188414%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188351188382%_)) - ((lambda (_%L188385%_) _%L188385%_) - _%hd188350188380%_) - (_%g188340188356%_ _%g188341188359%_)))) - (_%g188340188356%_ _%g188341188359%_)) - (_%g188340188356%_ _%g188341188359%_)))) + (gx#stx-null? _%tl188388188419%_)) + ((lambda (_%L188422%_) _%L188422%_) + _%hd188387188417%_) + (_%g188377188393%_ _%g188378188396%_)))) + (_%g188377188393%_ _%g188378188396%_)) + (_%g188377188393%_ _%g188378188396%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188340188356%_ - _%g188341188359%_)) - (_%g188340188356%_ - _%g188341188359%_)) - (_%g188340188356%_ - _%g188341188359%_)))) - (_%g188340188356%_ _%g188341188359%_))))) - (_%g188339188401%_ _%kont188338%_)))) - (_%match-body188159%_ - (lambda (_%blocks188235%_) - (let* ((_%blocks188236188245%_ _%blocks188235%_) - (_%E188238188249%_ + (_%g188377188393%_ + _%g188378188396%_)) + (_%g188377188393%_ + _%g188378188396%_)) + (_%g188377188393%_ + _%g188378188396%_)))) + (_%g188377188393%_ _%g188378188396%_))))) + (_%g188376188438%_ _%kont188375%_)))) + (_%match-body188196%_ + (lambda (_%blocks188272%_) + (let* ((_%blocks188273188282%_ _%blocks188272%_) + (_%E188275188286%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%blocks188236188245%_ + _%blocks188273188282%_ '([[#f . start] . rest]))) '#!void)) - (_%K188239188321%_ - (lambda (_%rest188252%_ _%start188253%_) - (let _%lp188255%_ ((_%rest188257%_ - _%rest188252%_) - (_%body188258%_ - (_%start-match188158%_ - _%start188253%_))) - (let* ((_%rest188259188267%_ _%rest188257%_) - (_%else188261188275%_ - (lambda () _%body188258%_)) - (_%K188263188309%_ - (lambda (_%rest188278%_ - _%block188279%_) - (let* ((_%block188280188287%_ - _%block188279%_) - (_%E188282188291%_ + (_%K188276188358%_ + (lambda (_%rest188289%_ _%start188290%_) + (let _%lp188292%_ ((_%rest188294%_ + _%rest188289%_) + (_%body188295%_ + (_%start-match188195%_ + _%start188290%_))) + (let* ((_%rest188296188304%_ _%rest188294%_) + (_%else188298188312%_ + (lambda () _%body188295%_)) + (_%K188300188346%_ + (lambda (_%rest188315%_ + _%block188316%_) + (let* ((_%block188317188324%_ + _%block188316%_) + (_%E188319188328%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block188280188287%_ + _%block188317188324%_ '([K . kont]))) '#!void)) - (_%K188283188297%_ - (lambda (_%kont188294%_ - _%K188295%_) - (_%lp188255%_ - _%rest188278%_ + (_%K188320188334%_ + (lambda (_%kont188331%_ + _%K188332%_) + (_%lp188292%_ + _%rest188315%_ (cons '%#let-values - (cons (cons (cons (cons _%K188295%_ + (cons (cons (cons (cons _%K188332%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%kont188294%_ '())) + (cons _%kont188331%_ '())) '()) - (cons _%body188258%_ '()))))))) + (cons _%body188295%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%block188280188287%_) - (let ((_%hd188284188300%_ + (if (pair? _%block188317188324%_) + (let ((_%hd188321188337%_ (let () (declare (not safe)) - (##car _%block188280188287%_))) - (_%tl188285188302%_ + (##car _%block188317188324%_))) + (_%tl188322188339%_ (let () (declare (not safe)) - (##cdr _%block188280188287%_)))) - (let* ((_%K188305%_ - _%hd188284188300%_) - (_%kont188307%_ - _%tl188285188302%_)) - (_%K188283188297%_ - _%kont188307%_ - _%K188305%_))) - (_%E188282188291%_)))))) - (if (pair? _%rest188259188267%_) - (let ((_%hd188264188312%_ + (##cdr _%block188317188324%_)))) + (let* ((_%K188342%_ + _%hd188321188337%_) + (_%kont188344%_ + _%tl188322188339%_)) + (_%K188320188334%_ + _%kont188344%_ + _%K188342%_))) + (_%E188319188328%_)))))) + (if (pair? _%rest188296188304%_) + (let ((_%hd188301188349%_ (let () (declare (not safe)) - (##car _%rest188259188267%_))) - (_%tl188265188314%_ + (##car _%rest188296188304%_))) + (_%tl188302188351%_ (let () (declare (not safe)) - (##cdr _%rest188259188267%_)))) - (let* ((_%block188317%_ - _%hd188264188312%_) - (_%rest188319%_ - _%tl188265188314%_)) - (_%K188263188309%_ - _%rest188319%_ - _%block188317%_))) - (_%else188261188275%_))))))) - (if (pair? _%blocks188236188245%_) - (let ((_%hd188240188324%_ + (##cdr _%rest188296188304%_)))) + (let* ((_%block188354%_ + _%hd188301188349%_) + (_%rest188356%_ + _%tl188302188351%_)) + (_%K188300188346%_ + _%rest188356%_ + _%block188354%_))) + (_%else188298188312%_))))))) + (if (pair? _%blocks188273188282%_) + (let ((_%hd188277188361%_ (let () (declare (not safe)) - (##car _%blocks188236188245%_))) - (_%tl188241188326%_ + (##car _%blocks188273188282%_))) + (_%tl188278188363%_ (let () (declare (not safe)) - (##cdr _%blocks188236188245%_)))) - (if (pair? _%hd188240188324%_) - (let ((_%hd188242188329%_ + (##cdr _%blocks188273188282%_)))) + (if (pair? _%hd188277188361%_) + (let ((_%hd188279188366%_ (let () (declare (not safe)) - (##car _%hd188240188324%_))) - (_%tl188243188331%_ + (##car _%hd188277188361%_))) + (_%tl188280188368%_ (let () (declare (not safe)) - (##cdr _%hd188240188324%_)))) + (##cdr _%hd188277188361%_)))) (if (let () (declare (not safe)) - (##eq? _%hd188242188329%_ '#f)) - (let* ((_%start188334%_ - _%tl188243188331%_) - (_%rest188336%_ - _%tl188241188326%_)) - (_%K188239188321%_ - _%rest188336%_ - _%start188334%_)) - (_%E188238188249%_))) - (_%E188238188249%_))) - (_%E188238188249%_)))))) - (let ((__tmp192418 + (##eq? _%hd188279188366%_ '#f)) + (let* ((_%start188371%_ + _%tl188280188368%_) + (_%rest188373%_ + _%tl188278188363%_)) + (_%K188276188358%_ + _%rest188373%_ + _%start188371%_)) + (_%E188275188286%_))) + (_%E188275188286%_))) + (_%E188275188286%_)))))) + (let ((__tmp192455 (lambda () - (let* ((_%clauses188162%_ - (map _%push-variables188157%_ - _%clauses188154%_ - _%konts188155%_)) - (_%blocks188164%_ - (gxc#optimize-match-basic-blocks _%clauses188162%_)) - (_%blocks188166%_ + (let* ((_%clauses188199%_ + (map _%push-variables188194%_ + _%clauses188191%_ + _%konts188192%_)) + (_%blocks188201%_ + (gxc#optimize-match-basic-blocks _%clauses188199%_)) + (_%blocks188203%_ (gxc#optimize-match-fold-basic-blocks - _%blocks188164%_)) - (_%body188168%_ - (_%match-body188159%_ _%blocks188166%_)) - (_%bind188202%_ - (map (lambda (_%e188169188171%_) - (let* ((_%g188173188180%_ _%e188169188171%_) - (_%E188175188184%_ + _%blocks188201%_)) + (_%body188205%_ + (_%match-body188196%_ _%blocks188203%_)) + (_%bind188239%_ + (map (lambda (_%e188206188208%_) + (let* ((_%g188210188217%_ _%e188206188208%_) + (_%E188212188221%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g188173188180%_ + _%g188210188217%_ '([K . kont]))) '#!void)) - (_%K188176188190%_ - (lambda (_%kont188187%_ _%K188188%_) - (cons (cons _%K188188%_ '()) - (cons _%kont188187%_ '()))))) - (if (pair? _%g188173188180%_) - (let ((_%hd188177188193%_ + (_%K188213188227%_ + (lambda (_%kont188224%_ _%K188225%_) + (cons (cons _%K188225%_ '()) + (cons _%kont188224%_ '()))))) + (if (pair? _%g188210188217%_) + (let ((_%hd188214188230%_ (let () (declare (not safe)) - (##car _%g188173188180%_))) - (_%tl188178188195%_ + (##car _%g188210188217%_))) + (_%tl188215188232%_ (let () (declare (not safe)) - (##cdr _%g188173188180%_)))) - (let* ((_%K188198%_ - _%hd188177188193%_) - (_%kont188200%_ - _%tl188178188195%_)) - (_%K188176188190%_ - _%kont188200%_ - _%K188198%_))) - (_%E188175188184%_)))) - _%konts188155%_)) - (_%negate188232%_ - (let* ((_%negation188203188210%_ _%negation188153%_) - (_%E188205188214%_ + (##cdr _%g188210188217%_)))) + (let* ((_%K188235%_ + _%hd188214188230%_) + (_%kont188237%_ + _%tl188215188232%_)) + (_%K188213188227%_ + _%kont188237%_ + _%K188235%_))) + (_%E188212188221%_)))) + _%konts188192%_)) + (_%negate188269%_ + (let* ((_%negation188240188247%_ _%negation188190%_) + (_%E188242188251%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation188203188210%_ + _%negation188240188247%_ '([K . kont]))) '#!void)) - (_%K188206188220%_ - (lambda (_%kont188217%_ _%K188218%_) - (cons (cons _%K188218%_ '()) - (cons _%kont188217%_ '()))))) - (if (pair? _%negation188203188210%_) - (let ((_%hd188207188223%_ + (_%K188243188257%_ + (lambda (_%kont188254%_ _%K188255%_) + (cons (cons _%K188255%_ '()) + (cons _%kont188254%_ '()))))) + (if (pair? _%negation188240188247%_) + (let ((_%hd188244188260%_ (let () (declare (not safe)) - (##car _%negation188203188210%_))) - (_%tl188208188225%_ + (##car _%negation188240188247%_))) + (_%tl188245188262%_ (let () (declare (not safe)) - (##cdr _%negation188203188210%_)))) - (let* ((_%K188228%_ _%hd188207188223%_) - (_%kont188230%_ _%tl188208188225%_)) - (_%K188206188220%_ - _%kont188230%_ - _%K188228%_))) - (_%E188205188214%_)))) - (__tmp192419 + (##cdr _%negation188240188247%_)))) + (let* ((_%K188265%_ _%hd188244188260%_) + (_%kont188267%_ _%tl188245188262%_)) + (_%K188243188257%_ + _%kont188267%_ + _%K188265%_))) + (_%E188242188251%_)))) + (__tmp192456 (cons '%#let-values - (cons (cons _%negate188232%_ '()) + (cons (cons _%negate188269%_ '()) (cons (cons '%#let-values - (cons _%bind188202%_ - (cons _%body188168%_ + (cons _%bind188239%_ + (cons _%body188205%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192419 _%stx188152%_)))) - (__tmp192417 - (let ((__obj192398 + (gxc#xform-wrap-source __tmp192456 _%stx188189%_)))) + (__tmp192454 + (let ((__obj192435 (let () (declare (not safe)) (##structure @@ -1850,1889 +1850,1889 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj192398)) - __obj192398))) + (gx#local-context:::init!__0 __obj192435)) + __obj192435))) (declare (not safe)) (__call-with-parameters - __tmp192418 + __tmp192455 gx#current-expander-context - __tmp192417))))) + __tmp192454))))) (define gxc#optimize-match-basic-blocks - (lambda (_%clauses188112%_) - (let _%lp188114%_ ((_%rest188116%_ _%clauses188112%_) - (_%blocks188117%_ '())) - (let* ((_%rest188118188126%_ _%rest188116%_) - (_%else188120188134%_ (lambda () (reverse _%blocks188117%_))) - (_%K188122188140%_ - (lambda (_%rest188137%_ _%clause188138%_) - (_%lp188114%_ - _%rest188137%_ + (lambda (_%clauses188149%_) + (let _%lp188151%_ ((_%rest188153%_ _%clauses188149%_) + (_%blocks188154%_ '())) + (let* ((_%rest188155188163%_ _%rest188153%_) + (_%else188157188171%_ (lambda () (reverse _%blocks188154%_))) + (_%K188159188177%_ + (lambda (_%rest188174%_ _%clause188175%_) + (_%lp188151%_ + _%rest188174%_ (gxc#optimize-match-lift-basic-blocks - _%clause188138%_ - _%blocks188117%_))))) - (if (pair? _%rest188118188126%_) - (let ((_%hd188123188143%_ + _%clause188175%_ + _%blocks188154%_))))) + (if (pair? _%rest188155188163%_) + (let ((_%hd188160188180%_ (let () (declare (not safe)) - (##car _%rest188118188126%_))) - (_%tl188124188145%_ + (##car _%rest188155188163%_))) + (_%tl188161188182%_ (let () (declare (not safe)) - (##cdr _%rest188118188126%_)))) - (let* ((_%clause188148%_ _%hd188123188143%_) - (_%rest188150%_ _%tl188124188145%_)) - (_%K188122188140%_ _%rest188150%_ _%clause188148%_))) - (_%else188120188134%_)))))) + (##cdr _%rest188155188163%_)))) + (let* ((_%clause188185%_ _%hd188160188180%_) + (_%rest188187%_ _%tl188161188182%_)) + (_%K188159188177%_ _%rest188187%_ _%clause188185%_))) + (_%else188157188171%_)))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_%clause187455%_ _%blocks187456%_) - (letrec ((_%bind->args187458%_ - (lambda (_%bind188107%_) - (let ((__tmp192420 - (lambda (_%b188109%_ _%r188110%_) - (cons (cons '%#ref (cons (car _%b188109%_) '())) - _%r188110%_)))) + (lambda (_%clause187492%_ _%blocks187493%_) + (letrec ((_%bind->args187495%_ + (lambda (_%bind188144%_) + (let ((__tmp192457 + (lambda (_%b188146%_ _%r188147%_) + (cons (cons '%#ref (cons (car _%b188146%_) '())) + _%r188147%_)))) (declare (not safe)) - (__foldl1 __tmp192420 '() _%bind188107%_)))) - (_%create-block187459%_ - (lambda (_%body188055%_ - _%let-bind188056%_ - _%bind188057%_ - _%assert188058%_) - (let* ((_%id188060%_ - (let ((__tmp192421 + (__foldl1 __tmp192457 '() _%bind188144%_)))) + (_%create-block187496%_ + (lambda (_%body188092%_ + _%let-bind188093%_ + _%bind188094%_ + _%assert188095%_) + (let* ((_%id188097%_ + (let ((__tmp192458 (let () (declare (not safe)) (##gensym '__match)))) (declare (not safe)) - (make-symbol__0 __tmp192421))) - (_%id188062%_ + (make-symbol__0 __tmp192458))) + (_%id188099%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id188060%_))) - (_%_188064%_ + (gx#core-quote-syntax__0 _%id188097%_))) + (_%_188101%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id188062%_))) - (_%block188066%_ - (cons _%id188062%_ - (cons _%body188055%_ - (cons _%bind188057%_ - (cons _%assert188058%_ '()))))) - (_%continue188068%_ + (gx#core-bind-runtime!__0 _%id188099%_))) + (_%block188103%_ + (cons _%id188099%_ + (cons _%body188092%_ + (cons _%bind188094%_ + (cons _%assert188095%_ '()))))) + (_%continue188105%_ (cons '%#call - (cons (cons '%#ref (cons _%id188062%_ '())) - (_%bind->args187458%_ - _%bind188057%_)))) - (_%continue188104%_ - (if (null? _%let-bind188056%_) - _%continue188068%_ - (let ((_%locals188102%_ - (map (lambda (_%e188069188071%_) - (let* ((_%g188073188080%_ - _%e188069188071%_) - (_%E188075188084%_ + (cons (cons '%#ref (cons _%id188099%_ '())) + (_%bind->args187495%_ + _%bind188094%_)))) + (_%continue188141%_ + (if (null? _%let-bind188093%_) + _%continue188105%_ + (let ((_%locals188139%_ + (map (lambda (_%e188106188108%_) + (let* ((_%g188110188117%_ + _%e188106188108%_) + (_%E188112188121%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g188073188080%_ + _%g188110188117%_ '([id . expr]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K188076188090%_ - (lambda (_%expr188087%_ - _%id188088%_) - (cons (cons _%id188088%_ + (_%K188113188127%_ + (lambda (_%expr188124%_ + _%id188125%_) + (cons (cons _%id188125%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr188087%_ '()))))) + (cons _%expr188124%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%g188073188080%_) - (let ((_%hd188077188093%_ + (if (pair? _%g188110188117%_) + (let ((_%hd188114188130%_ (let () (declare (not safe)) - (##car _%g188073188080%_))) - (_%tl188078188095%_ + (##car _%g188110188117%_))) + (_%tl188115188132%_ (let () (declare (not safe)) - (##cdr _%g188073188080%_)))) - (let* ((_%id188098%_ - _%hd188077188093%_) - (_%expr188100%_ - _%tl188078188095%_)) - (_%K188076188090%_ - _%expr188100%_ - _%id188098%_))) - (_%E188075188084%_)))) - _%let-bind188056%_))) + (##cdr _%g188110188117%_)))) + (let* ((_%id188135%_ + _%hd188114188130%_) + (_%expr188137%_ + _%tl188115188132%_)) + (_%K188113188127%_ + _%expr188137%_ + _%id188135%_))) + (_%E188112188121%_)))) + _%let-bind188093%_))) (cons '%#let-values - (cons _%locals188102%_ - (cons _%continue188068%_ + (cons _%locals188139%_ + (cons _%continue188105%_ '()))))))) - (values _%continue188104%_ _%block188066%_)))) - (_%basic-block187460%_ - (lambda (_%body187641%_ _%bind187642%_ _%assert187643%_) - (let* ((_%__stx189619189620%_ _%body187641%_) - (_%g187648187732%_ + (values _%continue188141%_ _%block188103%_)))) + (_%basic-block187497%_ + (lambda (_%body187678%_ _%bind187679%_ _%assert187680%_) + (let* ((_%__stx189656189657%_ _%body187678%_) + (_%g187685187769%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189619189620%_))))) - (let ((_%__kont189621189622%_ - (lambda (_%L187991%_ _%L187992%_ _%L187993%_) - (let ((_g192422_ - (_%create-block187459%_ - _%L187992%_ + _%__stx189656189657%_))))) + (let ((_%__kont189658189659%_ + (lambda (_%L188028%_ _%L188029%_ _%L188030%_) + (let ((_g192459_ + (_%create-block187496%_ + _%L188029%_ '() - _%bind187642%_ - (cons (cons _%L187993%_ '#t) - _%assert187643%_)))) + _%bind187679%_ + (cons (cons _%L188030%_ '#t) + _%assert187680%_)))) (begin - (let ((_g192423_ + (let ((_g192460_ (let () (declare (not safe)) - (if (##values? _g192422_) - (##vector-length _g192422_) + (if (##values? _g192459_) + (##vector-length _g192459_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192423_ 2))) + (##fx= _g192460_ 2))) (error "Context expects 2 values" - _g192423_))) - (let ((_%k-continue188011%_ + _g192460_))) + (let ((_%k-continue188048%_ (let () (declare (not safe)) - (##vector-ref _g192422_ 0))) - (_%k-block188012%_ + (##vector-ref _g192459_ 0))) + (_%k-block188049%_ (let () (declare (not safe)) - (##vector-ref _g192422_ 1)))) - (let* ((_%__stx189601189602%_ _%L187991%_) - (_%g188015188024%_ + (##vector-ref _g192459_ 1)))) + (let* ((_%__stx189638189639%_ _%L188028%_) + (_%g188052188061%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189601189602%_))))) - (let ((_%__kont189603189604%_ + _%__stx189638189639%_))))) + (let ((_%__kont189640189641%_ (lambda () (values (cons '%#if - (cons _%L187993%_ + (cons _%L188030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%k-continue188011%_ - (cons _%L187991%_ '())))) - (cons _%k-block188012%_ '())))) + (cons _%k-continue188048%_ + (cons _%L188028%_ '())))) + (cons _%k-block188049%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189605189606%_ + (_%__kont189642189643%_ (lambda () - (let ((_g192424_ - (_%create-block187459%_ - _%L187991%_ + (let ((_g192461_ + (_%create-block187496%_ + _%L188028%_ '() - _%bind187642%_ - (cons (cons _%L187993%_ + _%bind187679%_ + (cons (cons _%L188030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f) - _%assert187643%_)))) + _%assert187680%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g192425_ + (let ((_g192462_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g192424_) - (##vector-length _g192424_) + _g192461_) + (##vector-length _g192461_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g192425_ 2))) - (error "Context expects 2 values" _g192425_))) + (if (not (let () (declare (not safe)) (##fx= _g192462_ 2))) + (error "Context expects 2 values" _g192462_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%e-continue188031%_ + (let ((_%e-continue188068%_ (let () (declare (not safe)) (##vector-ref - _g192424_ + _g192461_ 0))) - (_%e-block188032%_ + (_%e-block188069%_ (let () (declare (not safe)) (##vector-ref - _g192424_ + _g192461_ 1)))) (values (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L187993%_ - (cons _%k-continue188011%_ - (cons _%e-continue188031%_ '())))) - (cons _%k-block188012%_ - (cons _%e-block188032%_ '()))))))))) + (cons _%L188030%_ + (cons _%k-continue188048%_ + (cons _%e-continue188068%_ '())))) + (cons _%k-block188049%_ + (cons _%e-block188069%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189601189602%_)) - (let ((_%e188017188039%_ + _%__stx189638189639%_)) + (let ((_%e188054188076%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189601189602%_)))) - (let ((_%tl188019188044%_ + _%__stx189638189639%_)))) + (let ((_%tl188056188081%_ (let () (declare (not safe)) - (##cdr _%e188017188039%_))) - (_%hd188018188042%_ + (##cdr _%e188054188076%_))) + (_%hd188055188079%_ (let () (declare (not safe)) - (##car _%e188017188039%_)))) + (##car _%e188054188076%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188018188042%_)) + _%hd188055188079%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd188018188042%_)) - (_%__kont189603189604%_) - (_%__kont189605189606%_)) - (_%__kont189605189606%_)))) - (_%__kont189605189606%_))))))))) - (_%__kont189623189624%_ - (lambda () (values _%body187641%_ '()))) - (_%__kont189627189628%_ - (lambda (_%L187820%_ _%L187821%_ _%L187822%_) - (let* ((_%let-bind187857%_ + _%hd188055188079%_)) + (_%__kont189640189641%_) + (_%__kont189642189643%_)) + (_%__kont189642189643%_)))) + (_%__kont189642189643%_))))))))) + (_%__kont189660189661%_ + (lambda () (values _%body187678%_ '()))) + (_%__kont189664189665%_ + (lambda (_%L187857%_ _%L187858%_ _%L187859%_) + (let* ((_%let-bind187894%_ (map cons - (let ((__tmp192426 - (lambda (_%g187842187845%_ - _%g187843187847%_) - (cons _%g187842187845%_ - _%g187843187847%_)))) + (let ((__tmp192463 + (lambda (_%g187879187882%_ + _%g187880187884%_) + (cons _%g187879187882%_ + _%g187880187884%_)))) (declare (not safe)) (__foldr1 - __tmp192426 + __tmp192463 '() - _%L187822%_)) - (let ((__tmp192427 - (lambda (_%g187849187852%_ - _%g187850187854%_) - (cons _%g187849187852%_ - _%g187850187854%_)))) + _%L187859%_)) + (let ((__tmp192464 + (lambda (_%g187886187889%_ + _%g187887187891%_) + (cons _%g187886187889%_ + _%g187887187891%_)))) (declare (not safe)) (__foldr1 - __tmp192427 + __tmp192464 '() - _%L187821%_)))) - (_g192428_ - (_%create-block187459%_ - _%L187820%_ - _%let-bind187857%_ + _%L187858%_)))) + (_g192465_ + (_%create-block187496%_ + _%L187857%_ + _%let-bind187894%_ (let () (declare (not safe)) (__foldl1 cons - _%bind187642%_ - _%let-bind187857%_)) - _%assert187643%_))) + _%bind187679%_ + _%let-bind187894%_)) + _%assert187680%_))) (begin - (let ((_g192429_ + (let ((_g192466_ (let () (declare (not safe)) - (if (##values? _g192428_) - (##vector-length _g192428_) + (if (##values? _g192465_) + (##vector-length _g192465_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192429_ 2))) + (##fx= _g192466_ 2))) (error "Context expects 2 values" - _g192429_))) - (let ((_%continue187859%_ + _g192466_))) + (let ((_%continue187896%_ (let () (declare (not safe)) - (##vector-ref _g192428_ 0))) - (_%block187860%_ + (##vector-ref _g192465_ 0))) + (_%block187897%_ (let () (declare (not safe)) - (##vector-ref _g192428_ 1)))) - (values _%continue187859%_ - (cons _%block187860%_ '()))))))) - (_%__kont189631189632%_ - (lambda () (values _%body187641%_ '())))) - (let* ((_%__match189710189711%_ - (lambda (_%e187699187744%_ - _%hd187700187747%_ - _%tl187701187749%_ - _%e187702187752%_ - _%hd187703187755%_ - _%tl187704187757%_ - _%__splice189629189630%_ - _%target187705187760%_ - _%tl187707187762%_) - (letrec ((_%loop187708187765%_ - (lambda (_%hd187706187768%_ - _%expr187712187770%_ - _%id187713187772%_) + (##vector-ref _g192465_ 1)))) + (values _%continue187896%_ + (cons _%block187897%_ '()))))))) + (_%__kont189668189669%_ + (lambda () (values _%body187678%_ '())))) + (let* ((_%__match189747189748%_ + (lambda (_%e187736187781%_ + _%hd187737187784%_ + _%tl187738187786%_ + _%e187739187789%_ + _%hd187740187792%_ + _%tl187741187794%_ + _%__splice189666189667%_ + _%target187742187797%_ + _%tl187744187799%_) + (letrec ((_%loop187745187802%_ + (lambda (_%hd187743187805%_ + _%expr187749187807%_ + _%id187750187809%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187706187768%_)) - (let ((_%e187709187775%_ + _%hd187743187805%_)) + (let ((_%e187746187812%_ (let () (declare (not safe)) (gx#stx-e - _%hd187706187768%_)))) - (let ((_%lp-tl187711187780%_ + _%hd187743187805%_)))) + (let ((_%lp-tl187748187817%_ (let () (declare (not safe)) - (##cdr _%e187709187775%_))) - (_%lp-hd187710187778%_ + (##cdr _%e187746187812%_))) + (_%lp-hd187747187815%_ (let () (declare (not safe)) - (##car _%e187709187775%_)))) + (##car _%e187746187812%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd187710187778%_)) - (let ((_%e187719187783%_ + _%lp-hd187747187815%_)) + (let ((_%e187756187820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd187710187778%_)))) - (let ((_%tl187721187788%_ + (gx#stx-e _%lp-hd187747187815%_)))) + (let ((_%tl187758187825%_ (let () (declare (not safe)) - (##cdr _%e187719187783%_))) - (_%hd187720187786%_ + (##cdr _%e187756187820%_))) + (_%hd187757187823%_ (let () (declare (not safe)) - (##car _%e187719187783%_)))) + (##car _%e187756187820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187720187786%_)) - (let ((_%e187722187791%_ + (gx#stx-pair? _%hd187757187823%_)) + (let ((_%e187759187828%_ (let () (declare (not safe)) - (gx#stx-e _%hd187720187786%_)))) - (let ((_%tl187724187796%_ + (gx#stx-e _%hd187757187823%_)))) + (let ((_%tl187761187833%_ (let () (declare (not safe)) - (##cdr _%e187722187791%_))) - (_%hd187723187794%_ + (##cdr _%e187759187828%_))) + (_%hd187760187831%_ (let () (declare (not safe)) - (##car _%e187722187791%_)))) + (##car _%e187759187828%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187724187796%_)) + (gx#stx-null? _%tl187761187833%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187721187788%_)) - (let ((_%e187725187799%_ + (gx#stx-pair? _%tl187758187825%_)) + (let ((_%e187762187836%_ (let () (declare (not safe)) - (gx#stx-e _%tl187721187788%_)))) - (let ((_%tl187727187804%_ + (gx#stx-e _%tl187758187825%_)))) + (let ((_%tl187764187841%_ (let () (declare (not safe)) - (##cdr _%e187725187799%_))) - (_%hd187726187802%_ + (##cdr _%e187762187836%_))) + (_%hd187763187839%_ (let () (declare (not safe)) - (##car _%e187725187799%_)))) + (##car _%e187762187836%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187727187804%_)) - (_%loop187708187765%_ - _%lp-tl187711187780%_ - (cons _%hd187726187802%_ - _%expr187712187770%_) - (cons _%hd187723187794%_ - _%id187713187772%_)) - (_%__kont189631189632%_)))) - (_%__kont189631189632%_)) - (_%__kont189631189632%_)))) - (_%__kont189631189632%_)))) - (_%__kont189631189632%_)))) + _%tl187764187841%_)) + (_%loop187745187802%_ + _%lp-tl187748187817%_ + (cons _%hd187763187839%_ + _%expr187749187807%_) + (cons _%hd187760187831%_ + _%id187750187809%_)) + (_%__kont189668189669%_)))) + (_%__kont189668189669%_)) + (_%__kont189668189669%_)))) + (_%__kont189668189669%_)))) + (_%__kont189668189669%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id187715187809%_ - (reverse _%id187713187772%_)) - (_%expr187714187807%_ - (reverse _%expr187712187770%_))) + (let ((_%id187752187846%_ + (reverse _%id187750187809%_)) + (_%expr187751187844%_ + (reverse _%expr187749187807%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187704187757%_)) - (let ((_%e187716187812%_ + _%tl187741187794%_)) + (let ((_%e187753187849%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl187704187757%_)))) - (let ((_%tl187718187817%_ + (gx#stx-e _%tl187741187794%_)))) + (let ((_%tl187755187854%_ (let () (declare (not safe)) - (##cdr _%e187716187812%_))) - (_%hd187717187815%_ + (##cdr _%e187753187849%_))) + (_%hd187754187852%_ (let () (declare (not safe)) - (##car _%e187716187812%_)))) + (##car _%e187753187849%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187718187817%_)) - (_%__kont189627189628%_ - _%hd187717187815%_ - _%expr187714187807%_ - _%id187715187809%_) - (_%__kont189631189632%_)))) - (_%__kont189631189632%_))))))) + (gx#stx-null? _%tl187755187854%_)) + (_%__kont189664189665%_ + _%hd187754187852%_ + _%expr187751187844%_ + _%id187752187846%_) + (_%__kont189668189669%_)))) + (_%__kont189668189669%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187708187765%_ - _%target187705187760%_ + (_%loop187745187802%_ + _%target187742187797%_ '() '())))) - (_%__match189686189687%_ - (lambda (_%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_) - (letrec ((_%loop187674187889%_ - (lambda (_%hd187672187892%_) + (_%__match189723189724%_ + (lambda (_%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_) + (letrec ((_%loop187711187926%_ + (lambda (_%hd187709187929%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187672187892%_)) - (let ((_%e187675187895%_ + _%hd187709187929%_)) + (let ((_%e187712187932%_ (let () (declare (not safe)) (gx#stx-e - _%hd187672187892%_)))) - (let ((_%lp-tl187677187900%_ + _%hd187709187929%_)))) + (let ((_%lp-tl187714187937%_ (let () (declare (not safe)) - (##cdr _%e187675187895%_))) - (_%lp-hd187676187898%_ + (##cdr _%e187712187932%_))) + (_%lp-hd187713187935%_ (let () (declare (not safe)) - (##car _%e187675187895%_)))) + (##car _%e187712187932%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd187676187898%_)) - (let ((_%e187681187903%_ + _%lp-hd187713187935%_)) + (let ((_%e187718187940%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd187676187898%_)))) - (let ((_%tl187683187908%_ + (gx#stx-e _%lp-hd187713187935%_)))) + (let ((_%tl187720187945%_ (let () (declare (not safe)) - (##cdr _%e187681187903%_))) - (_%hd187682187906%_ + (##cdr _%e187718187940%_))) + (_%hd187719187943%_ (let () (declare (not safe)) - (##car _%e187681187903%_)))) + (##car _%e187718187940%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187682187906%_)) - (let ((_%e187684187911%_ + (gx#stx-pair? _%hd187719187943%_)) + (let ((_%e187721187948%_ (let () (declare (not safe)) - (gx#stx-e _%hd187682187906%_)))) - (let ((_%tl187686187916%_ + (gx#stx-e _%hd187719187943%_)))) + (let ((_%tl187723187953%_ (let () (declare (not safe)) - (##cdr _%e187684187911%_))) - (_%hd187685187914%_ + (##cdr _%e187721187948%_))) + (_%hd187722187951%_ (let () (declare (not safe)) - (##car _%e187684187911%_)))) + (##car _%e187721187948%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187686187916%_)) + (gx#stx-null? _%tl187723187953%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187683187908%_)) - (let ((_%e187687187919%_ + (gx#stx-pair? _%tl187720187945%_)) + (let ((_%e187724187956%_ (let () (declare (not safe)) - (gx#stx-e _%tl187683187908%_)))) - (let ((_%tl187689187924%_ + (gx#stx-e _%tl187720187945%_)))) + (let ((_%tl187726187961%_ (let () (declare (not safe)) - (##cdr _%e187687187919%_))) - (_%hd187688187922%_ + (##cdr _%e187724187956%_))) + (_%hd187725187959%_ (let () (declare (not safe)) - (##car _%e187687187919%_)))) + (##car _%e187724187956%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187688187922%_)) - (let ((_%e187690187927%_ + _%hd187725187959%_)) + (let ((_%e187727187964%_ (let () (declare (not safe)) (gx#stx-e - _%hd187688187922%_)))) - (let ((_%tl187692187932%_ + _%hd187725187959%_)))) + (let ((_%tl187729187969%_ (let () (declare (not safe)) - (##cdr _%e187690187927%_))) - (_%hd187691187930%_ + (##cdr _%e187727187964%_))) + (_%hd187728187967%_ (let () (declare (not safe)) - (##car _%e187690187927%_)))) + (##car _%e187727187964%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187691187930%_)) + _%hd187728187967%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd187691187930%_)) + _%hd187728187967%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187692187932%_)) - (let ((_%e187693187935%_ + (gx#stx-pair? _%tl187729187969%_)) + (let ((_%e187730187972%_ (let () (declare (not safe)) - (gx#stx-e _%tl187692187932%_)))) - (let ((_%tl187695187940%_ + (gx#stx-e _%tl187729187969%_)))) + (let ((_%tl187732187977%_ (let () (declare (not safe)) - (##cdr _%e187693187935%_))) - (_%hd187694187938%_ + (##cdr _%e187730187972%_))) + (_%hd187731187975%_ (let () (declare (not safe)) - (##car _%e187693187935%_)))) + (##car _%e187730187972%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187695187940%_)) + (gx#stx-null? _%tl187732187977%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187689187924%_)) - (_%loop187674187889%_ _%lp-tl187677187900%_) - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)) - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)))) - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)) - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)) - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)))) + (gx#stx-null? _%tl187726187961%_)) + (_%loop187711187926%_ _%lp-tl187714187937%_) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)))) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)))) - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)) - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)))) - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)))) - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)))) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)))) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)))) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)))) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187670187881%_)) - (let ((_%e187678187944%_ + _%tl187707187918%_)) + (let ((_%e187715187981%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187670187881%_)))) - (let ((_%tl187680187949%_ - (let () (declare (not safe)) (##cdr _%e187678187944%_))) - (_%hd187679187947%_ + (gx#stx-e _%tl187707187918%_)))) + (let ((_%tl187717187986%_ + (let () (declare (not safe)) (##cdr _%e187715187981%_))) + (_%hd187716187984%_ (let () (declare (not safe)) - (##car _%e187678187944%_)))) + (##car _%e187715187981%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187680187949%_)) - (_%__kont189623189624%_) - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)))) - (_%__match189710189711%_ - _%e187665187868%_ - _%hd187666187871%_ - _%tl187667187873%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_)))))) + (gx#stx-null? _%tl187717187986%_)) + (_%__kont189660189661%_) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)))) + (_%__match189747189748%_ + _%e187702187905%_ + _%hd187703187908%_ + _%tl187704187910%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187674187889%_ - _%target187671187884%_))))) + (_%loop187711187926%_ + _%target187708187921%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189619189620%_)) - (let ((_%e187653187959%_ + (gx#stx-pair? _%__stx189656189657%_)) + (let ((_%e187690187996%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189619189620%_)))) - (let ((_%tl187655187964%_ + (gx#stx-e _%__stx189656189657%_)))) + (let ((_%tl187692188001%_ (let () (declare (not safe)) - (##cdr _%e187653187959%_))) - (_%hd187654187962%_ + (##cdr _%e187690187996%_))) + (_%hd187691187999%_ (let () (declare (not safe)) - (##car _%e187653187959%_)))) + (##car _%e187690187996%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187654187962%_)) + (gx#identifier? _%hd187691187999%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd187654187962%_)) + _%hd187691187999%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187655187964%_)) - (let ((_%e187656187967%_ + _%tl187692188001%_)) + (let ((_%e187693188004%_ (let () (declare (not safe)) (gx#stx-e - _%tl187655187964%_)))) - (let ((_%tl187658187972%_ + _%tl187692188001%_)))) + (let ((_%tl187695188009%_ (let () (declare (not safe)) - (##cdr _%e187656187967%_))) - (_%hd187657187970%_ + (##cdr _%e187693188004%_))) + (_%hd187694188007%_ (let () (declare (not safe)) - (##car _%e187656187967%_)))) + (##car _%e187693188004%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187658187972%_)) - (let ((_%e187659187975%_ + _%tl187695188009%_)) + (let ((_%e187696188012%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187658187972%_)))) - (let ((_%tl187661187980%_ - (let () (declare (not safe)) (##cdr _%e187659187975%_))) - (_%hd187660187978%_ + (gx#stx-e _%tl187695188009%_)))) + (let ((_%tl187698188017%_ + (let () (declare (not safe)) (##cdr _%e187696188012%_))) + (_%hd187697188015%_ (let () (declare (not safe)) - (##car _%e187659187975%_)))) + (##car _%e187696188012%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187661187980%_)) - (let ((_%e187662187983%_ + (gx#stx-pair? _%tl187698188017%_)) + (let ((_%e187699188020%_ (let () (declare (not safe)) - (gx#stx-e _%tl187661187980%_)))) - (let ((_%tl187664187988%_ + (gx#stx-e _%tl187698188017%_)))) + (let ((_%tl187701188025%_ (let () (declare (not safe)) - (##cdr _%e187662187983%_))) - (_%hd187663187986%_ + (##cdr _%e187699188020%_))) + (_%hd187700188023%_ (let () (declare (not safe)) - (##car _%e187662187983%_)))) + (##car _%e187699188020%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187664187988%_)) - (_%__kont189621189622%_ - _%hd187663187986%_ - _%hd187660187978%_ - _%hd187657187970%_) - (_%__kont189631189632%_)))) - (_%__kont189631189632%_)))) - (_%__kont189631189632%_)))) + (gx#stx-null? _%tl187701188025%_)) + (_%__kont189658189659%_ + _%hd187700188023%_ + _%hd187697188015%_ + _%hd187694188007%_) + (_%__kont189668189669%_)))) + (_%__kont189668189669%_)))) + (_%__kont189668189669%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189631189632%_)) + (_%__kont189668189669%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187654187962%_)) + _%hd187691187999%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187655187964%_)) - (let ((_%e187668187876%_ + _%tl187692188001%_)) + (let ((_%e187705187913%_ (let () (declare (not safe)) (gx#stx-e - _%tl187655187964%_)))) - (let ((_%tl187670187881%_ + _%tl187692188001%_)))) + (let ((_%tl187707187918%_ (let () (declare (not safe)) - (##cdr _%e187668187876%_))) - (_%hd187669187879%_ + (##cdr _%e187705187913%_))) + (_%hd187706187916%_ (let () (declare (not safe)) - (##car _%e187668187876%_)))) + (##car _%e187705187913%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd187669187879%_)) - (let ((_%__splice189625189626%_ + _%hd187706187916%_)) + (let ((_%__splice189662189663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd187669187879%_ '0)))) - (let ((_%tl187673187886%_ + (gx#syntax-split-splice _%hd187706187916%_ '0)))) + (let ((_%tl187710187923%_ (let () (declare (not safe)) - (##vector-ref _%__splice189625189626%_ '1))) - (_%target187671187884%_ + (##vector-ref _%__splice189662189663%_ '1))) + (_%target187708187921%_ (let () (declare (not safe)) - (##vector-ref _%__splice189625189626%_ '0)))) + (##vector-ref _%__splice189662189663%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187673187886%_)) - (_%__match189686189687%_ - _%e187653187959%_ - _%hd187654187962%_ - _%tl187655187964%_ - _%e187668187876%_ - _%hd187669187879%_ - _%tl187670187881%_ - _%__splice189625189626%_ - _%target187671187884%_ - _%tl187673187886%_) - (_%__kont189631189632%_)))) - (_%__kont189631189632%_)))) + (gx#stx-null? _%tl187710187923%_)) + (_%__match189723189724%_ + _%e187690187996%_ + _%hd187691187999%_ + _%tl187692188001%_ + _%e187705187913%_ + _%hd187706187916%_ + _%tl187707187918%_ + _%__splice189662189663%_ + _%target187708187921%_ + _%tl187710187923%_) + (_%__kont189668189669%_)))) + (_%__kont189668189669%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189631189632%_)) - (_%__kont189631189632%_))) - (_%__kont189631189632%_)))) - (_%__kont189631189632%_))))))) - (_%fold-blocks187461%_ - (lambda (_%rest187560%_ _%blocks187561%_) - (let* ((_%rest187562187579%_ _%rest187560%_) - (_%E187565187583%_ + (_%__kont189668189669%_)) + (_%__kont189668189669%_))) + (_%__kont189668189669%_)))) + (_%__kont189668189669%_))))))) + (_%fold-blocks187498%_ + (lambda (_%rest187597%_ _%blocks187598%_) + (let* ((_%rest187599187616%_ _%rest187597%_) + (_%E187602187620%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest187562187579%_ + _%rest187599187616%_ '([[name body bind assert] . rest]) '([]))) '#!void))) - (let ((_%K187567187603%_ - (lambda (_%rest187594%_ - _%assert187595%_ - _%bind187596%_ - _%body187597%_ - _%name187598%_) - (let ((_g192430_ - (_%basic-block187460%_ - _%body187597%_ - _%bind187596%_ - _%assert187595%_))) + (let ((_%K187604187640%_ + (lambda (_%rest187631%_ + _%assert187632%_ + _%bind187633%_ + _%body187634%_ + _%name187635%_) + (let ((_g192467_ + (_%basic-block187497%_ + _%body187634%_ + _%bind187633%_ + _%assert187632%_))) (begin - (let ((_g192431_ + (let ((_g192468_ (let () (declare (not safe)) - (if (##values? _g192430_) - (##vector-length _g192430_) + (if (##values? _g192467_) + (##vector-length _g192467_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192431_ 2))) + (##fx= _g192468_ 2))) (error "Context expects 2 values" - _g192431_))) - (let ((_%body187600%_ + _g192468_))) + (let ((_%body187637%_ (let () (declare (not safe)) - (##vector-ref _g192430_ 0))) - (_%body-blocks187601%_ + (##vector-ref _g192467_ 0))) + (_%body-blocks187638%_ (let () (declare (not safe)) - (##vector-ref _g192430_ 1)))) - (_%fold-blocks187461%_ + (##vector-ref _g192467_ 1)))) + (_%fold-blocks187498%_ (let () (declare (not safe)) (__foldl1 cons - _%rest187594%_ - _%body-blocks187601%_)) - (cons (cons _%name187598%_ + _%rest187631%_ + _%body-blocks187638%_)) + (cons (cons _%name187635%_ (cons 'continue: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let ((__tmp192432 (map car _%bind187596%_))) + (cons (let ((__tmp192469 (map car _%bind187633%_))) (declare (not safe)) - (##reverse __tmp192432)) - (cons _%body187600%_ '()))) - (cons _%assert187595%_ (cons _%bind187596%_ '()))))) + (##reverse __tmp192469)) + (cons _%body187637%_ '()))) + (cons _%assert187632%_ (cons _%bind187633%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks187561%_))))))) - (_%K187566187588%_ (lambda () _%blocks187561%_))) - (let ((_%try-match187564187591%_ + _%blocks187598%_))))))) + (_%K187603187625%_ (lambda () _%blocks187598%_))) + (let ((_%try-match187601187628%_ (lambda () - (if (null? _%rest187562187579%_) - (_%K187566187588%_) - (_%E187565187583%_))))) - (if (pair? _%rest187562187579%_) - (let ((_%tl187569187608%_ + (if (null? _%rest187599187616%_) + (_%K187603187625%_) + (_%E187602187620%_))))) + (if (pair? _%rest187599187616%_) + (let ((_%tl187606187645%_ (let () (declare (not safe)) - (##cdr _%rest187562187579%_))) - (_%hd187568187606%_ + (##cdr _%rest187599187616%_))) + (_%hd187605187643%_ (let () (declare (not safe)) - (##car _%rest187562187579%_)))) - (if (pair? _%hd187568187606%_) - (let ((_%tl187571187613%_ + (##car _%rest187599187616%_)))) + (if (pair? _%hd187605187643%_) + (let ((_%tl187608187650%_ (let () (declare (not safe)) - (##cdr _%hd187568187606%_))) - (_%hd187570187611%_ + (##cdr _%hd187605187643%_))) + (_%hd187607187648%_ (let () (declare (not safe)) - (##car _%hd187568187606%_)))) - (if (pair? _%tl187571187613%_) - (let ((_%tl187573187620%_ + (##car _%hd187605187643%_)))) + (if (pair? _%tl187608187650%_) + (let ((_%tl187610187657%_ (let () (declare (not safe)) - (##cdr _%tl187571187613%_))) - (_%hd187572187618%_ + (##cdr _%tl187608187650%_))) + (_%hd187609187655%_ (let () (declare (not safe)) - (##car _%tl187571187613%_)))) - (if (pair? _%tl187573187620%_) - (let ((_%tl187575187627%_ + (##car _%tl187608187650%_)))) + (if (pair? _%tl187610187657%_) + (let ((_%tl187612187664%_ (let () (declare (not safe)) - (##cdr _%tl187573187620%_))) - (_%hd187574187625%_ + (##cdr _%tl187610187657%_))) + (_%hd187611187662%_ (let () (declare (not safe)) - (##car _%tl187573187620%_)))) - (if (pair? _%tl187575187627%_) - (let ((_%tl187577187634%_ + (##car _%tl187610187657%_)))) + (if (pair? _%tl187612187664%_) + (let ((_%tl187614187671%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl187575187627%_))) - (_%hd187576187632%_ - (let () (declare (not safe)) (##car _%tl187575187627%_)))) - (if (null? _%tl187577187634%_) - (let ((_%name187616%_ _%hd187570187611%_) - (_%body187623%_ _%hd187572187618%_) - (_%bind187630%_ _%hd187574187625%_) - (_%assert187637%_ _%hd187576187632%_) - (_%rest187639%_ _%tl187569187608%_)) - (_%K187567187603%_ - _%rest187639%_ - _%assert187637%_ - _%bind187630%_ - _%body187623%_ - _%name187616%_)) - (_%E187565187583%_))) - (_%E187565187583%_))) + (##cdr _%tl187612187664%_))) + (_%hd187613187669%_ + (let () (declare (not safe)) (##car _%tl187612187664%_)))) + (if (null? _%tl187614187671%_) + (let ((_%name187653%_ _%hd187607187648%_) + (_%body187660%_ _%hd187609187655%_) + (_%bind187667%_ _%hd187611187662%_) + (_%assert187674%_ _%hd187613187669%_) + (_%rest187676%_ _%tl187606187645%_)) + (_%K187604187640%_ + _%rest187676%_ + _%assert187674%_ + _%bind187667%_ + _%body187660%_ + _%name187653%_)) + (_%E187602187620%_))) + (_%E187602187620%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E187565187583%_))) - (_%E187565187583%_))) - (_%E187565187583%_))) - (_%try-match187564187591%_)))))))) - (let* ((_%clause187462187469%_ _%clause187455%_) - (_%E187464187473%_ + (_%E187602187620%_))) + (_%E187602187620%_))) + (_%E187602187620%_))) + (_%try-match187601187628%_)))))))) + (let* ((_%clause187499187506%_ _%clause187492%_) + (_%E187501187510%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause187462187469%_ + _%clause187499187506%_ '([name . body]))) '#!void)) - (_%K187465187548%_ - (lambda (_%body187476%_ _%name187477%_) - (let* ((_%g187479187495%_ - (lambda (_%g187480187492%_) + (_%K187502187585%_ + (lambda (_%body187513%_ _%name187514%_) + (let* ((_%g187516187532%_ + (lambda (_%g187517187529%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187480187492%_)))) - (_%g187478187545%_ - (lambda (_%g187480187498%_) + _%g187517187529%_)))) + (_%g187515187582%_ + (lambda (_%g187517187535%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g187480187498%_)) - (let ((_%e187482187500%_ + (gx#stx-pair? _%g187517187535%_)) + (let ((_%e187519187537%_ (let () (declare (not safe)) - (gx#stx-e _%g187480187498%_)))) - (let ((_%hd187483187503%_ + (gx#stx-e _%g187517187535%_)))) + (let ((_%hd187520187540%_ (let () (declare (not safe)) - (##car _%e187482187500%_))) - (_%tl187484187505%_ + (##car _%e187519187537%_))) + (_%tl187521187542%_ (let () (declare (not safe)) - (##cdr _%e187482187500%_)))) + (##cdr _%e187519187537%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187483187503%_)) + _%hd187520187540%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187483187503%_)) + _%hd187520187540%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187484187505%_)) - (let ((_%e187485187508%_ + _%tl187521187542%_)) + (let ((_%e187522187545%_ (let () (declare (not safe)) (gx#stx-e - _%tl187484187505%_)))) - (let ((_%hd187486187511%_ + _%tl187521187542%_)))) + (let ((_%hd187523187548%_ (let () (declare (not safe)) - (##car _%e187485187508%_))) - (_%tl187487187513%_ + (##car _%e187522187545%_))) + (_%tl187524187550%_ (let () (declare (not safe)) - (##cdr _%e187485187508%_)))) + (##cdr _%e187522187545%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd187486187511%_)) + _%hd187523187548%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187487187513%_)) - (let ((_%e187488187516%_ + (gx#stx-pair? _%tl187524187550%_)) + (let ((_%e187525187553%_ (let () (declare (not safe)) - (gx#stx-e _%tl187487187513%_)))) - (let ((_%hd187489187519%_ + (gx#stx-e _%tl187524187550%_)))) + (let ((_%hd187526187556%_ (let () (declare (not safe)) - (##car _%e187488187516%_))) - (_%tl187490187521%_ + (##car _%e187525187553%_))) + (_%tl187527187558%_ (let () (declare (not safe)) - (##cdr _%e187488187516%_)))) + (##cdr _%e187525187553%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187490187521%_)) - ((lambda (_%L187524%_) - (let ((_g192433_ - (_%basic-block187460%_ - _%L187524%_ + (gx#stx-null? _%tl187527187558%_)) + ((lambda (_%L187561%_) + (let ((_g192470_ + (_%basic-block187497%_ + _%L187561%_ '() '()))) (begin - (let ((_g192434_ + (let ((_g192471_ (let () (declare (not safe)) - (if (##values? _g192433_) - (##vector-length _g192433_) + (if (##values? _g192470_) + (##vector-length _g192470_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192434_ 2))) + (##fx= _g192471_ 2))) (error "Context expects 2 values" - _g192434_))) - (let ((_%body187542%_ + _g192471_))) + (let ((_%body187579%_ (let () (declare (not safe)) - (##vector-ref _g192433_ 0))) - (_%body-blocks187543%_ + (##vector-ref _g192470_ 0))) + (_%body-blocks187580%_ (let () (declare (not safe)) - (##vector-ref _g192433_ 1)))) - (_%fold-blocks187461%_ - _%body-blocks187543%_ - (cons (cons _%name187477%_ + (##vector-ref _g192470_ 1)))) + (_%fold-blocks187498%_ + _%body-blocks187580%_ + (cons (cons _%name187514%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body187542%_ '()))) + (cons '() (cons _%body187579%_ '()))) (cons '() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks187456%_)))))) - _%hd187489187519%_) - (_%g187479187495%_ _%g187480187498%_)))) - (_%g187479187495%_ _%g187480187498%_)) - (_%g187479187495%_ _%g187480187498%_)))) + _%blocks187493%_)))))) + _%hd187526187556%_) + (_%g187516187532%_ _%g187517187535%_)))) + (_%g187516187532%_ _%g187517187535%_)) + (_%g187516187532%_ _%g187517187535%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187479187495%_ - _%g187480187498%_)) - (_%g187479187495%_ - _%g187480187498%_)) - (_%g187479187495%_ - _%g187480187498%_)))) - (_%g187479187495%_ _%g187480187498%_))))) - (_%g187478187545%_ _%body187476%_))))) - (if (pair? _%clause187462187469%_) - (let ((_%hd187466187551%_ + (_%g187516187532%_ + _%g187517187535%_)) + (_%g187516187532%_ + _%g187517187535%_)) + (_%g187516187532%_ + _%g187517187535%_)))) + (_%g187516187532%_ _%g187517187535%_))))) + (_%g187515187582%_ _%body187513%_))))) + (if (pair? _%clause187499187506%_) + (let ((_%hd187503187588%_ (let () (declare (not safe)) - (##car _%clause187462187469%_))) - (_%tl187467187553%_ + (##car _%clause187499187506%_))) + (_%tl187504187590%_ (let () (declare (not safe)) - (##cdr _%clause187462187469%_)))) - (let* ((_%name187556%_ _%hd187466187551%_) - (_%body187558%_ _%tl187467187553%_)) - (_%K187465187548%_ _%body187558%_ _%name187556%_))) - (_%E187464187473%_)))))) + (##cdr _%clause187499187506%_)))) + (let* ((_%name187593%_ _%hd187503187588%_) + (_%body187595%_ _%tl187504187590%_)) + (_%K187502187585%_ _%body187595%_ _%name187593%_))) + (_%E187501187510%_)))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_%blocks187061%_) - (let _%lp187063%_ ((_%rest187065%_ _%blocks187061%_) - (_%blocks187066%_ '())) - (let* ((_%rest187067187075%_ _%rest187065%_) - (_%else187069187124%_ + (lambda (_%blocks187098%_) + (let _%lp187100%_ ((_%rest187102%_ _%blocks187098%_) + (_%blocks187103%_ '())) + (let* ((_%rest187104187112%_ _%rest187102%_) + (_%else187106187161%_ (lambda () - (let ((__tmp192435 - (lambda (_%block187083%_ _%r187084%_) - (let* ((_%block187085187096%_ _%block187083%_) - (_%E187087187100%_ + (let ((__tmp192472 + (lambda (_%block187120%_ _%r187121%_) + (let* ((_%block187122187133%_ _%block187120%_) + (_%E187124187137%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block187085187096%_ + _%block187122187133%_ '([name _ kont . _]))) '#!void)) - (_%K187088187106%_ - (lambda (_%kont187103%_ _%name187104%_) - (cons (cons _%name187104%_ - _%kont187103%_) - _%r187084%_)))) - (if (pair? _%block187085187096%_) - (let ((_%hd187089187109%_ + (_%K187125187143%_ + (lambda (_%kont187140%_ _%name187141%_) + (cons (cons _%name187141%_ + _%kont187140%_) + _%r187121%_)))) + (if (pair? _%block187122187133%_) + (let ((_%hd187126187146%_ (let () (declare (not safe)) - (##car _%block187085187096%_))) - (_%tl187090187111%_ + (##car _%block187122187133%_))) + (_%tl187127187148%_ (let () (declare (not safe)) - (##cdr _%block187085187096%_)))) - (let ((_%name187114%_ _%hd187089187109%_)) - (if (pair? _%tl187090187111%_) - (let ((_%tl187092187116%_ + (##cdr _%block187122187133%_)))) + (let ((_%name187151%_ _%hd187126187146%_)) + (if (pair? _%tl187127187148%_) + (let ((_%tl187129187153%_ (let () (declare (not safe)) - (##cdr _%tl187090187111%_)))) - (if (pair? _%tl187092187116%_) - (let* ((_%hd187093187119%_ + (##cdr _%tl187127187148%_)))) + (if (pair? _%tl187129187153%_) + (let* ((_%hd187130187156%_ (let () (declare (not safe)) - (##car _%tl187092187116%_))) - (_%kont187122%_ - _%hd187093187119%_)) - (_%K187088187106%_ - _%kont187122%_ - _%name187114%_)) - (_%E187087187100%_))) - (_%E187087187100%_)))) - (_%E187087187100%_)))))) + (##car _%tl187129187153%_))) + (_%kont187159%_ + _%hd187130187156%_)) + (_%K187125187143%_ + _%kont187159%_ + _%name187151%_)) + (_%E187124187137%_))) + (_%E187124187137%_)))) + (_%E187124187137%_)))))) (declare (not safe)) - (__foldl1 __tmp192435 '() _%blocks187066%_)))) - (_%K187071187443%_ - (lambda (_%rest187127%_ _%block187128%_) - (let* ((_%block187129187154%_ _%block187128%_) - (_%E187132187158%_ + (__foldl1 __tmp192472 '() _%blocks187103%_)))) + (_%K187108187480%_ + (lambda (_%rest187164%_ _%block187165%_) + (let* ((_%block187166187191%_ _%block187165%_) + (_%E187169187195%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block187129187154%_ + _%block187166187191%_ '([name restart: kont assert]) '([name continue: kont assert bind]))) '#!void))) - (let ((_%K187144187414%_ - (lambda (_%assert187336%_ - _%kont187337%_ - _%name187338%_) - (let* ((_%g187340187356%_ - (lambda (_%g187341187353%_) + (let ((_%K187181187451%_ + (lambda (_%assert187373%_ + _%kont187374%_ + _%name187375%_) + (let* ((_%g187377187393%_ + (lambda (_%g187378187390%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187341187353%_)))) - (_%g187339187411%_ - (lambda (_%g187341187359%_) + _%g187378187390%_)))) + (_%g187376187448%_ + (lambda (_%g187378187396%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g187341187359%_)) - (let ((_%e187343187361%_ + _%g187378187396%_)) + (let ((_%e187380187398%_ (let () (declare (not safe)) (gx#stx-e - _%g187341187359%_)))) - (let ((_%hd187344187364%_ + _%g187378187396%_)))) + (let ((_%hd187381187401%_ (let () (declare (not safe)) - (##car _%e187343187361%_))) - (_%tl187345187366%_ + (##car _%e187380187398%_))) + (_%tl187382187403%_ (let () (declare (not safe)) - (##cdr _%e187343187361%_)))) + (##cdr _%e187380187398%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187344187364%_)) + _%hd187381187401%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187344187364%_)) + _%hd187381187401%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187345187366%_)) - (let ((_%e187346187369%_ + (gx#stx-pair? _%tl187382187403%_)) + (let ((_%e187383187406%_ (let () (declare (not safe)) - (gx#stx-e _%tl187345187366%_)))) - (let ((_%hd187347187372%_ + (gx#stx-e _%tl187382187403%_)))) + (let ((_%hd187384187409%_ (let () (declare (not safe)) - (##car _%e187346187369%_))) - (_%tl187348187374%_ + (##car _%e187383187406%_))) + (_%tl187385187411%_ (let () (declare (not safe)) - (##cdr _%e187346187369%_)))) + (##cdr _%e187383187406%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd187347187372%_)) + (gx#stx-null? _%hd187384187409%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187348187374%_)) - (let ((_%e187349187377%_ + (gx#stx-pair? _%tl187385187411%_)) + (let ((_%e187386187414%_ (let () (declare (not safe)) - (gx#stx-e _%tl187348187374%_)))) - (let ((_%hd187350187380%_ + (gx#stx-e _%tl187385187411%_)))) + (let ((_%hd187387187417%_ (let () (declare (not safe)) - (##car _%e187349187377%_))) - (_%tl187351187382%_ + (##car _%e187386187414%_))) + (_%tl187388187419%_ (let () (declare (not safe)) - (##cdr _%e187349187377%_)))) + (##cdr _%e187386187414%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187351187382%_)) - ((lambda (_%L187385%_) - (let* ((_%body187400%_ + (gx#stx-null? _%tl187388187419%_)) + ((lambda (_%L187422%_) + (let* ((_%body187437%_ (gxc#optimize-match-block - _%L187385%_ - _%assert187336%_ + _%L187422%_ + _%assert187373%_ '() - _%rest187127%_)) - (_%block187402%_ - (cons _%name187338%_ + _%rest187164%_)) + (_%block187439%_ + (cons _%name187375%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body187400%_ '()))) - (cons _%assert187336%_ '()))))) + (cons '() (cons _%body187437%_ '()))) + (cons _%assert187373%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks187404%_ - (cons _%block187402%_ - _%blocks187066%_)) - (_%rest187406%_ + (_%blocks187441%_ + (cons _%block187439%_ + _%blocks187103%_)) + (_%rest187443%_ (gxc#optimize-match-prune-blocks - _%rest187127%_ - _%blocks187404%_)) - (_%rest187408%_ + _%rest187164%_ + _%blocks187441%_)) + (_%rest187445%_ (gxc#optimize-match-fuse-restart-blocks - _%rest187406%_ - _%blocks187404%_))) - (_%lp187063%_ - _%rest187408%_ - _%blocks187404%_))) - _%hd187350187380%_) - (_%g187340187356%_ - _%g187341187359%_)))) - (_%g187340187356%_ _%g187341187359%_)) - (_%g187340187356%_ _%g187341187359%_)))) - (_%g187340187356%_ _%g187341187359%_)) - (_%g187340187356%_ _%g187341187359%_)) + _%rest187443%_ + _%blocks187441%_))) + (_%lp187100%_ + _%rest187445%_ + _%blocks187441%_))) + _%hd187387187417%_) + (_%g187377187393%_ + _%g187378187396%_)))) + (_%g187377187393%_ _%g187378187396%_)) + (_%g187377187393%_ _%g187378187396%_)))) + (_%g187377187393%_ _%g187378187396%_)) + (_%g187377187393%_ _%g187378187396%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187340187356%_ - _%g187341187359%_)))) - (_%g187340187356%_ - _%g187341187359%_))))) - (_%g187339187411%_ _%kont187337%_)))) - (_%K187133187297%_ - (lambda (_%bind187162%_ - _%assert187163%_ - _%kont187164%_ - _%name187165%_) - (let* ((_%g187167187193%_ - (lambda (_%g187168187190%_) + (_%g187377187393%_ + _%g187378187396%_)))) + (_%g187377187393%_ + _%g187378187396%_))))) + (_%g187376187448%_ _%kont187374%_)))) + (_%K187170187334%_ + (lambda (_%bind187199%_ + _%assert187200%_ + _%kont187201%_ + _%name187202%_) + (let* ((_%g187204187230%_ + (lambda (_%g187205187227%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187168187190%_)))) - (_%g187166187294%_ - (lambda (_%g187168187196%_) + _%g187205187227%_)))) + (_%g187203187331%_ + (lambda (_%g187205187233%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g187168187196%_)) - (let ((_%e187171187198%_ + _%g187205187233%_)) + (let ((_%e187208187235%_ (let () (declare (not safe)) (gx#stx-e - _%g187168187196%_)))) - (let ((_%hd187172187201%_ + _%g187205187233%_)))) + (let ((_%hd187209187238%_ (let () (declare (not safe)) - (##car _%e187171187198%_))) - (_%tl187173187203%_ + (##car _%e187208187235%_))) + (_%tl187210187240%_ (let () (declare (not safe)) - (##cdr _%e187171187198%_)))) + (##cdr _%e187208187235%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187172187201%_)) + _%hd187209187238%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187172187201%_)) + _%hd187209187238%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187173187203%_)) - (let ((_%e187174187206%_ + (gx#stx-pair? _%tl187210187240%_)) + (let ((_%e187211187243%_ (let () (declare (not safe)) - (gx#stx-e _%tl187173187203%_)))) - (let ((_%hd187175187209%_ + (gx#stx-e _%tl187210187240%_)))) + (let ((_%hd187212187246%_ (let () (declare (not safe)) - (##car _%e187174187206%_))) - (_%tl187176187211%_ + (##car _%e187211187243%_))) + (_%tl187213187248%_ (let () (declare (not safe)) - (##cdr _%e187174187206%_)))) + (##cdr _%e187211187243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd187175187209%_)) - (let ((_g192436_ + (gx#stx-pair/null? _%hd187212187246%_)) + (let ((_g192473_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd187175187209%_ + _%hd187212187246%_ '0)))) (begin - (let ((_g192437_ + (let ((_g192474_ (let () (declare (not safe)) - (if (##values? _g192436_) - (##vector-length _g192436_) + (if (##values? _g192473_) + (##vector-length _g192473_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192437_ 2))) + (##fx= _g192474_ 2))) (error "Context expects 2 values" - _g192437_))) - (let ((_%target187177187214%_ + _g192474_))) + (let ((_%target187214187251%_ (let () (declare (not safe)) - (##vector-ref _g192436_ 0))) - (_%tl187179187216%_ + (##vector-ref _g192473_ 0))) + (_%tl187216187253%_ (let () (declare (not safe)) - (##vector-ref _g192436_ 1)))) + (##vector-ref _g192473_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187179187216%_)) - (letrec ((_%loop187180187219%_ - (lambda (_%hd187178187222%_ - _%id187184187224%_) + (gx#stx-null? _%tl187216187253%_)) + (letrec ((_%loop187217187256%_ + (lambda (_%hd187215187259%_ + _%id187221187261%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187178187222%_)) - (let ((_%e187181187227%_ + _%hd187215187259%_)) + (let ((_%e187218187264%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd187178187222%_)))) - (let ((_%lp-hd187182187230%_ + (gx#stx-e _%hd187215187259%_)))) + (let ((_%lp-hd187219187267%_ (let () (declare (not safe)) - (##car _%e187181187227%_))) - (_%lp-tl187183187232%_ + (##car _%e187218187264%_))) + (_%lp-tl187220187269%_ (let () (declare (not safe)) - (##cdr _%e187181187227%_)))) - (_%loop187180187219%_ - _%lp-tl187183187232%_ - (cons _%lp-hd187182187230%_ _%id187184187224%_)))) - (let ((_%id187185187235%_ (reverse _%id187184187224%_))) + (##cdr _%e187218187264%_)))) + (_%loop187217187256%_ + _%lp-tl187220187269%_ + (cons _%lp-hd187219187267%_ _%id187221187261%_)))) + (let ((_%id187222187272%_ (reverse _%id187221187261%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187176187211%_)) - (let ((_%e187186187238%_ + (gx#stx-pair? _%tl187213187248%_)) + (let ((_%e187223187275%_ (let () (declare (not safe)) - (gx#stx-e _%tl187176187211%_)))) - (let ((_%hd187187187241%_ + (gx#stx-e _%tl187213187248%_)))) + (let ((_%hd187224187278%_ (let () (declare (not safe)) - (##car _%e187186187238%_))) - (_%tl187188187243%_ + (##car _%e187223187275%_))) + (_%tl187225187280%_ (let () (declare (not safe)) - (##cdr _%e187186187238%_)))) + (##cdr _%e187223187275%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187188187243%_)) - ((lambda (_%L187246%_ _%L187247%_) - (let* ((_%body187276%_ + (gx#stx-null? _%tl187225187280%_)) + ((lambda (_%L187283%_ _%L187284%_) + (let* ((_%body187313%_ (gxc#optimize-match-block - _%L187246%_ - _%assert187163%_ - _%bind187162%_ - _%rest187127%_)) - (_%block187285%_ - (cons _%name187165%_ + _%L187283%_ + _%assert187200%_ + _%bind187199%_ + _%rest187164%_)) + (_%block187322%_ + (cons _%name187202%_ (cons 'continue: (cons (cons '%#lambda - (cons (let ((__tmp192438 + (cons (let ((__tmp192475 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g187277187280%_ - _%g187278187282%_) - (cons _%g187277187280%_ - _%g187278187282%_)))) + (lambda (_%g187314187317%_ + _%g187315187319%_) + (cons _%g187314187317%_ + _%g187315187319%_)))) (declare (not safe)) - (__foldr1 __tmp192438 '() _%L187247%_)) - (cons _%body187276%_ '()))) - (cons _%assert187163%_ (cons _%bind187162%_ '())))))) + (__foldr1 __tmp192475 '() _%L187284%_)) + (cons _%body187313%_ '()))) + (cons _%assert187200%_ (cons _%bind187199%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks187287%_ - (cons _%block187285%_ - _%blocks187066%_)) - (_%rest187289%_ + (_%blocks187324%_ + (cons _%block187322%_ + _%blocks187103%_)) + (_%rest187326%_ (gxc#optimize-match-prune-blocks - _%rest187127%_ - _%blocks187287%_)) - (_%rest187291%_ + _%rest187164%_ + _%blocks187324%_)) + (_%rest187328%_ (gxc#optimize-match-fuse-restart-blocks - _%rest187289%_ - _%blocks187287%_))) - (_%lp187063%_ - _%rest187291%_ - _%blocks187287%_))) - _%hd187187187241%_ - _%id187185187235%_) - (_%g187167187193%_ _%g187168187196%_)))) - (_%g187167187193%_ _%g187168187196%_))))))) + _%rest187326%_ + _%blocks187324%_))) + (_%lp187100%_ + _%rest187328%_ + _%blocks187324%_))) + _%hd187224187278%_ + _%id187222187272%_) + (_%g187204187230%_ _%g187205187233%_)))) + (_%g187204187230%_ _%g187205187233%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187180187219%_ - _%target187177187214%_ + (_%loop187217187256%_ + _%target187214187251%_ '())) - (_%g187167187193%_ - _%g187168187196%_))))) - (_%g187167187193%_ _%g187168187196%_)))) - (_%g187167187193%_ _%g187168187196%_)) - (_%g187167187193%_ _%g187168187196%_)) + (_%g187204187230%_ + _%g187205187233%_))))) + (_%g187204187230%_ _%g187205187233%_)))) + (_%g187204187230%_ _%g187205187233%_)) + (_%g187204187230%_ _%g187205187233%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187167187193%_ - _%g187168187196%_)))) - (_%g187167187193%_ - _%g187168187196%_))))) - (_%g187166187294%_ _%kont187164%_))))) - (let* ((_%__match189796189797%_ - (lambda (_%hd187134187300%_ - _%tl187135187302%_ - _%hd187136187307%_ - _%tl187137187309%_ - _%hd187138187312%_ - _%tl187139187314%_ - _%hd187140187319%_ - _%tl187141187321%_ - _%hd187142187326%_ - _%tl187143187328%_) - (let ((_%name187305%_ _%hd187134187300%_) - (_%kont187317%_ _%hd187138187312%_) - (_%assert187324%_ _%hd187140187319%_) - (_%bind187331%_ _%hd187142187326%_)) - (_%E187132187158%_)))) - (_%__match189790189791%_ - (lambda (_%hd187134187300%_ - _%tl187135187302%_ - _%hd187136187307%_ - _%tl187137187309%_ - _%hd187138187312%_ - _%tl187139187314%_ - _%hd187140187319%_ - _%tl187141187321%_) - (let ((_%name187305%_ _%hd187134187300%_) - (_%kont187317%_ _%hd187138187312%_) - (_%assert187324%_ _%hd187140187319%_)) - (_%E187132187158%_)))) - (_%__match189784189785%_ - (lambda (_%hd187134187300%_ - _%tl187135187302%_ - _%hd187136187307%_ - _%tl187137187309%_ - _%hd187138187312%_ - _%tl187139187314%_) - (let ((_%name187305%_ _%hd187134187300%_) - (_%kont187317%_ _%hd187138187312%_)) - (_%E187132187158%_)))) - (_%__match189778189779%_ - (lambda (_%hd187134187300%_ - _%tl187135187302%_ - _%hd187136187307%_ - _%tl187137187309%_) - (let ((_%name187305%_ _%hd187134187300%_)) - (_%E187132187158%_)))) - (_%__match189774189775%_ - (lambda (_%hd187134187300%_ - _%tl187135187302%_ - _%hd187136187307%_ - _%tl187137187309%_) - (let ((_%name187305%_ _%hd187134187300%_)) - (_%E187132187158%_)))) - (_%__match189768189769%_ - (lambda (_%hd187134187300%_ _%tl187135187302%_) - (let ((_%name187305%_ _%hd187134187300%_)) - (_%E187132187158%_))))) - (if (pair? _%block187129187154%_) - (let ((_%tl187146187419%_ + (_%g187204187230%_ + _%g187205187233%_)))) + (_%g187204187230%_ + _%g187205187233%_))))) + (_%g187203187331%_ _%kont187201%_))))) + (let* ((_%__match189833189834%_ + (lambda (_%hd187171187337%_ + _%tl187172187339%_ + _%hd187173187344%_ + _%tl187174187346%_ + _%hd187175187349%_ + _%tl187176187351%_ + _%hd187177187356%_ + _%tl187178187358%_ + _%hd187179187363%_ + _%tl187180187365%_) + (let ((_%name187342%_ _%hd187171187337%_) + (_%kont187354%_ _%hd187175187349%_) + (_%assert187361%_ _%hd187177187356%_) + (_%bind187368%_ _%hd187179187363%_)) + (_%E187169187195%_)))) + (_%__match189827189828%_ + (lambda (_%hd187171187337%_ + _%tl187172187339%_ + _%hd187173187344%_ + _%tl187174187346%_ + _%hd187175187349%_ + _%tl187176187351%_ + _%hd187177187356%_ + _%tl187178187358%_) + (let ((_%name187342%_ _%hd187171187337%_) + (_%kont187354%_ _%hd187175187349%_) + (_%assert187361%_ _%hd187177187356%_)) + (_%E187169187195%_)))) + (_%__match189821189822%_ + (lambda (_%hd187171187337%_ + _%tl187172187339%_ + _%hd187173187344%_ + _%tl187174187346%_ + _%hd187175187349%_ + _%tl187176187351%_) + (let ((_%name187342%_ _%hd187171187337%_) + (_%kont187354%_ _%hd187175187349%_)) + (_%E187169187195%_)))) + (_%__match189815189816%_ + (lambda (_%hd187171187337%_ + _%tl187172187339%_ + _%hd187173187344%_ + _%tl187174187346%_) + (let ((_%name187342%_ _%hd187171187337%_)) + (_%E187169187195%_)))) + (_%__match189811189812%_ + (lambda (_%hd187171187337%_ + _%tl187172187339%_ + _%hd187173187344%_ + _%tl187174187346%_) + (let ((_%name187342%_ _%hd187171187337%_)) + (_%E187169187195%_)))) + (_%__match189805189806%_ + (lambda (_%hd187171187337%_ _%tl187172187339%_) + (let ((_%name187342%_ _%hd187171187337%_)) + (_%E187169187195%_))))) + (if (pair? _%block187166187191%_) + (let ((_%tl187183187456%_ (let () (declare (not safe)) - (##cdr _%block187129187154%_))) - (_%hd187145187417%_ + (##cdr _%block187166187191%_))) + (_%hd187182187454%_ (let () (declare (not safe)) - (##car _%block187129187154%_)))) - (if (pair? _%tl187146187419%_) - (let ((_%tl187148187426%_ + (##car _%block187166187191%_)))) + (if (pair? _%tl187183187456%_) + (let ((_%tl187185187463%_ (let () (declare (not safe)) - (##cdr _%tl187146187419%_))) - (_%hd187147187424%_ + (##cdr _%tl187183187456%_))) + (_%hd187184187461%_ (let () (declare (not safe)) - (##car _%tl187146187419%_)))) + (##car _%tl187183187456%_)))) (if (let () (declare (not safe)) - (##eq? _%hd187147187424%_ + (##eq? _%hd187184187461%_ 'restart:)) - (if (pair? _%tl187148187426%_) - (let ((_%tl187150187431%_ + (if (pair? _%tl187185187463%_) + (let ((_%tl187187187468%_ (let () (declare (not safe)) - (##cdr _%tl187148187426%_))) - (_%hd187149187429%_ + (##cdr _%tl187185187463%_))) + (_%hd187186187466%_ (let () (declare (not safe)) - (##car _%tl187148187426%_)))) - (if (pair? _%tl187150187431%_) - (let ((_%tl187152187438%_ + (##car _%tl187185187463%_)))) + (if (pair? _%tl187187187468%_) + (let ((_%tl187189187475%_ (let () (declare (not safe)) - (##cdr _%tl187150187431%_))) - (_%hd187151187436%_ + (##cdr _%tl187187187468%_))) + (_%hd187188187473%_ (let () (declare (not safe)) - (##car _%tl187150187431%_)))) - (if (null? _%tl187152187438%_) - (let ((_%name187422%_ + (##car _%tl187187187468%_)))) + (if (null? _%tl187189187475%_) + (let ((_%name187459%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd187145187417%_) - (_%kont187434%_ _%hd187149187429%_) - (_%assert187441%_ _%hd187151187436%_)) - (_%K187144187414%_ - _%assert187441%_ - _%kont187434%_ - _%name187422%_)) - (_%__match189774189775%_ - _%hd187145187417%_ - _%tl187146187419%_ - _%hd187147187424%_ - _%tl187148187426%_))) + _%hd187182187454%_) + (_%kont187471%_ _%hd187186187466%_) + (_%assert187478%_ _%hd187188187473%_)) + (_%K187181187451%_ + _%assert187478%_ + _%kont187471%_ + _%name187459%_)) + (_%__match189811189812%_ + _%hd187182187454%_ + _%tl187183187456%_ + _%hd187184187461%_ + _%tl187185187463%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189774189775%_ - _%hd187145187417%_ - _%tl187146187419%_ - _%hd187147187424%_ - _%tl187148187426%_))) - (_%__match189774189775%_ - _%hd187145187417%_ - _%tl187146187419%_ - _%hd187147187424%_ - _%tl187148187426%_)) + (_%__match189811189812%_ + _%hd187182187454%_ + _%tl187183187456%_ + _%hd187184187461%_ + _%tl187185187463%_))) + (_%__match189811189812%_ + _%hd187182187454%_ + _%tl187183187456%_ + _%hd187184187461%_ + _%tl187185187463%_)) (if (let () (declare (not safe)) - (##eq? _%hd187147187424%_ + (##eq? _%hd187184187461%_ 'continue:)) - (if (pair? _%tl187148187426%_) - (let ((_%tl187139187314%_ + (if (pair? _%tl187185187463%_) + (let ((_%tl187176187351%_ (let () (declare (not safe)) - (##cdr _%tl187148187426%_))) - (_%hd187138187312%_ + (##cdr _%tl187185187463%_))) + (_%hd187175187349%_ (let () (declare (not safe)) - (##car _%tl187148187426%_)))) - (if (pair? _%tl187139187314%_) - (let ((_%tl187141187321%_ + (##car _%tl187185187463%_)))) + (if (pair? _%tl187176187351%_) + (let ((_%tl187178187358%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl187139187314%_))) - (_%hd187140187319%_ + (##cdr _%tl187176187351%_))) + (_%hd187177187356%_ (let () (declare (not safe)) - (##car _%tl187139187314%_)))) - (if (pair? _%tl187141187321%_) - (let ((_%tl187143187328%_ + (##car _%tl187176187351%_)))) + (if (pair? _%tl187178187358%_) + (let ((_%tl187180187365%_ (let () (declare (not safe)) - (##cdr _%tl187141187321%_))) - (_%hd187142187326%_ + (##cdr _%tl187178187358%_))) + (_%hd187179187363%_ (let () (declare (not safe)) - (##car _%tl187141187321%_)))) - (if (null? _%tl187143187328%_) - (let ((_%name187305%_ _%hd187145187417%_) - (_%kont187317%_ _%hd187138187312%_) - (_%assert187324%_ _%hd187140187319%_) - (_%bind187331%_ _%hd187142187326%_)) - (_%K187133187297%_ - _%bind187331%_ - _%assert187324%_ - _%kont187317%_ - _%name187305%_)) - (_%__match189796189797%_ - _%hd187145187417%_ - _%tl187146187419%_ - _%hd187147187424%_ - _%tl187148187426%_ - _%hd187138187312%_ - _%tl187139187314%_ - _%hd187140187319%_ - _%tl187141187321%_ - _%hd187142187326%_ - _%tl187143187328%_))) - (_%__match189790189791%_ - _%hd187145187417%_ - _%tl187146187419%_ - _%hd187147187424%_ - _%tl187148187426%_ - _%hd187138187312%_ - _%tl187139187314%_ - _%hd187140187319%_ - _%tl187141187321%_))) - (_%__match189784189785%_ - _%hd187145187417%_ - _%tl187146187419%_ - _%hd187147187424%_ - _%tl187148187426%_ - _%hd187138187312%_ - _%tl187139187314%_))) + (##car _%tl187178187358%_)))) + (if (null? _%tl187180187365%_) + (let ((_%name187342%_ _%hd187182187454%_) + (_%kont187354%_ _%hd187175187349%_) + (_%assert187361%_ _%hd187177187356%_) + (_%bind187368%_ _%hd187179187363%_)) + (_%K187170187334%_ + _%bind187368%_ + _%assert187361%_ + _%kont187354%_ + _%name187342%_)) + (_%__match189833189834%_ + _%hd187182187454%_ + _%tl187183187456%_ + _%hd187184187461%_ + _%tl187185187463%_ + _%hd187175187349%_ + _%tl187176187351%_ + _%hd187177187356%_ + _%tl187178187358%_ + _%hd187179187363%_ + _%tl187180187365%_))) + (_%__match189827189828%_ + _%hd187182187454%_ + _%tl187183187456%_ + _%hd187184187461%_ + _%tl187185187463%_ + _%hd187175187349%_ + _%tl187176187351%_ + _%hd187177187356%_ + _%tl187178187358%_))) + (_%__match189821189822%_ + _%hd187182187454%_ + _%tl187183187456%_ + _%hd187184187461%_ + _%tl187185187463%_ + _%hd187175187349%_ + _%tl187176187351%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189778189779%_ - _%hd187145187417%_ - _%tl187146187419%_ - _%hd187147187424%_ - _%tl187148187426%_)) - (_%__match189774189775%_ - _%hd187145187417%_ - _%tl187146187419%_ - _%hd187147187424%_ - _%tl187148187426%_)))) - (_%__match189768189769%_ - _%hd187145187417%_ - _%tl187146187419%_))) - (_%E187132187158%_)))))))) - (if (pair? _%rest187067187075%_) - (let ((_%hd187072187446%_ + (_%__match189815189816%_ + _%hd187182187454%_ + _%tl187183187456%_ + _%hd187184187461%_ + _%tl187185187463%_)) + (_%__match189811189812%_ + _%hd187182187454%_ + _%tl187183187456%_ + _%hd187184187461%_ + _%tl187185187463%_)))) + (_%__match189805189806%_ + _%hd187182187454%_ + _%tl187183187456%_))) + (_%E187169187195%_)))))))) + (if (pair? _%rest187104187112%_) + (let ((_%hd187109187483%_ (let () (declare (not safe)) - (##car _%rest187067187075%_))) - (_%tl187073187448%_ + (##car _%rest187104187112%_))) + (_%tl187110187485%_ (let () (declare (not safe)) - (##cdr _%rest187067187075%_)))) - (let* ((_%block187451%_ _%hd187072187446%_) - (_%rest187453%_ _%tl187073187448%_)) - (_%K187071187443%_ _%rest187453%_ _%block187451%_))) - (_%else187069187124%_)))))) + (##cdr _%rest187104187112%_)))) + (let* ((_%block187488%_ _%hd187109187483%_) + (_%rest187490%_ _%tl187110187485%_)) + (_%K187108187480%_ _%rest187490%_ _%block187488%_))) + (_%else187106187161%_)))))) (define gxc#optimize-match-block - (lambda (_%body181684%_ _%assert181685%_ _%bind181686%_ _%blocks181687%_) - (letrec* ((_%env-assert181922%_ '()) - (_%env-type181923%_ '()) - (_%env-bind181924%_ '()) - (_%in-splice?181925%_ '#f) - (_%do-assert181926%_ - (lambda (_%assert186984%_ _%K186985%_) - (if (pair? _%assert186984%_) - (let _%lp186987%_ ((_%rest186989%_ _%assert186984%_) - (_%env-assert186990%_ - _%env-assert181922%_) - (_%env-type186991%_ - _%env-type181923%_)) - (let* ((_%rest186992187000%_ _%rest186989%_) - (_%else186994187008%_ + (lambda (_%body181721%_ _%assert181722%_ _%bind181723%_ _%blocks181724%_) + (letrec* ((_%env-assert181959%_ '()) + (_%env-type181960%_ '()) + (_%env-bind181961%_ '()) + (_%in-splice?181962%_ '#f) + (_%do-assert181963%_ + (lambda (_%assert187021%_ _%K187022%_) + (if (pair? _%assert187021%_) + (let _%lp187024%_ ((_%rest187026%_ _%assert187021%_) + (_%env-assert187027%_ + _%env-assert181959%_) + (_%env-type187028%_ + _%env-type181960%_)) + (let* ((_%rest187029187037%_ _%rest187026%_) + (_%else187031187045%_ (lambda () - (_%do-assert!181932%_ - _%env-assert186990%_ - _%env-type186991%_ - _%K186985%_))) - (_%K186996187049%_ - (lambda (_%rest187011%_ _%assert187012%_) - (let* ((_%assert187013187020%_ - _%assert187012%_) - (_%E187015187024%_ + (_%do-assert!181969%_ + _%env-assert187027%_ + _%env-type187028%_ + _%K187022%_))) + (_%K187033187086%_ + (lambda (_%rest187048%_ _%assert187049%_) + (let* ((_%assert187050187057%_ + _%assert187049%_) + (_%E187052187061%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%assert187013187020%_ + _%assert187050187057%_ '([expr . val]))) '#!void)) - (_%K187016187037%_ - (lambda (_%val187027%_ - _%expr187028%_) - (let* ((_%sexpr187030%_ + (_%K187053187074%_ + (lambda (_%val187064%_ + _%expr187065%_) + (let* ((_%sexpr187067%_ (gxc#apply-generate-runtime-repr - _%expr187028%_)) - (_%env-assert187032%_ - (cons (cons _%sexpr187030%_ + _%expr187065%_)) + (_%env-assert187069%_ + (cons (cons _%sexpr187067%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%val187027%_) - _%env-assert186990%_)) - (_%env-type187034%_ - (_%fold-assert-type181928%_ - _%expr187028%_ - _%val187027%_ - _%env-type186991%_))) + _%val187064%_) + _%env-assert187027%_)) + (_%env-type187071%_ + (_%fold-assert-type181965%_ + _%expr187065%_ + _%val187064%_ + _%env-type187028%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp186987%_ - _%rest187011%_ - _%env-assert187032%_ - _%env-type187034%_))))) - (if (pair? _%assert187013187020%_) - (let ((_%hd187017187040%_ + (_%lp187024%_ + _%rest187048%_ + _%env-assert187069%_ + _%env-type187071%_))))) + (if (pair? _%assert187050187057%_) + (let ((_%hd187054187077%_ (let () (declare (not safe)) - (##car _%assert187013187020%_))) - (_%tl187018187042%_ + (##car _%assert187050187057%_))) + (_%tl187055187079%_ (let () (declare (not safe)) - (##cdr _%assert187013187020%_)))) - (let* ((_%expr187045%_ - _%hd187017187040%_) - (_%val187047%_ - _%tl187018187042%_)) - (_%K187016187037%_ - _%val187047%_ - _%expr187045%_))) - (_%E187015187024%_)))))) - (if (pair? _%rest186992187000%_) - (let ((_%hd186997187052%_ + (##cdr _%assert187050187057%_)))) + (let* ((_%expr187082%_ + _%hd187054187077%_) + (_%val187084%_ + _%tl187055187079%_)) + (_%K187053187074%_ + _%val187084%_ + _%expr187082%_))) + (_%E187052187061%_)))))) + (if (pair? _%rest187029187037%_) + (let ((_%hd187034187089%_ (let () (declare (not safe)) - (##car _%rest186992187000%_))) - (_%tl186998187054%_ + (##car _%rest187029187037%_))) + (_%tl187035187091%_ (let () (declare (not safe)) - (##cdr _%rest186992187000%_)))) - (let* ((_%assert187057%_ _%hd186997187052%_) - (_%rest187059%_ _%tl186998187054%_)) - (_%K186996187049%_ - _%rest187059%_ - _%assert187057%_))) - (_%else186994187008%_)))) - (_%K186985%_)))) - (_%predicate-type181927%_ - (lambda (_%id186929%_) - (let* ((_%sym186931%_ + (##cdr _%rest187029187037%_)))) + (let* ((_%assert187094%_ _%hd187034187089%_) + (_%rest187096%_ _%tl187035187091%_)) + (_%K187033187086%_ + _%rest187096%_ + _%assert187094%_))) + (_%else187031187045%_)))) + (_%K187022%_)))) + (_%predicate-type181964%_ + (lambda (_%id186966%_) + (let* ((_%sym186968%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id186929%_))) - (_%$e186933%_ _%sym186931%_)) - (let ((_%default186935186966%_ + (gxc#identifier-symbol _%id186966%_))) + (_%$e186970%_ _%sym186968%_)) + (let ((_%default186972187003%_ (lambda () - (let* ((_%g186938186945%_ + (let* ((_%g186975186982%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym186931%_))) - (_%else186940186953%_ (lambda () '#f)) - (_%K186942186958%_ - (lambda (_%t186956%_) - (let ((__tmp192439 + _%sym186968%_))) + (_%else186977186990%_ (lambda () '#f)) + (_%K186979186995%_ + (lambda (_%t186993%_) + (let ((__tmp192476 (cons 'predicate-type - (cons _%id186929%_ + (cons _%id186966%_ '())))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp192439 - _%t186956%_))))) + __tmp192476 + _%t186993%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g186938186945%_ + _%g186975186982%_ 'gxc#!predicate::t)) - (let* ((_%e186943186961%_ + (let* ((_%e186980186998%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g186938186945%_ + _%g186975186982%_ '1 '#f '#f))) - (_%t186964%_ _%e186943186961%_)) - (_%K186942186958%_ _%t186964%_)) - (_%else186940186953%_))))) - (_%table186936186968%_ + (_%t187001%_ _%e186980186998%_)) + (_%K186979186995%_ _%t187001%_)) + (_%else186977186990%_))))) + (_%table186973187005%_ '#(#f (##box? . 3) #f @@ -3796,48 +3796,48 @@ #f #f #f))) - (if (symbol? _%$e186933%_) - (let* ((_%h186971%_ + (if (symbol? _%$e186970%_) + (let* ((_%h187008%_ (let () (declare (not safe)) - (##symbol-hash _%$e186933%_))) - (_%ix186974%_ + (##symbol-hash _%$e186970%_))) + (_%ix187011%_ (let () (declare (not safe)) - (##fxmodulo _%h186971%_ '63))) - (_%q186977%_ + (##fxmodulo _%h187008%_ '63))) + (_%q187014%_ (let () (declare (not safe)) (##vector-ref - _%table186936186968%_ - _%ix186974%_)))) - (if _%q186977%_ + _%table186973187005%_ + _%ix187011%_)))) + (if _%q187014%_ (if (eq? (let () (declare (not safe)) - (##car _%q186977%_)) - _%$e186933%_) - (let ((_%x186981%_ + (##car _%q187014%_)) + _%$e186970%_) + (let ((_%x187018%_ (let () (declare (not safe)) - (##cdr _%q186977%_)))) + (##cdr _%q187014%_)))) (if (let () (declare (not safe)) - (##fx< _%x186981%_ '5)) + (##fx< _%x187018%_ '5)) (if (let () (declare (not safe)) - (##fx< _%x186981%_ '2)) + (##fx< _%x187018%_ '2)) (if (let () (declare (not safe)) - (##fx= _%x186981%_ '0)) + (##fx= _%x187018%_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _%x186981%_ '2)) + (##fx= _%x187018%_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _%x186981%_ + (##fx= _%x187018%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -3845,356 +3845,356 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _%x186981%_ '7)) + (##fx< _%x187018%_ '7)) (if (let () (declare (not safe)) - (##fx= _%x186981%_ '5)) + (##fx= _%x187018%_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _%x186981%_ '7)) + (##fx= _%x187018%_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _%x186981%_ + (##fx= _%x187018%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box 'stx-datum))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%default186935186966%_)) - (_%default186935186966%_))) - (_%default186935186966%_)))))) - (_%fold-assert-type181928%_ - (lambda (_%expr185875%_ _%val185876%_ _%env185877%_) - (let* ((_%__stx189893189894%_ _%expr185875%_) - (_%g185885186064%_ + (_%default186972187003%_)) + (_%default186972187003%_))) + (_%default186972187003%_)))))) + (_%fold-assert-type181965%_ + (lambda (_%expr185912%_ _%val185913%_ _%env185914%_) + (let* ((_%__stx189930189931%_ _%expr185912%_) + (_%g185922186101%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189893189894%_))))) - (let ((_%__kont189895189896%_ - (lambda (_%L186897%_ _%L186898%_) - (let ((_%$e186920%_ - (_%predicate-type181927%_ _%L186898%_))) - (if _%$e186920%_ - ((lambda (_%t186923%_) - (cons (cons _%L186897%_ - (cons _%t186923%_ - (cons _%val185876%_ + _%__stx189930189931%_))))) + (let ((_%__kont189932189933%_ + (lambda (_%L186934%_ _%L186935%_) + (let ((_%$e186957%_ + (_%predicate-type181964%_ _%L186935%_))) + (if _%$e186957%_ + ((lambda (_%t186960%_) + (cons (cons _%L186934%_ + (cons _%t186960%_ + (cons _%val185913%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env185877%_)) - _%$e186920%_) - _%env185877%_)))) - (_%__kont189897189898%_ - (lambda (_%L186586%_ _%L186587%_ _%L186588%_) - (let ((_%$e186613%_ + _%env185914%_)) + _%$e186957%_) + _%env185914%_)))) + (_%__kont189934189935%_ + (lambda (_%L186623%_ _%L186624%_ _%L186625%_) + (let ((_%$e186650%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L186588%_)))) - (if (or (eq? '##fx= _%$e186613%_) - (eq? 'fx= _%$e186613%_)) - (let* ((_%__stx189799189800%_ - _%L186587%_) - (_%g186620186649%_ + (gxc#identifier-symbol _%L186625%_)))) + (if (or (eq? '##fx= _%$e186650%_) + (eq? 'fx= _%$e186650%_)) + (let* ((_%__stx189836189837%_ + _%L186624%_) + (_%g186657186686%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189799189800%_))))) - (let ((_%__kont189801189802%_ - (lambda (_%L186717%_ - _%L186718%_) - (let ((_%$e186743%_ - (_%countf-symbol181929%_ - _%L186718%_))) - (if _%$e186743%_ - ((lambda (_%sym186746%_) - (cons (cons _%L186717%_ + _%__stx189836189837%_))))) + (let ((_%__kont189838189839%_ + (lambda (_%L186754%_ + _%L186755%_) + (let ((_%$e186780%_ + (_%countf-symbol181966%_ + _%L186755%_))) + (if _%$e186780%_ + ((lambda (_%sym186783%_) + (cons (cons _%L186754%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym186746%_ + (cons _%sym186783%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L186586%_)) - (cons _%val185876%_ '())))) - _%env185877%_)) - _%$e186743%_) - _%env185877%_)))) + (gx#stx-e _%L186623%_)) + (cons _%val185913%_ '())))) + _%env185914%_)) + _%$e186780%_) + _%env185914%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189803189804%_ - (lambda () _%env185877%_))) + (_%__kont189840189841%_ + (lambda () _%env185914%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189799189800%_)) - (let ((_%e186624186661%_ + _%__stx189836189837%_)) + (let ((_%e186661186698%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189799189800%_)))) - (let ((_%tl186626186666%_ + _%__stx189836189837%_)))) + (let ((_%tl186663186703%_ (let () (declare (not safe)) - (##cdr _%e186624186661%_))) - (_%hd186625186664%_ + (##cdr _%e186661186698%_))) + (_%hd186662186701%_ (let () (declare (not safe)) - (##car _%e186624186661%_)))) + (##car _%e186661186698%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186625186664%_)) + _%hd186662186701%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd186625186664%_)) + _%hd186662186701%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186626186666%_)) - (let ((_%e186627186669%_ + (gx#stx-pair? _%tl186663186703%_)) + (let ((_%e186664186706%_ (let () (declare (not safe)) - (gx#stx-e _%tl186626186666%_)))) - (let ((_%tl186629186674%_ + (gx#stx-e _%tl186663186703%_)))) + (let ((_%tl186666186711%_ (let () (declare (not safe)) - (##cdr _%e186627186669%_))) - (_%hd186628186672%_ + (##cdr _%e186664186706%_))) + (_%hd186665186709%_ (let () (declare (not safe)) - (##car _%e186627186669%_)))) + (##car _%e186664186706%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186628186672%_)) - (let ((_%e186630186677%_ + (gx#stx-pair? _%hd186665186709%_)) + (let ((_%e186667186714%_ (let () (declare (not safe)) - (gx#stx-e _%hd186628186672%_)))) - (let ((_%tl186632186682%_ + (gx#stx-e _%hd186665186709%_)))) + (let ((_%tl186669186719%_ (let () (declare (not safe)) - (##cdr _%e186630186677%_))) - (_%hd186631186680%_ + (##cdr _%e186667186714%_))) + (_%hd186668186717%_ (let () (declare (not safe)) - (##car _%e186630186677%_)))) + (##car _%e186667186714%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186631186680%_)) + (gx#identifier? _%hd186668186717%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd186631186680%_)) + _%hd186668186717%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186632186682%_)) - (let ((_%e186633186685%_ + _%tl186669186719%_)) + (let ((_%e186670186722%_ (let () (declare (not safe)) (gx#stx-e - _%tl186632186682%_)))) - (let ((_%tl186635186690%_ + _%tl186669186719%_)))) + (let ((_%tl186672186727%_ (let () (declare (not safe)) - (##cdr _%e186633186685%_))) - (_%hd186634186688%_ + (##cdr _%e186670186722%_))) + (_%hd186671186725%_ (let () (declare (not safe)) - (##car _%e186633186685%_)))) + (##car _%e186670186722%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186635186690%_)) + _%tl186672186727%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186629186674%_)) - (let ((_%e186636186693%_ + _%tl186666186711%_)) + (let ((_%e186673186730%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl186629186674%_)))) - (let ((_%tl186638186698%_ + (gx#stx-e _%tl186666186711%_)))) + (let ((_%tl186675186735%_ (let () (declare (not safe)) - (##cdr _%e186636186693%_))) - (_%hd186637186696%_ + (##cdr _%e186673186730%_))) + (_%hd186674186733%_ (let () (declare (not safe)) - (##car _%e186636186693%_)))) + (##car _%e186673186730%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186637186696%_)) - (let ((_%e186639186701%_ + (gx#stx-pair? _%hd186674186733%_)) + (let ((_%e186676186738%_ (let () (declare (not safe)) - (gx#stx-e _%hd186637186696%_)))) - (let ((_%tl186641186706%_ + (gx#stx-e _%hd186674186733%_)))) + (let ((_%tl186678186743%_ (let () (declare (not safe)) - (##cdr _%e186639186701%_))) - (_%hd186640186704%_ + (##cdr _%e186676186738%_))) + (_%hd186677186741%_ (let () (declare (not safe)) - (##car _%e186639186701%_)))) + (##car _%e186676186738%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186640186704%_)) + (gx#identifier? _%hd186677186741%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186640186704%_)) + (gx#stx-eq? '%#ref _%hd186677186741%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186641186706%_)) - (let ((_%e186642186709%_ + (gx#stx-pair? _%tl186678186743%_)) + (let ((_%e186679186746%_ (let () (declare (not safe)) (gx#stx-e - _%tl186641186706%_)))) - (let ((_%tl186644186714%_ + _%tl186678186743%_)))) + (let ((_%tl186681186751%_ (let () (declare (not safe)) - (##cdr _%e186642186709%_))) - (_%hd186643186712%_ + (##cdr _%e186679186746%_))) + (_%hd186680186749%_ (let () (declare (not safe)) - (##car _%e186642186709%_)))) + (##car _%e186679186746%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186644186714%_)) + _%tl186681186751%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186638186698%_)) - (_%__kont189801189802%_ - _%hd186643186712%_ - _%hd186634186688%_) - (_%__kont189803189804%_)) - (_%__kont189803189804%_)))) - (_%__kont189803189804%_)) - (_%__kont189803189804%_)) - (_%__kont189803189804%_)))) - (_%__kont189803189804%_)))) - (_%__kont189803189804%_)) - (_%__kont189803189804%_)))) + _%tl186675186735%_)) + (_%__kont189838189839%_ + _%hd186680186749%_ + _%hd186671186725%_) + (_%__kont189840189841%_)) + (_%__kont189840189841%_)))) + (_%__kont189840189841%_)) + (_%__kont189840189841%_)) + (_%__kont189840189841%_)))) + (_%__kont189840189841%_)))) + (_%__kont189840189841%_)) + (_%__kont189840189841%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189803189804%_)) - (_%__kont189803189804%_)) - (_%__kont189803189804%_)))) - (_%__kont189803189804%_)))) - (_%__kont189803189804%_)) - (_%__kont189803189804%_)) - (_%__kont189803189804%_)))) + (_%__kont189840189841%_)) + (_%__kont189840189841%_)) + (_%__kont189840189841%_)))) + (_%__kont189840189841%_)))) + (_%__kont189840189841%_)) + (_%__kont189840189841%_)) + (_%__kont189840189841%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189803189804%_)))) - (if (or (eq? '##eq? _%$e186613%_) - (eq? 'eq? _%$e186613%_) - (eq? '##eqv? _%$e186613%_) - (eq? 'eqv? _%$e186613%_) - (eq? '##equal? _%$e186613%_) - (eq? 'equal? _%$e186613%_) + (_%__kont189840189841%_)))) + (if (or (eq? '##eq? _%$e186650%_) + (eq? 'eq? _%$e186650%_) + (eq? '##eqv? _%$e186650%_) + (eq? 'eqv? _%$e186650%_) + (eq? '##equal? _%$e186650%_) + (eq? 'equal? _%$e186650%_) (eq? 'gx#free-identifier=? - _%$e186613%_) - (eq? 'gx#stx-eq? _%$e186613%_)) - ((lambda (_%sym186773%_) - (let* ((_%sym186775%_ - (_%eqf-symbol181930%_ - _%sym186773%_)) - (_%__stx189867189868%_ - _%L186587%_) - (_%g186778186791%_ + _%$e186650%_) + (eq? 'gx#stx-eq? _%$e186650%_)) + ((lambda (_%sym186810%_) + (let* ((_%sym186812%_ + (_%eqf-symbol181967%_ + _%sym186810%_)) + (_%__stx189904189905%_ + _%L186624%_) + (_%g186815186828%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189867189868%_))))) - (let ((_%__kont189869189870%_ - (lambda (_%L186819%_) - (cons (cons _%L186819%_ + _%__stx189904189905%_))))) + (let ((_%__kont189906189907%_ + (lambda (_%L186856%_) + (cons (cons _%L186856%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym186775%_ + (cons _%sym186812%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L186586%_)) - (cons _%val185876%_ '())))) - _%env185877%_))) + (gx#stx-e _%L186623%_)) + (cons _%val185913%_ '())))) + _%env185914%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189871189872%_ + (_%__kont189908189909%_ (lambda () - _%env185877%_))) + _%env185914%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189867189868%_)) - (let ((_%e186781186803%_ + _%__stx189904189905%_)) + (let ((_%e186818186840%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189867189868%_)))) - (let ((_%tl186783186808%_ + _%__stx189904189905%_)))) + (let ((_%tl186820186845%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186781186803%_))) - (_%hd186782186806%_ - (let () (declare (not safe)) (##car _%e186781186803%_)))) + (##cdr _%e186818186840%_))) + (_%hd186819186843%_ + (let () (declare (not safe)) (##car _%e186818186840%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186782186806%_)) + (gx#identifier? _%hd186819186843%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186782186806%_)) + (gx#stx-eq? '%#ref _%hd186819186843%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186783186808%_)) - (let ((_%e186784186811%_ + (gx#stx-pair? _%tl186820186845%_)) + (let ((_%e186821186848%_ (let () (declare (not safe)) - (gx#stx-e _%tl186783186808%_)))) - (let ((_%tl186786186816%_ + (gx#stx-e _%tl186820186845%_)))) + (let ((_%tl186823186853%_ (let () (declare (not safe)) - (##cdr _%e186784186811%_))) - (_%hd186785186814%_ + (##cdr _%e186821186848%_))) + (_%hd186822186851%_ (let () (declare (not safe)) - (##car _%e186784186811%_)))) + (##car _%e186821186848%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186786186816%_)) - (_%__kont189869189870%_ - _%hd186785186814%_) - (_%__kont189871189872%_)))) - (_%__kont189871189872%_)) - (_%__kont189871189872%_)) - (_%__kont189871189872%_)))) + (gx#stx-null? _%tl186823186853%_)) + (_%__kont189906189907%_ + _%hd186822186851%_) + (_%__kont189908189909%_)))) + (_%__kont189908189909%_)) + (_%__kont189908189909%_)) + (_%__kont189908189909%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189871189872%_))))) - _%$e186613%_) - _%env185877%_))))) - (_%__kont189899189900%_ - (lambda (_%L186490%_ _%L186491%_ _%L186492%_) - (_%fold-assert-type181928%_ + (_%__kont189908189909%_))))) + _%$e186650%_) + _%env185914%_))))) + (_%__kont189936189937%_ + (lambda (_%L186527%_ _%L186528%_ _%L186529%_) + (_%fold-assert-type181965%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4203,42 +4203,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186492%_ '())) - (cons _%L186490%_ + (cons _%L186529%_ '())) + (cons _%L186527%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L186491%_ '())) + (cons _%L186528%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val185876%_ - _%env185877%_))) - (_%__kont189901189902%_ - (lambda (_%L186380%_ _%L186381%_ _%L186382%_) - (let ((_%$e186411%_ + _%val185913%_ + _%env185914%_))) + (_%__kont189938189939%_ + (lambda (_%L186417%_ _%L186418%_ _%L186419%_) + (let ((_%$e186448%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L186382%_)))) + (gxc#identifier-symbol _%L186419%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e186411%_) - (eq? 'gx#stx-eq? _%$e186411%_)) - ((lambda (_%sym186417%_) - (let ((_%sym186419%_ - (_%eqf-symbol181930%_ - _%sym186417%_))) - (cons (cons _%L186381%_ - (cons _%sym186419%_ - (cons _%L186380%_ + _%$e186448%_) + (eq? 'gx#stx-eq? _%$e186448%_)) + ((lambda (_%sym186454%_) + (let ((_%sym186456%_ + (_%eqf-symbol181967%_ + _%sym186454%_))) + (cons (cons _%L186418%_ + (cons _%sym186456%_ + (cons _%L186417%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%val185876%_ '())))) + (cons _%val185913%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env185877%_))) - _%$e186411%_) - _%env185877%_)))) - (_%__kont189903189904%_ - (lambda (_%L186264%_ _%L186265%_ _%L186266%_) - (_%fold-assert-type181928%_ + _%env185914%_))) + _%$e186448%_) + _%env185914%_)))) + (_%__kont189940189941%_ + (lambda (_%L186301%_ _%L186302%_ _%L186303%_) + (_%fold-assert-type181965%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4247,4397 +4247,4397 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186266%_ '())) + (cons _%L186303%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186264%_ + (cons _%L186301%_ '())) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L186265%_ '())) + (cons _%L186302%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val185876%_ - _%env185877%_))) - (_%__kont189905189906%_ - (lambda (_%L186148%_ _%L186149%_ _%L186150%_) - (_%fold-assert-type181928%_ + _%val185913%_ + _%env185914%_))) + (_%__kont189942189943%_ + (lambda (_%L186185%_ _%L186186%_ _%L186187%_) + (_%fold-assert-type181965%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L186150%_ - _%L186148%_ - _%L186149%_)) - _%val185876%_ - _%env185877%_))) - (_%__kont189907189908%_ - (lambda () _%env185877%_))) + _%L186187%_ + _%L186185%_ + _%L186186%_)) + _%val185913%_ + _%env185914%_))) + (_%__kont189944189945%_ + (lambda () _%env185914%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189893189894%_)) - (let ((_%e185889186841%_ + (gx#stx-pair? _%__stx189930189931%_)) + (let ((_%e185926186878%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189893189894%_)))) - (let ((_%tl185891186846%_ + (gx#stx-e _%__stx189930189931%_)))) + (let ((_%tl185928186883%_ (let () (declare (not safe)) - (##cdr _%e185889186841%_))) - (_%hd185890186844%_ + (##cdr _%e185926186878%_))) + (_%hd185927186881%_ (let () (declare (not safe)) - (##car _%e185889186841%_)))) + (##car _%e185926186878%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185890186844%_)) + (gx#identifier? _%hd185927186881%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd185890186844%_)) + _%hd185927186881%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185891186846%_)) - (let ((_%e185892186849%_ + _%tl185928186883%_)) + (let ((_%e185929186886%_ (let () (declare (not safe)) (gx#stx-e - _%tl185891186846%_)))) - (let ((_%tl185894186854%_ + _%tl185928186883%_)))) + (let ((_%tl185931186891%_ (let () (declare (not safe)) - (##cdr _%e185892186849%_))) - (_%hd185893186852%_ + (##cdr _%e185929186886%_))) + (_%hd185930186889%_ (let () (declare (not safe)) - (##car _%e185892186849%_)))) + (##car _%e185929186886%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185893186852%_)) - (let ((_%e185895186857%_ + _%hd185930186889%_)) + (let ((_%e185932186894%_ (let () (declare (not safe)) (gx#stx-e - _%hd185893186852%_)))) - (let ((_%tl185897186862%_ + _%hd185930186889%_)))) + (let ((_%tl185934186899%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185895186857%_))) - (_%hd185896186860%_ - (let () (declare (not safe)) (##car _%e185895186857%_)))) + (##cdr _%e185932186894%_))) + (_%hd185933186897%_ + (let () (declare (not safe)) (##car _%e185932186894%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185896186860%_)) + (gx#identifier? _%hd185933186897%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185896186860%_)) + (gx#stx-eq? '%#ref _%hd185933186897%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185897186862%_)) - (let ((_%e185898186865%_ + (gx#stx-pair? _%tl185934186899%_)) + (let ((_%e185935186902%_ (let () (declare (not safe)) - (gx#stx-e _%tl185897186862%_)))) - (let ((_%tl185900186870%_ + (gx#stx-e _%tl185934186899%_)))) + (let ((_%tl185937186907%_ (let () (declare (not safe)) - (##cdr _%e185898186865%_))) - (_%hd185899186868%_ + (##cdr _%e185935186902%_))) + (_%hd185936186905%_ (let () (declare (not safe)) - (##car _%e185898186865%_)))) + (##car _%e185935186902%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185900186870%_)) + (gx#stx-null? _%tl185937186907%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185894186854%_)) - (let ((_%e185901186873%_ + (gx#stx-pair? _%tl185931186891%_)) + (let ((_%e185938186910%_ (let () (declare (not safe)) (gx#stx-e - _%tl185894186854%_)))) - (let ((_%tl185903186878%_ + _%tl185931186891%_)))) + (let ((_%tl185940186915%_ (let () (declare (not safe)) - (##cdr _%e185901186873%_))) - (_%hd185902186876%_ + (##cdr _%e185938186910%_))) + (_%hd185939186913%_ (let () (declare (not safe)) - (##car _%e185901186873%_)))) + (##car _%e185938186910%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185902186876%_)) - (let ((_%e185904186881%_ + _%hd185939186913%_)) + (let ((_%e185941186918%_ (let () (declare (not safe)) (gx#stx-e - _%hd185902186876%_)))) - (let ((_%tl185906186886%_ + _%hd185939186913%_)))) + (let ((_%tl185943186923%_ (let () (declare (not safe)) - (##cdr _%e185904186881%_))) - (_%hd185905186884%_ + (##cdr _%e185941186918%_))) + (_%hd185942186921%_ (let () (declare (not safe)) - (##car _%e185904186881%_)))) + (##car _%e185941186918%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185905186884%_)) + _%hd185942186921%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd185905186884%_)) + (gx#stx-eq? '%#ref _%hd185942186921%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185906186886%_)) - (let ((_%e185907186889%_ + (gx#stx-pair? _%tl185943186923%_)) + (let ((_%e185944186926%_ (let () (declare (not safe)) - (gx#stx-e _%tl185906186886%_)))) - (let ((_%tl185909186894%_ + (gx#stx-e _%tl185943186923%_)))) + (let ((_%tl185946186931%_ (let () (declare (not safe)) - (##cdr _%e185907186889%_))) - (_%hd185908186892%_ + (##cdr _%e185944186926%_))) + (_%hd185945186929%_ (let () (declare (not safe)) - (##car _%e185907186889%_)))) + (##car _%e185944186926%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185909186894%_)) + (gx#stx-null? _%tl185946186931%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185903186878%_)) - (_%__kont189895189896%_ - _%hd185908186892%_ - _%hd185899186868%_) + (gx#stx-null? _%tl185940186915%_)) + (_%__kont189932189933%_ + _%hd185945186929%_ + _%hd185936186905%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185903186878%_)) - (let ((_%e185928186562%_ + (gx#stx-pair? _%tl185940186915%_)) + (let ((_%e185965186599%_ (let () (declare (not safe)) (gx#stx-e - _%tl185903186878%_)))) - (let ((_%tl185930186567%_ + _%tl185940186915%_)))) + (let ((_%tl185967186604%_ (let () (declare (not safe)) - (##cdr _%e185928186562%_))) - (_%hd185929186565%_ + (##cdr _%e185965186599%_))) + (_%hd185966186602%_ (let () (declare (not safe)) - (##car _%e185928186562%_)))) + (##car _%e185965186599%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185929186565%_)) - (let ((_%e185931186570%_ + _%hd185966186602%_)) + (let ((_%e185968186607%_ (let () (declare (not safe)) (gx#stx-e - _%hd185929186565%_)))) - (let ((_%tl185933186575%_ + _%hd185966186602%_)))) + (let ((_%tl185970186612%_ (let () (declare (not safe)) - (##cdr _%e185931186570%_))) - (_%hd185932186573%_ + (##cdr _%e185968186607%_))) + (_%hd185969186610%_ (let () (declare (not safe)) - (##car _%e185931186570%_)))) + (##car _%e185968186607%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185932186573%_)) + _%hd185969186610%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd185932186573%_)) + (gx#stx-eq? '%#quote _%hd185969186610%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185933186575%_)) - (let ((_%e185934186578%_ + (gx#stx-pair? _%tl185970186612%_)) + (let ((_%e185971186615%_ (let () (declare (not safe)) - (gx#stx-e _%tl185933186575%_)))) - (let ((_%tl185936186583%_ + (gx#stx-e _%tl185970186612%_)))) + (let ((_%tl185973186620%_ (let () (declare (not safe)) - (##cdr _%e185934186578%_))) - (_%hd185935186581%_ + (##cdr _%e185971186615%_))) + (_%hd185972186618%_ (let () (declare (not safe)) - (##car _%e185934186578%_)))) + (##car _%e185971186615%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185936186583%_)) + (gx#stx-null? _%tl185973186620%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185930186567%_)) - (_%__kont189897189898%_ - _%hd185935186581%_ - _%hd185902186876%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) + (gx#stx-null? _%tl185967186604%_)) + (_%__kont189934189935%_ + _%hd185972186618%_ + _%hd185939186913%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185932186573%_)) + (gx#stx-eq? '%#quote-syntax _%hd185969186610%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185933186575%_)) - (let ((_%e185994186372%_ + (gx#stx-pair? _%tl185970186612%_)) + (let ((_%e186031186409%_ (let () (declare (not safe)) - (gx#stx-e _%tl185933186575%_)))) - (let ((_%tl185996186377%_ + (gx#stx-e _%tl185970186612%_)))) + (let ((_%tl186033186414%_ (let () (declare (not safe)) - (##cdr _%e185994186372%_))) - (_%hd185995186375%_ + (##cdr _%e186031186409%_))) + (_%hd186032186412%_ (let () (declare (not safe)) - (##car _%e185994186372%_)))) + (##car _%e186031186409%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185996186377%_)) + (gx#stx-null? _%tl186033186414%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185930186567%_)) - (_%__kont189901189902%_ - _%hd185995186375%_ - _%hd185908186892%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_))) - (_%__kont189907189908%_)))) + (gx#stx-null? _%tl185967186604%_)) + (_%__kont189938189939%_ + _%hd186032186412%_ + _%hd185945186929%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_))) + (_%__kont189944189945%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189907189908%_)))) - (_%__kont189907189908%_))) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185903186878%_)) - (let ((_%e185928186562%_ + (gx#stx-pair? _%tl185940186915%_)) + (let ((_%e185965186599%_ (let () (declare (not safe)) - (gx#stx-e _%tl185903186878%_)))) - (let ((_%tl185930186567%_ + (gx#stx-e _%tl185940186915%_)))) + (let ((_%tl185967186604%_ (let () (declare (not safe)) - (##cdr _%e185928186562%_))) - (_%hd185929186565%_ + (##cdr _%e185965186599%_))) + (_%hd185966186602%_ (let () (declare (not safe)) - (##car _%e185928186562%_)))) + (##car _%e185965186599%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185929186565%_)) - (let ((_%e185931186570%_ + _%hd185966186602%_)) + (let ((_%e185968186607%_ (let () (declare (not safe)) (gx#stx-e - _%hd185929186565%_)))) - (let ((_%tl185933186575%_ + _%hd185966186602%_)))) + (let ((_%tl185970186612%_ (let () (declare (not safe)) - (##cdr _%e185931186570%_))) - (_%hd185932186573%_ + (##cdr _%e185968186607%_))) + (_%hd185969186610%_ (let () (declare (not safe)) - (##car _%e185931186570%_)))) + (##car _%e185968186607%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185932186573%_)) + _%hd185969186610%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185932186573%_)) + _%hd185969186610%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185933186575%_)) - (let ((_%e185934186578%_ + (gx#stx-pair? _%tl185970186612%_)) + (let ((_%e185971186615%_ (let () (declare (not safe)) - (gx#stx-e _%tl185933186575%_)))) - (let ((_%tl185936186583%_ + (gx#stx-e _%tl185970186612%_)))) + (let ((_%tl185973186620%_ (let () (declare (not safe)) - (##cdr _%e185934186578%_))) - (_%hd185935186581%_ + (##cdr _%e185971186615%_))) + (_%hd185972186618%_ (let () (declare (not safe)) - (##car _%e185934186578%_)))) + (##car _%e185971186615%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185936186583%_)) + (gx#stx-null? _%tl185973186620%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185930186567%_)) - (_%__kont189897189898%_ - _%hd185935186581%_ - _%hd185902186876%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)) + (gx#stx-null? _%tl185967186604%_)) + (_%__kont189934189935%_ + _%hd185972186618%_ + _%hd185939186913%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_))))) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185903186878%_)) - (let ((_%e185928186562%_ + (gx#stx-pair? _%tl185940186915%_)) + (let ((_%e185965186599%_ (let () (declare (not safe)) - (gx#stx-e _%tl185903186878%_)))) - (let ((_%tl185930186567%_ + (gx#stx-e _%tl185940186915%_)))) + (let ((_%tl185967186604%_ (let () (declare (not safe)) - (##cdr _%e185928186562%_))) - (_%hd185929186565%_ + (##cdr _%e185965186599%_))) + (_%hd185966186602%_ (let () (declare (not safe)) - (##car _%e185928186562%_)))) + (##car _%e185965186599%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185929186565%_)) - (let ((_%e185931186570%_ + (gx#stx-pair? _%hd185966186602%_)) + (let ((_%e185968186607%_ (let () (declare (not safe)) - (gx#stx-e _%hd185929186565%_)))) - (let ((_%tl185933186575%_ + (gx#stx-e _%hd185966186602%_)))) + (let ((_%tl185970186612%_ (let () (declare (not safe)) - (##cdr _%e185931186570%_))) - (_%hd185932186573%_ + (##cdr _%e185968186607%_))) + (_%hd185969186610%_ (let () (declare (not safe)) - (##car _%e185931186570%_)))) + (##car _%e185968186607%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185932186573%_)) + _%hd185969186610%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185932186573%_)) + _%hd185969186610%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185933186575%_)) - (let ((_%e185934186578%_ + _%tl185970186612%_)) + (let ((_%e185971186615%_ (let () (declare (not safe)) (gx#stx-e - _%tl185933186575%_)))) - (let ((_%tl185936186583%_ + _%tl185970186612%_)))) + (let ((_%tl185973186620%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185934186578%_))) - (_%hd185935186581%_ - (let () (declare (not safe)) (##car _%e185934186578%_)))) + (##cdr _%e185971186615%_))) + (_%hd185972186618%_ + (let () (declare (not safe)) (##car _%e185971186615%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185936186583%_)) + (gx#stx-null? _%tl185973186620%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185930186567%_)) - (_%__kont189897189898%_ - _%hd185935186581%_ - _%hd185902186876%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) + (gx#stx-null? _%tl185967186604%_)) + (_%__kont189934189935%_ + _%hd185972186618%_ + _%hd185939186913%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189907189908%_)) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185903186878%_)) - (let ((_%e185928186562%_ + (gx#stx-pair? _%tl185940186915%_)) + (let ((_%e185965186599%_ (let () (declare (not safe)) - (gx#stx-e _%tl185903186878%_)))) - (let ((_%tl185930186567%_ + (gx#stx-e _%tl185940186915%_)))) + (let ((_%tl185967186604%_ (let () (declare (not safe)) - (##cdr _%e185928186562%_))) - (_%hd185929186565%_ + (##cdr _%e185965186599%_))) + (_%hd185966186602%_ (let () (declare (not safe)) - (##car _%e185928186562%_)))) + (##car _%e185965186599%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185929186565%_)) - (let ((_%e185931186570%_ + (gx#stx-pair? _%hd185966186602%_)) + (let ((_%e185968186607%_ (let () (declare (not safe)) - (gx#stx-e _%hd185929186565%_)))) - (let ((_%tl185933186575%_ + (gx#stx-e _%hd185966186602%_)))) + (let ((_%tl185970186612%_ (let () (declare (not safe)) - (##cdr _%e185931186570%_))) - (_%hd185932186573%_ + (##cdr _%e185968186607%_))) + (_%hd185969186610%_ (let () (declare (not safe)) - (##car _%e185931186570%_)))) + (##car _%e185968186607%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185932186573%_)) + (gx#identifier? _%hd185969186610%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185932186573%_)) + _%hd185969186610%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185933186575%_)) - (let ((_%e185934186578%_ + _%tl185970186612%_)) + (let ((_%e185971186615%_ (let () (declare (not safe)) (gx#stx-e - _%tl185933186575%_)))) - (let ((_%tl185936186583%_ + _%tl185970186612%_)))) + (let ((_%tl185973186620%_ (let () (declare (not safe)) - (##cdr _%e185934186578%_))) - (_%hd185935186581%_ + (##cdr _%e185971186615%_))) + (_%hd185972186618%_ (let () (declare (not safe)) - (##car _%e185934186578%_)))) + (##car _%e185971186615%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185936186583%_)) + _%tl185973186620%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl185930186567%_)) - (_%__kont189897189898%_ - _%hd185935186581%_ - _%hd185902186876%_ - _%hd185899186868%_) + (gx#stx-null? _%tl185967186604%_)) + (_%__kont189934189935%_ + _%hd185972186618%_ + _%hd185939186913%_ + _%hd185936186905%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185905186884%_)) + (gx#stx-eq? '%#quote _%hd185942186921%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185906186886%_)) - (let ((_%e185958186474%_ + (gx#stx-pair? _%tl185943186923%_)) + (let ((_%e185995186511%_ (let () (declare (not safe)) - (gx#stx-e _%tl185906186886%_)))) - (let ((_%tl185960186479%_ + (gx#stx-e _%tl185943186923%_)))) + (let ((_%tl185997186516%_ (let () (declare (not safe)) - (##cdr _%e185958186474%_))) - (_%hd185959186477%_ + (##cdr _%e185995186511%_))) + (_%hd185996186514%_ (let () (declare (not safe)) - (##car _%e185958186474%_)))) - (_%__kont189907189908%_))) - (_%__kont189907189908%_)) + (##car _%e185995186511%_)))) + (_%__kont189944189945%_))) + (_%__kont189944189945%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185905186884%_)) + (gx#stx-eq? '%#quote-syntax _%hd185942186921%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185906186886%_)) - (let ((_%e186018186232%_ + (gx#stx-pair? _%tl185943186923%_)) + (let ((_%e186055186269%_ (let () (declare (not safe)) - (gx#stx-e _%tl185906186886%_)))) - (let ((_%tl186020186237%_ + (gx#stx-e _%tl185943186923%_)))) + (let ((_%tl186057186274%_ (let () (declare (not safe)) - (##cdr _%e186018186232%_))) - (_%hd186019186235%_ + (##cdr _%e186055186269%_))) + (_%hd186056186272%_ (let () (declare (not safe)) - (##car _%e186018186232%_)))) - (_%__kont189907189908%_))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) + (##car _%e186055186269%_)))) + (_%__kont189944189945%_))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185905186884%_)) + (gx#stx-eq? '%#quote _%hd185942186921%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185906186886%_)) - (let ((_%e185958186474%_ + (gx#stx-pair? _%tl185943186923%_)) + (let ((_%e185995186511%_ (let () (declare (not safe)) - (gx#stx-e _%tl185906186886%_)))) - (let ((_%tl185960186479%_ + (gx#stx-e _%tl185943186923%_)))) + (let ((_%tl185997186516%_ (let () (declare (not safe)) - (##cdr _%e185958186474%_))) - (_%hd185959186477%_ + (##cdr _%e185995186511%_))) + (_%hd185996186514%_ (let () (declare (not safe)) - (##car _%e185958186474%_)))) + (##car _%e185995186511%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185960186479%_)) + (gx#stx-null? _%tl185997186516%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185930186567%_)) - (_%__kont189899189900%_ - _%hd185929186565%_ - _%hd185959186477%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) + (gx#stx-null? _%tl185967186604%_)) + (_%__kont189936189937%_ + _%hd185966186602%_ + _%hd185996186514%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185905186884%_)) + (gx#stx-eq? '%#quote-syntax _%hd185942186921%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185906186886%_)) - (let ((_%e186018186232%_ + (gx#stx-pair? _%tl185943186923%_)) + (let ((_%e186055186269%_ (let () (declare (not safe)) - (gx#stx-e _%tl185906186886%_)))) - (let ((_%tl186020186237%_ + (gx#stx-e _%tl185943186923%_)))) + (let ((_%tl186057186274%_ (let () (declare (not safe)) - (##cdr _%e186018186232%_))) - (_%hd186019186235%_ + (##cdr _%e186055186269%_))) + (_%hd186056186272%_ (let () (declare (not safe)) - (##car _%e186018186232%_)))) - (_%__kont189907189908%_))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))))) + (##car _%e186055186269%_)))) + (_%__kont189944189945%_))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185905186884%_)) + _%hd185942186921%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185906186886%_)) - (let ((_%e185958186474%_ + _%tl185943186923%_)) + (let ((_%e185995186511%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185906186886%_)))) - (let ((_%tl185960186479%_ + (gx#stx-e _%tl185943186923%_)))) + (let ((_%tl185997186516%_ (let () (declare (not safe)) - (##cdr _%e185958186474%_))) - (_%hd185959186477%_ + (##cdr _%e185995186511%_))) + (_%hd185996186514%_ (let () (declare (not safe)) - (##car _%e185958186474%_)))) + (##car _%e185995186511%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185960186479%_)) + (gx#stx-null? _%tl185997186516%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185930186567%_)) - (_%__kont189899189900%_ - _%hd185929186565%_ - _%hd185959186477%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) + (gx#stx-null? _%tl185967186604%_)) + (_%__kont189936189937%_ + _%hd185966186602%_ + _%hd185996186514%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185905186884%_)) + _%hd185942186921%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185906186886%_)) - (let ((_%e186018186232%_ + (gx#stx-pair? _%tl185943186923%_)) + (let ((_%e186055186269%_ (let () (declare (not safe)) - (gx#stx-e _%tl185906186886%_)))) - (let ((_%tl186020186237%_ + (gx#stx-e _%tl185943186923%_)))) + (let ((_%tl186057186274%_ (let () (declare (not safe)) - (##cdr _%e186018186232%_))) - (_%hd186019186235%_ + (##cdr _%e186055186269%_))) + (_%hd186056186272%_ (let () (declare (not safe)) - (##car _%e186018186232%_)))) - (_%__kont189907189908%_))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) + (##car _%e186055186269%_)))) + (_%__kont189944189945%_))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185905186884%_)) + _%hd185942186921%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185906186886%_)) - (let ((_%e185958186474%_ + _%tl185943186923%_)) + (let ((_%e185995186511%_ (let () (declare (not safe)) (gx#stx-e - _%tl185906186886%_)))) - (let ((_%tl185960186479%_ + _%tl185943186923%_)))) + (let ((_%tl185997186516%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185958186474%_))) - (_%hd185959186477%_ - (let () (declare (not safe)) (##car _%e185958186474%_)))) + (##cdr _%e185995186511%_))) + (_%hd185996186514%_ + (let () (declare (not safe)) (##car _%e185995186511%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185960186479%_)) + (gx#stx-null? _%tl185997186516%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185930186567%_)) - (_%__kont189899189900%_ - _%hd185929186565%_ - _%hd185959186477%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) + (gx#stx-null? _%tl185967186604%_)) + (_%__kont189936189937%_ + _%hd185966186602%_ + _%hd185996186514%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189907189908%_)) + (_%__kont189944189945%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185905186884%_)) + _%hd185942186921%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185906186886%_)) - (let ((_%e186018186232%_ + _%tl185943186923%_)) + (let ((_%e186055186269%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185906186886%_)))) - (let ((_%tl186020186237%_ + (gx#stx-e _%tl185943186923%_)))) + (let ((_%tl186057186274%_ (let () (declare (not safe)) - (##cdr _%e186018186232%_))) - (_%hd186019186235%_ + (##cdr _%e186055186269%_))) + (_%hd186056186272%_ (let () (declare (not safe)) - (##car _%e186018186232%_)))) + (##car _%e186055186269%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186020186237%_)) + (gx#stx-null? _%tl186057186274%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185932186573%_)) + (gx#stx-eq? '%#ref _%hd185969186610%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185933186575%_)) - (let ((_%e186027186256%_ + (gx#stx-pair? _%tl185970186612%_)) + (let ((_%e186064186293%_ (let () (declare (not safe)) - (gx#stx-e _%tl185933186575%_)))) - (let ((_%tl186029186261%_ + (gx#stx-e _%tl185970186612%_)))) + (let ((_%tl186066186298%_ (let () (declare (not safe)) - (##cdr _%e186027186256%_))) - (_%hd186028186259%_ + (##cdr _%e186064186293%_))) + (_%hd186065186296%_ (let () (declare (not safe)) - (##car _%e186027186256%_)))) + (##car _%e186064186293%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186029186261%_)) + (gx#stx-null? _%tl186066186298%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185930186567%_)) - (_%__kont189903189904%_ - _%hd186028186259%_ - _%hd186019186235%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) + _%tl185967186604%_)) + (_%__kont189940189941%_ + _%hd186065186296%_ + _%hd186056186272%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189907189908%_)))) + (_%__kont189944189945%_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185905186884%_)) + _%hd185942186921%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185906186886%_)) - (let ((_%e185958186474%_ + _%tl185943186923%_)) + (let ((_%e185995186511%_ (let () (declare (not safe)) (gx#stx-e - _%tl185906186886%_)))) - (let ((_%tl185960186479%_ + _%tl185943186923%_)))) + (let ((_%tl185997186516%_ (let () (declare (not safe)) - (##cdr _%e185958186474%_))) - (_%hd185959186477%_ + (##cdr _%e185995186511%_))) + (_%hd185996186514%_ (let () (declare (not safe)) - (##car _%e185958186474%_)))) + (##car _%e185995186511%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185960186479%_)) + _%tl185997186516%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl185930186567%_)) - (_%__kont189899189900%_ - _%hd185929186565%_ - _%hd185959186477%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) + (gx#stx-null? _%tl185967186604%_)) + (_%__kont189936189937%_ + _%hd185966186602%_ + _%hd185996186514%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189907189908%_)) + (_%__kont189944189945%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185905186884%_)) + _%hd185942186921%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185906186886%_)) - (let ((_%e186018186232%_ + _%tl185943186923%_)) + (let ((_%e186055186269%_ (let () (declare (not safe)) (gx#stx-e - _%tl185906186886%_)))) - (let ((_%tl186020186237%_ + _%tl185943186923%_)))) + (let ((_%tl186057186274%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186018186232%_))) - (_%hd186019186235%_ - (let () (declare (not safe)) (##car _%e186018186232%_)))) - (_%__kont189907189908%_))) + (##cdr _%e186055186269%_))) + (_%hd186056186272%_ + (let () (declare (not safe)) (##car _%e186055186269%_)))) + (_%__kont189944189945%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185905186884%_)) + _%hd185942186921%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185906186886%_)) - (let ((_%e185958186474%_ + (gx#stx-pair? _%tl185943186923%_)) + (let ((_%e185995186511%_ (let () (declare (not safe)) (gx#stx-e - _%tl185906186886%_)))) - (let ((_%tl185960186479%_ + _%tl185943186923%_)))) + (let ((_%tl185997186516%_ (let () (declare (not safe)) - (##cdr _%e185958186474%_))) - (_%hd185959186477%_ + (##cdr _%e185995186511%_))) + (_%hd185996186514%_ (let () (declare (not safe)) - (##car _%e185958186474%_)))) + (##car _%e185995186511%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185960186479%_)) + _%tl185997186516%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185930186567%_)) - (_%__kont189899189900%_ - _%hd185929186565%_ - _%hd185959186477%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) + _%tl185967186604%_)) + (_%__kont189936189937%_ + _%hd185966186602%_ + _%hd185996186514%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185905186884%_)) + _%hd185942186921%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185906186886%_)) - (let ((_%e186018186232%_ + _%tl185943186923%_)) + (let ((_%e186055186269%_ (let () (declare (not safe)) (gx#stx-e - _%tl185906186886%_)))) - (let ((_%tl186020186237%_ + _%tl185943186923%_)))) + (let ((_%tl186057186274%_ (let () (declare (not safe)) - (##cdr _%e186018186232%_))) - (_%hd186019186235%_ + (##cdr _%e186055186269%_))) + (_%hd186056186272%_ (let () (declare (not safe)) - (##car _%e186018186232%_)))) - (_%__kont189907189908%_))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))))) + (##car _%e186055186269%_)))) + (_%__kont189944189945%_))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185905186884%_)) + (gx#stx-eq? '%#quote _%hd185942186921%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185906186886%_)) - (let ((_%e185958186474%_ + (gx#stx-pair? _%tl185943186923%_)) + (let ((_%e185995186511%_ (let () (declare (not safe)) - (gx#stx-e _%tl185906186886%_)))) - (let ((_%tl185960186479%_ + (gx#stx-e _%tl185943186923%_)))) + (let ((_%tl185997186516%_ (let () (declare (not safe)) - (##cdr _%e185958186474%_))) - (_%hd185959186477%_ + (##cdr _%e185995186511%_))) + (_%hd185996186514%_ (let () (declare (not safe)) - (##car _%e185958186474%_)))) - (_%__kont189907189908%_))) - (_%__kont189907189908%_)) + (##car _%e185995186511%_)))) + (_%__kont189944189945%_))) + (_%__kont189944189945%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185905186884%_)) + _%hd185942186921%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185906186886%_)) - (let ((_%e186018186232%_ + (gx#stx-pair? _%tl185943186923%_)) + (let ((_%e186055186269%_ (let () (declare (not safe)) - (gx#stx-e _%tl185906186886%_)))) - (let ((_%tl186020186237%_ + (gx#stx-e _%tl185943186923%_)))) + (let ((_%tl186057186274%_ (let () (declare (not safe)) - (##cdr _%e186018186232%_))) - (_%hd186019186235%_ + (##cdr _%e186055186269%_))) + (_%hd186056186272%_ (let () (declare (not safe)) - (##car _%e186018186232%_)))) - (_%__kont189907189908%_))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_))))) + (##car _%e186055186269%_)))) + (_%__kont189944189945%_))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185903186878%_)) - (let ((_%e185928186562%_ + (gx#stx-pair? _%tl185940186915%_)) + (let ((_%e185965186599%_ (let () (declare (not safe)) - (gx#stx-e _%tl185903186878%_)))) - (let ((_%tl185930186567%_ + (gx#stx-e _%tl185940186915%_)))) + (let ((_%tl185967186604%_ (let () (declare (not safe)) - (##cdr _%e185928186562%_))) - (_%hd185929186565%_ + (##cdr _%e185965186599%_))) + (_%hd185966186602%_ (let () (declare (not safe)) - (##car _%e185928186562%_)))) + (##car _%e185965186599%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185929186565%_)) - (let ((_%e185931186570%_ + (gx#stx-pair? _%hd185966186602%_)) + (let ((_%e185968186607%_ (let () (declare (not safe)) - (gx#stx-e _%hd185929186565%_)))) - (let ((_%tl185933186575%_ + (gx#stx-e _%hd185966186602%_)))) + (let ((_%tl185970186612%_ (let () (declare (not safe)) - (##cdr _%e185931186570%_))) - (_%hd185932186573%_ + (##cdr _%e185968186607%_))) + (_%hd185969186610%_ (let () (declare (not safe)) - (##car _%e185931186570%_)))) + (##car _%e185968186607%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185932186573%_)) + (gx#identifier? _%hd185969186610%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185932186573%_)) + _%hd185969186610%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185933186575%_)) - (let ((_%e185934186578%_ + _%tl185970186612%_)) + (let ((_%e185971186615%_ (let () (declare (not safe)) (gx#stx-e - _%tl185933186575%_)))) - (let ((_%tl185936186583%_ + _%tl185970186612%_)))) + (let ((_%tl185973186620%_ (let () (declare (not safe)) - (##cdr _%e185934186578%_))) - (_%hd185935186581%_ + (##cdr _%e185971186615%_))) + (_%hd185972186618%_ (let () (declare (not safe)) - (##car _%e185934186578%_)))) + (##car _%e185971186615%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185936186583%_)) + _%tl185973186620%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185930186567%_)) - (_%__kont189897189898%_ - _%hd185935186581%_ - _%hd185902186876%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_))))) + _%tl185967186604%_)) + (_%__kont189934189935%_ + _%hd185972186618%_ + _%hd185939186913%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185903186878%_)) - (let ((_%e185928186562%_ + _%tl185940186915%_)) + (let ((_%e185965186599%_ (let () (declare (not safe)) (gx#stx-e - _%tl185903186878%_)))) - (let ((_%tl185930186567%_ + _%tl185940186915%_)))) + (let ((_%tl185967186604%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185928186562%_))) - (_%hd185929186565%_ - (let () (declare (not safe)) (##car _%e185928186562%_)))) + (##cdr _%e185965186599%_))) + (_%hd185966186602%_ + (let () (declare (not safe)) (##car _%e185965186599%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185929186565%_)) - (let ((_%e185931186570%_ + (gx#stx-pair? _%hd185966186602%_)) + (let ((_%e185968186607%_ (let () (declare (not safe)) - (gx#stx-e _%hd185929186565%_)))) - (let ((_%tl185933186575%_ + (gx#stx-e _%hd185966186602%_)))) + (let ((_%tl185970186612%_ (let () (declare (not safe)) - (##cdr _%e185931186570%_))) - (_%hd185932186573%_ + (##cdr _%e185968186607%_))) + (_%hd185969186610%_ (let () (declare (not safe)) - (##car _%e185931186570%_)))) + (##car _%e185968186607%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185932186573%_)) + (gx#identifier? _%hd185969186610%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185932186573%_)) + (gx#stx-eq? '%#quote _%hd185969186610%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185933186575%_)) - (let ((_%e185934186578%_ + (gx#stx-pair? _%tl185970186612%_)) + (let ((_%e185971186615%_ (let () (declare (not safe)) - (gx#stx-e _%tl185933186575%_)))) - (let ((_%tl185936186583%_ + (gx#stx-e _%tl185970186612%_)))) + (let ((_%tl185973186620%_ (let () (declare (not safe)) - (##cdr _%e185934186578%_))) - (_%hd185935186581%_ + (##cdr _%e185971186615%_))) + (_%hd185972186618%_ (let () (declare (not safe)) - (##car _%e185934186578%_)))) + (##car _%e185971186615%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185936186583%_)) + _%tl185973186620%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185930186567%_)) - (_%__kont189897189898%_ - _%hd185935186581%_ - _%hd185902186876%_ - _%hd185899186868%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)))) + _%tl185967186604%_)) + (_%__kont189934189935%_ + _%hd185972186618%_ + _%hd185939186913%_ + _%hd185936186905%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189907189908%_))))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) + (_%__kont189944189945%_))))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd185896186860%_)) + (gx#stx-eq? '%#lambda _%hd185933186897%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185897186862%_)) - (let ((_%e186042186100%_ + (gx#stx-pair? _%tl185934186899%_)) + (let ((_%e186079186137%_ (let () (declare (not safe)) - (gx#stx-e _%tl185897186862%_)))) - (let ((_%tl186044186105%_ + (gx#stx-e _%tl185934186899%_)))) + (let ((_%tl186081186142%_ (let () (declare (not safe)) - (##cdr _%e186042186100%_))) - (_%hd186043186103%_ + (##cdr _%e186079186137%_))) + (_%hd186080186140%_ (let () (declare (not safe)) - (##car _%e186042186100%_)))) + (##car _%e186079186137%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186043186103%_)) - (let ((_%e186045186108%_ + (gx#stx-pair? _%hd186080186140%_)) + (let ((_%e186082186145%_ (let () (declare (not safe)) (gx#stx-e - _%hd186043186103%_)))) - (let ((_%tl186047186113%_ + _%hd186080186140%_)))) + (let ((_%tl186084186150%_ (let () (declare (not safe)) - (##cdr _%e186045186108%_))) - (_%hd186046186111%_ + (##cdr _%e186082186145%_))) + (_%hd186083186148%_ (let () (declare (not safe)) - (##car _%e186045186108%_)))) + (##car _%e186082186145%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186047186113%_)) + _%tl186084186150%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186044186105%_)) - (let ((_%e186048186116%_ + _%tl186081186142%_)) + (let ((_%e186085186153%_ (let () (declare (not safe)) (gx#stx-e - _%tl186044186105%_)))) - (let ((_%tl186050186121%_ + _%tl186081186142%_)))) + (let ((_%tl186087186158%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186048186116%_))) - (_%hd186049186119%_ - (let () (declare (not safe)) (##car _%e186048186116%_)))) + (##cdr _%e186085186153%_))) + (_%hd186086186156%_ + (let () (declare (not safe)) (##car _%e186085186153%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186050186121%_)) + (gx#stx-null? _%tl186087186158%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185894186854%_)) - (let ((_%e186051186124%_ + (gx#stx-pair? _%tl185931186891%_)) + (let ((_%e186088186161%_ (let () (declare (not safe)) - (gx#stx-e _%tl185894186854%_)))) - (let ((_%tl186053186129%_ + (gx#stx-e _%tl185931186891%_)))) + (let ((_%tl186090186166%_ (let () (declare (not safe)) - (##cdr _%e186051186124%_))) - (_%hd186052186127%_ + (##cdr _%e186088186161%_))) + (_%hd186089186164%_ (let () (declare (not safe)) - (##car _%e186051186124%_)))) + (##car _%e186088186161%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186052186127%_)) - (let ((_%e186054186132%_ + (gx#stx-pair? _%hd186089186164%_)) + (let ((_%e186091186169%_ (let () (declare (not safe)) - (gx#stx-e _%hd186052186127%_)))) - (let ((_%tl186056186137%_ + (gx#stx-e _%hd186089186164%_)))) + (let ((_%tl186093186174%_ (let () (declare (not safe)) - (##cdr _%e186054186132%_))) - (_%hd186055186135%_ + (##cdr _%e186091186169%_))) + (_%hd186092186172%_ (let () (declare (not safe)) - (##car _%e186054186132%_)))) + (##car _%e186091186169%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186055186135%_)) + (gx#identifier? _%hd186092186172%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd186055186135%_)) + _%hd186092186172%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186056186137%_)) - (let ((_%e186057186140%_ + _%tl186093186174%_)) + (let ((_%e186094186177%_ (let () (declare (not safe)) (gx#stx-e - _%tl186056186137%_)))) - (let ((_%tl186059186145%_ + _%tl186093186174%_)))) + (let ((_%tl186096186182%_ (let () (declare (not safe)) - (##cdr _%e186057186140%_))) - (_%hd186058186143%_ + (##cdr _%e186094186177%_))) + (_%hd186095186180%_ (let () (declare (not safe)) - (##car _%e186057186140%_)))) + (##car _%e186094186177%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186059186145%_)) + _%tl186096186182%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl186053186129%_)) - (_%__kont189905189906%_ - _%hd186058186143%_ - _%hd186049186119%_ - _%hd186046186111%_) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) + (gx#stx-null? _%tl186090186166%_)) + (_%__kont189942189943%_ + _%hd186095186180%_ + _%hd186086186156%_ + _%hd186083186148%_) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189907189908%_)) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_))) - (_%__kont189907189908%_)))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_))) + (_%__kont189944189945%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)) - (_%__kont189907189908%_)))) - (_%__kont189907189908%_)))))) - (_%countf-symbol181929%_ - (lambda (_%id185867%_) - (let ((_%$e185869%_ + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)) + (_%__kont189944189945%_)))) + (_%__kont189944189945%_)))))) + (_%countf-symbol181966%_ + (lambda (_%id185904%_) + (let ((_%$e185906%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id185867%_)))) - (if (or (eq? '##vector-length _%$e185869%_) - (eq? 'vector-length _%$e185869%_)) + (gxc#identifier-symbol _%id185904%_)))) + (if (or (eq? '##vector-length _%$e185906%_) + (eq? 'vector-length _%$e185906%_)) 'vector-length - (if (eq? 'values-count _%$e185869%_) + (if (eq? 'values-count _%$e185906%_) 'values-count '#f))))) - (_%eqf-symbol181930%_ - (lambda (_%sym185853%_) - (let ((_%$e185855%_ _%sym185853%_)) - (if (or (eq? '##eq? _%$e185855%_) - (eq? 'eq? _%$e185855%_)) + (_%eqf-symbol181967%_ + (lambda (_%sym185890%_) + (let ((_%$e185892%_ _%sym185890%_)) + (if (or (eq? '##eq? _%$e185892%_) + (eq? 'eq? _%$e185892%_)) 'eq? - (if (or (eq? '##eqv? _%$e185855%_) - (eq? 'eqv? _%$e185855%_)) + (if (or (eq? '##eqv? _%$e185892%_) + (eq? 'eqv? _%$e185892%_)) 'eqv? - (if (or (eq? '##equal? _%$e185855%_) - (eq? 'equal? _%$e185855%_)) + (if (or (eq? '##equal? _%$e185892%_) + (eq? 'equal? _%$e185892%_)) 'equal? - (if (eq? 'gx#free-identifier=? _%$e185855%_) + (if (eq? 'gx#free-identifier=? _%$e185892%_) 'free-identifier=? - (if (eq? 'gx#stx-eq? _%$e185855%_) + (if (eq? 'gx#stx-eq? _%$e185892%_) 'stx-eq? '#f)))))))) - (_%eqf-symbol?181931%_ - (lambda (_%sym185836%_) - (let ((_%$e185838%_ _%sym185836%_)) - (if (or (eq? 'eq? _%$e185838%_) - (eq? 'eqv? _%$e185838%_) - (eq? 'equal? _%$e185838%_) - (eq? 'free-identifier=? _%$e185838%_) - (eq? 'stx-eq? _%$e185838%_)) + (_%eqf-symbol?181968%_ + (lambda (_%sym185873%_) + (let ((_%$e185875%_ _%sym185873%_)) + (if (or (eq? 'eq? _%$e185875%_) + (eq? 'eqv? _%$e185875%_) + (eq? 'equal? _%$e185875%_) + (eq? 'free-identifier=? _%$e185875%_) + (eq? 'stx-eq? _%$e185875%_)) '#t '#f)))) - (_%do-assert!181932%_ - (lambda (_%assert185827%_ _%type185828%_ _%K185829%_) - (let ((_%unwind-assert185831%_ _%env-assert181922%_) - (_%unwind-type185832%_ _%env-type181923%_)) - (set! _%env-assert181922%_ _%assert185827%_) - (set! _%env-type181923%_ _%type185828%_) - (let ((_%val185834%_ (_%K185829%_))) - (set! _%env-assert181922%_ _%unwind-assert185831%_) - (set! _%env-type181923%_ _%unwind-type185832%_) - _%val185834%_)))) - (_%do-bind181933%_ - (lambda (_%bind185824%_ _%K185825%_) - (if (pair? _%bind185824%_) - (_%do-bind!181935%_ - (_%fold-bind-env181934%_ - _%bind185824%_ - _%env-bind181924%_) - _%K185825%_) - (_%K185825%_)))) - (_%fold-bind-env181934%_ - (lambda (_%bind185753%_ _%env185754%_) - (let _%lp185756%_ ((_%rest185758%_ _%bind185753%_) - (_%env185759%_ _%env185754%_)) - (let* ((_%rest185760185768%_ _%rest185758%_) - (_%else185762185776%_ (lambda () _%env185759%_)) - (_%K185764185812%_ - (lambda (_%rest185779%_ _%bind185780%_) - (let* ((_%bind185781185788%_ _%bind185780%_) - (_%E185783185792%_ + (_%do-assert!181969%_ + (lambda (_%assert185864%_ _%type185865%_ _%K185866%_) + (let ((_%unwind-assert185868%_ _%env-assert181959%_) + (_%unwind-type185869%_ _%env-type181960%_)) + (set! _%env-assert181959%_ _%assert185864%_) + (set! _%env-type181960%_ _%type185865%_) + (let ((_%val185871%_ (_%K185866%_))) + (set! _%env-assert181959%_ _%unwind-assert185868%_) + (set! _%env-type181960%_ _%unwind-type185869%_) + _%val185871%_)))) + (_%do-bind181970%_ + (lambda (_%bind185861%_ _%K185862%_) + (if (pair? _%bind185861%_) + (_%do-bind!181972%_ + (_%fold-bind-env181971%_ + _%bind185861%_ + _%env-bind181961%_) + _%K185862%_) + (_%K185862%_)))) + (_%fold-bind-env181971%_ + (lambda (_%bind185790%_ _%env185791%_) + (let _%lp185793%_ ((_%rest185795%_ _%bind185790%_) + (_%env185796%_ _%env185791%_)) + (let* ((_%rest185797185805%_ _%rest185795%_) + (_%else185799185813%_ (lambda () _%env185796%_)) + (_%K185801185849%_ + (lambda (_%rest185816%_ _%bind185817%_) + (let* ((_%bind185818185825%_ _%bind185817%_) + (_%E185820185829%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind185781185788%_ + _%bind185818185825%_ '([id . expr]))) '#!void)) - (_%K185784185800%_ - (lambda (_%expr185795%_ _%id185796%_) - (let ((_%sexpr185798%_ + (_%K185821185837%_ + (lambda (_%expr185832%_ _%id185833%_) + (let ((_%sexpr185835%_ (gxc#apply-generate-runtime-repr - _%expr185795%_))) - (_%lp185756%_ - _%rest185779%_ - (cons (cons _%sexpr185798%_ - _%id185796%_) - _%env185759%_)))))) - (if (pair? _%bind185781185788%_) - (let ((_%hd185785185803%_ + _%expr185832%_))) + (_%lp185793%_ + _%rest185816%_ + (cons (cons _%sexpr185835%_ + _%id185833%_) + _%env185796%_)))))) + (if (pair? _%bind185818185825%_) + (let ((_%hd185822185840%_ (let () (declare (not safe)) - (##car _%bind185781185788%_))) - (_%tl185786185805%_ + (##car _%bind185818185825%_))) + (_%tl185823185842%_ (let () (declare (not safe)) - (##cdr _%bind185781185788%_)))) - (let* ((_%id185808%_ - _%hd185785185803%_) - (_%expr185810%_ - _%tl185786185805%_)) - (_%K185784185800%_ - _%expr185810%_ - _%id185808%_))) - (_%E185783185792%_)))))) - (if (pair? _%rest185760185768%_) - (let ((_%hd185765185815%_ + (##cdr _%bind185818185825%_)))) + (let* ((_%id185845%_ + _%hd185822185840%_) + (_%expr185847%_ + _%tl185823185842%_)) + (_%K185821185837%_ + _%expr185847%_ + _%id185845%_))) + (_%E185820185829%_)))))) + (if (pair? _%rest185797185805%_) + (let ((_%hd185802185852%_ (let () (declare (not safe)) - (##car _%rest185760185768%_))) - (_%tl185766185817%_ + (##car _%rest185797185805%_))) + (_%tl185803185854%_ (let () (declare (not safe)) - (##cdr _%rest185760185768%_)))) - (let* ((_%bind185820%_ _%hd185765185815%_) - (_%rest185822%_ _%tl185766185817%_)) - (_%K185764185812%_ - _%rest185822%_ - _%bind185820%_))) - (_%else185762185776%_)))))) - (_%do-bind!181935%_ - (lambda (_%env185746%_ _%K185747%_) - (let ((_%unwind185749%_ _%env-bind181924%_)) - (set! _%env-bind181924%_ _%env185746%_) - (let ((_%val185751%_ (_%K185747%_))) - (set! _%env-bind181924%_ _%unwind185749%_) - _%val185751%_)))) - (_%do-splice!181936%_ - (lambda (_%K185740%_) - (let ((_%unwind185742%_ _%in-splice?181925%_)) - (set! _%in-splice?181925%_ '#t) - (let ((_%val185744%_ (_%K185740%_))) - (set! _%in-splice?181925%_ _%unwind185742%_) - _%val185744%_)))) - (_%optimize-e181937%_ - (lambda (_%expr184936%_) - (let* ((_%__stx190345190346%_ _%expr184936%_) - (_%g184943185116%_ + (##cdr _%rest185797185805%_)))) + (let* ((_%bind185857%_ _%hd185802185852%_) + (_%rest185859%_ _%tl185803185854%_)) + (_%K185801185849%_ + _%rest185859%_ + _%bind185857%_))) + (_%else185799185813%_)))))) + (_%do-bind!181972%_ + (lambda (_%env185783%_ _%K185784%_) + (let ((_%unwind185786%_ _%env-bind181961%_)) + (set! _%env-bind181961%_ _%env185783%_) + (let ((_%val185788%_ (_%K185784%_))) + (set! _%env-bind181961%_ _%unwind185786%_) + _%val185788%_)))) + (_%do-splice!181973%_ + (lambda (_%K185777%_) + (let ((_%unwind185779%_ _%in-splice?181962%_)) + (set! _%in-splice?181962%_ '#t) + (let ((_%val185781%_ (_%K185777%_))) + (set! _%in-splice?181962%_ _%unwind185779%_) + _%val185781%_)))) + (_%optimize-e181974%_ + (lambda (_%expr184973%_) + (let* ((_%__stx190382190383%_ _%expr184973%_) + (_%g184980185153%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190345190346%_))))) - (let ((_%__kont190347190348%_ - (lambda (_%L185712%_ _%L185713%_ _%L185714%_) - (let ((_%$e185731%_ - (_%assert-e181940%_ _%L185714%_))) - (if (eq? '#t _%$e185731%_) - (_%optimize-e181937%_ _%L185713%_) - (if (eq? '#f _%$e185731%_) - (_%optimize-e181937%_ _%L185712%_) - (let ((_%K185734%_ - (_%optimize-t__0__189292189293%_ - _%L185713%_ - _%L185714%_)) - (_%E185735%_ - (_%optimize-f__189294189295%_ - _%L185712%_ - _%L185714%_))) + _%__stx190382190383%_))))) + (let ((_%__kont190384190385%_ + (lambda (_%L185749%_ _%L185750%_ _%L185751%_) + (let ((_%$e185768%_ + (_%assert-e181977%_ _%L185751%_))) + (if (eq? '#t _%$e185768%_) + (_%optimize-e181974%_ _%L185750%_) + (if (eq? '#f _%$e185768%_) + (_%optimize-e181974%_ _%L185749%_) + (let ((_%K185771%_ + (_%optimize-t__0__189329189330%_ + _%L185750%_ + _%L185751%_)) + (_%E185772%_ + (_%optimize-f__189331189332%_ + _%L185749%_ + _%L185751%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K185734%_) + _%K185771%_) (gxc#apply-generate-runtime-repr - _%E185735%_)) - _%K185734%_ + _%E185772%_)) + _%K185771%_ (cons '%#if - (cons _%L185714%_ - (cons _%K185734%_ + (cons _%L185751%_ + (cons _%K185771%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E185735%_ '()))))))))))) + (cons _%E185772%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190349190350%_ - (lambda (_%L185641%_ _%L185642%_) - (let ((_%$e185662%_ - (_%lookup-block181945%_ _%L185642%_))) - (if _%$e185662%_ - ((lambda (_%block185665%_) - (if (_%nonlinear-block?181947%_ - _%block185665%_) - _%expr184936%_ - (_%optimize-e181937%_ - (_%inline-block181946%_ - _%block185665%_ - (let ((__tmp192440 - (lambda (_%g185666185669%_ - _%g185667185671%_) - (cons _%g185666185669%_ - _%g185667185671%_)))) + (_%__kont190386190387%_ + (lambda (_%L185678%_ _%L185679%_) + (let ((_%$e185699%_ + (_%lookup-block181982%_ _%L185679%_))) + (if _%$e185699%_ + ((lambda (_%block185702%_) + (if (_%nonlinear-block?181984%_ + _%block185702%_) + _%expr184973%_ + (_%optimize-e181974%_ + (_%inline-block181983%_ + _%block185702%_ + (let ((__tmp192477 + (lambda (_%g185703185706%_ + _%g185704185708%_) + (cons _%g185703185706%_ + _%g185704185708%_)))) (declare (not safe)) (__foldr1 - __tmp192440 + __tmp192477 '() - _%L185641%_)))))) - _%$e185662%_) - _%expr184936%_)))) - (_%__kont190353190354%_ - (lambda (_%L185531%_ _%L185532%_ _%L185533%_) - (let ((_%body185552%_ - (_%optimize-e181937%_ _%L185531%_))) + _%L185678%_)))))) + _%$e185699%_) + _%expr184973%_)))) + (_%__kont190390190391%_ + (lambda (_%L185568%_ _%L185569%_ _%L185570%_) + (let ((_%body185589%_ + (_%optimize-e181974%_ _%L185568%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L185532%_ - _%L185533%_)) - (let ((__tmp192441 - (lambda (_%g185553185557%_ - _%g185554185559%_ - _%g185555185561%_) - (cons (cons (cons _%g185554185559%_ + _%L185569%_ + _%L185570%_)) + (let ((__tmp192478 + (lambda (_%g185590185594%_ + _%g185591185596%_ + _%g185592185598%_) + (cons (cons (cons _%g185591185596%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g185553185557%_ '())) + (cons _%g185590185594%_ '())) '())) - _%g185555185561%_)))) + _%g185592185598%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp192441 + __tmp192478 '() - _%L185532%_ - _%L185533%_))) - (cons _%body185552%_ '())))))) - (_%__kont190357190358%_ - (lambda (_%L185399%_ _%L185400%_ _%L185401%_) - (_%bind-e__0__189300189301%_ + _%L185569%_ + _%L185570%_))) + (cons _%body185589%_ '())))))) + (_%__kont190394190395%_ + (lambda (_%L185436%_ _%L185437%_ _%L185438%_) + (_%bind-e__0__189337189338%_ (map cons - (let ((__tmp192442 - (lambda (_%g185419185422%_ - _%g185420185424%_) - (cons _%g185419185422%_ - _%g185420185424%_)))) + (let ((__tmp192479 + (lambda (_%g185456185459%_ + _%g185457185461%_) + (cons _%g185456185459%_ + _%g185457185461%_)))) (declare (not safe)) - (__foldr1 __tmp192442 '() _%L185401%_)) - (let ((__tmp192443 - (lambda (_%g185426185429%_ - _%g185427185431%_) - (cons _%g185426185429%_ - _%g185427185431%_)))) + (__foldr1 __tmp192479 '() _%L185438%_)) + (let ((__tmp192480 + (lambda (_%g185463185466%_ + _%g185464185468%_) + (cons _%g185463185466%_ + _%g185464185468%_)))) (declare (not safe)) (__foldr1 - __tmp192443 + __tmp192480 '() - _%L185400%_))) - _%L185399%_))) - (_%__kont190361190362%_ - (lambda (_%L185256%_ - _%L185257%_ - _%L185258%_ - _%L185259%_ - _%L185260%_) - (_%do-splice!181936%_ + _%L185437%_))) + _%L185436%_))) + (_%__kont190398190399%_ + (lambda (_%L185293%_ + _%L185294%_ + _%L185295%_ + _%L185296%_ + _%L185297%_) + (_%do-splice!181973%_ (lambda () - (let ((_%expr185302%_ - (_%optimize-e181937%_ _%L185258%_))) + (let ((_%expr185339%_ + (_%optimize-e181974%_ _%L185295%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L185260%_ + (cons (cons (cons (cons _%L185297%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp192444 - (lambda (_%g185303185306%_ - _%g185304185308%_) - (cons _%g185303185306%_ - _%g185304185308%_)))) + (cons (let ((__tmp192481 + (lambda (_%g185340185343%_ + _%g185341185345%_) + (cons _%g185340185343%_ + _%g185341185345%_)))) (declare (not safe)) (__foldr1 - __tmp192444 + __tmp192481 '() - _%L185259%_)) - (cons _%expr185302%_ '()))) + _%L185296%_)) + (cons _%expr185339%_ '()))) '())) - (let ((__tmp192445 - (lambda (_%g185310185313%_ _%g185311185315%_) - (cons _%g185310185313%_ _%g185311185315%_)))) + (let ((__tmp192482 + (lambda (_%g185347185350%_ _%g185348185352%_) + (cons _%g185347185350%_ _%g185348185352%_)))) (declare (not safe)) - (__foldr1 __tmp192445 '() _%L185257%_))) + (__foldr1 __tmp192482 '() _%L185294%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L185256%_ '())))))))) - (_%__kont190367190368%_ - (lambda () _%expr184936%_))) - (let* ((_%__match190554190555%_ - (lambda (_%e185064185128%_ - _%hd185065185131%_ - _%tl185066185133%_ - _%e185067185136%_ - _%hd185068185139%_ - _%tl185069185141%_ - _%e185070185144%_ - _%hd185071185147%_ - _%tl185072185149%_ - _%e185073185152%_ - _%hd185074185155%_ - _%tl185075185157%_ - _%e185076185160%_ - _%hd185077185163%_ - _%tl185078185165%_ - _%e185079185168%_ - _%hd185080185171%_ - _%tl185081185173%_ - _%e185082185176%_ - _%hd185083185179%_ - _%tl185084185181%_ - _%e185085185184%_ - _%hd185086185187%_ - _%tl185087185189%_ - _%__splice190363190364%_ - _%target185088185192%_ - _%tl185090185194%_) - (letrec ((_%loop185091185197%_ - (lambda (_%hd185089185200%_ - _%id185095185202%_) + (cons _%L185293%_ '())))))))) + (_%__kont190404190405%_ + (lambda () _%expr184973%_))) + (let* ((_%__match190591190592%_ + (lambda (_%e185101185165%_ + _%hd185102185168%_ + _%tl185103185170%_ + _%e185104185173%_ + _%hd185105185176%_ + _%tl185106185178%_ + _%e185107185181%_ + _%hd185108185184%_ + _%tl185109185186%_ + _%e185110185189%_ + _%hd185111185192%_ + _%tl185112185194%_ + _%e185113185197%_ + _%hd185114185200%_ + _%tl185115185202%_ + _%e185116185205%_ + _%hd185117185208%_ + _%tl185118185210%_ + _%e185119185213%_ + _%hd185120185216%_ + _%tl185121185218%_ + _%e185122185221%_ + _%hd185123185224%_ + _%tl185124185226%_ + _%__splice190400190401%_ + _%target185125185229%_ + _%tl185127185231%_) + (letrec ((_%loop185128185234%_ + (lambda (_%hd185126185237%_ + _%id185132185239%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185089185200%_)) - (let ((_%e185092185205%_ + _%hd185126185237%_)) + (let ((_%e185129185242%_ (let () (declare (not safe)) (gx#stx-e - _%hd185089185200%_)))) - (let ((_%lp-tl185094185210%_ + _%hd185126185237%_)))) + (let ((_%lp-tl185131185247%_ (let () (declare (not safe)) - (##cdr _%e185092185205%_))) - (_%lp-hd185093185208%_ + (##cdr _%e185129185242%_))) + (_%lp-hd185130185245%_ (let () (declare (not safe)) - (##car _%e185092185205%_)))) - (_%loop185091185197%_ - _%lp-tl185094185210%_ - (cons _%lp-hd185093185208%_ - _%id185095185202%_)))) - (let ((_%id185096185213%_ - (reverse _%id185095185202%_))) + (##car _%e185129185242%_)))) + (_%loop185128185234%_ + _%lp-tl185131185247%_ + (cons _%lp-hd185130185245%_ + _%id185132185239%_)))) + (let ((_%id185133185250%_ + (reverse _%id185132185239%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185087185189%_)) - (let ((_%e185097185216%_ + _%tl185124185226%_)) + (let ((_%e185134185253%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185087185189%_)))) - (let ((_%tl185099185221%_ + (gx#stx-e _%tl185124185226%_)))) + (let ((_%tl185136185258%_ (let () (declare (not safe)) - (##cdr _%e185097185216%_))) - (_%hd185098185219%_ + (##cdr _%e185134185253%_))) + (_%hd185135185256%_ (let () (declare (not safe)) - (##car _%e185097185216%_)))) + (##car _%e185134185253%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185099185221%_)) + (gx#stx-null? _%tl185136185258%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185081185173%_)) + (gx#stx-null? _%tl185118185210%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl185072185149%_)) - (let ((_%__splice190365190366%_ + (gx#stx-pair/null? _%tl185109185186%_)) + (let ((_%__splice190402190403%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl185072185149%_ + _%tl185109185186%_ '0)))) - (let ((_%tl185102185226%_ + (let ((_%tl185139185263%_ (let () (declare (not safe)) (##vector-ref - _%__splice190365190366%_ + _%__splice190402190403%_ '1))) - (_%target185100185224%_ + (_%target185137185261%_ (let () (declare (not safe)) (##vector-ref - _%__splice190365190366%_ + _%__splice190402190403%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185102185226%_)) - (letrec ((_%loop185103185229%_ - (lambda (_%hd185101185232%_ - _%bind185107185234%_) + (gx#stx-null? _%tl185139185263%_)) + (letrec ((_%loop185140185266%_ + (lambda (_%hd185138185269%_ + _%bind185144185271%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185101185232%_)) - (let ((_%e185104185237%_ + _%hd185138185269%_)) + (let ((_%e185141185274%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd185101185232%_)))) - (let ((_%lp-tl185106185242%_ + (gx#stx-e _%hd185138185269%_)))) + (let ((_%lp-tl185143185279%_ (let () (declare (not safe)) - (##cdr _%e185104185237%_))) - (_%lp-hd185105185240%_ + (##cdr _%e185141185274%_))) + (_%lp-hd185142185277%_ (let () (declare (not safe)) - (##car _%e185104185237%_)))) - (_%loop185103185229%_ - _%lp-tl185106185242%_ - (cons _%lp-hd185105185240%_ _%bind185107185234%_)))) - (let ((_%bind185108185245%_ (reverse _%bind185107185234%_))) + (##car _%e185141185274%_)))) + (_%loop185140185266%_ + _%lp-tl185143185279%_ + (cons _%lp-hd185142185277%_ _%bind185144185271%_)))) + (let ((_%bind185145185282%_ (reverse _%bind185144185271%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185069185141%_)) - (let ((_%e185109185248%_ + (gx#stx-pair? _%tl185106185178%_)) + (let ((_%e185146185285%_ (let () (declare (not safe)) - (gx#stx-e _%tl185069185141%_)))) - (let ((_%tl185111185253%_ + (gx#stx-e _%tl185106185178%_)))) + (let ((_%tl185148185290%_ (let () (declare (not safe)) - (##cdr _%e185109185248%_))) - (_%hd185110185251%_ + (##cdr _%e185146185285%_))) + (_%hd185147185288%_ (let () (declare (not safe)) - (##car _%e185109185248%_)))) + (##car _%e185146185285%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185111185253%_)) - (_%__kont190361190362%_ - _%hd185110185251%_ - _%bind185108185245%_ - _%hd185098185219%_ - _%id185096185213%_ - _%hd185077185163%_) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_))))))) + (gx#stx-null? _%tl185148185290%_)) + (_%__kont190398190399%_ + _%hd185147185288%_ + _%bind185145185282%_ + _%hd185135185256%_ + _%id185133185250%_ + _%hd185114185200%_) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185103185229%_ - _%target185100185224%_ + (_%loop185140185266%_ + _%target185137185261%_ '())) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)) - (_%__kont190367190368%_)) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_))))))) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)) + (_%__kont190404190405%_)) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185091185197%_ - _%target185088185192%_ + (_%loop185128185234%_ + _%target185125185229%_ '())))) - (_%__match190488190489%_ - (lambda (_%e185030185323%_ - _%hd185031185326%_ - _%tl185032185328%_ - _%e185033185331%_ - _%hd185034185334%_ - _%tl185035185336%_ - _%__splice190359190360%_ - _%target185036185339%_ - _%tl185038185341%_) - (letrec ((_%loop185039185344%_ - (lambda (_%hd185037185347%_ - _%expr185043185349%_ - _%id185044185351%_) + (_%__match190525190526%_ + (lambda (_%e185067185360%_ + _%hd185068185363%_ + _%tl185069185365%_ + _%e185070185368%_ + _%hd185071185371%_ + _%tl185072185373%_ + _%__splice190396190397%_ + _%target185073185376%_ + _%tl185075185378%_) + (letrec ((_%loop185076185381%_ + (lambda (_%hd185074185384%_ + _%expr185080185386%_ + _%id185081185388%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185037185347%_)) - (let ((_%e185040185354%_ + _%hd185074185384%_)) + (let ((_%e185077185391%_ (let () (declare (not safe)) (gx#stx-e - _%hd185037185347%_)))) - (let ((_%lp-tl185042185359%_ + _%hd185074185384%_)))) + (let ((_%lp-tl185079185396%_ (let () (declare (not safe)) - (##cdr _%e185040185354%_))) - (_%lp-hd185041185357%_ + (##cdr _%e185077185391%_))) + (_%lp-hd185078185394%_ (let () (declare (not safe)) - (##car _%e185040185354%_)))) + (##car _%e185077185391%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd185041185357%_)) - (let ((_%e185050185362%_ + _%lp-hd185078185394%_)) + (let ((_%e185087185399%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd185041185357%_)))) - (let ((_%tl185052185367%_ + (gx#stx-e _%lp-hd185078185394%_)))) + (let ((_%tl185089185404%_ (let () (declare (not safe)) - (##cdr _%e185050185362%_))) - (_%hd185051185365%_ + (##cdr _%e185087185399%_))) + (_%hd185088185402%_ (let () (declare (not safe)) - (##car _%e185050185362%_)))) + (##car _%e185087185399%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185051185365%_)) - (let ((_%e185053185370%_ + (gx#stx-pair? _%hd185088185402%_)) + (let ((_%e185090185407%_ (let () (declare (not safe)) - (gx#stx-e _%hd185051185365%_)))) - (let ((_%tl185055185375%_ + (gx#stx-e _%hd185088185402%_)))) + (let ((_%tl185092185412%_ (let () (declare (not safe)) - (##cdr _%e185053185370%_))) - (_%hd185054185373%_ + (##cdr _%e185090185407%_))) + (_%hd185091185410%_ (let () (declare (not safe)) - (##car _%e185053185370%_)))) + (##car _%e185090185407%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185055185375%_)) + (gx#stx-null? _%tl185092185412%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185052185367%_)) - (let ((_%e185056185378%_ + (gx#stx-pair? _%tl185089185404%_)) + (let ((_%e185093185415%_ (let () (declare (not safe)) (gx#stx-e - _%tl185052185367%_)))) - (let ((_%tl185058185383%_ + _%tl185089185404%_)))) + (let ((_%tl185095185420%_ (let () (declare (not safe)) - (##cdr _%e185056185378%_))) - (_%hd185057185381%_ + (##cdr _%e185093185415%_))) + (_%hd185094185418%_ (let () (declare (not safe)) - (##car _%e185056185378%_)))) + (##car _%e185093185415%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185058185383%_)) - (_%loop185039185344%_ - _%lp-tl185042185359%_ - (cons _%hd185057185381%_ - _%expr185043185349%_) - (cons _%hd185054185373%_ - _%id185044185351%_)) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) + _%tl185095185420%_)) + (_%loop185076185381%_ + _%lp-tl185079185396%_ + (cons _%hd185094185418%_ + _%expr185080185386%_) + (cons _%hd185091185410%_ + _%id185081185388%_)) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id185046185388%_ - (reverse _%id185044185351%_)) - (_%expr185045185386%_ - (reverse _%expr185043185349%_))) + (let ((_%id185083185425%_ + (reverse _%id185081185388%_)) + (_%expr185082185423%_ + (reverse _%expr185080185386%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185035185336%_)) - (let ((_%e185047185391%_ + _%tl185072185373%_)) + (let ((_%e185084185428%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185035185336%_)))) - (let ((_%tl185049185396%_ + (gx#stx-e _%tl185072185373%_)))) + (let ((_%tl185086185433%_ (let () (declare (not safe)) - (##cdr _%e185047185391%_))) - (_%hd185048185394%_ + (##cdr _%e185084185428%_))) + (_%hd185085185431%_ (let () (declare (not safe)) - (##car _%e185047185391%_)))) + (##car _%e185084185428%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185049185396%_)) - (_%__kont190357190358%_ - _%hd185048185394%_ - _%expr185045185386%_ - _%id185046185388%_) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_))))))) + (gx#stx-null? _%tl185086185433%_)) + (_%__kont190394190395%_ + _%hd185085185431%_ + _%expr185082185423%_ + _%id185083185425%_) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185039185344%_ - _%target185036185339%_ + (_%loop185076185381%_ + _%target185073185376%_ '() '())))) - (_%__match190464190465%_ - (lambda (_%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_) - (letrec ((_%loop185001185460%_ - (lambda (_%hd184999185463%_ - _%xid185005185465%_ - _%id185006185467%_) + (_%__match190501190502%_ + (lambda (_%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_) + (letrec ((_%loop185038185497%_ + (lambda (_%hd185036185500%_ + _%xid185042185502%_ + _%id185043185504%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184999185463%_)) - (let ((_%e185002185470%_ + _%hd185036185500%_)) + (let ((_%e185039185507%_ (let () (declare (not safe)) (gx#stx-e - _%hd184999185463%_)))) - (let ((_%lp-tl185004185475%_ + _%hd185036185500%_)))) + (let ((_%lp-tl185041185512%_ (let () (declare (not safe)) - (##cdr _%e185002185470%_))) - (_%lp-hd185003185473%_ + (##cdr _%e185039185507%_))) + (_%lp-hd185040185510%_ (let () (declare (not safe)) - (##car _%e185002185470%_)))) + (##car _%e185039185507%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd185003185473%_)) - (let ((_%e185012185478%_ + _%lp-hd185040185510%_)) + (let ((_%e185049185515%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd185003185473%_)))) - (let ((_%tl185014185483%_ + (gx#stx-e _%lp-hd185040185510%_)))) + (let ((_%tl185051185520%_ (let () (declare (not safe)) - (##cdr _%e185012185478%_))) - (_%hd185013185481%_ + (##cdr _%e185049185515%_))) + (_%hd185050185518%_ (let () (declare (not safe)) - (##car _%e185012185478%_)))) + (##car _%e185049185515%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185013185481%_)) - (let ((_%e185015185486%_ + (gx#stx-pair? _%hd185050185518%_)) + (let ((_%e185052185523%_ (let () (declare (not safe)) - (gx#stx-e _%hd185013185481%_)))) - (let ((_%tl185017185491%_ + (gx#stx-e _%hd185050185518%_)))) + (let ((_%tl185054185528%_ (let () (declare (not safe)) - (##cdr _%e185015185486%_))) - (_%hd185016185489%_ + (##cdr _%e185052185523%_))) + (_%hd185053185526%_ (let () (declare (not safe)) - (##car _%e185015185486%_)))) + (##car _%e185052185523%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185017185491%_)) + (gx#stx-null? _%tl185054185528%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185014185483%_)) - (let ((_%e185018185494%_ + (gx#stx-pair? _%tl185051185520%_)) + (let ((_%e185055185531%_ (let () (declare (not safe)) (gx#stx-e - _%tl185014185483%_)))) - (let ((_%tl185020185499%_ + _%tl185051185520%_)))) + (let ((_%tl185057185536%_ (let () (declare (not safe)) - (##cdr _%e185018185494%_))) - (_%hd185019185497%_ + (##cdr _%e185055185531%_))) + (_%hd185056185534%_ (let () (declare (not safe)) - (##car _%e185018185494%_)))) + (##car _%e185055185531%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185019185497%_)) - (let ((_%e185021185502%_ + _%hd185056185534%_)) + (let ((_%e185058185539%_ (let () (declare (not safe)) (gx#stx-e - _%hd185019185497%_)))) - (let ((_%tl185023185507%_ + _%hd185056185534%_)))) + (let ((_%tl185060185544%_ (let () (declare (not safe)) - (##cdr _%e185021185502%_))) - (_%hd185022185505%_ + (##cdr _%e185058185539%_))) + (_%hd185059185542%_ (let () (declare (not safe)) - (##car _%e185021185502%_)))) + (##car _%e185058185539%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185022185505%_)) + _%hd185059185542%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd185022185505%_)) + _%hd185059185542%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl185023185507%_)) - (let ((_%e185024185510%_ + (gx#stx-pair? _%tl185060185544%_)) + (let ((_%e185061185547%_ (let () (declare (not safe)) - (gx#stx-e _%tl185023185507%_)))) - (let ((_%tl185026185515%_ + (gx#stx-e _%tl185060185544%_)))) + (let ((_%tl185063185552%_ (let () (declare (not safe)) - (##cdr _%e185024185510%_))) - (_%hd185025185513%_ + (##cdr _%e185061185547%_))) + (_%hd185062185550%_ (let () (declare (not safe)) - (##car _%e185024185510%_)))) + (##car _%e185061185547%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185026185515%_)) + (gx#stx-null? _%tl185063185552%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185020185499%_)) - (_%loop185001185460%_ - _%lp-tl185004185475%_ - (cons _%hd185025185513%_ - _%xid185005185465%_) - (cons _%hd185016185489%_ - _%id185006185467%_)) - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_)) - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_)))) - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_)) - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_)) - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_)))) + (gx#stx-null? _%tl185057185536%_)) + (_%loop185038185497%_ + _%lp-tl185041185512%_ + (cons _%hd185062185550%_ + _%xid185042185502%_) + (cons _%hd185053185526%_ + _%id185043185504%_)) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_)) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_)))) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_)) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_)) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_)))) - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_)) - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_)))) - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_)))) - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_)))) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_)))) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_)) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_)))) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_)))) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id185008185520%_ - (reverse _%id185006185467%_)) - (_%xid185007185518%_ - (reverse _%xid185005185465%_))) + (let ((_%id185045185557%_ + (reverse _%id185043185504%_)) + (_%xid185044185555%_ + (reverse _%xid185042185502%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184997185452%_)) - (let ((_%e185009185523%_ + _%tl185034185489%_)) + (let ((_%e185046185560%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl184997185452%_)))) - (let ((_%tl185011185528%_ + (gx#stx-e _%tl185034185489%_)))) + (let ((_%tl185048185565%_ (let () (declare (not safe)) - (##cdr _%e185009185523%_))) - (_%hd185010185526%_ + (##cdr _%e185046185560%_))) + (_%hd185047185563%_ (let () (declare (not safe)) - (##car _%e185009185523%_)))) + (##car _%e185046185560%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185011185528%_)) - (_%__kont190353190354%_ - _%hd185010185526%_ - _%xid185007185518%_ - _%id185008185520%_) - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_)))) - (_%__match190488190489%_ - _%e184992185439%_ - _%hd184993185442%_ - _%tl184994185444%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_))))))) + (gx#stx-null? _%tl185048185565%_)) + (_%__kont190390190391%_ + _%hd185047185563%_ + _%xid185044185555%_ + _%id185045185557%_) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_)))) + (_%__match190525190526%_ + _%e185029185476%_ + _%hd185030185479%_ + _%tl185031185481%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185001185460%_ - _%target184998185455%_ + (_%loop185038185497%_ + _%target185035185492%_ '() '())))) - (_%__match190440190441%_ - (lambda (_%e184962185569%_ - _%hd184963185572%_ - _%tl184964185574%_ - _%e184965185577%_ - _%hd184966185580%_ - _%tl184967185582%_ - _%e184968185585%_ - _%hd184969185588%_ - _%tl184970185590%_ - _%e184971185593%_ - _%hd184972185596%_ - _%tl184973185598%_ - _%__splice190351190352%_ - _%target184974185601%_ - _%tl184976185603%_) - (letrec ((_%loop184977185606%_ - (lambda (_%hd184975185609%_ - _%id184981185611%_) + (_%__match190477190478%_ + (lambda (_%e184999185606%_ + _%hd185000185609%_ + _%tl185001185611%_ + _%e185002185614%_ + _%hd185003185617%_ + _%tl185004185619%_ + _%e185005185622%_ + _%hd185006185625%_ + _%tl185007185627%_ + _%e185008185630%_ + _%hd185009185633%_ + _%tl185010185635%_ + _%__splice190388190389%_ + _%target185011185638%_ + _%tl185013185640%_) + (letrec ((_%loop185014185643%_ + (lambda (_%hd185012185646%_ + _%id185018185648%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184975185609%_)) - (let ((_%e184978185614%_ + _%hd185012185646%_)) + (let ((_%e185015185651%_ (let () (declare (not safe)) (gx#stx-e - _%hd184975185609%_)))) - (let ((_%lp-tl184980185619%_ + _%hd185012185646%_)))) + (let ((_%lp-tl185017185656%_ (let () (declare (not safe)) - (##cdr _%e184978185614%_))) - (_%lp-hd184979185617%_ + (##cdr _%e185015185651%_))) + (_%lp-hd185016185654%_ (let () (declare (not safe)) - (##car _%e184978185614%_)))) + (##car _%e185015185651%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd184979185617%_)) - (let ((_%e184983185622%_ + _%lp-hd185016185654%_)) + (let ((_%e185020185659%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd184979185617%_)))) - (let ((_%tl184985185627%_ + (gx#stx-e _%lp-hd185016185654%_)))) + (let ((_%tl185022185664%_ (let () (declare (not safe)) - (##cdr _%e184983185622%_))) - (_%hd184984185625%_ + (##cdr _%e185020185659%_))) + (_%hd185021185662%_ (let () (declare (not safe)) - (##car _%e184983185622%_)))) + (##car _%e185020185659%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184984185625%_)) + (gx#identifier? _%hd185021185662%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184984185625%_)) + (gx#stx-eq? '%#ref _%hd185021185662%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184985185627%_)) - (let ((_%e184986185630%_ + (gx#stx-pair? _%tl185022185664%_)) + (let ((_%e185023185667%_ (let () (declare (not safe)) - (gx#stx-e _%tl184985185627%_)))) - (let ((_%tl184988185635%_ + (gx#stx-e _%tl185022185664%_)))) + (let ((_%tl185025185672%_ (let () (declare (not safe)) - (##cdr _%e184986185630%_))) - (_%hd184987185633%_ + (##cdr _%e185023185667%_))) + (_%hd185024185670%_ (let () (declare (not safe)) - (##car _%e184986185630%_)))) + (##car _%e185023185667%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184988185635%_)) - (_%loop184977185606%_ - _%lp-tl184980185619%_ - (cons _%hd184987185633%_ - _%id184981185611%_)) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)) - (_%__kont190367190368%_)) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) + (gx#stx-null? _%tl185025185672%_)) + (_%loop185014185643%_ + _%lp-tl185017185656%_ + (cons _%hd185024185670%_ + _%id185018185648%_)) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)) + (_%__kont190404190405%_)) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id184982185638%_ - (reverse _%id184981185611%_))) - (_%__kont190349190350%_ - _%id184982185638%_ - _%hd184972185596%_)))))) - (_%loop184977185606%_ - _%target184974185601%_ + (let ((_%id185019185675%_ + (reverse _%id185018185648%_))) + (_%__kont190386190387%_ + _%id185019185675%_ + _%hd185009185633%_)))))) + (_%loop185014185643%_ + _%target185011185638%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190345190346%_)) - (let ((_%e184948185680%_ + (gx#stx-pair? _%__stx190382190383%_)) + (let ((_%e184985185717%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190345190346%_)))) - (let ((_%tl184950185685%_ + (gx#stx-e _%__stx190382190383%_)))) + (let ((_%tl184987185722%_ (let () (declare (not safe)) - (##cdr _%e184948185680%_))) - (_%hd184949185683%_ + (##cdr _%e184985185717%_))) + (_%hd184986185720%_ (let () (declare (not safe)) - (##car _%e184948185680%_)))) + (##car _%e184985185717%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184949185683%_)) + (gx#identifier? _%hd184986185720%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd184949185683%_)) + _%hd184986185720%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184950185685%_)) - (let ((_%e184951185688%_ + _%tl184987185722%_)) + (let ((_%e184988185725%_ (let () (declare (not safe)) (gx#stx-e - _%tl184950185685%_)))) - (let ((_%tl184953185693%_ + _%tl184987185722%_)))) + (let ((_%tl184990185730%_ (let () (declare (not safe)) - (##cdr _%e184951185688%_))) - (_%hd184952185691%_ + (##cdr _%e184988185725%_))) + (_%hd184989185728%_ (let () (declare (not safe)) - (##car _%e184951185688%_)))) + (##car _%e184988185725%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184953185693%_)) - (let ((_%e184954185696%_ + _%tl184990185730%_)) + (let ((_%e184991185733%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184953185693%_)))) - (let ((_%tl184956185701%_ + (gx#stx-e _%tl184990185730%_)))) + (let ((_%tl184993185738%_ (let () (declare (not safe)) - (##cdr _%e184954185696%_))) - (_%hd184955185699%_ + (##cdr _%e184991185733%_))) + (_%hd184992185736%_ (let () (declare (not safe)) - (##car _%e184954185696%_)))) + (##car _%e184991185733%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184956185701%_)) - (let ((_%e184957185704%_ + (gx#stx-pair? _%tl184993185738%_)) + (let ((_%e184994185741%_ (let () (declare (not safe)) - (gx#stx-e _%tl184956185701%_)))) - (let ((_%tl184959185709%_ + (gx#stx-e _%tl184993185738%_)))) + (let ((_%tl184996185746%_ (let () (declare (not safe)) - (##cdr _%e184957185704%_))) - (_%hd184958185707%_ + (##cdr _%e184994185741%_))) + (_%hd184995185744%_ (let () (declare (not safe)) - (##car _%e184957185704%_)))) + (##car _%e184994185741%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184959185709%_)) - (_%__kont190347190348%_ - _%hd184958185707%_ - _%hd184955185699%_ - _%hd184952185691%_) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) + (gx#stx-null? _%tl184996185746%_)) + (_%__kont190384190385%_ + _%hd184995185744%_ + _%hd184992185736%_ + _%hd184989185728%_) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190367190368%_)) + (_%__kont190404190405%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd184949185683%_)) + _%hd184986185720%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184950185685%_)) - (let ((_%e184965185577%_ + _%tl184987185722%_)) + (let ((_%e185002185614%_ (let () (declare (not safe)) (gx#stx-e - _%tl184950185685%_)))) - (let ((_%tl184967185582%_ + _%tl184987185722%_)))) + (let ((_%tl185004185619%_ (let () (declare (not safe)) - (##cdr _%e184965185577%_))) - (_%hd184966185580%_ + (##cdr _%e185002185614%_))) + (_%hd185003185617%_ (let () (declare (not safe)) - (##car _%e184965185577%_)))) + (##car _%e185002185614%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184966185580%_)) - (let ((_%e184968185585%_ + _%hd185003185617%_)) + (let ((_%e185005185622%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184966185580%_)))) - (let ((_%tl184970185590%_ + (gx#stx-e _%hd185003185617%_)))) + (let ((_%tl185007185627%_ (let () (declare (not safe)) - (##cdr _%e184968185585%_))) - (_%hd184969185588%_ + (##cdr _%e185005185622%_))) + (_%hd185006185625%_ (let () (declare (not safe)) - (##car _%e184968185585%_)))) + (##car _%e185005185622%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184969185588%_)) + (gx#identifier? _%hd185006185625%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184969185588%_)) + (gx#stx-eq? '%#ref _%hd185006185625%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184970185590%_)) - (let ((_%e184971185593%_ + (gx#stx-pair? _%tl185007185627%_)) + (let ((_%e185008185630%_ (let () (declare (not safe)) - (gx#stx-e _%tl184970185590%_)))) - (let ((_%tl184973185598%_ + (gx#stx-e _%tl185007185627%_)))) + (let ((_%tl185010185635%_ (let () (declare (not safe)) - (##cdr _%e184971185593%_))) - (_%hd184972185596%_ + (##cdr _%e185008185630%_))) + (_%hd185009185633%_ (let () (declare (not safe)) - (##car _%e184971185593%_)))) + (##car _%e185008185630%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184973185598%_)) + (gx#stx-null? _%tl185010185635%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl184967185582%_)) - (let ((_%__splice190351190352%_ + _%tl185004185619%_)) + (let ((_%__splice190388190389%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184967185582%_ + _%tl185004185619%_ '0)))) - (let ((_%tl184976185603%_ + (let ((_%tl185013185640%_ (let () (declare (not safe)) (##vector-ref - _%__splice190351190352%_ + _%__splice190388190389%_ '1))) - (_%target184974185601%_ + (_%target185011185638%_ (let () (declare (not safe)) (##vector-ref - _%__splice190351190352%_ + _%__splice190388190389%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184976185603%_)) - (_%__match190440190441%_ - _%e184948185680%_ - _%hd184949185683%_ - _%tl184950185685%_ - _%e184965185577%_ - _%hd184966185580%_ - _%tl184967185582%_ - _%e184968185585%_ - _%hd184969185588%_ - _%tl184970185590%_ - _%e184971185593%_ - _%hd184972185596%_ - _%tl184973185598%_ - _%__splice190351190352%_ - _%target184974185601%_ - _%tl184976185603%_) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)) - (_%__kont190367190368%_)) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) + _%tl185013185640%_)) + (_%__match190477190478%_ + _%e184985185717%_ + _%hd184986185720%_ + _%tl184987185722%_ + _%e185002185614%_ + _%hd185003185617%_ + _%tl185004185619%_ + _%e185005185622%_ + _%hd185006185625%_ + _%tl185007185627%_ + _%e185008185630%_ + _%hd185009185633%_ + _%tl185010185635%_ + _%__splice190388190389%_ + _%target185011185638%_ + _%tl185013185640%_) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)) + (_%__kont190404190405%_)) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190367190368%_)) + (_%__kont190404190405%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd184949185683%_)) + _%hd184986185720%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184950185685%_)) - (let ((_%e184995185447%_ + _%tl184987185722%_)) + (let ((_%e185032185484%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184950185685%_)))) - (let ((_%tl184997185452%_ + (gx#stx-e _%tl184987185722%_)))) + (let ((_%tl185034185489%_ (let () (declare (not safe)) - (##cdr _%e184995185447%_))) - (_%hd184996185450%_ + (##cdr _%e185032185484%_))) + (_%hd185033185487%_ (let () (declare (not safe)) - (##car _%e184995185447%_)))) + (##car _%e185032185484%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd184996185450%_)) - (let ((_%__splice190355190356%_ + (gx#stx-pair/null? _%hd185033185487%_)) + (let ((_%__splice190392190393%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd184996185450%_ + _%hd185033185487%_ '0)))) - (let ((_%tl185000185457%_ + (let ((_%tl185037185494%_ (let () (declare (not safe)) - (##vector-ref _%__splice190355190356%_ '1))) - (_%target184998185455%_ + (##vector-ref _%__splice190392190393%_ '1))) + (_%target185035185492%_ (let () (declare (not safe)) - (##vector-ref _%__splice190355190356%_ '0)))) + (##vector-ref _%__splice190392190393%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185000185457%_)) - (_%__match190464190465%_ - _%e184948185680%_ - _%hd184949185683%_ - _%tl184950185685%_ - _%e184995185447%_ - _%hd184996185450%_ - _%tl184997185452%_ - _%__splice190355190356%_ - _%target184998185455%_ - _%tl185000185457%_) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)) + (gx#stx-null? _%tl185037185494%_)) + (_%__match190501190502%_ + _%e184985185717%_ + _%hd184986185720%_ + _%tl184987185722%_ + _%e185032185484%_ + _%hd185033185487%_ + _%tl185034185489%_ + _%__splice190392190393%_ + _%target185035185492%_ + _%tl185037185494%_) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd184949185683%_)) + _%hd184986185720%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184950185685%_)) - (let ((_%e185067185136%_ + _%tl184987185722%_)) + (let ((_%e185104185173%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184950185685%_)))) - (let ((_%tl185069185141%_ + (gx#stx-e _%tl184987185722%_)))) + (let ((_%tl185106185178%_ (let () (declare (not safe)) - (##cdr _%e185067185136%_))) - (_%hd185068185139%_ + (##cdr _%e185104185173%_))) + (_%hd185105185176%_ (let () (declare (not safe)) - (##car _%e185067185136%_)))) + (##car _%e185104185173%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185068185139%_)) - (let ((_%e185070185144%_ + (gx#stx-pair? _%hd185105185176%_)) + (let ((_%e185107185181%_ (let () (declare (not safe)) - (gx#stx-e _%hd185068185139%_)))) - (let ((_%tl185072185149%_ + (gx#stx-e _%hd185105185176%_)))) + (let ((_%tl185109185186%_ (let () (declare (not safe)) - (##cdr _%e185070185144%_))) - (_%hd185071185147%_ + (##cdr _%e185107185181%_))) + (_%hd185108185184%_ (let () (declare (not safe)) - (##car _%e185070185144%_)))) + (##car _%e185107185181%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185071185147%_)) - (let ((_%e185073185152%_ + (gx#stx-pair? _%hd185108185184%_)) + (let ((_%e185110185189%_ (let () (declare (not safe)) - (gx#stx-e _%hd185071185147%_)))) - (let ((_%tl185075185157%_ + (gx#stx-e _%hd185108185184%_)))) + (let ((_%tl185112185194%_ (let () (declare (not safe)) - (##cdr _%e185073185152%_))) - (_%hd185074185155%_ + (##cdr _%e185110185189%_))) + (_%hd185111185192%_ (let () (declare (not safe)) - (##car _%e185073185152%_)))) + (##car _%e185110185189%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185074185155%_)) - (let ((_%e185076185160%_ + (gx#stx-pair? _%hd185111185192%_)) + (let ((_%e185113185197%_ (let () (declare (not safe)) (gx#stx-e - _%hd185074185155%_)))) - (let ((_%tl185078185165%_ + _%hd185111185192%_)))) + (let ((_%tl185115185202%_ (let () (declare (not safe)) - (##cdr _%e185076185160%_))) - (_%hd185077185163%_ + (##cdr _%e185113185197%_))) + (_%hd185114185200%_ (let () (declare (not safe)) - (##car _%e185076185160%_)))) + (##car _%e185113185197%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185078185165%_)) + _%tl185115185202%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185075185157%_)) - (let ((_%e185079185168%_ + _%tl185112185194%_)) + (let ((_%e185116185205%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl185075185157%_)))) - (let ((_%tl185081185173%_ + (gx#stx-e _%tl185112185194%_)))) + (let ((_%tl185118185210%_ (let () (declare (not safe)) - (##cdr _%e185079185168%_))) - (_%hd185080185171%_ + (##cdr _%e185116185205%_))) + (_%hd185117185208%_ (let () (declare (not safe)) - (##car _%e185079185168%_)))) + (##car _%e185116185205%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185080185171%_)) - (let ((_%e185082185176%_ + (gx#stx-pair? _%hd185117185208%_)) + (let ((_%e185119185213%_ (let () (declare (not safe)) - (gx#stx-e _%hd185080185171%_)))) - (let ((_%tl185084185181%_ + (gx#stx-e _%hd185117185208%_)))) + (let ((_%tl185121185218%_ (let () (declare (not safe)) - (##cdr _%e185082185176%_))) - (_%hd185083185179%_ + (##cdr _%e185119185213%_))) + (_%hd185120185216%_ (let () (declare (not safe)) - (##car _%e185082185176%_)))) + (##car _%e185119185213%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185083185179%_)) + (gx#identifier? _%hd185120185216%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd185083185179%_)) + (gx#stx-eq? '%#lambda _%hd185120185216%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185084185181%_)) - (let ((_%e185085185184%_ + (gx#stx-pair? _%tl185121185218%_)) + (let ((_%e185122185221%_ (let () (declare (not safe)) (gx#stx-e - _%tl185084185181%_)))) - (let ((_%tl185087185189%_ + _%tl185121185218%_)))) + (let ((_%tl185124185226%_ (let () (declare (not safe)) - (##cdr _%e185085185184%_))) - (_%hd185086185187%_ + (##cdr _%e185122185221%_))) + (_%hd185123185224%_ (let () (declare (not safe)) - (##car _%e185085185184%_)))) + (##car _%e185122185221%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd185086185187%_)) - (let ((_%__splice190363190364%_ + _%hd185123185224%_)) + (let ((_%__splice190400190401%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd185086185187%_ + _%hd185123185224%_ '0)))) - (let ((_%tl185090185194%_ + (let ((_%tl185127185231%_ (let () (declare (not safe)) (##vector-ref - _%__splice190363190364%_ + _%__splice190400190401%_ '1))) - (_%target185088185192%_ + (_%target185125185229%_ (let () (declare (not safe)) (##vector-ref - _%__splice190363190364%_ + _%__splice190400190401%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185090185194%_)) - (_%__match190554190555%_ - _%e184948185680%_ - _%hd184949185683%_ - _%tl184950185685%_ - _%e185067185136%_ - _%hd185068185139%_ - _%tl185069185141%_ - _%e185070185144%_ - _%hd185071185147%_ - _%tl185072185149%_ - _%e185073185152%_ - _%hd185074185155%_ - _%tl185075185157%_ - _%e185076185160%_ - _%hd185077185163%_ - _%tl185078185165%_ - _%e185079185168%_ - _%hd185080185171%_ - _%tl185081185173%_ - _%e185082185176%_ - _%hd185083185179%_ - _%tl185084185181%_ - _%e185085185184%_ - _%hd185086185187%_ - _%tl185087185189%_ - _%__splice190363190364%_ - _%target185088185192%_ - _%tl185090185194%_) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)) - (_%__kont190367190368%_)) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)) + _%tl185127185231%_)) + (_%__match190591190592%_ + _%e184985185717%_ + _%hd184986185720%_ + _%tl184987185722%_ + _%e185104185173%_ + _%hd185105185176%_ + _%tl185106185178%_ + _%e185107185181%_ + _%hd185108185184%_ + _%tl185109185186%_ + _%e185110185189%_ + _%hd185111185192%_ + _%tl185112185194%_ + _%e185113185197%_ + _%hd185114185200%_ + _%tl185115185202%_ + _%e185116185205%_ + _%hd185117185208%_ + _%tl185118185210%_ + _%e185119185213%_ + _%hd185120185216%_ + _%tl185121185218%_ + _%e185122185221%_ + _%hd185123185224%_ + _%tl185124185226%_ + _%__splice190400190401%_ + _%target185125185229%_ + _%tl185127185231%_) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)) + (_%__kont190404190405%_)) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)))) - (_%__kont190367190368%_)) - (_%__kont190367190368%_))))) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)))) + (_%__kont190404190405%_)) + (_%__kont190404190405%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190367190368%_)))) - (_%__kont190367190368%_))))))) - (_%optimize-t__189290189291%_ - (lambda (_%expr184919%_ _%test184920%_ _%continue184921%_) - (_%do-assert181926%_ - (cons (cons _%test184920%_ '#t) '()) - (lambda () (_%continue184921%_ _%expr184919%_))))) - (_%optimize-t__0__189292189293%_ - (lambda (_%expr184927%_ _%test184928%_) - (let ((_%continue184930%_ _%optimize-e181937%_)) - (_%optimize-t__189290189291%_ - _%expr184927%_ - _%test184928%_ - _%continue184930%_)))) - (_%optimize-t181938%_ - (lambda _g192447_ - (let ((_g192446_ + (_%__kont190404190405%_)))) + (_%__kont190404190405%_))))))) + (_%optimize-t__189327189328%_ + (lambda (_%expr184956%_ _%test184957%_ _%continue184958%_) + (_%do-assert181963%_ + (cons (cons _%test184957%_ '#t) '()) + (lambda () (_%continue184958%_ _%expr184956%_))))) + (_%optimize-t__0__189329189330%_ + (lambda (_%expr184964%_ _%test184965%_) + (let ((_%continue184967%_ _%optimize-e181974%_)) + (_%optimize-t__189327189328%_ + _%expr184964%_ + _%test184965%_ + _%continue184967%_)))) + (_%optimize-t181975%_ + (lambda _g192484_ + (let ((_g192483_ (let () (declare (not safe)) - (##length _g192447_)))) - (cond ((let () (declare (not safe)) (##fx= _g192446_ 2)) - (apply _%optimize-t__0__189292189293%_ - _g192447_)) - ((let () (declare (not safe)) (##fx= _g192446_ 3)) - (apply _%optimize-t__189290189291%_ _g192447_)) + (##length _g192484_)))) + (cond ((let () (declare (not safe)) (##fx= _g192483_ 2)) + (apply _%optimize-t__0__189329189330%_ + _g192484_)) + ((let () (declare (not safe)) (##fx= _g192483_ 3)) + (apply _%optimize-t__189327189328%_ _g192484_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192447_)))))) - (_%optimize-f__189294189295%_ - (lambda (_%expr184003%_ _%test184004%_) - (_%do-assert181926%_ - (if _%test184004%_ - (cons (cons _%test184004%_ '#f) '()) + _g192484_)))))) + (_%optimize-f__189331189332%_ + (lambda (_%expr184040%_ _%test184041%_) + (_%do-assert181963%_ + (if _%test184041%_ + (cons (cons _%test184041%_ '#f) '()) '()) (lambda () - (let* ((_%__stx190595190596%_ _%expr184003%_) - (_%g184012184185%_ + (let* ((_%__stx190632190633%_ _%expr184040%_) + (_%g184049184222%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190595190596%_))))) - (let ((_%__kont190597190598%_ - (lambda (_%L184773%_ _%L184774%_) - (let ((_%$e184794%_ - (_%lookup-block181945%_ - _%L184774%_))) - (if _%$e184794%_ - ((lambda (_%block184797%_) - (if (_%nonlinear-block?181947%_ - _%block184797%_) - _%expr184003%_ - (let* ((_%inline184806%_ - (_%inline-block181946%_ - _%block184797%_ - (let ((__tmp192448 - (lambda (_%g184798184801%_ + _%__stx190632190633%_))))) + (let ((_%__kont190634190635%_ + (lambda (_%L184810%_ _%L184811%_) + (let ((_%$e184831%_ + (_%lookup-block181982%_ + _%L184811%_))) + (if _%$e184831%_ + ((lambda (_%block184834%_) + (if (_%nonlinear-block?181984%_ + _%block184834%_) + _%expr184040%_ + (let* ((_%inline184843%_ + (_%inline-block181983%_ + _%block184834%_ + (let ((__tmp192485 + (lambda (_%g184835184838%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g184799184803%_) - (cons _%g184798184801%_ _%g184799184803%_)))) + _%g184836184840%_) + (cons _%g184835184838%_ _%g184836184840%_)))) (declare (not safe)) - (__foldr1 __tmp192448 '() _%L184773%_)))) - (_%__stx190557190558%_ _%inline184806%_) - (_%g184809184830%_ + (__foldr1 __tmp192485 '() _%L184810%_)))) + (_%__stx190594190595%_ _%inline184843%_) + (_%g184846184867%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190557190558%_))))) + _%__stx190594190595%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__kont190559190560%_ - (lambda (_%L184874%_ + (let ((_%__kont190596190597%_ + (lambda (_%L184911%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L184875%_ - _%L184876%_) - (let ((_%$e184898%_ (_%assert-e181940%_ _%L184876%_))) - (if (eq? '#t _%$e184898%_) - (if _%in-splice?181925%_ - (_%optimize-f__0__189296189297%_ _%L184875%_) - (_%optimize-e181937%_ _%L184875%_)) - (if (eq? '#f _%$e184898%_) - (_%optimize-f__0__189296189297%_ _%L184874%_) - _%expr184003%_))))) - (_%__kont190561190562%_ + _%L184912%_ + _%L184913%_) + (let ((_%$e184935%_ (_%assert-e181977%_ _%L184913%_))) + (if (eq? '#t _%$e184935%_) + (if _%in-splice?181962%_ + (_%optimize-f__0__189333189334%_ _%L184912%_) + (_%optimize-e181974%_ _%L184912%_)) + (if (eq? '#f _%$e184935%_) + (_%optimize-f__0__189333189334%_ _%L184911%_) + _%expr184040%_))))) + (_%__kont190598190599%_ (lambda () - (_%optimize-f__0__189296189297%_ _%inline184806%_)))) + (_%optimize-f__0__189333189334%_ _%inline184843%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190557190558%_)) - (let ((_%e184814184842%_ + _%__stx190594190595%_)) + (let ((_%e184851184879%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx190557190558%_)))) - (let ((_%tl184816184847%_ + (gx#stx-e _%__stx190594190595%_)))) + (let ((_%tl184853184884%_ (let () (declare (not safe)) - (##cdr _%e184814184842%_))) - (_%hd184815184845%_ + (##cdr _%e184851184879%_))) + (_%hd184852184882%_ (let () (declare (not safe)) - (##car _%e184814184842%_)))) + (##car _%e184851184879%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184815184845%_)) + (gx#identifier? _%hd184852184882%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd184815184845%_)) + (gx#stx-eq? '%#if _%hd184852184882%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184816184847%_)) - (let ((_%e184817184850%_ + (gx#stx-pair? _%tl184853184884%_)) + (let ((_%e184854184887%_ (let () (declare (not safe)) - (gx#stx-e _%tl184816184847%_)))) - (let ((_%tl184819184855%_ + (gx#stx-e _%tl184853184884%_)))) + (let ((_%tl184856184892%_ (let () (declare (not safe)) - (##cdr _%e184817184850%_))) - (_%hd184818184853%_ + (##cdr _%e184854184887%_))) + (_%hd184855184890%_ (let () (declare (not safe)) - (##car _%e184817184850%_)))) + (##car _%e184854184887%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184819184855%_)) - (let ((_%e184820184858%_ + (gx#stx-pair? _%tl184856184892%_)) + (let ((_%e184857184895%_ (let () (declare (not safe)) (gx#stx-e - _%tl184819184855%_)))) - (let ((_%tl184822184863%_ + _%tl184856184892%_)))) + (let ((_%tl184859184900%_ (let () (declare (not safe)) - (##cdr _%e184820184858%_))) - (_%hd184821184861%_ + (##cdr _%e184857184895%_))) + (_%hd184858184898%_ (let () (declare (not safe)) - (##car _%e184820184858%_)))) + (##car _%e184857184895%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184822184863%_)) - (let ((_%e184823184866%_ + _%tl184859184900%_)) + (let ((_%e184860184903%_ (let () (declare (not safe)) (gx#stx-e - _%tl184822184863%_)))) - (let ((_%tl184825184871%_ + _%tl184859184900%_)))) + (let ((_%tl184862184908%_ (let () (declare (not safe)) - (##cdr _%e184823184866%_))) - (_%hd184824184869%_ + (##cdr _%e184860184903%_))) + (_%hd184861184906%_ (let () (declare (not safe)) - (##car _%e184823184866%_)))) + (##car _%e184860184903%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184825184871%_)) - (_%__kont190559190560%_ - _%hd184824184869%_ - _%hd184821184861%_ - _%hd184818184853%_) - (_%__kont190561190562%_)))) - (_%__kont190561190562%_)))) - (_%__kont190561190562%_)))) - (_%__kont190561190562%_)) - (_%__kont190561190562%_)) - (_%__kont190561190562%_)))) - (_%__kont190561190562%_)))))) + _%tl184862184908%_)) + (_%__kont190596190597%_ + _%hd184861184906%_ + _%hd184858184898%_ + _%hd184855184890%_) + (_%__kont190598190599%_)))) + (_%__kont190598190599%_)))) + (_%__kont190598190599%_)))) + (_%__kont190598190599%_)) + (_%__kont190598190599%_)) + (_%__kont190598190599%_)))) + (_%__kont190598190599%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e184794%_) - _%expr184003%_)))) - (_%__kont190601190602%_ - (lambda (_%L184671%_ _%L184672%_ _%L184673%_) - (let ((_%$e184690%_ - (_%assert-e181940%_ _%L184673%_))) - (if (eq? '#t _%$e184690%_) - (if _%in-splice?181925%_ - (_%optimize-f__0__189296189297%_ - _%L184672%_) - (_%optimize-e181937%_ - _%L184672%_)) - (if (eq? '#f _%$e184690%_) - (_%optimize-f__0__189296189297%_ - _%L184671%_) - (let ((_%K184693%_ - (_%optimize-t__189290189291%_ - _%L184672%_ - _%L184673%_ - _%optimize-f181939%_)) - (_%E184694%_ - (_%optimize-f__189294189295%_ - _%L184671%_ - _%L184673%_))) + _%$e184831%_) + _%expr184040%_)))) + (_%__kont190638190639%_ + (lambda (_%L184708%_ _%L184709%_ _%L184710%_) + (let ((_%$e184727%_ + (_%assert-e181977%_ _%L184710%_))) + (if (eq? '#t _%$e184727%_) + (if _%in-splice?181962%_ + (_%optimize-f__0__189333189334%_ + _%L184709%_) + (_%optimize-e181974%_ + _%L184709%_)) + (if (eq? '#f _%$e184727%_) + (_%optimize-f__0__189333189334%_ + _%L184708%_) + (let ((_%K184730%_ + (_%optimize-t__189327189328%_ + _%L184709%_ + _%L184710%_ + _%optimize-f181976%_)) + (_%E184731%_ + (_%optimize-f__189331189332%_ + _%L184708%_ + _%L184710%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K184693%_) + _%K184730%_) (gxc#apply-generate-runtime-repr - _%E184694%_)) - _%K184693%_ + _%E184731%_)) + _%K184730%_ (cons '%#if - (cons _%L184673%_ - (cons _%K184693%_ + (cons _%L184710%_ + (cons _%K184730%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E184694%_ '()))))))))))) + (cons _%E184731%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190603190604%_ - (lambda (_%L184601%_ _%L184602%_ _%L184603%_) - (let ((_%body184622%_ - (_%optimize-f__0__189296189297%_ - _%L184601%_))) + (_%__kont190640190641%_ + (lambda (_%L184638%_ _%L184639%_ _%L184640%_) + (let ((_%body184659%_ + (_%optimize-f__0__189333189334%_ + _%L184638%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L184602%_ - _%L184603%_)) - (let ((__tmp192449 - (lambda (_%g184623184627%_ + _%L184639%_ + _%L184640%_)) + (let ((__tmp192486 + (lambda (_%g184660184664%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g184624184629%_ - _%g184625184631%_) - (cons (cons (cons _%g184624184629%_ '()) + _%g184661184666%_ + _%g184662184668%_) + (cons (cons (cons _%g184661184666%_ '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g184623184627%_ '())) + (cons _%g184660184664%_ '())) '())) - _%g184625184631%_)))) + _%g184662184668%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp192449 + __tmp192486 '() - _%L184602%_ - _%L184603%_))) - (cons _%body184622%_ '())))))) - (_%__kont190607190608%_ - (lambda (_%L184469%_ _%L184470%_ _%L184471%_) - (_%bind-e__189298189299%_ + _%L184639%_ + _%L184640%_))) + (cons _%body184659%_ '())))))) + (_%__kont190644190645%_ + (lambda (_%L184506%_ _%L184507%_ _%L184508%_) + (_%bind-e__189335189336%_ (map cons - (let ((__tmp192450 - (lambda (_%g184489184492%_ - _%g184490184494%_) - (cons _%g184489184492%_ - _%g184490184494%_)))) + (let ((__tmp192487 + (lambda (_%g184526184529%_ + _%g184527184531%_) + (cons _%g184526184529%_ + _%g184527184531%_)))) (declare (not safe)) (__foldr1 - __tmp192450 + __tmp192487 '() - _%L184471%_)) - (let ((__tmp192451 - (lambda (_%g184496184499%_ - _%g184497184501%_) - (cons _%g184496184499%_ - _%g184497184501%_)))) + _%L184508%_)) + (let ((__tmp192488 + (lambda (_%g184533184536%_ + _%g184534184538%_) + (cons _%g184533184536%_ + _%g184534184538%_)))) (declare (not safe)) (__foldr1 - __tmp192451 + __tmp192488 '() - _%L184470%_))) - _%L184469%_ - _%optimize-f181939%_))) - (_%__kont190611190612%_ - (lambda (_%L184325%_ - _%L184326%_ - _%L184327%_ - _%L184328%_ - _%L184329%_) - (_%do-splice!181936%_ + _%L184507%_))) + _%L184506%_ + _%optimize-f181976%_))) + (_%__kont190648190649%_ + (lambda (_%L184362%_ + _%L184363%_ + _%L184364%_ + _%L184365%_ + _%L184366%_) + (_%do-splice!181973%_ (lambda () - (let ((_%expr184372%_ - (_%optimize-f__0__189296189297%_ - _%L184327%_))) + (let ((_%expr184409%_ + (_%optimize-f__0__189333189334%_ + _%L184364%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L184329%_ + (cons (cons (cons (cons _%L184366%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp192452 - (lambda (_%g184373184376%_ - _%g184374184378%_) - (cons _%g184373184376%_ - _%g184374184378%_)))) + (cons (let ((__tmp192489 + (lambda (_%g184410184413%_ + _%g184411184415%_) + (cons _%g184410184413%_ + _%g184411184415%_)))) (declare (not safe)) (__foldr1 - __tmp192452 + __tmp192489 '() - _%L184328%_)) - (cons _%expr184372%_ '()))) + _%L184365%_)) + (cons _%expr184409%_ '()))) '())) - (let ((__tmp192453 - (lambda (_%g184380184383%_ _%g184381184385%_) - (cons _%g184380184383%_ _%g184381184385%_)))) + (let ((__tmp192490 + (lambda (_%g184417184420%_ _%g184418184422%_) + (cons _%g184417184420%_ _%g184418184422%_)))) (declare (not safe)) - (__foldr1 __tmp192453 '() _%L184326%_))) + (__foldr1 __tmp192490 '() _%L184363%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L184325%_ + (cons _%L184362%_ '())))))))) - (_%__kont190617190618%_ - (lambda () _%expr184003%_))) - (let* ((_%__match190804190805%_ - (lambda (_%e184133184197%_ - _%hd184134184200%_ - _%tl184135184202%_ - _%e184136184205%_ - _%hd184137184208%_ - _%tl184138184210%_ - _%e184139184213%_ - _%hd184140184216%_ - _%tl184141184218%_ - _%e184142184221%_ - _%hd184143184224%_ - _%tl184144184226%_ - _%e184145184229%_ - _%hd184146184232%_ - _%tl184147184234%_ - _%e184148184237%_ - _%hd184149184240%_ - _%tl184150184242%_ - _%e184151184245%_ - _%hd184152184248%_ - _%tl184153184250%_ - _%e184154184253%_ - _%hd184155184256%_ - _%tl184156184258%_ - _%__splice190613190614%_ - _%target184157184261%_ - _%tl184159184263%_) - (letrec ((_%loop184160184266%_ - (lambda (_%hd184158184269%_ - _%id184164184271%_) + (_%__kont190654190655%_ + (lambda () _%expr184040%_))) + (let* ((_%__match190841190842%_ + (lambda (_%e184170184234%_ + _%hd184171184237%_ + _%tl184172184239%_ + _%e184173184242%_ + _%hd184174184245%_ + _%tl184175184247%_ + _%e184176184250%_ + _%hd184177184253%_ + _%tl184178184255%_ + _%e184179184258%_ + _%hd184180184261%_ + _%tl184181184263%_ + _%e184182184266%_ + _%hd184183184269%_ + _%tl184184184271%_ + _%e184185184274%_ + _%hd184186184277%_ + _%tl184187184279%_ + _%e184188184282%_ + _%hd184189184285%_ + _%tl184190184287%_ + _%e184191184290%_ + _%hd184192184293%_ + _%tl184193184295%_ + _%__splice190650190651%_ + _%target184194184298%_ + _%tl184196184300%_) + (letrec ((_%loop184197184303%_ + (lambda (_%hd184195184306%_ + _%id184201184308%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184158184269%_)) - (let ((_%e184161184274%_ + _%hd184195184306%_)) + (let ((_%e184198184311%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184158184269%_)))) - (let ((_%lp-tl184163184279%_ - (let () (declare (not safe)) (##cdr _%e184161184274%_))) - (_%lp-hd184162184277%_ + (gx#stx-e _%hd184195184306%_)))) + (let ((_%lp-tl184200184316%_ + (let () (declare (not safe)) (##cdr _%e184198184311%_))) + (_%lp-hd184199184314%_ (let () (declare (not safe)) - (##car _%e184161184274%_)))) - (_%loop184160184266%_ - _%lp-tl184163184279%_ - (cons _%lp-hd184162184277%_ _%id184164184271%_)))) - (let ((_%id184165184282%_ (reverse _%id184164184271%_))) + (##car _%e184198184311%_)))) + (_%loop184197184303%_ + _%lp-tl184200184316%_ + (cons _%lp-hd184199184314%_ _%id184201184308%_)))) + (let ((_%id184202184319%_ (reverse _%id184201184308%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184156184258%_)) - (let ((_%e184166184285%_ + (gx#stx-pair? _%tl184193184295%_)) + (let ((_%e184203184322%_ (let () (declare (not safe)) - (gx#stx-e _%tl184156184258%_)))) - (let ((_%tl184168184290%_ + (gx#stx-e _%tl184193184295%_)))) + (let ((_%tl184205184327%_ (let () (declare (not safe)) - (##cdr _%e184166184285%_))) - (_%hd184167184288%_ + (##cdr _%e184203184322%_))) + (_%hd184204184325%_ (let () (declare (not safe)) - (##car _%e184166184285%_)))) + (##car _%e184203184322%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184168184290%_)) + (gx#stx-null? _%tl184205184327%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184150184242%_)) + (gx#stx-null? _%tl184187184279%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl184141184218%_)) - (let ((_%__splice190615190616%_ + (gx#stx-pair/null? _%tl184178184255%_)) + (let ((_%__splice190652190653%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184141184218%_ + _%tl184178184255%_ '0)))) - (let ((_%tl184171184295%_ + (let ((_%tl184208184332%_ (let () (declare (not safe)) (##vector-ref - _%__splice190615190616%_ + _%__splice190652190653%_ '1))) - (_%target184169184293%_ + (_%target184206184330%_ (let () (declare (not safe)) (##vector-ref - _%__splice190615190616%_ + _%__splice190652190653%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184171184295%_)) - (letrec ((_%loop184172184298%_ - (lambda (_%hd184170184301%_ - _%bind184176184303%_) + _%tl184208184332%_)) + (letrec ((_%loop184209184335%_ + (lambda (_%hd184207184338%_ + _%bind184213184340%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184170184301%_)) - (let ((_%e184173184306%_ + _%hd184207184338%_)) + (let ((_%e184210184343%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184170184301%_)))) - (let ((_%lp-tl184175184311%_ + (gx#stx-e _%hd184207184338%_)))) + (let ((_%lp-tl184212184348%_ (let () (declare (not safe)) - (##cdr _%e184173184306%_))) - (_%lp-hd184174184309%_ + (##cdr _%e184210184343%_))) + (_%lp-hd184211184346%_ (let () (declare (not safe)) - (##car _%e184173184306%_)))) - (_%loop184172184298%_ - _%lp-tl184175184311%_ - (cons _%lp-hd184174184309%_ _%bind184176184303%_)))) - (let ((_%bind184177184314%_ - (reverse _%bind184176184303%_))) + (##car _%e184210184343%_)))) + (_%loop184209184335%_ + _%lp-tl184212184348%_ + (cons _%lp-hd184211184346%_ _%bind184213184340%_)))) + (let ((_%bind184214184351%_ + (reverse _%bind184213184340%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184138184210%_)) - (let ((_%e184178184317%_ + (gx#stx-pair? _%tl184175184247%_)) + (let ((_%e184215184354%_ (let () (declare (not safe)) - (gx#stx-e _%tl184138184210%_)))) - (let ((_%tl184180184322%_ + (gx#stx-e _%tl184175184247%_)))) + (let ((_%tl184217184359%_ (let () (declare (not safe)) - (##cdr _%e184178184317%_))) - (_%hd184179184320%_ + (##cdr _%e184215184354%_))) + (_%hd184216184357%_ (let () (declare (not safe)) - (##car _%e184178184317%_)))) + (##car _%e184215184354%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184180184322%_)) - (_%__kont190611190612%_ - _%hd184179184320%_ - _%bind184177184314%_ - _%hd184167184288%_ - _%id184165184282%_ - _%hd184146184232%_) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_))))))) + (gx#stx-null? _%tl184217184359%_)) + (_%__kont190648190649%_ + _%hd184216184357%_ + _%bind184214184351%_ + _%hd184204184325%_ + _%id184202184319%_ + _%hd184183184269%_) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184172184298%_ - _%target184169184293%_ + (_%loop184209184335%_ + _%target184206184330%_ '())) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)) - (_%__kont190617190618%_)) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_))))))) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)) + (_%__kont190654190655%_)) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184160184266%_ - _%target184157184261%_ + (_%loop184197184303%_ + _%target184194184298%_ '())))) - (_%__match190738190739%_ - (lambda (_%e184099184393%_ - _%hd184100184396%_ - _%tl184101184398%_ - _%e184102184401%_ - _%hd184103184404%_ - _%tl184104184406%_ - _%__splice190609190610%_ - _%target184105184409%_ - _%tl184107184411%_) - (letrec ((_%loop184108184414%_ - (lambda (_%hd184106184417%_ - _%expr184112184419%_ - _%id184113184421%_) + (_%__match190775190776%_ + (lambda (_%e184136184430%_ + _%hd184137184433%_ + _%tl184138184435%_ + _%e184139184438%_ + _%hd184140184441%_ + _%tl184141184443%_ + _%__splice190646190647%_ + _%target184142184446%_ + _%tl184144184448%_) + (letrec ((_%loop184145184451%_ + (lambda (_%hd184143184454%_ + _%expr184149184456%_ + _%id184150184458%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184106184417%_)) - (let ((_%e184109184424%_ + _%hd184143184454%_)) + (let ((_%e184146184461%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184106184417%_)))) - (let ((_%lp-tl184111184429%_ - (let () (declare (not safe)) (##cdr _%e184109184424%_))) - (_%lp-hd184110184427%_ + (gx#stx-e _%hd184143184454%_)))) + (let ((_%lp-tl184148184466%_ + (let () (declare (not safe)) (##cdr _%e184146184461%_))) + (_%lp-hd184147184464%_ (let () (declare (not safe)) - (##car _%e184109184424%_)))) + (##car _%e184146184461%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd184110184427%_)) - (let ((_%e184119184432%_ + (gx#stx-pair? _%lp-hd184147184464%_)) + (let ((_%e184156184469%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd184110184427%_)))) - (let ((_%tl184121184437%_ + (gx#stx-e _%lp-hd184147184464%_)))) + (let ((_%tl184158184474%_ (let () (declare (not safe)) - (##cdr _%e184119184432%_))) - (_%hd184120184435%_ + (##cdr _%e184156184469%_))) + (_%hd184157184472%_ (let () (declare (not safe)) - (##car _%e184119184432%_)))) + (##car _%e184156184469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184120184435%_)) - (let ((_%e184122184440%_ + (gx#stx-pair? _%hd184157184472%_)) + (let ((_%e184159184477%_ (let () (declare (not safe)) - (gx#stx-e _%hd184120184435%_)))) - (let ((_%tl184124184445%_ + (gx#stx-e _%hd184157184472%_)))) + (let ((_%tl184161184482%_ (let () (declare (not safe)) - (##cdr _%e184122184440%_))) - (_%hd184123184443%_ + (##cdr _%e184159184477%_))) + (_%hd184160184480%_ (let () (declare (not safe)) - (##car _%e184122184440%_)))) + (##car _%e184159184477%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184124184445%_)) + (gx#stx-null? _%tl184161184482%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184121184437%_)) - (let ((_%e184125184448%_ + (gx#stx-pair? _%tl184158184474%_)) + (let ((_%e184162184485%_ (let () (declare (not safe)) (gx#stx-e - _%tl184121184437%_)))) - (let ((_%tl184127184453%_ + _%tl184158184474%_)))) + (let ((_%tl184164184490%_ (let () (declare (not safe)) - (##cdr _%e184125184448%_))) - (_%hd184126184451%_ + (##cdr _%e184162184485%_))) + (_%hd184163184488%_ (let () (declare (not safe)) - (##car _%e184125184448%_)))) + (##car _%e184162184485%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184127184453%_)) - (_%loop184108184414%_ - _%lp-tl184111184429%_ - (cons _%hd184126184451%_ - _%expr184112184419%_) - (cons _%hd184123184443%_ - _%id184113184421%_)) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)))) - (let ((_%id184115184458%_ (reverse _%id184113184421%_)) - (_%expr184114184456%_ (reverse _%expr184112184419%_))) + _%tl184164184490%_)) + (_%loop184145184451%_ + _%lp-tl184148184466%_ + (cons _%hd184163184488%_ + _%expr184149184456%_) + (cons _%hd184160184480%_ + _%id184150184458%_)) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)))) + (let ((_%id184152184495%_ (reverse _%id184150184458%_)) + (_%expr184151184493%_ (reverse _%expr184149184456%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184104184406%_)) - (let ((_%e184116184461%_ + (gx#stx-pair? _%tl184141184443%_)) + (let ((_%e184153184498%_ (let () (declare (not safe)) - (gx#stx-e _%tl184104184406%_)))) - (let ((_%tl184118184466%_ + (gx#stx-e _%tl184141184443%_)))) + (let ((_%tl184155184503%_ (let () (declare (not safe)) - (##cdr _%e184116184461%_))) - (_%hd184117184464%_ + (##cdr _%e184153184498%_))) + (_%hd184154184501%_ (let () (declare (not safe)) - (##car _%e184116184461%_)))) + (##car _%e184153184498%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184118184466%_)) - (_%__kont190607190608%_ - _%hd184117184464%_ - _%expr184114184456%_ - _%id184115184458%_) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_))))))) + (gx#stx-null? _%tl184155184503%_)) + (_%__kont190644190645%_ + _%hd184154184501%_ + _%expr184151184493%_ + _%id184152184495%_) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184108184414%_ - _%target184105184409%_ + (_%loop184145184451%_ + _%target184142184446%_ '() '())))) - (_%__match190714190715%_ - (lambda (_%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_) - (letrec ((_%loop184070184530%_ - (lambda (_%hd184068184533%_ - _%xid184074184535%_ - _%id184075184537%_) + (_%__match190751190752%_ + (lambda (_%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_) + (letrec ((_%loop184107184567%_ + (lambda (_%hd184105184570%_ + _%xid184111184572%_ + _%id184112184574%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184068184533%_)) - (let ((_%e184071184540%_ + _%hd184105184570%_)) + (let ((_%e184108184577%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184068184533%_)))) - (let ((_%lp-tl184073184545%_ - (let () (declare (not safe)) (##cdr _%e184071184540%_))) - (_%lp-hd184072184543%_ + (gx#stx-e _%hd184105184570%_)))) + (let ((_%lp-tl184110184582%_ + (let () (declare (not safe)) (##cdr _%e184108184577%_))) + (_%lp-hd184109184580%_ (let () (declare (not safe)) - (##car _%e184071184540%_)))) + (##car _%e184108184577%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd184072184543%_)) - (let ((_%e184081184548%_ + (gx#stx-pair? _%lp-hd184109184580%_)) + (let ((_%e184118184585%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd184072184543%_)))) - (let ((_%tl184083184553%_ + (gx#stx-e _%lp-hd184109184580%_)))) + (let ((_%tl184120184590%_ (let () (declare (not safe)) - (##cdr _%e184081184548%_))) - (_%hd184082184551%_ + (##cdr _%e184118184585%_))) + (_%hd184119184588%_ (let () (declare (not safe)) - (##car _%e184081184548%_)))) + (##car _%e184118184585%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184082184551%_)) - (let ((_%e184084184556%_ + (gx#stx-pair? _%hd184119184588%_)) + (let ((_%e184121184593%_ (let () (declare (not safe)) - (gx#stx-e _%hd184082184551%_)))) - (let ((_%tl184086184561%_ + (gx#stx-e _%hd184119184588%_)))) + (let ((_%tl184123184598%_ (let () (declare (not safe)) - (##cdr _%e184084184556%_))) - (_%hd184085184559%_ + (##cdr _%e184121184593%_))) + (_%hd184122184596%_ (let () (declare (not safe)) - (##car _%e184084184556%_)))) + (##car _%e184121184593%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184086184561%_)) + (gx#stx-null? _%tl184123184598%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184083184553%_)) - (let ((_%e184087184564%_ + (gx#stx-pair? _%tl184120184590%_)) + (let ((_%e184124184601%_ (let () (declare (not safe)) (gx#stx-e - _%tl184083184553%_)))) - (let ((_%tl184089184569%_ + _%tl184120184590%_)))) + (let ((_%tl184126184606%_ (let () (declare (not safe)) - (##cdr _%e184087184564%_))) - (_%hd184088184567%_ + (##cdr _%e184124184601%_))) + (_%hd184125184604%_ (let () (declare (not safe)) - (##car _%e184087184564%_)))) + (##car _%e184124184601%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184088184567%_)) - (let ((_%e184090184572%_ + _%hd184125184604%_)) + (let ((_%e184127184609%_ (let () (declare (not safe)) (gx#stx-e - _%hd184088184567%_)))) - (let ((_%tl184092184577%_ + _%hd184125184604%_)))) + (let ((_%tl184129184614%_ (let () (declare (not safe)) - (##cdr _%e184090184572%_))) - (_%hd184091184575%_ + (##cdr _%e184127184609%_))) + (_%hd184128184612%_ (let () (declare (not safe)) - (##car _%e184090184572%_)))) + (##car _%e184127184609%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184091184575%_)) + _%hd184128184612%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd184091184575%_)) + (gx#stx-eq? '%#ref _%hd184128184612%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184092184577%_)) - (let ((_%e184093184580%_ + (gx#stx-pair? _%tl184129184614%_)) + (let ((_%e184130184617%_ (let () (declare (not safe)) - (gx#stx-e _%tl184092184577%_)))) - (let ((_%tl184095184585%_ + (gx#stx-e _%tl184129184614%_)))) + (let ((_%tl184132184622%_ (let () (declare (not safe)) - (##cdr _%e184093184580%_))) - (_%hd184094184583%_ + (##cdr _%e184130184617%_))) + (_%hd184131184620%_ (let () (declare (not safe)) - (##car _%e184093184580%_)))) + (##car _%e184130184617%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184095184585%_)) + (gx#stx-null? _%tl184132184622%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184089184569%_)) - (_%loop184070184530%_ - _%lp-tl184073184545%_ - (cons _%hd184094184583%_ - _%xid184074184535%_) - (cons _%hd184085184559%_ - _%id184075184537%_)) - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_)) - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_)))) - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_)) - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_)) - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_)))) + (gx#stx-null? _%tl184126184606%_)) + (_%loop184107184567%_ + _%lp-tl184110184582%_ + (cons _%hd184131184620%_ + _%xid184111184572%_) + (cons _%hd184122184596%_ + _%id184112184574%_)) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_)) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_)))) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_)) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_)) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_)))) - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_)) - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_)))) - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_)))) - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_)))) - (let ((_%id184077184590%_ (reverse _%id184075184537%_)) - (_%xid184076184588%_ (reverse _%xid184074184535%_))) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_)))) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_)) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_)))) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_)))) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_)))) + (let ((_%id184114184627%_ (reverse _%id184112184574%_)) + (_%xid184113184625%_ (reverse _%xid184111184572%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184066184522%_)) - (let ((_%e184078184593%_ + (gx#stx-pair? _%tl184103184559%_)) + (let ((_%e184115184630%_ (let () (declare (not safe)) - (gx#stx-e _%tl184066184522%_)))) - (let ((_%tl184080184598%_ + (gx#stx-e _%tl184103184559%_)))) + (let ((_%tl184117184635%_ (let () (declare (not safe)) - (##cdr _%e184078184593%_))) - (_%hd184079184596%_ + (##cdr _%e184115184630%_))) + (_%hd184116184633%_ (let () (declare (not safe)) - (##car _%e184078184593%_)))) + (##car _%e184115184630%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184080184598%_)) - (_%__kont190603190604%_ - _%hd184079184596%_ - _%xid184076184588%_ - _%id184077184590%_) - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_)))) - (_%__match190738190739%_ - _%e184061184509%_ - _%hd184062184512%_ - _%tl184063184514%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_))))))) + (gx#stx-null? _%tl184117184635%_)) + (_%__kont190640190641%_ + _%hd184116184633%_ + _%xid184113184625%_ + _%id184114184627%_) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_)))) + (_%__match190775190776%_ + _%e184098184546%_ + _%hd184099184549%_ + _%tl184100184551%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184070184530%_ - _%target184067184525%_ + (_%loop184107184567%_ + _%target184104184562%_ '() '())))) - (_%__match190660190661%_ - (lambda (_%e184016184701%_ - _%hd184017184704%_ - _%tl184018184706%_ - _%e184019184709%_ - _%hd184020184712%_ - _%tl184021184714%_ - _%e184022184717%_ - _%hd184023184720%_ - _%tl184024184722%_ - _%e184025184725%_ - _%hd184026184728%_ - _%tl184027184730%_ - _%__splice190599190600%_ - _%target184028184733%_ - _%tl184030184735%_) - (letrec ((_%loop184031184738%_ - (lambda (_%hd184029184741%_ - _%id184035184743%_) + (_%__match190697190698%_ + (lambda (_%e184053184738%_ + _%hd184054184741%_ + _%tl184055184743%_ + _%e184056184746%_ + _%hd184057184749%_ + _%tl184058184751%_ + _%e184059184754%_ + _%hd184060184757%_ + _%tl184061184759%_ + _%e184062184762%_ + _%hd184063184765%_ + _%tl184064184767%_ + _%__splice190636190637%_ + _%target184065184770%_ + _%tl184067184772%_) + (letrec ((_%loop184068184775%_ + (lambda (_%hd184066184778%_ + _%id184072184780%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184029184741%_)) - (let ((_%e184032184746%_ + _%hd184066184778%_)) + (let ((_%e184069184783%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184029184741%_)))) - (let ((_%lp-tl184034184751%_ - (let () (declare (not safe)) (##cdr _%e184032184746%_))) - (_%lp-hd184033184749%_ + (gx#stx-e _%hd184066184778%_)))) + (let ((_%lp-tl184071184788%_ + (let () (declare (not safe)) (##cdr _%e184069184783%_))) + (_%lp-hd184070184786%_ (let () (declare (not safe)) - (##car _%e184032184746%_)))) + (##car _%e184069184783%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd184033184749%_)) - (let ((_%e184037184754%_ + (gx#stx-pair? _%lp-hd184070184786%_)) + (let ((_%e184074184791%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd184033184749%_)))) - (let ((_%tl184039184759%_ + (gx#stx-e _%lp-hd184070184786%_)))) + (let ((_%tl184076184796%_ (let () (declare (not safe)) - (##cdr _%e184037184754%_))) - (_%hd184038184757%_ + (##cdr _%e184074184791%_))) + (_%hd184075184794%_ (let () (declare (not safe)) - (##car _%e184037184754%_)))) + (##car _%e184074184791%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184038184757%_)) + (gx#identifier? _%hd184075184794%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184038184757%_)) + (gx#stx-eq? '%#ref _%hd184075184794%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184039184759%_)) - (let ((_%e184040184762%_ + (gx#stx-pair? _%tl184076184796%_)) + (let ((_%e184077184799%_ (let () (declare (not safe)) - (gx#stx-e _%tl184039184759%_)))) - (let ((_%tl184042184767%_ + (gx#stx-e _%tl184076184796%_)))) + (let ((_%tl184079184804%_ (let () (declare (not safe)) - (##cdr _%e184040184762%_))) - (_%hd184041184765%_ + (##cdr _%e184077184799%_))) + (_%hd184078184802%_ (let () (declare (not safe)) - (##car _%e184040184762%_)))) + (##car _%e184077184799%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184042184767%_)) - (_%loop184031184738%_ - _%lp-tl184034184751%_ - (cons _%hd184041184765%_ - _%id184035184743%_)) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)) - (_%__kont190617190618%_)) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)))) - (let ((_%id184036184770%_ (reverse _%id184035184743%_))) - (_%__kont190597190598%_ - _%id184036184770%_ - _%hd184026184728%_)))))) + _%tl184079184804%_)) + (_%loop184068184775%_ + _%lp-tl184071184788%_ + (cons _%hd184078184802%_ + _%id184072184780%_)) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)) + (_%__kont190654190655%_)) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)))) + (let ((_%id184073184807%_ (reverse _%id184072184780%_))) + (_%__kont190634190635%_ + _%id184073184807%_ + _%hd184063184765%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184031184738%_ - _%target184028184733%_ + (_%loop184068184775%_ + _%target184065184770%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190595190596%_)) - (let ((_%e184016184701%_ + (gx#stx-pair? _%__stx190632190633%_)) + (let ((_%e184053184738%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190595190596%_)))) - (let ((_%tl184018184706%_ + (gx#stx-e _%__stx190632190633%_)))) + (let ((_%tl184055184743%_ (let () (declare (not safe)) - (##cdr _%e184016184701%_))) - (_%hd184017184704%_ + (##cdr _%e184053184738%_))) + (_%hd184054184741%_ (let () (declare (not safe)) - (##car _%e184016184701%_)))) + (##car _%e184053184738%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184017184704%_)) + _%hd184054184741%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd184017184704%_)) + _%hd184054184741%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184018184706%_)) - (let ((_%e184019184709%_ + _%tl184055184743%_)) + (let ((_%e184056184746%_ (let () (declare (not safe)) (gx#stx-e - _%tl184018184706%_)))) - (let ((_%tl184021184714%_ + _%tl184055184743%_)))) + (let ((_%tl184058184751%_ (let () (declare (not safe)) - (##cdr _%e184019184709%_))) - (_%hd184020184712%_ + (##cdr _%e184056184746%_))) + (_%hd184057184749%_ (let () (declare (not safe)) - (##car _%e184019184709%_)))) + (##car _%e184056184746%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184020184712%_)) - (let ((_%e184022184717%_ + _%hd184057184749%_)) + (let ((_%e184059184754%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184020184712%_)))) - (let ((_%tl184024184722%_ + (gx#stx-e _%hd184057184749%_)))) + (let ((_%tl184061184759%_ (let () (declare (not safe)) - (##cdr _%e184022184717%_))) - (_%hd184023184720%_ + (##cdr _%e184059184754%_))) + (_%hd184060184757%_ (let () (declare (not safe)) - (##car _%e184022184717%_)))) + (##car _%e184059184754%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184023184720%_)) + (gx#identifier? _%hd184060184757%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184023184720%_)) + (gx#stx-eq? '%#ref _%hd184060184757%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184024184722%_)) - (let ((_%e184025184725%_ + (gx#stx-pair? _%tl184061184759%_)) + (let ((_%e184062184762%_ (let () (declare (not safe)) - (gx#stx-e _%tl184024184722%_)))) - (let ((_%tl184027184730%_ + (gx#stx-e _%tl184061184759%_)))) + (let ((_%tl184064184767%_ (let () (declare (not safe)) - (##cdr _%e184025184725%_))) - (_%hd184026184728%_ + (##cdr _%e184062184762%_))) + (_%hd184063184765%_ (let () (declare (not safe)) - (##car _%e184025184725%_)))) + (##car _%e184062184762%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184027184730%_)) + (gx#stx-null? _%tl184064184767%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl184021184714%_)) - (let ((_%__splice190599190600%_ + _%tl184058184751%_)) + (let ((_%__splice190636190637%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184021184714%_ + _%tl184058184751%_ '0)))) - (let ((_%tl184030184735%_ + (let ((_%tl184067184772%_ (let () (declare (not safe)) (##vector-ref - _%__splice190599190600%_ + _%__splice190636190637%_ '1))) - (_%target184028184733%_ + (_%target184065184770%_ (let () (declare (not safe)) (##vector-ref - _%__splice190599190600%_ + _%__splice190636190637%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184030184735%_)) - (_%__match190660190661%_ - _%e184016184701%_ - _%hd184017184704%_ - _%tl184018184706%_ - _%e184019184709%_ - _%hd184020184712%_ - _%tl184021184714%_ - _%e184022184717%_ - _%hd184023184720%_ - _%tl184024184722%_ - _%e184025184725%_ - _%hd184026184728%_ - _%tl184027184730%_ - _%__splice190599190600%_ - _%target184028184733%_ - _%tl184030184735%_) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)) - (_%__kont190617190618%_)) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)))) + _%tl184067184772%_)) + (_%__match190697190698%_ + _%e184053184738%_ + _%hd184054184741%_ + _%tl184055184743%_ + _%e184056184746%_ + _%hd184057184749%_ + _%tl184058184751%_ + _%e184059184754%_ + _%hd184060184757%_ + _%tl184061184759%_ + _%e184062184762%_ + _%hd184063184765%_ + _%tl184064184767%_ + _%__splice190636190637%_ + _%target184065184770%_ + _%tl184067184772%_) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)) + (_%__kont190654190655%_)) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190617190618%_)) + (_%__kont190654190655%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd184017184704%_)) + _%hd184054184741%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184018184706%_)) - (let ((_%e184049184647%_ + _%tl184055184743%_)) + (let ((_%e184086184684%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184018184706%_)))) - (let ((_%tl184051184652%_ - (let () (declare (not safe)) (##cdr _%e184049184647%_))) - (_%hd184050184650%_ + (gx#stx-e _%tl184055184743%_)))) + (let ((_%tl184088184689%_ + (let () (declare (not safe)) (##cdr _%e184086184684%_))) + (_%hd184087184687%_ (let () (declare (not safe)) - (##car _%e184049184647%_)))) + (##car _%e184086184684%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184051184652%_)) - (let ((_%e184052184655%_ + (gx#stx-pair? _%tl184088184689%_)) + (let ((_%e184089184692%_ (let () (declare (not safe)) - (gx#stx-e _%tl184051184652%_)))) - (let ((_%tl184054184660%_ + (gx#stx-e _%tl184088184689%_)))) + (let ((_%tl184091184697%_ (let () (declare (not safe)) - (##cdr _%e184052184655%_))) - (_%hd184053184658%_ + (##cdr _%e184089184692%_))) + (_%hd184090184695%_ (let () (declare (not safe)) - (##car _%e184052184655%_)))) + (##car _%e184089184692%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184054184660%_)) - (let ((_%e184055184663%_ + (gx#stx-pair? _%tl184091184697%_)) + (let ((_%e184092184700%_ (let () (declare (not safe)) - (gx#stx-e _%tl184054184660%_)))) - (let ((_%tl184057184668%_ + (gx#stx-e _%tl184091184697%_)))) + (let ((_%tl184094184705%_ (let () (declare (not safe)) - (##cdr _%e184055184663%_))) - (_%hd184056184666%_ + (##cdr _%e184092184700%_))) + (_%hd184093184703%_ (let () (declare (not safe)) - (##car _%e184055184663%_)))) + (##car _%e184092184700%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184057184668%_)) - (_%__kont190601190602%_ - _%hd184056184666%_ - _%hd184053184658%_ - _%hd184050184650%_) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)) + (gx#stx-null? _%tl184094184705%_)) + (_%__kont190638190639%_ + _%hd184093184703%_ + _%hd184090184695%_ + _%hd184087184687%_) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd184017184704%_)) + _%hd184054184741%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184018184706%_)) - (let ((_%e184064184517%_ + _%tl184055184743%_)) + (let ((_%e184101184554%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184018184706%_)))) - (let ((_%tl184066184522%_ + (gx#stx-e _%tl184055184743%_)))) + (let ((_%tl184103184559%_ (let () (declare (not safe)) - (##cdr _%e184064184517%_))) - (_%hd184065184520%_ + (##cdr _%e184101184554%_))) + (_%hd184102184557%_ (let () (declare (not safe)) - (##car _%e184064184517%_)))) + (##car _%e184101184554%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd184065184520%_)) - (let ((_%__splice190605190606%_ + (gx#stx-pair/null? _%hd184102184557%_)) + (let ((_%__splice190642190643%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd184065184520%_ + _%hd184102184557%_ '0)))) - (let ((_%tl184069184527%_ + (let ((_%tl184106184564%_ (let () (declare (not safe)) (##vector-ref - _%__splice190605190606%_ + _%__splice190642190643%_ '1))) - (_%target184067184525%_ + (_%target184104184562%_ (let () (declare (not safe)) (##vector-ref - _%__splice190605190606%_ + _%__splice190642190643%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184069184527%_)) - (_%__match190714190715%_ - _%e184016184701%_ - _%hd184017184704%_ - _%tl184018184706%_ - _%e184064184517%_ - _%hd184065184520%_ - _%tl184066184522%_ - _%__splice190605190606%_ - _%target184067184525%_ - _%tl184069184527%_) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)) + (gx#stx-null? _%tl184106184564%_)) + (_%__match190751190752%_ + _%e184053184738%_ + _%hd184054184741%_ + _%tl184055184743%_ + _%e184101184554%_ + _%hd184102184557%_ + _%tl184103184559%_ + _%__splice190642190643%_ + _%target184104184562%_ + _%tl184106184564%_) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _%hd184017184704%_)) + (gx#stx-eq? '%#letrec-values _%hd184054184741%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184018184706%_)) - (let ((_%e184136184205%_ + (gx#stx-pair? _%tl184055184743%_)) + (let ((_%e184173184242%_ (let () (declare (not safe)) - (gx#stx-e _%tl184018184706%_)))) - (let ((_%tl184138184210%_ + (gx#stx-e _%tl184055184743%_)))) + (let ((_%tl184175184247%_ (let () (declare (not safe)) - (##cdr _%e184136184205%_))) - (_%hd184137184208%_ + (##cdr _%e184173184242%_))) + (_%hd184174184245%_ (let () (declare (not safe)) - (##car _%e184136184205%_)))) + (##car _%e184173184242%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184137184208%_)) - (let ((_%e184139184213%_ + (gx#stx-pair? _%hd184174184245%_)) + (let ((_%e184176184250%_ (let () (declare (not safe)) - (gx#stx-e _%hd184137184208%_)))) - (let ((_%tl184141184218%_ + (gx#stx-e _%hd184174184245%_)))) + (let ((_%tl184178184255%_ (let () (declare (not safe)) - (##cdr _%e184139184213%_))) - (_%hd184140184216%_ + (##cdr _%e184176184250%_))) + (_%hd184177184253%_ (let () (declare (not safe)) - (##car _%e184139184213%_)))) + (##car _%e184176184250%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184140184216%_)) - (let ((_%e184142184221%_ + (gx#stx-pair? _%hd184177184253%_)) + (let ((_%e184179184258%_ (let () (declare (not safe)) - (gx#stx-e _%hd184140184216%_)))) - (let ((_%tl184144184226%_ + (gx#stx-e _%hd184177184253%_)))) + (let ((_%tl184181184263%_ (let () (declare (not safe)) - (##cdr _%e184142184221%_))) - (_%hd184143184224%_ + (##cdr _%e184179184258%_))) + (_%hd184180184261%_ (let () (declare (not safe)) - (##car _%e184142184221%_)))) + (##car _%e184179184258%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184143184224%_)) - (let ((_%e184145184229%_ + _%hd184180184261%_)) + (let ((_%e184182184266%_ (let () (declare (not safe)) (gx#stx-e - _%hd184143184224%_)))) - (let ((_%tl184147184234%_ + _%hd184180184261%_)))) + (let ((_%tl184184184271%_ (let () (declare (not safe)) - (##cdr _%e184145184229%_))) - (_%hd184146184232%_ + (##cdr _%e184182184266%_))) + (_%hd184183184269%_ (let () (declare (not safe)) - (##car _%e184145184229%_)))) + (##car _%e184182184266%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184147184234%_)) + _%tl184184184271%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184144184226%_)) - (let ((_%e184148184237%_ + _%tl184181184263%_)) + (let ((_%e184185184274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184144184226%_)))) - (let ((_%tl184150184242%_ + (gx#stx-e _%tl184181184263%_)))) + (let ((_%tl184187184279%_ (let () (declare (not safe)) - (##cdr _%e184148184237%_))) - (_%hd184149184240%_ + (##cdr _%e184185184274%_))) + (_%hd184186184277%_ (let () (declare (not safe)) - (##car _%e184148184237%_)))) + (##car _%e184185184274%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184149184240%_)) - (let ((_%e184151184245%_ + (gx#stx-pair? _%hd184186184277%_)) + (let ((_%e184188184282%_ (let () (declare (not safe)) - (gx#stx-e _%hd184149184240%_)))) - (let ((_%tl184153184250%_ + (gx#stx-e _%hd184186184277%_)))) + (let ((_%tl184190184287%_ (let () (declare (not safe)) - (##cdr _%e184151184245%_))) - (_%hd184152184248%_ + (##cdr _%e184188184282%_))) + (_%hd184189184285%_ (let () (declare (not safe)) - (##car _%e184151184245%_)))) + (##car _%e184188184282%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184152184248%_)) + (gx#identifier? _%hd184189184285%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd184152184248%_)) + _%hd184189184285%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184153184250%_)) - (let ((_%e184154184253%_ + (gx#stx-pair? _%tl184190184287%_)) + (let ((_%e184191184290%_ (let () (declare (not safe)) (gx#stx-e - _%tl184153184250%_)))) - (let ((_%tl184156184258%_ + _%tl184190184287%_)))) + (let ((_%tl184193184295%_ (let () (declare (not safe)) - (##cdr _%e184154184253%_))) - (_%hd184155184256%_ + (##cdr _%e184191184290%_))) + (_%hd184192184293%_ (let () (declare (not safe)) - (##car _%e184154184253%_)))) + (##car _%e184191184290%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd184155184256%_)) - (let ((_%__splice190613190614%_ + _%hd184192184293%_)) + (let ((_%__splice190650190651%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd184155184256%_ + _%hd184192184293%_ '0)))) - (let ((_%tl184159184263%_ + (let ((_%tl184196184300%_ (let () (declare (not safe)) (##vector-ref - _%__splice190613190614%_ + _%__splice190650190651%_ '1))) - (_%target184157184261%_ + (_%target184194184298%_ (let () (declare (not safe)) (##vector-ref - _%__splice190613190614%_ + _%__splice190650190651%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184159184263%_)) - (_%__match190804190805%_ - _%e184016184701%_ - _%hd184017184704%_ - _%tl184018184706%_ - _%e184136184205%_ - _%hd184137184208%_ - _%tl184138184210%_ - _%e184139184213%_ - _%hd184140184216%_ - _%tl184141184218%_ - _%e184142184221%_ - _%hd184143184224%_ - _%tl184144184226%_ - _%e184145184229%_ - _%hd184146184232%_ - _%tl184147184234%_ - _%e184148184237%_ - _%hd184149184240%_ - _%tl184150184242%_ - _%e184151184245%_ - _%hd184152184248%_ - _%tl184153184250%_ - _%e184154184253%_ - _%hd184155184256%_ - _%tl184156184258%_ - _%__splice190613190614%_ - _%target184157184261%_ - _%tl184159184263%_) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)) - (_%__kont190617190618%_)) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)) - (_%__kont190617190618%_)))) + _%tl184196184300%_)) + (_%__match190841190842%_ + _%e184053184738%_ + _%hd184054184741%_ + _%tl184055184743%_ + _%e184173184242%_ + _%hd184174184245%_ + _%tl184175184247%_ + _%e184176184250%_ + _%hd184177184253%_ + _%tl184178184255%_ + _%e184179184258%_ + _%hd184180184261%_ + _%tl184181184263%_ + _%e184182184266%_ + _%hd184183184269%_ + _%tl184184184271%_ + _%e184185184274%_ + _%hd184186184277%_ + _%tl184187184279%_ + _%e184188184282%_ + _%hd184189184285%_ + _%tl184190184287%_ + _%e184191184290%_ + _%hd184192184293%_ + _%tl184193184295%_ + _%__splice190650190651%_ + _%target184194184298%_ + _%tl184196184300%_) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)) + (_%__kont190654190655%_)) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)) + (_%__kont190654190655%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)))) - (_%__kont190617190618%_)) - (_%__kont190617190618%_))))) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)))) + (_%__kont190654190655%_)) + (_%__kont190654190655%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190617190618%_)))) - (_%__kont190617190618%_))))))))) - (_%optimize-f__0__189296189297%_ - (lambda (_%expr184911%_) - (let ((_%test184913%_ '#f)) - (_%optimize-f__189294189295%_ - _%expr184911%_ - _%test184913%_)))) - (_%optimize-f181939%_ - (lambda _g192455_ - (let ((_g192454_ + (_%__kont190654190655%_)))) + (_%__kont190654190655%_))))))))) + (_%optimize-f__0__189333189334%_ + (lambda (_%expr184948%_) + (let ((_%test184950%_ '#f)) + (_%optimize-f__189331189332%_ + _%expr184948%_ + _%test184950%_)))) + (_%optimize-f181976%_ + (lambda _g192492_ + (let ((_g192491_ (let () (declare (not safe)) - (##length _g192455_)))) - (cond ((let () (declare (not safe)) (##fx= _g192454_ 1)) - (apply _%optimize-f__0__189296189297%_ - _g192455_)) - ((let () (declare (not safe)) (##fx= _g192454_ 2)) - (apply _%optimize-f__189294189295%_ _g192455_)) + (##length _g192492_)))) + (cond ((let () (declare (not safe)) (##fx= _g192491_ 1)) + (apply _%optimize-f__0__189333189334%_ + _g192492_)) + ((let () (declare (not safe)) (##fx= _g192491_ 2)) + (apply _%optimize-f__189331189332%_ _g192492_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192455_)))))) - (_%assert-e181940%_ - (lambda (_%expr182940%_) - (let* ((_%sexpr182942%_ - (gxc#apply-generate-runtime-repr _%expr182940%_)) - (_%$e182944%_ - (assoc _%sexpr182942%_ _%env-assert181922%_))) - (if _%$e182944%_ - (cdr _%$e182944%_) - (let _%assert182948%_ ((_%expr182950%_ - _%expr182940%_)) - (let* ((_%__stx190901190902%_ _%expr182950%_) - (_%g182958183137%_ + _g192492_)))))) + (_%assert-e181977%_ + (lambda (_%expr182977%_) + (let* ((_%sexpr182979%_ + (gxc#apply-generate-runtime-repr _%expr182977%_)) + (_%$e182981%_ + (assoc _%sexpr182979%_ _%env-assert181959%_))) + (if _%$e182981%_ + (cdr _%$e182981%_) + (let _%assert182985%_ ((_%expr182987%_ + _%expr182977%_)) + (let* ((_%__stx190938190939%_ _%expr182987%_) + (_%g182995183174%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190901190902%_))))) - (let ((_%__kont190903190904%_ - (lambda (_%L183970%_ _%L183971%_) - (let ((_%$e183993%_ - (_%predicate-type181927%_ - _%L183971%_))) - (if _%$e183993%_ - ((lambda (_%t183996%_) - (_%assert-type181941%_ - _%L183970%_ - _%t183996%_)) - _%$e183993%_) + _%__stx190938190939%_))))) + (let ((_%__kont190940190941%_ + (lambda (_%L184007%_ _%L184008%_) + (let ((_%$e184030%_ + (_%predicate-type181964%_ + _%L184008%_))) + (if _%$e184030%_ + ((lambda (_%t184033%_) + (_%assert-type181978%_ + _%L184007%_ + _%t184033%_)) + _%$e184030%_) '#!void)))) - (_%__kont190905190906%_ - (lambda (_%L183662%_ - _%L183663%_ - _%L183664%_) - (let ((_%$e183689%_ + (_%__kont190942190943%_ + (lambda (_%L183699%_ + _%L183700%_ + _%L183701%_) + (let ((_%$e183726%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L183664%_)))) - (if (or (eq? '##fx= _%$e183689%_) - (eq? 'fx= _%$e183689%_)) - (let* ((_%__stx190807190808%_ - _%L183663%_) - (_%g183696183725%_ + _%L183701%_)))) + (if (or (eq? '##fx= _%$e183726%_) + (eq? 'fx= _%$e183726%_)) + (let* ((_%__stx190844190845%_ + _%L183700%_) + (_%g183733183762%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190807190808%_))))) - (let ((_%__kont190809190810%_ - (lambda (_%L183793%_ - _%L183794%_) - (let ((_%$e183819%_ - (_%countf-symbol181929%_ + _%__stx190844190845%_))))) + (let ((_%__kont190846190847%_ + (lambda (_%L183830%_ + _%L183831%_) + (let ((_%$e183856%_ + (_%countf-symbol181966%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L183794%_))) - (if _%$e183819%_ - ((lambda (_%sym183822%_) - (_%assert-count181942%_ - _%L183793%_ - _%sym183822%_ + _%L183831%_))) + (if _%$e183856%_ + ((lambda (_%sym183859%_) + (_%assert-count181979%_ + _%L183830%_ + _%sym183859%_ (let () (declare (not safe)) - (gx#stx-e _%L183662%_)))) - _%$e183819%_) + (gx#stx-e _%L183699%_)))) + _%$e183856%_) '#!void)))) - (_%__kont190811190812%_ (lambda () '#!void))) + (_%__kont190848190849%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190807190808%_)) - (let ((_%e183700183737%_ + _%__stx190844190845%_)) + (let ((_%e183737183774%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx190807190808%_)))) - (let ((_%tl183702183742%_ - (let () (declare (not safe)) (##cdr _%e183700183737%_))) - (_%hd183701183740%_ + (gx#stx-e _%__stx190844190845%_)))) + (let ((_%tl183739183779%_ + (let () (declare (not safe)) (##cdr _%e183737183774%_))) + (_%hd183738183777%_ (let () (declare (not safe)) - (##car _%e183700183737%_)))) + (##car _%e183737183774%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183701183740%_)) + (gx#identifier? _%hd183738183777%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd183701183740%_)) + (gx#stx-eq? '%#call _%hd183738183777%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183702183742%_)) - (let ((_%e183703183745%_ + (gx#stx-pair? _%tl183739183779%_)) + (let ((_%e183740183782%_ (let () (declare (not safe)) - (gx#stx-e _%tl183702183742%_)))) - (let ((_%tl183705183750%_ + (gx#stx-e _%tl183739183779%_)))) + (let ((_%tl183742183787%_ (let () (declare (not safe)) - (##cdr _%e183703183745%_))) - (_%hd183704183748%_ + (##cdr _%e183740183782%_))) + (_%hd183741183785%_ (let () (declare (not safe)) - (##car _%e183703183745%_)))) + (##car _%e183740183782%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183704183748%_)) - (let ((_%e183706183753%_ + (gx#stx-pair? _%hd183741183785%_)) + (let ((_%e183743183790%_ (let () (declare (not safe)) - (gx#stx-e _%hd183704183748%_)))) - (let ((_%tl183708183758%_ + (gx#stx-e _%hd183741183785%_)))) + (let ((_%tl183745183795%_ (let () (declare (not safe)) - (##cdr _%e183706183753%_))) - (_%hd183707183756%_ + (##cdr _%e183743183790%_))) + (_%hd183744183793%_ (let () (declare (not safe)) - (##car _%e183706183753%_)))) + (##car _%e183743183790%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183707183756%_)) + _%hd183744183793%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183707183756%_)) + _%hd183744183793%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183708183758%_)) - (let ((_%e183709183761%_ + _%tl183745183795%_)) + (let ((_%e183746183798%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183708183758%_)))) - (let ((_%tl183711183766%_ - (let () (declare (not safe)) (##cdr _%e183709183761%_))) - (_%hd183710183764%_ + (gx#stx-e _%tl183745183795%_)))) + (let ((_%tl183748183803%_ + (let () (declare (not safe)) (##cdr _%e183746183798%_))) + (_%hd183747183801%_ (let () (declare (not safe)) - (##car _%e183709183761%_)))) + (##car _%e183746183798%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183711183766%_)) + (gx#stx-null? _%tl183748183803%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183705183750%_)) - (let ((_%e183712183769%_ + (gx#stx-pair? _%tl183742183787%_)) + (let ((_%e183749183806%_ (let () (declare (not safe)) - (gx#stx-e _%tl183705183750%_)))) - (let ((_%tl183714183774%_ + (gx#stx-e _%tl183742183787%_)))) + (let ((_%tl183751183811%_ (let () (declare (not safe)) - (##cdr _%e183712183769%_))) - (_%hd183713183772%_ + (##cdr _%e183749183806%_))) + (_%hd183750183809%_ (let () (declare (not safe)) - (##car _%e183712183769%_)))) + (##car _%e183749183806%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183713183772%_)) - (let ((_%e183715183777%_ + (gx#stx-pair? _%hd183750183809%_)) + (let ((_%e183752183814%_ (let () (declare (not safe)) - (gx#stx-e _%hd183713183772%_)))) - (let ((_%tl183717183782%_ + (gx#stx-e _%hd183750183809%_)))) + (let ((_%tl183754183819%_ (let () (declare (not safe)) - (##cdr _%e183715183777%_))) - (_%hd183716183780%_ + (##cdr _%e183752183814%_))) + (_%hd183753183817%_ (let () (declare (not safe)) - (##car _%e183715183777%_)))) + (##car _%e183752183814%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183716183780%_)) + _%hd183753183817%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183716183780%_)) + _%hd183753183817%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183717183782%_)) - (let ((_%e183718183785%_ + _%tl183754183819%_)) + (let ((_%e183755183822%_ (let () (declare (not safe)) (gx#stx-e - _%tl183717183782%_)))) - (let ((_%tl183720183790%_ + _%tl183754183819%_)))) + (let ((_%tl183757183827%_ (let () (declare (not safe)) - (##cdr _%e183718183785%_))) - (_%hd183719183788%_ + (##cdr _%e183755183822%_))) + (_%hd183756183825%_ (let () (declare (not safe)) - (##car _%e183718183785%_)))) + (##car _%e183755183822%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183720183790%_)) + _%tl183757183827%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl183714183774%_)) - (_%__kont190809190810%_ - _%hd183719183788%_ - _%hd183710183764%_) - (_%__kont190811190812%_)) - (_%__kont190811190812%_)))) + (gx#stx-null? _%tl183751183811%_)) + (_%__kont190846190847%_ + _%hd183756183825%_ + _%hd183747183801%_) + (_%__kont190848190849%_)) + (_%__kont190848190849%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190811190812%_)) - (_%__kont190811190812%_)) - (_%__kont190811190812%_)))) - (_%__kont190811190812%_)))) - (_%__kont190811190812%_)) - (_%__kont190811190812%_)))) - (_%__kont190811190812%_)) + (_%__kont190848190849%_)) + (_%__kont190848190849%_)) + (_%__kont190848190849%_)))) + (_%__kont190848190849%_)))) + (_%__kont190848190849%_)) + (_%__kont190848190849%_)))) + (_%__kont190848190849%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190811190812%_)) - (_%__kont190811190812%_)))) - (_%__kont190811190812%_)))) - (_%__kont190811190812%_)) - (_%__kont190811190812%_)) - (_%__kont190811190812%_)))) - (_%__kont190811190812%_)))) + (_%__kont190848190849%_)) + (_%__kont190848190849%_)))) + (_%__kont190848190849%_)))) + (_%__kont190848190849%_)) + (_%__kont190848190849%_)) + (_%__kont190848190849%_)))) + (_%__kont190848190849%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (or (eq? '##eq? _%$e183689%_) - (eq? 'eq? _%$e183689%_) + (if (or (eq? '##eq? _%$e183726%_) + (eq? 'eq? _%$e183726%_) (eq? '##eqv? - _%$e183689%_) - (eq? 'eqv? _%$e183689%_) + _%$e183726%_) + (eq? 'eqv? _%$e183726%_) (eq? '##equal? - _%$e183689%_) + _%$e183726%_) (eq? 'equal? - _%$e183689%_) + _%$e183726%_) (eq? 'gx#free-identifier=? - _%$e183689%_) + _%$e183726%_) (eq? 'gx#stx-eq? - _%$e183689%_)) - ((lambda (_%sym183849%_) - (let* ((_%__stx190875190876%_ - _%L183663%_) - (_%g183852183865%_ + _%$e183726%_)) + ((lambda (_%sym183886%_) + (let* ((_%__stx190912190913%_ + _%L183700%_) + (_%g183889183902%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8645,71 +8645,71 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190875190876%_))))) - (let ((_%__kont190877190878%_ - (lambda (_%L183893%_) - (_%assert-eqf181943%_ - _%L183893%_ - (_%eqf-symbol181930%_ _%sym183849%_) + _%__stx190912190913%_))))) + (let ((_%__kont190914190915%_ + (lambda (_%L183930%_) + (_%assert-eqf181980%_ + _%L183930%_ + (_%eqf-symbol181967%_ _%sym183886%_) (let () (declare (not safe)) - (gx#stx-e _%L183662%_))))) - (_%__kont190879190880%_ (lambda () '#!void))) + (gx#stx-e _%L183699%_))))) + (_%__kont190916190917%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190875190876%_)) - (let ((_%e183855183877%_ + (gx#stx-pair? _%__stx190912190913%_)) + (let ((_%e183892183914%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190875190876%_)))) - (let ((_%tl183857183882%_ + (gx#stx-e _%__stx190912190913%_)))) + (let ((_%tl183894183919%_ (let () (declare (not safe)) - (##cdr _%e183855183877%_))) - (_%hd183856183880%_ + (##cdr _%e183892183914%_))) + (_%hd183893183917%_ (let () (declare (not safe)) - (##car _%e183855183877%_)))) + (##car _%e183892183914%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183856183880%_)) + (gx#identifier? _%hd183893183917%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183856183880%_)) + (gx#stx-eq? '%#ref _%hd183893183917%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183857183882%_)) - (let ((_%e183858183885%_ + (gx#stx-pair? _%tl183894183919%_)) + (let ((_%e183895183922%_ (let () (declare (not safe)) - (gx#stx-e _%tl183857183882%_)))) - (let ((_%tl183860183890%_ + (gx#stx-e _%tl183894183919%_)))) + (let ((_%tl183897183927%_ (let () (declare (not safe)) - (##cdr _%e183858183885%_))) - (_%hd183859183888%_ + (##cdr _%e183895183922%_))) + (_%hd183896183925%_ (let () (declare (not safe)) - (##car _%e183858183885%_)))) + (##car _%e183895183922%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183860183890%_)) - (_%__kont190877190878%_ - _%hd183859183888%_) - (_%__kont190879190880%_)))) - (_%__kont190879190880%_)) - (_%__kont190879190880%_)) - (_%__kont190879190880%_)))) - (_%__kont190879190880%_))))) + _%tl183897183927%_)) + (_%__kont190914190915%_ + _%hd183896183925%_) + (_%__kont190916190917%_)))) + (_%__kont190916190917%_)) + (_%__kont190916190917%_)) + (_%__kont190916190917%_)))) + (_%__kont190916190917%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e183689%_) + _%$e183726%_) '#!void))))) - (_%__kont190907190908%_ - (lambda (_%L183566%_ - _%L183567%_ - _%L183568%_) - (_%assert182948%_ + (_%__kont190944190945%_ + (lambda (_%L183603%_ + _%L183604%_ + _%L183605%_) + (_%assert182985%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8721,44 +8721,44 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183568%_ + (cons _%L183605%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L183566%_ + (cons _%L183603%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L183567%_ '())) + (cons _%L183604%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190909190910%_ - (lambda (_%L183458%_ - _%L183459%_ - _%L183460%_) - (let ((_%$e183489%_ + (_%__kont190946190947%_ + (lambda (_%L183495%_ + _%L183496%_ + _%L183497%_) + (let ((_%$e183526%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L183460%_)))) + _%L183497%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e183489%_) + _%$e183526%_) (eq? 'gx#stx-eq? - _%$e183489%_)) - ((lambda (_%sym183495%_) - (_%assert-eqf181943%_ - _%L183459%_ - (_%eqf-symbol181930%_ - _%sym183495%_) - _%L183458%_)) - _%$e183489%_) + _%$e183526%_)) + ((lambda (_%sym183532%_) + (_%assert-eqf181980%_ + _%L183496%_ + (_%eqf-symbol181967%_ + _%sym183532%_) + _%L183495%_)) + _%$e183526%_) '#!void)))) - (_%__kont190911190912%_ - (lambda (_%L183342%_ - _%L183343%_ - _%L183344%_) - (_%assert182948%_ + (_%__kont190948190949%_ + (lambda (_%L183379%_ + _%L183380%_ + _%L183381%_) + (_%assert182985%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8770,7 +8770,7 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183344%_ + (cons _%L183381%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -8778,4368 +8778,4368 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183342%_ '())) + (cons _%L183379%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L183343%_ '())) + (cons _%L183380%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190913190914%_ - (lambda (_%L183221%_ - _%L183222%_ - _%L183223%_) - (_%assert182948%_ + (_%__kont190950190951%_ + (lambda (_%L183258%_ + _%L183259%_ + _%L183260%_) + (_%assert182985%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L183223%_ - _%L183221%_ - _%L183222%_))))) - (_%__kont190915190916%_ + _%L183260%_ + _%L183258%_ + _%L183259%_))))) + (_%__kont190952190953%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190901190902%_)) - (let ((_%e182962183914%_ + (gx#stx-pair? _%__stx190938190939%_)) + (let ((_%e182999183951%_ (let () (declare (not safe)) (gx#stx-e - _%__stx190901190902%_)))) - (let ((_%tl182964183919%_ + _%__stx190938190939%_)))) + (let ((_%tl183001183956%_ (let () (declare (not safe)) - (##cdr _%e182962183914%_))) - (_%hd182963183917%_ + (##cdr _%e182999183951%_))) + (_%hd183000183954%_ (let () (declare (not safe)) - (##car _%e182962183914%_)))) + (##car _%e182999183951%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182963183917%_)) + _%hd183000183954%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd182963183917%_)) + _%hd183000183954%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182964183919%_)) - (let ((_%e182965183922%_ + _%tl183001183956%_)) + (let ((_%e183002183959%_ (let () (declare (not safe)) (gx#stx-e - _%tl182964183919%_)))) - (let ((_%tl182967183927%_ + _%tl183001183956%_)))) + (let ((_%tl183004183964%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182965183922%_))) - (_%hd182966183925%_ - (let () (declare (not safe)) (##car _%e182965183922%_)))) + (##cdr _%e183002183959%_))) + (_%hd183003183962%_ + (let () (declare (not safe)) (##car _%e183002183959%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182966183925%_)) - (let ((_%e182968183930%_ + (gx#stx-pair? _%hd183003183962%_)) + (let ((_%e183005183967%_ (let () (declare (not safe)) - (gx#stx-e _%hd182966183925%_)))) - (let ((_%tl182970183935%_ + (gx#stx-e _%hd183003183962%_)))) + (let ((_%tl183007183972%_ (let () (declare (not safe)) - (##cdr _%e182968183930%_))) - (_%hd182969183933%_ + (##cdr _%e183005183967%_))) + (_%hd183006183970%_ (let () (declare (not safe)) - (##car _%e182968183930%_)))) + (##car _%e183005183967%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182969183933%_)) + (gx#identifier? _%hd183006183970%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182969183933%_)) + (gx#stx-eq? '%#ref _%hd183006183970%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182970183935%_)) - (let ((_%e182971183938%_ + (gx#stx-pair? _%tl183007183972%_)) + (let ((_%e183008183975%_ (let () (declare (not safe)) - (gx#stx-e _%tl182970183935%_)))) - (let ((_%tl182973183943%_ + (gx#stx-e _%tl183007183972%_)))) + (let ((_%tl183010183980%_ (let () (declare (not safe)) - (##cdr _%e182971183938%_))) - (_%hd182972183941%_ + (##cdr _%e183008183975%_))) + (_%hd183009183978%_ (let () (declare (not safe)) - (##car _%e182971183938%_)))) + (##car _%e183008183975%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182973183943%_)) + _%tl183010183980%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182967183927%_)) - (let ((_%e182974183946%_ + _%tl183004183964%_)) + (let ((_%e183011183983%_ (let () (declare (not safe)) (gx#stx-e - _%tl182967183927%_)))) - (let ((_%tl182976183951%_ + _%tl183004183964%_)))) + (let ((_%tl183013183988%_ (let () (declare (not safe)) - (##cdr _%e182974183946%_))) - (_%hd182975183949%_ + (##cdr _%e183011183983%_))) + (_%hd183012183986%_ (let () (declare (not safe)) - (##car _%e182974183946%_)))) + (##car _%e183011183983%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182975183949%_)) - (let ((_%e182977183954%_ + _%hd183012183986%_)) + (let ((_%e183014183991%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd182975183949%_)))) - (let ((_%tl182979183959%_ + (gx#stx-e _%hd183012183986%_)))) + (let ((_%tl183016183996%_ (let () (declare (not safe)) - (##cdr _%e182977183954%_))) - (_%hd182978183957%_ + (##cdr _%e183014183991%_))) + (_%hd183015183994%_ (let () (declare (not safe)) - (##car _%e182977183954%_)))) + (##car _%e183014183991%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182978183957%_)) + (gx#identifier? _%hd183015183994%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182978183957%_)) + (gx#stx-eq? '%#ref _%hd183015183994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182979183959%_)) - (let ((_%e182980183962%_ + (gx#stx-pair? _%tl183016183996%_)) + (let ((_%e183017183999%_ (let () (declare (not safe)) - (gx#stx-e _%tl182979183959%_)))) - (let ((_%tl182982183967%_ + (gx#stx-e _%tl183016183996%_)))) + (let ((_%tl183019184004%_ (let () (declare (not safe)) - (##cdr _%e182980183962%_))) - (_%hd182981183965%_ + (##cdr _%e183017183999%_))) + (_%hd183018184002%_ (let () (declare (not safe)) - (##car _%e182980183962%_)))) + (##car _%e183017183999%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182982183967%_)) + (gx#stx-null? _%tl183019184004%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182976183951%_)) - (_%__kont190903190904%_ - _%hd182981183965%_ - _%hd182972183941%_) + _%tl183013183988%_)) + (_%__kont190940190941%_ + _%hd183018184002%_ + _%hd183009183978%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182976183951%_)) - (let ((_%e183001183638%_ + _%tl183013183988%_)) + (let ((_%e183038183675%_ (let () (declare (not safe)) (gx#stx-e - _%tl182976183951%_)))) - (let ((_%tl183003183643%_ + _%tl183013183988%_)))) + (let ((_%tl183040183680%_ (let () (declare (not safe)) - (##cdr _%e183001183638%_))) - (_%hd183002183641%_ + (##cdr _%e183038183675%_))) + (_%hd183039183678%_ (let () (declare (not safe)) - (##car _%e183001183638%_)))) + (##car _%e183038183675%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183002183641%_)) - (let ((_%e183004183646%_ + _%hd183039183678%_)) + (let ((_%e183041183683%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd183002183641%_)))) - (let ((_%tl183006183651%_ + (gx#stx-e _%hd183039183678%_)))) + (let ((_%tl183043183688%_ (let () (declare (not safe)) - (##cdr _%e183004183646%_))) - (_%hd183005183649%_ + (##cdr _%e183041183683%_))) + (_%hd183042183686%_ (let () (declare (not safe)) - (##car _%e183004183646%_)))) + (##car _%e183041183683%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183005183649%_)) + (gx#identifier? _%hd183042183686%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183005183649%_)) + (gx#stx-eq? '%#quote _%hd183042183686%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183006183651%_)) - (let ((_%e183007183654%_ + (gx#stx-pair? _%tl183043183688%_)) + (let ((_%e183044183691%_ (let () (declare (not safe)) - (gx#stx-e _%tl183006183651%_)))) - (let ((_%tl183009183659%_ + (gx#stx-e _%tl183043183688%_)))) + (let ((_%tl183046183696%_ (let () (declare (not safe)) - (##cdr _%e183007183654%_))) - (_%hd183008183657%_ + (##cdr _%e183044183691%_))) + (_%hd183045183694%_ (let () (declare (not safe)) - (##car _%e183007183654%_)))) + (##car _%e183044183691%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183009183659%_)) + (gx#stx-null? _%tl183046183696%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183003183643%_)) - (_%__kont190905190906%_ - _%hd183008183657%_ - _%hd182975183949%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) + _%tl183040183680%_)) + (_%__kont190942190943%_ + _%hd183045183694%_ + _%hd183012183986%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183005183649%_)) + _%hd183042183686%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183006183651%_)) - (let ((_%e183067183450%_ + (gx#stx-pair? _%tl183043183688%_)) + (let ((_%e183104183487%_ (let () (declare (not safe)) - (gx#stx-e _%tl183006183651%_)))) - (let ((_%tl183069183455%_ + (gx#stx-e _%tl183043183688%_)))) + (let ((_%tl183106183492%_ (let () (declare (not safe)) - (##cdr _%e183067183450%_))) - (_%hd183068183453%_ + (##cdr _%e183104183487%_))) + (_%hd183105183490%_ (let () (declare (not safe)) - (##car _%e183067183450%_)))) + (##car _%e183104183487%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183069183455%_)) + _%tl183106183492%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183003183643%_)) - (_%__kont190909190910%_ - _%hd183068183453%_ - _%hd182981183965%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_))) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)))) + _%tl183040183680%_)) + (_%__kont190946190947%_ + _%hd183105183490%_ + _%hd183018184002%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_))) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190915190916%_))) + (_%__kont190952190953%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182976183951%_)) - (let ((_%e183001183638%_ + _%tl183013183988%_)) + (let ((_%e183038183675%_ (let () (declare (not safe)) (gx#stx-e - _%tl182976183951%_)))) - (let ((_%tl183003183643%_ + _%tl183013183988%_)))) + (let ((_%tl183040183680%_ (let () (declare (not safe)) - (##cdr _%e183001183638%_))) - (_%hd183002183641%_ + (##cdr _%e183038183675%_))) + (_%hd183039183678%_ (let () (declare (not safe)) - (##car _%e183001183638%_)))) + (##car _%e183038183675%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183002183641%_)) - (let ((_%e183004183646%_ + _%hd183039183678%_)) + (let ((_%e183041183683%_ (let () (declare (not safe)) (gx#stx-e - _%hd183002183641%_)))) - (let ((_%tl183006183651%_ + _%hd183039183678%_)))) + (let ((_%tl183043183688%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e183004183646%_))) - (_%hd183005183649%_ - (let () (declare (not safe)) (##car _%e183004183646%_)))) + (##cdr _%e183041183683%_))) + (_%hd183042183686%_ + (let () (declare (not safe)) (##car _%e183041183683%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183005183649%_)) + (gx#identifier? _%hd183042183686%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183005183649%_)) + (gx#stx-eq? '%#quote _%hd183042183686%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183006183651%_)) - (let ((_%e183007183654%_ + (gx#stx-pair? _%tl183043183688%_)) + (let ((_%e183044183691%_ (let () (declare (not safe)) - (gx#stx-e _%tl183006183651%_)))) - (let ((_%tl183009183659%_ + (gx#stx-e _%tl183043183688%_)))) + (let ((_%tl183046183696%_ (let () (declare (not safe)) - (##cdr _%e183007183654%_))) - (_%hd183008183657%_ + (##cdr _%e183044183691%_))) + (_%hd183045183694%_ (let () (declare (not safe)) - (##car _%e183007183654%_)))) + (##car _%e183044183691%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183009183659%_)) + (gx#stx-null? _%tl183046183696%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183003183643%_)) - (_%__kont190905190906%_ - _%hd183008183657%_ - _%hd182975183949%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) + (gx#stx-null? _%tl183040183680%_)) + (_%__kont190942190943%_ + _%hd183045183694%_ + _%hd183012183986%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190915190916%_)))) - (_%__kont190915190916%_))))) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182976183951%_)) - (let ((_%e183001183638%_ + (gx#stx-pair? _%tl183013183988%_)) + (let ((_%e183038183675%_ (let () (declare (not safe)) - (gx#stx-e _%tl182976183951%_)))) - (let ((_%tl183003183643%_ + (gx#stx-e _%tl183013183988%_)))) + (let ((_%tl183040183680%_ (let () (declare (not safe)) - (##cdr _%e183001183638%_))) - (_%hd183002183641%_ + (##cdr _%e183038183675%_))) + (_%hd183039183678%_ (let () (declare (not safe)) - (##car _%e183001183638%_)))) + (##car _%e183038183675%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183002183641%_)) - (let ((_%e183004183646%_ + _%hd183039183678%_)) + (let ((_%e183041183683%_ (let () (declare (not safe)) (gx#stx-e - _%hd183002183641%_)))) - (let ((_%tl183006183651%_ + _%hd183039183678%_)))) + (let ((_%tl183043183688%_ (let () (declare (not safe)) - (##cdr _%e183004183646%_))) - (_%hd183005183649%_ + (##cdr _%e183041183683%_))) + (_%hd183042183686%_ (let () (declare (not safe)) - (##car _%e183004183646%_)))) + (##car _%e183041183683%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183005183649%_)) + _%hd183042183686%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183005183649%_)) + _%hd183042183686%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl183006183651%_)) - (let ((_%e183007183654%_ + (gx#stx-pair? _%tl183043183688%_)) + (let ((_%e183044183691%_ (let () (declare (not safe)) - (gx#stx-e _%tl183006183651%_)))) - (let ((_%tl183009183659%_ + (gx#stx-e _%tl183043183688%_)))) + (let ((_%tl183046183696%_ (let () (declare (not safe)) - (##cdr _%e183007183654%_))) - (_%hd183008183657%_ + (##cdr _%e183044183691%_))) + (_%hd183045183694%_ (let () (declare (not safe)) - (##car _%e183007183654%_)))) + (##car _%e183044183691%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183009183659%_)) + (gx#stx-null? _%tl183046183696%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183003183643%_)) - (_%__kont190905190906%_ - _%hd183008183657%_ - _%hd182975183949%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)) + (gx#stx-null? _%tl183040183680%_)) + (_%__kont190942190943%_ + _%hd183045183694%_ + _%hd183012183986%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_))) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182976183951%_)) - (let ((_%e183001183638%_ + (gx#stx-pair? _%tl183013183988%_)) + (let ((_%e183038183675%_ (let () (declare (not safe)) - (gx#stx-e _%tl182976183951%_)))) - (let ((_%tl183003183643%_ + (gx#stx-e _%tl183013183988%_)))) + (let ((_%tl183040183680%_ (let () (declare (not safe)) - (##cdr _%e183001183638%_))) - (_%hd183002183641%_ + (##cdr _%e183038183675%_))) + (_%hd183039183678%_ (let () (declare (not safe)) - (##car _%e183001183638%_)))) + (##car _%e183038183675%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183002183641%_)) - (let ((_%e183004183646%_ + (gx#stx-pair? _%hd183039183678%_)) + (let ((_%e183041183683%_ (let () (declare (not safe)) (gx#stx-e - _%hd183002183641%_)))) - (let ((_%tl183006183651%_ + _%hd183039183678%_)))) + (let ((_%tl183043183688%_ (let () (declare (not safe)) - (##cdr _%e183004183646%_))) - (_%hd183005183649%_ + (##cdr _%e183041183683%_))) + (_%hd183042183686%_ (let () (declare (not safe)) - (##car _%e183004183646%_)))) + (##car _%e183041183683%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183005183649%_)) + _%hd183042183686%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183005183649%_)) + _%hd183042183686%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183006183651%_)) - (let ((_%e183007183654%_ + _%tl183043183688%_)) + (let ((_%e183044183691%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183006183651%_)))) - (let ((_%tl183009183659%_ + (gx#stx-e _%tl183043183688%_)))) + (let ((_%tl183046183696%_ (let () (declare (not safe)) - (##cdr _%e183007183654%_))) - (_%hd183008183657%_ + (##cdr _%e183044183691%_))) + (_%hd183045183694%_ (let () (declare (not safe)) - (##car _%e183007183654%_)))) + (##car _%e183044183691%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183009183659%_)) + (gx#stx-null? _%tl183046183696%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183003183643%_)) - (_%__kont190905190906%_ - _%hd183008183657%_ - _%hd182975183949%_ - _%hd182972183941%_) + (gx#stx-null? _%tl183040183680%_)) + (_%__kont190942190943%_ + _%hd183045183694%_ + _%hd183012183986%_ + _%hd183009183978%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182978183957%_)) + (gx#stx-eq? '%#quote _%hd183015183994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182979183959%_)) - (let ((_%e183031183550%_ + (gx#stx-pair? _%tl183016183996%_)) + (let ((_%e183068183587%_ (let () (declare (not safe)) - (gx#stx-e _%tl182979183959%_)))) - (let ((_%tl183033183555%_ + (gx#stx-e _%tl183016183996%_)))) + (let ((_%tl183070183592%_ (let () (declare (not safe)) - (##cdr _%e183031183550%_))) - (_%hd183032183553%_ + (##cdr _%e183068183587%_))) + (_%hd183069183590%_ (let () (declare (not safe)) - (##car _%e183031183550%_)))) - (_%__kont190915190916%_))) - (_%__kont190915190916%_)) + (##car _%e183068183587%_)))) + (_%__kont190952190953%_))) + (_%__kont190952190953%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182978183957%_)) + _%hd183015183994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182979183959%_)) - (let ((_%e183091183310%_ + (gx#stx-pair? _%tl183016183996%_)) + (let ((_%e183128183347%_ (let () (declare (not safe)) (gx#stx-e - _%tl182979183959%_)))) - (let ((_%tl183093183315%_ + _%tl183016183996%_)))) + (let ((_%tl183130183352%_ (let () (declare (not safe)) - (##cdr _%e183091183310%_))) - (_%hd183092183313%_ + (##cdr _%e183128183347%_))) + (_%hd183129183350%_ (let () (declare (not safe)) - (##car _%e183091183310%_)))) - (_%__kont190915190916%_))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) + (##car _%e183128183347%_)))) + (_%__kont190952190953%_))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182978183957%_)) + (gx#stx-eq? '%#quote _%hd183015183994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182979183959%_)) - (let ((_%e183031183550%_ + (gx#stx-pair? _%tl183016183996%_)) + (let ((_%e183068183587%_ (let () (declare (not safe)) - (gx#stx-e _%tl182979183959%_)))) - (let ((_%tl183033183555%_ + (gx#stx-e _%tl183016183996%_)))) + (let ((_%tl183070183592%_ (let () (declare (not safe)) - (##cdr _%e183031183550%_))) - (_%hd183032183553%_ + (##cdr _%e183068183587%_))) + (_%hd183069183590%_ (let () (declare (not safe)) - (##car _%e183031183550%_)))) + (##car _%e183068183587%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183033183555%_)) + (gx#stx-null? _%tl183070183592%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183003183643%_)) - (_%__kont190907190908%_ - _%hd183002183641%_ - _%hd183032183553%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) + _%tl183040183680%_)) + (_%__kont190944190945%_ + _%hd183039183678%_ + _%hd183069183590%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182978183957%_)) + _%hd183015183994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182979183959%_)) - (let ((_%e183091183310%_ + (gx#stx-pair? _%tl183016183996%_)) + (let ((_%e183128183347%_ (let () (declare (not safe)) - (gx#stx-e _%tl182979183959%_)))) - (let ((_%tl183093183315%_ + (gx#stx-e _%tl183016183996%_)))) + (let ((_%tl183130183352%_ (let () (declare (not safe)) - (##cdr _%e183091183310%_))) - (_%hd183092183313%_ + (##cdr _%e183128183347%_))) + (_%hd183129183350%_ (let () (declare (not safe)) - (##car _%e183091183310%_)))) - (_%__kont190915190916%_))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))))) + (##car _%e183128183347%_)))) + (_%__kont190952190953%_))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd182978183957%_)) + (gx#stx-eq? '%#quote _%hd183015183994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182979183959%_)) - (let ((_%e183031183550%_ + (gx#stx-pair? _%tl183016183996%_)) + (let ((_%e183068183587%_ (let () (declare (not safe)) - (gx#stx-e _%tl182979183959%_)))) - (let ((_%tl183033183555%_ + (gx#stx-e _%tl183016183996%_)))) + (let ((_%tl183070183592%_ (let () (declare (not safe)) - (##cdr _%e183031183550%_))) - (_%hd183032183553%_ + (##cdr _%e183068183587%_))) + (_%hd183069183590%_ (let () (declare (not safe)) - (##car _%e183031183550%_)))) + (##car _%e183068183587%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183033183555%_)) + (gx#stx-null? _%tl183070183592%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183003183643%_)) - (_%__kont190907190908%_ - _%hd183002183641%_ - _%hd183032183553%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) + (gx#stx-null? _%tl183040183680%_)) + (_%__kont190944190945%_ + _%hd183039183678%_ + _%hd183069183590%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd182978183957%_)) + (gx#stx-eq? '%#quote-syntax _%hd183015183994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182979183959%_)) - (let ((_%e183091183310%_ + (gx#stx-pair? _%tl183016183996%_)) + (let ((_%e183128183347%_ (let () (declare (not safe)) - (gx#stx-e _%tl182979183959%_)))) - (let ((_%tl183093183315%_ + (gx#stx-e _%tl183016183996%_)))) + (let ((_%tl183130183352%_ (let () (declare (not safe)) - (##cdr _%e183091183310%_))) - (_%hd183092183313%_ + (##cdr _%e183128183347%_))) + (_%hd183129183350%_ (let () (declare (not safe)) - (##car _%e183091183310%_)))) - (_%__kont190915190916%_))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) + (##car _%e183128183347%_)))) + (_%__kont190952190953%_))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182978183957%_)) + _%hd183015183994%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182979183959%_)) - (let ((_%e183031183550%_ + (gx#stx-pair? _%tl183016183996%_)) + (let ((_%e183068183587%_ (let () (declare (not safe)) - (gx#stx-e _%tl182979183959%_)))) - (let ((_%tl183033183555%_ + (gx#stx-e _%tl183016183996%_)))) + (let ((_%tl183070183592%_ (let () (declare (not safe)) - (##cdr _%e183031183550%_))) - (_%hd183032183553%_ + (##cdr _%e183068183587%_))) + (_%hd183069183590%_ (let () (declare (not safe)) - (##car _%e183031183550%_)))) + (##car _%e183068183587%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183033183555%_)) + (gx#stx-null? _%tl183070183592%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183003183643%_)) - (_%__kont190907190908%_ - _%hd183002183641%_ - _%hd183032183553%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) + (gx#stx-null? _%tl183040183680%_)) + (_%__kont190944190945%_ + _%hd183039183678%_ + _%hd183069183590%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd182978183957%_)) + (gx#stx-eq? '%#quote-syntax _%hd183015183994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182979183959%_)) - (let ((_%e183091183310%_ + (gx#stx-pair? _%tl183016183996%_)) + (let ((_%e183128183347%_ (let () (declare (not safe)) - (gx#stx-e _%tl182979183959%_)))) - (let ((_%tl183093183315%_ + (gx#stx-e _%tl183016183996%_)))) + (let ((_%tl183130183352%_ (let () (declare (not safe)) - (##cdr _%e183091183310%_))) - (_%hd183092183313%_ + (##cdr _%e183128183347%_))) + (_%hd183129183350%_ (let () (declare (not safe)) - (##car _%e183091183310%_)))) + (##car _%e183128183347%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183093183315%_)) + (gx#stx-null? _%tl183130183352%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183005183649%_)) + (gx#stx-eq? '%#ref _%hd183042183686%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183006183651%_)) - (let ((_%e183100183334%_ + (gx#stx-pair? _%tl183043183688%_)) + (let ((_%e183137183371%_ (let () (declare (not safe)) (gx#stx-e - _%tl183006183651%_)))) - (let ((_%tl183102183339%_ + _%tl183043183688%_)))) + (let ((_%tl183139183376%_ (let () (declare (not safe)) - (##cdr _%e183100183334%_))) - (_%hd183101183337%_ + (##cdr _%e183137183371%_))) + (_%hd183138183374%_ (let () (declare (not safe)) - (##car _%e183100183334%_)))) + (##car _%e183137183371%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183102183339%_)) + _%tl183139183376%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183003183643%_)) - (_%__kont190911190912%_ - _%hd183101183337%_ - _%hd183092183313%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) + _%tl183040183680%_)) + (_%__kont190948190949%_ + _%hd183138183374%_ + _%hd183129183350%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182978183957%_)) + _%hd183015183994%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182979183959%_)) - (let ((_%e183031183550%_ + _%tl183016183996%_)) + (let ((_%e183068183587%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl182979183959%_)))) - (let ((_%tl183033183555%_ + (gx#stx-e _%tl183016183996%_)))) + (let ((_%tl183070183592%_ (let () (declare (not safe)) - (##cdr _%e183031183550%_))) - (_%hd183032183553%_ + (##cdr _%e183068183587%_))) + (_%hd183069183590%_ (let () (declare (not safe)) - (##car _%e183031183550%_)))) + (##car _%e183068183587%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183033183555%_)) + (gx#stx-null? _%tl183070183592%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183003183643%_)) - (_%__kont190907190908%_ - _%hd183002183641%_ - _%hd183032183553%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) + (gx#stx-null? _%tl183040183680%_)) + (_%__kont190944190945%_ + _%hd183039183678%_ + _%hd183069183590%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182978183957%_)) + _%hd183015183994%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl182979183959%_)) - (let ((_%e183091183310%_ + (gx#stx-pair? _%tl183016183996%_)) + (let ((_%e183128183347%_ (let () (declare (not safe)) - (gx#stx-e _%tl182979183959%_)))) - (let ((_%tl183093183315%_ + (gx#stx-e _%tl183016183996%_)))) + (let ((_%tl183130183352%_ (let () (declare (not safe)) - (##cdr _%e183091183310%_))) - (_%hd183092183313%_ + (##cdr _%e183128183347%_))) + (_%hd183129183350%_ (let () (declare (not safe)) - (##car _%e183091183310%_)))) - (_%__kont190915190916%_))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))))) + (##car _%e183128183347%_)))) + (_%__kont190952190953%_))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182978183957%_)) + _%hd183015183994%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182979183959%_)) - (let ((_%e183031183550%_ + _%tl183016183996%_)) + (let ((_%e183068183587%_ (let () (declare (not safe)) (gx#stx-e - _%tl182979183959%_)))) - (let ((_%tl183033183555%_ + _%tl183016183996%_)))) + (let ((_%tl183070183592%_ (let () (declare (not safe)) - (##cdr _%e183031183550%_))) - (_%hd183032183553%_ + (##cdr _%e183068183587%_))) + (_%hd183069183590%_ (let () (declare (not safe)) - (##car _%e183031183550%_)))) + (##car _%e183068183587%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183033183555%_)) + _%tl183070183592%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl183003183643%_)) - (_%__kont190907190908%_ - _%hd183002183641%_ - _%hd183032183553%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) + (gx#stx-null? _%tl183040183680%_)) + (_%__kont190944190945%_ + _%hd183039183678%_ + _%hd183069183590%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190915190916%_)) + (_%__kont190952190953%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182978183957%_)) + _%hd183015183994%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182979183959%_)) - (let ((_%e183091183310%_ + _%tl183016183996%_)) + (let ((_%e183128183347%_ (let () (declare (not safe)) (gx#stx-e - _%tl182979183959%_)))) - (let ((_%tl183093183315%_ + _%tl183016183996%_)))) + (let ((_%tl183130183352%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e183091183310%_))) - (_%hd183092183313%_ - (let () (declare (not safe)) (##car _%e183091183310%_)))) - (_%__kont190915190916%_))) + (##cdr _%e183128183347%_))) + (_%hd183129183350%_ + (let () (declare (not safe)) (##car _%e183128183347%_)))) + (_%__kont190952190953%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd182978183957%_)) + _%hd183015183994%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182979183959%_)) - (let ((_%e183031183550%_ + (gx#stx-pair? _%tl183016183996%_)) + (let ((_%e183068183587%_ (let () (declare (not safe)) (gx#stx-e - _%tl182979183959%_)))) - (let ((_%tl183033183555%_ + _%tl183016183996%_)))) + (let ((_%tl183070183592%_ (let () (declare (not safe)) - (##cdr _%e183031183550%_))) - (_%hd183032183553%_ + (##cdr _%e183068183587%_))) + (_%hd183069183590%_ (let () (declare (not safe)) - (##car _%e183031183550%_)))) - (_%__kont190915190916%_))) - (_%__kont190915190916%_)) + (##car _%e183068183587%_)))) + (_%__kont190952190953%_))) + (_%__kont190952190953%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd182978183957%_)) + _%hd183015183994%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182979183959%_)) - (let ((_%e183091183310%_ + _%tl183016183996%_)) + (let ((_%e183128183347%_ (let () (declare (not safe)) (gx#stx-e - _%tl182979183959%_)))) - (let ((_%tl183093183315%_ + _%tl183016183996%_)))) + (let ((_%tl183130183352%_ (let () (declare (not safe)) - (##cdr _%e183091183310%_))) - (_%hd183092183313%_ + (##cdr _%e183128183347%_))) + (_%hd183129183350%_ (let () (declare (not safe)) - (##car _%e183091183310%_)))) - (_%__kont190915190916%_))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_))))) + (##car _%e183128183347%_)))) + (_%__kont190952190953%_))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182976183951%_)) - (let ((_%e183001183638%_ + (gx#stx-pair? _%tl183013183988%_)) + (let ((_%e183038183675%_ (let () (declare (not safe)) - (gx#stx-e _%tl182976183951%_)))) - (let ((_%tl183003183643%_ + (gx#stx-e _%tl183013183988%_)))) + (let ((_%tl183040183680%_ (let () (declare (not safe)) - (##cdr _%e183001183638%_))) - (_%hd183002183641%_ + (##cdr _%e183038183675%_))) + (_%hd183039183678%_ (let () (declare (not safe)) - (##car _%e183001183638%_)))) + (##car _%e183038183675%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183002183641%_)) - (let ((_%e183004183646%_ + (gx#stx-pair? _%hd183039183678%_)) + (let ((_%e183041183683%_ (let () (declare (not safe)) - (gx#stx-e _%hd183002183641%_)))) - (let ((_%tl183006183651%_ + (gx#stx-e _%hd183039183678%_)))) + (let ((_%tl183043183688%_ (let () (declare (not safe)) - (##cdr _%e183004183646%_))) - (_%hd183005183649%_ + (##cdr _%e183041183683%_))) + (_%hd183042183686%_ (let () (declare (not safe)) - (##car _%e183004183646%_)))) + (##car _%e183041183683%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183005183649%_)) + _%hd183042183686%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183005183649%_)) + _%hd183042183686%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183006183651%_)) - (let ((_%e183007183654%_ + _%tl183043183688%_)) + (let ((_%e183044183691%_ (let () (declare (not safe)) (gx#stx-e - _%tl183006183651%_)))) - (let ((_%tl183009183659%_ + _%tl183043183688%_)))) + (let ((_%tl183046183696%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e183007183654%_))) - (_%hd183008183657%_ - (let () (declare (not safe)) (##car _%e183007183654%_)))) + (##cdr _%e183044183691%_))) + (_%hd183045183694%_ + (let () (declare (not safe)) (##car _%e183044183691%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183009183659%_)) + (gx#stx-null? _%tl183046183696%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183003183643%_)) - (_%__kont190905190906%_ - _%hd183008183657%_ - _%hd182975183949%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) + (gx#stx-null? _%tl183040183680%_)) + (_%__kont190942190943%_ + _%hd183045183694%_ + _%hd183012183986%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190915190916%_)) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_))))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182976183951%_)) - (let ((_%e183001183638%_ + (gx#stx-pair? _%tl183013183988%_)) + (let ((_%e183038183675%_ (let () (declare (not safe)) - (gx#stx-e _%tl182976183951%_)))) - (let ((_%tl183003183643%_ + (gx#stx-e _%tl183013183988%_)))) + (let ((_%tl183040183680%_ (let () (declare (not safe)) - (##cdr _%e183001183638%_))) - (_%hd183002183641%_ + (##cdr _%e183038183675%_))) + (_%hd183039183678%_ (let () (declare (not safe)) - (##car _%e183001183638%_)))) + (##car _%e183038183675%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183002183641%_)) - (let ((_%e183004183646%_ + (gx#stx-pair? _%hd183039183678%_)) + (let ((_%e183041183683%_ (let () (declare (not safe)) - (gx#stx-e _%hd183002183641%_)))) - (let ((_%tl183006183651%_ + (gx#stx-e _%hd183039183678%_)))) + (let ((_%tl183043183688%_ (let () (declare (not safe)) - (##cdr _%e183004183646%_))) - (_%hd183005183649%_ + (##cdr _%e183041183683%_))) + (_%hd183042183686%_ (let () (declare (not safe)) - (##car _%e183004183646%_)))) + (##car _%e183041183683%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183005183649%_)) + (gx#identifier? _%hd183042183686%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183005183649%_)) + _%hd183042183686%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183006183651%_)) - (let ((_%e183007183654%_ + _%tl183043183688%_)) + (let ((_%e183044183691%_ (let () (declare (not safe)) (gx#stx-e - _%tl183006183651%_)))) - (let ((_%tl183009183659%_ + _%tl183043183688%_)))) + (let ((_%tl183046183696%_ (let () (declare (not safe)) - (##cdr _%e183007183654%_))) - (_%hd183008183657%_ + (##cdr _%e183044183691%_))) + (_%hd183045183694%_ (let () (declare (not safe)) - (##car _%e183007183654%_)))) + (##car _%e183044183691%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183009183659%_)) + _%tl183046183696%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183003183643%_)) - (_%__kont190905190906%_ - _%hd183008183657%_ - _%hd182975183949%_ - _%hd182972183941%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_))))) + _%tl183040183680%_)) + (_%__kont190942190943%_ + _%hd183045183694%_ + _%hd183012183986%_ + _%hd183009183978%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182969183933%_)) + _%hd183006183970%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182970183935%_)) - (let ((_%e183115183173%_ + (gx#stx-pair? _%tl183007183972%_)) + (let ((_%e183152183210%_ (let () (declare (not safe)) (gx#stx-e - _%tl182970183935%_)))) - (let ((_%tl183117183178%_ + _%tl183007183972%_)))) + (let ((_%tl183154183215%_ (let () (declare (not safe)) - (##cdr _%e183115183173%_))) - (_%hd183116183176%_ + (##cdr _%e183152183210%_))) + (_%hd183153183213%_ (let () (declare (not safe)) - (##car _%e183115183173%_)))) + (##car _%e183152183210%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183116183176%_)) - (let ((_%e183118183181%_ + _%hd183153183213%_)) + (let ((_%e183155183218%_ (let () (declare (not safe)) (gx#stx-e - _%hd183116183176%_)))) - (let ((_%tl183120183186%_ + _%hd183153183213%_)))) + (let ((_%tl183157183223%_ (let () (declare (not safe)) - (##cdr _%e183118183181%_))) - (_%hd183119183184%_ + (##cdr _%e183155183218%_))) + (_%hd183156183221%_ (let () (declare (not safe)) - (##car _%e183118183181%_)))) + (##car _%e183155183218%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183120183186%_)) + _%tl183157183223%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl183117183178%_)) - (let ((_%e183121183189%_ + (gx#stx-pair? _%tl183154183215%_)) + (let ((_%e183158183226%_ (let () (declare (not safe)) - (gx#stx-e _%tl183117183178%_)))) - (let ((_%tl183123183194%_ + (gx#stx-e _%tl183154183215%_)))) + (let ((_%tl183160183231%_ (let () (declare (not safe)) - (##cdr _%e183121183189%_))) - (_%hd183122183192%_ + (##cdr _%e183158183226%_))) + (_%hd183159183229%_ (let () (declare (not safe)) - (##car _%e183121183189%_)))) + (##car _%e183158183226%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183123183194%_)) + (gx#stx-null? _%tl183160183231%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182967183927%_)) - (let ((_%e183124183197%_ + (gx#stx-pair? _%tl183004183964%_)) + (let ((_%e183161183234%_ (let () (declare (not safe)) - (gx#stx-e _%tl182967183927%_)))) - (let ((_%tl183126183202%_ + (gx#stx-e _%tl183004183964%_)))) + (let ((_%tl183163183239%_ (let () (declare (not safe)) - (##cdr _%e183124183197%_))) - (_%hd183125183200%_ + (##cdr _%e183161183234%_))) + (_%hd183162183237%_ (let () (declare (not safe)) - (##car _%e183124183197%_)))) + (##car _%e183161183234%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183125183200%_)) - (let ((_%e183127183205%_ + (gx#stx-pair? _%hd183162183237%_)) + (let ((_%e183164183242%_ (let () (declare (not safe)) (gx#stx-e - _%hd183125183200%_)))) - (let ((_%tl183129183210%_ + _%hd183162183237%_)))) + (let ((_%tl183166183247%_ (let () (declare (not safe)) - (##cdr _%e183127183205%_))) - (_%hd183128183208%_ + (##cdr _%e183164183242%_))) + (_%hd183165183245%_ (let () (declare (not safe)) - (##car _%e183127183205%_)))) + (##car _%e183164183242%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183128183208%_)) + _%hd183165183245%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183128183208%_)) + _%hd183165183245%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183129183210%_)) - (let ((_%e183130183213%_ + _%tl183166183247%_)) + (let ((_%e183167183250%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183129183210%_)))) - (let ((_%tl183132183218%_ + (gx#stx-e _%tl183166183247%_)))) + (let ((_%tl183169183255%_ (let () (declare (not safe)) - (##cdr _%e183130183213%_))) - (_%hd183131183216%_ + (##cdr _%e183167183250%_))) + (_%hd183168183253%_ (let () (declare (not safe)) - (##car _%e183130183213%_)))) + (##car _%e183167183250%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183132183218%_)) + (gx#stx-null? _%tl183169183255%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183126183202%_)) - (_%__kont190913190914%_ - _%hd183131183216%_ - _%hd183122183192%_ - _%hd183119183184%_) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) + (gx#stx-null? _%tl183163183239%_)) + (_%__kont190950190951%_ + _%hd183168183253%_ + _%hd183159183229%_ + _%hd183156183221%_) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)) - (_%__kont190915190916%_))) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_)))) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)) + (_%__kont190952190953%_))) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190915190916%_)) - (_%__kont190915190916%_)) - (_%__kont190915190916%_)))) - (_%__kont190915190916%_))))))))) - (_%assert-type181941%_ - (lambda (_%id182847%_ _%t182848%_) - (let _%lp182850%_ ((_%rest182852%_ _%env-type181923%_)) - (let* ((_%rest182853182861%_ _%rest182852%_) - (_%else182855182869%_ (lambda () '#!void)) - (_%K182857182928%_ - (lambda (_%rest182872%_ _%type-info182873%_) - (let* ((_%type-info182874182886%_ - _%type-info182873%_) - (_%else182876182894%_ + (_%__kont190952190953%_)) + (_%__kont190952190953%_)) + (_%__kont190952190953%_)))) + (_%__kont190952190953%_))))))))) + (_%assert-type181978%_ + (lambda (_%id182884%_ _%t182885%_) + (let _%lp182887%_ ((_%rest182889%_ _%env-type181960%_)) + (let* ((_%rest182890182898%_ _%rest182889%_) + (_%else182892182906%_ (lambda () '#!void)) + (_%K182894182965%_ + (lambda (_%rest182909%_ _%type-info182910%_) + (let* ((_%type-info182911182923%_ + _%type-info182910%_) + (_%else182913182931%_ (lambda () - (_%lp182850%_ _%rest182872%_))) - (_%K182878182904%_ - (lambda (_%val182897%_ - _%xt182898%_ - _%xid182899%_) + (_%lp182887%_ _%rest182909%_))) + (_%K182915182941%_ + (lambda (_%val182934%_ + _%xt182935%_ + _%xid182936%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%id182847%_ - _%xid182899%_)) - (if (eq? _%t182848%_ - _%xt182898%_) - _%val182897%_ - (if _%val182897%_ + _%id182884%_ + _%xid182936%_)) + (if (eq? _%t182885%_ + _%xt182935%_) + _%val182934%_ + (if _%val182934%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%t182848%_ + _%t182885%_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure-instance-of? - _%xt182898%_ + _%xt182935%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t182848%_ _%xt182898%_)) + (gxc#!class-subclass? _%t182885%_ _%xt182935%_)) '#f) '#f) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%t182848%_ + _%t182885%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%xt182898%_ + _%xt182935%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t182848%_ _%xt182898%_))) + (gxc#!class-subclass? _%t182885%_ _%xt182935%_))) '#f - (_%lp182850%_ _%rest182872%_)))) + (_%lp182887%_ _%rest182909%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp182850%_ - _%rest182872%_))))) - (if (pair? _%type-info182874182886%_) - (let ((_%hd182879182907%_ + (_%lp182887%_ + _%rest182909%_))))) + (if (pair? _%type-info182911182923%_) + (let ((_%hd182916182944%_ (let () (declare (not safe)) - (##car _%type-info182874182886%_))) - (_%tl182880182909%_ + (##car _%type-info182911182923%_))) + (_%tl182917182946%_ (let () (declare (not safe)) - (##cdr _%type-info182874182886%_)))) - (let ((_%xid182912%_ - _%hd182879182907%_)) - (if (pair? _%tl182880182909%_) - (let ((_%hd182881182914%_ + (##cdr _%type-info182911182923%_)))) + (let ((_%xid182949%_ + _%hd182916182944%_)) + (if (pair? _%tl182917182946%_) + (let ((_%hd182918182951%_ (let () (declare (not safe)) - (##car _%tl182880182909%_))) - (_%tl182882182916%_ + (##car _%tl182917182946%_))) + (_%tl182919182953%_ (let () (declare (not safe)) - (##cdr _%tl182880182909%_)))) - (let ((_%xt182919%_ - _%hd182881182914%_)) - (if (pair? _%tl182882182916%_) - (let ((_%hd182883182921%_ + (##cdr _%tl182917182946%_)))) + (let ((_%xt182956%_ + _%hd182918182951%_)) + (if (pair? _%tl182919182953%_) + (let ((_%hd182920182958%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl182882182916%_))) - (_%tl182884182923%_ + (##car _%tl182919182953%_))) + (_%tl182921182960%_ (let () (declare (not safe)) - (##cdr _%tl182882182916%_)))) - (let ((_%val182926%_ _%hd182883182921%_)) - (if (null? _%tl182884182923%_) - (_%K182878182904%_ - _%val182926%_ - _%xt182919%_ - _%xid182912%_) - (_%else182876182894%_)))) - (_%else182876182894%_)))) + (##cdr _%tl182919182953%_)))) + (let ((_%val182963%_ _%hd182920182958%_)) + (if (null? _%tl182921182960%_) + (_%K182915182941%_ + _%val182963%_ + _%xt182956%_ + _%xid182949%_) + (_%else182913182931%_)))) + (_%else182913182931%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182876182894%_)))) - (_%else182876182894%_)))))) - (if (pair? _%rest182853182861%_) - (let ((_%hd182858182931%_ + (_%else182913182931%_)))) + (_%else182913182931%_)))))) + (if (pair? _%rest182890182898%_) + (let ((_%hd182895182968%_ (let () (declare (not safe)) - (##car _%rest182853182861%_))) - (_%tl182859182933%_ + (##car _%rest182890182898%_))) + (_%tl182896182970%_ (let () (declare (not safe)) - (##cdr _%rest182853182861%_)))) - (let* ((_%type-info182936%_ _%hd182858182931%_) - (_%rest182938%_ _%tl182859182933%_)) - (_%K182857182928%_ - _%rest182938%_ - _%type-info182936%_))) - (_%else182855182869%_)))))) - (_%assert-count181942%_ - (lambda (_%id182743%_ _%sym182744%_ _%count182745%_) - (let _%lp182747%_ ((_%rest182749%_ _%env-type181923%_)) - (let* ((_%rest182750182758%_ _%rest182749%_) - (_%else182752182766%_ (lambda () '#!void)) - (_%K182754182835%_ - (lambda (_%rest182769%_ _%type-info182770%_) - (let* ((_%type-info182771182785%_ - _%type-info182770%_) - (_%else182773182793%_ + (##cdr _%rest182890182898%_)))) + (let* ((_%type-info182973%_ _%hd182895182968%_) + (_%rest182975%_ _%tl182896182970%_)) + (_%K182894182965%_ + _%rest182975%_ + _%type-info182973%_))) + (_%else182892182906%_)))))) + (_%assert-count181979%_ + (lambda (_%id182780%_ _%sym182781%_ _%count182782%_) + (let _%lp182784%_ ((_%rest182786%_ _%env-type181960%_)) + (let* ((_%rest182787182795%_ _%rest182786%_) + (_%else182789182803%_ (lambda () '#!void)) + (_%K182791182872%_ + (lambda (_%rest182806%_ _%type-info182807%_) + (let* ((_%type-info182808182822%_ + _%type-info182807%_) + (_%else182810182830%_ (lambda () - (_%lp182747%_ _%rest182769%_))) - (_%K182775182804%_ - (lambda (_%val182796%_ - _%xcount182797%_ - _%xsym182798%_ - _%xid182799%_) - (if (and (eq? _%sym182744%_ - _%xsym182798%_) + (_%lp182784%_ _%rest182806%_))) + (_%K182812182841%_ + (lambda (_%val182833%_ + _%xcount182834%_ + _%xsym182835%_ + _%xid182836%_) + (if (and (eq? _%sym182781%_ + _%xsym182835%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id182743%_ - _%xid182799%_))) - (if _%val182796%_ - (fx= _%count182745%_ - _%xcount182797%_) - (if (fx= _%count182745%_ - _%xcount182797%_) + _%id182780%_ + _%xid182836%_))) + (if _%val182833%_ + (fx= _%count182782%_ + _%xcount182834%_) + (if (fx= _%count182782%_ + _%xcount182834%_) '#f - (_%lp182747%_ - _%rest182769%_))) - (_%lp182747%_ - _%rest182769%_))))) - (if (pair? _%type-info182771182785%_) - (let ((_%hd182776182807%_ + (_%lp182784%_ + _%rest182806%_))) + (_%lp182784%_ + _%rest182806%_))))) + (if (pair? _%type-info182808182822%_) + (let ((_%hd182813182844%_ (let () (declare (not safe)) - (##car _%type-info182771182785%_))) - (_%tl182777182809%_ + (##car _%type-info182808182822%_))) + (_%tl182814182846%_ (let () (declare (not safe)) - (##cdr _%type-info182771182785%_)))) - (let ((_%xid182812%_ - _%hd182776182807%_)) - (if (pair? _%tl182777182809%_) - (let ((_%hd182778182814%_ + (##cdr _%type-info182808182822%_)))) + (let ((_%xid182849%_ + _%hd182813182844%_)) + (if (pair? _%tl182814182846%_) + (let ((_%hd182815182851%_ (let () (declare (not safe)) - (##car _%tl182777182809%_))) - (_%tl182779182816%_ + (##car _%tl182814182846%_))) + (_%tl182816182853%_ (let () (declare (not safe)) - (##cdr _%tl182777182809%_)))) - (let ((_%xsym182819%_ - _%hd182778182814%_)) - (if (pair? _%tl182779182816%_) - (let ((_%hd182780182821%_ + (##cdr _%tl182814182846%_)))) + (let ((_%xsym182856%_ + _%hd182815182851%_)) + (if (pair? _%tl182816182853%_) + (let ((_%hd182817182858%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl182779182816%_))) - (_%tl182781182823%_ + (##car _%tl182816182853%_))) + (_%tl182818182860%_ (let () (declare (not safe)) - (##cdr _%tl182779182816%_)))) - (let ((_%xcount182826%_ _%hd182780182821%_)) - (if (pair? _%tl182781182823%_) - (let ((_%hd182782182828%_ + (##cdr _%tl182816182853%_)))) + (let ((_%xcount182863%_ _%hd182817182858%_)) + (if (pair? _%tl182818182860%_) + (let ((_%hd182819182865%_ (let () (declare (not safe)) - (##car _%tl182781182823%_))) - (_%tl182783182830%_ + (##car _%tl182818182860%_))) + (_%tl182820182867%_ (let () (declare (not safe)) - (##cdr _%tl182781182823%_)))) - (let ((_%val182833%_ _%hd182782182828%_)) - (if (null? _%tl182783182830%_) - (_%K182775182804%_ - _%val182833%_ - _%xcount182826%_ - _%xsym182819%_ - _%xid182812%_) - (_%else182773182793%_)))) - (_%else182773182793%_)))) - (_%else182773182793%_)))) + (##cdr _%tl182818182860%_)))) + (let ((_%val182870%_ _%hd182819182865%_)) + (if (null? _%tl182820182867%_) + (_%K182812182841%_ + _%val182870%_ + _%xcount182863%_ + _%xsym182856%_ + _%xid182849%_) + (_%else182810182830%_)))) + (_%else182810182830%_)))) + (_%else182810182830%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182773182793%_)))) - (_%else182773182793%_)))))) - (if (pair? _%rest182750182758%_) - (let ((_%hd182755182838%_ + (_%else182810182830%_)))) + (_%else182810182830%_)))))) + (if (pair? _%rest182787182795%_) + (let ((_%hd182792182875%_ (let () (declare (not safe)) - (##car _%rest182750182758%_))) - (_%tl182756182840%_ + (##car _%rest182787182795%_))) + (_%tl182793182877%_ (let () (declare (not safe)) - (##cdr _%rest182750182758%_)))) - (let* ((_%type-info182843%_ _%hd182755182838%_) - (_%rest182845%_ _%tl182756182840%_)) - (_%K182754182835%_ - _%rest182845%_ - _%type-info182843%_))) - (_%else182752182766%_)))))) - (_%assert-eqf181943%_ - (lambda (_%id182630%_ _%sym182631%_ _%datum182632%_) - (letrec ((_%eqf182634%_ - (lambda (_%sym182738%_) - (let ((_%$e182740%_ _%sym182738%_)) - (if (eq? 'eq? _%$e182740%_) + (##cdr _%rest182787182795%_)))) + (let* ((_%type-info182880%_ _%hd182792182875%_) + (_%rest182882%_ _%tl182793182877%_)) + (_%K182791182872%_ + _%rest182882%_ + _%type-info182880%_))) + (_%else182789182803%_)))))) + (_%assert-eqf181980%_ + (lambda (_%id182667%_ _%sym182668%_ _%datum182669%_) + (letrec ((_%eqf182671%_ + (lambda (_%sym182775%_) + (let ((_%$e182777%_ _%sym182775%_)) + (if (eq? 'eq? _%$e182777%_) eq? - (if (eq? 'eqv? _%$e182740%_) + (if (eq? 'eqv? _%$e182777%_) eqv? - (if (eq? 'equal? _%$e182740%_) + (if (eq? 'equal? _%$e182777%_) equal? (if (eq? 'free-identifier=? - _%$e182740%_) + _%$e182777%_) gx#free-identifier=? (if (eq? 'stx-eq? - _%$e182740%_) + _%$e182777%_) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _%body181684%_ - _%sym182738%_))))))))))) - (let _%lp182636%_ ((_%rest182638%_ _%env-type181923%_)) - (let* ((_%rest182639182647%_ _%rest182638%_) - (_%else182641182655%_ (lambda () '#!void)) - (_%K182643182726%_ - (lambda (_%rest182658%_ _%type-info182659%_) - (let* ((_%type-info182660182674%_ - _%type-info182659%_) - (_%else182662182682%_ + _%body181721%_ + _%sym182775%_))))))))))) + (let _%lp182673%_ ((_%rest182675%_ _%env-type181960%_)) + (let* ((_%rest182676182684%_ _%rest182675%_) + (_%else182678182692%_ (lambda () '#!void)) + (_%K182680182763%_ + (lambda (_%rest182695%_ _%type-info182696%_) + (let* ((_%type-info182697182711%_ + _%type-info182696%_) + (_%else182699182719%_ (lambda () - (_%lp182636%_ _%rest182658%_))) - (_%K182664182695%_ - (lambda (_%val182685%_ - _%xdatum182686%_ - _%xsym182687%_ - _%xid182688%_) - (if (and (eq? _%sym182631%_ - _%xsym182687%_) + (_%lp182673%_ _%rest182695%_))) + (_%K182701182732%_ + (lambda (_%val182722%_ + _%xdatum182723%_ + _%xsym182724%_ + _%xid182725%_) + (if (and (eq? _%sym182668%_ + _%xsym182724%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id182630%_ - _%xid182688%_))) - (let ((_%=?182690%_ - (_%eqf182634%_ - _%sym182631%_))) - (if _%val182685%_ - (_%=?182690%_ - _%datum182632%_ - _%xdatum182686%_) - (if (_%=?182690%_ - _%datum182632%_ - _%xdatum182686%_) + _%id182667%_ + _%xid182725%_))) + (let ((_%=?182727%_ + (_%eqf182671%_ + _%sym182668%_))) + (if _%val182722%_ + (_%=?182727%_ + _%datum182669%_ + _%xdatum182723%_) + (if (_%=?182727%_ + _%datum182669%_ + _%xdatum182723%_) '#f - (_%lp182636%_ - _%rest182658%_)))) - (_%lp182636%_ - _%rest182658%_))))) - (if (pair? _%type-info182660182674%_) - (let ((_%hd182665182698%_ + (_%lp182673%_ + _%rest182695%_)))) + (_%lp182673%_ + _%rest182695%_))))) + (if (pair? _%type-info182697182711%_) + (let ((_%hd182702182735%_ (let () (declare (not safe)) - (##car _%type-info182660182674%_))) - (_%tl182666182700%_ + (##car _%type-info182697182711%_))) + (_%tl182703182737%_ (let () (declare (not safe)) - (##cdr _%type-info182660182674%_)))) - (let ((_%xid182703%_ - _%hd182665182698%_)) - (if (pair? _%tl182666182700%_) - (let ((_%hd182667182705%_ + (##cdr _%type-info182697182711%_)))) + (let ((_%xid182740%_ + _%hd182702182735%_)) + (if (pair? _%tl182703182737%_) + (let ((_%hd182704182742%_ (let () (declare (not safe)) - (##car _%tl182666182700%_))) - (_%tl182668182707%_ + (##car _%tl182703182737%_))) + (_%tl182705182744%_ (let () (declare (not safe)) - (##cdr _%tl182666182700%_)))) - (let ((_%xsym182710%_ - _%hd182667182705%_)) - (if (pair? _%tl182668182707%_) - (let ((_%hd182669182712%_ + (##cdr _%tl182703182737%_)))) + (let ((_%xsym182747%_ + _%hd182704182742%_)) + (if (pair? _%tl182705182744%_) + (let ((_%hd182706182749%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%tl182668182707%_))) - (_%tl182670182714%_ + (##car _%tl182705182744%_))) + (_%tl182707182751%_ (let () (declare (not safe)) - (##cdr _%tl182668182707%_)))) - (let ((_%xdatum182717%_ _%hd182669182712%_)) - (if (pair? _%tl182670182714%_) - (let ((_%hd182671182719%_ + (##cdr _%tl182705182744%_)))) + (let ((_%xdatum182754%_ _%hd182706182749%_)) + (if (pair? _%tl182707182751%_) + (let ((_%hd182708182756%_ (let () (declare (not safe)) - (##car _%tl182670182714%_))) - (_%tl182672182721%_ + (##car _%tl182707182751%_))) + (_%tl182709182758%_ (let () (declare (not safe)) - (##cdr _%tl182670182714%_)))) - (let ((_%val182724%_ _%hd182671182719%_)) - (if (null? _%tl182672182721%_) - (_%K182664182695%_ - _%val182724%_ - _%xdatum182717%_ - _%xsym182710%_ - _%xid182703%_) - (_%else182662182682%_)))) - (_%else182662182682%_)))) - (_%else182662182682%_)))) + (##cdr _%tl182707182751%_)))) + (let ((_%val182761%_ _%hd182708182756%_)) + (if (null? _%tl182709182758%_) + (_%K182701182732%_ + _%val182761%_ + _%xdatum182754%_ + _%xsym182747%_ + _%xid182740%_) + (_%else182699182719%_)))) + (_%else182699182719%_)))) + (_%else182699182719%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182662182682%_)))) - (_%else182662182682%_)))))) - (if (pair? _%rest182639182647%_) - (let ((_%hd182644182729%_ + (_%else182699182719%_)))) + (_%else182699182719%_)))))) + (if (pair? _%rest182676182684%_) + (let ((_%hd182681182766%_ (let () (declare (not safe)) - (##car _%rest182639182647%_))) - (_%tl182645182731%_ + (##car _%rest182676182684%_))) + (_%tl182682182768%_ (let () (declare (not safe)) - (##cdr _%rest182639182647%_)))) - (let* ((_%type-info182734%_ - _%hd182644182729%_) - (_%rest182736%_ _%tl182645182731%_)) - (_%K182643182726%_ - _%rest182736%_ - _%type-info182734%_))) - (_%else182641182655%_))))))) - (_%bind-e__189298189299%_ - (lambda (_%bind182532%_ _%body182533%_ _%continue182534%_) - (let _%lp182536%_ ((_%rest182538%_ _%bind182532%_) - (_%subst182539%_ '()) - (_%locals182540%_ '()) - (_%env182541%_ _%env-bind181924%_)) - (let* ((_%rest182542182550%_ _%rest182538%_) - (_%else182544182564%_ + (##cdr _%rest182676182684%_)))) + (let* ((_%type-info182771%_ + _%hd182681182766%_) + (_%rest182773%_ _%tl182682182768%_)) + (_%K182680182763%_ + _%rest182773%_ + _%type-info182771%_))) + (_%else182678182692%_))))))) + (_%bind-e__189335189336%_ + (lambda (_%bind182569%_ _%body182570%_ _%continue182571%_) + (let _%lp182573%_ ((_%rest182575%_ _%bind182569%_) + (_%subst182576%_ '()) + (_%locals182577%_ '()) + (_%env182578%_ _%env-bind181961%_)) + (let* ((_%rest182579182587%_ _%rest182575%_) + (_%else182581182601%_ (lambda () - (let* ((_%body182558%_ - (if (null? _%subst182539%_) - _%body182533%_ + (let* ((_%body182595%_ + (if (null? _%subst182576%_) + _%body182570%_ (let () (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst182539%_ - _%body182533%_)))) - (_%body182561%_ - (_%do-bind!181935%_ - _%env182541%_ + _%subst182576%_ + _%body182570%_)))) + (_%body182598%_ + (_%do-bind!181972%_ + _%env182578%_ (lambda () - (_%continue182534%_ - _%body182558%_))))) - (if (null? _%locals182540%_) - _%body182561%_ + (_%continue182571%_ + _%body182595%_))))) + (if (null? _%locals182577%_) + _%body182598%_ (cons '%#let-values - (cons _%locals182540%_ - (cons _%body182561%_ + (cons _%locals182577%_ + (cons _%body182598%_ '()))))))) - (_%K182546182606%_ - (lambda (_%rest182567%_ _%bind182568%_) - (let* ((_%bind182569182576%_ _%bind182568%_) - (_%E182571182580%_ + (_%K182583182643%_ + (lambda (_%rest182604%_ _%bind182605%_) + (let* ((_%bind182606182613%_ _%bind182605%_) + (_%E182608182617%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind182569182576%_ + _%bind182606182613%_ '([id . expr]))) '#!void)) - (_%K182572182594%_ - (lambda (_%expr182583%_ _%id182584%_) - (let* ((_%sexpr182586%_ + (_%K182609182631%_ + (lambda (_%expr182620%_ _%id182621%_) + (let* ((_%sexpr182623%_ (gxc#apply-generate-runtime-repr - _%expr182583%_)) - (_%$e182588%_ + _%expr182620%_)) + (_%$e182625%_ (let () (declare (not safe)) - (aget__0 _%sexpr182586%_ - _%env-bind181924%_)))) - (if _%$e182588%_ - ((lambda (_%xid182591%_) - (_%lp182536%_ - _%rest182567%_ - (cons (cons _%id182584%_ + (aget__0 _%sexpr182623%_ + _%env-bind181961%_)))) + (if _%$e182625%_ + ((lambda (_%xid182628%_) + (_%lp182573%_ + _%rest182604%_ + (cons (cons _%id182621%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xid182591%_) - _%subst182539%_) + _%xid182628%_) + _%subst182576%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%locals182540%_ - _%env182541%_)) - _%$e182588%_) - (_%lp182536%_ - _%rest182567%_ - _%subst182539%_ - (cons (cons (cons _%id182584%_ + _%locals182577%_ + _%env182578%_)) + _%$e182625%_) + (_%lp182573%_ + _%rest182604%_ + _%subst182576%_ + (cons (cons (cons _%id182621%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr182583%_ '())) - _%locals182540%_) + (cons _%expr182620%_ '())) + _%locals182577%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%sexpr182586%_ - _%id182584%_) - _%env182541%_))))))) - (if (pair? _%bind182569182576%_) - (let ((_%hd182573182597%_ + (cons (cons _%sexpr182623%_ + _%id182621%_) + _%env182578%_))))))) + (if (pair? _%bind182606182613%_) + (let ((_%hd182610182634%_ (let () (declare (not safe)) - (##car _%bind182569182576%_))) - (_%tl182574182599%_ + (##car _%bind182606182613%_))) + (_%tl182611182636%_ (let () (declare (not safe)) - (##cdr _%bind182569182576%_)))) - (let* ((_%id182602%_ - _%hd182573182597%_) - (_%expr182604%_ - _%tl182574182599%_)) - (_%K182572182594%_ - _%expr182604%_ - _%id182602%_))) - (_%E182571182580%_)))))) - (if (pair? _%rest182542182550%_) - (let ((_%hd182547182609%_ + (##cdr _%bind182606182613%_)))) + (let* ((_%id182639%_ + _%hd182610182634%_) + (_%expr182641%_ + _%tl182611182636%_)) + (_%K182609182631%_ + _%expr182641%_ + _%id182639%_))) + (_%E182608182617%_)))))) + (if (pair? _%rest182579182587%_) + (let ((_%hd182584182646%_ (let () (declare (not safe)) - (##car _%rest182542182550%_))) - (_%tl182548182611%_ + (##car _%rest182579182587%_))) + (_%tl182585182648%_ (let () (declare (not safe)) - (##cdr _%rest182542182550%_)))) - (let* ((_%bind182614%_ _%hd182547182609%_) - (_%rest182616%_ _%tl182548182611%_)) - (_%K182546182606%_ - _%rest182616%_ - _%bind182614%_))) - (_%else182544182564%_)))))) - (_%bind-e__0__189300189301%_ - (lambda (_%bind182621%_ _%body182622%_) - (let ((_%continue182624%_ _%optimize-e181937%_)) - (_%bind-e__189298189299%_ - _%bind182621%_ - _%body182622%_ - _%continue182624%_)))) - (_%bind-e181944%_ - (lambda _g192457_ - (let ((_g192456_ + (##cdr _%rest182579182587%_)))) + (let* ((_%bind182651%_ _%hd182584182646%_) + (_%rest182653%_ _%tl182585182648%_)) + (_%K182583182643%_ + _%rest182653%_ + _%bind182651%_))) + (_%else182581182601%_)))))) + (_%bind-e__0__189337189338%_ + (lambda (_%bind182658%_ _%body182659%_) + (let ((_%continue182661%_ _%optimize-e181974%_)) + (_%bind-e__189335189336%_ + _%bind182658%_ + _%body182659%_ + _%continue182661%_)))) + (_%bind-e181981%_ + (lambda _g192494_ + (let ((_g192493_ (let () (declare (not safe)) - (##length _g192457_)))) - (cond ((let () (declare (not safe)) (##fx= _g192456_ 2)) - (apply _%bind-e__0__189300189301%_ _g192457_)) - ((let () (declare (not safe)) (##fx= _g192456_ 3)) - (apply _%bind-e__189298189299%_ _g192457_)) + (##length _g192494_)))) + (cond ((let () (declare (not safe)) (##fx= _g192493_ 2)) + (apply _%bind-e__0__189337189338%_ _g192494_)) + ((let () (declare (not safe)) (##fx= _g192493_ 3)) + (apply _%bind-e__189335189336%_ _g192494_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192457_)))))) - (_%lookup-block181945%_ - (lambda (_%id182527%_) - (let ((__tmp192458 - (lambda (_%block182529%_) - (let ((__tmp192459 (car _%block182529%_))) + _g192494_)))))) + (_%lookup-block181982%_ + (lambda (_%id182564%_) + (let ((__tmp192495 + (lambda (_%block182566%_) + (let ((__tmp192496 (car _%block182566%_))) (declare (not safe)) (gx#free-identifier=? - __tmp192459 - _%id182527%_))))) + __tmp192496 + _%id182564%_))))) (declare (not safe)) - (__find __tmp192458 _%blocks181687%_)))) - (_%inline-block181946%_ - (lambda (_%block182403%_ _%args182404%_) - (let* ((_%kont182406%_ (caddr _%block182403%_)) - (_%g182408182434%_ - (lambda (_%g182409182431%_) + (__find __tmp192495 _%blocks181724%_)))) + (_%inline-block181983%_ + (lambda (_%block182440%_ _%args182441%_) + (let* ((_%kont182443%_ (caddr _%block182440%_)) + (_%g182445182471%_ + (lambda (_%g182446182468%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g182409182431%_)))) - (_%g182407182524%_ - (lambda (_%g182409182437%_) + _%g182446182468%_)))) + (_%g182444182561%_ + (lambda (_%g182446182474%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g182409182437%_)) - (let ((_%e182412182439%_ + (gx#stx-pair? _%g182446182474%_)) + (let ((_%e182449182476%_ (let () (declare (not safe)) - (gx#stx-e _%g182409182437%_)))) - (let ((_%hd182413182442%_ + (gx#stx-e _%g182446182474%_)))) + (let ((_%hd182450182479%_ (let () (declare (not safe)) - (##car _%e182412182439%_))) - (_%tl182414182444%_ + (##car _%e182449182476%_))) + (_%tl182451182481%_ (let () (declare (not safe)) - (##cdr _%e182412182439%_)))) + (##cdr _%e182449182476%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182413182442%_)) + _%hd182450182479%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182413182442%_)) + _%hd182450182479%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182414182444%_)) - (let ((_%e182415182447%_ + _%tl182451182481%_)) + (let ((_%e182452182484%_ (let () (declare (not safe)) (gx#stx-e - _%tl182414182444%_)))) - (let ((_%hd182416182450%_ + _%tl182451182481%_)))) + (let ((_%hd182453182487%_ (let () (declare (not safe)) - (##car _%e182415182447%_))) - (_%tl182417182452%_ + (##car _%e182452182484%_))) + (_%tl182454182489%_ (let () (declare (not safe)) - (##cdr _%e182415182447%_)))) + (##cdr _%e182452182484%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd182416182450%_)) - (let ((_g192460_ + _%hd182453182487%_)) + (let ((_g192497_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd182416182450%_ '0)))) + (gx#syntax-split-splice _%hd182453182487%_ '0)))) (begin - (let ((_g192461_ + (let ((_g192498_ (let () (declare (not safe)) - (if (##values? _g192460_) - (##vector-length _g192460_) + (if (##values? _g192497_) + (##vector-length _g192497_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192461_ 2))) - (error "Context expects 2 values" _g192461_))) - (let ((_%target182418182455%_ + (##fx= _g192498_ 2))) + (error "Context expects 2 values" _g192498_))) + (let ((_%target182455182492%_ (let () (declare (not safe)) - (##vector-ref _g192460_ 0))) - (_%tl182420182457%_ + (##vector-ref _g192497_ 0))) + (_%tl182457182494%_ (let () (declare (not safe)) - (##vector-ref _g192460_ 1)))) + (##vector-ref _g192497_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182420182457%_)) - (letrec ((_%loop182421182460%_ - (lambda (_%hd182419182463%_ - _%id182425182465%_) + (gx#stx-null? _%tl182457182494%_)) + (letrec ((_%loop182458182497%_ + (lambda (_%hd182456182500%_ + _%id182462182502%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182419182463%_)) - (let ((_%e182422182468%_ + _%hd182456182500%_)) + (let ((_%e182459182505%_ (let () (declare (not safe)) (gx#stx-e - _%hd182419182463%_)))) - (let ((_%lp-hd182423182471%_ + _%hd182456182500%_)))) + (let ((_%lp-hd182460182508%_ (let () (declare (not safe)) - (##car _%e182422182468%_))) - (_%lp-tl182424182473%_ + (##car _%e182459182505%_))) + (_%lp-tl182461182510%_ (let () (declare (not safe)) - (##cdr _%e182422182468%_)))) - (_%loop182421182460%_ - _%lp-tl182424182473%_ - (cons _%lp-hd182423182471%_ - _%id182425182465%_)))) - (let ((_%id182426182476%_ - (reverse _%id182425182465%_))) + (##cdr _%e182459182505%_)))) + (_%loop182458182497%_ + _%lp-tl182461182510%_ + (cons _%lp-hd182460182508%_ + _%id182462182502%_)))) + (let ((_%id182463182513%_ + (reverse _%id182462182502%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182417182452%_)) - (let ((_%e182427182479%_ + _%tl182454182489%_)) + (let ((_%e182464182516%_ (let () (declare (not safe)) (gx#stx-e - _%tl182417182452%_)))) - (let ((_%hd182428182482%_ + _%tl182454182489%_)))) + (let ((_%hd182465182519%_ (let () (declare (not safe)) - (##car _%e182427182479%_))) - (_%tl182429182484%_ + (##car _%e182464182516%_))) + (_%tl182466182521%_ (let () (declare (not safe)) - (##cdr _%e182427182479%_)))) + (##cdr _%e182464182516%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182429182484%_)) - ((lambda (_%L182487%_ + _%tl182466182521%_)) + ((lambda (_%L182524%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L182488%_) - (if (null? (let ((__tmp192462 - (lambda (_%g182507182510%_ - _%g182508182512%_) - (cons _%g182507182510%_ - _%g182508182512%_)))) + _%L182525%_) + (if (null? (let ((__tmp192499 + (lambda (_%g182544182547%_ + _%g182545182549%_) + (cons _%g182544182547%_ + _%g182545182549%_)))) (declare (not safe)) - (__foldr1 __tmp192462 '() _%L182488%_))) - _%L182487%_ - (let ((_%subst182522%_ + (__foldr1 __tmp192499 '() _%L182525%_))) + _%L182524%_ + (let ((_%subst182559%_ (map cons - (let ((__tmp192463 - (lambda (_%g182514182517%_ - _%g182515182519%_) - (cons _%g182514182517%_ - _%g182515182519%_)))) + (let ((__tmp192500 + (lambda (_%g182551182554%_ + _%g182552182556%_) + (cons _%g182551182554%_ + _%g182552182556%_)))) (declare (not safe)) - (__foldr1 __tmp192463 '() _%L182488%_)) - _%args182404%_))) + (__foldr1 __tmp192500 '() _%L182525%_)) + _%args182441%_))) (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst182522%_ - _%L182487%_)))) - _%hd182428182482%_ - _%id182426182476%_) - (_%g182408182434%_ _%g182409182437%_)))) + _%subst182559%_ + _%L182524%_)))) + _%hd182465182519%_ + _%id182463182513%_) + (_%g182445182471%_ _%g182446182474%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182408182434%_ - _%g182409182437%_))))))) - (_%loop182421182460%_ - _%target182418182455%_ + (_%g182445182471%_ + _%g182446182474%_))))))) + (_%loop182458182497%_ + _%target182455182492%_ '())) - (_%g182408182434%_ _%g182409182437%_))))) - (_%g182408182434%_ _%g182409182437%_)))) + (_%g182445182471%_ _%g182446182474%_))))) + (_%g182445182471%_ _%g182446182474%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182408182434%_ - _%g182409182437%_)) - (_%g182408182434%_ - _%g182409182437%_)) - (_%g182408182434%_ - _%g182409182437%_)))) - (_%g182408182434%_ _%g182409182437%_))))) - (_%g182407182524%_ _%kont182406%_)))) - (_%nonlinear-block?181947%_ - (lambda (_%block181952%_) - (letrec ((_%nonlinear-expr?181954%_ - (lambda (_%expr182062%_) - (let* ((_%__stx191371191372%_ _%expr182062%_) - (_%g182068182134%_ + (_%g182445182471%_ + _%g182446182474%_)) + (_%g182445182471%_ + _%g182446182474%_)) + (_%g182445182471%_ + _%g182446182474%_)))) + (_%g182445182471%_ _%g182446182474%_))))) + (_%g182444182561%_ _%kont182443%_)))) + (_%nonlinear-block?181984%_ + (lambda (_%block181989%_) + (letrec ((_%nonlinear-expr?181991%_ + (lambda (_%expr182099%_) + (let* ((_%__stx191408191409%_ _%expr182099%_) + (_%g182105182171%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191371191372%_))))) - (let ((_%__kont191373191374%_ + _%__stx191408191409%_))))) + (let ((_%__kont191410191411%_ (lambda () '#t)) - (_%__kont191375191376%_ - (lambda (_%L182333%_) - (let* ((_%__stx191353191354%_ - _%L182333%_) - (_%g182351182360%_ + (_%__kont191412191413%_ + (lambda (_%L182370%_) + (let* ((_%__stx191390191391%_ + _%L182370%_) + (_%g182388182397%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191353191354%_))))) - (let ((_%__kont191355191356%_ + _%__stx191390191391%_))))) + (let ((_%__kont191392191393%_ (lambda () '#f)) - (_%__kont191357191358%_ + (_%__kont191394191395%_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191353191354%_)) - (let ((_%e182353182372%_ + _%__stx191390191391%_)) + (let ((_%e182390182409%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191353191354%_)))) - (let ((_%tl182355182377%_ + _%__stx191390191391%_)))) + (let ((_%tl182392182414%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182353182372%_))) - (_%hd182354182375%_ - (let () (declare (not safe)) (##car _%e182353182372%_)))) + (##cdr _%e182390182409%_))) + (_%hd182391182412%_ + (let () (declare (not safe)) (##car _%e182390182409%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182354182375%_)) + (gx#identifier? _%hd182391182412%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd182354182375%_)) - (_%__kont191355191356%_) - (_%__kont191357191358%_)) - (_%__kont191357191358%_)))) + (gx#stx-eq? '%#call _%hd182391182412%_)) + (_%__kont191392191393%_) + (_%__kont191394191395%_)) + (_%__kont191394191395%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191357191358%_)))))) - (_%__kont191379191380%_ - (lambda (_%L182231%_) - (_%nonlinear-expr?181954%_ - _%L182231%_))) - (_%__kont191381191382%_ - (lambda (_%L182178%_ - _%L182179%_ - _%L182180%_) - (let ((_%$e182199%_ - (_%nonlinear-expr?181954%_ - _%L182179%_))) - (if _%$e182199%_ - _%$e182199%_ - (_%nonlinear-expr?181954%_ - _%L182178%_))))) - (_%__kont191383191384%_ + (_%__kont191394191395%_)))))) + (_%__kont191416191417%_ + (lambda (_%L182268%_) + (_%nonlinear-expr?181991%_ + _%L182268%_))) + (_%__kont191418191419%_ + (lambda (_%L182215%_ + _%L182216%_ + _%L182217%_) + (let ((_%$e182236%_ + (_%nonlinear-expr?181991%_ + _%L182216%_))) + (if _%$e182236%_ + _%$e182236%_ + (_%nonlinear-expr?181991%_ + _%L182215%_))))) + (_%__kont191420191421%_ (lambda () '#f))) - (let* ((_%__match191434191435%_ - (lambda (_%e182106182207%_ - _%hd182107182210%_ - _%tl182108182212%_ - _%e182109182215%_ - _%hd182110182218%_ - _%tl182111182220%_) + (let* ((_%__match191471191472%_ + (lambda (_%e182143182244%_ + _%hd182144182247%_ + _%tl182145182249%_ + _%e182146182252%_ + _%hd182147182255%_ + _%tl182148182257%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182111182220%_)) - (let ((_%e182112182223%_ + _%tl182148182257%_)) + (let ((_%e182149182260%_ (let () (declare (not safe)) (gx#stx-e - _%tl182111182220%_)))) - (let ((_%tl182114182228%_ + _%tl182148182257%_)))) + (let ((_%tl182151182265%_ (let () (declare (not safe)) - (##cdr _%e182112182223%_))) - (_%hd182113182226%_ + (##cdr _%e182149182260%_))) + (_%hd182150182263%_ (let () (declare (not safe)) - (##car _%e182112182223%_)))) + (##car _%e182149182260%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182114182228%_)) - (_%__kont191379191380%_ - _%hd182113182226%_) - (_%__kont191383191384%_)))) - (_%__kont191383191384%_)))) - (_%__match191418191419%_ - (lambda (_%e182074182249%_ - _%hd182075182252%_ - _%tl182076182254%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_ - _%__splice191377191378%_ - _%target182080182265%_ - _%tl182082182267%_) - (letrec ((_%loop182083182270%_ - (lambda (_%hd182081182273%_) + _%tl182151182265%_)) + (_%__kont191416191417%_ + _%hd182150182263%_) + (_%__kont191420191421%_)))) + (_%__kont191420191421%_)))) + (_%__match191455191456%_ + (lambda (_%e182111182286%_ + _%hd182112182289%_ + _%tl182113182291%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_ + _%__splice191414191415%_ + _%target182117182302%_ + _%tl182119182304%_) + (letrec ((_%loop182120182307%_ + (lambda (_%hd182118182310%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%hd182081182273%_)) - (let ((_%e182084182276%_ + (gx#stx-pair? _%hd182118182310%_)) + (let ((_%e182121182313%_ (let () (declare (not safe)) - (gx#stx-e _%hd182081182273%_)))) - (let ((_%lp-tl182086182281%_ + (gx#stx-e _%hd182118182310%_)))) + (let ((_%lp-tl182123182318%_ (let () (declare (not safe)) - (##cdr _%e182084182276%_))) - (_%lp-hd182085182279%_ + (##cdr _%e182121182313%_))) + (_%lp-hd182122182316%_ (let () (declare (not safe)) - (##car _%e182084182276%_)))) + (##car _%e182121182313%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd182085182279%_)) - (let ((_%e182090182284%_ + (gx#stx-pair? _%lp-hd182122182316%_)) + (let ((_%e182127182321%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd182085182279%_)))) - (let ((_%tl182092182289%_ + (gx#stx-e _%lp-hd182122182316%_)))) + (let ((_%tl182129182326%_ (let () (declare (not safe)) - (##cdr _%e182090182284%_))) - (_%hd182091182287%_ + (##cdr _%e182127182321%_))) + (_%hd182128182324%_ (let () (declare (not safe)) - (##car _%e182090182284%_)))) + (##car _%e182127182321%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182091182287%_)) - (let ((_%e182093182292%_ + (gx#stx-pair? _%hd182128182324%_)) + (let ((_%e182130182329%_ (let () (declare (not safe)) (gx#stx-e - _%hd182091182287%_)))) - (let ((_%tl182095182297%_ + _%hd182128182324%_)))) + (let ((_%tl182132182334%_ (let () (declare (not safe)) - (##cdr _%e182093182292%_))) - (_%hd182094182295%_ + (##cdr _%e182130182329%_))) + (_%hd182131182332%_ (let () (declare (not safe)) - (##car _%e182093182292%_)))) + (##car _%e182130182329%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182095182297%_)) + _%tl182132182334%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182092182289%_)) - (let ((_%e182096182300%_ + _%tl182129182326%_)) + (let ((_%e182133182337%_ (let () (declare (not safe)) (gx#stx-e - _%tl182092182289%_)))) - (let ((_%tl182098182305%_ + _%tl182129182326%_)))) + (let ((_%tl182135182342%_ (let () (declare (not safe)) - (##cdr _%e182096182300%_))) - (_%hd182097182303%_ + (##cdr _%e182133182337%_))) + (_%hd182134182340%_ (let () (declare (not safe)) - (##car _%e182096182300%_)))) + (##car _%e182133182337%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182097182303%_)) - (let ((_%e182099182308%_ + _%hd182134182340%_)) + (let ((_%e182136182345%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd182097182303%_)))) - (let ((_%tl182101182313%_ + (gx#stx-e _%hd182134182340%_)))) + (let ((_%tl182138182350%_ (let () (declare (not safe)) - (##cdr _%e182099182308%_))) - (_%hd182100182311%_ + (##cdr _%e182136182345%_))) + (_%hd182137182348%_ (let () (declare (not safe)) - (##car _%e182099182308%_)))) + (##car _%e182136182345%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182100182311%_)) + (gx#identifier? _%hd182137182348%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182100182311%_)) + (gx#stx-eq? '%#ref _%hd182137182348%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182101182313%_)) - (let ((_%e182102182316%_ + (gx#stx-pair? _%tl182138182350%_)) + (let ((_%e182139182353%_ (let () (declare (not safe)) - (gx#stx-e _%tl182101182313%_)))) - (let ((_%tl182104182321%_ + (gx#stx-e _%tl182138182350%_)))) + (let ((_%tl182141182358%_ (let () (declare (not safe)) - (##cdr _%e182102182316%_))) - (_%hd182103182319%_ + (##cdr _%e182139182353%_))) + (_%hd182140182356%_ (let () (declare (not safe)) - (##car _%e182102182316%_)))) + (##car _%e182139182353%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182104182321%_)) + (gx#stx-null? _%tl182141182358%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182098182305%_)) - (_%loop182083182270%_ - _%lp-tl182086182281%_) - (_%__match191434191435%_ - _%e182074182249%_ - _%hd182075182252%_ - _%tl182076182254%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_)) - (_%__match191434191435%_ - _%e182074182249%_ - _%hd182075182252%_ - _%tl182076182254%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_)))) - (_%__match191434191435%_ - _%e182074182249%_ - _%hd182075182252%_ - _%tl182076182254%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_)) - (_%__match191434191435%_ - _%e182074182249%_ - _%hd182075182252%_ - _%tl182076182254%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_)) - (_%__match191434191435%_ - _%e182074182249%_ - _%hd182075182252%_ - _%tl182076182254%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_)))) - (_%__match191434191435%_ - _%e182074182249%_ - _%hd182075182252%_ - _%tl182076182254%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_)))) + _%tl182135182342%_)) + (_%loop182120182307%_ + _%lp-tl182123182318%_) + (_%__match191471191472%_ + _%e182111182286%_ + _%hd182112182289%_ + _%tl182113182291%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_)) + (_%__match191471191472%_ + _%e182111182286%_ + _%hd182112182289%_ + _%tl182113182291%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_)))) + (_%__match191471191472%_ + _%e182111182286%_ + _%hd182112182289%_ + _%tl182113182291%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_)) + (_%__match191471191472%_ + _%e182111182286%_ + _%hd182112182289%_ + _%tl182113182291%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_)) + (_%__match191471191472%_ + _%e182111182286%_ + _%hd182112182289%_ + _%tl182113182291%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_)))) + (_%__match191471191472%_ + _%e182111182286%_ + _%hd182112182289%_ + _%tl182113182291%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match191434191435%_ - _%e182074182249%_ - _%hd182075182252%_ - _%tl182076182254%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_)) - (_%__match191434191435%_ - _%e182074182249%_ - _%hd182075182252%_ - _%tl182076182254%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_)))) - (_%__match191434191435%_ - _%e182074182249%_ - _%hd182075182252%_ - _%tl182076182254%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_)))) - (_%__match191434191435%_ - _%e182074182249%_ - _%hd182075182252%_ - _%tl182076182254%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_)))) + (_%__match191471191472%_ + _%e182111182286%_ + _%hd182112182289%_ + _%tl182113182291%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_)) + (_%__match191471191472%_ + _%e182111182286%_ + _%hd182112182289%_ + _%tl182113182291%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_)))) + (_%__match191471191472%_ + _%e182111182286%_ + _%hd182112182289%_ + _%tl182113182291%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_)))) + (_%__match191471191472%_ + _%e182111182286%_ + _%hd182112182289%_ + _%tl182113182291%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182079182262%_)) - (let ((_%e182087182325%_ + (gx#stx-pair? _%tl182116182299%_)) + (let ((_%e182124182362%_ (let () (declare (not safe)) - (gx#stx-e _%tl182079182262%_)))) - (let ((_%tl182089182330%_ + (gx#stx-e _%tl182116182299%_)))) + (let ((_%tl182126182367%_ (let () (declare (not safe)) - (##cdr _%e182087182325%_))) - (_%hd182088182328%_ + (##cdr _%e182124182362%_))) + (_%hd182125182365%_ (let () (declare (not safe)) - (##car _%e182087182325%_)))) + (##car _%e182124182362%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182089182330%_)) - (_%__kont191375191376%_ _%hd182088182328%_) - (_%__kont191383191384%_)))) - (_%__kont191383191384%_)))))) + (gx#stx-null? _%tl182126182367%_)) + (_%__kont191412191413%_ _%hd182125182365%_) + (_%__kont191420191421%_)))) + (_%__kont191420191421%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182083182270%_ - _%target182080182265%_))))) + (_%loop182120182307%_ + _%target182117182302%_))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191371191372%_)) - (let ((_%e182070182390%_ + _%__stx191408191409%_)) + (let ((_%e182107182427%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191371191372%_)))) - (let ((_%tl182072182395%_ + _%__stx191408191409%_)))) + (let ((_%tl182109182432%_ (let () (declare (not safe)) - (##cdr _%e182070182390%_))) - (_%hd182071182393%_ + (##cdr _%e182107182427%_))) + (_%hd182108182430%_ (let () (declare (not safe)) - (##car _%e182070182390%_)))) + (##car _%e182107182427%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182071182393%_)) + _%hd182108182430%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd182071182393%_)) - (_%__kont191373191374%_) + _%hd182108182430%_)) + (_%__kont191410191411%_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd182071182393%_)) + _%hd182108182430%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl182072182395%_)) - (let ((_%e182077182257%_ + (gx#stx-pair? _%tl182109182432%_)) + (let ((_%e182114182294%_ (let () (declare (not safe)) - (gx#stx-e _%tl182072182395%_)))) - (let ((_%tl182079182262%_ + (gx#stx-e _%tl182109182432%_)))) + (let ((_%tl182116182299%_ (let () (declare (not safe)) - (##cdr _%e182077182257%_))) - (_%hd182078182260%_ + (##cdr _%e182114182294%_))) + (_%hd182115182297%_ (let () (declare (not safe)) - (##car _%e182077182257%_)))) + (##car _%e182114182294%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd182078182260%_)) - (let ((_%__splice191377191378%_ + (gx#stx-pair/null? _%hd182115182297%_)) + (let ((_%__splice191414191415%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd182078182260%_ + _%hd182115182297%_ '0)))) - (let ((_%tl182082182267%_ + (let ((_%tl182119182304%_ (let () (declare (not safe)) (##vector-ref - _%__splice191377191378%_ + _%__splice191414191415%_ '1))) - (_%target182080182265%_ + (_%target182117182302%_ (let () (declare (not safe)) (##vector-ref - _%__splice191377191378%_ + _%__splice191414191415%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182082182267%_)) - (_%__match191418191419%_ - _%e182070182390%_ - _%hd182071182393%_ - _%tl182072182395%_ - _%e182077182257%_ - _%hd182078182260%_ - _%tl182079182262%_ - _%__splice191377191378%_ - _%target182080182265%_ - _%tl182082182267%_) + (gx#stx-null? _%tl182119182304%_)) + (_%__match191455191456%_ + _%e182107182427%_ + _%hd182108182430%_ + _%tl182109182432%_ + _%e182114182294%_ + _%hd182115182297%_ + _%tl182116182299%_ + _%__splice191414191415%_ + _%target182117182302%_ + _%tl182119182304%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182079182262%_)) - (let ((_%e182112182223%_ + (gx#stx-pair? _%tl182116182299%_)) + (let ((_%e182149182260%_ (let () (declare (not safe)) (gx#stx-e - _%tl182079182262%_)))) - (let ((_%tl182114182228%_ + _%tl182116182299%_)))) + (let ((_%tl182151182265%_ (let () (declare (not safe)) - (##cdr _%e182112182223%_))) - (_%hd182113182226%_ + (##cdr _%e182149182260%_))) + (_%hd182150182263%_ (let () (declare (not safe)) - (##car _%e182112182223%_)))) + (##car _%e182149182260%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182114182228%_)) - (_%__kont191379191380%_ - _%hd182113182226%_) - (_%__kont191383191384%_)))) - (_%__kont191383191384%_))))) + _%tl182151182265%_)) + (_%__kont191416191417%_ + _%hd182150182263%_) + (_%__kont191420191421%_)))) + (_%__kont191420191421%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182079182262%_)) - (let ((_%e182112182223%_ + (gx#stx-pair? _%tl182116182299%_)) + (let ((_%e182149182260%_ (let () (declare (not safe)) - (gx#stx-e _%tl182079182262%_)))) - (let ((_%tl182114182228%_ + (gx#stx-e _%tl182116182299%_)))) + (let ((_%tl182151182265%_ (let () (declare (not safe)) - (##cdr _%e182112182223%_))) - (_%hd182113182226%_ + (##cdr _%e182149182260%_))) + (_%hd182150182263%_ (let () (declare (not safe)) - (##car _%e182112182223%_)))) + (##car _%e182149182260%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182114182228%_)) - (_%__kont191379191380%_ - _%hd182113182226%_) - (_%__kont191383191384%_)))) - (_%__kont191383191384%_))))) - (_%__kont191383191384%_)) + (gx#stx-null? _%tl182151182265%_)) + (_%__kont191416191417%_ + _%hd182150182263%_) + (_%__kont191420191421%_)))) + (_%__kont191420191421%_))))) + (_%__kont191420191421%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd182071182393%_)) + (gx#stx-eq? '%#if _%hd182108182430%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182072182395%_)) - (let ((_%e182121182154%_ + (gx#stx-pair? _%tl182109182432%_)) + (let ((_%e182158182191%_ (let () (declare (not safe)) - (gx#stx-e _%tl182072182395%_)))) - (let ((_%tl182123182159%_ + (gx#stx-e _%tl182109182432%_)))) + (let ((_%tl182160182196%_ (let () (declare (not safe)) - (##cdr _%e182121182154%_))) - (_%hd182122182157%_ + (##cdr _%e182158182191%_))) + (_%hd182159182194%_ (let () (declare (not safe)) - (##car _%e182121182154%_)))) + (##car _%e182158182191%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182123182159%_)) - (let ((_%e182124182162%_ + (gx#stx-pair? _%tl182160182196%_)) + (let ((_%e182161182199%_ (let () (declare (not safe)) - (gx#stx-e _%tl182123182159%_)))) - (let ((_%tl182126182167%_ + (gx#stx-e _%tl182160182196%_)))) + (let ((_%tl182163182204%_ (let () (declare (not safe)) - (##cdr _%e182124182162%_))) - (_%hd182125182165%_ + (##cdr _%e182161182199%_))) + (_%hd182162182202%_ (let () (declare (not safe)) - (##car _%e182124182162%_)))) + (##car _%e182161182199%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182126182167%_)) - (let ((_%e182127182170%_ + (gx#stx-pair? _%tl182163182204%_)) + (let ((_%e182164182207%_ (let () (declare (not safe)) (gx#stx-e - _%tl182126182167%_)))) - (let ((_%tl182129182175%_ + _%tl182163182204%_)))) + (let ((_%tl182166182212%_ (let () (declare (not safe)) - (##cdr _%e182127182170%_))) - (_%hd182128182173%_ + (##cdr _%e182164182207%_))) + (_%hd182165182210%_ (let () (declare (not safe)) - (##car _%e182127182170%_)))) + (##car _%e182164182207%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182129182175%_)) - (_%__kont191381191382%_ - _%hd182128182173%_ - _%hd182125182165%_ - _%hd182122182157%_) - (_%__kont191383191384%_)))) - (_%__kont191383191384%_)))) - (_%__kont191383191384%_)))) - (_%__kont191383191384%_)) - (_%__kont191383191384%_)))) + _%tl182166182212%_)) + (_%__kont191418191419%_ + _%hd182165182210%_ + _%hd182162182202%_ + _%hd182159182194%_) + (_%__kont191420191421%_)))) + (_%__kont191420191421%_)))) + (_%__kont191420191421%_)))) + (_%__kont191420191421%_)) + (_%__kont191420191421%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191383191384%_)))) - (_%__kont191383191384%_)))))))) - (let* ((_%kont181956%_ (caddr _%block181952%_)) - (_%g181958181984%_ - (lambda (_%g181959181981%_) + (_%__kont191420191421%_)))) + (_%__kont191420191421%_)))))))) + (let* ((_%kont181993%_ (caddr _%block181989%_)) + (_%g181995182021%_ + (lambda (_%g181996182018%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g181959181981%_)))) - (_%g181957182059%_ - (lambda (_%g181959181987%_) + _%g181996182018%_)))) + (_%g181994182096%_ + (lambda (_%g181996182024%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g181959181987%_)) - (let ((_%e181962181989%_ + (gx#stx-pair? _%g181996182024%_)) + (let ((_%e181999182026%_ (let () (declare (not safe)) - (gx#stx-e _%g181959181987%_)))) - (let ((_%hd181963181992%_ + (gx#stx-e _%g181996182024%_)))) + (let ((_%hd182000182029%_ (let () (declare (not safe)) - (##car _%e181962181989%_))) - (_%tl181964181994%_ + (##car _%e181999182026%_))) + (_%tl182001182031%_ (let () (declare (not safe)) - (##cdr _%e181962181989%_)))) + (##cdr _%e181999182026%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd181963181992%_)) + _%hd182000182029%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd181963181992%_)) + _%hd182000182029%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181964181994%_)) - (let ((_%e181965181997%_ + _%tl182001182031%_)) + (let ((_%e182002182034%_ (let () (declare (not safe)) (gx#stx-e - _%tl181964181994%_)))) - (let ((_%hd181966182000%_ + _%tl182001182031%_)))) + (let ((_%hd182003182037%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e181965181997%_))) - (_%tl181967182002%_ - (let () (declare (not safe)) (##cdr _%e181965181997%_)))) + (##car _%e182002182034%_))) + (_%tl182004182039%_ + (let () (declare (not safe)) (##cdr _%e182002182034%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd181966182000%_)) - (let ((_g192464_ + (gx#stx-pair/null? _%hd182003182037%_)) + (let ((_g192501_ (let () (declare (not safe)) - (gx#syntax-split-splice _%hd181966182000%_ '0)))) + (gx#syntax-split-splice _%hd182003182037%_ '0)))) (begin - (let ((_g192465_ + (let ((_g192502_ (let () (declare (not safe)) - (if (##values? _g192464_) - (##vector-length _g192464_) + (if (##values? _g192501_) + (##vector-length _g192501_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192465_ 2))) - (error "Context expects 2 values" _g192465_))) - (let ((_%target181968182005%_ + (##fx= _g192502_ 2))) + (error "Context expects 2 values" _g192502_))) + (let ((_%target182005182042%_ (let () (declare (not safe)) - (##vector-ref _g192464_ 0))) - (_%tl181970182007%_ + (##vector-ref _g192501_ 0))) + (_%tl182007182044%_ (let () (declare (not safe)) - (##vector-ref _g192464_ 1)))) + (##vector-ref _g192501_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181970182007%_)) - (letrec ((_%loop181971182010%_ - (lambda (_%hd181969182013%_ - _%id181975182015%_) + (gx#stx-null? _%tl182007182044%_)) + (letrec ((_%loop182008182047%_ + (lambda (_%hd182006182050%_ + _%id182012182052%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181969182013%_)) - (let ((_%e181972182018%_ + _%hd182006182050%_)) + (let ((_%e182009182055%_ (let () (declare (not safe)) (gx#stx-e - _%hd181969182013%_)))) - (let ((_%lp-hd181973182021%_ + _%hd182006182050%_)))) + (let ((_%lp-hd182010182058%_ (let () (declare (not safe)) - (##car _%e181972182018%_))) - (_%lp-tl181974182023%_ + (##car _%e182009182055%_))) + (_%lp-tl182011182060%_ (let () (declare (not safe)) - (##cdr _%e181972182018%_)))) - (_%loop181971182010%_ - _%lp-tl181974182023%_ - (cons _%lp-hd181973182021%_ - _%id181975182015%_)))) - (let ((_%id181976182026%_ - (reverse _%id181975182015%_))) + (##cdr _%e182009182055%_)))) + (_%loop182008182047%_ + _%lp-tl182011182060%_ + (cons _%lp-hd182010182058%_ + _%id182012182052%_)))) + (let ((_%id182013182063%_ + (reverse _%id182012182052%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181967182002%_)) - (let ((_%e181977182029%_ + _%tl182004182039%_)) + (let ((_%e182014182066%_ (let () (declare (not safe)) (gx#stx-e - _%tl181967182002%_)))) - (let ((_%hd181978182032%_ + _%tl182004182039%_)))) + (let ((_%hd182015182069%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e181977182029%_))) - (_%tl181979182034%_ - (let () (declare (not safe)) (##cdr _%e181977182029%_)))) + (##car _%e182014182066%_))) + (_%tl182016182071%_ + (let () (declare (not safe)) (##cdr _%e182014182066%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181979182034%_)) - ((lambda (_%L182037%_ _%L182038%_) - (_%nonlinear-expr?181954%_ _%L182037%_)) - _%hd181978182032%_ - _%id181976182026%_) - (_%g181958181984%_ _%g181959181987%_)))) + (gx#stx-null? _%tl182016182071%_)) + ((lambda (_%L182074%_ _%L182075%_) + (_%nonlinear-expr?181991%_ _%L182074%_)) + _%hd182015182069%_ + _%id182013182063%_) + (_%g181995182021%_ _%g181996182024%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181958181984%_ - _%g181959181987%_))))))) - (_%loop181971182010%_ - _%target181968182005%_ + (_%g181995182021%_ + _%g181996182024%_))))))) + (_%loop182008182047%_ + _%target182005182042%_ '())) - (_%g181958181984%_ _%g181959181987%_))))) - (_%g181958181984%_ _%g181959181987%_)))) + (_%g181995182021%_ _%g181996182024%_))))) + (_%g181995182021%_ _%g181996182024%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181958181984%_ - _%g181959181987%_)) - (_%g181958181984%_ - _%g181959181987%_)) - (_%g181958181984%_ - _%g181959181987%_)))) - (_%g181958181984%_ _%g181959181987%_))))) - (_%g181957182059%_ _%kont181956%_)))))) - (_%do-assert181926%_ - _%assert181685%_ + (_%g181995182021%_ + _%g181996182024%_)) + (_%g181995182021%_ + _%g181996182024%_)) + (_%g181995182021%_ + _%g181996182024%_)))) + (_%g181995182021%_ _%g181996182024%_))))) + (_%g181994182096%_ _%kont181993%_)))))) + (_%do-assert181963%_ + _%assert181722%_ (lambda () - (_%do-bind181933%_ - _%bind181686%_ + (_%do-bind181970%_ + _%bind181723%_ (lambda () (if (memq '@match:prefix (let () (declare (not safe)) (gxc#current-annotation-optimizer))) - (_%do-splice!181936%_ - (lambda () (_%optimize-e181937%_ _%body181684%_))) - (_%optimize-e181937%_ _%body181684%_))))))))) + (_%do-splice!181973%_ + (lambda () (_%optimize-e181974%_ _%body181721%_))) + (_%optimize-e181974%_ _%body181721%_))))))))) (define gxc#optimize-match-prune-blocks - (lambda (_%blocks181596%_ _%konts181597%_) - (letrec* ((_%rtab181599%_ + (lambda (_%blocks181633%_ _%konts181634%_) + (letrec* ((_%rtab181636%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block181601%_) - (let ((__tmp192466 (caddr _%block181601%_))) + (lambda (_%block181638%_) + (let ((__tmp192503 (caddr _%block181638%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181599%_ - __tmp192466))) - _%konts181597%_) - (let _%lp181603%_ ((_%rest181605%_ _%blocks181596%_) - (_%r181606%_ '())) - (let* ((_%rest181607181615%_ _%rest181605%_) - (_%else181609181623%_ (lambda () (reverse _%r181606%_))) - (_%K181611181672%_ - (lambda (_%rest181626%_ _%block181627%_) - (let* ((_%block181628181639%_ _%block181627%_) - (_%E181630181643%_ + _%rtab181636%_ + __tmp192503))) + _%konts181634%_) + (let _%lp181640%_ ((_%rest181642%_ _%blocks181633%_) + (_%r181643%_ '())) + (let* ((_%rest181644181652%_ _%rest181642%_) + (_%else181646181660%_ (lambda () (reverse _%r181643%_))) + (_%K181648181709%_ + (lambda (_%rest181663%_ _%block181664%_) + (let* ((_%block181665181676%_ _%block181664%_) + (_%E181667181680%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block181628181639%_ + _%block181665181676%_ '([name type kont . _]))) '#!void)) - (_%K181631181650%_ - (lambda (_%kont181646%_ - _%type181647%_ - _%name181648%_) - (if (let ((__tmp192467 + (_%K181668181687%_ + (lambda (_%kont181683%_ + _%type181684%_ + _%name181685%_) + (if (let ((__tmp192504 (let () (declare (not safe)) (gxc#identifier-symbol - _%name181648%_)))) + _%name181685%_)))) (declare (not safe)) - (__hash-get _%rtab181599%_ __tmp192467)) + (__hash-get _%rtab181636%_ __tmp192504)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181599%_ - _%kont181646%_)) - (_%lp181603%_ - _%rest181626%_ - (cons _%block181627%_ _%r181606%_))) - (_%lp181603%_ - _%rest181626%_ - _%r181606%_))))) - (if (pair? _%block181628181639%_) - (let ((_%hd181632181653%_ + _%rtab181636%_ + _%kont181683%_)) + (_%lp181640%_ + _%rest181663%_ + (cons _%block181664%_ _%r181643%_))) + (_%lp181640%_ + _%rest181663%_ + _%r181643%_))))) + (if (pair? _%block181665181676%_) + (let ((_%hd181669181690%_ (let () (declare (not safe)) - (##car _%block181628181639%_))) - (_%tl181633181655%_ + (##car _%block181665181676%_))) + (_%tl181670181692%_ (let () (declare (not safe)) - (##cdr _%block181628181639%_)))) - (let ((_%name181658%_ _%hd181632181653%_)) - (if (pair? _%tl181633181655%_) - (let ((_%hd181634181660%_ + (##cdr _%block181665181676%_)))) + (let ((_%name181695%_ _%hd181669181690%_)) + (if (pair? _%tl181670181692%_) + (let ((_%hd181671181697%_ (let () (declare (not safe)) - (##car _%tl181633181655%_))) - (_%tl181635181662%_ + (##car _%tl181670181692%_))) + (_%tl181672181699%_ (let () (declare (not safe)) - (##cdr _%tl181633181655%_)))) - (let ((_%type181665%_ - _%hd181634181660%_)) - (if (pair? _%tl181635181662%_) - (let* ((_%hd181636181667%_ + (##cdr _%tl181670181692%_)))) + (let ((_%type181702%_ + _%hd181671181697%_)) + (if (pair? _%tl181672181699%_) + (let* ((_%hd181673181704%_ (let () (declare (not safe)) - (##car _%tl181635181662%_))) - (_%kont181670%_ - _%hd181636181667%_)) - (_%K181631181650%_ - _%kont181670%_ - _%type181665%_ - _%name181658%_)) - (_%E181630181643%_)))) - (_%E181630181643%_)))) - (_%E181630181643%_)))))) - (if (pair? _%rest181607181615%_) - (let ((_%hd181612181675%_ + (##car _%tl181672181699%_))) + (_%kont181707%_ + _%hd181673181704%_)) + (_%K181668181687%_ + _%kont181707%_ + _%type181702%_ + _%name181695%_)) + (_%E181667181680%_)))) + (_%E181667181680%_)))) + (_%E181667181680%_)))))) + (if (pair? _%rest181644181652%_) + (let ((_%hd181649181712%_ (let () (declare (not safe)) - (##car _%rest181607181615%_))) - (_%tl181613181677%_ + (##car _%rest181644181652%_))) + (_%tl181650181714%_ (let () (declare (not safe)) - (##cdr _%rest181607181615%_)))) - (let* ((_%block181680%_ _%hd181612181675%_) - (_%rest181682%_ _%tl181613181677%_)) - (_%K181611181672%_ _%rest181682%_ _%block181680%_))) - (_%else181609181623%_))))))) + (##cdr _%rest181644181652%_)))) + (let* ((_%block181717%_ _%hd181649181712%_) + (_%rest181719%_ _%tl181650181714%_)) + (_%K181648181709%_ _%rest181719%_ _%block181717%_))) + (_%else181646181660%_))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_%blocks181520%_ _%konts181521%_) - (let* ((_%blocks181522181538%_ _%blocks181520%_) - (_%else181524181546%_ (lambda () _%blocks181520%_)) - (_%K181526181564%_ - (lambda (_%rest181549%_ _%kont181550%_ _%name181551%_) - (letrec* ((_%rtab181553%_ + (lambda (_%blocks181557%_ _%konts181558%_) + (let* ((_%blocks181559181575%_ _%blocks181557%_) + (_%else181561181583%_ (lambda () _%blocks181557%_)) + (_%K181563181601%_ + (lambda (_%rest181586%_ _%kont181587%_ _%name181588%_) + (letrec* ((_%rtab181590%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block181555%_) - (let ((__tmp192468 (caddr _%block181555%_))) + (lambda (_%block181592%_) + (let ((__tmp192505 (caddr _%block181592%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181553%_ - __tmp192468))) - _%konts181521%_) - (if (let ((__tmp192469 - (let ((__tmp192470 + _%rtab181590%_ + __tmp192505))) + _%konts181558%_) + (if (let ((__tmp192506 + (let ((__tmp192507 (let () (declare (not safe)) (gxc#identifier-symbol - _%name181551%_)))) + _%name181588%_)))) (declare (not safe)) - (hash-ref__0 _%rtab181553%_ __tmp192470)))) + (hash-ref__0 _%rtab181590%_ __tmp192507)))) (declare (not safe)) - (##fx= __tmp192469 '1)) - (let* ((_%rblock181559%_ - (let ((__tmp192471 - (lambda (_%block181557%_) - (let ((__tmp192473 - (cons _%name181551%_ '())) - (__tmp192472 - (caddr _%block181557%_))) + (##fx= __tmp192506 '1)) + (let* ((_%rblock181596%_ + (let ((__tmp192508 + (lambda (_%block181594%_) + (let ((__tmp192510 + (cons _%name181588%_ '())) + (__tmp192509 + (caddr _%block181594%_))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp192473 - __tmp192472))))) + __tmp192510 + __tmp192509))))) (declare (not safe)) - (__find __tmp192471 _%konts181521%_))) - (_%assert181561%_ + (__find __tmp192508 _%konts181558%_))) + (_%assert181598%_ (gxc#optimize-match-assert-restart - _%rblock181559%_ - _%name181551%_))) - (cons (cons _%name181551%_ + _%rblock181596%_ + _%name181588%_))) + (cons (cons _%name181588%_ (cons 'restart: - (cons _%kont181550%_ - (cons _%assert181561%_ + (cons _%kont181587%_ + (cons _%assert181598%_ '())))) - _%rest181549%_)) - _%blocks181520%_))))) - (if (pair? _%blocks181522181538%_) - (let ((_%hd181527181567%_ + _%rest181586%_)) + _%blocks181557%_))))) + (if (pair? _%blocks181559181575%_) + (let ((_%hd181564181604%_ (let () (declare (not safe)) - (##car _%blocks181522181538%_))) - (_%tl181528181569%_ + (##car _%blocks181559181575%_))) + (_%tl181565181606%_ (let () (declare (not safe)) - (##cdr _%blocks181522181538%_)))) - (if (pair? _%hd181527181567%_) - (let ((_%hd181529181572%_ + (##cdr _%blocks181559181575%_)))) + (if (pair? _%hd181564181604%_) + (let ((_%hd181566181609%_ (let () (declare (not safe)) - (##car _%hd181527181567%_))) - (_%tl181530181574%_ + (##car _%hd181564181604%_))) + (_%tl181567181611%_ (let () (declare (not safe)) - (##cdr _%hd181527181567%_)))) - (let ((_%name181577%_ _%hd181529181572%_)) - (if (pair? _%tl181530181574%_) - (let ((_%hd181531181579%_ + (##cdr _%hd181564181604%_)))) + (let ((_%name181614%_ _%hd181566181609%_)) + (if (pair? _%tl181567181611%_) + (let ((_%hd181568181616%_ (let () (declare (not safe)) - (##car _%tl181530181574%_))) - (_%tl181532181581%_ + (##car _%tl181567181611%_))) + (_%tl181569181618%_ (let () (declare (not safe)) - (##cdr _%tl181530181574%_)))) + (##cdr _%tl181567181611%_)))) (if (let () (declare (not safe)) - (##eq? _%hd181531181579%_ 'restart:)) - (if (pair? _%tl181532181581%_) - (let ((_%hd181533181584%_ + (##eq? _%hd181568181616%_ 'restart:)) + (if (pair? _%tl181569181618%_) + (let ((_%hd181570181621%_ (let () (declare (not safe)) - (##car _%tl181532181581%_))) - (_%tl181534181586%_ + (##car _%tl181569181618%_))) + (_%tl181571181623%_ (let () (declare (not safe)) - (##cdr _%tl181532181581%_)))) - (let ((_%kont181589%_ - _%hd181533181584%_)) - (if (pair? _%tl181534181586%_) - (let ((_%tl181536181591%_ + (##cdr _%tl181569181618%_)))) + (let ((_%kont181626%_ + _%hd181570181621%_)) + (if (pair? _%tl181571181623%_) + (let ((_%tl181573181628%_ (let () (declare (not safe)) - (##cdr _%tl181534181586%_)))) - (if (null? _%tl181536181591%_) - (let ((_%rest181594%_ - _%tl181528181569%_)) - (_%K181526181564%_ - _%rest181594%_ - _%kont181589%_ - _%name181577%_)) - (_%else181524181546%_))) - (_%else181524181546%_)))) - (_%else181524181546%_)) - (_%else181524181546%_))) - (_%else181524181546%_)))) - (_%else181524181546%_))) - (_%else181524181546%_))))) + (##cdr _%tl181571181623%_)))) + (if (null? _%tl181573181628%_) + (let ((_%rest181631%_ + _%tl181565181606%_)) + (_%K181563181601%_ + _%rest181631%_ + _%kont181626%_ + _%name181614%_)) + (_%else181561181583%_))) + (_%else181561181583%_)))) + (_%else181561181583%_)) + (_%else181561181583%_))) + (_%else181561181583%_)))) + (_%else181561181583%_))) + (_%else181561181583%_))))) (define gxc#optimize-match-assert-restart - (lambda (_%block180916%_ _%name180917%_) - (letrec ((_%assert-restart180919%_ - (lambda (_%expr181075%_ _%assert181076%_) - (let* ((_%__stx191475191476%_ _%expr181075%_) - (_%g181082181179%_ + (lambda (_%block180953%_ _%name180954%_) + (letrec ((_%assert-restart180956%_ + (lambda (_%expr181112%_ _%assert181113%_) + (let* ((_%__stx191512191513%_ _%expr181112%_) + (_%g181119181216%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191475191476%_))))) - (let ((_%__kont191477191478%_ - (lambda (_%L181495%_ _%L181496%_ _%L181497%_) - (let ((_%$e181514%_ - (_%assert-restart180919%_ - _%L181496%_ - (cons (cons _%L181497%_ '#t) - _%assert181076%_)))) - (if _%$e181514%_ - _%$e181514%_ - (_%assert-restart180919%_ - _%L181495%_ - (cons (cons _%L181497%_ '#f) - _%assert181076%_)))))) - (_%__kont191479191480%_ - (lambda (_%L181443%_) + _%__stx191512191513%_))))) + (let ((_%__kont191514191515%_ + (lambda (_%L181532%_ _%L181533%_ _%L181534%_) + (let ((_%$e181551%_ + (_%assert-restart180956%_ + _%L181533%_ + (cons (cons _%L181534%_ '#t) + _%assert181113%_)))) + (if _%$e181551%_ + _%$e181551%_ + (_%assert-restart180956%_ + _%L181532%_ + (cons (cons _%L181534%_ '#f) + _%assert181113%_)))))) + (_%__kont191516191517%_ + (lambda (_%L181480%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L181443%_ - _%name180917%_)) - _%assert181076%_ + _%L181480%_ + _%name180954%_)) + _%assert181113%_ '#f))) - (_%__kont191481191482%_ - (lambda (_%L181393%_) - (_%assert-restart180919%_ - _%L181393%_ - _%assert181076%_))) - (_%__kont191483191484%_ - (lambda (_%L181319%_ - _%L181320%_ - _%L181321%_ - _%L181322%_ - _%L181323%_) - (_%assert-restart180919%_ - _%L181321%_ - _%assert181076%_))) - (_%__kont191489191490%_ (lambda () '#f))) - (let ((_%__match191644191645%_ - (lambda (_%e181127181191%_ - _%hd181128181194%_ - _%tl181129181196%_ - _%e181130181199%_ - _%hd181131181202%_ - _%tl181132181204%_ - _%e181133181207%_ - _%hd181134181210%_ - _%tl181135181212%_ - _%e181136181215%_ - _%hd181137181218%_ - _%tl181138181220%_ - _%e181139181223%_ - _%hd181140181226%_ - _%tl181141181228%_ - _%e181142181231%_ - _%hd181143181234%_ - _%tl181144181236%_ - _%e181145181239%_ - _%hd181146181242%_ - _%tl181147181244%_ - _%e181148181247%_ - _%hd181149181250%_ - _%tl181150181252%_ - _%__splice191485191486%_ - _%target181151181255%_ - _%tl181153181257%_) - (letrec ((_%loop181154181260%_ - (lambda (_%hd181152181263%_ - _%id181158181265%_) + (_%__kont191518191519%_ + (lambda (_%L181430%_) + (_%assert-restart180956%_ + _%L181430%_ + _%assert181113%_))) + (_%__kont191520191521%_ + (lambda (_%L181356%_ + _%L181357%_ + _%L181358%_ + _%L181359%_ + _%L181360%_) + (_%assert-restart180956%_ + _%L181358%_ + _%assert181113%_))) + (_%__kont191526191527%_ (lambda () '#f))) + (let ((_%__match191681191682%_ + (lambda (_%e181164181228%_ + _%hd181165181231%_ + _%tl181166181233%_ + _%e181167181236%_ + _%hd181168181239%_ + _%tl181169181241%_ + _%e181170181244%_ + _%hd181171181247%_ + _%tl181172181249%_ + _%e181173181252%_ + _%hd181174181255%_ + _%tl181175181257%_ + _%e181176181260%_ + _%hd181177181263%_ + _%tl181178181265%_ + _%e181179181268%_ + _%hd181180181271%_ + _%tl181181181273%_ + _%e181182181276%_ + _%hd181183181279%_ + _%tl181184181281%_ + _%e181185181284%_ + _%hd181186181287%_ + _%tl181187181289%_ + _%__splice191522191523%_ + _%target181188181292%_ + _%tl181190181294%_) + (letrec ((_%loop181191181297%_ + (lambda (_%hd181189181300%_ + _%id181195181302%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181152181263%_)) - (let ((_%e181155181268%_ + _%hd181189181300%_)) + (let ((_%e181192181305%_ (let () (declare (not safe)) (gx#stx-e - _%hd181152181263%_)))) - (let ((_%lp-tl181157181273%_ + _%hd181189181300%_)))) + (let ((_%lp-tl181194181310%_ (let () (declare (not safe)) - (##cdr _%e181155181268%_))) - (_%lp-hd181156181271%_ + (##cdr _%e181192181305%_))) + (_%lp-hd181193181308%_ (let () (declare (not safe)) - (##car _%e181155181268%_)))) - (_%loop181154181260%_ - _%lp-tl181157181273%_ - (cons _%lp-hd181156181271%_ - _%id181158181265%_)))) - (let ((_%id181159181276%_ - (reverse _%id181158181265%_))) + (##car _%e181192181305%_)))) + (_%loop181191181297%_ + _%lp-tl181194181310%_ + (cons _%lp-hd181193181308%_ + _%id181195181302%_)))) + (let ((_%id181196181313%_ + (reverse _%id181195181302%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181150181252%_)) - (let ((_%e181160181279%_ + _%tl181187181289%_)) + (let ((_%e181197181316%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181150181252%_)))) - (let ((_%tl181162181284%_ + (gx#stx-e _%tl181187181289%_)))) + (let ((_%tl181199181321%_ (let () (declare (not safe)) - (##cdr _%e181160181279%_))) - (_%hd181161181282%_ + (##cdr _%e181197181316%_))) + (_%hd181198181319%_ (let () (declare (not safe)) - (##car _%e181160181279%_)))) + (##car _%e181197181316%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181162181284%_)) + (gx#stx-null? _%tl181199181321%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181144181236%_)) + (gx#stx-null? _%tl181181181273%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl181135181212%_)) - (let ((_%__splice191487191488%_ + (gx#stx-pair/null? _%tl181172181249%_)) + (let ((_%__splice191524191525%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl181135181212%_ + _%tl181172181249%_ '0)))) - (let ((_%tl181165181289%_ + (let ((_%tl181202181326%_ (let () (declare (not safe)) (##vector-ref - _%__splice191487191488%_ + _%__splice191524191525%_ '1))) - (_%target181163181287%_ + (_%target181200181324%_ (let () (declare (not safe)) (##vector-ref - _%__splice191487191488%_ + _%__splice191524191525%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181165181289%_)) - (letrec ((_%loop181166181292%_ - (lambda (_%hd181164181295%_ - _%bind181170181297%_) + (gx#stx-null? _%tl181202181326%_)) + (letrec ((_%loop181203181329%_ + (lambda (_%hd181201181332%_ + _%bind181207181334%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181164181295%_)) - (let ((_%e181167181300%_ + _%hd181201181332%_)) + (let ((_%e181204181337%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd181164181295%_)))) - (let ((_%lp-tl181169181305%_ + (gx#stx-e _%hd181201181332%_)))) + (let ((_%lp-tl181206181342%_ (let () (declare (not safe)) - (##cdr _%e181167181300%_))) - (_%lp-hd181168181303%_ + (##cdr _%e181204181337%_))) + (_%lp-hd181205181340%_ (let () (declare (not safe)) - (##car _%e181167181300%_)))) - (_%loop181166181292%_ - _%lp-tl181169181305%_ - (cons _%lp-hd181168181303%_ _%bind181170181297%_)))) - (let ((_%bind181171181308%_ (reverse _%bind181170181297%_))) + (##car _%e181204181337%_)))) + (_%loop181203181329%_ + _%lp-tl181206181342%_ + (cons _%lp-hd181205181340%_ _%bind181207181334%_)))) + (let ((_%bind181208181345%_ (reverse _%bind181207181334%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181132181204%_)) - (let ((_%e181172181311%_ + (gx#stx-pair? _%tl181169181241%_)) + (let ((_%e181209181348%_ (let () (declare (not safe)) - (gx#stx-e _%tl181132181204%_)))) - (let ((_%tl181174181316%_ + (gx#stx-e _%tl181169181241%_)))) + (let ((_%tl181211181353%_ (let () (declare (not safe)) - (##cdr _%e181172181311%_))) - (_%hd181173181314%_ + (##cdr _%e181209181348%_))) + (_%hd181210181351%_ (let () (declare (not safe)) - (##car _%e181172181311%_)))) + (##car _%e181209181348%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181174181316%_)) - (_%__kont191483191484%_ - _%hd181173181314%_ - _%bind181171181308%_ - _%hd181161181282%_ - _%id181159181276%_ - _%hd181140181226%_) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_))))))) + (gx#stx-null? _%tl181211181353%_)) + (_%__kont191520191521%_ + _%hd181210181351%_ + _%bind181208181345%_ + _%hd181198181319%_ + _%id181196181313%_ + _%hd181177181263%_) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop181166181292%_ - _%target181163181287%_ + (_%loop181203181329%_ + _%target181200181324%_ '())) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)) - (_%__kont191489191490%_)) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_))))))) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)) + (_%__kont191526191527%_)) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop181154181260%_ - _%target181151181255%_ + (_%loop181191181297%_ + _%target181188181292%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191475191476%_)) - (let ((_%e181087181463%_ + (gx#stx-pair? _%__stx191512191513%_)) + (let ((_%e181124181500%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191475191476%_)))) - (let ((_%tl181089181468%_ + (gx#stx-e _%__stx191512191513%_)))) + (let ((_%tl181126181505%_ (let () (declare (not safe)) - (##cdr _%e181087181463%_))) - (_%hd181088181466%_ + (##cdr _%e181124181500%_))) + (_%hd181125181503%_ (let () (declare (not safe)) - (##car _%e181087181463%_)))) + (##car _%e181124181500%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181088181466%_)) + (gx#identifier? _%hd181125181503%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd181088181466%_)) + _%hd181125181503%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181089181468%_)) - (let ((_%e181090181471%_ + _%tl181126181505%_)) + (let ((_%e181127181508%_ (let () (declare (not safe)) (gx#stx-e - _%tl181089181468%_)))) - (let ((_%tl181092181476%_ + _%tl181126181505%_)))) + (let ((_%tl181129181513%_ (let () (declare (not safe)) - (##cdr _%e181090181471%_))) - (_%hd181091181474%_ + (##cdr _%e181127181508%_))) + (_%hd181128181511%_ (let () (declare (not safe)) - (##car _%e181090181471%_)))) + (##car _%e181127181508%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181092181476%_)) - (let ((_%e181093181479%_ + _%tl181129181513%_)) + (let ((_%e181130181516%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181092181476%_)))) - (let ((_%tl181095181484%_ - (let () (declare (not safe)) (##cdr _%e181093181479%_))) - (_%hd181094181482%_ + (gx#stx-e _%tl181129181513%_)))) + (let ((_%tl181132181521%_ + (let () (declare (not safe)) (##cdr _%e181130181516%_))) + (_%hd181131181519%_ (let () (declare (not safe)) - (##car _%e181093181479%_)))) + (##car _%e181130181516%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181095181484%_)) - (let ((_%e181096181487%_ + (gx#stx-pair? _%tl181132181521%_)) + (let ((_%e181133181524%_ (let () (declare (not safe)) - (gx#stx-e _%tl181095181484%_)))) - (let ((_%tl181098181492%_ + (gx#stx-e _%tl181132181521%_)))) + (let ((_%tl181135181529%_ (let () (declare (not safe)) - (##cdr _%e181096181487%_))) - (_%hd181097181490%_ + (##cdr _%e181133181524%_))) + (_%hd181134181527%_ (let () (declare (not safe)) - (##car _%e181096181487%_)))) + (##car _%e181133181524%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181098181492%_)) - (_%__kont191477191478%_ - _%hd181097181490%_ - _%hd181094181482%_ - _%hd181091181474%_) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)))) + (gx#stx-null? _%tl181135181529%_)) + (_%__kont191514191515%_ + _%hd181134181527%_ + _%hd181131181519%_ + _%hd181128181511%_) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191489191490%_)) + (_%__kont191526191527%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd181088181466%_)) + _%hd181125181503%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181089181468%_)) - (let ((_%e181103181419%_ + _%tl181126181505%_)) + (let ((_%e181140181456%_ (let () (declare (not safe)) (gx#stx-e - _%tl181089181468%_)))) - (let ((_%tl181105181424%_ + _%tl181126181505%_)))) + (let ((_%tl181142181461%_ (let () (declare (not safe)) - (##cdr _%e181103181419%_))) - (_%hd181104181422%_ + (##cdr _%e181140181456%_))) + (_%hd181141181459%_ (let () (declare (not safe)) - (##car _%e181103181419%_)))) + (##car _%e181140181456%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181104181422%_)) - (let ((_%e181106181427%_ + _%hd181141181459%_)) + (let ((_%e181143181464%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd181104181422%_)))) - (let ((_%tl181108181432%_ + (gx#stx-e _%hd181141181459%_)))) + (let ((_%tl181145181469%_ (let () (declare (not safe)) - (##cdr _%e181106181427%_))) - (_%hd181107181430%_ + (##cdr _%e181143181464%_))) + (_%hd181144181467%_ (let () (declare (not safe)) - (##car _%e181106181427%_)))) + (##car _%e181143181464%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181107181430%_)) + (gx#identifier? _%hd181144181467%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181107181430%_)) + (gx#stx-eq? '%#ref _%hd181144181467%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181108181432%_)) - (let ((_%e181109181435%_ + (gx#stx-pair? _%tl181145181469%_)) + (let ((_%e181146181472%_ (let () (declare (not safe)) - (gx#stx-e _%tl181108181432%_)))) - (let ((_%tl181111181440%_ + (gx#stx-e _%tl181145181469%_)))) + (let ((_%tl181148181477%_ (let () (declare (not safe)) - (##cdr _%e181109181435%_))) - (_%hd181110181438%_ + (##cdr _%e181146181472%_))) + (_%hd181147181475%_ (let () (declare (not safe)) - (##car _%e181109181435%_)))) + (##car _%e181146181472%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181111181440%_)) - (_%__kont191479191480%_ - _%hd181110181438%_) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)) - (_%__kont191489191490%_)) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)))) + (gx#stx-null? _%tl181148181477%_)) + (_%__kont191516191517%_ + _%hd181147181475%_) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)) + (_%__kont191526191527%_)) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191489191490%_)) + (_%__kont191526191527%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd181088181466%_)) + _%hd181125181503%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181089181468%_)) - (let ((_%e181116181377%_ + _%tl181126181505%_)) + (let ((_%e181153181414%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181089181468%_)))) - (let ((_%tl181118181382%_ - (let () (declare (not safe)) (##cdr _%e181116181377%_))) - (_%hd181117181380%_ + (gx#stx-e _%tl181126181505%_)))) + (let ((_%tl181155181419%_ + (let () (declare (not safe)) (##cdr _%e181153181414%_))) + (_%hd181154181417%_ (let () (declare (not safe)) - (##car _%e181116181377%_)))) + (##car _%e181153181414%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181118181382%_)) - (let ((_%e181119181385%_ + (gx#stx-pair? _%tl181155181419%_)) + (let ((_%e181156181422%_ (let () (declare (not safe)) - (gx#stx-e _%tl181118181382%_)))) - (let ((_%tl181121181390%_ + (gx#stx-e _%tl181155181419%_)))) + (let ((_%tl181158181427%_ (let () (declare (not safe)) - (##cdr _%e181119181385%_))) - (_%hd181120181388%_ + (##cdr _%e181156181422%_))) + (_%hd181157181425%_ (let () (declare (not safe)) - (##car _%e181119181385%_)))) + (##car _%e181156181422%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181121181390%_)) - (_%__kont191481191482%_ _%hd181120181388%_) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)) + (gx#stx-null? _%tl181158181427%_)) + (_%__kont191518191519%_ _%hd181157181425%_) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd181088181466%_)) + _%hd181125181503%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181089181468%_)) - (let ((_%e181130181199%_ + _%tl181126181505%_)) + (let ((_%e181167181236%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl181089181468%_)))) - (let ((_%tl181132181204%_ + (gx#stx-e _%tl181126181505%_)))) + (let ((_%tl181169181241%_ (let () (declare (not safe)) - (##cdr _%e181130181199%_))) - (_%hd181131181202%_ + (##cdr _%e181167181236%_))) + (_%hd181168181239%_ (let () (declare (not safe)) - (##car _%e181130181199%_)))) + (##car _%e181167181236%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181131181202%_)) - (let ((_%e181133181207%_ + (gx#stx-pair? _%hd181168181239%_)) + (let ((_%e181170181244%_ (let () (declare (not safe)) - (gx#stx-e _%hd181131181202%_)))) - (let ((_%tl181135181212%_ + (gx#stx-e _%hd181168181239%_)))) + (let ((_%tl181172181249%_ (let () (declare (not safe)) - (##cdr _%e181133181207%_))) - (_%hd181134181210%_ + (##cdr _%e181170181244%_))) + (_%hd181171181247%_ (let () (declare (not safe)) - (##car _%e181133181207%_)))) + (##car _%e181170181244%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181134181210%_)) - (let ((_%e181136181215%_ + (gx#stx-pair? _%hd181171181247%_)) + (let ((_%e181173181252%_ (let () (declare (not safe)) - (gx#stx-e _%hd181134181210%_)))) - (let ((_%tl181138181220%_ + (gx#stx-e _%hd181171181247%_)))) + (let ((_%tl181175181257%_ (let () (declare (not safe)) - (##cdr _%e181136181215%_))) - (_%hd181137181218%_ + (##cdr _%e181173181252%_))) + (_%hd181174181255%_ (let () (declare (not safe)) - (##car _%e181136181215%_)))) + (##car _%e181173181252%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181137181218%_)) - (let ((_%e181139181223%_ + (gx#stx-pair? _%hd181174181255%_)) + (let ((_%e181176181260%_ (let () (declare (not safe)) (gx#stx-e - _%hd181137181218%_)))) - (let ((_%tl181141181228%_ + _%hd181174181255%_)))) + (let ((_%tl181178181265%_ (let () (declare (not safe)) - (##cdr _%e181139181223%_))) - (_%hd181140181226%_ + (##cdr _%e181176181260%_))) + (_%hd181177181263%_ (let () (declare (not safe)) - (##car _%e181139181223%_)))) + (##car _%e181176181260%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181141181228%_)) + _%tl181178181265%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181138181220%_)) - (let ((_%e181142181231%_ + _%tl181175181257%_)) + (let ((_%e181179181268%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181138181220%_)))) - (let ((_%tl181144181236%_ - (let () (declare (not safe)) (##cdr _%e181142181231%_))) - (_%hd181143181234%_ + (gx#stx-e _%tl181175181257%_)))) + (let ((_%tl181181181273%_ + (let () (declare (not safe)) (##cdr _%e181179181268%_))) + (_%hd181180181271%_ (let () (declare (not safe)) - (##car _%e181142181231%_)))) + (##car _%e181179181268%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181143181234%_)) - (let ((_%e181145181239%_ + (gx#stx-pair? _%hd181180181271%_)) + (let ((_%e181182181276%_ (let () (declare (not safe)) - (gx#stx-e _%hd181143181234%_)))) - (let ((_%tl181147181244%_ + (gx#stx-e _%hd181180181271%_)))) + (let ((_%tl181184181281%_ (let () (declare (not safe)) - (##cdr _%e181145181239%_))) - (_%hd181146181242%_ + (##cdr _%e181182181276%_))) + (_%hd181183181279%_ (let () (declare (not safe)) - (##car _%e181145181239%_)))) + (##car _%e181182181276%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181146181242%_)) + (gx#identifier? _%hd181183181279%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd181146181242%_)) + (gx#stx-eq? '%#lambda _%hd181183181279%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181147181244%_)) - (let ((_%e181148181247%_ + (gx#stx-pair? _%tl181184181281%_)) + (let ((_%e181185181284%_ (let () (declare (not safe)) - (gx#stx-e _%tl181147181244%_)))) - (let ((_%tl181150181252%_ + (gx#stx-e _%tl181184181281%_)))) + (let ((_%tl181187181289%_ (let () (declare (not safe)) - (##cdr _%e181148181247%_))) - (_%hd181149181250%_ + (##cdr _%e181185181284%_))) + (_%hd181186181287%_ (let () (declare (not safe)) - (##car _%e181148181247%_)))) + (##car _%e181185181284%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd181149181250%_)) - (let ((_%__splice191485191486%_ + _%hd181186181287%_)) + (let ((_%__splice191522191523%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd181149181250%_ + _%hd181186181287%_ '0)))) - (let ((_%tl181153181257%_ + (let ((_%tl181190181294%_ (let () (declare (not safe)) (##vector-ref - _%__splice191485191486%_ + _%__splice191522191523%_ '1))) - (_%target181151181255%_ + (_%target181188181292%_ (let () (declare (not safe)) (##vector-ref - _%__splice191485191486%_ + _%__splice191522191523%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181153181257%_)) - (_%__match191644191645%_ - _%e181087181463%_ - _%hd181088181466%_ - _%tl181089181468%_ - _%e181130181199%_ - _%hd181131181202%_ - _%tl181132181204%_ - _%e181133181207%_ - _%hd181134181210%_ - _%tl181135181212%_ - _%e181136181215%_ - _%hd181137181218%_ - _%tl181138181220%_ - _%e181139181223%_ - _%hd181140181226%_ - _%tl181141181228%_ - _%e181142181231%_ - _%hd181143181234%_ - _%tl181144181236%_ - _%e181145181239%_ - _%hd181146181242%_ - _%tl181147181244%_ - _%e181148181247%_ - _%hd181149181250%_ - _%tl181150181252%_ - _%__splice191485191486%_ - _%target181151181255%_ - _%tl181153181257%_) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)) - (_%__kont191489191490%_)) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)) + _%tl181190181294%_)) + (_%__match191681191682%_ + _%e181124181500%_ + _%hd181125181503%_ + _%tl181126181505%_ + _%e181167181236%_ + _%hd181168181239%_ + _%tl181169181241%_ + _%e181170181244%_ + _%hd181171181247%_ + _%tl181172181249%_ + _%e181173181252%_ + _%hd181174181255%_ + _%tl181175181257%_ + _%e181176181260%_ + _%hd181177181263%_ + _%tl181178181265%_ + _%e181179181268%_ + _%hd181180181271%_ + _%tl181181181273%_ + _%e181182181276%_ + _%hd181183181279%_ + _%tl181184181281%_ + _%e181185181284%_ + _%hd181186181287%_ + _%tl181187181289%_ + _%__splice191522191523%_ + _%target181188181292%_ + _%tl181190181294%_) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)) + (_%__kont191526191527%_)) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)) - (_%__kont191489191490%_))))) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)) + (_%__kont191526191527%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191489191490%_)))) - (_%__kont191489191490%_)))))))) - (let* ((_%block180920180933%_ _%block180916%_) - (_%E180922180937%_ + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))))))) + (let* ((_%block180957180970%_ _%block180953%_) + (_%E180959180974%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block180920180933%_ + _%block180957180970%_ '([_ _ kont assert . maybe-bind]))) '#!void)) - (_%K180923181050%_ - (lambda (_%maybe-bind180940%_ - _%assert180941%_ - _%kont180942%_) - (let* ((_%g180944180970%_ - (lambda (_%g180945180967%_) + (_%K180960181087%_ + (lambda (_%maybe-bind180977%_ + _%assert180978%_ + _%kont180979%_) + (let* ((_%g180981181007%_ + (lambda (_%g180982181004%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180945180967%_)))) - (_%g180943181047%_ - (lambda (_%g180945180973%_) + _%g180982181004%_)))) + (_%g180980181084%_ + (lambda (_%g180982181010%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180945180973%_)) - (let ((_%e180948180975%_ + (gx#stx-pair? _%g180982181010%_)) + (let ((_%e180985181012%_ (let () (declare (not safe)) - (gx#stx-e _%g180945180973%_)))) - (let ((_%hd180949180978%_ + (gx#stx-e _%g180982181010%_)))) + (let ((_%hd180986181015%_ (let () (declare (not safe)) - (##car _%e180948180975%_))) - (_%tl180950180980%_ + (##car _%e180985181012%_))) + (_%tl180987181017%_ (let () (declare (not safe)) - (##cdr _%e180948180975%_)))) + (##cdr _%e180985181012%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180949180978%_)) + _%hd180986181015%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd180949180978%_)) + _%hd180986181015%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180950180980%_)) - (let ((_%e180951180983%_ + _%tl180987181017%_)) + (let ((_%e180988181020%_ (let () (declare (not safe)) (gx#stx-e - _%tl180950180980%_)))) - (let ((_%hd180952180986%_ + _%tl180987181017%_)))) + (let ((_%hd180989181023%_ (let () (declare (not safe)) - (##car _%e180951180983%_))) - (_%tl180953180988%_ + (##car _%e180988181020%_))) + (_%tl180990181025%_ (let () (declare (not safe)) - (##cdr _%e180951180983%_)))) + (##cdr _%e180988181020%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd180952180986%_)) - (let ((_g192474_ + _%hd180989181023%_)) + (let ((_g192511_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd180952180986%_ '0)))) + (gx#syntax-split-splice _%hd180989181023%_ '0)))) (begin - (let ((_g192475_ + (let ((_g192512_ (let () (declare (not safe)) - (if (##values? _g192474_) - (##vector-length _g192474_) + (if (##values? _g192511_) + (##vector-length _g192511_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192475_ 2))) - (error "Context expects 2 values" _g192475_))) - (let ((_%target180954180991%_ + (##fx= _g192512_ 2))) + (error "Context expects 2 values" _g192512_))) + (let ((_%target180991181028%_ (let () (declare (not safe)) - (##vector-ref _g192474_ 0))) - (_%tl180956180993%_ + (##vector-ref _g192511_ 0))) + (_%tl180993181030%_ (let () (declare (not safe)) - (##vector-ref _g192474_ 1)))) + (##vector-ref _g192511_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180956180993%_)) - (letrec ((_%loop180957180996%_ - (lambda (_%hd180955180999%_ - _%id180961181001%_) + (gx#stx-null? _%tl180993181030%_)) + (letrec ((_%loop180994181033%_ + (lambda (_%hd180992181036%_ + _%id180998181038%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180955180999%_)) - (let ((_%e180958181004%_ + _%hd180992181036%_)) + (let ((_%e180995181041%_ (let () (declare (not safe)) (gx#stx-e - _%hd180955180999%_)))) - (let ((_%lp-hd180959181007%_ + _%hd180992181036%_)))) + (let ((_%lp-hd180996181044%_ (let () (declare (not safe)) - (##car _%e180958181004%_))) - (_%lp-tl180960181009%_ + (##car _%e180995181041%_))) + (_%lp-tl180997181046%_ (let () (declare (not safe)) - (##cdr _%e180958181004%_)))) - (_%loop180957180996%_ - _%lp-tl180960181009%_ - (cons _%lp-hd180959181007%_ - _%id180961181001%_)))) - (let ((_%id180962181012%_ - (reverse _%id180961181001%_))) + (##cdr _%e180995181041%_)))) + (_%loop180994181033%_ + _%lp-tl180997181046%_ + (cons _%lp-hd180996181044%_ + _%id180998181038%_)))) + (let ((_%id180999181049%_ + (reverse _%id180998181038%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180953180988%_)) - (let ((_%e180963181015%_ + _%tl180990181025%_)) + (let ((_%e181000181052%_ (let () (declare (not safe)) (gx#stx-e - _%tl180953180988%_)))) - (let ((_%hd180964181018%_ + _%tl180990181025%_)))) + (let ((_%hd181001181055%_ (let () (declare (not safe)) - (##car _%e180963181015%_))) - (_%tl180965181020%_ + (##car _%e181000181052%_))) + (_%tl181002181057%_ (let () (declare (not safe)) - (##cdr _%e180963181015%_)))) + (##cdr _%e181000181052%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180965181020%_)) - ((lambda (_%L181023%_ + _%tl181002181057%_)) + ((lambda (_%L181060%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L181024%_) - (_%assert-restart180919%_ _%L181023%_ _%assert180941%_)) - _%hd180964181018%_ - _%id180962181012%_) - (_%g180944180970%_ _%g180945180973%_)))) + _%L181061%_) + (_%assert-restart180956%_ _%L181060%_ _%assert180978%_)) + _%hd181001181055%_ + _%id180999181049%_) + (_%g180981181007%_ _%g180982181010%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180944180970%_ - _%g180945180973%_))))))) - (_%loop180957180996%_ - _%target180954180991%_ + (_%g180981181007%_ + _%g180982181010%_))))))) + (_%loop180994181033%_ + _%target180991181028%_ '())) - (_%g180944180970%_ _%g180945180973%_))))) - (_%g180944180970%_ _%g180945180973%_)))) + (_%g180981181007%_ _%g180982181010%_))))) + (_%g180981181007%_ _%g180982181010%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180944180970%_ - _%g180945180973%_)) - (_%g180944180970%_ - _%g180945180973%_)) - (_%g180944180970%_ - _%g180945180973%_)))) - (_%g180944180970%_ _%g180945180973%_))))) - (_%g180943181047%_ _%kont180942%_))))) - (if (pair? _%block180920180933%_) - (let ((_%tl180925181053%_ + (_%g180981181007%_ + _%g180982181010%_)) + (_%g180981181007%_ + _%g180982181010%_)) + (_%g180981181007%_ + _%g180982181010%_)))) + (_%g180981181007%_ _%g180982181010%_))))) + (_%g180980181084%_ _%kont180979%_))))) + (if (pair? _%block180957180970%_) + (let ((_%tl180962181090%_ (let () (declare (not safe)) - (##cdr _%block180920180933%_)))) - (if (pair? _%tl180925181053%_) - (let ((_%tl180927181056%_ + (##cdr _%block180957180970%_)))) + (if (pair? _%tl180962181090%_) + (let ((_%tl180964181093%_ (let () (declare (not safe)) - (##cdr _%tl180925181053%_)))) - (if (pair? _%tl180927181056%_) - (let ((_%hd180928181059%_ + (##cdr _%tl180962181090%_)))) + (if (pair? _%tl180964181093%_) + (let ((_%hd180965181096%_ (let () (declare (not safe)) - (##car _%tl180927181056%_))) - (_%tl180929181061%_ + (##car _%tl180964181093%_))) + (_%tl180966181098%_ (let () (declare (not safe)) - (##cdr _%tl180927181056%_)))) - (let ((_%kont181064%_ _%hd180928181059%_)) - (if (pair? _%tl180929181061%_) - (let ((_%hd180930181066%_ + (##cdr _%tl180964181093%_)))) + (let ((_%kont181101%_ _%hd180965181096%_)) + (if (pair? _%tl180966181098%_) + (let ((_%hd180967181103%_ (let () (declare (not safe)) - (##car _%tl180929181061%_))) - (_%tl180931181068%_ + (##car _%tl180966181098%_))) + (_%tl180968181105%_ (let () (declare (not safe)) - (##cdr _%tl180929181061%_)))) - (let* ((_%assert181071%_ - _%hd180930181066%_) - (_%maybe-bind181073%_ - _%tl180931181068%_)) - (_%K180923181050%_ - _%maybe-bind181073%_ - _%assert181071%_ - _%kont181064%_))) - (_%E180922180937%_)))) - (_%E180922180937%_))) - (_%E180922180937%_))) - (_%E180922180937%_)))))) + (##cdr _%tl180966181098%_)))) + (let* ((_%assert181108%_ + _%hd180967181103%_) + (_%maybe-bind181110%_ + _%tl180968181105%_)) + (_%K180960181087%_ + _%maybe-bind181110%_ + _%assert181108%_ + _%kont181101%_))) + (_%E180959180974%_)))) + (_%E180959180974%_))) + (_%E180959180974%_))) + (_%E180959180974%_)))))) (define gxc#optimize-syntax-case - (lambda (_%stx180547%_) - (let* ((_%g180549180579%_ - (lambda (_%g180550180576%_) + (lambda (_%stx180584%_) + (let* ((_%g180586180616%_ + (lambda (_%g180587180613%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180550180576%_)))) - (_%g180548180913%_ - (lambda (_%g180550180582%_) + _%g180587180613%_)))) + (_%g180585180950%_ + (lambda (_%g180587180619%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180550180582%_)) - (let ((_%e180554180584%_ + (gx#stx-pair? _%g180587180619%_)) + (let ((_%e180591180621%_ (let () (declare (not safe)) - (gx#stx-e _%g180550180582%_)))) - (let ((_%hd180555180587%_ + (gx#stx-e _%g180587180619%_)))) + (let ((_%hd180592180624%_ (let () (declare (not safe)) - (##car _%e180554180584%_))) - (_%tl180556180589%_ + (##car _%e180591180621%_))) + (_%tl180593180626%_ (let () (declare (not safe)) - (##cdr _%e180554180584%_)))) + (##cdr _%e180591180621%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180555180587%_)) + (gx#identifier? _%hd180592180624%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180555180587%_)) + _%hd180592180624%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180556180589%_)) - (let ((_%e180557180592%_ + (gx#stx-pair? _%tl180593180626%_)) + (let ((_%e180594180629%_ (let () (declare (not safe)) - (gx#stx-e _%tl180556180589%_)))) - (let ((_%hd180558180595%_ + (gx#stx-e _%tl180593180626%_)))) + (let ((_%hd180595180632%_ (let () (declare (not safe)) - (##car _%e180557180592%_))) - (_%tl180559180597%_ + (##car _%e180594180629%_))) + (_%tl180596180634%_ (let () (declare (not safe)) - (##cdr _%e180557180592%_)))) + (##cdr _%e180594180629%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180558180595%_)) - (let ((_%e180560180600%_ + _%hd180595180632%_)) + (let ((_%e180597180637%_ (let () (declare (not safe)) (gx#stx-e - _%hd180558180595%_)))) - (let ((_%hd180561180603%_ + _%hd180595180632%_)))) + (let ((_%hd180598180640%_ (let () (declare (not safe)) - (##car _%e180560180600%_))) - (_%tl180562180605%_ + (##car _%e180597180637%_))) + (_%tl180599180642%_ (let () (declare (not safe)) - (##cdr _%e180560180600%_)))) + (##cdr _%e180597180637%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180561180603%_)) - (let ((_%e180563180608%_ + _%hd180598180640%_)) + (let ((_%e180600180645%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd180561180603%_)))) - (let ((_%hd180564180611%_ - (let () (declare (not safe)) (##car _%e180563180608%_))) - (_%tl180565180613%_ + (gx#stx-e _%hd180598180640%_)))) + (let ((_%hd180601180648%_ + (let () (declare (not safe)) (##car _%e180600180645%_))) + (_%tl180602180650%_ (let () (declare (not safe)) - (##cdr _%e180563180608%_)))) + (##cdr _%e180600180645%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180564180611%_)) - (let ((_%e180566180616%_ + (gx#stx-pair? _%hd180601180648%_)) + (let ((_%e180603180653%_ (let () (declare (not safe)) - (gx#stx-e _%hd180564180611%_)))) - (let ((_%hd180567180619%_ + (gx#stx-e _%hd180601180648%_)))) + (let ((_%hd180604180656%_ (let () (declare (not safe)) - (##car _%e180566180616%_))) - (_%tl180568180621%_ + (##car _%e180603180653%_))) + (_%tl180605180658%_ (let () (declare (not safe)) - (##cdr _%e180566180616%_)))) + (##cdr _%e180603180653%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180568180621%_)) + (gx#stx-null? _%tl180605180658%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180565180613%_)) - (let ((_%e180569180624%_ + (gx#stx-pair? _%tl180602180650%_)) + (let ((_%e180606180661%_ (let () (declare (not safe)) - (gx#stx-e _%tl180565180613%_)))) - (let ((_%hd180570180627%_ + (gx#stx-e _%tl180602180650%_)))) + (let ((_%hd180607180664%_ (let () (declare (not safe)) - (##car _%e180569180624%_))) - (_%tl180571180629%_ + (##car _%e180606180661%_))) + (_%tl180608180666%_ (let () (declare (not safe)) - (##cdr _%e180569180624%_)))) + (##cdr _%e180606180661%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180571180629%_)) + (gx#stx-null? _%tl180608180666%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180562180605%_)) + _%tl180599180642%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180559180597%_)) - (let ((_%e180572180632%_ + _%tl180596180634%_)) + (let ((_%e180609180669%_ (let () (declare (not safe)) (gx#stx-e - _%tl180559180597%_)))) - (let ((_%hd180573180635%_ + _%tl180596180634%_)))) + (let ((_%hd180610180672%_ (let () (declare (not safe)) - (##car _%e180572180632%_))) - (_%tl180574180637%_ + (##car _%e180609180669%_))) + (_%tl180611180674%_ (let () (declare (not safe)) - (##cdr _%e180572180632%_)))) + (##cdr _%e180609180669%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180574180637%_)) - ((lambda (_%L180640%_ + _%tl180611180674%_)) + ((lambda (_%L180677%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L180641%_ - _%L180642%_) - (let _%lp180666%_ ((_%body180668%_ _%L180640%_) - (_%clauses180669%_ '())) - (let* ((_%__stx191647191648%_ _%body180668%_) - (_%g180672180719%_ + _%L180678%_ + _%L180679%_) + (let _%lp180703%_ ((_%body180705%_ _%L180677%_) + (_%clauses180706%_ '())) + (let* ((_%__stx191684191685%_ _%body180705%_) + (_%g180709180756%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191647191648%_))))) - (let ((_%__kont191649191650%_ - (lambda (_%L180885%_ _%L180886%_ _%L180887%_) - (_%lp180666%_ - _%L180885%_ - (cons (cons _%L180887%_ + _%__stx191684191685%_))))) + (let ((_%__kont191686191687%_ + (lambda (_%L180922%_ _%L180923%_ _%L180924%_) + (_%lp180703%_ + _%L180922%_ + (cons (cons _%L180924%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L180886%_))) - _%clauses180669%_)))) - (_%__kont191651191652%_ - (lambda (_%L180764%_ _%L180765%_) - (let ((_%$e180786%_ - (length _%clauses180669%_))) - (if (eq? '0 _%$e180786%_) - (let ((__tmp192476 + _%L180923%_))) + _%clauses180706%_)))) + (_%__kont191688191689%_ + (lambda (_%L180801%_ _%L180802%_) + (let ((_%$e180823%_ + (length _%clauses180706%_))) + (if (eq? '0 _%$e180823%_) + (let ((__tmp192513 (cons '%#let-values - (cons (cons (cons (cons _%L180642%_ + (cons (cons (cons (cons _%L180679%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L180641%_ '())) + (cons _%L180678%_ '())) '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%body180668%_)) + (gxc#compile-e__0 _%body180705%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp192476 - _%stx180547%_)) - (if (eq? '1 _%$e180786%_) - (let* ((_%clauses180788180797%_ - _%clauses180669%_) - (_%E180790180801%_ + __tmp192513 + _%stx180584%_)) + (if (eq? '1 _%$e180823%_) + (let* ((_%clauses180825180834%_ + _%clauses180706%_) + (_%E180827180838%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses180788180797%_ + _%clauses180825180834%_ '([[clause ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . clause-lambda]]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K180791180807%_ - (lambda (_%clause-lambda180804%_ - _%clause180805%_) - (let ((__tmp192477 + (_%K180828180844%_ + (lambda (_%clause-lambda180841%_ + _%clause180842%_) + (let ((__tmp192514 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L180642%_ '()) - (cons _%L180641%_ '())) + (cons (cons (cons (cons _%L180679%_ '()) + (cons _%L180678%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%clause180805%_ + (cons (cons (cons (cons _%clause180842%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%clause-lambda180804%_ '())) + (cons _%clause-lambda180841%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%body180668%_)) + _%body180705%_)) '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192477 _%stx180547%_))))) + (gxc#xform-wrap-source __tmp192514 _%stx180584%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%clauses180788180797%_) - (let ((_%hd180792180810%_ + (if (pair? _%clauses180825180834%_) + (let ((_%hd180829180847%_ (let () (declare (not safe)) - (##car _%clauses180788180797%_))) - (_%tl180793180812%_ + (##car _%clauses180825180834%_))) + (_%tl180830180849%_ (let () (declare (not safe)) - (##cdr _%clauses180788180797%_)))) - (if (pair? _%hd180792180810%_) - (let ((_%hd180794180815%_ + (##cdr _%clauses180825180834%_)))) + (if (pair? _%hd180829180847%_) + (let ((_%hd180831180852%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%hd180792180810%_))) - (_%tl180795180817%_ + (##car _%hd180829180847%_))) + (_%tl180832180854%_ (let () (declare (not safe)) - (##cdr _%hd180792180810%_)))) - (let* ((_%clause180820%_ _%hd180794180815%_) - (_%clause-lambda180822%_ _%tl180795180817%_)) - (if (null? _%tl180793180812%_) - (_%K180791180807%_ - _%clause-lambda180822%_ - _%clause180820%_) - (_%E180790180801%_)))) - (_%E180790180801%_))) + (##cdr _%hd180829180847%_)))) + (let* ((_%clause180857%_ _%hd180831180852%_) + (_%clause-lambda180859%_ _%tl180832180854%_)) + (if (null? _%tl180830180849%_) + (_%K180828180844%_ + _%clause-lambda180859%_ + _%clause180857%_) + (_%E180827180838%_)))) + (_%E180827180838%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E180790180801%_))) + (_%E180827180838%_))) (gxc#optimize-syntax-case-body - _%stx180547%_ + _%stx180584%_ (let () (declare (not safe)) - (gxc#compile-e__0 _%L180764%_)) - (cons _%L180642%_ _%L180641%_) - _%clauses180669%_))))))) + (gxc#compile-e__0 _%L180801%_)) + (cons _%L180679%_ _%L180678%_) + _%clauses180706%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191647191648%_)) - (let ((_%e180677180829%_ + (gx#stx-pair? _%__stx191684191685%_)) + (let ((_%e180714180866%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191647191648%_)))) - (let ((_%tl180679180834%_ + (gx#stx-e _%__stx191684191685%_)))) + (let ((_%tl180716180871%_ (let () (declare (not safe)) - (##cdr _%e180677180829%_))) - (_%hd180678180832%_ + (##cdr _%e180714180866%_))) + (_%hd180715180869%_ (let () (declare (not safe)) - (##car _%e180677180829%_)))) + (##car _%e180714180866%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180678180832%_)) + (gx#identifier? _%hd180715180869%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180678180832%_)) + _%hd180715180869%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180679180834%_)) - (let ((_%e180680180837%_ + _%tl180716180871%_)) + (let ((_%e180717180874%_ (let () (declare (not safe)) (gx#stx-e - _%tl180679180834%_)))) - (let ((_%tl180682180842%_ + _%tl180716180871%_)))) + (let ((_%tl180719180879%_ (let () (declare (not safe)) - (##cdr _%e180680180837%_))) - (_%hd180681180840%_ + (##cdr _%e180717180874%_))) + (_%hd180718180877%_ (let () (declare (not safe)) - (##car _%e180680180837%_)))) + (##car _%e180717180874%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180681180840%_)) - (let ((_%e180683180845%_ + _%hd180718180877%_)) + (let ((_%e180720180882%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd180681180840%_)))) - (let ((_%tl180685180850%_ + (gx#stx-e _%hd180718180877%_)))) + (let ((_%tl180722180887%_ (let () (declare (not safe)) - (##cdr _%e180683180845%_))) - (_%hd180684180848%_ + (##cdr _%e180720180882%_))) + (_%hd180721180885%_ (let () (declare (not safe)) - (##car _%e180683180845%_)))) + (##car _%e180720180882%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180684180848%_)) - (let ((_%e180686180853%_ + (gx#stx-pair? _%hd180721180885%_)) + (let ((_%e180723180890%_ (let () (declare (not safe)) - (gx#stx-e _%hd180684180848%_)))) - (let ((_%tl180688180858%_ + (gx#stx-e _%hd180721180885%_)))) + (let ((_%tl180725180895%_ (let () (declare (not safe)) - (##cdr _%e180686180853%_))) - (_%hd180687180856%_ + (##cdr _%e180723180890%_))) + (_%hd180724180893%_ (let () (declare (not safe)) - (##car _%e180686180853%_)))) + (##car _%e180723180890%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180687180856%_)) - (let ((_%e180689180861%_ + (gx#stx-pair? _%hd180724180893%_)) + (let ((_%e180726180898%_ (let () (declare (not safe)) - (gx#stx-e _%hd180687180856%_)))) - (let ((_%tl180691180866%_ + (gx#stx-e _%hd180724180893%_)))) + (let ((_%tl180728180903%_ (let () (declare (not safe)) - (##cdr _%e180689180861%_))) - (_%hd180690180864%_ + (##cdr _%e180726180898%_))) + (_%hd180727180901%_ (let () (declare (not safe)) - (##car _%e180689180861%_)))) + (##car _%e180726180898%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180691180866%_)) + (gx#stx-null? _%tl180728180903%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180688180858%_)) - (let ((_%e180692180869%_ + (gx#stx-pair? _%tl180725180895%_)) + (let ((_%e180729180906%_ (let () (declare (not safe)) (gx#stx-e - _%tl180688180858%_)))) - (let ((_%tl180694180874%_ + _%tl180725180895%_)))) + (let ((_%tl180731180911%_ (let () (declare (not safe)) - (##cdr _%e180692180869%_))) - (_%hd180693180872%_ + (##cdr _%e180729180906%_))) + (_%hd180730180909%_ (let () (declare (not safe)) - (##car _%e180692180869%_)))) + (##car _%e180729180906%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180694180874%_)) + _%tl180731180911%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180685180850%_)) + _%tl180722180887%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180682180842%_)) - (let ((_%e180695180877%_ + _%tl180719180879%_)) + (let ((_%e180732180914%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl180682180842%_)))) - (let ((_%tl180697180882%_ + (gx#stx-e _%tl180719180879%_)))) + (let ((_%tl180734180919%_ (let () (declare (not safe)) - (##cdr _%e180695180877%_))) - (_%hd180696180880%_ + (##cdr _%e180732180914%_))) + (_%hd180733180917%_ (let () (declare (not safe)) - (##car _%e180695180877%_)))) + (##car _%e180732180914%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180697180882%_)) - (_%__kont191649191650%_ - _%hd180696180880%_ - _%hd180693180872%_ - _%hd180690180864%_) - (let () (declare (not safe)) (_%g180672180719%_))))) - (let () (declare (not safe)) (_%g180672180719%_))) - (let () (declare (not safe)) (_%g180672180719%_))) + (gx#stx-null? _%tl180734180919%_)) + (_%__kont191686191687%_ + _%hd180733180917%_ + _%hd180730180909%_ + _%hd180727180901%_) + (let () (declare (not safe)) (_%g180709180756%_))))) + (let () (declare (not safe)) (_%g180709180756%_))) + (let () (declare (not safe)) (_%g180709180756%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180672180719%_))))) + (_%g180709180756%_))))) (let () (declare (not safe)) - (_%g180672180719%_))) + (_%g180709180756%_))) (let () (declare (not safe)) - (_%g180672180719%_))))) + (_%g180709180756%_))))) (let () (declare (not safe)) - (_%g180672180719%_))))) - (let () (declare (not safe)) (_%g180672180719%_))))) - (let () (declare (not safe)) (_%g180672180719%_))))) + (_%g180709180756%_))))) + (let () (declare (not safe)) (_%g180709180756%_))))) + (let () (declare (not safe)) (_%g180709180756%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180672180719%_))) + (_%g180709180756%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd180678180832%_)) + _%hd180715180869%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180679180834%_)) - (let ((_%e180703180732%_ + _%tl180716180871%_)) + (let ((_%e180740180769%_ (let () (declare (not safe)) (gx#stx-e - _%tl180679180834%_)))) - (let ((_%tl180705180737%_ + _%tl180716180871%_)))) + (let ((_%tl180742180774%_ (let () (declare (not safe)) - (##cdr _%e180703180732%_))) - (_%hd180704180735%_ + (##cdr _%e180740180769%_))) + (_%hd180741180772%_ (let () (declare (not safe)) - (##car _%e180703180732%_)))) + (##car _%e180740180769%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180704180735%_)) - (let ((_%e180706180740%_ + _%hd180741180772%_)) + (let ((_%e180743180777%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd180704180735%_)))) - (let ((_%tl180708180745%_ + (gx#stx-e _%hd180741180772%_)))) + (let ((_%tl180745180782%_ (let () (declare (not safe)) - (##cdr _%e180706180740%_))) - (_%hd180707180743%_ + (##cdr _%e180743180777%_))) + (_%hd180744180780%_ (let () (declare (not safe)) - (##car _%e180706180740%_)))) + (##car _%e180743180777%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180707180743%_)) + (gx#identifier? _%hd180744180780%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180707180743%_)) + (gx#stx-eq? '%#ref _%hd180744180780%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180708180745%_)) - (let ((_%e180709180748%_ + (gx#stx-pair? _%tl180745180782%_)) + (let ((_%e180746180785%_ (let () (declare (not safe)) - (gx#stx-e _%tl180708180745%_)))) - (let ((_%tl180711180753%_ + (gx#stx-e _%tl180745180782%_)))) + (let ((_%tl180748180790%_ (let () (declare (not safe)) - (##cdr _%e180709180748%_))) - (_%hd180710180751%_ + (##cdr _%e180746180785%_))) + (_%hd180747180788%_ (let () (declare (not safe)) - (##car _%e180709180748%_)))) + (##car _%e180746180785%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180711180753%_)) + (gx#stx-null? _%tl180748180790%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180705180737%_)) - (let ((_%e180712180756%_ + _%tl180742180774%_)) + (let ((_%e180749180793%_ (let () (declare (not safe)) (gx#stx-e - _%tl180705180737%_)))) - (let ((_%tl180714180761%_ + _%tl180742180774%_)))) + (let ((_%tl180751180798%_ (let () (declare (not safe)) - (##cdr _%e180712180756%_))) - (_%hd180713180759%_ + (##cdr _%e180749180793%_))) + (_%hd180750180796%_ (let () (declare (not safe)) - (##car _%e180712180756%_)))) + (##car _%e180749180793%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180714180761%_)) - (_%__kont191651191652%_ - _%hd180713180759%_ - _%hd180710180751%_) + _%tl180751180798%_)) + (_%__kont191688191689%_ + _%hd180750180796%_ + _%hd180747180788%_) (let () (declare (not safe)) - (_%g180672180719%_))))) + (_%g180709180756%_))))) (let () (declare (not safe)) - (_%g180672180719%_))) + (_%g180709180756%_))) (let () (declare (not safe)) - (_%g180672180719%_))))) + (_%g180709180756%_))))) (let () (declare (not safe)) - (_%g180672180719%_))) + (_%g180709180756%_))) (let () (declare (not safe)) - (_%g180672180719%_))) - (let () (declare (not safe)) (_%g180672180719%_))))) - (let () (declare (not safe)) (_%g180672180719%_))))) + (_%g180709180756%_))) + (let () (declare (not safe)) (_%g180709180756%_))))) + (let () (declare (not safe)) (_%g180709180756%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180672180719%_))) + (_%g180709180756%_))) (let () (declare (not safe)) - (_%g180672180719%_)))) + (_%g180709180756%_)))) (let () (declare (not safe)) - (_%g180672180719%_))))) + (_%g180709180756%_))))) (let () (declare (not safe)) - (_%g180672180719%_))))))) - _%hd180573180635%_ - _%hd180570180627%_ - _%hd180567180619%_) - (_%g180549180579%_ _%g180550180582%_)))) + (_%g180709180756%_))))))) + _%hd180610180672%_ + _%hd180607180664%_ + _%hd180604180656%_) + (_%g180586180616%_ _%g180587180619%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180549180579%_ - _%g180550180582%_)) - (_%g180549180579%_ - _%g180550180582%_)) - (_%g180549180579%_ - _%g180550180582%_)))) - (_%g180549180579%_ _%g180550180582%_)) - (_%g180549180579%_ _%g180550180582%_)))) - (_%g180549180579%_ _%g180550180582%_)))) - (_%g180549180579%_ _%g180550180582%_)))) + (_%g180586180616%_ + _%g180587180619%_)) + (_%g180586180616%_ + _%g180587180619%_)) + (_%g180586180616%_ + _%g180587180619%_)))) + (_%g180586180616%_ _%g180587180619%_)) + (_%g180586180616%_ _%g180587180619%_)))) + (_%g180586180616%_ _%g180587180619%_)))) + (_%g180586180616%_ _%g180587180619%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180549180579%_ - _%g180550180582%_)))) - (_%g180549180579%_ _%g180550180582%_)) - (_%g180549180579%_ _%g180550180582%_)) - (_%g180549180579%_ _%g180550180582%_)))) - (_%g180549180579%_ _%g180550180582%_))))) - (_%g180548180913%_ _%stx180547%_)))) + (_%g180586180616%_ + _%g180587180619%_)))) + (_%g180586180616%_ _%g180587180619%_)) + (_%g180586180616%_ _%g180587180619%_)) + (_%g180586180616%_ _%g180587180619%_)))) + (_%g180586180616%_ _%g180587180619%_))))) + (_%g180585180950%_ _%stx180584%_)))) (define gxc#optimize-syntax-case-body - (lambda (_%stx180474%_ - _%expr180475%_ - _%negation180476%_ - _%clauses180477%_) - (letrec ((_%normalize180479%_ - (lambda (_%clauses180507%_) - (let* ((_%clauses180508180517%_ _%clauses180507%_) - (_%E180510180521%_ + (lambda (_%stx180511%_ + _%expr180512%_ + _%negation180513%_ + _%clauses180514%_) + (letrec ((_%normalize180516%_ + (lambda (_%clauses180544%_) + (let* ((_%clauses180545180554%_ _%clauses180544%_) + (_%E180547180558%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses180508180517%_ + _%clauses180545180554%_ '([[id . kont] . rest]))) '#!void)) - (_%K180511180528%_ - (lambda (_%rest180524%_ - _%kont180525%_ - _%id180526%_) - (cons (cons '#f _%kont180525%_) - _%rest180524%_)))) - (if (pair? _%clauses180508180517%_) - (let ((_%hd180512180531%_ + (_%K180548180565%_ + (lambda (_%rest180561%_ + _%kont180562%_ + _%id180563%_) + (cons (cons '#f _%kont180562%_) + _%rest180561%_)))) + (if (pair? _%clauses180545180554%_) + (let ((_%hd180549180568%_ (let () (declare (not safe)) - (##car _%clauses180508180517%_))) - (_%tl180513180533%_ + (##car _%clauses180545180554%_))) + (_%tl180550180570%_ (let () (declare (not safe)) - (##cdr _%clauses180508180517%_)))) - (if (pair? _%hd180512180531%_) - (let ((_%hd180514180536%_ + (##cdr _%clauses180545180554%_)))) + (if (pair? _%hd180549180568%_) + (let ((_%hd180551180573%_ (let () (declare (not safe)) - (##car _%hd180512180531%_))) - (_%tl180515180538%_ + (##car _%hd180549180568%_))) + (_%tl180552180575%_ (let () (declare (not safe)) - (##cdr _%hd180512180531%_)))) - (let* ((_%id180541%_ _%hd180514180536%_) - (_%kont180543%_ _%tl180515180538%_) - (_%rest180545%_ _%tl180513180533%_)) - (_%K180511180528%_ - _%rest180545%_ - _%kont180543%_ - _%id180541%_))) - (_%E180510180521%_))) - (_%E180510180521%_)))))) - (let ((__tmp192479 + (##cdr _%hd180549180568%_)))) + (let* ((_%id180578%_ _%hd180551180573%_) + (_%kont180580%_ _%tl180552180575%_) + (_%rest180582%_ _%tl180550180570%_)) + (_%K180548180565%_ + _%rest180582%_ + _%kont180580%_ + _%id180578%_))) + (_%E180547180558%_))) + (_%E180547180558%_)))))) + (let ((__tmp192516 (lambda () - (let* ((_%id180482%_ - (let ((__tmp192480 + (let* ((_%id180519%_ + (let ((__tmp192517 (let () (declare (not safe)) (##gensym '__stx)))) (declare (not safe)) - (make-symbol__0 __tmp192480))) - (_%id180484%_ + (make-symbol__0 __tmp192517))) + (_%id180521%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id180482%_))) - (_%_180486%_ + (gx#core-quote-syntax__0 _%id180519%_))) + (_%_180523%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id180484%_))) - (_g192481_ + (gx#core-bind-runtime!__0 _%id180521%_))) + (_g192518_ (gxc#optimize-syntax-case-clauses - _%clauses180477%_ - (car _%negation180476%_)))) + _%clauses180514%_ + (car _%negation180513%_)))) (begin - (let ((_g192482_ + (let ((_g192519_ (let () (declare (not safe)) - (if (##values? _g192481_) - (##vector-length _g192481_) + (if (##values? _g192518_) + (##vector-length _g192518_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192482_ 2))) - (error "Context expects 2 values" _g192482_))) - (let ((_%clauses180488%_ + (##fx= _g192519_ 2))) + (error "Context expects 2 values" _g192519_))) + (let ((_%clauses180525%_ (let () (declare (not safe)) - (##vector-ref _g192481_ 0))) - (_%konts180489%_ + (##vector-ref _g192518_ 0))) + (_%konts180526%_ (let () (declare (not safe)) - (##vector-ref _g192481_ 1)))) - (let* ((_%clauses180498%_ - (map (lambda (_%g180490180493%_ - _%g180491180495%_) + (##vector-ref _g192518_ 1)))) + (let* ((_%clauses180535%_ + (map (lambda (_%g180527180530%_ + _%g180528180532%_) (gxc#optimize-syntax-case-closure - _%g180490180493%_ - _%g180491180495%_ - _%id180484%_)) - _%clauses180488%_ - (let ((__tmp192484 - (cons (car _%negation180476%_) + _%g180527180530%_ + _%g180528180532%_ + _%id180521%_)) + _%clauses180525%_ + (let ((__tmp192521 + (cons (car _%negation180513%_) '())) - (__tmp192483 + (__tmp192520 (map car - (cdr _%clauses180488%_)))) + (cdr _%clauses180525%_)))) (declare (not safe)) (__foldr1 cons - __tmp192484 - __tmp192483)))) - (_%clauses180500%_ - (_%normalize180479%_ _%clauses180498%_)) - (_%negation180502%_ + __tmp192521 + __tmp192520)))) + (_%clauses180537%_ + (_%normalize180516%_ _%clauses180535%_)) + (_%negation180539%_ (gxc#optimize-syntax-case-closure - _%negation180476%_ + _%negation180513%_ '#f - _%id180484%_)) - (_%body180504%_ + _%id180521%_)) + (_%body180541%_ (gxc#optimize-match-body - _%stx180474%_ - _%negation180502%_ - _%clauses180500%_ - _%konts180489%_)) - (__tmp192485 + _%stx180511%_ + _%negation180539%_ + _%clauses180537%_ + _%konts180526%_)) + (__tmp192522 (cons '%#let-values - (cons (cons (cons (cons _%id180484%_ + (cons (cons (cons (cons _%id180521%_ '()) - (cons _%expr180475%_ + (cons _%expr180512%_ '())) '()) - (cons _%body180504%_ '()))))) + (cons _%body180541%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp192485 - _%stx180474%_))))))) - (__tmp192478 - (let ((__obj192399 + __tmp192522 + _%stx180511%_))))))) + (__tmp192515 + (let ((__obj192436 (let () (declare (not safe)) (##structure @@ -13151,72 +13151,72 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj192399)) - __obj192399))) + (gx#local-context:::init!__0 __obj192436)) + __obj192436))) (declare (not safe)) (__call-with-parameters - __tmp192479 + __tmp192516 gx#current-expander-context - __tmp192478))))) + __tmp192515))))) (define gxc#optimize-syntax-case-clauses - (lambda (_%clauses179230%_ _%negation-id179231%_) - (letrec ((_%xform-e179233%_ - (lambda (_%expr179618%_ - _%kont-id179619%_ - _%kont-box179620%_ - _%negation-id179621%_) - (let* ((_%__stx191849191850%_ _%expr179618%_) - (_%g179627179760%_ + (lambda (_%clauses179267%_ _%negation-id179268%_) + (letrec ((_%xform-e179270%_ + (lambda (_%expr179655%_ + _%kont-id179656%_ + _%kont-box179657%_ + _%negation-id179658%_) + (let* ((_%__stx191886191887%_ _%expr179655%_) + (_%g179664179797%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191849191850%_))))) - (let ((_%__kont191851191852%_ - (lambda (_%L180450%_ _%L180451%_ _%L180452%_) - (let ((_%K180469%_ - (_%xform-e179233%_ - _%L180451%_ - _%kont-id179619%_ - _%kont-box179620%_ - _%negation-id179621%_))) + _%__stx191886191887%_))))) + (let ((_%__kont191888191889%_ + (lambda (_%L180487%_ _%L180488%_ _%L180489%_) + (let ((_%K180506%_ + (_%xform-e179270%_ + _%L180488%_ + _%kont-id179656%_ + _%kont-box179657%_ + _%negation-id179658%_))) (cons '%#if - (cons _%L180452%_ - (cons _%K180469%_ - (cons _%L180450%_ '()))))))) - (_%__kont191853191854%_ - (lambda (_%L180365%_ - _%L180366%_ - _%L180367%_ - _%L180368%_ - _%L180369%_) - (let* ((_%id180404%_ - (let ((__tmp192486 + (cons _%L180489%_ + (cons _%K180506%_ + (cons _%L180487%_ '()))))))) + (_%__kont191890191891%_ + (lambda (_%L180402%_ + _%L180403%_ + _%L180404%_ + _%L180405%_ + _%L180406%_) + (let* ((_%id180441%_ + (let ((__tmp192523 (let () (declare (not safe)) (##gensym '__splice)))) (declare (not safe)) - (make-symbol__0 __tmp192486))) - (_%id180406%_ + (make-symbol__0 __tmp192523))) + (_%id180443%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id180404%_))) - (_%_180408%_ + _%id180441%_))) + (_%_180445%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id180406%_))) - (_%body180410%_ - (_%xform-e179233%_ - _%L180365%_ - _%kont-id179619%_ - _%kont-box179620%_ - _%negation-id179621%_))) + _%id180443%_))) + (_%body180447%_ + (_%xform-e179270%_ + _%L180402%_ + _%kont-id179656%_ + _%kont-box179657%_ + _%negation-id179658%_))) (cons '%#let-values - (cons (cons (cons (cons _%id180406%_ + (cons (cons (cons (cons _%id180443%_ '()) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -13225,113 +13225,113 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180367%_ '())) - _%L180366%_)) + (cons _%L180404%_ '())) + _%L180403%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L180369%_ + (cons (cons (cons (cons _%L180406%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180406%_ '())) + (cons _%id180443%_ '())) (cons '(%#quote 0) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L180368%_ '()) + (cons (cons (cons _%L180405%_ '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180406%_ '())) + (cons _%id180443%_ '())) (cons '(%#quote 1) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (cons _%body180410%_ '()))) + (cons _%body180447%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont191855191856%_ - (lambda (_%L180247%_ _%L180248%_) - (let ((_%body180262%_ - (_%xform-e179233%_ - _%L180247%_ - _%kont-id179619%_ - _%kont-box179620%_ - _%negation-id179621%_))) + (_%__kont191892191893%_ + (lambda (_%L180284%_ _%L180285%_) + (let ((_%body180299%_ + (_%xform-e179270%_ + _%L180284%_ + _%kont-id179656%_ + _%kont-box179657%_ + _%negation-id179658%_))) (cons '%#let-values - (cons _%L180248%_ - (cons _%body180262%_ '())))))) - (_%__kont191857191858%_ - (lambda (_%L180191%_ _%L180192%_ _%L180193%_) - (let ((_%lambda-expr180216%_ - (_%xform-loop-e179234%_ - _%L180192%_ - _%kont-id179619%_ - _%kont-box179620%_ - _%negation-id179621%_))) + (cons _%L180285%_ + (cons _%body180299%_ '())))))) + (_%__kont191894191895%_ + (lambda (_%L180228%_ _%L180229%_ _%L180230%_) + (let ((_%lambda-expr180253%_ + (_%xform-loop-e179271%_ + _%L180229%_ + _%kont-id179656%_ + _%kont-box179657%_ + _%negation-id179658%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L180193%_ '()) - (cons _%lambda-expr180216%_ + (cons (cons (cons (cons _%L180230%_ '()) + (cons _%lambda-expr180253%_ '())) '()) - (cons _%L180191%_ '())))))) - (_%__kont191859191860%_ - (lambda (_%L179853%_ _%L179854%_ _%L179855%_) - (let* ((_%__stx191751191752%_ _%L179854%_) - (_%g179884179927%_ + (cons _%L180228%_ '())))))) + (_%__kont191896191897%_ + (lambda (_%L179890%_ _%L179891%_ _%L179892%_) + (let* ((_%__stx191788191789%_ _%L179891%_) + (_%g179921179964%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191751191752%_))))) - (let ((_%__kont191753191754%_ - (lambda (_%L180043%_ - _%L180044%_ - _%L180045%_ - _%L180046%_) - (let ((_%kont180087%_ + _%__stx191788191789%_))))) + (let ((_%__kont191790191791%_ + (lambda (_%L180080%_ + _%L180081%_ + _%L180082%_ + _%L180083%_) + (let ((_%kont180124%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp192487 + (cons (let ((__tmp192524 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g180079180082%_ _%g180080180084%_) - (cons _%g180079180082%_ _%g180080180084%_)))) + (lambda (_%g180116180119%_ _%g180117180121%_) + (cons _%g180116180119%_ _%g180117180121%_)))) (declare (not safe)) - (__foldr1 __tmp192487 '() _%L179855%_)) - (cons _%L180045%_ '()))))) + (__foldr1 __tmp192524 '() _%L179892%_)) + (cons _%L180082%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box179620%_ - _%kont180087%_) - (let* ((_%kont-args180098%_ - (map (lambda (_%id180089%_) + _%kont-box179657%_ + _%kont180124%_) + (let* ((_%kont-args180135%_ + (map (lambda (_%id180126%_) (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180089%_ '()))) - (let ((__tmp192488 - (lambda (_%g180090180093%_ _%g180091180095%_) - (cons _%g180090180093%_ _%g180091180095%_)))) + (cons _%id180126%_ '()))) + (let ((__tmp192525 + (lambda (_%g180127180130%_ _%g180128180132%_) + (cons _%g180127180130%_ _%g180128180132%_)))) (declare (not safe)) - (__foldr1 __tmp192488 '() _%L179855%_)))) + (__foldr1 __tmp192525 '() _%L179892%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body180100%_ + (_%body180137%_ (cons '%#if - (cons _%L180046%_ + (cons _%L180083%_ (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref - (cons _%kont-id179619%_ '())) - _%kont-args180098%_)) + (cons _%kont-id179656%_ '())) + _%kont-args180135%_)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -13340,3156 +13340,3156 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180044%_ '())) + (cons _%L180081%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180043%_ + (cons _%L180080%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? (let ((__tmp192489 - (lambda (_%g180102180105%_ + (if (null? (let ((__tmp192526 + (lambda (_%g180139180142%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g180103180107%_) - (cons _%g180102180105%_ _%g180103180107%_)))) + _%g180140180144%_) + (cons _%g180139180142%_ _%g180140180144%_)))) (declare (not safe)) - (__foldr1 __tmp192489 '() _%L179855%_))) + (__foldr1 __tmp192526 '() _%L179892%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body180100%_ + _%body180137%_ (cons '%#let-values - (cons (map (lambda (_%id180110%_ + (cons (map (lambda (_%id180147%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg180111%_) - (cons (cons _%id180110%_ '()) - (cons _%arg180111%_ '()))) - (let ((__tmp192490 - (lambda (_%g180112180115%_ _%g180113180117%_) - (cons _%g180112180115%_ - _%g180113180117%_)))) + _%arg180148%_) + (cons (cons _%id180147%_ '()) + (cons _%arg180148%_ '()))) + (let ((__tmp192527 + (lambda (_%g180149180152%_ _%g180150180154%_) + (cons _%g180149180152%_ + _%g180150180154%_)))) (declare (not safe)) - (__foldr1 __tmp192490 '() _%L179855%_)) - (let ((__tmp192491 - (lambda (_%g180119180122%_ _%g180120180124%_) - (cons _%g180119180122%_ - _%g180120180124%_)))) + (__foldr1 __tmp192527 '() _%L179892%_)) + (let ((__tmp192528 + (lambda (_%g180156180159%_ _%g180157180161%_) + (cons _%g180156180159%_ + _%g180157180161%_)))) (declare (not safe)) - (__foldr1 __tmp192491 '() _%L179853%_))) - (cons _%body180100%_ '())))))))) + (__foldr1 __tmp192528 '() _%L179890%_))) + (cons _%body180137%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191755191756%_ + (_%__kont191792191793%_ (lambda () - (let ((_%kont179941%_ + (let ((_%kont179978%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp192492 + (cons (let ((__tmp192529 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g179933179936%_ _%g179934179938%_) - (cons _%g179933179936%_ _%g179934179938%_)))) + (lambda (_%g179970179973%_ _%g179971179975%_) + (cons _%g179970179973%_ _%g179971179975%_)))) (declare (not safe)) - (__foldr1 __tmp192492 '() _%L179855%_)) - (cons _%L179854%_ '()))))) + (__foldr1 __tmp192529 '() _%L179892%_)) + (cons _%L179891%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box179620%_ - _%kont179941%_) + _%kont-box179657%_ + _%kont179978%_) (cons '%#call (cons (cons '%#ref - (cons _%kont-id179619%_ + (cons _%kont-id179656%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp192493 - (lambda (_%g179942179945%_ _%g179943179947%_) - (cons _%g179942179945%_ _%g179943179947%_)))) + (let ((__tmp192530 + (lambda (_%g179979179982%_ _%g179980179984%_) + (cons _%g179979179982%_ _%g179980179984%_)))) (declare (not safe)) - (__foldr1 __tmp192493 '() _%L179853%_)))))))) + (__foldr1 __tmp192530 '() _%L179890%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match191846191847%_ - (lambda (_%e179890179955%_ - _%hd179891179958%_ - _%tl179892179960%_ - _%e179893179963%_ - _%hd179894179966%_ - _%tl179895179968%_ - _%e179896179971%_ - _%hd179897179974%_ - _%tl179898179976%_ - _%e179899179979%_ - _%hd179900179982%_ - _%tl179901179984%_ - _%e179902179987%_ - _%hd179903179990%_ - _%tl179904179992%_ - _%e179905179995%_ - _%hd179906179998%_ - _%tl179907180000%_ - _%e179908180003%_ - _%hd179909180006%_ - _%tl179910180008%_ - _%e179911180011%_ - _%hd179912180014%_ - _%tl179913180016%_ - _%e179914180019%_ - _%hd179915180022%_ - _%tl179916180024%_ - _%e179917180027%_ - _%hd179918180030%_ - _%tl179919180032%_ - _%e179920180035%_ - _%hd179921180038%_ - _%tl179922180040%_) - (let ((_%L180043%_ - _%hd179921180038%_) - (_%L180044%_ - _%hd179912180014%_) - (_%L180045%_ - _%hd179897179974%_) - (_%L180046%_ - _%hd179894179966%_)) + (let ((_%__match191883191884%_ + (lambda (_%e179927179992%_ + _%hd179928179995%_ + _%tl179929179997%_ + _%e179930180000%_ + _%hd179931180003%_ + _%tl179932180005%_ + _%e179933180008%_ + _%hd179934180011%_ + _%tl179935180013%_ + _%e179936180016%_ + _%hd179937180019%_ + _%tl179938180021%_ + _%e179939180024%_ + _%hd179940180027%_ + _%tl179941180029%_ + _%e179942180032%_ + _%hd179943180035%_ + _%tl179944180037%_ + _%e179945180040%_ + _%hd179946180043%_ + _%tl179947180045%_ + _%e179948180048%_ + _%hd179949180051%_ + _%tl179950180053%_ + _%e179951180056%_ + _%hd179952180059%_ + _%tl179953180061%_ + _%e179954180064%_ + _%hd179955180067%_ + _%tl179956180069%_ + _%e179957180072%_ + _%hd179958180075%_ + _%tl179959180077%_) + (let ((_%L180080%_ + _%hd179958180075%_) + (_%L180081%_ + _%hd179949180051%_) + (_%L180082%_ + _%hd179934180011%_) + (_%L180083%_ + _%hd179931180003%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L180044%_ - _%negation-id179621%_)) - (_%__kont191753191754%_ - _%L180043%_ - _%L180044%_ - _%L180045%_ - _%L180046%_) - (_%__kont191755191756%_)))))) + _%L180081%_ + _%negation-id179658%_)) + (_%__kont191790191791%_ + _%L180080%_ + _%L180081%_ + _%L180082%_ + _%L180083%_) + (_%__kont191792191793%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191751191752%_)) - (let ((_%e179890179955%_ + _%__stx191788191789%_)) + (let ((_%e179927179992%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191751191752%_)))) - (let ((_%tl179892179960%_ + _%__stx191788191789%_)))) + (let ((_%tl179929179997%_ (let () (declare (not safe)) - (##cdr _%e179890179955%_))) - (_%hd179891179958%_ + (##cdr _%e179927179992%_))) + (_%hd179928179995%_ (let () (declare (not safe)) - (##car _%e179890179955%_)))) + (##car _%e179927179992%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179891179958%_)) + _%hd179928179995%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179891179958%_)) + _%hd179928179995%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179892179960%_)) - (let ((_%e179893179963%_ + _%tl179929179997%_)) + (let ((_%e179930180000%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179892179960%_)))) - (let ((_%tl179895179968%_ + (gx#stx-e _%tl179929179997%_)))) + (let ((_%tl179932180005%_ (let () (declare (not safe)) - (##cdr _%e179893179963%_))) - (_%hd179894179966%_ + (##cdr _%e179930180000%_))) + (_%hd179931180003%_ (let () (declare (not safe)) - (##car _%e179893179963%_)))) + (##car _%e179930180000%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179895179968%_)) - (let ((_%e179896179971%_ + (gx#stx-pair? _%tl179932180005%_)) + (let ((_%e179933180008%_ (let () (declare (not safe)) - (gx#stx-e _%tl179895179968%_)))) - (let ((_%tl179898179976%_ + (gx#stx-e _%tl179932180005%_)))) + (let ((_%tl179935180013%_ (let () (declare (not safe)) - (##cdr _%e179896179971%_))) - (_%hd179897179974%_ + (##cdr _%e179933180008%_))) + (_%hd179934180011%_ (let () (declare (not safe)) - (##car _%e179896179971%_)))) + (##car _%e179933180008%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179898179976%_)) - (let ((_%e179899179979%_ + (gx#stx-pair? _%tl179935180013%_)) + (let ((_%e179936180016%_ (let () (declare (not safe)) - (gx#stx-e _%tl179898179976%_)))) - (let ((_%tl179901179984%_ + (gx#stx-e _%tl179935180013%_)))) + (let ((_%tl179938180021%_ (let () (declare (not safe)) - (##cdr _%e179899179979%_))) - (_%hd179900179982%_ + (##cdr _%e179936180016%_))) + (_%hd179937180019%_ (let () (declare (not safe)) - (##car _%e179899179979%_)))) + (##car _%e179936180016%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179900179982%_)) - (let ((_%e179902179987%_ + (gx#stx-pair? _%hd179937180019%_)) + (let ((_%e179939180024%_ (let () (declare (not safe)) (gx#stx-e - _%hd179900179982%_)))) - (let ((_%tl179904179992%_ + _%hd179937180019%_)))) + (let ((_%tl179941180029%_ (let () (declare (not safe)) - (##cdr _%e179902179987%_))) - (_%hd179903179990%_ + (##cdr _%e179939180024%_))) + (_%hd179940180027%_ (let () (declare (not safe)) - (##car _%e179902179987%_)))) + (##car _%e179939180024%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179903179990%_)) + _%hd179940180027%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179903179990%_)) + _%hd179940180027%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179904179992%_)) - (let ((_%e179905179995%_ + _%tl179941180029%_)) + (let ((_%e179942180032%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179904179992%_)))) - (let ((_%tl179907180000%_ + (gx#stx-e _%tl179941180029%_)))) + (let ((_%tl179944180037%_ (let () (declare (not safe)) - (##cdr _%e179905179995%_))) - (_%hd179906179998%_ + (##cdr _%e179942180032%_))) + (_%hd179943180035%_ (let () (declare (not safe)) - (##car _%e179905179995%_)))) + (##car _%e179942180032%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179906179998%_)) - (let ((_%e179908180003%_ + (gx#stx-pair? _%hd179943180035%_)) + (let ((_%e179945180040%_ (let () (declare (not safe)) - (gx#stx-e _%hd179906179998%_)))) - (let ((_%tl179910180008%_ + (gx#stx-e _%hd179943180035%_)))) + (let ((_%tl179947180045%_ (let () (declare (not safe)) - (##cdr _%e179908180003%_))) - (_%hd179909180006%_ + (##cdr _%e179945180040%_))) + (_%hd179946180043%_ (let () (declare (not safe)) - (##car _%e179908180003%_)))) + (##car _%e179945180040%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179909180006%_)) + (gx#identifier? _%hd179946180043%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179909180006%_)) + (gx#stx-eq? '%#ref _%hd179946180043%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179910180008%_)) - (let ((_%e179911180011%_ + (gx#stx-pair? _%tl179947180045%_)) + (let ((_%e179948180048%_ (let () (declare (not safe)) (gx#stx-e - _%tl179910180008%_)))) - (let ((_%tl179913180016%_ + _%tl179947180045%_)))) + (let ((_%tl179950180053%_ (let () (declare (not safe)) - (##cdr _%e179911180011%_))) - (_%hd179912180014%_ + (##cdr _%e179948180048%_))) + (_%hd179949180051%_ (let () (declare (not safe)) - (##car _%e179911180011%_)))) + (##car _%e179948180048%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179913180016%_)) + _%tl179950180053%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179907180000%_)) - (let ((_%e179914180019%_ + _%tl179944180037%_)) + (let ((_%e179951180056%_ (let () (declare (not safe)) (gx#stx-e - _%tl179907180000%_)))) - (let ((_%tl179916180024%_ + _%tl179944180037%_)))) + (let ((_%tl179953180061%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e179914180019%_))) - (_%hd179915180022%_ - (let () (declare (not safe)) (##car _%e179914180019%_)))) + (##cdr _%e179951180056%_))) + (_%hd179952180059%_ + (let () (declare (not safe)) (##car _%e179951180056%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179915180022%_)) - (let ((_%e179917180027%_ + (gx#stx-pair? _%hd179952180059%_)) + (let ((_%e179954180064%_ (let () (declare (not safe)) - (gx#stx-e _%hd179915180022%_)))) - (let ((_%tl179919180032%_ + (gx#stx-e _%hd179952180059%_)))) + (let ((_%tl179956180069%_ (let () (declare (not safe)) - (##cdr _%e179917180027%_))) - (_%hd179918180030%_ + (##cdr _%e179954180064%_))) + (_%hd179955180067%_ (let () (declare (not safe)) - (##car _%e179917180027%_)))) + (##car _%e179954180064%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179918180030%_)) + (gx#identifier? _%hd179955180067%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179918180030%_)) + (gx#stx-eq? '%#ref _%hd179955180067%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179919180032%_)) - (let ((_%e179920180035%_ + (gx#stx-pair? _%tl179956180069%_)) + (let ((_%e179957180072%_ (let () (declare (not safe)) - (gx#stx-e _%tl179919180032%_)))) - (let ((_%tl179922180040%_ + (gx#stx-e _%tl179956180069%_)))) + (let ((_%tl179959180077%_ (let () (declare (not safe)) - (##cdr _%e179920180035%_))) - (_%hd179921180038%_ + (##cdr _%e179957180072%_))) + (_%hd179958180075%_ (let () (declare (not safe)) - (##car _%e179920180035%_)))) + (##car _%e179957180072%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179922180040%_)) + _%tl179959180077%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179916180024%_)) + _%tl179953180061%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179901179984%_)) - (_%__match191846191847%_ - _%e179890179955%_ - _%hd179891179958%_ - _%tl179892179960%_ - _%e179893179963%_ - _%hd179894179966%_ - _%tl179895179968%_ - _%e179896179971%_ - _%hd179897179974%_ - _%tl179898179976%_ - _%e179899179979%_ - _%hd179900179982%_ - _%tl179901179984%_ - _%e179902179987%_ - _%hd179903179990%_ - _%tl179904179992%_ - _%e179905179995%_ - _%hd179906179998%_ - _%tl179907180000%_ - _%e179908180003%_ - _%hd179909180006%_ - _%tl179910180008%_ - _%e179911180011%_ - _%hd179912180014%_ - _%tl179913180016%_ - _%e179914180019%_ - _%hd179915180022%_ - _%tl179916180024%_ - _%e179917180027%_ - _%hd179918180030%_ - _%tl179919180032%_ - _%e179920180035%_ - _%hd179921180038%_ - _%tl179922180040%_) - (_%__kont191755191756%_)) - (_%__kont191755191756%_)) - (_%__kont191755191756%_)))) - (_%__kont191755191756%_)) - (_%__kont191755191756%_)) - (_%__kont191755191756%_)))) - (_%__kont191755191756%_)))) + _%tl179938180021%_)) + (_%__match191883191884%_ + _%e179927179992%_ + _%hd179928179995%_ + _%tl179929179997%_ + _%e179930180000%_ + _%hd179931180003%_ + _%tl179932180005%_ + _%e179933180008%_ + _%hd179934180011%_ + _%tl179935180013%_ + _%e179936180016%_ + _%hd179937180019%_ + _%tl179938180021%_ + _%e179939180024%_ + _%hd179940180027%_ + _%tl179941180029%_ + _%e179942180032%_ + _%hd179943180035%_ + _%tl179944180037%_ + _%e179945180040%_ + _%hd179946180043%_ + _%tl179947180045%_ + _%e179948180048%_ + _%hd179949180051%_ + _%tl179950180053%_ + _%e179951180056%_ + _%hd179952180059%_ + _%tl179953180061%_ + _%e179954180064%_ + _%hd179955180067%_ + _%tl179956180069%_ + _%e179957180072%_ + _%hd179958180075%_ + _%tl179959180077%_) + (_%__kont191792191793%_)) + (_%__kont191792191793%_)) + (_%__kont191792191793%_)))) + (_%__kont191792191793%_)) + (_%__kont191792191793%_)) + (_%__kont191792191793%_)))) + (_%__kont191792191793%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191755191756%_)) - (_%__kont191755191756%_)))) - (_%__kont191755191756%_)) - (_%__kont191755191756%_)) - (_%__kont191755191756%_)))) - (_%__kont191755191756%_)))) - (_%__kont191755191756%_)) + (_%__kont191792191793%_)) + (_%__kont191792191793%_)))) + (_%__kont191792191793%_)) + (_%__kont191792191793%_)) + (_%__kont191792191793%_)))) + (_%__kont191792191793%_)))) + (_%__kont191792191793%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191755191756%_)) - (_%__kont191755191756%_)))) - (_%__kont191755191756%_)))) - (_%__kont191755191756%_)))) - (_%__kont191755191756%_)))) - (_%__kont191755191756%_)) + (_%__kont191792191793%_)) + (_%__kont191792191793%_)))) + (_%__kont191792191793%_)))) + (_%__kont191792191793%_)))) + (_%__kont191792191793%_)))) + (_%__kont191792191793%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191755191756%_)) - (_%__kont191755191756%_)))) - (_%__kont191755191756%_)))))))) - (let* ((_%__match192106192107%_ - (lambda (_%e179723179765%_ - _%hd179724179768%_ - _%tl179725179770%_ - _%e179726179773%_ - _%hd179727179776%_ - _%tl179728179778%_ - _%e179729179781%_ - _%hd179730179784%_ - _%tl179731179786%_ - _%e179732179789%_ - _%hd179733179792%_ - _%tl179734179794%_ - _%__splice191861191862%_ - _%target179735179797%_ - _%tl179737179799%_) - (letrec ((_%loop179738179802%_ - (lambda (_%hd179736179805%_ - _%id179742179807%_) + (_%__kont191792191793%_)) + (_%__kont191792191793%_)))) + (_%__kont191792191793%_)))))))) + (let* ((_%__match192143192144%_ + (lambda (_%e179760179802%_ + _%hd179761179805%_ + _%tl179762179807%_ + _%e179763179810%_ + _%hd179764179813%_ + _%tl179765179815%_ + _%e179766179818%_ + _%hd179767179821%_ + _%tl179768179823%_ + _%e179769179826%_ + _%hd179770179829%_ + _%tl179771179831%_ + _%__splice191898191899%_ + _%target179772179834%_ + _%tl179774179836%_) + (letrec ((_%loop179775179839%_ + (lambda (_%hd179773179842%_ + _%id179779179844%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179736179805%_)) - (let ((_%e179739179810%_ + _%hd179773179842%_)) + (let ((_%e179776179847%_ (let () (declare (not safe)) (gx#stx-e - _%hd179736179805%_)))) - (let ((_%lp-tl179741179815%_ + _%hd179773179842%_)))) + (let ((_%lp-tl179778179852%_ (let () (declare (not safe)) - (##cdr _%e179739179810%_))) - (_%lp-hd179740179813%_ + (##cdr _%e179776179847%_))) + (_%lp-hd179777179850%_ (let () (declare (not safe)) - (##car _%e179739179810%_)))) - (_%loop179738179802%_ - _%lp-tl179741179815%_ - (cons _%lp-hd179740179813%_ - _%id179742179807%_)))) - (let ((_%id179743179818%_ - (reverse _%id179742179807%_))) + (##car _%e179776179847%_)))) + (_%loop179775179839%_ + _%lp-tl179778179852%_ + (cons _%lp-hd179777179850%_ + _%id179779179844%_)))) + (let ((_%id179780179855%_ + (reverse _%id179779179844%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179734179794%_)) - (let ((_%e179744179821%_ + _%tl179771179831%_)) + (let ((_%e179781179858%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179734179794%_)))) - (let ((_%tl179746179826%_ + (gx#stx-e _%tl179771179831%_)))) + (let ((_%tl179783179863%_ (let () (declare (not safe)) - (##cdr _%e179744179821%_))) - (_%hd179745179824%_ + (##cdr _%e179781179858%_))) + (_%hd179782179861%_ (let () (declare (not safe)) - (##car _%e179744179821%_)))) + (##car _%e179781179858%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179746179826%_)) + (gx#stx-null? _%tl179783179863%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl179728179778%_)) - (let ((_%__splice191863191864%_ + (gx#stx-pair/null? _%tl179765179815%_)) + (let ((_%__splice191900191901%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl179728179778%_ + _%tl179765179815%_ '0)))) - (let ((_%tl179749179831%_ + (let ((_%tl179786179868%_ (let () (declare (not safe)) (##vector-ref - _%__splice191863191864%_ + _%__splice191900191901%_ '1))) - (_%target179747179829%_ + (_%target179784179866%_ (let () (declare (not safe)) (##vector-ref - _%__splice191863191864%_ + _%__splice191900191901%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179749179831%_)) - (letrec ((_%loop179750179834%_ - (lambda (_%hd179748179837%_ - _%arg179754179839%_) + (gx#stx-null? _%tl179786179868%_)) + (letrec ((_%loop179787179871%_ + (lambda (_%hd179785179874%_ + _%arg179791179876%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179748179837%_)) - (let ((_%e179751179842%_ + _%hd179785179874%_)) + (let ((_%e179788179879%_ (let () (declare (not safe)) (gx#stx-e - _%hd179748179837%_)))) - (let ((_%lp-tl179753179847%_ + _%hd179785179874%_)))) + (let ((_%lp-tl179790179884%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e179751179842%_))) - (_%lp-hd179752179845%_ - (let () (declare (not safe)) (##car _%e179751179842%_)))) - (_%loop179750179834%_ - _%lp-tl179753179847%_ - (cons _%lp-hd179752179845%_ _%arg179754179839%_)))) + (##cdr _%e179788179879%_))) + (_%lp-hd179789179882%_ + (let () (declare (not safe)) (##car _%e179788179879%_)))) + (_%loop179787179871%_ + _%lp-tl179790179884%_ + (cons _%lp-hd179789179882%_ _%arg179791179876%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg179755179850%_ - (reverse _%arg179754179839%_))) - (_%__kont191859191860%_ - _%arg179755179850%_ - _%hd179745179824%_ - _%id179743179818%_)))))) - (_%loop179750179834%_ - _%target179747179829%_ + (let ((_%arg179792179887%_ + (reverse _%arg179791179876%_))) + (_%__kont191896191897%_ + _%arg179792179887%_ + _%hd179782179861%_ + _%id179780179855%_)))))) + (_%loop179787179871%_ + _%target179784179866%_ '())) (let () (declare (not safe)) - (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_))) - (let () (declare (not safe)) (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_)))))))) + (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_))) + (let () (declare (not safe)) (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop179738179802%_ - _%target179735179797%_ + (_%loop179775179839%_ + _%target179772179834%_ '())))) - (_%__match191988191989%_ - (lambda (_%e179649180269%_ - _%hd179650180272%_ - _%tl179651180274%_ - _%e179652180277%_ - _%hd179653180280%_ - _%tl179654180282%_ - _%e179655180285%_ - _%hd179656180288%_ - _%tl179657180290%_ - _%e179658180293%_ - _%hd179659180296%_ - _%tl179660180298%_ - _%e179661180301%_ - _%hd179662180304%_ - _%tl179663180306%_ - _%e179664180309%_ - _%hd179665180312%_ - _%tl179666180314%_ - _%e179667180317%_ - _%hd179668180320%_ - _%tl179669180322%_ - _%e179670180325%_ - _%hd179671180328%_ - _%tl179672180330%_ - _%e179673180333%_ - _%hd179674180336%_ - _%tl179675180338%_ - _%e179676180341%_ - _%hd179677180344%_ - _%tl179678180346%_ - _%e179679180349%_ - _%hd179680180352%_ - _%tl179681180354%_ - _%e179682180357%_ - _%hd179683180360%_ - _%tl179684180362%_) - (let ((_%L180365%_ _%hd179683180360%_) - (_%L180366%_ _%tl179675180338%_) - (_%L180367%_ _%hd179680180352%_) - (_%L180368%_ _%hd179665180312%_) - (_%L180369%_ _%hd179662180304%_)) + (_%__match192025192026%_ + (lambda (_%e179686180306%_ + _%hd179687180309%_ + _%tl179688180311%_ + _%e179689180314%_ + _%hd179690180317%_ + _%tl179691180319%_ + _%e179692180322%_ + _%hd179693180325%_ + _%tl179694180327%_ + _%e179695180330%_ + _%hd179696180333%_ + _%tl179697180335%_ + _%e179698180338%_ + _%hd179699180341%_ + _%tl179700180343%_ + _%e179701180346%_ + _%hd179702180349%_ + _%tl179703180351%_ + _%e179704180354%_ + _%hd179705180357%_ + _%tl179706180359%_ + _%e179707180362%_ + _%hd179708180365%_ + _%tl179709180367%_ + _%e179710180370%_ + _%hd179711180373%_ + _%tl179712180375%_ + _%e179713180378%_ + _%hd179714180381%_ + _%tl179715180383%_ + _%e179716180386%_ + _%hd179717180389%_ + _%tl179718180391%_ + _%e179719180394%_ + _%hd179720180397%_ + _%tl179721180399%_) + (let ((_%L180402%_ _%hd179720180397%_) + (_%L180403%_ _%tl179712180375%_) + (_%L180404%_ _%hd179717180389%_) + (_%L180405%_ _%hd179702180349%_) + (_%L180406%_ _%hd179699180341%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L180367%_ + _%L180404%_ 'gx#syntax-split-splice)) - (_%__kont191853191854%_ - _%L180365%_ - _%L180366%_ - _%L180367%_ - _%L180368%_ - _%L180369%_) - (_%__kont191855191856%_ - _%hd179683180360%_ - _%hd179653180280%_)))))) + (_%__kont191890191891%_ + _%L180402%_ + _%L180403%_ + _%L180404%_ + _%L180405%_ + _%L180406%_) + (_%__kont191892191893%_ + _%hd179720180397%_ + _%hd179690180317%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191849191850%_)) - (let ((_%e179632180418%_ + (gx#stx-pair? _%__stx191886191887%_)) + (let ((_%e179669180455%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191849191850%_)))) - (let ((_%tl179634180423%_ + (gx#stx-e _%__stx191886191887%_)))) + (let ((_%tl179671180460%_ (let () (declare (not safe)) - (##cdr _%e179632180418%_))) - (_%hd179633180421%_ + (##cdr _%e179669180455%_))) + (_%hd179670180458%_ (let () (declare (not safe)) - (##car _%e179632180418%_)))) + (##car _%e179669180455%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179633180421%_)) + (gx#identifier? _%hd179670180458%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179633180421%_)) + _%hd179670180458%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179634180423%_)) - (let ((_%e179635180426%_ + _%tl179671180460%_)) + (let ((_%e179672180463%_ (let () (declare (not safe)) (gx#stx-e - _%tl179634180423%_)))) - (let ((_%tl179637180431%_ + _%tl179671180460%_)))) + (let ((_%tl179674180468%_ (let () (declare (not safe)) - (##cdr _%e179635180426%_))) - (_%hd179636180429%_ + (##cdr _%e179672180463%_))) + (_%hd179673180466%_ (let () (declare (not safe)) - (##car _%e179635180426%_)))) + (##car _%e179672180463%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179637180431%_)) - (let ((_%e179638180434%_ + _%tl179674180468%_)) + (let ((_%e179675180471%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179637180431%_)))) - (let ((_%tl179640180439%_ - (let () (declare (not safe)) (##cdr _%e179638180434%_))) - (_%hd179639180437%_ + (gx#stx-e _%tl179674180468%_)))) + (let ((_%tl179677180476%_ + (let () (declare (not safe)) (##cdr _%e179675180471%_))) + (_%hd179676180474%_ (let () (declare (not safe)) - (##car _%e179638180434%_)))) + (##car _%e179675180471%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179640180439%_)) - (let ((_%e179641180442%_ + (gx#stx-pair? _%tl179677180476%_)) + (let ((_%e179678180479%_ (let () (declare (not safe)) - (gx#stx-e _%tl179640180439%_)))) - (let ((_%tl179643180447%_ + (gx#stx-e _%tl179677180476%_)))) + (let ((_%tl179680180484%_ (let () (declare (not safe)) - (##cdr _%e179641180442%_))) - (_%hd179642180445%_ + (##cdr _%e179678180479%_))) + (_%hd179679180482%_ (let () (declare (not safe)) - (##car _%e179641180442%_)))) + (##car _%e179678180479%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179643180447%_)) - (_%__kont191851191852%_ - _%hd179642180445%_ - _%hd179639180437%_ - _%hd179636180429%_) + (gx#stx-null? _%tl179680180484%_)) + (_%__kont191888191889%_ + _%hd179679180482%_ + _%hd179676180474%_ + _%hd179673180466%_) (let () (declare (not safe)) - (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_))))) + (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179627179760%_))) + (_%g179664179797%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd179633180421%_)) + _%hd179670180458%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179634180423%_)) - (let ((_%e179652180277%_ + _%tl179671180460%_)) + (let ((_%e179689180314%_ (let () (declare (not safe)) (gx#stx-e - _%tl179634180423%_)))) - (let ((_%tl179654180282%_ + _%tl179671180460%_)))) + (let ((_%tl179691180319%_ (let () (declare (not safe)) - (##cdr _%e179652180277%_))) - (_%hd179653180280%_ + (##cdr _%e179689180314%_))) + (_%hd179690180317%_ (let () (declare (not safe)) - (##car _%e179652180277%_)))) + (##car _%e179689180314%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179653180280%_)) - (let ((_%e179655180285%_ + _%hd179690180317%_)) + (let ((_%e179692180322%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179653180280%_)))) - (let ((_%tl179657180290%_ + (gx#stx-e _%hd179690180317%_)))) + (let ((_%tl179694180327%_ (let () (declare (not safe)) - (##cdr _%e179655180285%_))) - (_%hd179656180288%_ + (##cdr _%e179692180322%_))) + (_%hd179693180325%_ (let () (declare (not safe)) - (##car _%e179655180285%_)))) + (##car _%e179692180322%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179656180288%_)) - (let ((_%e179658180293%_ + (gx#stx-pair? _%hd179693180325%_)) + (let ((_%e179695180330%_ (let () (declare (not safe)) - (gx#stx-e _%hd179656180288%_)))) - (let ((_%tl179660180298%_ + (gx#stx-e _%hd179693180325%_)))) + (let ((_%tl179697180335%_ (let () (declare (not safe)) - (##cdr _%e179658180293%_))) - (_%hd179659180296%_ + (##cdr _%e179695180330%_))) + (_%hd179696180333%_ (let () (declare (not safe)) - (##car _%e179658180293%_)))) + (##car _%e179695180330%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179659180296%_)) - (let ((_%e179661180301%_ + (gx#stx-pair? _%hd179696180333%_)) + (let ((_%e179698180338%_ (let () (declare (not safe)) - (gx#stx-e _%hd179659180296%_)))) - (let ((_%tl179663180306%_ + (gx#stx-e _%hd179696180333%_)))) + (let ((_%tl179700180343%_ (let () (declare (not safe)) - (##cdr _%e179661180301%_))) - (_%hd179662180304%_ + (##cdr _%e179698180338%_))) + (_%hd179699180341%_ (let () (declare (not safe)) - (##car _%e179661180301%_)))) + (##car _%e179698180338%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179663180306%_)) - (let ((_%e179664180309%_ + (gx#stx-pair? _%tl179700180343%_)) + (let ((_%e179701180346%_ (let () (declare (not safe)) (gx#stx-e - _%tl179663180306%_)))) - (let ((_%tl179666180314%_ + _%tl179700180343%_)))) + (let ((_%tl179703180351%_ (let () (declare (not safe)) - (##cdr _%e179664180309%_))) - (_%hd179665180312%_ + (##cdr _%e179701180346%_))) + (_%hd179702180349%_ (let () (declare (not safe)) - (##car _%e179664180309%_)))) + (##car _%e179701180346%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179666180314%_)) + _%tl179703180351%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179660180298%_)) - (let ((_%e179667180317%_ + _%tl179697180335%_)) + (let ((_%e179704180354%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179660180298%_)))) - (let ((_%tl179669180322%_ - (let () (declare (not safe)) (##cdr _%e179667180317%_))) - (_%hd179668180320%_ + (gx#stx-e _%tl179697180335%_)))) + (let ((_%tl179706180359%_ + (let () (declare (not safe)) (##cdr _%e179704180354%_))) + (_%hd179705180357%_ (let () (declare (not safe)) - (##car _%e179667180317%_)))) + (##car _%e179704180354%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179668180320%_)) - (let ((_%e179670180325%_ + (gx#stx-pair? _%hd179705180357%_)) + (let ((_%e179707180362%_ (let () (declare (not safe)) - (gx#stx-e _%hd179668180320%_)))) - (let ((_%tl179672180330%_ + (gx#stx-e _%hd179705180357%_)))) + (let ((_%tl179709180367%_ (let () (declare (not safe)) - (##cdr _%e179670180325%_))) - (_%hd179671180328%_ + (##cdr _%e179707180362%_))) + (_%hd179708180365%_ (let () (declare (not safe)) - (##car _%e179670180325%_)))) + (##car _%e179707180362%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179671180328%_)) + (gx#identifier? _%hd179708180365%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd179671180328%_)) + (gx#stx-eq? '%#call _%hd179708180365%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179672180330%_)) - (let ((_%e179673180333%_ + (gx#stx-pair? _%tl179709180367%_)) + (let ((_%e179710180370%_ (let () (declare (not safe)) - (gx#stx-e _%tl179672180330%_)))) - (let ((_%tl179675180338%_ + (gx#stx-e _%tl179709180367%_)))) + (let ((_%tl179712180375%_ (let () (declare (not safe)) - (##cdr _%e179673180333%_))) - (_%hd179674180336%_ + (##cdr _%e179710180370%_))) + (_%hd179711180373%_ (let () (declare (not safe)) - (##car _%e179673180333%_)))) + (##car _%e179710180370%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179674180336%_)) - (let ((_%e179676180341%_ + _%hd179711180373%_)) + (let ((_%e179713180378%_ (let () (declare (not safe)) (gx#stx-e - _%hd179674180336%_)))) - (let ((_%tl179678180346%_ + _%hd179711180373%_)))) + (let ((_%tl179715180383%_ (let () (declare (not safe)) - (##cdr _%e179676180341%_))) - (_%hd179677180344%_ + (##cdr _%e179713180378%_))) + (_%hd179714180381%_ (let () (declare (not safe)) - (##car _%e179676180341%_)))) + (##car _%e179713180378%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179677180344%_)) + _%hd179714180381%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd179677180344%_)) + _%hd179714180381%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl179678180346%_)) - (let ((_%e179679180349%_ + (gx#stx-pair? _%tl179715180383%_)) + (let ((_%e179716180386%_ (let () (declare (not safe)) - (gx#stx-e _%tl179678180346%_)))) - (let ((_%tl179681180354%_ + (gx#stx-e _%tl179715180383%_)))) + (let ((_%tl179718180391%_ (let () (declare (not safe)) - (##cdr _%e179679180349%_))) - (_%hd179680180352%_ + (##cdr _%e179716180386%_))) + (_%hd179717180389%_ (let () (declare (not safe)) - (##car _%e179679180349%_)))) + (##car _%e179716180386%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179681180354%_)) + (gx#stx-null? _%tl179718180391%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179669180322%_)) + (gx#stx-null? _%tl179706180359%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179657180290%_)) + (gx#stx-null? _%tl179694180327%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179682180357%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179719180394%_ (let () (declare (not safe)) (gx#stx-e - _%tl179654180282%_)))) - (let ((_%tl179684180362%_ + _%tl179691180319%_)))) + (let ((_%tl179721180399%_ (let () (declare (not safe)) - (##cdr _%e179682180357%_))) - (_%hd179683180360%_ + (##cdr _%e179719180394%_))) + (_%hd179720180397%_ (let () (declare (not safe)) - (##car _%e179682180357%_)))) + (##car _%e179719180394%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179684180362%_)) - (_%__match191988191989%_ - _%e179632180418%_ - _%hd179633180421%_ - _%tl179634180423%_ - _%e179652180277%_ - _%hd179653180280%_ - _%tl179654180282%_ - _%e179655180285%_ - _%hd179656180288%_ - _%tl179657180290%_ - _%e179658180293%_ - _%hd179659180296%_ - _%tl179660180298%_ - _%e179661180301%_ - _%hd179662180304%_ - _%tl179663180306%_ - _%e179664180309%_ - _%hd179665180312%_ - _%tl179666180314%_ - _%e179667180317%_ - _%hd179668180320%_ - _%tl179669180322%_ - _%e179670180325%_ - _%hd179671180328%_ - _%tl179672180330%_ - _%e179673180333%_ - _%hd179674180336%_ - _%tl179675180338%_ - _%e179676180341%_ - _%hd179677180344%_ - _%tl179678180346%_ - _%e179679180349%_ - _%hd179680180352%_ - _%tl179681180354%_ - _%e179682180357%_ - _%hd179683180360%_ - _%tl179684180362%_) + _%tl179721180399%_)) + (_%__match192025192026%_ + _%e179669180455%_ + _%hd179670180458%_ + _%tl179671180460%_ + _%e179689180314%_ + _%hd179690180317%_ + _%tl179691180319%_ + _%e179692180322%_ + _%hd179693180325%_ + _%tl179694180327%_ + _%e179695180330%_ + _%hd179696180333%_ + _%tl179697180335%_ + _%e179698180338%_ + _%hd179699180341%_ + _%tl179700180343%_ + _%e179701180346%_ + _%hd179702180349%_ + _%tl179703180351%_ + _%e179704180354%_ + _%hd179705180357%_ + _%tl179706180359%_ + _%e179707180362%_ + _%hd179708180365%_ + _%tl179709180367%_ + _%e179710180370%_ + _%hd179711180373%_ + _%tl179712180375%_ + _%e179713180378%_ + _%hd179714180381%_ + _%tl179715180383%_ + _%e179716180386%_ + _%hd179717180389%_ + _%tl179718180391%_ + _%e179719180394%_ + _%hd179720180397%_ + _%tl179721180399%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_))) + (_%g179664179797%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) (gx#stx-e - _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_)))) + (_%g179664179797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_)))) + (_%g179664179797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + (gx#stx-null? _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_)))))) + (_%g179664179797%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + (gx#stx-null? _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_)))) + (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + (gx#stx-null? _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_)))) + (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) - (let () (declare (not safe)) (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_)))))) + (gx#stx-null? _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) + (let () (declare (not safe)) (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179654180282%_)) - (let ((_%e179693180239%_ + _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) (gx#stx-e - _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_)))))) + (_%g179664179797%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) (gx#stx-e - _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_)))) + (_%g179664179797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_)))) + (_%g179664179797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + (gx#stx-null? _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_)))))) + (_%g179664179797%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + (gx#stx-null? _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_)))))) + (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) - (let () (declare (not safe)) (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_)))) + (gx#stx-null? _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) + (let () (declare (not safe)) (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179654180282%_)) - (let ((_%e179693180239%_ + _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ - (let () (declare (not safe)) (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ + (let () (declare (not safe)) (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) - (let () (declare (not safe)) (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_)))))) + (gx#stx-null? _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) + (let () (declare (not safe)) (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179654180282%_)) - (let ((_%e179693180239%_ + _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) (gx#stx-e - _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_)))))) + (_%g179664179797%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_)))))) + (_%g179664179797%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + (gx#stx-null? _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_)))))) + (_%g179664179797%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179654180282%_)) - (let ((_%e179693180239%_ + (gx#stx-pair? _%tl179691180319%_)) + (let ((_%e179730180276%_ (let () (declare (not safe)) - (gx#stx-e _%tl179654180282%_)))) - (let ((_%tl179695180244%_ + (gx#stx-e _%tl179691180319%_)))) + (let ((_%tl179732180281%_ (let () (declare (not safe)) - (##cdr _%e179693180239%_))) - (_%hd179694180242%_ + (##cdr _%e179730180276%_))) + (_%hd179731180279%_ (let () (declare (not safe)) - (##car _%e179693180239%_)))) + (##car _%e179730180276%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179695180244%_)) - (_%__kont191855191856%_ - _%hd179694180242%_ - _%hd179653180280%_) + (gx#stx-null? _%tl179732180281%_)) + (_%__kont191892191893%_ + _%hd179731180279%_ + _%hd179690180317%_) (let () (declare (not safe)) - (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_)))))) + (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179627179760%_))) + (_%g179664179797%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd179633180421%_)) + _%hd179670180458%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179634180423%_)) - (let ((_%e179702180143%_ + _%tl179671180460%_)) + (let ((_%e179739180180%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179634180423%_)))) - (let ((_%tl179704180148%_ - (let () (declare (not safe)) (##cdr _%e179702180143%_))) - (_%hd179703180146%_ + (gx#stx-e _%tl179671180460%_)))) + (let ((_%tl179741180185%_ + (let () (declare (not safe)) (##cdr _%e179739180180%_))) + (_%hd179740180183%_ (let () (declare (not safe)) - (##car _%e179702180143%_)))) + (##car _%e179739180180%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179703180146%_)) - (let ((_%e179705180151%_ + (gx#stx-pair? _%hd179740180183%_)) + (let ((_%e179742180188%_ (let () (declare (not safe)) - (gx#stx-e _%hd179703180146%_)))) - (let ((_%tl179707180156%_ + (gx#stx-e _%hd179740180183%_)))) + (let ((_%tl179744180193%_ (let () (declare (not safe)) - (##cdr _%e179705180151%_))) - (_%hd179706180154%_ + (##cdr _%e179742180188%_))) + (_%hd179743180191%_ (let () (declare (not safe)) - (##car _%e179705180151%_)))) + (##car _%e179742180188%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179706180154%_)) - (let ((_%e179708180159%_ + (gx#stx-pair? _%hd179743180191%_)) + (let ((_%e179745180196%_ (let () (declare (not safe)) - (gx#stx-e _%hd179706180154%_)))) - (let ((_%tl179710180164%_ + (gx#stx-e _%hd179743180191%_)))) + (let ((_%tl179747180201%_ (let () (declare (not safe)) - (##cdr _%e179708180159%_))) - (_%hd179709180162%_ + (##cdr _%e179745180196%_))) + (_%hd179746180199%_ (let () (declare (not safe)) - (##car _%e179708180159%_)))) + (##car _%e179745180196%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179709180162%_)) - (let ((_%e179711180167%_ + (gx#stx-pair? _%hd179746180199%_)) + (let ((_%e179748180204%_ (let () (declare (not safe)) - (gx#stx-e _%hd179709180162%_)))) - (let ((_%tl179713180172%_ + (gx#stx-e _%hd179746180199%_)))) + (let ((_%tl179750180209%_ (let () (declare (not safe)) - (##cdr _%e179711180167%_))) - (_%hd179712180170%_ + (##cdr _%e179748180204%_))) + (_%hd179749180207%_ (let () (declare (not safe)) - (##car _%e179711180167%_)))) + (##car _%e179748180204%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179713180172%_)) + _%tl179750180209%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179710180164%_)) - (let ((_%e179714180175%_ + _%tl179747180201%_)) + (let ((_%e179751180212%_ (let () (declare (not safe)) (gx#stx-e - _%tl179710180164%_)))) - (let ((_%tl179716180180%_ + _%tl179747180201%_)))) + (let ((_%tl179753180217%_ (let () (declare (not safe)) - (##cdr _%e179714180175%_))) - (_%hd179715180178%_ + (##cdr _%e179751180212%_))) + (_%hd179752180215%_ (let () (declare (not safe)) - (##car _%e179714180175%_)))) + (##car _%e179751180212%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179716180180%_)) + _%tl179753180217%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl179707180156%_)) + (gx#stx-null? _%tl179744180193%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179704180148%_)) - (let ((_%e179717180183%_ + (gx#stx-pair? _%tl179741180185%_)) + (let ((_%e179754180220%_ (let () (declare (not safe)) - (gx#stx-e _%tl179704180148%_)))) - (let ((_%tl179719180188%_ + (gx#stx-e _%tl179741180185%_)))) + (let ((_%tl179756180225%_ (let () (declare (not safe)) - (##cdr _%e179717180183%_))) - (_%hd179718180186%_ + (##cdr _%e179754180220%_))) + (_%hd179755180223%_ (let () (declare (not safe)) - (##car _%e179717180183%_)))) + (##car _%e179754180220%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179719180188%_)) - (_%__kont191857191858%_ - _%hd179718180186%_ - _%hd179715180178%_ - _%hd179712180170%_) + (gx#stx-null? _%tl179756180225%_)) + (_%__kont191894191895%_ + _%hd179755180223%_ + _%hd179752180215%_ + _%hd179749180207%_) (let () (declare (not safe)) - (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_))) - (let () (declare (not safe)) (_%g179627179760%_))) - (let () (declare (not safe)) (_%g179627179760%_))))) + (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_))) + (let () (declare (not safe)) (_%g179664179797%_))) + (let () (declare (not safe)) (_%g179664179797%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179627179760%_))) + (_%g179664179797%_))) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_))) + (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179633180421%_)) + _%hd179670180458%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179634180423%_)) - (let ((_%e179726179773%_ + _%tl179671180460%_)) + (let ((_%e179763179810%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl179634180423%_)))) - (let ((_%tl179728179778%_ + (gx#stx-e _%tl179671180460%_)))) + (let ((_%tl179765179815%_ (let () (declare (not safe)) - (##cdr _%e179726179773%_))) - (_%hd179727179776%_ + (##cdr _%e179763179810%_))) + (_%hd179764179813%_ (let () (declare (not safe)) - (##car _%e179726179773%_)))) + (##car _%e179763179810%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179727179776%_)) - (let ((_%e179729179781%_ + (gx#stx-pair? _%hd179764179813%_)) + (let ((_%e179766179818%_ (let () (declare (not safe)) - (gx#stx-e _%hd179727179776%_)))) - (let ((_%tl179731179786%_ + (gx#stx-e _%hd179764179813%_)))) + (let ((_%tl179768179823%_ (let () (declare (not safe)) - (##cdr _%e179729179781%_))) - (_%hd179730179784%_ + (##cdr _%e179766179818%_))) + (_%hd179767179821%_ (let () (declare (not safe)) - (##car _%e179729179781%_)))) + (##car _%e179766179818%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179730179784%_)) + (gx#identifier? _%hd179767179821%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179730179784%_)) + _%hd179767179821%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179731179786%_)) - (let ((_%e179732179789%_ + (gx#stx-pair? _%tl179768179823%_)) + (let ((_%e179769179826%_ (let () (declare (not safe)) (gx#stx-e - _%tl179731179786%_)))) - (let ((_%tl179734179794%_ + _%tl179768179823%_)))) + (let ((_%tl179771179831%_ (let () (declare (not safe)) - (##cdr _%e179732179789%_))) - (_%hd179733179792%_ + (##cdr _%e179769179826%_))) + (_%hd179770179829%_ (let () (declare (not safe)) - (##car _%e179732179789%_)))) + (##car _%e179769179826%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179733179792%_)) - (let ((_%__splice191861191862%_ + _%hd179770179829%_)) + (let ((_%__splice191898191899%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd179733179792%_ + _%hd179770179829%_ '0)))) - (let ((_%tl179737179799%_ + (let ((_%tl179774179836%_ (let () (declare (not safe)) (##vector-ref - _%__splice191861191862%_ + _%__splice191898191899%_ '1))) - (_%target179735179797%_ + (_%target179772179834%_ (let () (declare (not safe)) (##vector-ref - _%__splice191861191862%_ + _%__splice191898191899%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179737179799%_)) - (_%__match192106192107%_ - _%e179632180418%_ - _%hd179633180421%_ - _%tl179634180423%_ - _%e179726179773%_ - _%hd179727179776%_ - _%tl179728179778%_ - _%e179729179781%_ - _%hd179730179784%_ - _%tl179731179786%_ - _%e179732179789%_ - _%hd179733179792%_ - _%tl179734179794%_ - _%__splice191861191862%_ - _%target179735179797%_ - _%tl179737179799%_) + _%tl179774179836%_)) + (_%__match192143192144%_ + _%e179669180455%_ + _%hd179670180458%_ + _%tl179671180460%_ + _%e179763179810%_ + _%hd179764179813%_ + _%tl179765179815%_ + _%e179766179818%_ + _%hd179767179821%_ + _%tl179768179823%_ + _%e179769179826%_ + _%hd179770179829%_ + _%tl179771179831%_ + _%__splice191898191899%_ + _%target179772179834%_ + _%tl179774179836%_) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_))) + (_%g179664179797%_))) (let () (declare (not safe)) - (_%g179627179760%_))) + (_%g179664179797%_))) (let () (declare (not safe)) - (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_))))) - (let () (declare (not safe)) (_%g179627179760%_))) - (let () (declare (not safe)) (_%g179627179760%_)))))) + (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_))))) + (let () (declare (not safe)) (_%g179664179797%_))) + (let () (declare (not safe)) (_%g179664179797%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179627179760%_))))) + (_%g179664179797%_))))) (let () (declare (not safe)) - (_%g179627179760%_)))))))) - (_%xform-loop-e179234%_ - (lambda (_%expr179444%_ - _%kont-id179445%_ - _%kont-box179446%_ - _%negation-id179447%_) - (let* ((_%g179449179489%_ - (lambda (_%g179450179486%_) + (_%g179664179797%_)))))))) + (_%xform-loop-e179271%_ + (lambda (_%expr179481%_ + _%kont-id179482%_ + _%kont-box179483%_ + _%negation-id179484%_) + (let* ((_%g179486179526%_ + (lambda (_%g179487179523%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g179450179486%_)))) - (_%g179448179615%_ - (lambda (_%g179450179492%_) + _%g179487179523%_)))) + (_%g179485179652%_ + (lambda (_%g179487179529%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179450179492%_)) - (let ((_%e179455179494%_ + (gx#stx-pair? _%g179487179529%_)) + (let ((_%e179492179531%_ (let () (declare (not safe)) - (gx#stx-e _%g179450179492%_)))) - (let ((_%hd179456179497%_ + (gx#stx-e _%g179487179529%_)))) + (let ((_%hd179493179534%_ (let () (declare (not safe)) - (##car _%e179455179494%_))) - (_%tl179457179499%_ + (##car _%e179492179531%_))) + (_%tl179494179536%_ (let () (declare (not safe)) - (##cdr _%e179455179494%_)))) + (##cdr _%e179492179531%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179456179497%_)) + _%hd179493179534%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179456179497%_)) + _%hd179493179534%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179457179499%_)) - (let ((_%e179458179502%_ + _%tl179494179536%_)) + (let ((_%e179495179539%_ (let () (declare (not safe)) (gx#stx-e - _%tl179457179499%_)))) - (let ((_%hd179459179505%_ + _%tl179494179536%_)))) + (let ((_%hd179496179542%_ (let () (declare (not safe)) - (##car _%e179458179502%_))) - (_%tl179460179507%_ + (##car _%e179495179539%_))) + (_%tl179497179544%_ (let () (declare (not safe)) - (##cdr _%e179458179502%_)))) + (##cdr _%e179495179539%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179459179505%_)) - (let ((_g192494_ + _%hd179496179542%_)) + (let ((_g192531_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd179459179505%_ '0)))) + (gx#syntax-split-splice _%hd179496179542%_ '0)))) (begin - (let ((_g192495_ + (let ((_g192532_ (let () (declare (not safe)) - (if (##values? _g192494_) - (##vector-length _g192494_) + (if (##values? _g192531_) + (##vector-length _g192531_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192495_ 2))) - (error "Context expects 2 values" _g192495_))) - (let ((_%target179461179510%_ + (##fx= _g192532_ 2))) + (error "Context expects 2 values" _g192532_))) + (let ((_%target179498179547%_ (let () (declare (not safe)) - (##vector-ref _g192494_ 0))) - (_%tl179463179512%_ + (##vector-ref _g192531_ 0))) + (_%tl179500179549%_ (let () (declare (not safe)) - (##vector-ref _g192494_ 1)))) + (##vector-ref _g192531_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179463179512%_)) - (letrec ((_%loop179464179515%_ - (lambda (_%hd179462179518%_ - _%id179468179520%_) + (gx#stx-null? _%tl179500179549%_)) + (letrec ((_%loop179501179552%_ + (lambda (_%hd179499179555%_ + _%id179505179557%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179462179518%_)) - (let ((_%e179465179523%_ + _%hd179499179555%_)) + (let ((_%e179502179560%_ (let () (declare (not safe)) (gx#stx-e - _%hd179462179518%_)))) - (let ((_%lp-hd179466179526%_ + _%hd179499179555%_)))) + (let ((_%lp-hd179503179563%_ (let () (declare (not safe)) - (##car _%e179465179523%_))) - (_%lp-tl179467179528%_ + (##car _%e179502179560%_))) + (_%lp-tl179504179565%_ (let () (declare (not safe)) - (##cdr _%e179465179523%_)))) - (_%loop179464179515%_ - _%lp-tl179467179528%_ - (cons _%lp-hd179466179526%_ - _%id179468179520%_)))) - (let ((_%id179469179531%_ - (reverse _%id179468179520%_))) + (##cdr _%e179502179560%_)))) + (_%loop179501179552%_ + _%lp-tl179504179565%_ + (cons _%lp-hd179503179563%_ + _%id179505179557%_)))) + (let ((_%id179506179568%_ + (reverse _%id179505179557%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179460179507%_)) - (let ((_%e179470179534%_ + _%tl179497179544%_)) + (let ((_%e179507179571%_ (let () (declare (not safe)) (gx#stx-e - _%tl179460179507%_)))) - (let ((_%hd179471179537%_ + _%tl179497179544%_)))) + (let ((_%hd179508179574%_ (let () (declare (not safe)) - (##car _%e179470179534%_))) - (_%tl179472179539%_ + (##car _%e179507179571%_))) + (_%tl179509179576%_ (let () (declare (not safe)) - (##cdr _%e179470179534%_)))) + (##cdr _%e179507179571%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179471179537%_)) - (let ((_%e179473179542%_ + _%hd179508179574%_)) + (let ((_%e179510179579%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179471179537%_)))) - (let ((_%hd179474179545%_ + (gx#stx-e _%hd179508179574%_)))) + (let ((_%hd179511179582%_ (let () (declare (not safe)) - (##car _%e179473179542%_))) - (_%tl179475179547%_ + (##car _%e179510179579%_))) + (_%tl179512179584%_ (let () (declare (not safe)) - (##cdr _%e179473179542%_)))) + (##cdr _%e179510179579%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179474179545%_)) + (gx#identifier? _%hd179511179582%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd179474179545%_)) + (gx#stx-eq? '%#if _%hd179511179582%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179475179547%_)) - (let ((_%e179476179550%_ + (gx#stx-pair? _%tl179512179584%_)) + (let ((_%e179513179587%_ (let () (declare (not safe)) - (gx#stx-e _%tl179475179547%_)))) - (let ((_%hd179477179553%_ + (gx#stx-e _%tl179512179584%_)))) + (let ((_%hd179514179590%_ (let () (declare (not safe)) - (##car _%e179476179550%_))) - (_%tl179478179555%_ + (##car _%e179513179587%_))) + (_%tl179515179592%_ (let () (declare (not safe)) - (##cdr _%e179476179550%_)))) + (##cdr _%e179513179587%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179478179555%_)) - (let ((_%e179479179558%_ + (gx#stx-pair? _%tl179515179592%_)) + (let ((_%e179516179595%_ (let () (declare (not safe)) (gx#stx-e - _%tl179478179555%_)))) - (let ((_%hd179480179561%_ + _%tl179515179592%_)))) + (let ((_%hd179517179598%_ (let () (declare (not safe)) - (##car _%e179479179558%_))) - (_%tl179481179563%_ + (##car _%e179516179595%_))) + (_%tl179518179600%_ (let () (declare (not safe)) - (##cdr _%e179479179558%_)))) + (##cdr _%e179516179595%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179481179563%_)) - (let ((_%e179482179566%_ + _%tl179518179600%_)) + (let ((_%e179519179603%_ (let () (declare (not safe)) (gx#stx-e - _%tl179481179563%_)))) - (let ((_%hd179483179569%_ + _%tl179518179600%_)))) + (let ((_%hd179520179606%_ (let () (declare (not safe)) - (##car _%e179482179566%_))) - (_%tl179484179571%_ + (##car _%e179519179603%_))) + (_%tl179521179608%_ (let () (declare (not safe)) - (##cdr _%e179482179566%_)))) + (##cdr _%e179519179603%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179484179571%_)) + _%tl179521179608%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl179472179539%_)) - ((lambda (_%L179574%_ - _%L179575%_ - _%L179576%_ - _%L179577%_) - (let ((_%E179606%_ - (_%xform-e179233%_ - _%L179574%_ - _%kont-id179445%_ - _%kont-box179446%_ - _%negation-id179447%_))) + (gx#stx-null? _%tl179509179576%_)) + ((lambda (_%L179611%_ + _%L179612%_ + _%L179613%_ + _%L179614%_) + (let ((_%E179643%_ + (_%xform-e179270%_ + _%L179611%_ + _%kont-id179482%_ + _%kont-box179483%_ + _%negation-id179484%_))) (cons '%#lambda - (cons (let ((__tmp192496 - (lambda (_%g179607179610%_ - _%g179608179612%_) - (cons _%g179607179610%_ - _%g179608179612%_)))) + (cons (let ((__tmp192533 + (lambda (_%g179644179647%_ + _%g179645179649%_) + (cons _%g179644179647%_ + _%g179645179649%_)))) (declare (not safe)) (__foldr1 - __tmp192496 + __tmp192533 '() - _%L179577%_)) + _%L179614%_)) (cons (cons '%#if - (cons _%L179576%_ - (cons _%L179575%_ - (cons _%E179606%_ + (cons _%L179613%_ + (cons _%L179612%_ + (cons _%E179643%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd179483179569%_ - _%hd179480179561%_ - _%hd179477179553%_ - _%id179469179531%_) - (_%g179449179489%_ _%g179450179492%_)) - (_%g179449179489%_ _%g179450179492%_)))) + _%hd179520179606%_ + _%hd179517179598%_ + _%hd179514179590%_ + _%id179506179568%_) + (_%g179486179526%_ _%g179487179529%_)) + (_%g179486179526%_ _%g179487179529%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179449179489%_ - _%g179450179492%_)))) - (_%g179449179489%_ - _%g179450179492%_)))) - (_%g179449179489%_ _%g179450179492%_)) - (_%g179449179489%_ _%g179450179492%_)) - (_%g179449179489%_ _%g179450179492%_)))) - (_%g179449179489%_ _%g179450179492%_)))) + (_%g179486179526%_ + _%g179487179529%_)))) + (_%g179486179526%_ + _%g179487179529%_)))) + (_%g179486179526%_ _%g179487179529%_)) + (_%g179486179526%_ _%g179487179529%_)) + (_%g179486179526%_ _%g179487179529%_)))) + (_%g179486179526%_ _%g179487179529%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179449179489%_ - _%g179450179492%_))))))) - (_%loop179464179515%_ - _%target179461179510%_ + (_%g179486179526%_ + _%g179487179529%_))))))) + (_%loop179501179552%_ + _%target179498179547%_ '())) - (_%g179449179489%_ _%g179450179492%_))))) - (_%g179449179489%_ _%g179450179492%_)))) + (_%g179486179526%_ _%g179487179529%_))))) + (_%g179486179526%_ _%g179487179529%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179449179489%_ - _%g179450179492%_)) - (_%g179449179489%_ - _%g179450179492%_)) - (_%g179449179489%_ - _%g179450179492%_)))) - (_%g179449179489%_ _%g179450179492%_))))) - (_%g179448179615%_ _%expr179444%_)))) - (_%clause-e179235%_ - (lambda (_%clause-lambda179314%_ - _%kont-id179315%_ - _%rest179316%_) - (letrec* ((_%kont-box179318%_ (box '#f))) - (let* ((_%negation-id179358%_ - (let* ((_%rest179319179329%_ _%rest179316%_) - (_%else179321179337%_ - (lambda () _%negation-id179231%_)) - (_%K179323179343%_ - (lambda (_%clause179340%_ - _%clause-id179341%_) - _%clause-id179341%_))) - (if (pair? _%rest179319179329%_) - (let ((_%hd179324179346%_ + (_%g179486179526%_ + _%g179487179529%_)) + (_%g179486179526%_ + _%g179487179529%_)) + (_%g179486179526%_ + _%g179487179529%_)))) + (_%g179486179526%_ _%g179487179529%_))))) + (_%g179485179652%_ _%expr179481%_)))) + (_%clause-e179272%_ + (lambda (_%clause-lambda179351%_ + _%kont-id179352%_ + _%rest179353%_) + (letrec* ((_%kont-box179355%_ (box '#f))) + (let* ((_%negation-id179395%_ + (let* ((_%rest179356179366%_ _%rest179353%_) + (_%else179358179374%_ + (lambda () _%negation-id179268%_)) + (_%K179360179380%_ + (lambda (_%clause179377%_ + _%clause-id179378%_) + _%clause-id179378%_))) + (if (pair? _%rest179356179366%_) + (let ((_%hd179361179383%_ (let () (declare (not safe)) - (##car _%rest179319179329%_)))) - (if (pair? _%hd179324179346%_) - (let ((_%hd179326179349%_ + (##car _%rest179356179366%_)))) + (if (pair? _%hd179361179383%_) + (let ((_%hd179363179386%_ (let () (declare (not safe)) - (##car _%hd179324179346%_))) - (_%tl179327179351%_ + (##car _%hd179361179383%_))) + (_%tl179364179388%_ (let () (declare (not safe)) - (##cdr _%hd179324179346%_)))) - (let* ((_%clause-id179354%_ - _%hd179326179349%_) - (_%clause179356%_ - _%tl179327179351%_)) - (_%K179323179343%_ - _%clause179356%_ - _%clause-id179354%_))) - (_%else179321179337%_))) - (_%else179321179337%_)))) - (_%g179360179380%_ - (lambda (_%g179361179377%_) + (##cdr _%hd179361179383%_)))) + (let* ((_%clause-id179391%_ + _%hd179363179386%_) + (_%clause179393%_ + _%tl179364179388%_)) + (_%K179360179380%_ + _%clause179393%_ + _%clause-id179391%_))) + (_%else179358179374%_))) + (_%else179358179374%_)))) + (_%g179397179417%_ + (lambda (_%g179398179414%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g179361179377%_)))) - (_%g179359179441%_ - (lambda (_%g179361179383%_) + _%g179398179414%_)))) + (_%g179396179478%_ + (lambda (_%g179398179420%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179361179383%_)) - (let ((_%e179364179385%_ + (gx#stx-pair? _%g179398179420%_)) + (let ((_%e179401179422%_ (let () (declare (not safe)) - (gx#stx-e _%g179361179383%_)))) - (let ((_%hd179365179388%_ + (gx#stx-e _%g179398179420%_)))) + (let ((_%hd179402179425%_ (let () (declare (not safe)) - (##car _%e179364179385%_))) - (_%tl179366179390%_ + (##car _%e179401179422%_))) + (_%tl179403179427%_ (let () (declare (not safe)) - (##cdr _%e179364179385%_)))) + (##cdr _%e179401179422%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179365179388%_)) + _%hd179402179425%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179365179388%_)) + _%hd179402179425%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179366179390%_)) - (let ((_%e179367179393%_ + _%tl179403179427%_)) + (let ((_%e179404179430%_ (let () (declare (not safe)) (gx#stx-e - _%tl179366179390%_)))) - (let ((_%hd179368179396%_ + _%tl179403179427%_)))) + (let ((_%hd179405179433%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e179367179393%_))) - (_%tl179369179398%_ - (let () (declare (not safe)) (##cdr _%e179367179393%_)))) + (##car _%e179404179430%_))) + (_%tl179406179435%_ + (let () (declare (not safe)) (##cdr _%e179404179430%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179368179396%_)) - (let ((_%e179370179401%_ + (gx#stx-pair? _%hd179405179433%_)) + (let ((_%e179407179438%_ (let () (declare (not safe)) - (gx#stx-e _%hd179368179396%_)))) - (let ((_%hd179371179404%_ + (gx#stx-e _%hd179405179433%_)))) + (let ((_%hd179408179441%_ (let () (declare (not safe)) - (##car _%e179370179401%_))) - (_%tl179372179406%_ + (##car _%e179407179438%_))) + (_%tl179409179443%_ (let () (declare (not safe)) - (##cdr _%e179370179401%_)))) + (##cdr _%e179407179438%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179372179406%_)) + (gx#stx-null? _%tl179409179443%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179369179398%_)) - (let ((_%e179373179409%_ + (gx#stx-pair? _%tl179406179435%_)) + (let ((_%e179410179446%_ (let () (declare (not safe)) - (gx#stx-e _%tl179369179398%_)))) - (let ((_%hd179374179412%_ + (gx#stx-e _%tl179406179435%_)))) + (let ((_%hd179411179449%_ (let () (declare (not safe)) - (##car _%e179373179409%_))) - (_%tl179375179414%_ + (##car _%e179410179446%_))) + (_%tl179412179451%_ (let () (declare (not safe)) - (##cdr _%e179373179409%_)))) + (##cdr _%e179410179446%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179375179414%_)) - ((lambda (_%L179417%_ _%L179418%_) - (let ((_%body179439%_ - (_%xform-e179233%_ - _%L179417%_ - _%kont-id179315%_ - _%kont-box179318%_ - _%negation-id179358%_))) + (gx#stx-null? _%tl179412179451%_)) + ((lambda (_%L179454%_ _%L179455%_) + (let ((_%body179476%_ + (_%xform-e179270%_ + _%L179454%_ + _%kont-id179352%_ + _%kont-box179355%_ + _%negation-id179395%_))) (values (cons '%#lambda - (cons (cons _%L179418%_ + (cons (cons _%L179455%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%body179439%_ '()))) + (cons _%body179476%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _%kont-box179318%_)))) - _%hd179374179412%_ - _%hd179371179404%_) - (_%g179360179380%_ - _%g179361179383%_)))) - (_%g179360179380%_ _%g179361179383%_)) - (_%g179360179380%_ _%g179361179383%_)))) - (_%g179360179380%_ _%g179361179383%_)))) + (unbox _%kont-box179355%_)))) + _%hd179411179449%_ + _%hd179408179441%_) + (_%g179397179417%_ + _%g179398179420%_)))) + (_%g179397179417%_ _%g179398179420%_)) + (_%g179397179417%_ _%g179398179420%_)))) + (_%g179397179417%_ _%g179398179420%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179360179380%_ - _%g179361179383%_)) - (_%g179360179380%_ - _%g179361179383%_)) - (_%g179360179380%_ - _%g179361179383%_)))) - (_%g179360179380%_ _%g179361179383%_))))) - (_%g179359179441%_ _%clause-lambda179314%_)))))) - (let _%lp179237%_ ((_%rest179239%_ _%clauses179230%_) - (_%clauses179240%_ '()) - (_%konts179241%_ '())) - (let* ((_%rest179242179250%_ _%rest179239%_) - (_%else179244179258%_ + (_%g179397179417%_ + _%g179398179420%_)) + (_%g179397179417%_ + _%g179398179420%_)) + (_%g179397179417%_ + _%g179398179420%_)))) + (_%g179397179417%_ _%g179398179420%_))))) + (_%g179396179478%_ _%clause-lambda179351%_)))))) + (let _%lp179274%_ ((_%rest179276%_ _%clauses179267%_) + (_%clauses179277%_ '()) + (_%konts179278%_ '())) + (let* ((_%rest179279179287%_ _%rest179276%_) + (_%else179281179295%_ (lambda () - (values (reverse _%clauses179240%_) - (reverse _%konts179241%_)))) - (_%K179246179302%_ - (lambda (_%rest179261%_ _%clause179262%_) - (let* ((_%clause179263179270%_ _%clause179262%_) - (_%E179265179274%_ + (values (reverse _%clauses179277%_) + (reverse _%konts179278%_)))) + (_%K179283179339%_ + (lambda (_%rest179298%_ _%clause179299%_) + (let* ((_%clause179300179307%_ _%clause179299%_) + (_%E179302179311%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause179263179270%_ + _%clause179300179307%_ '([clause-id . clause-lambda]))) '#!void)) - (_%K179266179290%_ - (lambda (_%clause-lambda179277%_ - _%clause-id179278%_) - (let* ((_%id179280%_ - (let ((__tmp192497 + (_%K179303179327%_ + (lambda (_%clause-lambda179314%_ + _%clause-id179315%_) + (let* ((_%id179317%_ + (let ((__tmp192534 (let () (declare (not safe)) (##gensym '__kont)))) (declare (not safe)) - (make-symbol__0 __tmp192497))) - (_%id179282%_ + (make-symbol__0 __tmp192534))) + (_%id179319%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id179280%_))) - (_%_179284%_ + _%id179317%_))) + (_%_179321%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id179282%_))) - (_g192498_ - (_%clause-e179235%_ - _%clause-lambda179277%_ - _%id179282%_ - _%rest179261%_))) + _%id179319%_))) + (_g192535_ + (_%clause-e179272%_ + _%clause-lambda179314%_ + _%id179319%_ + _%rest179298%_))) (begin - (let ((_g192499_ + (let ((_g192536_ (let () (declare (not safe)) - (if (##values? _g192498_) - (##vector-length _g192498_) + (if (##values? _g192535_) + (##vector-length _g192535_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192499_ 2))) + (##fx= _g192536_ 2))) (error "Context expects 2 values" - _g192499_))) - (let ((_%clause-lambda179286%_ + _g192536_))) + (let ((_%clause-lambda179323%_ (let () (declare (not safe)) - (##vector-ref _g192498_ 0))) - (_%kont179287%_ + (##vector-ref _g192535_ 0))) + (_%kont179324%_ (let () (declare (not safe)) - (##vector-ref _g192498_ 1)))) - (_%lp179237%_ - _%rest179261%_ - (cons (cons _%clause-id179278%_ - _%clause-lambda179286%_) - _%clauses179240%_) - (cons (cons _%id179282%_ _%kont179287%_) - _%konts179241%_)))))))) - (if (pair? _%clause179263179270%_) - (let ((_%hd179267179293%_ + (##vector-ref _g192535_ 1)))) + (_%lp179274%_ + _%rest179298%_ + (cons (cons _%clause-id179315%_ + _%clause-lambda179323%_) + _%clauses179277%_) + (cons (cons _%id179319%_ _%kont179324%_) + _%konts179278%_)))))))) + (if (pair? _%clause179300179307%_) + (let ((_%hd179304179330%_ (let () (declare (not safe)) - (##car _%clause179263179270%_))) - (_%tl179268179295%_ + (##car _%clause179300179307%_))) + (_%tl179305179332%_ (let () (declare (not safe)) - (##cdr _%clause179263179270%_)))) - (let* ((_%clause-id179298%_ _%hd179267179293%_) - (_%clause-lambda179300%_ - _%tl179268179295%_)) - (_%K179266179290%_ - _%clause-lambda179300%_ - _%clause-id179298%_))) - (_%E179265179274%_)))))) - (if (pair? _%rest179242179250%_) - (let ((_%hd179247179305%_ + (##cdr _%clause179300179307%_)))) + (let* ((_%clause-id179335%_ _%hd179304179330%_) + (_%clause-lambda179337%_ + _%tl179305179332%_)) + (_%K179303179327%_ + _%clause-lambda179337%_ + _%clause-id179335%_))) + (_%E179302179311%_)))))) + (if (pair? _%rest179279179287%_) + (let ((_%hd179284179342%_ (let () (declare (not safe)) - (##car _%rest179242179250%_))) - (_%tl179248179307%_ + (##car _%rest179279179287%_))) + (_%tl179285179344%_ (let () (declare (not safe)) - (##cdr _%rest179242179250%_)))) - (let* ((_%clause179310%_ _%hd179247179305%_) - (_%rest179312%_ _%tl179248179307%_)) - (_%K179246179302%_ _%rest179312%_ _%clause179310%_))) - (_%else179244179258%_))))))) + (##cdr _%rest179279179287%_)))) + (let* ((_%clause179347%_ _%hd179284179342%_) + (_%rest179349%_ _%tl179285179344%_)) + (_%K179283179339%_ _%rest179349%_ _%clause179347%_))) + (_%else179281179295%_))))))) (define gxc#optimize-syntax-case-closure - (lambda (_%clause178574%_ _%negation178575%_ _%target178576%_) - (letrec ((_%closure-e178578%_ - (lambda (_%expr178695%_) - (let* ((_%__stx192109192110%_ _%expr178695%_) - (_%g178702178817%_ + (lambda (_%clause178611%_ _%negation178612%_ _%target178613%_) + (letrec ((_%closure-e178615%_ + (lambda (_%expr178732%_) + (let* ((_%__stx192146192147%_ _%expr178732%_) + (_%g178739178854%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx192109192110%_))))) - (let ((_%__kont192111192112%_ - (lambda (_%L179208%_ _%L179209%_ _%L179210%_) + _%__stx192146192147%_))))) + (let ((_%__kont192148192149%_ + (lambda (_%L179245%_ _%L179246%_ _%L179247%_) (cons '%#if - (cons _%L179210%_ - (cons (_%closure-e178578%_ - _%L179209%_) - (cons (_%closure-e178578%_ - _%L179208%_) + (cons _%L179247%_ + (cons (_%closure-e178615%_ + _%L179246%_) + (cons (_%closure-e178615%_ + _%L179245%_) '())))))) - (_%__kont192113192114%_ - (lambda (_%L179156%_ _%L179157%_) + (_%__kont192150192151%_ + (lambda (_%L179193%_ _%L179194%_) (cons '%#let-values - (cons _%L179157%_ - (cons (_%closure-e178578%_ - _%L179156%_) + (cons _%L179194%_ + (cons (_%closure-e178615%_ + _%L179193%_) '()))))) - (_%__kont192115192116%_ - (lambda (_%L179102%_ _%L179103%_ _%L179104%_) + (_%__kont192152192153%_ + (lambda (_%L179139%_ _%L179140%_ _%L179141%_) (cons '%#letrec-values - (cons (cons (cons (cons _%L179104%_ '()) - (cons (_%closure-e178578%_ - _%L179103%_) + (cons (cons (cons (cons _%L179141%_ '()) + (cons (_%closure-e178615%_ + _%L179140%_) '())) '()) - (cons _%L179102%_ '()))))) - (_%__kont192117192118%_ - (lambda (_%L179015%_ _%L179016%_) + (cons _%L179139%_ '()))))) + (_%__kont192154192155%_ + (lambda (_%L179052%_ _%L179053%_) (cons '%#lambda - (cons (let ((__tmp192500 - (lambda (_%g179033179036%_ - _%g179034179038%_) - (cons _%g179033179036%_ - _%g179034179038%_)))) + (cons (let ((__tmp192537 + (lambda (_%g179070179073%_ + _%g179071179075%_) + (cons _%g179070179073%_ + _%g179071179075%_)))) (declare (not safe)) (__foldr1 - __tmp192500 + __tmp192537 '() - _%L179016%_)) - (cons (_%closure-e178578%_ - _%L179015%_) + _%L179053%_)) + (cons (_%closure-e178615%_ + _%L179052%_) '()))))) - (_%__kont192121192122%_ - (lambda (_%L178945%_) + (_%__kont192158192159%_ + (lambda (_%L178982%_) (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L178945%_ '())) + (cons _%L178982%_ '())) '())))) - (_%__kont192123192124%_ - (lambda (_%L178878%_ _%L178879%_) - _%expr178695%_))) - (let* ((_%__match192342192343%_ - (lambda (_%e178792178822%_ - _%hd178793178825%_ - _%tl178794178827%_ - _%e178795178830%_ - _%hd178796178833%_ - _%tl178797178835%_ - _%e178798178838%_ - _%hd178799178841%_ - _%tl178800178843%_ - _%e178801178846%_ - _%hd178802178849%_ - _%tl178803178851%_ - _%__splice192125192126%_ - _%target178804178854%_ - _%tl178806178856%_) - (letrec ((_%loop178807178859%_ - (lambda (_%hd178805178862%_ - _%arg178811178864%_) + (_%__kont192160192161%_ + (lambda (_%L178915%_ _%L178916%_) + _%expr178732%_))) + (let* ((_%__match192379192380%_ + (lambda (_%e178829178859%_ + _%hd178830178862%_ + _%tl178831178864%_ + _%e178832178867%_ + _%hd178833178870%_ + _%tl178834178872%_ + _%e178835178875%_ + _%hd178836178878%_ + _%tl178837178880%_ + _%e178838178883%_ + _%hd178839178886%_ + _%tl178840178888%_ + _%__splice192162192163%_ + _%target178841178891%_ + _%tl178843178893%_) + (letrec ((_%loop178844178896%_ + (lambda (_%hd178842178899%_ + _%arg178848178901%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178805178862%_)) - (let ((_%e178808178867%_ + _%hd178842178899%_)) + (let ((_%e178845178904%_ (let () (declare (not safe)) (gx#stx-e - _%hd178805178862%_)))) - (let ((_%lp-tl178810178872%_ + _%hd178842178899%_)))) + (let ((_%lp-tl178847178909%_ (let () (declare (not safe)) - (##cdr _%e178808178867%_))) - (_%lp-hd178809178870%_ + (##cdr _%e178845178904%_))) + (_%lp-hd178846178907%_ (let () (declare (not safe)) - (##car _%e178808178867%_)))) - (_%loop178807178859%_ - _%lp-tl178810178872%_ - (cons _%lp-hd178809178870%_ - _%arg178811178864%_)))) - (let ((_%arg178812178875%_ - (reverse _%arg178811178864%_))) - (_%__kont192123192124%_ - _%arg178812178875%_ - _%hd178802178849%_)))))) - (_%loop178807178859%_ - _%target178804178854%_ + (##car _%e178845178904%_)))) + (_%loop178844178896%_ + _%lp-tl178847178909%_ + (cons _%lp-hd178846178907%_ + _%arg178848178901%_)))) + (let ((_%arg178849178912%_ + (reverse _%arg178848178901%_))) + (_%__kont192160192161%_ + _%arg178849178912%_ + _%hd178839178886%_)))))) + (_%loop178844178896%_ + _%target178841178891%_ '())))) - (_%__match192300192301%_ - (lambda (_%e178775178905%_ - _%hd178776178908%_ - _%tl178777178910%_ - _%e178778178913%_ - _%hd178779178916%_ - _%tl178780178918%_ - _%e178781178921%_ - _%hd178782178924%_ - _%tl178783178926%_ - _%e178784178929%_ - _%hd178785178932%_ - _%tl178786178934%_ - _%e178787178937%_ - _%hd178788178940%_ - _%tl178789178942%_) - (let ((_%L178945%_ _%hd178785178932%_)) + (_%__match192337192338%_ + (lambda (_%e178812178942%_ + _%hd178813178945%_ + _%tl178814178947%_ + _%e178815178950%_ + _%hd178816178953%_ + _%tl178817178955%_ + _%e178818178958%_ + _%hd178819178961%_ + _%tl178820178963%_ + _%e178821178966%_ + _%hd178822178969%_ + _%tl178823178971%_ + _%e178824178974%_ + _%hd178825178977%_ + _%tl178826178979%_) + (let ((_%L178982%_ _%hd178822178969%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L178945%_ - _%negation178575%_)) - (_%__kont192121192122%_ _%L178945%_) + _%L178982%_ + _%negation178612%_)) + (_%__kont192158192159%_ _%L178982%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl178780178918%_)) - (let ((_%__splice192125192126%_ + _%tl178817178955%_)) + (let ((_%__splice192162192163%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178780178918%_ + _%tl178817178955%_ '0)))) - (let ((_%tl178806178856%_ + (let ((_%tl178843178893%_ (let () (declare (not safe)) (##vector-ref - _%__splice192125192126%_ + _%__splice192162192163%_ '1))) - (_%target178804178854%_ + (_%target178841178891%_ (let () (declare (not safe)) (##vector-ref - _%__splice192125192126%_ + _%__splice192162192163%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178806178856%_)) - (_%__match192342192343%_ - _%e178775178905%_ - _%hd178776178908%_ - _%tl178777178910%_ - _%e178778178913%_ - _%hd178779178916%_ - _%tl178780178918%_ - _%e178781178921%_ - _%hd178782178924%_ - _%tl178783178926%_ - _%e178784178929%_ - _%hd178785178932%_ - _%tl178786178934%_ - _%__splice192125192126%_ - _%target178804178854%_ - _%tl178806178856%_) + _%tl178843178893%_)) + (_%__match192379192380%_ + _%e178812178942%_ + _%hd178813178945%_ + _%tl178814178947%_ + _%e178815178950%_ + _%hd178816178953%_ + _%tl178817178955%_ + _%e178818178958%_ + _%hd178819178961%_ + _%tl178820178963%_ + _%e178821178966%_ + _%hd178822178969%_ + _%tl178823178971%_ + _%__splice192162192163%_ + _%target178841178891%_ + _%tl178843178893%_) (let () (declare (not safe)) - (_%g178702178817%_))))) + (_%g178739178854%_))))) (let () (declare (not safe)) - (_%g178702178817%_))))))) - (_%__match192258192259%_ - (lambda (_%e178756178967%_ - _%hd178757178970%_ - _%tl178758178972%_ - _%e178759178975%_ - _%hd178760178978%_ - _%tl178761178980%_ - _%__splice192119192120%_ - _%target178762178983%_ - _%tl178764178985%_) - (letrec ((_%loop178765178988%_ - (lambda (_%hd178763178991%_ - _%id178769178993%_) + (_%g178739178854%_))))))) + (_%__match192295192296%_ + (lambda (_%e178793179004%_ + _%hd178794179007%_ + _%tl178795179009%_ + _%e178796179012%_ + _%hd178797179015%_ + _%tl178798179017%_ + _%__splice192156192157%_ + _%target178799179020%_ + _%tl178801179022%_) + (letrec ((_%loop178802179025%_ + (lambda (_%hd178800179028%_ + _%id178806179030%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178763178991%_)) - (let ((_%e178766178996%_ + _%hd178800179028%_)) + (let ((_%e178803179033%_ (let () (declare (not safe)) (gx#stx-e - _%hd178763178991%_)))) - (let ((_%lp-tl178768179001%_ + _%hd178800179028%_)))) + (let ((_%lp-tl178805179038%_ (let () (declare (not safe)) - (##cdr _%e178766178996%_))) - (_%lp-hd178767178999%_ + (##cdr _%e178803179033%_))) + (_%lp-hd178804179036%_ (let () (declare (not safe)) - (##car _%e178766178996%_)))) - (_%loop178765178988%_ - _%lp-tl178768179001%_ - (cons _%lp-hd178767178999%_ - _%id178769178993%_)))) - (let ((_%id178770179004%_ - (reverse _%id178769178993%_))) + (##car _%e178803179033%_)))) + (_%loop178802179025%_ + _%lp-tl178805179038%_ + (cons _%lp-hd178804179036%_ + _%id178806179030%_)))) + (let ((_%id178807179041%_ + (reverse _%id178806179030%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178761178980%_)) - (let ((_%e178771179007%_ + _%tl178798179017%_)) + (let ((_%e178808179044%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl178761178980%_)))) - (let ((_%tl178773179012%_ + (gx#stx-e _%tl178798179017%_)))) + (let ((_%tl178810179049%_ (let () (declare (not safe)) - (##cdr _%e178771179007%_))) - (_%hd178772179010%_ + (##cdr _%e178808179044%_))) + (_%hd178809179047%_ (let () (declare (not safe)) - (##car _%e178771179007%_)))) + (##car _%e178808179044%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178773179012%_)) - (_%__kont192117192118%_ - _%hd178772179010%_ - _%id178770179004%_) - (let () (declare (not safe)) (_%g178702178817%_))))) - (let () (declare (not safe)) (_%g178702178817%_)))))))) + (gx#stx-null? _%tl178810179049%_)) + (_%__kont192154192155%_ + _%hd178809179047%_ + _%id178807179041%_) + (let () (declare (not safe)) (_%g178739178854%_))))) + (let () (declare (not safe)) (_%g178739178854%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop178765178988%_ - _%target178762178983%_ + (_%loop178802179025%_ + _%target178799179020%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx192109192110%_)) - (let ((_%e178707179176%_ + (gx#stx-pair? _%__stx192146192147%_)) + (let ((_%e178744179213%_ (let () (declare (not safe)) - (gx#stx-e _%__stx192109192110%_)))) - (let ((_%tl178709179181%_ + (gx#stx-e _%__stx192146192147%_)))) + (let ((_%tl178746179218%_ (let () (declare (not safe)) - (##cdr _%e178707179176%_))) - (_%hd178708179179%_ + (##cdr _%e178744179213%_))) + (_%hd178745179216%_ (let () (declare (not safe)) - (##car _%e178707179176%_)))) + (##car _%e178744179213%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178708179179%_)) + (gx#identifier? _%hd178745179216%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd178708179179%_)) + _%hd178745179216%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178709179181%_)) - (let ((_%e178710179184%_ + _%tl178746179218%_)) + (let ((_%e178747179221%_ (let () (declare (not safe)) (gx#stx-e - _%tl178709179181%_)))) - (let ((_%tl178712179189%_ + _%tl178746179218%_)))) + (let ((_%tl178749179226%_ (let () (declare (not safe)) - (##cdr _%e178710179184%_))) - (_%hd178711179187%_ + (##cdr _%e178747179221%_))) + (_%hd178748179224%_ (let () (declare (not safe)) - (##car _%e178710179184%_)))) + (##car _%e178747179221%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178712179189%_)) - (let ((_%e178713179192%_ + _%tl178749179226%_)) + (let ((_%e178750179229%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178712179189%_)))) - (let ((_%tl178715179197%_ - (let () (declare (not safe)) (##cdr _%e178713179192%_))) - (_%hd178714179195%_ + (gx#stx-e _%tl178749179226%_)))) + (let ((_%tl178752179234%_ + (let () (declare (not safe)) (##cdr _%e178750179229%_))) + (_%hd178751179232%_ (let () (declare (not safe)) - (##car _%e178713179192%_)))) + (##car _%e178750179229%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178715179197%_)) - (let ((_%e178716179200%_ + (gx#stx-pair? _%tl178752179234%_)) + (let ((_%e178753179237%_ (let () (declare (not safe)) - (gx#stx-e _%tl178715179197%_)))) - (let ((_%tl178718179205%_ + (gx#stx-e _%tl178752179234%_)))) + (let ((_%tl178755179242%_ (let () (declare (not safe)) - (##cdr _%e178716179200%_))) - (_%hd178717179203%_ + (##cdr _%e178753179237%_))) + (_%hd178754179240%_ (let () (declare (not safe)) - (##car _%e178716179200%_)))) + (##car _%e178753179237%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178718179205%_)) - (_%__kont192111192112%_ - _%hd178717179203%_ - _%hd178714179195%_ - _%hd178711179187%_) + (gx#stx-null? _%tl178755179242%_)) + (_%__kont192148192149%_ + _%hd178754179240%_ + _%hd178751179232%_ + _%hd178748179224%_) (let () (declare (not safe)) - (_%g178702178817%_))))) - (let () (declare (not safe)) (_%g178702178817%_))))) - (let () (declare (not safe)) (_%g178702178817%_))))) + (_%g178739178854%_))))) + (let () (declare (not safe)) (_%g178739178854%_))))) + (let () (declare (not safe)) (_%g178739178854%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178702178817%_))) + (_%g178739178854%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd178708179179%_)) + _%hd178745179216%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178709179181%_)) - (let ((_%e178724179140%_ + _%tl178746179218%_)) + (let ((_%e178761179177%_ (let () (declare (not safe)) (gx#stx-e - _%tl178709179181%_)))) - (let ((_%tl178726179145%_ + _%tl178746179218%_)))) + (let ((_%tl178763179182%_ (let () (declare (not safe)) - (##cdr _%e178724179140%_))) - (_%hd178725179143%_ + (##cdr _%e178761179177%_))) + (_%hd178762179180%_ (let () (declare (not safe)) - (##car _%e178724179140%_)))) + (##car _%e178761179177%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178726179145%_)) - (let ((_%e178727179148%_ + _%tl178763179182%_)) + (let ((_%e178764179185%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178726179145%_)))) - (let ((_%tl178729179153%_ + (gx#stx-e _%tl178763179182%_)))) + (let ((_%tl178766179190%_ (let () (declare (not safe)) - (##cdr _%e178727179148%_))) - (_%hd178728179151%_ + (##cdr _%e178764179185%_))) + (_%hd178765179188%_ (let () (declare (not safe)) - (##car _%e178727179148%_)))) + (##car _%e178764179185%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178729179153%_)) - (_%__kont192113192114%_ - _%hd178728179151%_ - _%hd178725179143%_) - (let () (declare (not safe)) (_%g178702178817%_))))) - (let () (declare (not safe)) (_%g178702178817%_))))) + (gx#stx-null? _%tl178766179190%_)) + (_%__kont192150192151%_ + _%hd178765179188%_ + _%hd178762179180%_) + (let () (declare (not safe)) (_%g178739178854%_))))) + (let () (declare (not safe)) (_%g178739178854%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178702178817%_))) + (_%g178739178854%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd178708179179%_)) + _%hd178745179216%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178709179181%_)) - (let ((_%e178736179054%_ + _%tl178746179218%_)) + (let ((_%e178773179091%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178709179181%_)))) - (let ((_%tl178738179059%_ - (let () (declare (not safe)) (##cdr _%e178736179054%_))) - (_%hd178737179057%_ + (gx#stx-e _%tl178746179218%_)))) + (let ((_%tl178775179096%_ + (let () (declare (not safe)) (##cdr _%e178773179091%_))) + (_%hd178774179094%_ (let () (declare (not safe)) - (##car _%e178736179054%_)))) + (##car _%e178773179091%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178737179057%_)) - (let ((_%e178739179062%_ + (gx#stx-pair? _%hd178774179094%_)) + (let ((_%e178776179099%_ (let () (declare (not safe)) - (gx#stx-e _%hd178737179057%_)))) - (let ((_%tl178741179067%_ + (gx#stx-e _%hd178774179094%_)))) + (let ((_%tl178778179104%_ (let () (declare (not safe)) - (##cdr _%e178739179062%_))) - (_%hd178740179065%_ + (##cdr _%e178776179099%_))) + (_%hd178777179102%_ (let () (declare (not safe)) - (##car _%e178739179062%_)))) + (##car _%e178776179099%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178740179065%_)) - (let ((_%e178742179070%_ + (gx#stx-pair? _%hd178777179102%_)) + (let ((_%e178779179107%_ (let () (declare (not safe)) - (gx#stx-e _%hd178740179065%_)))) - (let ((_%tl178744179075%_ + (gx#stx-e _%hd178777179102%_)))) + (let ((_%tl178781179112%_ (let () (declare (not safe)) - (##cdr _%e178742179070%_))) - (_%hd178743179073%_ + (##cdr _%e178779179107%_))) + (_%hd178780179110%_ (let () (declare (not safe)) - (##car _%e178742179070%_)))) + (##car _%e178779179107%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178743179073%_)) - (let ((_%e178745179078%_ + (gx#stx-pair? _%hd178780179110%_)) + (let ((_%e178782179115%_ (let () (declare (not safe)) - (gx#stx-e _%hd178743179073%_)))) - (let ((_%tl178747179083%_ + (gx#stx-e _%hd178780179110%_)))) + (let ((_%tl178784179120%_ (let () (declare (not safe)) - (##cdr _%e178745179078%_))) - (_%hd178746179081%_ + (##cdr _%e178782179115%_))) + (_%hd178783179118%_ (let () (declare (not safe)) - (##car _%e178745179078%_)))) + (##car _%e178782179115%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178747179083%_)) + _%tl178784179120%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178744179075%_)) - (let ((_%e178748179086%_ + _%tl178781179112%_)) + (let ((_%e178785179123%_ (let () (declare (not safe)) (gx#stx-e - _%tl178744179075%_)))) - (let ((_%tl178750179091%_ + _%tl178781179112%_)))) + (let ((_%tl178787179128%_ (let () (declare (not safe)) - (##cdr _%e178748179086%_))) - (_%hd178749179089%_ + (##cdr _%e178785179123%_))) + (_%hd178786179126%_ (let () (declare (not safe)) - (##car _%e178748179086%_)))) + (##car _%e178785179123%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178750179091%_)) + _%tl178787179128%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl178741179067%_)) + (gx#stx-null? _%tl178778179104%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178738179059%_)) - (let ((_%e178751179094%_ + (gx#stx-pair? _%tl178775179096%_)) + (let ((_%e178788179131%_ (let () (declare (not safe)) - (gx#stx-e _%tl178738179059%_)))) - (let ((_%tl178753179099%_ + (gx#stx-e _%tl178775179096%_)))) + (let ((_%tl178790179136%_ (let () (declare (not safe)) - (##cdr _%e178751179094%_))) - (_%hd178752179097%_ + (##cdr _%e178788179131%_))) + (_%hd178789179134%_ (let () (declare (not safe)) - (##car _%e178751179094%_)))) + (##car _%e178788179131%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178753179099%_)) - (_%__kont192115192116%_ - _%hd178752179097%_ - _%hd178749179089%_ - _%hd178746179081%_) + (gx#stx-null? _%tl178790179136%_)) + (_%__kont192152192153%_ + _%hd178789179134%_ + _%hd178786179126%_ + _%hd178783179118%_) (let () (declare (not safe)) - (_%g178702178817%_))))) - (let () (declare (not safe)) (_%g178702178817%_))) - (let () (declare (not safe)) (_%g178702178817%_))) - (let () (declare (not safe)) (_%g178702178817%_))))) + (_%g178739178854%_))))) + (let () (declare (not safe)) (_%g178739178854%_))) + (let () (declare (not safe)) (_%g178739178854%_))) + (let () (declare (not safe)) (_%g178739178854%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178702178817%_))) + (_%g178739178854%_))) (let () (declare (not safe)) - (_%g178702178817%_))))) + (_%g178739178854%_))))) (let () (declare (not safe)) - (_%g178702178817%_))))) + (_%g178739178854%_))))) (let () (declare (not safe)) - (_%g178702178817%_))))) - (let () (declare (not safe)) (_%g178702178817%_))))) - (let () (declare (not safe)) (_%g178702178817%_))) + (_%g178739178854%_))))) + (let () (declare (not safe)) (_%g178739178854%_))))) + (let () (declare (not safe)) (_%g178739178854%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178708179179%_)) + _%hd178745179216%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178709179181%_)) - (let ((_%e178759178975%_ + _%tl178746179218%_)) + (let ((_%e178796179012%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178709179181%_)))) - (let ((_%tl178761178980%_ + (gx#stx-e _%tl178746179218%_)))) + (let ((_%tl178798179017%_ (let () (declare (not safe)) - (##cdr _%e178759178975%_))) - (_%hd178760178978%_ + (##cdr _%e178796179012%_))) + (_%hd178797179015%_ (let () (declare (not safe)) - (##car _%e178759178975%_)))) + (##car _%e178796179012%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd178760178978%_)) - (let ((_%__splice192119192120%_ + (gx#stx-pair/null? _%hd178797179015%_)) + (let ((_%__splice192156192157%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd178760178978%_ + _%hd178797179015%_ '0)))) - (let ((_%tl178764178985%_ + (let ((_%tl178801179022%_ (let () (declare (not safe)) (##vector-ref - _%__splice192119192120%_ + _%__splice192156192157%_ '1))) - (_%target178762178983%_ + (_%target178799179020%_ (let () (declare (not safe)) (##vector-ref - _%__splice192119192120%_ + _%__splice192156192157%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178764178985%_)) - (_%__match192258192259%_ - _%e178707179176%_ - _%hd178708179179%_ - _%tl178709179181%_ - _%e178759178975%_ - _%hd178760178978%_ - _%tl178761178980%_ - _%__splice192119192120%_ - _%target178762178983%_ - _%tl178764178985%_) + (gx#stx-null? _%tl178801179022%_)) + (_%__match192295192296%_ + _%e178744179213%_ + _%hd178745179216%_ + _%tl178746179218%_ + _%e178796179012%_ + _%hd178797179015%_ + _%tl178798179017%_ + _%__splice192156192157%_ + _%target178799179020%_ + _%tl178801179022%_) (let () (declare (not safe)) - (_%g178702178817%_))))) - (let () (declare (not safe)) (_%g178702178817%_))))) - (let () (declare (not safe)) (_%g178702178817%_))) + (_%g178739178854%_))))) + (let () (declare (not safe)) (_%g178739178854%_))))) + (let () (declare (not safe)) (_%g178739178854%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd178708179179%_)) + (gx#stx-eq? '%#call _%hd178745179216%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178709179181%_)) - (let ((_%e178778178913%_ + (gx#stx-pair? _%tl178746179218%_)) + (let ((_%e178815178950%_ (let () (declare (not safe)) - (gx#stx-e _%tl178709179181%_)))) - (let ((_%tl178780178918%_ + (gx#stx-e _%tl178746179218%_)))) + (let ((_%tl178817178955%_ (let () (declare (not safe)) - (##cdr _%e178778178913%_))) - (_%hd178779178916%_ + (##cdr _%e178815178950%_))) + (_%hd178816178953%_ (let () (declare (not safe)) - (##car _%e178778178913%_)))) + (##car _%e178815178950%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178779178916%_)) - (let ((_%e178781178921%_ + (gx#stx-pair? _%hd178816178953%_)) + (let ((_%e178818178958%_ (let () (declare (not safe)) - (gx#stx-e _%hd178779178916%_)))) - (let ((_%tl178783178926%_ + (gx#stx-e _%hd178816178953%_)))) + (let ((_%tl178820178963%_ (let () (declare (not safe)) - (##cdr _%e178781178921%_))) - (_%hd178782178924%_ + (##cdr _%e178818178958%_))) + (_%hd178819178961%_ (let () (declare (not safe)) - (##car _%e178781178921%_)))) + (##car _%e178818178958%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178782178924%_)) + (gx#identifier? _%hd178819178961%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178782178924%_)) + _%hd178819178961%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178783178926%_)) - (let ((_%e178784178929%_ + _%tl178820178963%_)) + (let ((_%e178821178966%_ (let () (declare (not safe)) (gx#stx-e - _%tl178783178926%_)))) - (let ((_%tl178786178934%_ + _%tl178820178963%_)))) + (let ((_%tl178823178971%_ (let () (declare (not safe)) - (##cdr _%e178784178929%_))) - (_%hd178785178932%_ + (##cdr _%e178821178966%_))) + (_%hd178822178969%_ (let () (declare (not safe)) - (##car _%e178784178929%_)))) + (##car _%e178821178966%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178786178934%_)) + _%tl178823178971%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178780178918%_)) - (let ((_%e178787178937%_ + _%tl178817178955%_)) + (let ((_%e178824178974%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178780178918%_)))) - (let ((_%tl178789178942%_ + (gx#stx-e _%tl178817178955%_)))) + (let ((_%tl178826178979%_ (let () (declare (not safe)) - (##cdr _%e178787178937%_))) - (_%hd178788178940%_ + (##cdr _%e178824178974%_))) + (_%hd178825178977%_ (let () (declare (not safe)) - (##car _%e178787178937%_)))) + (##car _%e178824178974%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178789178942%_)) - (_%__match192300192301%_ - _%e178707179176%_ - _%hd178708179179%_ - _%tl178709179181%_ - _%e178778178913%_ - _%hd178779178916%_ - _%tl178780178918%_ - _%e178781178921%_ - _%hd178782178924%_ - _%tl178783178926%_ - _%e178784178929%_ - _%hd178785178932%_ - _%tl178786178934%_ - _%e178787178937%_ - _%hd178788178940%_ - _%tl178789178942%_) + (gx#stx-null? _%tl178826178979%_)) + (_%__match192337192338%_ + _%e178744179213%_ + _%hd178745179216%_ + _%tl178746179218%_ + _%e178815178950%_ + _%hd178816178953%_ + _%tl178817178955%_ + _%e178818178958%_ + _%hd178819178961%_ + _%tl178820178963%_ + _%e178821178966%_ + _%hd178822178969%_ + _%tl178823178971%_ + _%e178824178974%_ + _%hd178825178977%_ + _%tl178826178979%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl178780178918%_)) - (let ((_%__splice192125192126%_ + (gx#stx-pair/null? _%tl178817178955%_)) + (let ((_%__splice192162192163%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178780178918%_ + _%tl178817178955%_ '0)))) - (let ((_%tl178806178856%_ + (let ((_%tl178843178893%_ (let () (declare (not safe)) (##vector-ref - _%__splice192125192126%_ + _%__splice192162192163%_ '1))) - (_%target178804178854%_ + (_%target178841178891%_ (let () (declare (not safe)) (##vector-ref - _%__splice192125192126%_ + _%__splice192162192163%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178806178856%_)) - (_%__match192342192343%_ - _%e178707179176%_ - _%hd178708179179%_ - _%tl178709179181%_ - _%e178778178913%_ - _%hd178779178916%_ - _%tl178780178918%_ - _%e178781178921%_ - _%hd178782178924%_ - _%tl178783178926%_ - _%e178784178929%_ - _%hd178785178932%_ - _%tl178786178934%_ - _%__splice192125192126%_ - _%target178804178854%_ - _%tl178806178856%_) + (gx#stx-null? _%tl178843178893%_)) + (_%__match192379192380%_ + _%e178744179213%_ + _%hd178745179216%_ + _%tl178746179218%_ + _%e178815178950%_ + _%hd178816178953%_ + _%tl178817178955%_ + _%e178818178958%_ + _%hd178819178961%_ + _%tl178820178963%_ + _%e178821178966%_ + _%hd178822178969%_ + _%tl178823178971%_ + _%__splice192162192163%_ + _%target178841178891%_ + _%tl178843178893%_) (let () (declare (not safe)) - (_%g178702178817%_))))) + (_%g178739178854%_))))) (let () (declare (not safe)) - (_%g178702178817%_)))))) + (_%g178739178854%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl178780178918%_)) - (let ((_%__splice192125192126%_ + (gx#stx-pair/null? _%tl178817178955%_)) + (let ((_%__splice192162192163%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178780178918%_ + _%tl178817178955%_ '0)))) - (let ((_%tl178806178856%_ + (let ((_%tl178843178893%_ (let () (declare (not safe)) - (##vector-ref _%__splice192125192126%_ '1))) - (_%target178804178854%_ + (##vector-ref _%__splice192162192163%_ '1))) + (_%target178841178891%_ (let () (declare (not safe)) - (##vector-ref _%__splice192125192126%_ '0)))) + (##vector-ref _%__splice192162192163%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178806178856%_)) - (_%__match192342192343%_ - _%e178707179176%_ - _%hd178708179179%_ - _%tl178709179181%_ - _%e178778178913%_ - _%hd178779178916%_ - _%tl178780178918%_ - _%e178781178921%_ - _%hd178782178924%_ - _%tl178783178926%_ - _%e178784178929%_ - _%hd178785178932%_ - _%tl178786178934%_ - _%__splice192125192126%_ - _%target178804178854%_ - _%tl178806178856%_) + (gx#stx-null? _%tl178843178893%_)) + (_%__match192379192380%_ + _%e178744179213%_ + _%hd178745179216%_ + _%tl178746179218%_ + _%e178815178950%_ + _%hd178816178953%_ + _%tl178817178955%_ + _%e178818178958%_ + _%hd178819178961%_ + _%tl178820178963%_ + _%e178821178966%_ + _%hd178822178969%_ + _%tl178823178971%_ + _%__splice192162192163%_ + _%target178841178891%_ + _%tl178843178893%_) (let () (declare (not safe)) - (_%g178702178817%_))))) - (let () (declare (not safe)) (_%g178702178817%_)))) - (let () (declare (not safe)) (_%g178702178817%_))))) + (_%g178739178854%_))))) + (let () (declare (not safe)) (_%g178739178854%_)))) + (let () (declare (not safe)) (_%g178739178854%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178702178817%_))) + (_%g178739178854%_))) (let () (declare (not safe)) - (_%g178702178817%_))) + (_%g178739178854%_))) (let () (declare (not safe)) - (_%g178702178817%_))))) + (_%g178739178854%_))))) (let () (declare (not safe)) - (_%g178702178817%_))))) - (let () (declare (not safe)) (_%g178702178817%_))) - (let () (declare (not safe)) (_%g178702178817%_))))))) + (_%g178739178854%_))))) + (let () (declare (not safe)) (_%g178739178854%_))) + (let () (declare (not safe)) (_%g178739178854%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178702178817%_))))) + (_%g178739178854%_))))) (let () (declare (not safe)) - (_%g178702178817%_))))))))) - (let* ((_%clause178579178586%_ _%clause178574%_) - (_%E178581178590%_ + (_%g178739178854%_))))))))) + (let* ((_%clause178616178623%_ _%clause178611%_) + (_%E178618178627%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause178579178586%_ + _%clause178616178623%_ '([id . kont]))) '#!void)) - (_%K178582178683%_ - (lambda (_%kont178593%_ _%id178594%_) - (let* ((_%g178596178616%_ - (lambda (_%g178597178613%_) + (_%K178619178720%_ + (lambda (_%kont178630%_ _%id178631%_) + (let* ((_%g178633178653%_ + (lambda (_%g178634178650%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178597178613%_)))) - (_%g178595178680%_ - (lambda (_%g178597178619%_) + _%g178634178650%_)))) + (_%g178632178717%_ + (lambda (_%g178634178656%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178597178619%_)) - (let ((_%e178600178621%_ + (gx#stx-pair? _%g178634178656%_)) + (let ((_%e178637178658%_ (let () (declare (not safe)) - (gx#stx-e _%g178597178619%_)))) - (let ((_%hd178601178624%_ + (gx#stx-e _%g178634178656%_)))) + (let ((_%hd178638178661%_ (let () (declare (not safe)) - (##car _%e178600178621%_))) - (_%tl178602178626%_ + (##car _%e178637178658%_))) + (_%tl178639178663%_ (let () (declare (not safe)) - (##cdr _%e178600178621%_)))) + (##cdr _%e178637178658%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178601178624%_)) + _%hd178638178661%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178601178624%_)) + _%hd178638178661%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178602178626%_)) - (let ((_%e178603178629%_ + _%tl178639178663%_)) + (let ((_%e178640178666%_ (let () (declare (not safe)) (gx#stx-e - _%tl178602178626%_)))) - (let ((_%hd178604178632%_ + _%tl178639178663%_)))) + (let ((_%hd178641178669%_ (let () (declare (not safe)) - (##car _%e178603178629%_))) - (_%tl178605178634%_ + (##car _%e178640178666%_))) + (_%tl178642178671%_ (let () (declare (not safe)) - (##cdr _%e178603178629%_)))) + (##cdr _%e178640178666%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178604178632%_)) - (let ((_%e178606178637%_ + _%hd178641178669%_)) + (let ((_%e178643178674%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd178604178632%_)))) - (let ((_%hd178607178640%_ + (gx#stx-e _%hd178641178669%_)))) + (let ((_%hd178644178677%_ (let () (declare (not safe)) - (##car _%e178606178637%_))) - (_%tl178608178642%_ + (##car _%e178643178674%_))) + (_%tl178645178679%_ (let () (declare (not safe)) - (##cdr _%e178606178637%_)))) + (##cdr _%e178643178674%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178608178642%_)) + (gx#stx-null? _%tl178645178679%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178605178634%_)) - (let ((_%e178609178645%_ + (gx#stx-pair? _%tl178642178671%_)) + (let ((_%e178646178682%_ (let () (declare (not safe)) - (gx#stx-e _%tl178605178634%_)))) - (let ((_%hd178610178648%_ + (gx#stx-e _%tl178642178671%_)))) + (let ((_%hd178647178685%_ (let () (declare (not safe)) - (##car _%e178609178645%_))) - (_%tl178611178650%_ + (##car _%e178646178682%_))) + (_%tl178648178687%_ (let () (declare (not safe)) - (##cdr _%e178609178645%_)))) + (##cdr _%e178646178682%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178611178650%_)) - ((lambda (_%L178653%_ _%L178654%_) - (let* ((_%body178675%_ + (gx#stx-null? _%tl178648178687%_)) + ((lambda (_%L178690%_ _%L178691%_) + (let* ((_%body178712%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L178654%_ - _%target178576%_ - _%L178653%_))) - (_%body178677%_ - (if _%negation178575%_ - (_%closure-e178578%_ - _%body178675%_) - _%body178675%_))) - (let ((__tmp192502 + _%L178691%_ + _%target178613%_ + _%L178690%_))) + (_%body178714%_ + (if _%negation178612%_ + (_%closure-e178615%_ + _%body178712%_) + _%body178712%_))) + (let ((__tmp192539 (let () (declare (not safe)) (gxc#identifier-symbol - _%id178594%_))) - (__tmp192501 - (let ((__obj192400 + _%id178631%_))) + (__tmp192538 + (let ((__obj192437 (let () (declare (not safe)) (##structure @@ -16505,575 +16505,575 @@ (gxc#!lambda:::init!__% '#f absent-value - __obj192400 + __obj192437 '0 '#f)) - __obj192400))) + __obj192437))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp192502 - __tmp192501 + __tmp192539 + __tmp192538 '#t)) - (cons _%id178594%_ + (cons _%id178631%_ (cons '%#lambda (cons '() - (cons _%body178677%_ + (cons _%body178714%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd178610178648%_ - _%hd178607178640%_) - (_%g178596178616%_ _%g178597178619%_)))) - (_%g178596178616%_ _%g178597178619%_)) - (_%g178596178616%_ _%g178597178619%_)))) - (_%g178596178616%_ _%g178597178619%_)))) + _%hd178647178685%_ + _%hd178644178677%_) + (_%g178633178653%_ _%g178634178656%_)))) + (_%g178633178653%_ _%g178634178656%_)) + (_%g178633178653%_ _%g178634178656%_)))) + (_%g178633178653%_ _%g178634178656%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178596178616%_ - _%g178597178619%_)) - (_%g178596178616%_ - _%g178597178619%_)) - (_%g178596178616%_ - _%g178597178619%_)))) - (_%g178596178616%_ _%g178597178619%_))))) - (_%g178595178680%_ _%kont178593%_))))) - (if (pair? _%clause178579178586%_) - (let ((_%hd178583178686%_ + (_%g178633178653%_ + _%g178634178656%_)) + (_%g178633178653%_ + _%g178634178656%_)) + (_%g178633178653%_ + _%g178634178656%_)))) + (_%g178633178653%_ _%g178634178656%_))))) + (_%g178632178717%_ _%kont178630%_))))) + (if (pair? _%clause178616178623%_) + (let ((_%hd178620178723%_ (let () (declare (not safe)) - (##car _%clause178579178586%_))) - (_%tl178584178688%_ + (##car _%clause178616178623%_))) + (_%tl178621178725%_ (let () (declare (not safe)) - (##cdr _%clause178579178586%_)))) - (let* ((_%id178691%_ _%hd178583178686%_) - (_%kont178693%_ _%tl178584178688%_)) - (_%K178582178683%_ _%kont178693%_ _%id178691%_))) - (_%E178581178590%_)))))) + (##cdr _%clause178616178623%_)))) + (let* ((_%id178728%_ _%hd178620178723%_) + (_%kont178730%_ _%tl178621178725%_)) + (_%K178619178720%_ _%kont178730%_ _%id178728%_))) + (_%E178618178627%_)))))) (define gxc#push-match-vars-let-values% - (lambda (_%self178358%_ _%stx178359%_) - (let* ((_%g178361178378%_ - (lambda (_%g178362178375%_) + (lambda (_%self178395%_ _%stx178396%_) + (let* ((_%g178398178415%_ + (lambda (_%g178399178412%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178362178375%_)))) - (_%g178360178571%_ - (lambda (_%g178362178381%_) + _%g178399178412%_)))) + (_%g178397178608%_ + (lambda (_%g178399178418%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178362178381%_)) - (let ((_%e178365178383%_ + (gx#stx-pair? _%g178399178418%_)) + (let ((_%e178402178420%_ (let () (declare (not safe)) - (gx#stx-e _%g178362178381%_)))) - (let ((_%hd178366178386%_ + (gx#stx-e _%g178399178418%_)))) + (let ((_%hd178403178423%_ (let () (declare (not safe)) - (##car _%e178365178383%_))) - (_%tl178367178388%_ + (##car _%e178402178420%_))) + (_%tl178404178425%_ (let () (declare (not safe)) - (##cdr _%e178365178383%_)))) + (##cdr _%e178402178420%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178367178388%_)) - (let ((_%e178368178391%_ + (gx#stx-pair? _%tl178404178425%_)) + (let ((_%e178405178428%_ (let () (declare (not safe)) - (gx#stx-e _%tl178367178388%_)))) - (let ((_%hd178369178394%_ + (gx#stx-e _%tl178404178425%_)))) + (let ((_%hd178406178431%_ (let () (declare (not safe)) - (##car _%e178368178391%_))) - (_%tl178370178396%_ + (##car _%e178405178428%_))) + (_%tl178407178433%_ (let () (declare (not safe)) - (##cdr _%e178368178391%_)))) + (##cdr _%e178405178428%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178370178396%_)) - (let ((_%e178371178399%_ + (gx#stx-pair? _%tl178407178433%_)) + (let ((_%e178408178436%_ (let () (declare (not safe)) - (gx#stx-e _%tl178370178396%_)))) - (let ((_%hd178372178402%_ + (gx#stx-e _%tl178407178433%_)))) + (let ((_%hd178409178439%_ (let () (declare (not safe)) - (##car _%e178371178399%_))) - (_%tl178373178404%_ + (##car _%e178408178436%_))) + (_%tl178410178441%_ (let () (declare (not safe)) - (##cdr _%e178371178399%_)))) + (##cdr _%e178408178436%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178373178404%_)) - ((lambda (_%L178407%_ - _%L178408%_) - (let _%lp178423%_ ((_%rest178425%_ + _%tl178410178441%_)) + ((lambda (_%L178444%_ + _%L178445%_) + (let _%lp178460%_ ((_%rest178462%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L178408%_) - (_%rebind178426%_ '()) - (_%vars178427%_ + _%L178445%_) + (_%rebind178463%_ '()) + (_%vars178464%_ (let () (declare (not safe)) - (slot-ref__0 _%self178358%_ 'vars)))) + (slot-ref__0 _%self178395%_ 'vars)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest178428178436%_ - _%rest178425%_) - (_%else178430178447%_ + (let* ((_%rest178465178473%_ + _%rest178462%_) + (_%else178467178484%_ (lambda () - (let ((_%sibling178444%_ + (let ((_%sibling178481%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (struct-copy _%self178358%_)))) + (struct-copy _%self178395%_)))) (let () (declare (not safe)) - (slot-set!__0 _%sibling178444%_ 'vars _%vars178427%_)) - (let ((__tmp192503 + (slot-set!__0 _%sibling178481%_ 'vars _%vars178464%_)) + (let ((__tmp192540 (lambda () - (if (null? _%rebind178426%_) + (if (null? _%rebind178463%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%sibling178444%_ - _%L178407%_)) - (let ((__tmp192504 + _%sibling178481%_ + _%L178444%_)) + (let ((__tmp192541 (cons '%#let-values - (cons (reverse _%rebind178426%_) + (cons (reverse _%rebind178463%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__1 _%sibling178444%_ _%L178407%_)) + (gxc#compile-e__1 _%sibling178481%_ _%L178444%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp192504 - _%stx178359%_)))))) + __tmp192541 + _%stx178396%_)))))) (declare (not safe)) (__call-with-parameters - __tmp192503 + __tmp192540 gxc#current-compile-method - _%sibling178444%_))))) - (_%K178432178559%_ - (lambda (_%rest178450%_ _%bind178451%_) - (let* ((_%__stx192345192346%_ _%bind178451%_) - (_%g178454178477%_ + _%sibling178481%_))))) + (_%K178469178596%_ + (lambda (_%rest178487%_ _%bind178488%_) + (let* ((_%__stx192382192383%_ _%bind178488%_) + (_%g178491178514%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx192345192346%_))))) - (let ((_%__kont192347192348%_ - (lambda (_%L178529%_ _%L178530%_) - (_%lp178423%_ - _%rest178450%_ - _%rebind178426%_ - (cons _%bind178451%_ _%vars178427%_)))) - (_%__kont192349192350%_ + _%__stx192382192383%_))))) + (let ((_%__kont192384192385%_ + (lambda (_%L178566%_ _%L178567%_) + (_%lp178460%_ + _%rest178487%_ + _%rebind178463%_ + (cons _%bind178488%_ _%vars178464%_)))) + (_%__kont192386192387%_ (lambda () - (_%lp178423%_ - _%rest178450%_ - (cons _%bind178451%_ _%rebind178426%_) - _%vars178427%_)))) + (_%lp178460%_ + _%rest178487%_ + (cons _%bind178488%_ _%rebind178463%_) + _%vars178464%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx192345192346%_)) - (let ((_%e178458178489%_ + (gx#stx-pair? _%__stx192382192383%_)) + (let ((_%e178495178526%_ (let () (declare (not safe)) - (gx#stx-e _%__stx192345192346%_)))) - (let ((_%tl178460178494%_ + (gx#stx-e _%__stx192382192383%_)))) + (let ((_%tl178497178531%_ (let () (declare (not safe)) - (##cdr _%e178458178489%_))) - (_%hd178459178492%_ + (##cdr _%e178495178526%_))) + (_%hd178496178529%_ (let () (declare (not safe)) - (##car _%e178458178489%_)))) + (##car _%e178495178526%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178459178492%_)) - (let ((_%e178461178497%_ + (gx#stx-pair? _%hd178496178529%_)) + (let ((_%e178498178534%_ (let () (declare (not safe)) - (gx#stx-e _%hd178459178492%_)))) - (let ((_%tl178463178502%_ + (gx#stx-e _%hd178496178529%_)))) + (let ((_%tl178500178539%_ (let () (declare (not safe)) - (##cdr _%e178461178497%_))) - (_%hd178462178500%_ + (##cdr _%e178498178534%_))) + (_%hd178499178537%_ (let () (declare (not safe)) - (##car _%e178461178497%_)))) + (##car _%e178498178534%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178463178502%_)) + _%tl178500178539%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178460178494%_)) - (let ((_%e178464178505%_ + _%tl178497178531%_)) + (let ((_%e178501178542%_ (let () (declare (not safe)) (gx#stx-e - _%tl178460178494%_)))) - (let ((_%tl178466178510%_ + _%tl178497178531%_)))) + (let ((_%tl178503178547%_ (let () (declare (not safe)) - (##cdr _%e178464178505%_))) - (_%hd178465178508%_ + (##cdr _%e178501178542%_))) + (_%hd178502178545%_ (let () (declare (not safe)) - (##car _%e178464178505%_)))) + (##car _%e178501178542%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178465178508%_)) - (let ((_%e178467178513%_ + _%hd178502178545%_)) + (let ((_%e178504178550%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd178465178508%_)))) - (let ((_%tl178469178518%_ + (gx#stx-e _%hd178502178545%_)))) + (let ((_%tl178506178555%_ (let () (declare (not safe)) - (##cdr _%e178467178513%_))) - (_%hd178468178516%_ + (##cdr _%e178504178550%_))) + (_%hd178505178553%_ (let () (declare (not safe)) - (##car _%e178467178513%_)))) + (##car _%e178504178550%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178468178516%_)) + (gx#identifier? _%hd178505178553%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178468178516%_)) + (gx#stx-eq? '%#ref _%hd178505178553%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178469178518%_)) - (let ((_%e178470178521%_ + (gx#stx-pair? _%tl178506178555%_)) + (let ((_%e178507178558%_ (let () (declare (not safe)) - (gx#stx-e _%tl178469178518%_)))) - (let ((_%tl178472178526%_ + (gx#stx-e _%tl178506178555%_)))) + (let ((_%tl178509178563%_ (let () (declare (not safe)) - (##cdr _%e178470178521%_))) - (_%hd178471178524%_ + (##cdr _%e178507178558%_))) + (_%hd178508178561%_ (let () (declare (not safe)) - (##car _%e178470178521%_)))) + (##car _%e178507178558%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178472178526%_)) + (gx#stx-null? _%tl178509178563%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178466178510%_)) - (_%__kont192347192348%_ - _%hd178471178524%_ - _%hd178462178500%_) - (_%__kont192349192350%_)) - (_%__kont192349192350%_)))) - (_%__kont192349192350%_)) - (_%__kont192349192350%_)) - (_%__kont192349192350%_)))) - (_%__kont192349192350%_)))) + _%tl178503178547%_)) + (_%__kont192384192385%_ + _%hd178508178561%_ + _%hd178499178537%_) + (_%__kont192386192387%_)) + (_%__kont192386192387%_)))) + (_%__kont192386192387%_)) + (_%__kont192386192387%_)) + (_%__kont192386192387%_)))) + (_%__kont192386192387%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont192349192350%_)) - (_%__kont192349192350%_)))) - (_%__kont192349192350%_)))) - (_%__kont192349192350%_))))))) + (_%__kont192386192387%_)) + (_%__kont192386192387%_)))) + (_%__kont192386192387%_)))) + (_%__kont192386192387%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest178428178436%_) - (let ((_%hd178433178562%_ + (if (pair? _%rest178465178473%_) + (let ((_%hd178470178599%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%rest178428178436%_))) - (_%tl178434178564%_ + (##car _%rest178465178473%_))) + (_%tl178471178601%_ (let () (declare (not safe)) - (##cdr _%rest178428178436%_)))) - (let* ((_%bind178567%_ _%hd178433178562%_) - (_%rest178569%_ _%tl178434178564%_)) - (_%K178432178559%_ _%rest178569%_ _%bind178567%_))) - (_%else178430178447%_))))) + (##cdr _%rest178465178473%_)))) + (let* ((_%bind178604%_ _%hd178470178599%_) + (_%rest178606%_ _%tl178471178601%_)) + (_%K178469178596%_ _%rest178606%_ _%bind178604%_))) + (_%else178467178484%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd178372178402%_ - _%hd178369178394%_) - (_%g178361178378%_ - _%g178362178381%_)))) - (_%g178361178378%_ _%g178362178381%_)))) - (_%g178361178378%_ _%g178362178381%_)))) - (_%g178361178378%_ _%g178362178381%_))))) - (_%g178360178571%_ _%stx178359%_)))) + _%hd178409178439%_ + _%hd178406178431%_) + (_%g178398178415%_ + _%g178399178418%_)))) + (_%g178398178415%_ _%g178399178418%_)))) + (_%g178398178415%_ _%g178399178418%_)))) + (_%g178398178415%_ _%g178399178418%_))))) + (_%g178397178608%_ _%stx178396%_)))) (define gxc#push-match-vars-if% - (lambda (_%self178274%_ _%stx178275%_) - (let* ((_%g178277178298%_ - (lambda (_%g178278178295%_) + (lambda (_%self178311%_ _%stx178312%_) + (let* ((_%g178314178335%_ + (lambda (_%g178315178332%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178278178295%_)))) - (_%g178276178355%_ - (lambda (_%g178278178301%_) + _%g178315178332%_)))) + (_%g178313178392%_ + (lambda (_%g178315178338%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178278178301%_)) - (let ((_%e178282178303%_ + (gx#stx-pair? _%g178315178338%_)) + (let ((_%e178319178340%_ (let () (declare (not safe)) - (gx#stx-e _%g178278178301%_)))) - (let ((_%hd178283178306%_ + (gx#stx-e _%g178315178338%_)))) + (let ((_%hd178320178343%_ (let () (declare (not safe)) - (##car _%e178282178303%_))) - (_%tl178284178308%_ + (##car _%e178319178340%_))) + (_%tl178321178345%_ (let () (declare (not safe)) - (##cdr _%e178282178303%_)))) + (##cdr _%e178319178340%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178284178308%_)) - (let ((_%e178285178311%_ + (gx#stx-pair? _%tl178321178345%_)) + (let ((_%e178322178348%_ (let () (declare (not safe)) - (gx#stx-e _%tl178284178308%_)))) - (let ((_%hd178286178314%_ + (gx#stx-e _%tl178321178345%_)))) + (let ((_%hd178323178351%_ (let () (declare (not safe)) - (##car _%e178285178311%_))) - (_%tl178287178316%_ + (##car _%e178322178348%_))) + (_%tl178324178353%_ (let () (declare (not safe)) - (##cdr _%e178285178311%_)))) + (##cdr _%e178322178348%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178287178316%_)) - (let ((_%e178288178319%_ + (gx#stx-pair? _%tl178324178353%_)) + (let ((_%e178325178356%_ (let () (declare (not safe)) - (gx#stx-e _%tl178287178316%_)))) - (let ((_%hd178289178322%_ + (gx#stx-e _%tl178324178353%_)))) + (let ((_%hd178326178359%_ (let () (declare (not safe)) - (##car _%e178288178319%_))) - (_%tl178290178324%_ + (##car _%e178325178356%_))) + (_%tl178327178361%_ (let () (declare (not safe)) - (##cdr _%e178288178319%_)))) + (##cdr _%e178325178356%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178290178324%_)) - (let ((_%e178291178327%_ + _%tl178327178361%_)) + (let ((_%e178328178364%_ (let () (declare (not safe)) (gx#stx-e - _%tl178290178324%_)))) - (let ((_%hd178292178330%_ + _%tl178327178361%_)))) + (let ((_%hd178329178367%_ (let () (declare (not safe)) - (##car _%e178291178327%_))) - (_%tl178293178332%_ + (##car _%e178328178364%_))) + (_%tl178330178369%_ (let () (declare (not safe)) - (##cdr _%e178291178327%_)))) + (##cdr _%e178328178364%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178293178332%_)) - ((lambda (_%L178335%_ - _%L178336%_ - _%L178337%_) - (if (let ((__tmp192505 + _%tl178330178369%_)) + ((lambda (_%L178372%_ + _%L178373%_ + _%L178374%_) + (if (let ((__tmp192542 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map caar (let () (declare (not safe)) - (slot-ref__0 _%self178274%_ 'vars))))) + (slot-ref__0 _%self178311%_ 'vars))))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp192505 - _%L178337%_)) - (gxc#push-match-vars-stop _%self178274%_ _%stx178275%_) - (let ((__tmp192506 + __tmp192542 + _%L178374%_)) + (gxc#push-match-vars-stop _%self178311%_ _%stx178312%_) + (let ((__tmp192543 (cons '%#if - (cons _%L178337%_ + (cons _%L178374%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self178274%_ - _%L178336%_)) + _%self178311%_ + _%L178373%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self178274%_ - _%L178335%_)) + _%self178311%_ + _%L178372%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192506 _%stx178275%_)))) - _%hd178292178330%_ - _%hd178289178322%_ - _%hd178286178314%_) - (_%g178277178298%_ _%g178278178301%_)))) + (gxc#xform-wrap-source __tmp192543 _%stx178312%_)))) + _%hd178329178367%_ + _%hd178326178359%_ + _%hd178323178351%_) + (_%g178314178335%_ _%g178315178338%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178277178298%_ - _%g178278178301%_)))) - (_%g178277178298%_ _%g178278178301%_)))) - (_%g178277178298%_ _%g178278178301%_)))) - (_%g178277178298%_ _%g178278178301%_))))) - (_%g178276178355%_ _%stx178275%_)))) + (_%g178314178335%_ + _%g178315178338%_)))) + (_%g178314178335%_ _%g178315178338%_)))) + (_%g178314178335%_ _%g178315178338%_)))) + (_%g178314178335%_ _%g178315178338%_))))) + (_%g178313178392%_ _%stx178312%_)))) (define gxc#push-match-vars-call% - (lambda (_%self178196%_ _%stx178197%_) - (let* ((_%g178199178218%_ - (lambda (_%g178200178215%_) + (lambda (_%self178233%_ _%stx178234%_) + (let* ((_%g178236178255%_ + (lambda (_%g178237178252%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178200178215%_)))) - (_%g178198178271%_ - (lambda (_%g178200178221%_) + _%g178237178252%_)))) + (_%g178235178308%_ + (lambda (_%g178237178258%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178200178221%_)) - (let ((_%e178202178223%_ + (gx#stx-pair? _%g178237178258%_)) + (let ((_%e178239178260%_ (let () (declare (not safe)) - (gx#stx-e _%g178200178221%_)))) - (let ((_%hd178203178226%_ + (gx#stx-e _%g178237178258%_)))) + (let ((_%hd178240178263%_ (let () (declare (not safe)) - (##car _%e178202178223%_))) - (_%tl178204178228%_ + (##car _%e178239178260%_))) + (_%tl178241178265%_ (let () (declare (not safe)) - (##cdr _%e178202178223%_)))) + (##cdr _%e178239178260%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178204178228%_)) - (let ((_%e178205178231%_ + (gx#stx-pair? _%tl178241178265%_)) + (let ((_%e178242178268%_ (let () (declare (not safe)) - (gx#stx-e _%tl178204178228%_)))) - (let ((_%hd178206178234%_ + (gx#stx-e _%tl178241178265%_)))) + (let ((_%hd178243178271%_ (let () (declare (not safe)) - (##car _%e178205178231%_))) - (_%tl178207178236%_ + (##car _%e178242178268%_))) + (_%tl178244178273%_ (let () (declare (not safe)) - (##cdr _%e178205178231%_)))) + (##cdr _%e178242178268%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178206178234%_)) - (let ((_%e178208178239%_ + (gx#stx-pair? _%hd178243178271%_)) + (let ((_%e178245178276%_ (let () (declare (not safe)) - (gx#stx-e _%hd178206178234%_)))) - (let ((_%hd178209178242%_ + (gx#stx-e _%hd178243178271%_)))) + (let ((_%hd178246178279%_ (let () (declare (not safe)) - (##car _%e178208178239%_))) - (_%tl178210178244%_ + (##car _%e178245178276%_))) + (_%tl178247178281%_ (let () (declare (not safe)) - (##cdr _%e178208178239%_)))) + (##cdr _%e178245178276%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178209178242%_)) + _%hd178246178279%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178209178242%_)) + _%hd178246178279%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178210178244%_)) - (let ((_%e178211178247%_ + _%tl178247178281%_)) + (let ((_%e178248178284%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178210178244%_)))) - (let ((_%hd178212178250%_ - (let () (declare (not safe)) (##car _%e178211178247%_))) - (_%tl178213178252%_ + (gx#stx-e _%tl178247178281%_)))) + (let ((_%hd178249178287%_ + (let () (declare (not safe)) (##car _%e178248178284%_))) + (_%tl178250178289%_ (let () (declare (not safe)) - (##cdr _%e178211178247%_)))) + (##cdr _%e178248178284%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178213178252%_)) - ((lambda (_%L178255%_) - (if (and (let ((__tmp192507 + (gx#stx-null? _%tl178250178289%_)) + ((lambda (_%L178292%_) + (if (and (let ((__tmp192544 (let () (declare (not safe)) - (slot-ref__0 _%self178196%_ 'K)))) + (slot-ref__0 _%self178233%_ 'K)))) (declare (not safe)) (gx#free-identifier=? - _%L178255%_ - __tmp192507)) + _%L178292%_ + __tmp192544)) (pair? (let () (declare (not safe)) (slot-ref__0 - _%self178196%_ + _%self178233%_ 'vars)))) - (let ((__tmp192508 + (let ((__tmp192545 (cons '%#let-values (cons (reverse (let () (declare (not safe)) (slot-ref__0 - _%self178196%_ + _%self178233%_ 'vars))) - (cons _%stx178197%_ '()))))) + (cons _%stx178234%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp192508 - _%stx178197%_)) - _%stx178197%_)) - _%hd178212178250%_) - (_%g178199178218%_ _%g178200178221%_)))) - (_%g178199178218%_ _%g178200178221%_)) + __tmp192545 + _%stx178234%_)) + _%stx178234%_)) + _%hd178249178287%_) + (_%g178236178255%_ _%g178237178258%_)))) + (_%g178236178255%_ _%g178237178258%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178199178218%_ - _%g178200178221%_)) - (_%g178199178218%_ - _%g178200178221%_)))) - (_%g178199178218%_ _%g178200178221%_)))) - (_%g178199178218%_ _%g178200178221%_)))) - (_%g178199178218%_ _%g178200178221%_))))) - (_%g178198178271%_ _%stx178197%_)))) + (_%g178236178255%_ + _%g178237178258%_)) + (_%g178236178255%_ + _%g178237178258%_)))) + (_%g178236178255%_ _%g178237178258%_)))) + (_%g178236178255%_ _%g178237178258%_)))) + (_%g178236178255%_ _%g178237178258%_))))) + (_%g178235178308%_ _%stx178234%_)))) (define gxc#push-match-vars-stop - (lambda (_%self178193%_ _%stx178194%_) + (lambda (_%self178230%_ _%stx178231%_) (if (null? (let () (declare (not safe)) - (slot-ref__0 _%self178193%_ 'vars))) - _%stx178194%_ - (let ((__tmp192509 + (slot-ref__0 _%self178230%_ 'vars))) + _%stx178231%_ + (let ((__tmp192546 (cons '%#let-values (cons (reverse (let () (declare (not safe)) - (slot-ref__0 _%self178193%_ 'vars))) - (cons _%stx178194%_ '()))))) + (slot-ref__0 _%self178230%_ 'vars))) + (cons _%stx178231%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192509 _%stx178194%_))))))) + (gxc#xform-wrap-source __tmp192546 _%stx178231%_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm index 5421935b4..b239b0bf2 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]#_g192511_| + (define |gxc[1]#_g192548_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192513_| + (define |gxc[1]#_g192550_| (##structure gx#syntax-quote::t '::optimize-annotated::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192515_| + (define |gxc[1]#_g192552_| (##structure gx#syntax-quote::t 'make-::optimize-annotated #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192517_| + (define |gxc[1]#_g192554_| (##structure gx#syntax-quote::t '::optimize-annotated? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192519_| + (define |gxc[1]#_g192556_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192521_| + (define |gxc[1]#_g192558_| (##structure gx#syntax-quote::t '::generate-runtime-repr::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192523_| + (define |gxc[1]#_g192560_| (##structure gx#syntax-quote::t 'make-::generate-runtime-repr #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192525_| + (define |gxc[1]#_g192562_| (##structure gx#syntax-quote::t '::generate-runtime-repr? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192527_| + (define |gxc[1]#_g192564_| (##structure gx#syntax-quote::t '::push-match-vars::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192529_| + (define |gxc[1]#_g192566_| (##structure gx#syntax-quote::t 'make-::push-match-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192531_| + (define |gxc[1]#_g192568_| (##structure gx#syntax-quote::t '::push-match-vars? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192533_| + (define |gxc[1]#_g192570_| (##structure gx#syntax-quote::t '::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192534_| + (define |gxc[1]#_g192571_| (##structure gx#syntax-quote::t '::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192536_| + (define |gxc[1]#_g192573_| (##structure gx#syntax-quote::t '::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192537_| + (define |gxc[1]#_g192574_| (##structure gx#syntax-quote::t '::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192539_| + (define |gxc[1]#_g192576_| (##structure gx#syntax-quote::t '&::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192540_| + (define |gxc[1]#_g192577_| (##structure gx#syntax-quote::t '&::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192542_| + (define |gxc[1]#_g192579_| (##structure gx#syntax-quote::t '&::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192543_| + (define |gxc[1]#_g192580_| (##structure gx#syntax-quote::t '&::push-match-vars-K-set! @@ -135,7 +135,7 @@ '())) (begin (define |gxc[:0:]#::optimize-annotated| - (let ((__obj192392 + (let ((__obj192429 (let () (declare (not safe)) (##structure @@ -164,7 +164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192392 + __obj192429 'gxc#::optimize-annotated::t '1 '#f @@ -172,65 +172,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192392 + __obj192429 '::optimize-annotated '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj192429 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '() '6 '#f '#f)) - (let ((__tmp192510 (cons |gxc[1]#_g192511_| '()))) + (##unchecked-structure-set! __obj192429 '() '6 '#f '#f)) + (let ((__tmp192547 (cons |gxc[1]#_g192548_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj192392 __tmp192510 '3 '#f '#f)) + (##unchecked-structure-set! __obj192429 __tmp192547 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192429 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192429 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192429 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '#f '11 '#f '#f)) - (let ((__tmp192512 |gxc[1]#_g192513_|)) + (##unchecked-structure-set! __obj192429 '#f '11 '#f '#f)) + (let ((__tmp192549 |gxc[1]#_g192550_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192392 __tmp192512 '12 '#f '#f)) - (let ((__tmp192514 |gxc[1]#_g192515_|)) + (##unchecked-structure-set! __obj192429 __tmp192549 '12 '#f '#f)) + (let ((__tmp192551 |gxc[1]#_g192552_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192392 __tmp192514 '13 '#f '#f)) - (let ((__tmp192516 |gxc[1]#_g192517_|)) + (##unchecked-structure-set! __obj192429 __tmp192551 '13 '#f '#f)) + (let ((__tmp192553 |gxc[1]#_g192554_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192392 __tmp192516 '14 '#f '#f)) + (##unchecked-structure-set! __obj192429 __tmp192553 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj192429 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj192429 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj192429 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj192429 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192429 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192429 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192392 '() '20 '#f '#f)) - __obj192392)) + (##unchecked-structure-set! __obj192429 '() '20 '#f '#f)) + __obj192429)) (define |gxc[:0:]#::generate-runtime-repr| - (let ((__obj192394 + (let ((__obj192431 (let () (declare (not safe)) (##structure @@ -259,7 +259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192394 + __obj192431 'gxc#::generate-runtime-repr::t '1 '#f @@ -267,65 +267,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192394 + __obj192431 '::generate-runtime-repr '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj192431 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '() '6 '#f '#f)) - (let ((__tmp192518 (cons |gxc[1]#_g192519_| '()))) + (##unchecked-structure-set! __obj192431 '() '6 '#f '#f)) + (let ((__tmp192555 (cons |gxc[1]#_g192556_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj192394 __tmp192518 '3 '#f '#f)) + (##unchecked-structure-set! __obj192431 __tmp192555 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192431 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192431 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192431 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '#f '11 '#f '#f)) - (let ((__tmp192520 |gxc[1]#_g192521_|)) + (##unchecked-structure-set! __obj192431 '#f '11 '#f '#f)) + (let ((__tmp192557 |gxc[1]#_g192558_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192394 __tmp192520 '12 '#f '#f)) - (let ((__tmp192522 |gxc[1]#_g192523_|)) + (##unchecked-structure-set! __obj192431 __tmp192557 '12 '#f '#f)) + (let ((__tmp192559 |gxc[1]#_g192560_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192394 __tmp192522 '13 '#f '#f)) - (let ((__tmp192524 |gxc[1]#_g192525_|)) + (##unchecked-structure-set! __obj192431 __tmp192559 '13 '#f '#f)) + (let ((__tmp192561 |gxc[1]#_g192562_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192394 __tmp192524 '14 '#f '#f)) + (##unchecked-structure-set! __obj192431 __tmp192561 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj192431 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj192431 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj192431 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj192431 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192431 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192431 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192394 '() '20 '#f '#f)) - __obj192394)) + (##unchecked-structure-set! __obj192431 '() '20 '#f '#f)) + __obj192431)) (define |gxc[:0:]#::push-match-vars| - (let ((__obj192396 + (let ((__obj192433 (let () (declare (not safe)) (##structure @@ -354,7 +354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192396 + __obj192433 'gxc#::push-match-vars::t '1 '#f @@ -362,68 +362,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192396 + __obj192433 '::push-match-vars '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192396 '(vars K) '4 '#f '#f)) + (##unchecked-structure-set! __obj192433 '(vars K) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192396 '(vars K) '6 '#f '#f)) + (##unchecked-structure-set! __obj192433 '(vars K) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192396 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj192433 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192396 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192433 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192396 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192433 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192396 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192433 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192396 '#f '11 '#f '#f)) - (let ((__tmp192526 |gxc[1]#_g192527_|)) + (##unchecked-structure-set! __obj192433 '#f '11 '#f '#f)) + (let ((__tmp192563 |gxc[1]#_g192564_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192396 __tmp192526 '12 '#f '#f)) - (let ((__tmp192528 |gxc[1]#_g192529_|)) + (##unchecked-structure-set! __obj192433 __tmp192563 '12 '#f '#f)) + (let ((__tmp192565 |gxc[1]#_g192566_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192396 __tmp192528 '13 '#f '#f)) - (let ((__tmp192530 |gxc[1]#_g192531_|)) + (##unchecked-structure-set! __obj192433 __tmp192565 '13 '#f '#f)) + (let ((__tmp192567 |gxc[1]#_g192568_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192396 __tmp192530 '14 '#f '#f)) - (let ((__tmp192532 - (cons (cons 'vars |gxc[1]#_g192533_|) - (cons (cons 'K |gxc[1]#_g192534_|) '())))) + (##unchecked-structure-set! __obj192433 __tmp192567 '14 '#f '#f)) + (let ((__tmp192569 + (cons (cons 'vars |gxc[1]#_g192570_|) + (cons (cons 'K |gxc[1]#_g192571_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192396 __tmp192532 '15 '#f '#f)) - (let ((__tmp192535 - (cons (cons 'vars |gxc[1]#_g192536_|) - (cons (cons 'K |gxc[1]#_g192537_|) '())))) + (##unchecked-structure-set! __obj192433 __tmp192569 '15 '#f '#f)) + (let ((__tmp192572 + (cons (cons 'vars |gxc[1]#_g192573_|) + (cons (cons 'K |gxc[1]#_g192574_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192396 __tmp192535 '16 '#f '#f)) - (let ((__tmp192538 - (cons (cons 'vars |gxc[1]#_g192539_|) - (cons (cons 'K |gxc[1]#_g192540_|) '())))) + (##unchecked-structure-set! __obj192433 __tmp192572 '16 '#f '#f)) + (let ((__tmp192575 + (cons (cons 'vars |gxc[1]#_g192576_|) + (cons (cons 'K |gxc[1]#_g192577_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192396 __tmp192538 '17 '#f '#f)) - (let ((__tmp192541 - (cons (cons 'vars |gxc[1]#_g192542_|) - (cons (cons 'K |gxc[1]#_g192543_|) '())))) + (##unchecked-structure-set! __obj192433 __tmp192575 '17 '#f '#f)) + (let ((__tmp192578 + (cons (cons 'vars |gxc[1]#_g192579_|) + (cons (cons 'K |gxc[1]#_g192580_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192396 __tmp192541 '18 '#f '#f)) + (##unchecked-structure-set! __obj192433 __tmp192578 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192396 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192433 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192396 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192433 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192396 '() '20 '#f '#f)) - __obj192396)))) + (##unchecked-structure-set! __obj192433 '() '20 '#f '#f)) + __obj192433)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~0.scm b/src/bootstrap/gerbil/compiler/optimize-base~0.scm index 6a450087c..ce08c48ff 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 1733687561) + (define gerbil/compiler/optimize-base::timestamp 1733870076) (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 ((__tmp152263 (list)) (__tmp152262 (cons (cons 'struct: '#t) '()))) + (let ((__tmp152300 (list)) (__tmp152299 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp152263 + __tmp152300 '(type classes ssxi methods) - __tmp152262 + __tmp152299 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (__make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _%$args152234%_ - (apply make-instance gxc#optimizer-info::t _%$args152234%_))) + (lambda _%$args152271%_ + (apply make-instance gxc#optimizer-info::t _%$args152271%_))) (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 (_%self149375152219%_) - (let* ((_%self152222%_ _%self149375152219%_) - (_%self152224%_ _%self152222%_)) - (if (let ((__tmp152264 + (lambda (_%self149412152256%_) + (let* ((_%self152259%_ _%self149412152256%_) + (_%self152261%_ _%self152259%_)) + (if (let ((__tmp152301 (let () (declare (not safe)) - (##structure-length _%self152224%_)))) + (##structure-length _%self152261%_)))) (declare (not safe)) - (##fx< '4 __tmp152264)) + (##fx< '4 __tmp152301)) (begin - (let ((__tmp152265 + (let ((__tmp152302 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152224%_ - __tmp152265 + _%self152261%_ + __tmp152302 '1 '#f '#f)) - (let ((__tmp152266 + (let ((__tmp152303 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152224%_ - __tmp152266 + _%self152261%_ + __tmp152303 '2 '#f '#f)) - (let ((__tmp152267 + (let ((__tmp152304 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152224%_ - __tmp152267 + _%self152261%_ + __tmp152304 '3 '#f '#f)) - (let ((__tmp152268 + (let ((__tmp152305 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152224%_ - __tmp152268 + _%self152261%_ + __tmp152305 '4 '#f '#f)) '#!void) - (let ((__tmp152269 + (let ((__tmp152306 (let () (declare (not safe)) - (##vector-length _%self152224%_)))) + (##vector-length _%self152261%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self152224%_ + _%self152261%_ '4 - __tmp152269)))))) + __tmp152306)))))) (let () (declare (not safe)) (__bind-method!__% @@ -152,22 +152,22 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp152271 (list)) - (__tmp152270 + (let ((__tmp152308 (list)) + (__tmp152307 (cons (cons 'struct: '#t) '((equal: id) (print: id))))) (declare (not safe)) (__make-class-type 'gxc#!type::t '!type - __tmp152271 + __tmp152308 '(id) - __tmp152270 + __tmp152307 '#f))) (define gxc#!type? (let () (declare (not safe)) (__make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _%$args152094%_ - (apply make-instance gxc#!type::t _%$args152094%_))) + (lambda _%$args152131%_ + (apply make-instance gxc#!type::t _%$args152131%_))) (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 ((__tmp152273 (list gxc#!type::t)) - (__tmp152272 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152310 (list gxc#!type::t)) + (__tmp152309 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!abort::t '!abort - __tmp152273 + __tmp152310 '() - __tmp152272 + __tmp152309 ':init!))) (define gxc#!abort? (let () (declare (not safe)) (__make-class-predicate gxc#!abort::t))) (define gxc#make-!abort - (lambda _%$args152091%_ - (apply make-instance gxc#!abort::t _%$args152091%_))) + (lambda _%$args152128%_ + (apply make-instance gxc#!abort::t _%$args152128%_))) (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 ((__tmp152275 (list gxc#!type::t)) - (__tmp152274 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152312 (list gxc#!type::t)) + (__tmp152311 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!alias::t '!alias - __tmp152275 + __tmp152312 '() - __tmp152274 + __tmp152311 '#f))) (define gxc#!alias? (let () (declare (not safe)) (__make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _%$args152088%_ - (apply make-instance gxc#!alias::t _%$args152088%_))) + (lambda _%$args152125%_ + (apply make-instance gxc#!alias::t _%$args152125%_))) (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 ((__tmp152277 (list)) - (__tmp152276 + (let ((__tmp152314 (list)) + (__tmp152313 (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 - __tmp152277 + __tmp152314 '(return effect arguments unchecked origin) - __tmp152276 + __tmp152313 '#f))) (define gxc#!signature? (let () (declare (not safe)) (__make-class-predicate gxc#!signature::t))) (define gxc#make-!signature - (lambda _%$args152085%_ - (apply make-instance gxc#!signature::t _%$args152085%_))) + (lambda _%$args152122%_ + (apply make-instance gxc#!signature::t _%$args152122%_))) (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 ((__tmp152279 (list gxc#!type::t)) - (__tmp152278 + (let ((__tmp152316 (list gxc#!type::t)) + (__tmp152315 (cons (cons 'struct: '#t) '((equal: signature) (print: signature))))) (declare (not safe)) (__make-class-type 'gxc#!procedure::t '!procedure - __tmp152279 + __tmp152316 '(signature) - __tmp152278 + __tmp152315 '#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 (_%id152064%_ _%signature152065%_) - (if ((lambda (_%$obj152068%_) - (or (not _%$obj152068%_) + (lambda (_%id152101%_ _%signature152102%_) + (if ((lambda (_%$obj152105%_) + (or (not _%$obj152105%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj152068%_ + _%$obj152105%_ 'gxc#!signature::t)))) - _%signature152065%_) - (let ((_%signature152075%_ _%signature152065%_)) - (gxc#__make-!procedure _%id152064%_ _%signature152075%_)) + _%signature152102%_) + (let ((_%signature152112%_ _%signature152102%_)) + (gxc#__make-!procedure _%id152101%_ _%signature152112%_)) (begin (raise-contract-violation-error '"contract violation" @@ -414,31 +414,31 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature152065%_) + _%signature152102%_) '#!void)))) (define gxc#__make-!procedure - (lambda (_%id152050%_ _%signature152052%_) - (let ((_%signature152055%_ _%signature152052%_)) + (lambda (_%id152087%_ _%signature152089%_) + (let ((_%signature152092%_ _%signature152089%_)) (declare (not safe)) - (##structure gxc#!procedure::t _%id152050%_ _%signature152055%_)))) + (##structure gxc#!procedure::t _%id152087%_ _%signature152092%_)))) (define gxc#!procedure-signature-set! - (lambda (_%$obj152019%_ _%signature152020%_) + (lambda (_%$obj152056%_ _%signature152057%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%$obj152019%_ 'gxc#!procedure::t)) - (let ((_%$obj152024%_ _%$obj152019%_)) - (if ((lambda (_%$obj152033%_) - (or (not _%$obj152033%_) + (##structure-instance-of? _%$obj152056%_ 'gxc#!procedure::t)) + (let ((_%$obj152061%_ _%$obj152056%_)) + (if ((lambda (_%$obj152070%_) + (or (not _%$obj152070%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj152033%_ + _%$obj152070%_ 'gxc#!signature::t)))) - _%signature152020%_) - (let ((_%signature152040%_ _%signature152020%_)) + _%signature152057%_) + (let ((_%signature152077%_ _%signature152057%_)) (gxc#__!procedure-signature-set! - _%$obj152024%_ - _%signature152040%_)) + _%$obj152061%_ + _%signature152077%_)) (begin (raise-contract-violation-error '"contract violation" @@ -447,7 +447,7 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature152020%_) + _%signature152057%_) '#!void))) (begin (raise-contract-violation-error @@ -457,37 +457,37 @@ 'contract: '!procedure? 'value: - _%$obj152019%_) + _%$obj152056%_) '#!void)))) (define gxc#__!procedure-signature-set! - (lambda (_%$obj151996%_ _%signature151998%_) - (let* ((_%$obj152002%_ _%$obj151996%_) - (_%signature152010%_ _%signature151998%_)) + (lambda (_%$obj152033%_ _%signature152035%_) + (let* ((_%$obj152039%_ _%$obj152033%_) + (_%signature152047%_ _%signature152035%_)) (declare (not safe)) (##unchecked-structure-set! - _%$obj152002%_ - _%signature152010%_ + _%$obj152039%_ + _%signature152047%_ '2 '#f '#f)))) (define gxc#!class-meta::t - (let ((__tmp152281 (list gxc#!type::t)) - (__tmp152280 (cons (cons 'struct: '#t) '()))) + (let ((__tmp152318 (list gxc#!type::t)) + (__tmp152317 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!class-meta::t '!class-meta - __tmp152281 + __tmp152318 '(class) - __tmp152280 + __tmp152317 ':init!))) (define gxc#!class-meta? (let () (declare (not safe)) (__make-class-predicate gxc#!class-meta::t))) (define gxc#make-!class-meta - (lambda _%$args151993%_ - (apply make-instance gxc#!class-meta::t _%$args151993%_))) + (lambda _%$args152030%_ + (apply make-instance gxc#!class-meta::t _%$args152030%_))) (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 ((__tmp152283 (list gxc#!type::t)) - (__tmp152282 + (let ((__tmp152320 (list gxc#!type::t)) + (__tmp152319 (cons (cons 'struct: '#t) '((equal: super @@ -540,7 +540,7 @@ (__make-class-type 'gxc#!class::t '!class - __tmp152283 + __tmp152320 '(super precedence-list slots fields @@ -550,13 +550,13 @@ system? metaclass methods) - __tmp152282 + __tmp152319 ':init!))) (define gxc#!class? (let () (declare (not safe)) (__make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _%$args151990%_ - (apply make-instance gxc#!class::t _%$args151990%_))) + (lambda _%$args152027%_ + (apply make-instance gxc#!class::t _%$args152027%_))) (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 ((__tmp152285 (list gxc#!procedure::t)) - (__tmp152284 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152322 (list gxc#!procedure::t)) + (__tmp152321 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!predicate::t '!predicate - __tmp152285 + __tmp152322 '() - __tmp152284 + __tmp152321 ':init!))) (define gxc#!predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _%$args151987%_ - (apply make-instance gxc#!predicate::t _%$args151987%_))) + (lambda _%$args152024%_ + (apply make-instance gxc#!predicate::t _%$args152024%_))) (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 ((__tmp152287 (list gxc#!procedure::t)) - (__tmp152286 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152324 (list gxc#!procedure::t)) + (__tmp152323 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!constructor::t '!constructor - __tmp152287 + __tmp152324 '() - __tmp152286 + __tmp152323 ':init!))) (define gxc#!constructor? (let () (declare (not safe)) (__make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _%$args151984%_ - (apply make-instance gxc#!constructor::t _%$args151984%_))) + (lambda _%$args152021%_ + (apply make-instance gxc#!constructor::t _%$args152021%_))) (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 ((__tmp152289 (list gxc#!procedure::t)) - (__tmp152288 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp152326 (list gxc#!procedure::t)) + (__tmp152325 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!accessor::t '!accessor - __tmp152289 + __tmp152326 '(slot checked?) - __tmp152288 + __tmp152325 ':init!))) (define gxc#!accessor? (let () (declare (not safe)) (__make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _%$args151981%_ - (apply make-instance gxc#!accessor::t _%$args151981%_))) + (lambda _%$args152018%_ + (apply make-instance gxc#!accessor::t _%$args152018%_))) (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 ((__tmp152291 (list gxc#!procedure::t)) - (__tmp152290 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp152328 (list gxc#!procedure::t)) + (__tmp152327 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!mutator::t '!mutator - __tmp152291 + __tmp152328 '(slot checked?) - __tmp152290 + __tmp152327 ':init!))) (define gxc#!mutator? (let () (declare (not safe)) (__make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _%$args151978%_ - (apply make-instance gxc#!mutator::t _%$args151978%_))) + (lambda _%$args152015%_ + (apply make-instance gxc#!mutator::t _%$args152015%_))) (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 ((__tmp152293 (list gxc#!type::t)) - (__tmp152292 (cons (cons 'struct: '#t) '((equal: methods))))) + (let ((__tmp152330 (list gxc#!type::t)) + (__tmp152329 (cons (cons 'struct: '#t) '((equal: methods))))) (declare (not safe)) (__make-class-type 'gxc#!interface::t '!interface - __tmp152293 + __tmp152330 '(methods) - __tmp152292 + __tmp152329 '#f))) (define gxc#!interface? (let () (declare (not safe)) (__make-class-predicate gxc#!interface::t))) (define gxc#make-!interface - (lambda _%$args151975%_ - (apply make-instance gxc#!interface::t _%$args151975%_))) + (lambda _%$args152012%_ + (apply make-instance gxc#!interface::t _%$args152012%_))) (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 ((__tmp152295 (list gxc#!procedure::t)) - (__tmp152294 + (let ((__tmp152332 (list gxc#!procedure::t)) + (__tmp152331 (cons (cons 'struct: '#t) '((equal: arity dispatch inline inline-typedecl))))) (declare (not safe)) (__make-class-type 'gxc#!lambda::t '!lambda - __tmp152295 + __tmp152332 '(arity dispatch inline inline-typedecl) - __tmp152294 + __tmp152331 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _%$args151972%_ - (apply make-instance gxc#!lambda::t _%$args151972%_))) + (lambda _%$args152009%_ + (apply make-instance gxc#!lambda::t _%$args152009%_))) (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 ((__tmp152297 (list gxc#!procedure::t)) - (__tmp152296 (cons (cons 'struct: '#t) '((equal: clauses))))) + (let ((__tmp152334 (list gxc#!procedure::t)) + (__tmp152333 (cons (cons 'struct: '#t) '((equal: clauses))))) (declare (not safe)) (__make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp152297 + __tmp152334 '(clauses) - __tmp152296 + __tmp152333 ':init!))) (define gxc#!case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _%$args151969%_ - (apply make-instance gxc#!case-lambda::t _%$args151969%_))) + (lambda _%$args152006%_ + (apply make-instance gxc#!case-lambda::t _%$args152006%_))) (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 ((__tmp152299 (list gxc#!procedure::t)) - (__tmp152298 + (let ((__tmp152336 (list gxc#!procedure::t)) + (__tmp152335 (cons (cons 'struct: '#t) '((equal: table dispatch))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp152299 + __tmp152336 '(table dispatch) - __tmp152298 + __tmp152335 ':init!))) (define gxc#!kw-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _%$args151966%_ - (apply make-instance gxc#!kw-lambda::t _%$args151966%_))) + (lambda _%$args152003%_ + (apply make-instance gxc#!kw-lambda::t _%$args152003%_))) (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 ((__tmp152301 (list gxc#!procedure::t)) - (__tmp152300 (cons (cons 'struct: '#t) '((equal: keys main))))) + (let ((__tmp152338 (list gxc#!procedure::t)) + (__tmp152337 (cons (cons 'struct: '#t) '((equal: keys main))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp152301 + __tmp152338 '(keys main) - __tmp152300 + __tmp152337 ':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 _%$args151963%_ - (apply make-instance gxc#!kw-lambda-primary::t _%$args151963%_))) + (lambda _%$args152000%_ + (apply make-instance gxc#!kw-lambda-primary::t _%$args152000%_))) (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 ((__tmp152302 (list))) + (let ((__tmp152339 (list))) (declare (not safe)) (__make-class-type 'gxc#!primitive::t '!primitive - __tmp152302 + __tmp152339 '() '((equal:)) '#f))) (define gxc#!primitive? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _%$args151960%_ - (apply make-instance gxc#!primitive::t _%$args151960%_))) + (lambda _%$args151997%_ + (apply make-instance gxc#!primitive::t _%$args151997%_))) (define gxc#!primitive-predicate::t - (let ((__tmp152304 (list gxc#!primitive::t gxc#!procedure::t)) - (__tmp152303 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152341 (list gxc#!primitive::t gxc#!procedure::t)) + (__tmp152340 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-predicate::t '!primitive-predicate - __tmp152304 + __tmp152341 '() - __tmp152303 + __tmp152340 ':init!))) (define gxc#!primitive-predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-predicate::t))) (define gxc#make-!primitive-predicate - (lambda _%$args151957%_ - (apply make-instance gxc#!primitive-predicate::t _%$args151957%_))) + (lambda _%$args151994%_ + (apply make-instance gxc#!primitive-predicate::t _%$args151994%_))) (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 ((__tmp152306 (list gxc#!primitive::t gxc#!lambda::t)) - (__tmp152305 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152343 (list gxc#!primitive::t gxc#!lambda::t)) + (__tmp152342 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp152306 + __tmp152343 '() - __tmp152305 + __tmp152342 ':init!))) (define gxc#!primitive-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _%$args151954%_ - (apply make-instance gxc#!primitive-lambda::t _%$args151954%_))) + (lambda _%$args151991%_ + (apply make-instance gxc#!primitive-lambda::t _%$args151991%_))) (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 ((__tmp152308 (list gxc#!primitive::t gxc#!case-lambda::t)) - (__tmp152307 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152345 (list gxc#!primitive::t gxc#!case-lambda::t)) + (__tmp152344 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp152308 + __tmp152345 '() - __tmp152307 + __tmp152344 ':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 _%$args151951%_ - (apply make-instance gxc#!primitive-case-lambda::t _%$args151951%_))) + (lambda _%$args151988%_ + (apply make-instance gxc#!primitive-case-lambda::t _%$args151988%_))) (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 (_%self149376151936%_) - (let* ((_%self151939%_ _%self149376151936%_) - (_%self151941%_ _%self151939%_)) + (lambda (_%self149413151973%_) + (let* ((_%self151976%_ _%self149413151973%_) + (_%self151978%_ _%self151976%_)) (declare (not safe)) - (##unchecked-structure-set! _%self151941%_ 'abort '1 '#f '#f)))) + (##unchecked-structure-set! _%self151978%_ 'abort '1 '#f '#f)))) (let () (declare (not safe)) (__bind-method!__% gxc#!abort::t ':init! gxc#!abort:::init! '#f)) (define gxc#!class-meta:::init! - (lambda (_%self149377151798%_ _%klass151800%_) - (let* ((_%self151802%_ _%self149377151798%_) - (_%self151804%_ _%self151802%_)) + (lambda (_%self149414151835%_ _%klass151837%_) + (let* ((_%self151839%_ _%self149414151835%_) + (_%self151841%_ _%self151839%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self151804%_ 'class '1 '#f '#f)) + (##unchecked-structure-set! _%self151841%_ 'class '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151804%_ - _%klass151800%_ + _%self151841%_ + _%klass151837%_ '2 '#f '#f))))) @@ -1707,592 +1707,592 @@ gxc#!class-meta:::init! '#f)) (define gxc#!class:::init!__0 - (lambda (_%self149378151486%_ - _%id151488%_ - _%super151489%_ - _%slots151490%_ - _%ctor-method151491%_ - _%struct?151492%_ - _%final?151493%_ - _%system?151494%_ - _%metaclass151495%_) - (let* ((_%self151497%_ _%self149378151486%_) - (_%self151499%_ _%self151497%_)) - (let _%lp151509%_ ((_%rest151511%_ _%super151489%_)) - (let* ((_%rest151512151520%_ _%rest151511%_) - (_%else151514151528%_ (lambda () '#!void)) - (_%K151516151534%_ - (lambda (_%rest151531%_ _%super-id151532%_) - (if (let ((__tmp152309 + (lambda (_%self149415151523%_ + _%id151525%_ + _%super151526%_ + _%slots151527%_ + _%ctor-method151528%_ + _%struct?151529%_ + _%final?151530%_ + _%system?151531%_ + _%metaclass151532%_) + (let* ((_%self151534%_ _%self149415151523%_) + (_%self151536%_ _%self151534%_)) + (let _%lp151546%_ ((_%rest151548%_ _%super151526%_)) + (let* ((_%rest151549151557%_ _%rest151548%_) + (_%else151551151565%_ (lambda () '#!void)) + (_%K151553151571%_ + (lambda (_%rest151568%_ _%super-id151569%_) + (if (let ((__tmp152346 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151488%_ '())) - _%super-id151532%_))) + (cons '!class (cons _%id151525%_ '())) + _%super-id151569%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp152309 '8 '#f '#f)) - (let ((__tmp152310 - (cons '!class (cons _%id151488%_ '())))) + (##unchecked-structure-ref __tmp152346 '8 '#f '#f)) + (let ((__tmp152347 + (cons '!class (cons _%id151525%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp152310 - _%super-id151532%_)) + __tmp152347 + _%super-id151569%_)) '#!void) - (_%lp151509%_ _%rest151531%_)))) - (if (pair? _%rest151512151520%_) - (let ((_%hd151517151537%_ + (_%lp151546%_ _%rest151568%_)))) + (if (pair? _%rest151549151557%_) + (let ((_%hd151554151574%_ (let () (declare (not safe)) - (##car _%rest151512151520%_))) - (_%tl151518151539%_ + (##car _%rest151549151557%_))) + (_%tl151555151576%_ (let () (declare (not safe)) - (##cdr _%rest151512151520%_)))) - (let* ((_%super-id151542%_ _%hd151517151537%_) - (_%rest151544%_ _%tl151518151539%_)) - (_%K151516151534%_ _%rest151544%_ _%super-id151542%_))) + (##cdr _%rest151549151557%_)))) + (let* ((_%super-id151579%_ _%hd151554151574%_) + (_%rest151581%_ _%tl151555151576%_)) + (_%K151553151571%_ _%rest151581%_ _%super-id151579%_))) '#!void))) - (let* ((_%ctor-method151595%_ - (let ((_%$e151546%_ _%ctor-method151491%_)) - (if _%$e151546%_ - _%$e151546%_ - (let _%lp151549%_ ((_%rest151551%_ _%super151489%_) - (_%method151552%_ '#f)) - (let* ((_%rest151553151561%_ _%rest151551%_) - (_%else151555151569%_ - (lambda () _%method151552%_)) - (_%K151557151583%_ - (lambda (_%rest151572%_ _%super-id151573%_) - (let* ((_%klass151575%_ + (let* ((_%ctor-method151632%_ + (let ((_%$e151583%_ _%ctor-method151528%_)) + (if _%$e151583%_ + _%$e151583%_ + (let _%lp151586%_ ((_%rest151588%_ _%super151526%_) + (_%method151589%_ '#f)) + (let* ((_%rest151590151598%_ _%rest151588%_) + (_%else151592151606%_ + (lambda () _%method151589%_)) + (_%K151594151620%_ + (lambda (_%rest151609%_ _%super-id151610%_) + (let* ((_%klass151612%_ (gxc#optimizer-resolve-class (cons '!class - (cons _%id151488%_ '())) - _%super-id151573%_)) - (_%$e151577%_ + (cons _%id151525%_ '())) + _%super-id151610%_)) + (_%$e151614%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass151575%_ + _%klass151612%_ '6 '#f '#f)))) - (if _%$e151577%_ - ((lambda (_%ctor-method151580%_) - (if _%method151552%_ - (if (eq? _%ctor-method151580%_ - _%method151552%_) - (_%lp151549%_ - _%rest151572%_ - _%ctor-method151580%_) - (let ((__tmp152311 + (if _%$e151614%_ + ((lambda (_%ctor-method151617%_) + (if _%method151589%_ + (if (eq? _%ctor-method151617%_ + _%method151589%_) + (_%lp151586%_ + _%rest151609%_ + _%ctor-method151617%_) + (let ((__tmp152348 (cons '!class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id151488%_ '())))) + (cons _%id151525%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp152311 - _%method151552%_ - _%ctor-method151580%_))) + __tmp152348 + _%method151589%_ + _%ctor-method151617%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp151549%_ - _%rest151572%_ - _%ctor-method151580%_))) - _%$e151577%_) - (_%lp151549%_ - _%rest151572%_ - _%method151552%_)))))) - (if (pair? _%rest151553151561%_) - (let ((_%hd151558151586%_ + (_%lp151586%_ + _%rest151609%_ + _%ctor-method151617%_))) + _%$e151614%_) + (_%lp151586%_ + _%rest151609%_ + _%method151589%_)))))) + (if (pair? _%rest151590151598%_) + (let ((_%hd151595151623%_ (let () (declare (not safe)) - (##car _%rest151553151561%_))) - (_%tl151559151588%_ + (##car _%rest151590151598%_))) + (_%tl151596151625%_ (let () (declare (not safe)) - (##cdr _%rest151553151561%_)))) - (let* ((_%super-id151591%_ - _%hd151558151586%_) - (_%rest151593%_ _%tl151559151588%_)) - (_%K151557151583%_ - _%rest151593%_ - _%super-id151591%_))) - (_%else151555151569%_))))))) - (_g152312_ - (let ((__tmp152316 - (lambda (_%klass-id151597%_) - (cons _%klass-id151597%_ - (let ((__tmp152317 + (##cdr _%rest151590151598%_)))) + (let* ((_%super-id151628%_ + _%hd151595151623%_) + (_%rest151630%_ _%tl151596151625%_)) + (_%K151594151620%_ + _%rest151630%_ + _%super-id151628%_))) + (_%else151592151606%_))))))) + (_g152349_ + (let ((__tmp152353 + (lambda (_%klass-id151634%_) + (cons _%klass-id151634%_ + (let ((__tmp152354 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151488%_ '())) - _%klass-id151597%_))) + (cons '!class (cons _%id151525%_ '())) + _%klass-id151634%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152317 + __tmp152354 '3 '#f '#f))))) - (__tmp152314 - (lambda (_%klass-id151599%_) - (let ((__tmp152315 + (__tmp152351 + (lambda (_%klass-id151636%_) + (let ((__tmp152352 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151488%_ '())) - _%klass-id151599%_))) + (cons '!class (cons _%id151525%_ '())) + _%klass-id151636%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152315 + __tmp152352 '7 '#f '#f))))) (declare (not safe)) (c4-linearize__% '#f - __tmp152316 - __tmp152314 + __tmp152353 + __tmp152351 eq? identity '() - _%super151489%_)))) + _%super151526%_)))) (begin - (let ((_g152313_ + (let ((_g152350_ (let () (declare (not safe)) - (if (##values? _g152312_) - (##vector-length _g152312_) + (if (##values? _g152349_) + (##vector-length _g152349_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g152313_ 2))) - (error "Context expects 2 values" _g152313_))) - (let ((_%precedence-list151601%_ - (let () (declare (not safe)) (##vector-ref _g152312_ 0))) - (_%base-struct151602%_ - (let () (declare (not safe)) (##vector-ref _g152312_ 1)))) - (let* ((_%precedence-list151646%_ + (if (not (let () (declare (not safe)) (##fx= _g152350_ 2))) + (error "Context expects 2 values" _g152350_))) + (let ((_%precedence-list151638%_ + (let () (declare (not safe)) (##vector-ref _g152349_ 0))) + (_%base-struct151639%_ + (let () (declare (not safe)) (##vector-ref _g152349_ 1)))) + (let* ((_%precedence-list151683%_ (if (let () (declare (not safe)) - (##memq _%id151488%_ '(t object class))) - _%precedence-list151601%_ - (if (memq 'object::t _%precedence-list151601%_) - _%precedence-list151601%_ - (if _%system?151494%_ - (if (memq 't::t _%precedence-list151601%_) - _%precedence-list151601%_ + (##memq _%id151525%_ '(t object class))) + _%precedence-list151638%_ + (if (memq 'object::t _%precedence-list151638%_) + _%precedence-list151638%_ + (if _%system?151531%_ + (if (memq 't::t _%precedence-list151638%_) + _%precedence-list151638%_ (let () (declare (not safe)) (##append - _%precedence-list151601%_ + _%precedence-list151638%_ '(t::t)))) - (let _%loop151608%_ ((_%tail151610%_ - _%precedence-list151601%_) - (_%head151611%_ '())) - (let* ((_%tail151612151620%_ - _%tail151610%_) - (_%else151614151628%_ + (let _%loop151645%_ ((_%tail151647%_ + _%precedence-list151638%_) + (_%head151648%_ '())) + (let* ((_%tail151649151657%_ + _%tail151647%_) + (_%else151651151665%_ (lambda () (let () (declare (not safe)) (__foldl1 cons '(object::t t::t) - _%head151611%_)))) - (_%K151616151634%_ - (lambda (_%rest151631%_ - _%hd151632%_) - (if (eq? _%hd151632%_ 't::t) - (let ((__tmp152318 + _%head151648%_)))) + (_%K151653151671%_ + (lambda (_%rest151668%_ + _%hd151669%_) + (if (eq? _%hd151669%_ 't::t) + (let ((__tmp152355 (cons 'object::t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail151610%_))) + _%tail151647%_))) (declare (not safe)) - (__foldl1 cons __tmp152318 _%head151611%_)) + (__foldl1 cons __tmp152355 _%head151648%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151608%_ - _%rest151631%_ - (cons _%hd151632%_ - _%head151611%_)))))) - (if (pair? _%tail151612151620%_) - (let ((_%hd151617151637%_ + (_%loop151645%_ + _%rest151668%_ + (cons _%hd151669%_ + _%head151648%_)))))) + (if (pair? _%tail151649151657%_) + (let ((_%hd151654151674%_ (let () (declare (not safe)) - (##car _%tail151612151620%_))) - (_%tl151618151639%_ + (##car _%tail151649151657%_))) + (_%tl151655151676%_ (let () (declare (not safe)) - (##cdr _%tail151612151620%_)))) - (let* ((_%hd151642%_ - _%hd151617151637%_) - (_%rest151644%_ - _%tl151618151639%_)) - (_%K151616151634%_ - _%rest151644%_ - _%hd151642%_))) - (_%else151614151628%_)))))))) - (_%fields151648%_ + (##cdr _%tail151649151657%_)))) + (let* ((_%hd151679%_ + _%hd151654151674%_) + (_%rest151681%_ + _%tl151655151676%_)) + (_%K151653151671%_ + _%rest151681%_ + _%hd151679%_))) + (_%else151651151665%_)))))))) + (_%fields151685%_ (gxc#compute-class-fields - (cons '!class (cons _%id151488%_ '())) - _%base-struct151602%_ - _%precedence-list151646%_ - _%slots151490%_))) + (cons '!class (cons _%id151525%_ '())) + _%base-struct151639%_ + _%precedence-list151683%_ + _%slots151527%_))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151499%_ - _%id151488%_ + _%self151536%_ + _%id151525%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151499%_ - _%super151489%_ + _%self151536%_ + _%super151526%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151499%_ - _%precedence-list151646%_ + _%self151536%_ + _%precedence-list151683%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151499%_ - _%slots151490%_ + _%self151536%_ + _%slots151527%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151499%_ - _%fields151648%_ + _%self151536%_ + _%fields151685%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151499%_ - _%ctor-method151595%_ + _%self151536%_ + _%ctor-method151632%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151499%_ - _%struct?151492%_ + _%self151536%_ + _%struct?151529%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151499%_ - _%final?151493%_ + _%self151536%_ + _%final?151530%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151499%_ - _%metaclass151495%_ + _%self151536%_ + _%metaclass151532%_ '10 '#f '#f))))))))) (define gxc#!class:::init!__1 - (lambda (_%self149379151651%_ - _%id151653%_ - _%super151654%_ - _%precedence-list151655%_ - _%slots151656%_ - _%fields151657%_ - _%constructor151658%_ - _%struct?151659%_ - _%final?151660%_ - _%system?151661%_ - _%metaclass151662%_ - _%methods151663%_) - (let* ((_%self151665%_ _%self149379151651%_) - (_%self151667%_ _%self151665%_)) + (lambda (_%self149416151688%_ + _%id151690%_ + _%super151691%_ + _%precedence-list151692%_ + _%slots151693%_ + _%fields151694%_ + _%constructor151695%_ + _%struct?151696%_ + _%final?151697%_ + _%system?151698%_ + _%metaclass151699%_ + _%methods151700%_) + (let* ((_%self151702%_ _%self149416151688%_) + (_%self151704%_ _%self151702%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151667%_ - _%id151653%_ + _%self151704%_ + _%id151690%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151667%_ - _%super151654%_ + _%self151704%_ + _%super151691%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151667%_ - _%precedence-list151655%_ + _%self151704%_ + _%precedence-list151692%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151667%_ - _%slots151656%_ + _%self151704%_ + _%slots151693%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151667%_ - _%fields151657%_ + _%self151704%_ + _%fields151694%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151667%_ - _%constructor151658%_ + _%self151704%_ + _%constructor151695%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151667%_ - _%struct?151659%_ + _%self151704%_ + _%struct?151696%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151667%_ - _%final?151660%_ + _%self151704%_ + _%final?151697%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151667%_ - _%metaclass151662%_ + _%self151704%_ + _%metaclass151699%_ '10 '#f '#f)) - (if _%methods151663%_ - (let ((__tmp152319 + (if _%methods151700%_ + (let ((__tmp152356 (let () (declare (not safe)) - (list->hash-table-eq _%methods151663%_)))) + (list->hash-table-eq _%methods151700%_)))) (declare (not safe)) (##unchecked-structure-set! - _%self151667%_ - __tmp152319 + _%self151704%_ + __tmp152356 '11 '#f '#f)) '#!void)))) (define gxc#!class:::init! - (lambda _g152321_ - (let ((_g152320_ (let () (declare (not safe)) (##length _g152321_)))) - (cond ((let () (declare (not safe)) (##fx= _g152320_ 9)) - (apply gxc#!class:::init!__0 _g152321_)) - ((let () (declare (not safe)) (##fx= _g152320_ 12)) - (apply gxc#!class:::init!__1 _g152321_)) + (lambda _g152358_ + (let ((_g152357_ (let () (declare (not safe)) (##length _g152358_)))) + (cond ((let () (declare (not safe)) (##fx= _g152357_ 9)) + (apply gxc#!class:::init!__0 _g152358_)) + ((let () (declare (not safe)) (##fx= _g152357_ 12)) + (apply gxc#!class:::init!__1 _g152358_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g152321_)))))) + _g152358_)))))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_%where151338%_ - _%base-struct151339%_ - _%precedence-list151340%_ - _%direct-slots151341%_) - (let* ((_%base-fields151343%_ - (if _%base-struct151339%_ - (let ((__tmp152322 + (lambda (_%where151375%_ + _%base-struct151376%_ + _%precedence-list151377%_ + _%direct-slots151378%_) + (let* ((_%base-fields151380%_ + (if _%base-struct151376%_ + (let ((__tmp152359 (gxc#optimizer-resolve-class - _%where151338%_ - _%base-struct151339%_))) + _%where151375%_ + _%base-struct151376%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp152322 '5 '#f '#f)) + (##unchecked-structure-ref __tmp152359 '5 '#f '#f)) '())) - (_%r-fields151345%_ (reverse _%base-fields151343%_)) - (_%seen-slots151353%_ - (let ((_%tab151347%_ + (_%r-fields151382%_ (reverse _%base-fields151380%_)) + (_%seen-slots151390%_ + (let ((_%tab151384%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%g151348151350%_) + (lambda (_%g151385151387%_) (let () (declare (not safe)) - (__hash-put! _%tab151347%_ _%g151348151350%_ '#t))) - _%base-fields151343%_) - _%tab151347%_)) - (_%process-slot151357%_ - (lambda (_%slot151355%_) + (__hash-put! _%tab151384%_ _%g151385151387%_ '#t))) + _%base-fields151380%_) + _%tab151384%_)) + (_%process-slot151394%_ + (lambda (_%slot151392%_) (if (let () (declare (not safe)) - (__hash-get _%seen-slots151353%_ _%slot151355%_)) + (__hash-get _%seen-slots151390%_ _%slot151392%_)) '#!void (begin (let () (declare (not safe)) (__hash-put! - _%seen-slots151353%_ - _%slot151355%_ + _%seen-slots151390%_ + _%slot151392%_ '#t)) - (set! _%r-fields151345%_ - (cons _%slot151355%_ _%r-fields151345%_))))))) + (set! _%r-fields151382%_ + (cons _%slot151392%_ _%r-fields151382%_))))))) (for-each - (lambda (_%mixin151360%_) - (let ((_%klass151362%_ + (lambda (_%mixin151397%_) + (let ((_%klass151399%_ (gxc#optimizer-resolve-class - _%where151338%_ - _%mixin151360%_))) + _%where151375%_ + _%mixin151397%_))) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%klass151362%_ '7 '#f '#f)) + (##unchecked-structure-ref _%klass151399%_ '7 '#f '#f)) '#!void (for-each - _%process-slot151357%_ + _%process-slot151394%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass151362%_ + _%klass151399%_ '5 '#f '#f)))))) - _%precedence-list151340%_) - (for-each _%process-slot151357%_ _%direct-slots151341%_) - (let () (declare (not safe)) (##reverse _%r-fields151345%_))))) + _%precedence-list151377%_) + (for-each _%process-slot151394%_ _%direct-slots151378%_) + (let () (declare (not safe)) (##reverse _%r-fields151382%_))))) (define gxc#!class-slot->field-offset - (lambda (_%klass151297%_ _%slot151298%_) - (let _%lp151300%_ ((_%rest151302%_ + (lambda (_%klass151334%_ _%slot151335%_) + (let _%lp151337%_ ((_%rest151339%_ (##structure-ref - _%klass151297%_ + _%klass151334%_ '5 gxc#!class::t '#f)) - (_%offset151303%_ '1)) - (let* ((_%rest151304151312%_ _%rest151302%_) - (_%else151306151320%_ + (_%offset151340%_ '1)) + (let* ((_%rest151341151349%_ _%rest151339%_) + (_%else151343151357%_ (lambda () - (let ((__tmp152324 + (let ((__tmp152361 (##structure-ref - _%klass151297%_ + _%klass151334%_ '1 gxc#!type::t '#f)) - (__tmp152323 + (__tmp152360 (##structure-ref - _%klass151297%_ + _%klass151334%_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp152324 - __tmp152323 - _%slot151298%_)))) - (_%K151308151326%_ - (lambda (_%rest151323%_ _%s151324%_) - (if (eq? _%s151324%_ _%slot151298%_) - _%offset151303%_ - (_%lp151300%_ - _%rest151323%_ + __tmp152361 + __tmp152360 + _%slot151335%_)))) + (_%K151345151363%_ + (lambda (_%rest151360%_ _%s151361%_) + (if (eq? _%s151361%_ _%slot151335%_) + _%offset151340%_ + (_%lp151337%_ + _%rest151360%_ (let () (declare (not safe)) - (##fx+ _%offset151303%_ '1))))))) - (if (pair? _%rest151304151312%_) - (let ((_%hd151309151329%_ + (##fx+ _%offset151340%_ '1))))))) + (if (pair? _%rest151341151349%_) + (let ((_%hd151346151366%_ (let () (declare (not safe)) - (##car _%rest151304151312%_))) - (_%tl151310151331%_ + (##car _%rest151341151349%_))) + (_%tl151347151368%_ (let () (declare (not safe)) - (##cdr _%rest151304151312%_)))) - (let* ((_%s151334%_ _%hd151309151329%_) - (_%rest151336%_ _%tl151310151331%_)) - (_%K151308151326%_ _%rest151336%_ _%s151334%_))) - (_%else151306151320%_)))))) + (##cdr _%rest151341151349%_)))) + (let* ((_%s151371%_ _%hd151346151366%_) + (_%rest151373%_ _%tl151347151368%_)) + (_%K151345151363%_ _%rest151373%_ _%s151371%_))) + (_%else151343151357%_)))))) (define gxc#!class-slot-find-struct - (lambda (_%klass151255%_ _%slot151256%_) - (if (gxc#!class-struct-slot? _%klass151255%_ _%slot151256%_) - _%klass151255%_ - (let _%lp151258%_ ((_%rest151260%_ + (lambda (_%klass151292%_ _%slot151293%_) + (if (gxc#!class-struct-slot? _%klass151292%_ _%slot151293%_) + _%klass151292%_ + (let _%lp151295%_ ((_%rest151297%_ (##structure-ref - _%klass151255%_ + _%klass151292%_ '3 gxc#!class::t '#f))) - (let* ((_%rest151261151269%_ _%rest151260%_) - (_%else151263151277%_ (lambda () '#f)) - (_%K151265151285%_ - (lambda (_%rest151280%_ _%super151281%_) - (let ((_%super-class151283%_ + (let* ((_%rest151298151306%_ _%rest151297%_) + (_%else151300151314%_ (lambda () '#f)) + (_%K151302151322%_ + (lambda (_%rest151317%_ _%super151318%_) + (let ((_%super-class151320%_ (gxc#optimizer-resolve-class (cons '!class-slot-find-struct (cons (##structure-ref - _%klass151255%_ + _%klass151292%_ '1 gxc#!type::t '#f) - (cons _%slot151256%_ '()))) - _%super151281%_))) + (cons _%slot151293%_ '()))) + _%super151318%_))) (if (gxc#!class-struct-slot? - _%super-class151283%_ - _%slot151256%_) - _%super-class151283%_ - (_%lp151258%_ _%rest151280%_)))))) - (if (pair? _%rest151261151269%_) - (let ((_%hd151266151288%_ + _%super-class151320%_ + _%slot151293%_) + _%super-class151320%_ + (_%lp151295%_ _%rest151317%_)))))) + (if (pair? _%rest151298151306%_) + (let ((_%hd151303151325%_ (let () (declare (not safe)) - (##car _%rest151261151269%_))) - (_%tl151267151290%_ + (##car _%rest151298151306%_))) + (_%tl151304151327%_ (let () (declare (not safe)) - (##cdr _%rest151261151269%_)))) - (let* ((_%super151293%_ _%hd151266151288%_) - (_%rest151295%_ _%tl151267151290%_)) - (_%K151265151285%_ _%rest151295%_ _%super151293%_))) - (_%else151263151277%_))))))) + (##cdr _%rest151298151306%_)))) + (let* ((_%super151330%_ _%hd151303151325%_) + (_%rest151332%_ _%tl151304151327%_)) + (_%K151302151322%_ _%rest151332%_ _%super151330%_))) + (_%else151300151314%_))))))) (define gxc#!class-struct-slot? - (lambda (_%klass151252%_ _%slot151253%_) - (if (##structure-ref _%klass151252%_ '7 gxc#!class::t '#f) - (memq _%slot151253%_ - (##structure-ref _%klass151252%_ '5 gxc#!class::t '#f)) + (lambda (_%klass151289%_ _%slot151290%_) + (if (##structure-ref _%klass151289%_ '7 gxc#!class::t '#f) + (memq _%slot151290%_ + (##structure-ref _%klass151289%_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_%self149380151236%_ _%id151238%_) - (let* ((_%self151240%_ _%self149380151236%_) - (_%self151242%_ _%self151240%_)) + (lambda (_%self149417151273%_ _%id151275%_) + (let* ((_%self151277%_ _%self149417151273%_) + (_%self151279%_ _%self151277%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151242%_ - _%id151238%_ + _%self151279%_ + _%id151275%_ '1 '#f '#f)) - (let ((__tmp152325 - (let ((__obj152257 + (let ((__tmp152362 + (let ((__obj152294 (let () (declare (not safe)) (##structure @@ -2305,7 +2305,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152257 + __obj152294 'boolean::t '1 '#f @@ -2313,7 +2313,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152257 + __obj152294 '(pure predicate) '2 '#f @@ -2321,16 +2321,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152257 + __obj152294 '(t::t) '3 '#f '#f)) - __obj152257))) + __obj152294))) (declare (not safe)) (##unchecked-structure-set! - _%self151242%_ - __tmp152325 + _%self151279%_ + __tmp152362 '2 '#f '#f))))) @@ -2338,19 +2338,19 @@ (declare (not safe)) (__bind-method!__% gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_%self149381151098%_ _%id151100%_) - (let* ((_%self151102%_ _%self149381151098%_) - (_%self151104%_ _%self151102%_)) + (lambda (_%self149418151135%_ _%id151137%_) + (let* ((_%self151139%_ _%self149418151135%_) + (_%self151141%_ _%self151139%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151104%_ - _%id151100%_ + _%self151141%_ + _%id151137%_ '1 '#f '#f)) - (let ((__tmp152326 - (let ((__obj152258 + (let ((__tmp152363 + (let ((__obj152295 (let () (declare (not safe)) (##structure @@ -2363,24 +2363,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152258 - _%id151100%_ + __obj152295 + _%id151137%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152258 + __obj152295 '(alloc) '2 '#f '#f)) - __obj152258))) + __obj152295))) (declare (not safe)) (##unchecked-structure-set! - _%self151104%_ - __tmp152326 + _%self151141%_ + __tmp152363 '2 '#f '#f))))) @@ -2392,38 +2392,38 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_%self149382150958%_ - _%id150960%_ - _%slot150961%_ - _%checked?150962%_) - (let* ((_%self150964%_ _%self149382150958%_) - (_%self150966%_ _%self150964%_)) + (lambda (_%self149419150995%_ + _%id150997%_ + _%slot150998%_ + _%checked?150999%_) + (let* ((_%self151001%_ _%self149419150995%_) + (_%self151003%_ _%self151001%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150966%_ - _%id150960%_ + _%self151003%_ + _%id150997%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150966%_ - _%slot150961%_ + _%self151003%_ + _%slot150998%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150966%_ - _%checked?150962%_ + _%self151003%_ + _%checked?150999%_ '4 '#f '#f)) - (let ((__tmp152327 - (let ((__obj152259 + (let ((__tmp152364 + (let ((__obj152296 (let () (declare (not safe)) (##structure @@ -2435,28 +2435,28 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152259 't::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152296 't::t '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152259 + __obj152296 '(pure) '2 '#f '#f)) - (let ((__tmp152328 (cons _%id150960%_ '()))) + (let ((__tmp152365 (cons _%id150997%_ '()))) (declare (not safe)) (##unchecked-structure-set! - __obj152259 - __tmp152328 + __obj152296 + __tmp152365 '3 '#f '#f)) - __obj152259))) + __obj152296))) (declare (not safe)) (##unchecked-structure-set! - _%self150966%_ - __tmp152327 + _%self151003%_ + __tmp152364 '2 '#f '#f))))) @@ -2464,38 +2464,38 @@ (declare (not safe)) (__bind-method!__% gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_%self149383150818%_ - _%id150820%_ - _%slot150821%_ - _%checked?150822%_) - (let* ((_%self150824%_ _%self149383150818%_) - (_%self150826%_ _%self150824%_)) + (lambda (_%self149420150855%_ + _%id150857%_ + _%slot150858%_ + _%checked?150859%_) + (let* ((_%self150861%_ _%self149420150855%_) + (_%self150863%_ _%self150861%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150826%_ - _%id150820%_ + _%self150863%_ + _%id150857%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150826%_ - _%slot150821%_ + _%self150863%_ + _%slot150858%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150826%_ - _%checked?150822%_ + _%self150863%_ + _%checked?150859%_ '4 '#f '#f)) - (let ((__tmp152329 - (let ((__obj152260 + (let ((__tmp152366 + (let ((__obj152297 (let () (declare (not safe)) (##structure @@ -2508,7 +2508,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152260 + __obj152297 'void::t '1 '#f @@ -2516,24 +2516,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152260 + __obj152297 '(mut) '2 '#f '#f)) - (let ((__tmp152330 (cons _%id150820%_ (cons 't::t '())))) + (let ((__tmp152367 (cons _%id150857%_ (cons 't::t '())))) (declare (not safe)) (##unchecked-structure-set! - __obj152260 - __tmp152330 + __obj152297 + __tmp152367 '3 '#f '#f)) - __obj152260))) + __obj152297))) (declare (not safe)) (##unchecked-structure-set! - _%self150826%_ - __tmp152329 + _%self150863%_ + __tmp152366 '2 '#f '#f))))) @@ -2541,111 +2541,111 @@ (declare (not safe)) (__bind-method!__% gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_%@@keywords150660%_ - _%signature150657150661%_ - _%self149384150663%_ - _%arity150665%_ - _%dispatch150666%_) - (let* ((_%signature150668%_ - (if (eq? _%signature150657150661%_ absent-value) + (lambda (_%@@keywords150697%_ + _%signature150694150698%_ + _%self149421150700%_ + _%arity150702%_ + _%dispatch150703%_) + (let* ((_%signature150705%_ + (if (eq? _%signature150694150698%_ absent-value) '#f - _%signature150657150661%_)) - (_%self150670%_ _%self149384150663%_) - (_%self150672%_ _%self150670%_)) + _%signature150694150698%_)) + (_%self150707%_ _%self149421150700%_) + (_%self150709%_ _%self150707%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150672%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150709%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150672%_ - _%arity150665%_ + _%self150709%_ + _%arity150702%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150672%_ - _%dispatch150666%_ + _%self150709%_ + _%dispatch150703%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150672%_ - _%signature150668%_ + _%self150709%_ + _%signature150705%_ '2 '#f '#f))))) (define gxc#!lambda:::init!__@ - (lambda (_%@@keywords150686%_ . _%args150687%_) + (lambda (_%@@keywords150723%_ . _%args150724%_) (apply gxc#!lambda:::init!__% - _%@@keywords150686%_ + _%@@keywords150723%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150686%_ + _%@@keywords150723%_ 'signature: absent-value)) - _%args150687%_))) + _%args150724%_))) (define gxc#!lambda:::init! - (lambda _%args150658150693%_ + (lambda _%args150695150730%_ (apply keyword-dispatch '#(signature:) gxc#!lambda:::init!__@ - _%args150658150693%_))) + _%args150695150730%_))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) (define gxc#!case-lambda:::init!__% - (lambda (_%@@keywords150499%_ - _%signature150496150500%_ - _%self149385150502%_ - _%clauses150504%_) - (let* ((_%signature150506%_ - (if (eq? _%signature150496150500%_ absent-value) + (lambda (_%@@keywords150536%_ + _%signature150533150537%_ + _%self149422150539%_ + _%clauses150541%_) + (let* ((_%signature150543%_ + (if (eq? _%signature150533150537%_ absent-value) '#f - _%signature150496150500%_)) - (_%self150508%_ _%self149385150502%_) - (_%self150510%_ _%self150508%_)) + _%signature150533150537%_)) + (_%self150545%_ _%self149422150539%_) + (_%self150547%_ _%self150545%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150510%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150547%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150510%_ - _%signature150506%_ + _%self150547%_ + _%signature150543%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150510%_ - _%clauses150504%_ + _%self150547%_ + _%clauses150541%_ '3 '#f '#f))))) (define gxc#!case-lambda:::init!__@ - (lambda (_%@@keywords150524%_ . _%args150525%_) + (lambda (_%@@keywords150561%_ . _%args150562%_) (apply gxc#!case-lambda:::init!__% - _%@@keywords150524%_ + _%@@keywords150561%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150524%_ + _%@@keywords150561%_ 'signature: absent-value)) - _%args150525%_))) + _%args150562%_))) (define gxc#!case-lambda:::init! - (lambda _%args150497150531%_ + (lambda _%args150534150568%_ (apply keyword-dispatch '#(signature:) gxc#!case-lambda:::init!__@ - _%args150497150531%_))) + _%args150534150568%_))) (let () (declare (not safe)) (__bind-method!__% @@ -2654,25 +2654,25 @@ gxc#!case-lambda:::init! '#f)) (define gxc#!kw-lambda:::init! - (lambda (_%self149386150356%_ _%tab150358%_ _%dispatch150359%_) - (let* ((_%self150361%_ _%self149386150356%_) - (_%self150363%_ _%self150361%_)) + (lambda (_%self149423150393%_ _%tab150395%_ _%dispatch150396%_) + (let* ((_%self150398%_ _%self149423150393%_) + (_%self150400%_ _%self150398%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150363%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150400%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150363%_ - _%tab150358%_ + _%self150400%_ + _%tab150395%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150363%_ - _%dispatch150359%_ + _%self150400%_ + _%dispatch150396%_ '4 '#f '#f))))) @@ -2680,25 +2680,25 @@ (declare (not safe)) (__bind-method!__% gxc#!kw-lambda::t ':init! gxc#!kw-lambda:::init! '#f)) (define gxc#!kw-lambda-primary:::init! - (lambda (_%self149387150217%_ _%keys150219%_ _%main150220%_) - (let* ((_%self150222%_ _%self149387150217%_) - (_%self150224%_ _%self150222%_)) + (lambda (_%self149424150254%_ _%keys150256%_ _%main150257%_) + (let* ((_%self150259%_ _%self149424150254%_) + (_%self150261%_ _%self150259%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150224%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150261%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150224%_ - _%keys150219%_ + _%self150261%_ + _%keys150256%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150224%_ - _%main150220%_ + _%self150261%_ + _%main150257%_ '4 '#f '#f))))) @@ -2726,19 +2726,19 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!primitive-predicate:::init! - (lambda (_%self149388149835%_ _%id149837%_) - (let* ((_%self149839%_ _%self149388149835%_) - (_%self149841%_ _%self149839%_)) + (lambda (_%self149425149872%_ _%id149874%_) + (let* ((_%self149876%_ _%self149425149872%_) + (_%self149878%_ _%self149876%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149841%_ - _%id149837%_ + _%self149878%_ + _%id149874%_ '1 '#f '#f)) - (let ((__tmp152331 - (let ((__obj152261 + (let ((__tmp152368 + (let ((__obj152298 (let () (declare (not safe)) (##structure @@ -2751,7 +2751,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152261 + __obj152298 'boolean::t '1 '#f @@ -2759,7 +2759,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152261 + __obj152298 '(pure) '2 '#f @@ -2767,16 +2767,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152261 + __obj152298 '(t::t) '3 '#f '#f)) - __obj152261))) + __obj152298))) (declare (not safe)) (##unchecked-structure-set! - _%self149841%_ - __tmp152331 + _%self149878%_ + __tmp152368 '2 '#f '#f))))) @@ -2788,158 +2788,158 @@ gxc#!primitive-predicate:::init! '#f)) (define gxc#!class-method-table - (lambda (_%klass149704%_) - (let ((_%$e149706%_ - (##structure-ref _%klass149704%_ '11 gxc#!class::t '#f))) - (if _%$e149706%_ - _%$e149706%_ - (let ((_%tab149710%_ + (lambda (_%klass149741%_) + (let ((_%$e149743%_ + (##structure-ref _%klass149741%_ '11 gxc#!class::t '#f))) + (if _%$e149743%_ + _%$e149743%_ + (let ((_%tab149747%_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _%klass149704%_ - _%tab149710%_ + _%klass149741%_ + _%tab149747%_ '11 gxc#!class::t '#f) - _%tab149710%_))))) + _%tab149747%_))))) (define gxc#!class-lookup-method - (lambda (_%klass149695%_ _%method149696%_) - (let ((_%tab149697149699%_ - (##structure-ref _%klass149695%_ '11 gxc#!class::t '#f))) - (if _%tab149697149699%_ - (let ((_%tab149702%_ _%tab149697149699%_)) + (lambda (_%klass149732%_ _%method149733%_) + (let ((_%tab149734149736%_ + (##structure-ref _%klass149732%_ '11 gxc#!class::t '#f))) + (if _%tab149734149736%_ + (let ((_%tab149739%_ _%tab149734149736%_)) (declare (not safe)) - (hash-get _%tab149702%_ _%method149696%_)) + (hash-get _%tab149739%_ _%method149733%_)) '#f)))) (define gxc#!type-subtype? - (lambda (_%type-a149683%_ _%type-b149684%_) - (if _%type-a149683%_ - (if _%type-b149684%_ - (let ((_%$e149686%_ (eq? _%type-a149683%_ _%type-b149684%_))) - (if _%$e149686%_ - _%$e149686%_ - (let ((_%$e149689%_ + (lambda (_%type-a149720%_ _%type-b149721%_) + (if _%type-a149720%_ + (if _%type-b149721%_ + (let ((_%$e149723%_ (eq? _%type-a149720%_ _%type-b149721%_))) + (if _%$e149723%_ + _%$e149723%_ + (let ((_%$e149726%_ (eq? (##structure-ref - _%type-b149684%_ + _%type-b149721%_ '1 gxc#!type::t '#f) 't))) - (if _%$e149689%_ - _%$e149689%_ - (let ((_%$e149692%_ + (if _%$e149726%_ + _%$e149726%_ + (let ((_%$e149729%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a149683%_ + _%type-a149720%_ 'gxc#!procedure::t)) (eq? (##structure-ref - _%type-b149684%_ + _%type-b149721%_ '1 gxc#!type::t '#f) 'procedure) '#f))) - (if _%$e149692%_ - _%$e149692%_ + (if _%$e149729%_ + _%$e149729%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a149683%_ + _%type-a149720%_ 'gxc#!class::t)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-b149684%_ + _%type-b149721%_ 'gxc#!class::t)) (gxc#!class-subclass? - _%type-a149683%_ - _%type-b149684%_) + _%type-a149720%_ + _%type-b149721%_) '#f) '#f))))))) '#f) '#f))) (define gxc#!class-subclass? - (lambda (_%klass-a149634%_ _%klass-b149635%_) - (let ((_%$e149637%_ - (eq? (##structure-ref _%klass-a149634%_ '1 gxc#!type::t '#f) - (##structure-ref _%klass-b149635%_ '1 gxc#!type::t '#f)))) - (if _%$e149637%_ - _%$e149637%_ - (let ((_%klass-id-b149640%_ - (##structure-ref _%klass-b149635%_ '1 gxc#!type::t '#f)) - (_%precedence-list149641%_ - (##structure-ref _%klass-a149634%_ '3 gxc#!class::t '#f))) - (let _%loop149643%_ ((_%rest149645%_ - _%precedence-list149641%_)) - (let* ((_%rest149646149654%_ _%rest149645%_) - (_%else149648149662%_ (lambda () '#f)) - (_%K149650149671%_ - (lambda (_%rest149665%_ _%klass-name149666%_) - (let ((_%$e149668%_ - (eq? (let ((__tmp152332 + (lambda (_%klass-a149671%_ _%klass-b149672%_) + (let ((_%$e149674%_ + (eq? (##structure-ref _%klass-a149671%_ '1 gxc#!type::t '#f) + (##structure-ref _%klass-b149672%_ '1 gxc#!type::t '#f)))) + (if _%$e149674%_ + _%$e149674%_ + (let ((_%klass-id-b149677%_ + (##structure-ref _%klass-b149672%_ '1 gxc#!type::t '#f)) + (_%precedence-list149678%_ + (##structure-ref _%klass-a149671%_ '3 gxc#!class::t '#f))) + (let _%loop149680%_ ((_%rest149682%_ + _%precedence-list149678%_)) + (let* ((_%rest149683149691%_ _%rest149682%_) + (_%else149685149699%_ (lambda () '#f)) + (_%K149687149708%_ + (lambda (_%rest149702%_ _%klass-name149703%_) + (let ((_%$e149705%_ + (eq? (let ((__tmp152369 (gxc#optimizer-resolve-class (cons 'subclass? - (cons _%klass-a149634%_ - (cons _%klass-b149635%_ + (cons _%klass-a149671%_ + (cons _%klass-b149672%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%klass-name149666%_))) + _%klass-name149703%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152332 + __tmp152369 '1 '#f '#f)) - _%klass-id-b149640%_))) - (if _%$e149668%_ - _%$e149668%_ - (_%loop149643%_ _%rest149665%_)))))) - (if (pair? _%rest149646149654%_) - (let ((_%hd149651149674%_ + _%klass-id-b149677%_))) + (if _%$e149705%_ + _%$e149705%_ + (_%loop149680%_ _%rest149702%_)))))) + (if (pair? _%rest149683149691%_) + (let ((_%hd149688149711%_ (let () (declare (not safe)) - (##car _%rest149646149654%_))) - (_%tl149652149676%_ + (##car _%rest149683149691%_))) + (_%tl149689149713%_ (let () (declare (not safe)) - (##cdr _%rest149646149654%_)))) - (let* ((_%klass-name149679%_ _%hd149651149674%_) - (_%rest149681%_ _%tl149652149676%_)) - (_%K149650149671%_ - _%rest149681%_ - _%klass-name149679%_))) - (_%else149648149662%_))))))))) + (##cdr _%rest149683149691%_)))) + (let* ((_%klass-name149716%_ _%hd149688149711%_) + (_%rest149718%_ _%tl149689149713%_)) + (_%K149687149708%_ + _%rest149718%_ + _%klass-name149716%_))) + (_%else149685149699%_))))))))) (define gxc#!interface-instance? - (lambda (_%type149632%_) + (lambda (_%type149669%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149632%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149669%_ 'gxc#!class::t)) (memq 'interface-instance::t (let () (declare (not safe)) - (##unchecked-structure-ref _%type149632%_ '3 '#f '#f))) + (##unchecked-structure-ref _%type149669%_ '3 '#f '#f))) '#f))) (define gxc#!procedure-origin - (lambda (_%proc149621%_) + (lambda (_%proc149658%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%proc149621%_ 'gxc#!procedure::t)) - (let ((_%proc149624%_ _%proc149621%_)) + (##structure-instance-of? _%proc149658%_ 'gxc#!procedure::t)) + (let ((_%proc149661%_ _%proc149658%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%proc149624%_ '2 '#f '#f)) - (let ((__tmp152333 + (##unchecked-structure-ref _%proc149661%_ '2 '#f '#f)) + (let ((__tmp152370 (let () (declare (not safe)) (##unchecked-structure-ref - _%proc149624%_ + _%proc149661%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp152333 '5 '#f '#f)) + (##unchecked-structure-ref __tmp152370 '5 '#f '#f)) '#f)) (begin (raise-contract-violation-error @@ -2949,24 +2949,24 @@ 'contract: '!procedure? 'value: - _%proc149621%_) + _%proc149658%_) '#!void)))) (define gxc#optimizer-declare-type!__% - (lambda (_%sym149603%_ _%type149604%_ _%local?149605%_) + (lambda (_%sym149640%_ _%type149641%_ _%local?149642%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149604%_ 'gxc#!type::t)) + (##structure-instance-of? _%type149641%_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _%sym149603%_ - _%type149604%_))) + _%sym149640%_ + _%type149641%_))) (let () (declare (not safe)) - (gxc#verbose '"declare-type " _%sym149603%_ '" " _%type149604%_)) - (let ((_%table149607%_ - (if _%local?149605%_ + (gxc#verbose '"declare-type " _%sym149640%_ '" " _%type149641%_)) + (let ((_%table149644%_ + (if _%local?149642%_ (let () (declare (not safe)) (gxc#current-compile-local-type)) @@ -2978,37 +2978,37 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-put! _%table149607%_ _%sym149603%_ _%type149604%_)))) + (hash-put! _%table149644%_ _%sym149640%_ _%type149641%_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_%sym149612%_ _%type149613%_) - (let ((_%local?149615%_ '#f)) + (lambda (_%sym149649%_ _%type149650%_) + (let ((_%local?149652%_ '#f)) (gxc#optimizer-declare-type!__% - _%sym149612%_ - _%type149613%_ - _%local?149615%_)))) + _%sym149649%_ + _%type149650%_ + _%local?149652%_)))) (define gxc#optimizer-declare-type! - (lambda _g152335_ - (let ((_g152334_ (let () (declare (not safe)) (##length _g152335_)))) - (cond ((let () (declare (not safe)) (##fx= _g152334_ 2)) - (apply gxc#optimizer-declare-type!__0 _g152335_)) - ((let () (declare (not safe)) (##fx= _g152334_ 3)) - (apply gxc#optimizer-declare-type!__% _g152335_)) + (lambda _g152372_ + (let ((_g152371_ (let () (declare (not safe)) (##length _g152372_)))) + (cond ((let () (declare (not safe)) (##fx= _g152371_ 2)) + (apply gxc#optimizer-declare-type!__0 _g152372_)) + ((let () (declare (not safe)) (##fx= _g152371_ 3)) + (apply gxc#optimizer-declare-type!__% _g152372_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g152335_)))))) + _g152372_)))))) (define gxc#optimizer-declare-class! - (lambda (_%sym149597%_ _%type149598%_) + (lambda (_%sym149634%_ _%type149635%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149598%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149635%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym149597%_ - _%type149598%_))) - (let ((_%table149600%_ + _%sym149634%_ + _%type149635%_))) + (let ((_%table149637%_ (##structure-ref (let () (declare (not safe)) @@ -3016,28 +3016,28 @@ '2 gxc#optimizer-info::t '#f))) - (let ((__tmp152336 - (let () (declare (not safe)) (struct->list _%type149598%_)))) + (let ((__tmp152373 + (let () (declare (not safe)) (struct->list _%type149635%_)))) (declare (not safe)) - (gxc#verbose '"declare-class " _%sym149597%_ '" " __tmp152336)) + (gxc#verbose '"declare-class " _%sym149634%_ '" " __tmp152373)) (let () (declare (not safe)) - (hash-put! _%table149600%_ _%sym149597%_ _%type149598%_)) + (hash-put! _%table149637%_ _%sym149634%_ _%type149635%_)) (let () (declare (not safe)) - (hash-put! _%table149600%_ _%type149598%_ _%sym149597%_))))) + (hash-put! _%table149637%_ _%type149635%_ _%sym149634%_))))) (define gxc#optimizer-declare-builtin-class! - (lambda (_%sym149592%_ _%type149593%_) + (lambda (_%sym149629%_ _%type149630%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149593%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149630%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym149592%_ - _%type149593%_))) - (let ((_%table149595%_ + _%sym149629%_ + _%type149630%_))) + (let ((_%table149632%_ (##structure-ref (let () (declare (not safe)) @@ -3047,38 +3047,38 @@ '#f))) (if (let () (declare (not safe)) - (hash-get _%table149595%_ _%sym149592%_)) + (hash-get _%table149632%_ _%sym149629%_)) '#!void (begin - (let ((__tmp152337 + (let ((__tmp152374 (let () (declare (not safe)) - (struct->list _%type149593%_)))) + (struct->list _%type149630%_)))) (declare (not safe)) (gxc#verbose '"declare-builtin-class " - _%sym149592%_ + _%sym149629%_ '" " - __tmp152337)) + __tmp152374)) (let () (declare (not safe)) - (hash-put! _%table149595%_ _%sym149592%_ _%type149593%_)) + (hash-put! _%table149632%_ _%sym149629%_ _%type149630%_)) (let () (declare (not safe)) (hash-put! - _%table149595%_ - _%type149593%_ - _%sym149592%_))))))) + _%table149632%_ + _%type149630%_ + _%sym149629%_))))))) (define gxc#optimizer-clear-type! - (lambda (_%sym149590%_) + (lambda (_%sym149627%_) (let () (declare (not safe)) - (gxc#verbose '"clear-type " _%sym149590%_)) - (let ((__tmp152338 + (gxc#verbose '"clear-type " _%sym149627%_)) + (let ((__tmp152375 (let () (declare (not safe)) (gxc#current-compile-local-type)))) (declare (not safe)) - (hash-remove! __tmp152338 _%sym149590%_)) - (let ((__tmp152339 + (hash-remove! __tmp152375 _%sym149627%_)) + (let ((__tmp152376 (##structure-ref (let () (declare (not safe)) @@ -3087,13 +3087,13 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-remove! __tmp152339 _%sym149590%_)))) + (hash-remove! __tmp152376 _%sym149627%_)))) (define gxc#optimizer-declare-method!__% - (lambda (_%type-t149558%_ - _%method149559%_ - _%sym149560%_ - _%rebind?149561%_) - (let ((__tmp152340 + (lambda (_%type-t149595%_ + _%method149596%_ + _%sym149597%_ + _%rebind?149598%_) + (let ((__tmp152377 (##structure-ref (let () (declare (not safe)) @@ -3102,109 +3102,109 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp152340 _%sym149560%_ '#t)) - (let ((_%klass149563%_ (gxc#optimizer-lookup-class _%type-t149558%_))) - (if _%klass149563%_ - (let* ((_%vtab149565%_ (gxc#!class-method-table _%klass149563%_)) - (_%$e149567%_ + (hash-put! __tmp152377 _%sym149597%_ '#t)) + (let ((_%klass149600%_ (gxc#optimizer-lookup-class _%type-t149595%_))) + (if _%klass149600%_ + (let* ((_%vtab149602%_ (gxc#!class-method-table _%klass149600%_)) + (_%$e149604%_ (let () (declare (not safe)) - (hash-get _%vtab149565%_ _%method149559%_)))) - (if _%$e149567%_ - ((lambda (_%existing149570%_) - (if _%rebind?149561%_ + (hash-get _%vtab149602%_ _%method149596%_)))) + (if _%$e149604%_ + ((lambda (_%existing149607%_) + (if _%rebind?149598%_ (let () (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _%type-t149558%_ + _%type-t149595%_ '" " - _%method149559%_)) + _%method149596%_)) (let () (declare (not safe)) (hash-put! - _%vtab149565%_ - _%method149559%_ - _%sym149560%_))) - (if (eq? _%existing149570%_ _%sym149560%_) + _%vtab149602%_ + _%method149596%_ + _%sym149597%_))) + (if (eq? _%existing149607%_ _%sym149597%_) '#!void - (let ((__tmp152341 + (let ((__tmp152378 (cons 'bind-method! - (cons _%type-t149558%_ - (cons _%method149559%_ - (cons _%sym149560%_ + (cons _%type-t149595%_ + (cons _%method149596%_ + (cons _%sym149597%_ '())))))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp152341 - _%method149559%_))))) - _%$e149567%_) + __tmp152378 + _%method149596%_))))) + _%$e149604%_) (let () (let () (declare (not safe)) (gxc#verbose '"declare-method " - _%type-t149558%_ + _%type-t149595%_ '" " - _%method149559%_ + _%method149596%_ '" => " - _%sym149560%_)) + _%sym149597%_)) (let () (declare (not safe)) (hash-put! - _%vtab149565%_ - _%method149559%_ - _%sym149560%_))))) + _%vtab149602%_ + _%method149596%_ + _%sym149597%_))))) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown class" - _%type-t149558%_)))))) + _%type-t149595%_)))))) (define gxc#optimizer-declare-method!__0 - (lambda (_%type-t149579%_ _%method149580%_ _%sym149581%_) - (let ((_%rebind?149583%_ '#f)) + (lambda (_%type-t149616%_ _%method149617%_ _%sym149618%_) + (let ((_%rebind?149620%_ '#f)) (gxc#optimizer-declare-method!__% - _%type-t149579%_ - _%method149580%_ - _%sym149581%_ - _%rebind?149583%_)))) + _%type-t149616%_ + _%method149617%_ + _%sym149618%_ + _%rebind?149620%_)))) (define gxc#optimizer-declare-method! - (lambda _g152343_ - (let ((_g152342_ (let () (declare (not safe)) (##length _g152343_)))) - (cond ((let () (declare (not safe)) (##fx= _g152342_ 3)) - (apply gxc#optimizer-declare-method!__0 _g152343_)) - ((let () (declare (not safe)) (##fx= _g152342_ 4)) - (apply gxc#optimizer-declare-method!__% _g152343_)) + (lambda _g152380_ + (let ((_g152379_ (let () (declare (not safe)) (##length _g152380_)))) + (cond ((let () (declare (not safe)) (##fx= _g152379_ 3)) + (apply gxc#optimizer-declare-method!__0 _g152380_)) + ((let () (declare (not safe)) (##fx= _g152379_ 4)) + (apply gxc#optimizer-declare-method!__% _g152380_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g152343_)))))) + _g152380_)))))) (define gxc#optimizer-lookup-type - (lambda (_%sym149543%_) - (let ((_%$e149545%_ - (let ((__tmp152344 + (lambda (_%sym149580%_) + (let ((_%$e149582%_ + (let ((__tmp152381 (let () (declare (not safe)) (gxc#current-compile-path-type)))) (declare (not safe)) - (agetq__0 _%sym149543%_ __tmp152344)))) - (if _%$e149545%_ - _%$e149545%_ - (let ((_%$e149554%_ - (let ((_%ht149547149549%_ + (agetq__0 _%sym149580%_ __tmp152381)))) + (if _%$e149582%_ + _%$e149582%_ + (let ((_%$e149591%_ + (let ((_%ht149584149586%_ (let () (declare (not safe)) (gxc#current-compile-local-type)))) - (if _%ht149547149549%_ - (let ((_%ht149552%_ _%ht149547149549%_)) + (if _%ht149584149586%_ + (let ((_%ht149589%_ _%ht149584149586%_)) (declare (not safe)) - (hash-get _%ht149552%_ _%sym149543%_)) + (hash-get _%ht149589%_ _%sym149580%_)) '#f)))) - (if _%$e149554%_ - _%$e149554%_ - (let ((__tmp152345 + (if _%$e149591%_ + _%$e149591%_ + (let ((__tmp152382 (##structure-ref (let () (declare (not safe)) @@ -3213,24 +3213,24 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152345 _%sym149543%_)))))))) + (hash-get __tmp152382 _%sym149580%_)))))))) (define gxc#optimizer-resolve-type - (lambda (_%sym149535%_) - (let ((_%type149536149538%_ (gxc#optimizer-lookup-type _%sym149535%_))) - (if _%type149536149538%_ - (let ((_%type149541%_ _%type149536149538%_)) + (lambda (_%sym149572%_) + (let ((_%type149573149575%_ (gxc#optimizer-lookup-type _%sym149572%_))) + (if _%type149573149575%_ + (let ((_%type149578%_ _%type149573149575%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149541%_ 'gxc#!alias::t)) + (##structure-instance-of? _%type149578%_ 'gxc#!alias::t)) (gxc#optimizer-resolve-type (let () (declare (not safe)) - (##unchecked-structure-ref _%type149541%_ '1 '#f '#f))) - _%type149541%_)) + (##unchecked-structure-ref _%type149578%_ '1 '#f '#f))) + _%type149578%_)) '#f)))) (define gxc#optimizer-lookup-class - (lambda (_%sym149531%_) - (let ((_%table149533%_ + (lambda (_%sym149568%_) + (let ((_%table149570%_ (##structure-ref (let () (declare (not safe)) @@ -3239,34 +3239,34 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get _%table149533%_ _%sym149531%_)))) + (hash-get _%table149570%_ _%sym149568%_)))) (define gxc#optimizer-resolve-class - (lambda (_%where149516%_ _%sym149517%_) - (let ((_%$e149520%_ (gxc#optimizer-lookup-class _%sym149517%_))) - (if _%$e149520%_ - ((lambda (_%g149522149524%_) - (let ((_%val149527%_ _%g149522149524%_)) + (lambda (_%where149553%_ _%sym149554%_) + (let ((_%$e149557%_ (gxc#optimizer-lookup-class _%sym149554%_))) + (if _%$e149557%_ + ((lambda (_%g149559149561%_) + (let ((_%val149564%_ _%g149559149561%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%val149527%_ + _%val149564%_ 'gxc#!class::t)) - _%val149527%_ + _%val149564%_ (let () (declare (not safe)) - (error '"bad cast" gxc#!class::t _%val149527%_))))) - _%$e149520%_) + (error '"bad cast" gxc#!class::t _%val149564%_))))) + _%$e149557%_) (let () (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _%where149516%_ - _%sym149517%_)) + _%where149553%_ + _%sym149554%_)) '#!void))))) (define gxc#optimizer-lookup-class-name - (lambda (_%klass149514%_) - (let ((__tmp152346 + (lambda (_%klass149551%_) + (let ((__tmp152383 (##structure-ref (let () (declare (not safe)) @@ -3275,15 +3275,15 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152346 _%klass149514%_)))) + (hash-get __tmp152383 _%klass149551%_)))) (define gxc#optimizer-lookup-method - (lambda (_%type-t149511%_ _%method149512%_) + (lambda (_%type-t149548%_ _%method149549%_) (gxc#!class-lookup-method - (gxc#optimizer-resolve-class 'lookup-method _%type-t149511%_) - _%method149512%_))) + (gxc#optimizer-resolve-class 'lookup-method _%type-t149548%_) + _%method149549%_))) (define gxc#optimizer-top-level-method? - (lambda (_%sym149509%_) - (let ((__tmp152347 + (lambda (_%sym149546%_) + (let ((__tmp152384 (##structure-ref (let () (declare (not safe)) @@ -3292,59 +3292,59 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152347 _%sym149509%_)))) + (hash-get __tmp152384 _%sym149546%_)))) (define gxc#optimizer-current-types (lambda () - (letrec ((_%type-e149391%_ - (lambda (_%t149492%_) - (if (symbol? _%t149492%_) - (_%type-e149391%_ - (gxc#optimizer-lookup-type _%t149492%_)) + (letrec ((_%type-e149428%_ + (lambda (_%t149529%_) + (if (symbol? _%t149529%_) + (_%type-e149428%_ + (gxc#optimizer-lookup-type _%t149529%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149492%_ + _%t149529%_ 'gxc#!lambda::t)) - (_%__lambda-type149393%_ _%t149492%_) + (_%__lambda-type149430%_ _%t149529%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149492%_ + _%t149529%_ 'gxc#!kw-lambda::t)) - (_%__kw-lambda-type149395%_ _%t149492%_) + (_%__kw-lambda-type149432%_ _%t149529%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149492%_ + _%t149529%_ 'gxc#!kw-lambda-primary::t)) - (_%__kw-lambda-primary-type149397%_ - _%t149492%_) + (_%__kw-lambda-primary-type149434%_ + _%t149529%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149492%_ + _%t149529%_ 'gxc#!procedure::t)) (cons 'procedure - (let ((_%t149499%_ _%t149492%_)) + (let ((_%t149536%_ _%t149529%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t149499%_ + _%t149536%_ '2 '#f '#f)) - (let ((__tmp152348 + (let ((__tmp152385 (let () (declare (not safe)) (##unchecked-structure-ref - _%t149499%_ + _%t149536%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp152348 + __tmp152385 '1 '#f '#f)) @@ -3352,31 +3352,31 @@ (if (let () (declare (not safe)) (##structure-instance-of? - _%t149492%_ + _%t149529%_ 'gxc#!type::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%t149492%_ + _%t149529%_ '1 '#f '#f)) '#f)))))))) - (_%lambda-type149392%_ - (lambda (_%t149480%_) - (let ((_%t149483%_ _%t149480%_)) - (_%__lambda-type149393%_ _%t149483%_)))) - (_%__lambda-type149393%_ - (lambda (_%t149468%_) - (let ((_%t149471%_ _%t149468%_)) + (_%lambda-type149429%_ + (lambda (_%t149517%_) + (let ((_%t149520%_ _%t149517%_)) + (_%__lambda-type149430%_ _%t149520%_)))) + (_%__lambda-type149430%_ + (lambda (_%t149505%_) + (let ((_%t149508%_ _%t149505%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%t149471%_ '4 '#f '#f)) - (_%type-e149391%_ + (##unchecked-structure-ref _%t149508%_ '4 '#f '#f)) + (_%type-e149428%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149471%_ + _%t149508%_ '4 '#f '#f))) @@ -3384,56 +3384,56 @@ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t149471%_ + _%t149508%_ '2 '#f '#f)) - (let ((__tmp152349 + (let ((__tmp152386 (let () (declare (not safe)) (##unchecked-structure-ref - _%t149471%_ + _%t149508%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp152349 + __tmp152386 '1 '#f '#f)) '#f)))))) - (_%kw-lambda-type149394%_ - (lambda (_%t149456%_) - (let ((_%t149459%_ _%t149456%_)) - (_%__kw-lambda-type149395%_ _%t149459%_)))) - (_%__kw-lambda-type149395%_ - (lambda (_%t149444%_) - (let ((_%t149447%_ _%t149444%_)) - (_%type-e149391%_ + (_%kw-lambda-type149431%_ + (lambda (_%t149493%_) + (let ((_%t149496%_ _%t149493%_)) + (_%__kw-lambda-type149432%_ _%t149496%_)))) + (_%__kw-lambda-type149432%_ + (lambda (_%t149481%_) + (let ((_%t149484%_ _%t149481%_)) + (_%type-e149428%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149447%_ + _%t149484%_ '4 '#f '#f)))))) - (_%kw-lambda-primary-type149396%_ - (lambda (_%t149432%_) - (let ((_%t149435%_ _%t149432%_)) - (_%__kw-lambda-primary-type149397%_ _%t149435%_)))) - (_%__kw-lambda-primary-type149397%_ - (lambda (_%t149418%_) - (let ((_%t149421%_ _%t149418%_)) - (_%type-e149391%_ + (_%kw-lambda-primary-type149433%_ + (lambda (_%t149469%_) + (let ((_%t149472%_ _%t149469%_)) + (_%__kw-lambda-primary-type149434%_ _%t149472%_)))) + (_%__kw-lambda-primary-type149434%_ + (lambda (_%t149455%_) + (let ((_%t149458%_ _%t149455%_)) + (_%type-e149428%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149421%_ + _%t149458%_ '4 '#f '#f))))))) - (let* ((_%ht1149399%_ + (let* ((_%ht1149436%_ (##structure-ref (let () (declare (not safe)) @@ -3441,33 +3441,33 @@ '1 gxc#optimizer-info::t '#f)) - (_%ht2149401%_ + (_%ht2149438%_ (let () (declare (not safe)) (gxc#current-compile-local-type))) - (_%result149403%_ - (if _%ht1149399%_ - (let () (declare (not safe)) (hash->list _%ht1149399%_)) + (_%result149440%_ + (if _%ht1149436%_ + (let () (declare (not safe)) (hash->list _%ht1149436%_)) '())) - (_%result149405%_ - (if _%ht2149401%_ - (let ((__tmp152350 + (_%result149442%_ + (if _%ht2149438%_ + (let ((__tmp152387 (let () (declare (not safe)) - (hash->list _%ht2149401%_)))) + (hash->list _%ht2149438%_)))) (declare (not safe)) - (__foldl1 cons _%result149403%_ __tmp152350)) - _%result149403%_))) + (__foldl1 cons _%result149440%_ __tmp152387)) + _%result149440%_))) (for-each - (lambda (_%p149408%_) - (let* ((_%t149410%_ (cdr _%p149408%_)) - (_%tr149412%_ (_%type-e149391%_ _%t149410%_))) - (set-cdr! _%p149408%_ _%tr149412%_))) - _%result149405%_) + (lambda (_%p149445%_) + (let* ((_%t149447%_ (cdr _%p149445%_)) + (_%tr149449%_ (_%type-e149428%_ _%t149447%_))) + (set-cdr! _%p149445%_ _%tr149449%_))) + _%result149442%_) (list-sort - (lambda (_%a149415%_ _%b149416%_) - (let ((__tmp152352 (symbol->string (car _%a149415%_))) - (__tmp152351 (symbol->string (car _%b149416%_)))) + (lambda (_%a149452%_ _%b149453%_) + (let ((__tmp152389 (symbol->string (car _%a149452%_))) + (__tmp152388 (symbol->string (car _%b149453%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152243 __tmp152502 '15 '#f '#f)) - (let ((__tmp152514 - (cons (cons 'super |gxc[1]#_g152515_|) - (cons (cons 'precedence-list |gxc[1]#_g152516_|) - (cons (cons 'slots |gxc[1]#_g152517_|) - (cons (cons 'fields |gxc[1]#_g152518_|) + (##unchecked-structure-set! __obj152280 __tmp152539 '15 '#f '#f)) + (let ((__tmp152551 + (cons (cons 'super |gxc[1]#_g152552_|) + (cons (cons 'precedence-list |gxc[1]#_g152553_|) + (cons (cons 'slots |gxc[1]#_g152554_|) + (cons (cons 'fields |gxc[1]#_g152555_|) (cons (cons 'constructor - |gxc[1]#_g152519_|) + |gxc[1]#_g152556_|) (cons (cons 'struct? - |gxc[1]#_g152520_|) + |gxc[1]#_g152557_|) (cons (cons 'final? - |gxc[1]#_g152521_|) + |gxc[1]#_g152558_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152522_|) - (cons (cons 'metaclass |gxc[1]#_g152523_|) - (cons (cons 'methods |gxc[1]#_g152524_|) - (cons (cons 'id |gxc[1]#_g152525_|) + |gxc[1]#_g152559_|) + (cons (cons 'metaclass |gxc[1]#_g152560_|) + (cons (cons 'methods |gxc[1]#_g152561_|) + (cons (cons 'id |gxc[1]#_g152562_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152243 __tmp152514 '16 '#f '#f)) - (let ((__tmp152526 - (cons (cons 'super |gxc[1]#_g152527_|) - (cons (cons 'precedence-list |gxc[1]#_g152528_|) - (cons (cons 'slots |gxc[1]#_g152529_|) - (cons (cons 'fields |gxc[1]#_g152530_|) + (##unchecked-structure-set! __obj152280 __tmp152551 '16 '#f '#f)) + (let ((__tmp152563 + (cons (cons 'super |gxc[1]#_g152564_|) + (cons (cons 'precedence-list |gxc[1]#_g152565_|) + (cons (cons 'slots |gxc[1]#_g152566_|) + (cons (cons 'fields |gxc[1]#_g152567_|) (cons (cons 'constructor - |gxc[1]#_g152531_|) + |gxc[1]#_g152568_|) (cons (cons 'struct? - |gxc[1]#_g152532_|) + |gxc[1]#_g152569_|) (cons (cons 'final? - |gxc[1]#_g152533_|) + |gxc[1]#_g152570_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152534_|) - (cons (cons 'metaclass |gxc[1]#_g152535_|) - (cons (cons 'methods |gxc[1]#_g152536_|) - (cons (cons 'id |gxc[1]#_g152537_|) + |gxc[1]#_g152571_|) + (cons (cons 'metaclass |gxc[1]#_g152572_|) + (cons (cons 'methods |gxc[1]#_g152573_|) + (cons (cons 'id |gxc[1]#_g152574_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152243 __tmp152526 '17 '#f '#f)) - (let ((__tmp152538 - (cons (cons 'super |gxc[1]#_g152539_|) - (cons (cons 'precedence-list |gxc[1]#_g152540_|) - (cons (cons 'slots |gxc[1]#_g152541_|) - (cons (cons 'fields |gxc[1]#_g152542_|) + (##unchecked-structure-set! __obj152280 __tmp152563 '17 '#f '#f)) + (let ((__tmp152575 + (cons (cons 'super |gxc[1]#_g152576_|) + (cons (cons 'precedence-list |gxc[1]#_g152577_|) + (cons (cons 'slots |gxc[1]#_g152578_|) + (cons (cons 'fields |gxc[1]#_g152579_|) (cons (cons 'constructor - |gxc[1]#_g152543_|) + |gxc[1]#_g152580_|) (cons (cons 'struct? - |gxc[1]#_g152544_|) + |gxc[1]#_g152581_|) (cons (cons 'final? - |gxc[1]#_g152545_|) + |gxc[1]#_g152582_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152546_|) - (cons (cons 'metaclass |gxc[1]#_g152547_|) - (cons (cons 'methods |gxc[1]#_g152548_|) - (cons (cons 'id |gxc[1]#_g152549_|) + |gxc[1]#_g152583_|) + (cons (cons 'metaclass |gxc[1]#_g152584_|) + (cons (cons 'methods |gxc[1]#_g152585_|) + (cons (cons 'id |gxc[1]#_g152586_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152243 __tmp152538 '18 '#f '#f)) + (##unchecked-structure-set! __obj152280 __tmp152575 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152243 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152280 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152243 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152280 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152243 '() '20 '#f '#f)) - __obj152243)) + (##unchecked-structure-set! __obj152280 '() '20 '#f '#f)) + __obj152280)) (define |gxc[:0:]#!predicate| - (let ((__obj152244 + (let ((__obj152281 (let () (declare (not safe)) (##structure @@ -3325,76 +3325,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152244 + __obj152281 'gxc#!predicate::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152244 '!predicate '2 '#f '#f)) + (##unchecked-structure-set! __obj152281 '!predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152244 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152281 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152244 '(id signature) '6 '#f '#f)) - (let ((__tmp152550 (cons |gxc[1]#_g152551_| '()))) + (##unchecked-structure-set! __obj152281 '(id signature) '6 '#f '#f)) + (let ((__tmp152587 (cons |gxc[1]#_g152588_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152244 __tmp152550 '3 '#f '#f)) + (##unchecked-structure-set! __obj152281 __tmp152587 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152244 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152281 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152244 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152281 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152244 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152281 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152244 ':init! '11 '#f '#f)) - (let ((__tmp152552 |gxc[1]#_g152553_|)) + (##unchecked-structure-set! __obj152281 ':init! '11 '#f '#f)) + (let ((__tmp152589 |gxc[1]#_g152590_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152244 __tmp152552 '12 '#f '#f)) - (let ((__tmp152554 |gxc[1]#_g152555_|)) + (##unchecked-structure-set! __obj152281 __tmp152589 '12 '#f '#f)) + (let ((__tmp152591 |gxc[1]#_g152592_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152244 __tmp152554 '13 '#f '#f)) - (let ((__tmp152556 |gxc[1]#_g152557_|)) + (##unchecked-structure-set! __obj152281 __tmp152591 '13 '#f '#f)) + (let ((__tmp152593 |gxc[1]#_g152594_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152244 __tmp152556 '14 '#f '#f)) - (let ((__tmp152558 - (cons (cons 'signature |gxc[1]#_g152559_|) - (cons (cons 'id |gxc[1]#_g152560_|) '())))) + (##unchecked-structure-set! __obj152281 __tmp152593 '14 '#f '#f)) + (let ((__tmp152595 + (cons (cons 'signature |gxc[1]#_g152596_|) + (cons (cons 'id |gxc[1]#_g152597_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152244 __tmp152558 '15 '#f '#f)) - (let ((__tmp152561 - (cons (cons 'signature |gxc[1]#_g152562_|) - (cons (cons 'id |gxc[1]#_g152563_|) '())))) + (##unchecked-structure-set! __obj152281 __tmp152595 '15 '#f '#f)) + (let ((__tmp152598 + (cons (cons 'signature |gxc[1]#_g152599_|) + (cons (cons 'id |gxc[1]#_g152600_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152244 __tmp152561 '16 '#f '#f)) - (let ((__tmp152564 - (cons (cons 'signature |gxc[1]#_g152565_|) - (cons (cons 'id |gxc[1]#_g152566_|) '())))) + (##unchecked-structure-set! __obj152281 __tmp152598 '16 '#f '#f)) + (let ((__tmp152601 + (cons (cons 'signature |gxc[1]#_g152602_|) + (cons (cons 'id |gxc[1]#_g152603_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152244 __tmp152564 '17 '#f '#f)) - (let ((__tmp152567 - (cons (cons 'signature |gxc[1]#_g152568_|) - (cons (cons 'id |gxc[1]#_g152569_|) '())))) + (##unchecked-structure-set! __obj152281 __tmp152601 '17 '#f '#f)) + (let ((__tmp152604 + (cons (cons 'signature |gxc[1]#_g152605_|) + (cons (cons 'id |gxc[1]#_g152606_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152244 __tmp152567 '18 '#f '#f)) - (let ((__tmp152570 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (##unchecked-structure-set! __obj152281 __tmp152604 '18 '#f '#f)) + (let ((__tmp152607 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152244 __tmp152570 '19 '#f '#f)) + (##unchecked-structure-set! __obj152281 __tmp152607 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152244 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152281 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152244 '() '20 '#f '#f)) - __obj152244)) + (##unchecked-structure-set! __obj152281 '() '20 '#f '#f)) + __obj152281)) (define |gxc[:0:]#!constructor| - (let ((__obj152245 + (let ((__obj152282 (let () (declare (not safe)) (##structure @@ -3423,76 +3423,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152245 + __obj152282 'gxc#!constructor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152245 '!constructor '2 '#f '#f)) + (##unchecked-structure-set! __obj152282 '!constructor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152245 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152282 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152245 '(id signature) '6 '#f '#f)) - (let ((__tmp152571 (cons |gxc[1]#_g152551_| '()))) + (##unchecked-structure-set! __obj152282 '(id signature) '6 '#f '#f)) + (let ((__tmp152608 (cons |gxc[1]#_g152588_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152245 __tmp152571 '3 '#f '#f)) + (##unchecked-structure-set! __obj152282 __tmp152608 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152245 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152282 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152245 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152282 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152245 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152282 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152245 ':init! '11 '#f '#f)) - (let ((__tmp152572 |gxc[1]#_g152573_|)) + (##unchecked-structure-set! __obj152282 ':init! '11 '#f '#f)) + (let ((__tmp152609 |gxc[1]#_g152610_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152245 __tmp152572 '12 '#f '#f)) - (let ((__tmp152574 |gxc[1]#_g152575_|)) + (##unchecked-structure-set! __obj152282 __tmp152609 '12 '#f '#f)) + (let ((__tmp152611 |gxc[1]#_g152612_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152245 __tmp152574 '13 '#f '#f)) - (let ((__tmp152576 |gxc[1]#_g152577_|)) + (##unchecked-structure-set! __obj152282 __tmp152611 '13 '#f '#f)) + (let ((__tmp152613 |gxc[1]#_g152614_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152245 __tmp152576 '14 '#f '#f)) - (let ((__tmp152578 - (cons (cons 'signature |gxc[1]#_g152579_|) - (cons (cons 'id |gxc[1]#_g152580_|) '())))) + (##unchecked-structure-set! __obj152282 __tmp152613 '14 '#f '#f)) + (let ((__tmp152615 + (cons (cons 'signature |gxc[1]#_g152616_|) + (cons (cons 'id |gxc[1]#_g152617_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152245 __tmp152578 '15 '#f '#f)) - (let ((__tmp152581 - (cons (cons 'signature |gxc[1]#_g152582_|) - (cons (cons 'id |gxc[1]#_g152583_|) '())))) + (##unchecked-structure-set! __obj152282 __tmp152615 '15 '#f '#f)) + (let ((__tmp152618 + (cons (cons 'signature |gxc[1]#_g152619_|) + (cons (cons 'id |gxc[1]#_g152620_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152245 __tmp152581 '16 '#f '#f)) - (let ((__tmp152584 - (cons (cons 'signature |gxc[1]#_g152585_|) - (cons (cons 'id |gxc[1]#_g152586_|) '())))) + (##unchecked-structure-set! __obj152282 __tmp152618 '16 '#f '#f)) + (let ((__tmp152621 + (cons (cons 'signature |gxc[1]#_g152622_|) + (cons (cons 'id |gxc[1]#_g152623_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152245 __tmp152584 '17 '#f '#f)) - (let ((__tmp152587 - (cons (cons 'signature |gxc[1]#_g152588_|) - (cons (cons 'id |gxc[1]#_g152589_|) '())))) + (##unchecked-structure-set! __obj152282 __tmp152621 '17 '#f '#f)) + (let ((__tmp152624 + (cons (cons 'signature |gxc[1]#_g152625_|) + (cons (cons 'id |gxc[1]#_g152626_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152245 __tmp152587 '18 '#f '#f)) - (let ((__tmp152590 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (##unchecked-structure-set! __obj152282 __tmp152624 '18 '#f '#f)) + (let ((__tmp152627 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152245 __tmp152590 '19 '#f '#f)) + (##unchecked-structure-set! __obj152282 __tmp152627 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152245 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152282 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152245 '() '20 '#f '#f)) - __obj152245)) + (##unchecked-structure-set! __obj152282 '() '20 '#f '#f)) + __obj152282)) (define |gxc[:0:]#!accessor| - (let ((__obj152246 + (let ((__obj152283 (let () (declare (not safe)) (##structure @@ -3521,89 +3521,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152246 + __obj152283 'gxc#!accessor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152246 '!accessor '2 '#f '#f)) + (##unchecked-structure-set! __obj152283 '!accessor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152246 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj152283 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152246 + __obj152283 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp152591 (cons |gxc[1]#_g152551_| '()))) + (let ((__tmp152628 (cons |gxc[1]#_g152588_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152246 __tmp152591 '3 '#f '#f)) + (##unchecked-structure-set! __obj152283 __tmp152628 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152246 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152283 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152246 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152283 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152246 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152283 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152246 ':init! '11 '#f '#f)) - (let ((__tmp152592 |gxc[1]#_g152593_|)) + (##unchecked-structure-set! __obj152283 ':init! '11 '#f '#f)) + (let ((__tmp152629 |gxc[1]#_g152630_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152246 __tmp152592 '12 '#f '#f)) - (let ((__tmp152594 |gxc[1]#_g152595_|)) + (##unchecked-structure-set! __obj152283 __tmp152629 '12 '#f '#f)) + (let ((__tmp152631 |gxc[1]#_g152632_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152246 __tmp152594 '13 '#f '#f)) - (let ((__tmp152596 |gxc[1]#_g152597_|)) + (##unchecked-structure-set! __obj152283 __tmp152631 '13 '#f '#f)) + (let ((__tmp152633 |gxc[1]#_g152634_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152246 __tmp152596 '14 '#f '#f)) - (let ((__tmp152598 - (cons (cons 'slot |gxc[1]#_g152599_|) - (cons (cons 'checked? |gxc[1]#_g152600_|) - (cons (cons 'signature |gxc[1]#_g152601_|) - (cons (cons 'id |gxc[1]#_g152602_|) '())))))) + (##unchecked-structure-set! __obj152283 __tmp152633 '14 '#f '#f)) + (let ((__tmp152635 + (cons (cons 'slot |gxc[1]#_g152636_|) + (cons (cons 'checked? |gxc[1]#_g152637_|) + (cons (cons 'signature |gxc[1]#_g152638_|) + (cons (cons 'id |gxc[1]#_g152639_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152246 __tmp152598 '15 '#f '#f)) - (let ((__tmp152603 - (cons (cons 'slot |gxc[1]#_g152604_|) - (cons (cons 'checked? |gxc[1]#_g152605_|) - (cons (cons 'signature |gxc[1]#_g152606_|) - (cons (cons 'id |gxc[1]#_g152607_|) '())))))) + (##unchecked-structure-set! __obj152283 __tmp152635 '15 '#f '#f)) + (let ((__tmp152640 + (cons (cons 'slot |gxc[1]#_g152641_|) + (cons (cons 'checked? |gxc[1]#_g152642_|) + (cons (cons 'signature |gxc[1]#_g152643_|) + (cons (cons 'id |gxc[1]#_g152644_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152246 __tmp152603 '16 '#f '#f)) - (let ((__tmp152608 - (cons (cons 'slot |gxc[1]#_g152609_|) - (cons (cons 'checked? |gxc[1]#_g152610_|) - (cons (cons 'signature |gxc[1]#_g152611_|) - (cons (cons 'id |gxc[1]#_g152612_|) '())))))) + (##unchecked-structure-set! __obj152283 __tmp152640 '16 '#f '#f)) + (let ((__tmp152645 + (cons (cons 'slot |gxc[1]#_g152646_|) + (cons (cons 'checked? |gxc[1]#_g152647_|) + (cons (cons 'signature |gxc[1]#_g152648_|) + (cons (cons 'id |gxc[1]#_g152649_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152246 __tmp152608 '17 '#f '#f)) - (let ((__tmp152613 - (cons (cons 'slot |gxc[1]#_g152614_|) - (cons (cons 'checked? |gxc[1]#_g152615_|) - (cons (cons 'signature |gxc[1]#_g152616_|) - (cons (cons 'id |gxc[1]#_g152617_|) '())))))) + (##unchecked-structure-set! __obj152283 __tmp152645 '17 '#f '#f)) + (let ((__tmp152650 + (cons (cons 'slot |gxc[1]#_g152651_|) + (cons (cons 'checked? |gxc[1]#_g152652_|) + (cons (cons 'signature |gxc[1]#_g152653_|) + (cons (cons 'id |gxc[1]#_g152654_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152246 __tmp152613 '18 '#f '#f)) - (let ((__tmp152618 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (##unchecked-structure-set! __obj152283 __tmp152650 '18 '#f '#f)) + (let ((__tmp152655 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152246 __tmp152618 '19 '#f '#f)) + (##unchecked-structure-set! __obj152283 __tmp152655 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152246 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152283 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152246 '() '20 '#f '#f)) - __obj152246)) + (##unchecked-structure-set! __obj152283 '() '20 '#f '#f)) + __obj152283)) (define |gxc[:0:]#!mutator| - (let ((__obj152247 + (let ((__obj152284 (let () (declare (not safe)) (##structure @@ -3631,85 +3631,85 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152247 'gxc#!mutator::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152284 'gxc#!mutator::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152247 '!mutator '2 '#f '#f)) + (##unchecked-structure-set! __obj152284 '!mutator '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152247 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj152284 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152247 + __obj152284 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp152619 (cons |gxc[1]#_g152551_| '()))) + (let ((__tmp152656 (cons |gxc[1]#_g152588_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152247 __tmp152619 '3 '#f '#f)) + (##unchecked-structure-set! __obj152284 __tmp152656 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152247 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152284 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152247 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152284 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152247 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152284 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152247 ':init! '11 '#f '#f)) - (let ((__tmp152620 |gxc[1]#_g152621_|)) - (declare (not safe)) - (##unchecked-structure-set! __obj152247 __tmp152620 '12 '#f '#f)) - (let ((__tmp152622 |gxc[1]#_g152623_|)) + (##unchecked-structure-set! __obj152284 ':init! '11 '#f '#f)) + (let ((__tmp152657 |gxc[1]#_g152658_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152247 __tmp152622 '13 '#f '#f)) - (let ((__tmp152624 |gxc[1]#_g152625_|)) + (##unchecked-structure-set! __obj152284 __tmp152657 '12 '#f '#f)) + (let ((__tmp152659 |gxc[1]#_g152660_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152247 __tmp152624 '14 '#f '#f)) - (let ((__tmp152626 - (cons (cons 'slot |gxc[1]#_g152627_|) - (cons (cons 'checked? |gxc[1]#_g152628_|) - (cons (cons 'signature |gxc[1]#_g152629_|) - (cons (cons 'id |gxc[1]#_g152630_|) '())))))) + (##unchecked-structure-set! __obj152284 __tmp152659 '13 '#f '#f)) + (let ((__tmp152661 |gxc[1]#_g152662_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152247 __tmp152626 '15 '#f '#f)) - (let ((__tmp152631 - (cons (cons 'slot |gxc[1]#_g152632_|) - (cons (cons 'checked? |gxc[1]#_g152633_|) - (cons (cons 'signature |gxc[1]#_g152634_|) - (cons (cons 'id |gxc[1]#_g152635_|) '())))))) - (declare (not safe)) - (##unchecked-structure-set! __obj152247 __tmp152631 '16 '#f '#f)) - (let ((__tmp152636 - (cons (cons 'slot |gxc[1]#_g152637_|) - (cons (cons 'checked? |gxc[1]#_g152638_|) - (cons (cons 'signature |gxc[1]#_g152639_|) - (cons (cons 'id |gxc[1]#_g152640_|) '())))))) + (##unchecked-structure-set! __obj152284 __tmp152661 '14 '#f '#f)) + (let ((__tmp152663 + (cons (cons 'slot |gxc[1]#_g152664_|) + (cons (cons 'checked? |gxc[1]#_g152665_|) + (cons (cons 'signature |gxc[1]#_g152666_|) + (cons (cons 'id |gxc[1]#_g152667_|) '())))))) + (declare (not safe)) + (##unchecked-structure-set! __obj152284 __tmp152663 '15 '#f '#f)) + (let ((__tmp152668 + (cons (cons 'slot |gxc[1]#_g152669_|) + (cons (cons 'checked? |gxc[1]#_g152670_|) + (cons (cons 'signature |gxc[1]#_g152671_|) + (cons (cons 'id |gxc[1]#_g152672_|) '())))))) + (declare (not safe)) + (##unchecked-structure-set! __obj152284 __tmp152668 '16 '#f '#f)) + (let ((__tmp152673 + (cons (cons 'slot |gxc[1]#_g152674_|) + (cons (cons 'checked? |gxc[1]#_g152675_|) + (cons (cons 'signature |gxc[1]#_g152676_|) + (cons (cons 'id |gxc[1]#_g152677_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152247 __tmp152636 '17 '#f '#f)) - (let ((__tmp152641 - (cons (cons 'slot |gxc[1]#_g152642_|) - (cons (cons 'checked? |gxc[1]#_g152643_|) - (cons (cons 'signature |gxc[1]#_g152644_|) - (cons (cons 'id |gxc[1]#_g152645_|) '())))))) + (##unchecked-structure-set! __obj152284 __tmp152673 '17 '#f '#f)) + (let ((__tmp152678 + (cons (cons 'slot |gxc[1]#_g152679_|) + (cons (cons 'checked? |gxc[1]#_g152680_|) + (cons (cons 'signature |gxc[1]#_g152681_|) + (cons (cons 'id |gxc[1]#_g152682_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152247 __tmp152641 '18 '#f '#f)) - (let ((__tmp152646 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (##unchecked-structure-set! __obj152284 __tmp152678 '18 '#f '#f)) + (let ((__tmp152683 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152247 __tmp152646 '19 '#f '#f)) + (##unchecked-structure-set! __obj152284 __tmp152683 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152247 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152284 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152247 '() '20 '#f '#f)) - __obj152247)) + (##unchecked-structure-set! __obj152284 '() '20 '#f '#f)) + __obj152284)) (define |gxc[:0:]#!interface| - (let ((__obj152248 + (let ((__obj152285 (let () (declare (not safe)) (##structure @@ -3738,76 +3738,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152248 + __obj152285 'gxc#!interface::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152248 '!interface '2 '#f '#f)) + (##unchecked-structure-set! __obj152285 '!interface '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152248 '(methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj152285 '(methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152248 '(id methods) '6 '#f '#f)) - (let ((__tmp152647 (cons |gxc[1]#_g152394_| '()))) + (##unchecked-structure-set! __obj152285 '(id methods) '6 '#f '#f)) + (let ((__tmp152684 (cons |gxc[1]#_g152431_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152248 __tmp152647 '3 '#f '#f)) + (##unchecked-structure-set! __obj152285 __tmp152684 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152248 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152285 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152248 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152285 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152248 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152285 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152248 '#f '11 '#f '#f)) - (let ((__tmp152648 |gxc[1]#_g152649_|)) + (##unchecked-structure-set! __obj152285 '#f '11 '#f '#f)) + (let ((__tmp152685 |gxc[1]#_g152686_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152248 __tmp152648 '12 '#f '#f)) - (let ((__tmp152650 |gxc[1]#_g152651_|)) + (##unchecked-structure-set! __obj152285 __tmp152685 '12 '#f '#f)) + (let ((__tmp152687 |gxc[1]#_g152688_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152248 __tmp152650 '13 '#f '#f)) - (let ((__tmp152652 |gxc[1]#_g152653_|)) + (##unchecked-structure-set! __obj152285 __tmp152687 '13 '#f '#f)) + (let ((__tmp152689 |gxc[1]#_g152690_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152248 __tmp152652 '14 '#f '#f)) - (let ((__tmp152654 - (cons (cons 'methods |gxc[1]#_g152655_|) - (cons (cons 'id |gxc[1]#_g152656_|) '())))) + (##unchecked-structure-set! __obj152285 __tmp152689 '14 '#f '#f)) + (let ((__tmp152691 + (cons (cons 'methods |gxc[1]#_g152692_|) + (cons (cons 'id |gxc[1]#_g152693_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152248 __tmp152654 '15 '#f '#f)) - (let ((__tmp152657 - (cons (cons 'methods |gxc[1]#_g152658_|) - (cons (cons 'id |gxc[1]#_g152659_|) '())))) + (##unchecked-structure-set! __obj152285 __tmp152691 '15 '#f '#f)) + (let ((__tmp152694 + (cons (cons 'methods |gxc[1]#_g152695_|) + (cons (cons 'id |gxc[1]#_g152696_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152248 __tmp152657 '16 '#f '#f)) - (let ((__tmp152660 - (cons (cons 'methods |gxc[1]#_g152661_|) - (cons (cons 'id |gxc[1]#_g152662_|) '())))) + (##unchecked-structure-set! __obj152285 __tmp152694 '16 '#f '#f)) + (let ((__tmp152697 + (cons (cons 'methods |gxc[1]#_g152698_|) + (cons (cons 'id |gxc[1]#_g152699_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152248 __tmp152660 '17 '#f '#f)) - (let ((__tmp152663 - (cons (cons 'methods |gxc[1]#_g152664_|) - (cons (cons 'id |gxc[1]#_g152665_|) '())))) + (##unchecked-structure-set! __obj152285 __tmp152697 '17 '#f '#f)) + (let ((__tmp152700 + (cons (cons 'methods |gxc[1]#_g152701_|) + (cons (cons 'id |gxc[1]#_g152702_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152248 __tmp152663 '18 '#f '#f)) + (##unchecked-structure-set! __obj152285 __tmp152700 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152248 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152285 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152248 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152285 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152248 '() '20 '#f '#f)) - __obj152248)) + (##unchecked-structure-set! __obj152285 '() '20 '#f '#f)) + __obj152285)) (define |gxc[:0:]#!lambda| - (let ((__obj152249 + (let ((__obj152286 (let () (declare (not safe)) (##structure @@ -3835,14 +3835,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152249 'gxc#!lambda::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152286 'gxc#!lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152249 '!lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152286 '!lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152249 + __obj152286 '(arity dispatch inline inline-typedecl) '4 '#f @@ -3850,99 +3850,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152249 + __obj152286 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp152666 (cons |gxc[1]#_g152551_| '()))) + (let ((__tmp152703 (cons |gxc[1]#_g152588_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152249 __tmp152666 '3 '#f '#f)) + (##unchecked-structure-set! __obj152286 __tmp152703 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152249 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152286 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152249 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152286 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152249 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152286 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152249 ':init! '11 '#f '#f)) - (let ((__tmp152667 |gxc[1]#_g152668_|)) + (##unchecked-structure-set! __obj152286 ':init! '11 '#f '#f)) + (let ((__tmp152704 |gxc[1]#_g152705_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152249 __tmp152667 '12 '#f '#f)) - (let ((__tmp152669 |gxc[1]#_g152670_|)) + (##unchecked-structure-set! __obj152286 __tmp152704 '12 '#f '#f)) + (let ((__tmp152706 |gxc[1]#_g152707_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152249 __tmp152669 '13 '#f '#f)) - (let ((__tmp152671 |gxc[1]#_g152672_|)) + (##unchecked-structure-set! __obj152286 __tmp152706 '13 '#f '#f)) + (let ((__tmp152708 |gxc[1]#_g152709_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152249 __tmp152671 '14 '#f '#f)) - (let ((__tmp152673 - (cons (cons 'arity |gxc[1]#_g152674_|) - (cons (cons 'dispatch |gxc[1]#_g152675_|) - (cons (cons 'inline |gxc[1]#_g152676_|) + (##unchecked-structure-set! __obj152286 __tmp152708 '14 '#f '#f)) + (let ((__tmp152710 + (cons (cons 'arity |gxc[1]#_g152711_|) + (cons (cons 'dispatch |gxc[1]#_g152712_|) + (cons (cons 'inline |gxc[1]#_g152713_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152677_|) + |gxc[1]#_g152714_|) (cons (cons 'signature - |gxc[1]#_g152678_|) + |gxc[1]#_g152715_|) (cons (cons 'id - |gxc[1]#_g152679_|) + |gxc[1]#_g152716_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152249 __tmp152673 '15 '#f '#f)) - (let ((__tmp152680 - (cons (cons 'arity |gxc[1]#_g152681_|) - (cons (cons 'dispatch |gxc[1]#_g152682_|) - (cons (cons 'inline |gxc[1]#_g152683_|) + (##unchecked-structure-set! __obj152286 __tmp152710 '15 '#f '#f)) + (let ((__tmp152717 + (cons (cons 'arity |gxc[1]#_g152718_|) + (cons (cons 'dispatch |gxc[1]#_g152719_|) + (cons (cons 'inline |gxc[1]#_g152720_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152684_|) + |gxc[1]#_g152721_|) (cons (cons 'signature - |gxc[1]#_g152685_|) + |gxc[1]#_g152722_|) (cons (cons 'id - |gxc[1]#_g152686_|) + |gxc[1]#_g152723_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152249 __tmp152680 '16 '#f '#f)) - (let ((__tmp152687 - (cons (cons 'arity |gxc[1]#_g152688_|) - (cons (cons 'dispatch |gxc[1]#_g152689_|) - (cons (cons 'inline |gxc[1]#_g152690_|) + (##unchecked-structure-set! __obj152286 __tmp152717 '16 '#f '#f)) + (let ((__tmp152724 + (cons (cons 'arity |gxc[1]#_g152725_|) + (cons (cons 'dispatch |gxc[1]#_g152726_|) + (cons (cons 'inline |gxc[1]#_g152727_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152691_|) + |gxc[1]#_g152728_|) (cons (cons 'signature - |gxc[1]#_g152692_|) + |gxc[1]#_g152729_|) (cons (cons 'id - |gxc[1]#_g152693_|) + |gxc[1]#_g152730_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152249 __tmp152687 '17 '#f '#f)) - (let ((__tmp152694 - (cons (cons 'arity |gxc[1]#_g152695_|) - (cons (cons 'dispatch |gxc[1]#_g152696_|) - (cons (cons 'inline |gxc[1]#_g152697_|) + (##unchecked-structure-set! __obj152286 __tmp152724 '17 '#f '#f)) + (let ((__tmp152731 + (cons (cons 'arity |gxc[1]#_g152732_|) + (cons (cons 'dispatch |gxc[1]#_g152733_|) + (cons (cons 'inline |gxc[1]#_g152734_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152698_|) + |gxc[1]#_g152735_|) (cons (cons 'signature - |gxc[1]#_g152699_|) + |gxc[1]#_g152736_|) (cons (cons 'id - |gxc[1]#_g152700_|) + |gxc[1]#_g152737_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152249 __tmp152694 '18 '#f '#f)) - (let ((__tmp152701 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (##unchecked-structure-set! __obj152286 __tmp152731 '18 '#f '#f)) + (let ((__tmp152738 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152249 __tmp152701 '19 '#f '#f)) + (##unchecked-structure-set! __obj152286 __tmp152738 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152249 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152286 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152249 '() '20 '#f '#f)) - __obj152249)) + (##unchecked-structure-set! __obj152286 '() '20 '#f '#f)) + __obj152286)) (define |gxc[:0:]#!case-lambda| - (let ((__obj152250 + (let ((__obj152287 (let () (declare (not safe)) (##structure @@ -3971,85 +3971,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152250 + __obj152287 'gxc#!case-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152250 '!case-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152287 '!case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152250 '(clauses) '4 '#f '#f)) + (##unchecked-structure-set! __obj152287 '(clauses) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152250 + __obj152287 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp152702 (cons |gxc[1]#_g152551_| '()))) + (let ((__tmp152739 (cons |gxc[1]#_g152588_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152250 __tmp152702 '3 '#f '#f)) + (##unchecked-structure-set! __obj152287 __tmp152739 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152250 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152287 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152250 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152287 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152250 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152287 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152250 ':init! '11 '#f '#f)) - (let ((__tmp152703 |gxc[1]#_g152704_|)) + (##unchecked-structure-set! __obj152287 ':init! '11 '#f '#f)) + (let ((__tmp152740 |gxc[1]#_g152741_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152250 __tmp152703 '12 '#f '#f)) - (let ((__tmp152705 |gxc[1]#_g152706_|)) + (##unchecked-structure-set! __obj152287 __tmp152740 '12 '#f '#f)) + (let ((__tmp152742 |gxc[1]#_g152743_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152250 __tmp152705 '13 '#f '#f)) - (let ((__tmp152707 |gxc[1]#_g152708_|)) + (##unchecked-structure-set! __obj152287 __tmp152742 '13 '#f '#f)) + (let ((__tmp152744 |gxc[1]#_g152745_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152250 __tmp152707 '14 '#f '#f)) - (let ((__tmp152709 - (cons (cons 'clauses |gxc[1]#_g152710_|) - (cons (cons 'signature |gxc[1]#_g152711_|) - (cons (cons 'id |gxc[1]#_g152712_|) '()))))) + (##unchecked-structure-set! __obj152287 __tmp152744 '14 '#f '#f)) + (let ((__tmp152746 + (cons (cons 'clauses |gxc[1]#_g152747_|) + (cons (cons 'signature |gxc[1]#_g152748_|) + (cons (cons 'id |gxc[1]#_g152749_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152250 __tmp152709 '15 '#f '#f)) - (let ((__tmp152713 - (cons (cons 'clauses |gxc[1]#_g152714_|) - (cons (cons 'signature |gxc[1]#_g152715_|) - (cons (cons 'id |gxc[1]#_g152716_|) '()))))) + (##unchecked-structure-set! __obj152287 __tmp152746 '15 '#f '#f)) + (let ((__tmp152750 + (cons (cons 'clauses |gxc[1]#_g152751_|) + (cons (cons 'signature |gxc[1]#_g152752_|) + (cons (cons 'id |gxc[1]#_g152753_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152250 __tmp152713 '16 '#f '#f)) - (let ((__tmp152717 - (cons (cons 'clauses |gxc[1]#_g152718_|) - (cons (cons 'signature |gxc[1]#_g152719_|) - (cons (cons 'id |gxc[1]#_g152720_|) '()))))) + (##unchecked-structure-set! __obj152287 __tmp152750 '16 '#f '#f)) + (let ((__tmp152754 + (cons (cons 'clauses |gxc[1]#_g152755_|) + (cons (cons 'signature |gxc[1]#_g152756_|) + (cons (cons 'id |gxc[1]#_g152757_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152250 __tmp152717 '17 '#f '#f)) - (let ((__tmp152721 - (cons (cons 'clauses |gxc[1]#_g152722_|) - (cons (cons 'signature |gxc[1]#_g152723_|) - (cons (cons 'id |gxc[1]#_g152724_|) '()))))) + (##unchecked-structure-set! __obj152287 __tmp152754 '17 '#f '#f)) + (let ((__tmp152758 + (cons (cons 'clauses |gxc[1]#_g152759_|) + (cons (cons 'signature |gxc[1]#_g152760_|) + (cons (cons 'id |gxc[1]#_g152761_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152250 __tmp152721 '18 '#f '#f)) - (let ((__tmp152725 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (##unchecked-structure-set! __obj152287 __tmp152758 '18 '#f '#f)) + (let ((__tmp152762 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152250 __tmp152725 '19 '#f '#f)) + (##unchecked-structure-set! __obj152287 __tmp152762 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152250 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152287 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152250 '() '20 '#f '#f)) - __obj152250)) + (##unchecked-structure-set! __obj152287 '() '20 '#f '#f)) + __obj152287)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj152251 + (let ((__obj152288 (let () (declare (not safe)) (##structure @@ -4078,18 +4078,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152251 + __obj152288 'gxc#!kw-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152251 '!kw-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152288 '!kw-lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152251 + __obj152288 '(table dispatch) '4 '#f @@ -4097,75 +4097,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152251 + __obj152288 '(id signature table dispatch) '6 '#f '#f)) - (let ((__tmp152726 (cons |gxc[1]#_g152551_| '()))) + (let ((__tmp152763 (cons |gxc[1]#_g152588_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152251 __tmp152726 '3 '#f '#f)) + (##unchecked-structure-set! __obj152288 __tmp152763 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152251 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152288 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152251 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152288 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152251 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152288 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152251 ':init! '11 '#f '#f)) - (let ((__tmp152727 |gxc[1]#_g152728_|)) + (##unchecked-structure-set! __obj152288 ':init! '11 '#f '#f)) + (let ((__tmp152764 |gxc[1]#_g152765_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152251 __tmp152727 '12 '#f '#f)) - (let ((__tmp152729 |gxc[1]#_g152730_|)) + (##unchecked-structure-set! __obj152288 __tmp152764 '12 '#f '#f)) + (let ((__tmp152766 |gxc[1]#_g152767_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152251 __tmp152729 '13 '#f '#f)) - (let ((__tmp152731 |gxc[1]#_g152732_|)) + (##unchecked-structure-set! __obj152288 __tmp152766 '13 '#f '#f)) + (let ((__tmp152768 |gxc[1]#_g152769_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152251 __tmp152731 '14 '#f '#f)) - (let ((__tmp152733 - (cons (cons 'table |gxc[1]#_g152734_|) - (cons (cons 'dispatch |gxc[1]#_g152735_|) - (cons (cons 'signature |gxc[1]#_g152736_|) - (cons (cons 'id |gxc[1]#_g152737_|) '())))))) + (##unchecked-structure-set! __obj152288 __tmp152768 '14 '#f '#f)) + (let ((__tmp152770 + (cons (cons 'table |gxc[1]#_g152771_|) + (cons (cons 'dispatch |gxc[1]#_g152772_|) + (cons (cons 'signature |gxc[1]#_g152773_|) + (cons (cons 'id |gxc[1]#_g152774_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152251 __tmp152733 '15 '#f '#f)) - (let ((__tmp152738 - (cons (cons 'table |gxc[1]#_g152739_|) - (cons (cons 'dispatch |gxc[1]#_g152740_|) - (cons (cons 'signature |gxc[1]#_g152741_|) - (cons (cons 'id |gxc[1]#_g152742_|) '())))))) + (##unchecked-structure-set! __obj152288 __tmp152770 '15 '#f '#f)) + (let ((__tmp152775 + (cons (cons 'table |gxc[1]#_g152776_|) + (cons (cons 'dispatch |gxc[1]#_g152777_|) + (cons (cons 'signature |gxc[1]#_g152778_|) + (cons (cons 'id |gxc[1]#_g152779_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152251 __tmp152738 '16 '#f '#f)) - (let ((__tmp152743 - (cons (cons 'table |gxc[1]#_g152744_|) - (cons (cons 'dispatch |gxc[1]#_g152745_|) - (cons (cons 'signature |gxc[1]#_g152746_|) - (cons (cons 'id |gxc[1]#_g152747_|) '())))))) + (##unchecked-structure-set! __obj152288 __tmp152775 '16 '#f '#f)) + (let ((__tmp152780 + (cons (cons 'table |gxc[1]#_g152781_|) + (cons (cons 'dispatch |gxc[1]#_g152782_|) + (cons (cons 'signature |gxc[1]#_g152783_|) + (cons (cons 'id |gxc[1]#_g152784_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152251 __tmp152743 '17 '#f '#f)) - (let ((__tmp152748 - (cons (cons 'table |gxc[1]#_g152749_|) - (cons (cons 'dispatch |gxc[1]#_g152750_|) - (cons (cons 'signature |gxc[1]#_g152751_|) - (cons (cons 'id |gxc[1]#_g152752_|) '())))))) + (##unchecked-structure-set! __obj152288 __tmp152780 '17 '#f '#f)) + (let ((__tmp152785 + (cons (cons 'table |gxc[1]#_g152786_|) + (cons (cons 'dispatch |gxc[1]#_g152787_|) + (cons (cons 'signature |gxc[1]#_g152788_|) + (cons (cons 'id |gxc[1]#_g152789_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152251 __tmp152748 '18 '#f '#f)) - (let ((__tmp152753 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (##unchecked-structure-set! __obj152288 __tmp152785 '18 '#f '#f)) + (let ((__tmp152790 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152251 __tmp152753 '19 '#f '#f)) + (##unchecked-structure-set! __obj152288 __tmp152790 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152251 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152288 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152251 '() '20 '#f '#f)) - __obj152251)) + (##unchecked-structure-set! __obj152288 '() '20 '#f '#f)) + __obj152288)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj152252 + (let ((__obj152289 (let () (declare (not safe)) (##structure @@ -4194,7 +4194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152252 + __obj152289 'gxc#!kw-lambda-primary::t '1 '#f @@ -4202,86 +4202,86 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152252 + __obj152289 '!kw-lambda-primary '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152252 '(keys main) '4 '#f '#f)) + (##unchecked-structure-set! __obj152289 '(keys main) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152252 + __obj152289 '(id signature keys main) '6 '#f '#f)) - (let ((__tmp152754 (cons |gxc[1]#_g152551_| '()))) + (let ((__tmp152791 (cons |gxc[1]#_g152588_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152252 __tmp152754 '3 '#f '#f)) + (##unchecked-structure-set! __obj152289 __tmp152791 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152252 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152289 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152252 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152289 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152252 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152289 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152252 ':init! '11 '#f '#f)) - (let ((__tmp152755 |gxc[1]#_g152756_|)) + (##unchecked-structure-set! __obj152289 ':init! '11 '#f '#f)) + (let ((__tmp152792 |gxc[1]#_g152793_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152252 __tmp152755 '12 '#f '#f)) - (let ((__tmp152757 |gxc[1]#_g152758_|)) + (##unchecked-structure-set! __obj152289 __tmp152792 '12 '#f '#f)) + (let ((__tmp152794 |gxc[1]#_g152795_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152252 __tmp152757 '13 '#f '#f)) - (let ((__tmp152759 |gxc[1]#_g152760_|)) + (##unchecked-structure-set! __obj152289 __tmp152794 '13 '#f '#f)) + (let ((__tmp152796 |gxc[1]#_g152797_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152252 __tmp152759 '14 '#f '#f)) - (let ((__tmp152761 - (cons (cons 'keys |gxc[1]#_g152762_|) - (cons (cons 'main |gxc[1]#_g152763_|) - (cons (cons 'signature |gxc[1]#_g152764_|) - (cons (cons 'id |gxc[1]#_g152765_|) '())))))) + (##unchecked-structure-set! __obj152289 __tmp152796 '14 '#f '#f)) + (let ((__tmp152798 + (cons (cons 'keys |gxc[1]#_g152799_|) + (cons (cons 'main |gxc[1]#_g152800_|) + (cons (cons 'signature |gxc[1]#_g152801_|) + (cons (cons 'id |gxc[1]#_g152802_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152252 __tmp152761 '15 '#f '#f)) - (let ((__tmp152766 - (cons (cons 'keys |gxc[1]#_g152767_|) - (cons (cons 'main |gxc[1]#_g152768_|) - (cons (cons 'signature |gxc[1]#_g152769_|) - (cons (cons 'id |gxc[1]#_g152770_|) '())))))) + (##unchecked-structure-set! __obj152289 __tmp152798 '15 '#f '#f)) + (let ((__tmp152803 + (cons (cons 'keys |gxc[1]#_g152804_|) + (cons (cons 'main |gxc[1]#_g152805_|) + (cons (cons 'signature |gxc[1]#_g152806_|) + (cons (cons 'id |gxc[1]#_g152807_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152252 __tmp152766 '16 '#f '#f)) - (let ((__tmp152771 - (cons (cons 'keys |gxc[1]#_g152772_|) - (cons (cons 'main |gxc[1]#_g152773_|) - (cons (cons 'signature |gxc[1]#_g152774_|) - (cons (cons 'id |gxc[1]#_g152775_|) '())))))) + (##unchecked-structure-set! __obj152289 __tmp152803 '16 '#f '#f)) + (let ((__tmp152808 + (cons (cons 'keys |gxc[1]#_g152809_|) + (cons (cons 'main |gxc[1]#_g152810_|) + (cons (cons 'signature |gxc[1]#_g152811_|) + (cons (cons 'id |gxc[1]#_g152812_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152252 __tmp152771 '17 '#f '#f)) - (let ((__tmp152776 - (cons (cons 'keys |gxc[1]#_g152777_|) - (cons (cons 'main |gxc[1]#_g152778_|) - (cons (cons 'signature |gxc[1]#_g152779_|) - (cons (cons 'id |gxc[1]#_g152780_|) '())))))) + (##unchecked-structure-set! __obj152289 __tmp152808 '17 '#f '#f)) + (let ((__tmp152813 + (cons (cons 'keys |gxc[1]#_g152814_|) + (cons (cons 'main |gxc[1]#_g152815_|) + (cons (cons 'signature |gxc[1]#_g152816_|) + (cons (cons 'id |gxc[1]#_g152817_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152252 __tmp152776 '18 '#f '#f)) - (let ((__tmp152781 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (##unchecked-structure-set! __obj152289 __tmp152813 '18 '#f '#f)) + (let ((__tmp152818 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152252 __tmp152781 '19 '#f '#f)) + (##unchecked-structure-set! __obj152289 __tmp152818 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152252 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152289 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152252 '() '20 '#f '#f)) - __obj152252)) + (##unchecked-structure-set! __obj152289 '() '20 '#f '#f)) + __obj152289)) (define |gxc[:0:]#!primitive| - (let ((__obj152253 + (let ((__obj152290 (let () (declare (not safe)) (##structure @@ -4310,68 +4310,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152253 + __obj152290 'gxc#!primitive::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '!primitive '2 '#f '#f)) + (##unchecked-structure-set! __obj152290 '!primitive '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152290 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj152290 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj152290 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj152290 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152290 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152290 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '#f '11 '#f '#f)) - (let ((__tmp152782 |gxc[1]#_g152783_|)) + (##unchecked-structure-set! __obj152290 '#f '11 '#f '#f)) + (let ((__tmp152819 |gxc[1]#_g152820_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152253 __tmp152782 '12 '#f '#f)) - (let ((__tmp152784 |gxc[1]#_g152785_|)) + (##unchecked-structure-set! __obj152290 __tmp152819 '12 '#f '#f)) + (let ((__tmp152821 |gxc[1]#_g152822_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152253 __tmp152784 '13 '#f '#f)) - (let ((__tmp152786 |gxc[1]#_g152787_|)) + (##unchecked-structure-set! __obj152290 __tmp152821 '13 '#f '#f)) + (let ((__tmp152823 |gxc[1]#_g152824_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152253 __tmp152786 '14 '#f '#f)) + (##unchecked-structure-set! __obj152290 __tmp152823 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj152290 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj152290 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj152290 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj152290 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152290 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152290 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152253 '() '20 '#f '#f)) - __obj152253)) + (##unchecked-structure-set! __obj152290 '() '20 '#f '#f)) + __obj152290)) (define |gxc[:0:]#!primitive-predicate| - (let ((__obj152254 + (let ((__obj152291 (let () (declare (not safe)) (##structure @@ -4400,7 +4400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152254 + __obj152291 'gxc#!primitive-predicate::t '1 '#f @@ -4408,74 +4408,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152254 + __obj152291 '!primitive-predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152254 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152291 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152254 '(id signature) '6 '#f '#f)) - (let ((__tmp152788 - (cons |gxc[1]#_g152789_| (cons |gxc[1]#_g152551_| '())))) + (##unchecked-structure-set! __obj152291 '(id signature) '6 '#f '#f)) + (let ((__tmp152825 + (cons |gxc[1]#_g152826_| (cons |gxc[1]#_g152588_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152254 __tmp152788 '3 '#f '#f)) + (##unchecked-structure-set! __obj152291 __tmp152825 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152254 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152291 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152254 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152291 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152254 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152291 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152254 ':init! '11 '#f '#f)) - (let ((__tmp152790 |gxc[1]#_g152791_|)) + (##unchecked-structure-set! __obj152291 ':init! '11 '#f '#f)) + (let ((__tmp152827 |gxc[1]#_g152828_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152254 __tmp152790 '12 '#f '#f)) - (let ((__tmp152792 |gxc[1]#_g152793_|)) + (##unchecked-structure-set! __obj152291 __tmp152827 '12 '#f '#f)) + (let ((__tmp152829 |gxc[1]#_g152830_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152254 __tmp152792 '13 '#f '#f)) - (let ((__tmp152794 |gxc[1]#_g152795_|)) + (##unchecked-structure-set! __obj152291 __tmp152829 '13 '#f '#f)) + (let ((__tmp152831 |gxc[1]#_g152832_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152254 __tmp152794 '14 '#f '#f)) - (let ((__tmp152796 - (cons (cons 'signature |gxc[1]#_g152797_|) - (cons (cons 'id |gxc[1]#_g152798_|) '())))) + (##unchecked-structure-set! __obj152291 __tmp152831 '14 '#f '#f)) + (let ((__tmp152833 + (cons (cons 'signature |gxc[1]#_g152834_|) + (cons (cons 'id |gxc[1]#_g152835_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152254 __tmp152796 '15 '#f '#f)) - (let ((__tmp152799 - (cons (cons 'signature |gxc[1]#_g152800_|) - (cons (cons 'id |gxc[1]#_g152801_|) '())))) + (##unchecked-structure-set! __obj152291 __tmp152833 '15 '#f '#f)) + (let ((__tmp152836 + (cons (cons 'signature |gxc[1]#_g152837_|) + (cons (cons 'id |gxc[1]#_g152838_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152254 __tmp152799 '16 '#f '#f)) - (let ((__tmp152802 - (cons (cons 'signature |gxc[1]#_g152803_|) - (cons (cons 'id |gxc[1]#_g152804_|) '())))) + (##unchecked-structure-set! __obj152291 __tmp152836 '16 '#f '#f)) + (let ((__tmp152839 + (cons (cons 'signature |gxc[1]#_g152840_|) + (cons (cons 'id |gxc[1]#_g152841_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152254 __tmp152802 '17 '#f '#f)) - (let ((__tmp152805 - (cons (cons 'signature |gxc[1]#_g152806_|) - (cons (cons 'id |gxc[1]#_g152807_|) '())))) + (##unchecked-structure-set! __obj152291 __tmp152839 '17 '#f '#f)) + (let ((__tmp152842 + (cons (cons 'signature |gxc[1]#_g152843_|) + (cons (cons 'id |gxc[1]#_g152844_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152254 __tmp152805 '18 '#f '#f)) - (let ((__tmp152808 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (##unchecked-structure-set! __obj152291 __tmp152842 '18 '#f '#f)) + (let ((__tmp152845 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152254 __tmp152808 '19 '#f '#f)) + (##unchecked-structure-set! __obj152291 __tmp152845 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152254 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152291 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152254 '() '20 '#f '#f)) - __obj152254)) + (##unchecked-structure-set! __obj152291 '() '20 '#f '#f)) + __obj152291)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj152255 + (let ((__obj152292 (let () (declare (not safe)) (##structure @@ -4504,7 +4504,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152255 + __obj152292 'gxc#!primitive-lambda::t '1 '#f @@ -4512,111 +4512,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152255 + __obj152292 '!primitive-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152255 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152292 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152255 + __obj152292 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp152809 - (cons |gxc[1]#_g152789_| (cons |gxc[1]#_g152810_| '())))) + (let ((__tmp152846 + (cons |gxc[1]#_g152826_| (cons |gxc[1]#_g152847_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152255 __tmp152809 '3 '#f '#f)) + (##unchecked-structure-set! __obj152292 __tmp152846 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152255 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152292 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152255 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152292 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152255 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152292 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152255 ':init! '11 '#f '#f)) - (let ((__tmp152811 |gxc[1]#_g152812_|)) + (##unchecked-structure-set! __obj152292 ':init! '11 '#f '#f)) + (let ((__tmp152848 |gxc[1]#_g152849_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152255 __tmp152811 '12 '#f '#f)) - (let ((__tmp152813 |gxc[1]#_g152814_|)) + (##unchecked-structure-set! __obj152292 __tmp152848 '12 '#f '#f)) + (let ((__tmp152850 |gxc[1]#_g152851_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152255 __tmp152813 '13 '#f '#f)) - (let ((__tmp152815 |gxc[1]#_g152816_|)) + (##unchecked-structure-set! __obj152292 __tmp152850 '13 '#f '#f)) + (let ((__tmp152852 |gxc[1]#_g152853_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152255 __tmp152815 '14 '#f '#f)) - (let ((__tmp152817 - (cons (cons 'arity |gxc[1]#_g152818_|) - (cons (cons 'dispatch |gxc[1]#_g152819_|) - (cons (cons 'inline |gxc[1]#_g152820_|) + (##unchecked-structure-set! __obj152292 __tmp152852 '14 '#f '#f)) + (let ((__tmp152854 + (cons (cons 'arity |gxc[1]#_g152855_|) + (cons (cons 'dispatch |gxc[1]#_g152856_|) + (cons (cons 'inline |gxc[1]#_g152857_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152821_|) + |gxc[1]#_g152858_|) (cons (cons 'signature - |gxc[1]#_g152822_|) + |gxc[1]#_g152859_|) (cons (cons 'id - |gxc[1]#_g152823_|) + |gxc[1]#_g152860_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152255 __tmp152817 '15 '#f '#f)) - (let ((__tmp152824 - (cons (cons 'arity |gxc[1]#_g152825_|) - (cons (cons 'dispatch |gxc[1]#_g152826_|) - (cons (cons 'inline |gxc[1]#_g152827_|) + (##unchecked-structure-set! __obj152292 __tmp152854 '15 '#f '#f)) + (let ((__tmp152861 + (cons (cons 'arity |gxc[1]#_g152862_|) + (cons (cons 'dispatch |gxc[1]#_g152863_|) + (cons (cons 'inline |gxc[1]#_g152864_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152828_|) + |gxc[1]#_g152865_|) (cons (cons 'signature - |gxc[1]#_g152829_|) + |gxc[1]#_g152866_|) (cons (cons 'id - |gxc[1]#_g152830_|) + |gxc[1]#_g152867_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152255 __tmp152824 '16 '#f '#f)) - (let ((__tmp152831 - (cons (cons 'arity |gxc[1]#_g152832_|) - (cons (cons 'dispatch |gxc[1]#_g152833_|) - (cons (cons 'inline |gxc[1]#_g152834_|) + (##unchecked-structure-set! __obj152292 __tmp152861 '16 '#f '#f)) + (let ((__tmp152868 + (cons (cons 'arity |gxc[1]#_g152869_|) + (cons (cons 'dispatch |gxc[1]#_g152870_|) + (cons (cons 'inline |gxc[1]#_g152871_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152835_|) + |gxc[1]#_g152872_|) (cons (cons 'signature - |gxc[1]#_g152836_|) + |gxc[1]#_g152873_|) (cons (cons 'id - |gxc[1]#_g152837_|) + |gxc[1]#_g152874_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152255 __tmp152831 '17 '#f '#f)) - (let ((__tmp152838 - (cons (cons 'arity |gxc[1]#_g152839_|) - (cons (cons 'dispatch |gxc[1]#_g152840_|) - (cons (cons 'inline |gxc[1]#_g152841_|) + (##unchecked-structure-set! __obj152292 __tmp152868 '17 '#f '#f)) + (let ((__tmp152875 + (cons (cons 'arity |gxc[1]#_g152876_|) + (cons (cons 'dispatch |gxc[1]#_g152877_|) + (cons (cons 'inline |gxc[1]#_g152878_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152842_|) + |gxc[1]#_g152879_|) (cons (cons 'signature - |gxc[1]#_g152843_|) + |gxc[1]#_g152880_|) (cons (cons 'id - |gxc[1]#_g152844_|) + |gxc[1]#_g152881_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152255 __tmp152838 '18 '#f '#f)) - (let ((__tmp152845 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (##unchecked-structure-set! __obj152292 __tmp152875 '18 '#f '#f)) + (let ((__tmp152882 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152255 __tmp152845 '19 '#f '#f)) + (##unchecked-structure-set! __obj152292 __tmp152882 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152255 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152292 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152255 '() '20 '#f '#f)) - __obj152255)) + (##unchecked-structure-set! __obj152292 '() '20 '#f '#f)) + __obj152292)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj152256 + (let ((__obj152293 (let () (declare (not safe)) (##structure @@ -4645,7 +4645,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152256 + __obj152293 'gxc#!primitive-case-lambda::t '1 '#f @@ -4653,78 +4653,78 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152256 + __obj152293 '!primitive-case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152256 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152293 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152256 + __obj152293 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp152846 - (cons |gxc[1]#_g152789_| (cons |gxc[1]#_g152847_| '())))) + (let ((__tmp152883 + (cons |gxc[1]#_g152826_| (cons |gxc[1]#_g152884_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152256 __tmp152846 '3 '#f '#f)) + (##unchecked-structure-set! __obj152293 __tmp152883 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152256 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152293 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152256 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152293 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152256 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152293 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152256 ':init! '11 '#f '#f)) - (let ((__tmp152848 |gxc[1]#_g152849_|)) + (##unchecked-structure-set! __obj152293 ':init! '11 '#f '#f)) + (let ((__tmp152885 |gxc[1]#_g152886_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152256 __tmp152848 '12 '#f '#f)) - (let ((__tmp152850 |gxc[1]#_g152851_|)) + (##unchecked-structure-set! __obj152293 __tmp152885 '12 '#f '#f)) + (let ((__tmp152887 |gxc[1]#_g152888_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152256 __tmp152850 '13 '#f '#f)) - (let ((__tmp152852 |gxc[1]#_g152853_|)) + (##unchecked-structure-set! __obj152293 __tmp152887 '13 '#f '#f)) + (let ((__tmp152889 |gxc[1]#_g152890_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152256 __tmp152852 '14 '#f '#f)) - (let ((__tmp152854 - (cons (cons 'clauses |gxc[1]#_g152855_|) - (cons (cons 'signature |gxc[1]#_g152856_|) - (cons (cons 'id |gxc[1]#_g152857_|) '()))))) + (##unchecked-structure-set! __obj152293 __tmp152889 '14 '#f '#f)) + (let ((__tmp152891 + (cons (cons 'clauses |gxc[1]#_g152892_|) + (cons (cons 'signature |gxc[1]#_g152893_|) + (cons (cons 'id |gxc[1]#_g152894_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152256 __tmp152854 '15 '#f '#f)) - (let ((__tmp152858 - (cons (cons 'clauses |gxc[1]#_g152859_|) - (cons (cons 'signature |gxc[1]#_g152860_|) - (cons (cons 'id |gxc[1]#_g152861_|) '()))))) + (##unchecked-structure-set! __obj152293 __tmp152891 '15 '#f '#f)) + (let ((__tmp152895 + (cons (cons 'clauses |gxc[1]#_g152896_|) + (cons (cons 'signature |gxc[1]#_g152897_|) + (cons (cons 'id |gxc[1]#_g152898_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152256 __tmp152858 '16 '#f '#f)) - (let ((__tmp152862 - (cons (cons 'clauses |gxc[1]#_g152863_|) - (cons (cons 'signature |gxc[1]#_g152864_|) - (cons (cons 'id |gxc[1]#_g152865_|) '()))))) + (##unchecked-structure-set! __obj152293 __tmp152895 '16 '#f '#f)) + (let ((__tmp152899 + (cons (cons 'clauses |gxc[1]#_g152900_|) + (cons (cons 'signature |gxc[1]#_g152901_|) + (cons (cons 'id |gxc[1]#_g152902_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152256 __tmp152862 '17 '#f '#f)) - (let ((__tmp152866 - (cons (cons 'clauses |gxc[1]#_g152867_|) - (cons (cons 'signature |gxc[1]#_g152868_|) - (cons (cons 'id |gxc[1]#_g152869_|) '()))))) + (##unchecked-structure-set! __obj152293 __tmp152899 '17 '#f '#f)) + (let ((__tmp152903 + (cons (cons 'clauses |gxc[1]#_g152904_|) + (cons (cons 'signature |gxc[1]#_g152905_|) + (cons (cons 'id |gxc[1]#_g152906_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152256 __tmp152866 '18 '#f '#f)) - (let ((__tmp152870 (cons (cons 'signature |gxc[1]#_g152474_|) '()))) + (##unchecked-structure-set! __obj152293 __tmp152903 '18 '#f '#f)) + (let ((__tmp152907 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152256 __tmp152870 '19 '#f '#f)) + (##unchecked-structure-set! __obj152293 __tmp152907 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152256 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152293 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152256 '() '20 '#f '#f)) - __obj152256)))) + (##unchecked-structure-set! __obj152293 '() '20 '#f '#f)) + __obj152293)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~0.scm b/src/bootstrap/gerbil/compiler/optimize-call~0.scm index 2307ddb8b..a71aec975 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 1733687566) + (define gerbil/compiler/optimize-call::timestamp 1733870081) (begin (define gxc#::optimize-call::t - (let ((__tmp197307 (list gxc#::basic-xform::t)) - (__tmp197306 (cons (cons 'final: '#t) '()))) + (let ((__tmp197344 (list gxc#::basic-xform::t)) + (__tmp197343 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-call::t '::optimize-call - __tmp197307 + __tmp197344 '() - __tmp197306 + __tmp197343 '#f))) (define gxc#::optimize-call? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-call::t))) (define gxc#make-::optimize-call - (lambda _%$args196584%_ - (apply make-instance gxc#::optimize-call::t _%$args196584%_))) + (lambda _%$args196621%_ + (apply make-instance gxc#::optimize-call::t _%$args196621%_))) (define gxc#::optimize-call-bind-methods! - (let ((__tmp197308 + (let ((__tmp197345 (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 __tmp197308))) + (__make-promise __tmp197345))) (define gxc#apply-optimize-call - (lambda (_%stx196576%_) + (lambda (_%stx196613%_) (force gxc#::optimize-call-bind-methods!) - (let* ((_%self196579%_ - (let ((__obj197298 + (let* ((_%self196616%_ + (let ((__obj197335 (let () (declare (not safe)) (##structure gxc#::optimize-call::t)))) - __obj197298)) - (__tmp197309 + __obj197335)) + (__tmp197346 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self196579%_ _%stx196576%_))))) + (gxc#compile-e__1 _%self196616%_ _%stx196613%_))))) (declare (not safe)) (__call-with-parameters - __tmp197309 + __tmp197346 gxc#current-compile-method - _%self196579%_)))) + _%self196616%_)))) (define gxc#::check-return-type::t - (let ((__tmp197311 (list gxc#::void::t)) - (__tmp197310 (cons (cons 'final: '#t) '()))) + (let ((__tmp197348 (list gxc#::void::t)) + (__tmp197347 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::check-return-type::t '::check-return-type - __tmp197311 + __tmp197348 '() - __tmp197310 + __tmp197347 '#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 _%$args196573%_ - (apply make-instance gxc#::check-return-type::t _%$args196573%_))) + (lambda _%$args196610%_ + (apply make-instance gxc#::check-return-type::t _%$args196610%_))) (define gxc#::check-return-type-bind-methods! - (let ((__tmp197312 + (let ((__tmp197349 (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 __tmp197312))) + (__make-promise __tmp197349))) (define gxc#apply-check-return-type - (lambda (_%stx196565%_) + (lambda (_%stx196602%_) (force gxc#::check-return-type-bind-methods!) - (let* ((_%self196568%_ - (let ((__obj197300 + (let* ((_%self196605%_ + (let ((__obj197337 (let () (declare (not safe)) (##structure gxc#::check-return-type::t)))) - __obj197300)) - (__tmp197313 + __obj197337)) + (__tmp197350 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self196568%_ _%stx196565%_))))) + (gxc#compile-e__1 _%self196605%_ _%stx196602%_))))) (declare (not safe)) (__call-with-parameters - __tmp197313 + __tmp197350 gxc#current-compile-method - _%self196568%_)))) + _%self196605%_)))) (define gxc#optimize-call% - (lambda (_%self196166%_ _%stx196167%_) - (let* ((_%__stx196653196654%_ _%stx196167%_) - (_%g196170196216%_ + (lambda (_%self196203%_ _%stx196204%_) + (let* ((_%__stx196690196691%_ _%stx196204%_) + (_%g196207196253%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196653196654%_))))) - (let ((_%__kont196655196656%_ - (lambda (_%L196359%_ _%L196360%_) - (let* ((_%rator-id196380%_ + _%__stx196690196691%_))))) + (let ((_%__kont196692196693%_ + (lambda (_%L196396%_ _%L196397%_) + (let* ((_%rator-id196417%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L196360%_))) - (_%rator-type196382%_ + (gxc#identifier-symbol _%L196397%_))) + (_%rator-type196419%_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _%rator-id196380%_)))) - (if (or (not _%rator-type196382%_) + (gxc#optimizer-resolve-type _%rator-id196417%_)))) + (if (or (not _%rator-type196419%_) (eq? (##structure-ref - _%rator-type196382%_ + _%rator-type196419%_ '1 gxc#!type::t '#f) 't)) (let () (declare (not safe)) - (gxc#xform-call% _%self196166%_ _%stx196167%_)) + (gxc#xform-call% _%self196203%_ _%stx196204%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196382%_ + _%rator-type196419%_ 'gxc#!procedure::t)) (let () - (let ((__tmp197314 + (let ((__tmp197351 (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type196382%_ + _%rator-type196419%_ '1 '#f '#f)))) (declare (not safe)) (gxc#verbose '"optimize-call " - _%rator-id196380%_ + _%rator-id196417%_ '" => " - _%rator-type196382%_ + _%rator-type196419%_ '" " - __tmp197314)) - (let* ((_%optimized196397%_ - (let ((__method197301 + __tmp197351)) + (let* ((_%optimized196434%_ + (let ((__method197338 (let () (declare (not safe)) (__method-ref - _%rator-type196382%_ + _%rator-type196419%_ 'optimize-call)))) - (if __method197301 - (let ((__tmp197315 - (let ((__tmp197316 - (lambda (_%g196389196392%_ + (if __method197338 + (let ((__tmp197352 + (let ((__tmp197353 + (lambda (_%g196426196429%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196390196394%_) - (cons _%g196389196392%_ _%g196390196394%_)))) + _%g196427196431%_) + (cons _%g196426196429%_ _%g196427196431%_)))) (declare (not safe)) - (__foldr1 __tmp197316 '() _%L196359%_)))) + (__foldr1 __tmp197353 '() _%L196396%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (__method197301 - _%rator-type196382%_ - _%self196166%_ - _%stx196167%_ - __tmp197315)) + (__method197338 + _%rator-type196419%_ + _%self196203%_ + _%stx196204%_ + __tmp197352)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type196382%_ + _%rator-type196419%_ 'optimize-call)) '#!void)))) - (_%__stx196601196602%_ - _%optimized196397%_) - (_%g196400196429%_ + (_%__stx196638196639%_ + _%optimized196434%_) + (_%g196437196466%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196601196602%_))))) - (let ((_%__kont196603196604%_ - (lambda (_%L196497%_ _%L196498%_) - (let* ((_%optimized-rator-id196525%_ + _%__stx196638196639%_))))) + (let ((_%__kont196640196641%_ + (lambda (_%L196534%_ _%L196535%_) + (let* ((_%optimized-rator-id196562%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L196498%_))) - (_%rator-type196530%_ - (let ((_%$e196527%_ + _%L196535%_))) + (_%rator-type196567%_ + (let ((_%$e196564%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%optimized-rator-id196525%_)))) - (if _%$e196527%_ - _%$e196527%_ - _%rator-type196382%_)))) + _%optimized-rator-id196562%_)))) + (if _%$e196564%_ + _%$e196564%_ + _%rator-type196419%_)))) (if (or (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type196530%_)) + _%rator-type196567%_)) (let () (declare (not safe)) - (##memq _%optimized-rator-id196525%_ + (##memq _%optimized-rator-id196562%_ gxc#checked-primitives)) (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196530%_ + _%rator-type196567%_ 'gxc#!procedure::t)) (eq? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#!procedure-origin _%rator-type196530%_)) + (gxc#!procedure-origin _%rator-type196567%_)) (##structure-ref (let () (declare (not safe)) @@ -326,226 +326,226 @@ gx#expander-context::t '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%optimized196397%_ - (let ((__tmp197317 + _%optimized196434%_ + (let ((__tmp197354 (cons '%#call-unchecked (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L196498%_ '())) - (let ((__tmp197318 - (lambda (_%g196538196541%_ _%g196539196543%_) - (cons _%g196538196541%_ - _%g196539196543%_)))) + (cons _%L196535%_ '())) + (let ((__tmp197355 + (lambda (_%g196575196578%_ _%g196576196580%_) + (cons _%g196575196578%_ + _%g196576196580%_)))) (declare (not safe)) - (__foldr1 __tmp197318 '() _%L196497%_)))))) + (__foldr1 __tmp197355 '() _%L196534%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197317 - _%stx196167%_)))))) - (_%__kont196607196608%_ - (lambda () _%optimized196397%_))) - (let ((_%__match196650196651%_ - (lambda (_%e196404196441%_ - _%hd196405196444%_ - _%tl196406196446%_ - _%e196407196449%_ - _%hd196408196452%_ - _%tl196409196454%_ - _%e196410196457%_ - _%hd196411196460%_ - _%tl196412196462%_ - _%e196413196465%_ - _%hd196414196468%_ - _%tl196415196470%_ - _%__splice196605196606%_ - _%target196416196473%_ - _%tl196418196475%_) - (letrec ((_%loop196419196478%_ - (lambda (_%hd196417196481%_ - _%arg196423196483%_) + __tmp197354 + _%stx196204%_)))))) + (_%__kont196644196645%_ + (lambda () _%optimized196434%_))) + (let ((_%__match196687196688%_ + (lambda (_%e196441196478%_ + _%hd196442196481%_ + _%tl196443196483%_ + _%e196444196486%_ + _%hd196445196489%_ + _%tl196446196491%_ + _%e196447196494%_ + _%hd196448196497%_ + _%tl196449196499%_ + _%e196450196502%_ + _%hd196451196505%_ + _%tl196452196507%_ + _%__splice196642196643%_ + _%target196453196510%_ + _%tl196455196512%_) + (letrec ((_%loop196456196515%_ + (lambda (_%hd196454196518%_ + _%arg196460196520%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd196417196481%_)) - (let ((_%e196420196486%_ + _%hd196454196518%_)) + (let ((_%e196457196523%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd196417196481%_)))) - (let ((_%lp-tl196422196491%_ + (gx#stx-e _%hd196454196518%_)))) + (let ((_%lp-tl196459196528%_ (let () (declare (not safe)) - (##cdr _%e196420196486%_))) - (_%lp-hd196421196489%_ + (##cdr _%e196457196523%_))) + (_%lp-hd196458196526%_ (let () (declare (not safe)) - (##car _%e196420196486%_)))) - (_%loop196419196478%_ - _%lp-tl196422196491%_ - (cons _%lp-hd196421196489%_ _%arg196423196483%_)))) - (let ((_%arg196424196494%_ (reverse _%arg196423196483%_))) - (_%__kont196603196604%_ - _%arg196424196494%_ - _%hd196414196468%_)))))) + (##car _%e196457196523%_)))) + (_%loop196456196515%_ + _%lp-tl196459196528%_ + (cons _%lp-hd196458196526%_ _%arg196460196520%_)))) + (let ((_%arg196461196531%_ (reverse _%arg196460196520%_))) + (_%__kont196640196641%_ + _%arg196461196531%_ + _%hd196451196505%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop196419196478%_ - _%target196416196473%_ + (_%loop196456196515%_ + _%target196453196510%_ '()))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx196601196602%_)) - (let ((_%e196404196441%_ + _%__stx196638196639%_)) + (let ((_%e196441196478%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196601196602%_)))) - (let ((_%tl196406196446%_ + _%__stx196638196639%_)))) + (let ((_%tl196443196483%_ (let () (declare (not safe)) - (##cdr _%e196404196441%_))) - (_%hd196405196444%_ + (##cdr _%e196441196478%_))) + (_%hd196442196481%_ (let () (declare (not safe)) - (##car _%e196404196441%_)))) + (##car _%e196441196478%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196405196444%_)) + _%hd196442196481%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd196405196444%_)) + _%hd196442196481%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196406196446%_)) - (let ((_%e196407196449%_ + _%tl196443196483%_)) + (let ((_%e196444196486%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl196406196446%_)))) - (let ((_%tl196409196454%_ + (gx#stx-e _%tl196443196483%_)))) + (let ((_%tl196446196491%_ (let () (declare (not safe)) - (##cdr _%e196407196449%_))) - (_%hd196408196452%_ + (##cdr _%e196444196486%_))) + (_%hd196445196489%_ (let () (declare (not safe)) - (##car _%e196407196449%_)))) + (##car _%e196444196486%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196408196452%_)) - (let ((_%e196410196457%_ + (gx#stx-pair? _%hd196445196489%_)) + (let ((_%e196447196494%_ (let () (declare (not safe)) - (gx#stx-e _%hd196408196452%_)))) - (let ((_%tl196412196462%_ + (gx#stx-e _%hd196445196489%_)))) + (let ((_%tl196449196499%_ (let () (declare (not safe)) - (##cdr _%e196410196457%_))) - (_%hd196411196460%_ + (##cdr _%e196447196494%_))) + (_%hd196448196497%_ (let () (declare (not safe)) - (##car _%e196410196457%_)))) + (##car _%e196447196494%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd196411196460%_)) + (gx#identifier? _%hd196448196497%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd196411196460%_)) + (gx#stx-eq? '%#ref _%hd196448196497%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196412196462%_)) - (let ((_%e196413196465%_ + (gx#stx-pair? _%tl196449196499%_)) + (let ((_%e196450196502%_ (let () (declare (not safe)) (gx#stx-e - _%tl196412196462%_)))) - (let ((_%tl196415196470%_ + _%tl196449196499%_)))) + (let ((_%tl196452196507%_ (let () (declare (not safe)) - (##cdr _%e196413196465%_))) - (_%hd196414196468%_ + (##cdr _%e196450196502%_))) + (_%hd196451196505%_ (let () (declare (not safe)) - (##car _%e196413196465%_)))) + (##car _%e196450196502%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196415196470%_)) + _%tl196452196507%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196409196454%_)) - (let ((_%__splice196605196606%_ + _%tl196446196491%_)) + (let ((_%__splice196642196643%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196409196454%_ + _%tl196446196491%_ '0)))) - (let ((_%tl196418196475%_ + (let ((_%tl196455196512%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice196605196606%_ '1))) - (_%target196416196473%_ + (##vector-ref _%__splice196642196643%_ '1))) + (_%target196453196510%_ (let () (declare (not safe)) - (##vector-ref _%__splice196605196606%_ '0)))) + (##vector-ref _%__splice196642196643%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196418196475%_)) - (_%__match196650196651%_ - _%e196404196441%_ - _%hd196405196444%_ - _%tl196406196446%_ - _%e196407196449%_ - _%hd196408196452%_ - _%tl196409196454%_ - _%e196410196457%_ - _%hd196411196460%_ - _%tl196412196462%_ - _%e196413196465%_ - _%hd196414196468%_ - _%tl196415196470%_ - _%__splice196605196606%_ - _%target196416196473%_ - _%tl196418196475%_) - (_%__kont196607196608%_)))) + (gx#stx-null? _%tl196455196512%_)) + (_%__match196687196688%_ + _%e196441196478%_ + _%hd196442196481%_ + _%tl196443196483%_ + _%e196444196486%_ + _%hd196445196489%_ + _%tl196446196491%_ + _%e196447196494%_ + _%hd196448196497%_ + _%tl196449196499%_ + _%e196450196502%_ + _%hd196451196505%_ + _%tl196452196507%_ + _%__splice196642196643%_ + _%target196453196510%_ + _%tl196455196512%_) + (_%__kont196644196645%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196607196608%_)) - (_%__kont196607196608%_)))) - (_%__kont196607196608%_)) - (_%__kont196607196608%_)) - (_%__kont196607196608%_)))) - (_%__kont196607196608%_)))) - (_%__kont196607196608%_)) + (_%__kont196644196645%_)) + (_%__kont196644196645%_)))) + (_%__kont196644196645%_)) + (_%__kont196644196645%_)) + (_%__kont196644196645%_)))) + (_%__kont196644196645%_)))) + (_%__kont196644196645%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196607196608%_)) - (_%__kont196607196608%_)))) - (_%__kont196607196608%_)))))) + (_%__kont196644196645%_)) + (_%__kont196644196645%_)))) + (_%__kont196644196645%_)))))) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196382%_ + _%rator-type196419%_ 'gxc#!class::t)) (eq? (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type196382%_ + _%rator-type196419%_ '1 '#f '#f)) 'procedure)) - (let ((__tmp197319 + (let ((__tmp197356 (cons '%#call-unchecked (cons (cons (let () (declare @@ -553,42 +553,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L196360%_ + (cons _%L196397%_ '())) - (map (lambda (_%g196549196551%_) + (map (lambda (_%g196586196588%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self196166%_ - _%g196549196551%_))) - (let ((__tmp197320 - (lambda (_%g196553196556%_ + _%self196203%_ + _%g196586196588%_))) + (let ((__tmp197357 + (lambda (_%g196590196593%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196554196558%_) - (cons _%g196553196556%_ _%g196554196558%_)))) + _%g196591196595%_) + (cons _%g196590196593%_ _%g196591196595%_)))) (declare (not safe)) - (__foldr1 __tmp197320 '() _%L196359%_))))))) + (__foldr1 __tmp197357 '() _%L196396%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197319 - _%stx196167%_)) + __tmp197356 + _%stx196204%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx196167%_ - _%rator-type196382%_)))))))) - (_%__kont196659196660%_ - (lambda (_%L196261%_ _%L196262%_) - (let ((_%rator-type196279%_ + _%stx196204%_ + _%rator-type196419%_)))))))) + (_%__kont196696196697%_ + (lambda (_%L196298%_ _%L196299%_) + (let ((_%rator-type196316%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%L196262%_)))) - (if (and _%rator-type196279%_ + (gxc#apply-basic-expression-type _%L196299%_)))) + (if (and _%rator-type196316%_ (eq? (##structure-ref - _%rator-type196279%_ + _%rator-type196316%_ '1 gxc#!type::t '#f) @@ -597,17 +597,17 @@ (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type196279%_)) + _%rator-type196316%_)) '#f (not (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196279%_ + _%rator-type196316%_ 'gxc#!procedure::t)) (eq? (let () (declare (not safe)) (gxc#!procedure-origin - _%rator-type196279%_)) + _%rator-type196316%_)) (##structure-ref (let () (declare (not safe)) @@ -615,607 +615,607 @@ '1 gx#expander-context::t '#f)))))) - (let ((__tmp197321 + (let ((__tmp197358 (cons '%#call-unchecked (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self196166%_ - _%L196262%_)) - (map (lambda (_%g196281196283%_) + _%self196203%_ + _%L196299%_)) + (map (lambda (_%g196318196320%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self196166%_ - _%g196281196283%_))) - (let ((__tmp197322 - (lambda (_%g196285196288%_ + _%self196203%_ + _%g196318196320%_))) + (let ((__tmp197359 + (lambda (_%g196322196325%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196286196290%_) - (cons _%g196285196288%_ _%g196286196290%_)))) + _%g196323196327%_) + (cons _%g196322196325%_ _%g196323196327%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp197322 + __tmp197359 '() - _%L196261%_))))))) + _%L196298%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197321 _%stx196167%_)) - (if (or (not _%rator-type196279%_) - (let ((__tmp197323 + (gxc#xform-wrap-source __tmp197358 _%stx196204%_)) + (if (or (not _%rator-type196316%_) + (let ((__tmp197360 (##structure-ref - _%rator-type196279%_ + _%rator-type196316%_ '1 gxc#!type::t '#f))) (declare (not safe)) - (##memq __tmp197323 '(t procedure)))) + (##memq __tmp197360 '(t procedure)))) (let () (declare (not safe)) - (gxc#xform-call% _%self196166%_ _%stx196167%_)) + (gxc#xform-call% _%self196203%_ _%stx196204%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx196167%_ - _%rator-type196279%_)))))))) - (let* ((_%__match196720196721%_ - (lambda (_%e196197196221%_ - _%hd196198196224%_ - _%tl196199196226%_ - _%e196200196229%_ - _%hd196201196232%_ - _%tl196202196234%_ - _%__splice196661196662%_ - _%target196203196237%_ - _%tl196205196239%_) - (letrec ((_%loop196206196242%_ - (lambda (_%hd196204196245%_ - _%rand196210196247%_) + _%stx196204%_ + _%rator-type196316%_)))))))) + (let* ((_%__match196757196758%_ + (lambda (_%e196234196258%_ + _%hd196235196261%_ + _%tl196236196263%_ + _%e196237196266%_ + _%hd196238196269%_ + _%tl196239196271%_ + _%__splice196698196699%_ + _%target196240196274%_ + _%tl196242196276%_) + (letrec ((_%loop196243196279%_ + (lambda (_%hd196241196282%_ + _%rand196247196284%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196204196245%_)) - (let ((_%e196207196250%_ + (gx#stx-pair? _%hd196241196282%_)) + (let ((_%e196244196287%_ (let () (declare (not safe)) - (gx#stx-e _%hd196204196245%_)))) - (let ((_%lp-tl196209196255%_ + (gx#stx-e _%hd196241196282%_)))) + (let ((_%lp-tl196246196292%_ (let () (declare (not safe)) - (##cdr _%e196207196250%_))) - (_%lp-hd196208196253%_ + (##cdr _%e196244196287%_))) + (_%lp-hd196245196290%_ (let () (declare (not safe)) - (##car _%e196207196250%_)))) - (_%loop196206196242%_ - _%lp-tl196209196255%_ - (cons _%lp-hd196208196253%_ - _%rand196210196247%_)))) - (let ((_%rand196211196258%_ - (reverse _%rand196210196247%_))) - (_%__kont196659196660%_ - _%rand196211196258%_ - _%hd196201196232%_)))))) - (_%loop196206196242%_ _%target196203196237%_ '())))) - (_%__match196700196701%_ - (lambda (_%e196174196303%_ - _%hd196175196306%_ - _%tl196176196308%_ - _%e196177196311%_ - _%hd196178196314%_ - _%tl196179196316%_ - _%e196180196319%_ - _%hd196181196322%_ - _%tl196182196324%_ - _%e196183196327%_ - _%hd196184196330%_ - _%tl196185196332%_ - _%__splice196657196658%_ - _%target196186196335%_ - _%tl196188196337%_) - (letrec ((_%loop196189196340%_ - (lambda (_%hd196187196343%_ - _%rand196193196345%_) + (##car _%e196244196287%_)))) + (_%loop196243196279%_ + _%lp-tl196246196292%_ + (cons _%lp-hd196245196290%_ + _%rand196247196284%_)))) + (let ((_%rand196248196295%_ + (reverse _%rand196247196284%_))) + (_%__kont196696196697%_ + _%rand196248196295%_ + _%hd196238196269%_)))))) + (_%loop196243196279%_ _%target196240196274%_ '())))) + (_%__match196737196738%_ + (lambda (_%e196211196340%_ + _%hd196212196343%_ + _%tl196213196345%_ + _%e196214196348%_ + _%hd196215196351%_ + _%tl196216196353%_ + _%e196217196356%_ + _%hd196218196359%_ + _%tl196219196361%_ + _%e196220196364%_ + _%hd196221196367%_ + _%tl196222196369%_ + _%__splice196694196695%_ + _%target196223196372%_ + _%tl196225196374%_) + (letrec ((_%loop196226196377%_ + (lambda (_%hd196224196380%_ + _%rand196230196382%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196187196343%_)) - (let ((_%e196190196348%_ + (gx#stx-pair? _%hd196224196380%_)) + (let ((_%e196227196385%_ (let () (declare (not safe)) - (gx#stx-e _%hd196187196343%_)))) - (let ((_%lp-tl196192196353%_ + (gx#stx-e _%hd196224196380%_)))) + (let ((_%lp-tl196229196390%_ (let () (declare (not safe)) - (##cdr _%e196190196348%_))) - (_%lp-hd196191196351%_ + (##cdr _%e196227196385%_))) + (_%lp-hd196228196388%_ (let () (declare (not safe)) - (##car _%e196190196348%_)))) - (_%loop196189196340%_ - _%lp-tl196192196353%_ - (cons _%lp-hd196191196351%_ - _%rand196193196345%_)))) - (let ((_%rand196194196356%_ - (reverse _%rand196193196345%_))) - (_%__kont196655196656%_ - _%rand196194196356%_ - _%hd196184196330%_)))))) - (_%loop196189196340%_ _%target196186196335%_ '()))))) + (##car _%e196227196385%_)))) + (_%loop196226196377%_ + _%lp-tl196229196390%_ + (cons _%lp-hd196228196388%_ + _%rand196230196382%_)))) + (let ((_%rand196231196393%_ + (reverse _%rand196230196382%_))) + (_%__kont196692196693%_ + _%rand196231196393%_ + _%hd196221196367%_)))))) + (_%loop196226196377%_ _%target196223196372%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196653196654%_)) - (let ((_%e196174196303%_ + (gx#stx-pair? _%__stx196690196691%_)) + (let ((_%e196211196340%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196653196654%_)))) - (let ((_%tl196176196308%_ + (gx#stx-e _%__stx196690196691%_)))) + (let ((_%tl196213196345%_ (let () (declare (not safe)) - (##cdr _%e196174196303%_))) - (_%hd196175196306%_ + (##cdr _%e196211196340%_))) + (_%hd196212196343%_ (let () (declare (not safe)) - (##car _%e196174196303%_)))) + (##car _%e196211196340%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196176196308%_)) - (let ((_%e196177196311%_ + (gx#stx-pair? _%tl196213196345%_)) + (let ((_%e196214196348%_ (let () (declare (not safe)) - (gx#stx-e _%tl196176196308%_)))) - (let ((_%tl196179196316%_ + (gx#stx-e _%tl196213196345%_)))) + (let ((_%tl196216196353%_ (let () (declare (not safe)) - (##cdr _%e196177196311%_))) - (_%hd196178196314%_ + (##cdr _%e196214196348%_))) + (_%hd196215196351%_ (let () (declare (not safe)) - (##car _%e196177196311%_)))) + (##car _%e196214196348%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196178196314%_)) - (let ((_%e196180196319%_ + (gx#stx-pair? _%hd196215196351%_)) + (let ((_%e196217196356%_ (let () (declare (not safe)) - (gx#stx-e _%hd196178196314%_)))) - (let ((_%tl196182196324%_ + (gx#stx-e _%hd196215196351%_)))) + (let ((_%tl196219196361%_ (let () (declare (not safe)) - (##cdr _%e196180196319%_))) - (_%hd196181196322%_ + (##cdr _%e196217196356%_))) + (_%hd196218196359%_ (let () (declare (not safe)) - (##car _%e196180196319%_)))) + (##car _%e196217196356%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196181196322%_)) + _%hd196218196359%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd196181196322%_)) + _%hd196218196359%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196182196324%_)) - (let ((_%e196183196327%_ + _%tl196219196361%_)) + (let ((_%e196220196364%_ (let () (declare (not safe)) (gx#stx-e - _%tl196182196324%_)))) - (let ((_%tl196185196332%_ + _%tl196219196361%_)))) + (let ((_%tl196222196369%_ (let () (declare (not safe)) - (##cdr _%e196183196327%_))) - (_%hd196184196330%_ + (##cdr _%e196220196364%_))) + (_%hd196221196367%_ (let () (declare (not safe)) - (##car _%e196183196327%_)))) + (##car _%e196220196364%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196185196332%_)) + _%tl196222196369%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl196179196316%_)) - (let ((_%__splice196657196658%_ + (gx#stx-pair/null? _%tl196216196353%_)) + (let ((_%__splice196694196695%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196179196316%_ + _%tl196216196353%_ '0)))) - (let ((_%tl196188196337%_ + (let ((_%tl196225196374%_ (let () (declare (not safe)) - (##vector-ref _%__splice196657196658%_ '1))) - (_%target196186196335%_ + (##vector-ref _%__splice196694196695%_ '1))) + (_%target196223196372%_ (let () (declare (not safe)) - (##vector-ref _%__splice196657196658%_ '0)))) + (##vector-ref _%__splice196694196695%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196188196337%_)) - (_%__match196700196701%_ - _%e196174196303%_ - _%hd196175196306%_ - _%tl196176196308%_ - _%e196177196311%_ - _%hd196178196314%_ - _%tl196179196316%_ - _%e196180196319%_ - _%hd196181196322%_ - _%tl196182196324%_ - _%e196183196327%_ - _%hd196184196330%_ - _%tl196185196332%_ - _%__splice196657196658%_ - _%target196186196335%_ - _%tl196188196337%_) + (gx#stx-null? _%tl196225196374%_)) + (_%__match196737196738%_ + _%e196211196340%_ + _%hd196212196343%_ + _%tl196213196345%_ + _%e196214196348%_ + _%hd196215196351%_ + _%tl196216196353%_ + _%e196217196356%_ + _%hd196218196359%_ + _%tl196219196361%_ + _%e196220196364%_ + _%hd196221196367%_ + _%tl196222196369%_ + _%__splice196694196695%_ + _%target196223196372%_ + _%tl196225196374%_) (let () (declare (not safe)) - (_%g196170196216%_))))) - (let () (declare (not safe)) (_%g196170196216%_))) + (_%g196207196253%_))))) + (let () (declare (not safe)) (_%g196207196253%_))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196179196316%_)) - (let ((_%__splice196661196662%_ + (gx#stx-pair/null? _%tl196216196353%_)) + (let ((_%__splice196698196699%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196179196316%_ + _%tl196216196353%_ '0)))) - (let ((_%tl196205196239%_ + (let ((_%tl196242196276%_ (let () (declare (not safe)) - (##vector-ref _%__splice196661196662%_ '1))) - (_%target196203196237%_ + (##vector-ref _%__splice196698196699%_ '1))) + (_%target196240196274%_ (let () (declare (not safe)) - (##vector-ref _%__splice196661196662%_ '0)))) + (##vector-ref _%__splice196698196699%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196205196239%_)) - (_%__match196720196721%_ - _%e196174196303%_ - _%hd196175196306%_ - _%tl196176196308%_ - _%e196177196311%_ - _%hd196178196314%_ - _%tl196179196316%_ - _%__splice196661196662%_ - _%target196203196237%_ - _%tl196205196239%_) + (gx#stx-null? _%tl196242196276%_)) + (_%__match196757196758%_ + _%e196211196340%_ + _%hd196212196343%_ + _%tl196213196345%_ + _%e196214196348%_ + _%hd196215196351%_ + _%tl196216196353%_ + _%__splice196698196699%_ + _%target196240196274%_ + _%tl196242196276%_) (let () (declare (not safe)) - (_%g196170196216%_))))) - (let () (declare (not safe)) (_%g196170196216%_)))))) + (_%g196207196253%_))))) + (let () (declare (not safe)) (_%g196207196253%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196179196316%_)) - (let ((_%__splice196661196662%_ + _%tl196216196353%_)) + (let ((_%__splice196698196699%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl196179196316%_ '0)))) - (let ((_%tl196205196239%_ + (gx#syntax-split-splice _%tl196216196353%_ '0)))) + (let ((_%tl196242196276%_ (let () (declare (not safe)) - (##vector-ref _%__splice196661196662%_ '1))) - (_%target196203196237%_ + (##vector-ref _%__splice196698196699%_ '1))) + (_%target196240196274%_ (let () (declare (not safe)) - (##vector-ref _%__splice196661196662%_ '0)))) + (##vector-ref _%__splice196698196699%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196205196239%_)) - (_%__match196720196721%_ - _%e196174196303%_ - _%hd196175196306%_ - _%tl196176196308%_ - _%e196177196311%_ - _%hd196178196314%_ - _%tl196179196316%_ - _%__splice196661196662%_ - _%target196203196237%_ - _%tl196205196239%_) - (let () (declare (not safe)) (_%g196170196216%_))))) - (let () (declare (not safe)) (_%g196170196216%_)))) + (gx#stx-null? _%tl196242196276%_)) + (_%__match196757196758%_ + _%e196211196340%_ + _%hd196212196343%_ + _%tl196213196345%_ + _%e196214196348%_ + _%hd196215196351%_ + _%tl196216196353%_ + _%__splice196698196699%_ + _%target196240196274%_ + _%tl196242196276%_) + (let () (declare (not safe)) (_%g196207196253%_))))) + (let () (declare (not safe)) (_%g196207196253%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196179196316%_)) - (let ((_%__splice196661196662%_ + _%tl196216196353%_)) + (let ((_%__splice196698196699%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196179196316%_ + _%tl196216196353%_ '0)))) - (let ((_%tl196205196239%_ + (let ((_%tl196242196276%_ (let () (declare (not safe)) (##vector-ref - _%__splice196661196662%_ + _%__splice196698196699%_ '1))) - (_%target196203196237%_ + (_%target196240196274%_ (let () (declare (not safe)) (##vector-ref - _%__splice196661196662%_ + _%__splice196698196699%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196205196239%_)) - (_%__match196720196721%_ - _%e196174196303%_ - _%hd196175196306%_ - _%tl196176196308%_ - _%e196177196311%_ - _%hd196178196314%_ - _%tl196179196316%_ - _%__splice196661196662%_ - _%target196203196237%_ - _%tl196205196239%_) + _%tl196242196276%_)) + (_%__match196757196758%_ + _%e196211196340%_ + _%hd196212196343%_ + _%tl196213196345%_ + _%e196214196348%_ + _%hd196215196351%_ + _%tl196216196353%_ + _%__splice196698196699%_ + _%target196240196274%_ + _%tl196242196276%_) (let () (declare (not safe)) - (_%g196170196216%_))))) + (_%g196207196253%_))))) (let () (declare (not safe)) - (_%g196170196216%_)))) + (_%g196207196253%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196179196316%_)) - (let ((_%__splice196661196662%_ + _%tl196216196353%_)) + (let ((_%__splice196698196699%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196179196316%_ + _%tl196216196353%_ '0)))) - (let ((_%tl196205196239%_ + (let ((_%tl196242196276%_ (let () (declare (not safe)) (##vector-ref - _%__splice196661196662%_ + _%__splice196698196699%_ '1))) - (_%target196203196237%_ + (_%target196240196274%_ (let () (declare (not safe)) (##vector-ref - _%__splice196661196662%_ + _%__splice196698196699%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196205196239%_)) - (_%__match196720196721%_ - _%e196174196303%_ - _%hd196175196306%_ - _%tl196176196308%_ - _%e196177196311%_ - _%hd196178196314%_ - _%tl196179196316%_ - _%__splice196661196662%_ - _%target196203196237%_ - _%tl196205196239%_) + _%tl196242196276%_)) + (_%__match196757196758%_ + _%e196211196340%_ + _%hd196212196343%_ + _%tl196213196345%_ + _%e196214196348%_ + _%hd196215196351%_ + _%tl196216196353%_ + _%__splice196698196699%_ + _%target196240196274%_ + _%tl196242196276%_) (let () (declare (not safe)) - (_%g196170196216%_))))) + (_%g196207196253%_))))) (let () (declare (not safe)) - (_%g196170196216%_)))))) + (_%g196207196253%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196179196316%_)) - (let ((_%__splice196661196662%_ + (gx#stx-pair/null? _%tl196216196353%_)) + (let ((_%__splice196698196699%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196179196316%_ + _%tl196216196353%_ '0)))) - (let ((_%tl196205196239%_ + (let ((_%tl196242196276%_ (let () (declare (not safe)) (##vector-ref - _%__splice196661196662%_ + _%__splice196698196699%_ '1))) - (_%target196203196237%_ + (_%target196240196274%_ (let () (declare (not safe)) (##vector-ref - _%__splice196661196662%_ + _%__splice196698196699%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196205196239%_)) - (_%__match196720196721%_ - _%e196174196303%_ - _%hd196175196306%_ - _%tl196176196308%_ - _%e196177196311%_ - _%hd196178196314%_ - _%tl196179196316%_ - _%__splice196661196662%_ - _%target196203196237%_ - _%tl196205196239%_) + _%tl196242196276%_)) + (_%__match196757196758%_ + _%e196211196340%_ + _%hd196212196343%_ + _%tl196213196345%_ + _%e196214196348%_ + _%hd196215196351%_ + _%tl196216196353%_ + _%__splice196698196699%_ + _%target196240196274%_ + _%tl196242196276%_) (let () (declare (not safe)) - (_%g196170196216%_))))) + (_%g196207196253%_))))) (let () (declare (not safe)) - (_%g196170196216%_)))))) - (let () (declare (not safe)) (_%g196170196216%_))))) - (let () (declare (not safe)) (_%g196170196216%_)))))))) + (_%g196207196253%_)))))) + (let () (declare (not safe)) (_%g196207196253%_))))) + (let () (declare (not safe)) (_%g196207196253%_)))))))) (define gxc#!procedure::optimize-call - (lambda (_%self192545196126%_ _%ctx196128%_ _%stx196129%_ _%args196130%_) - (let* ((_%self196132%_ _%self192545196126%_) - (_%self196134%_ _%self196132%_)) - (if (let ((__method197302 + (lambda (_%self192582196163%_ _%ctx196165%_ _%stx196166%_ _%args196167%_) + (let* ((_%self196169%_ _%self192582196163%_) + (_%self196171%_ _%self196169%_)) + (if (let ((__method197339 (let () (declare (not safe)) - (__method-ref _%self196134%_ 'check-arguments)))) - (if __method197302 + (__method-ref _%self196171%_ 'check-arguments)))) + (if __method197339 (let () (declare (not safe)) - (__method197302 - _%self196134%_ - _%ctx196128%_ - _%stx196129%_ - _%args196130%_)) + (__method197339 + _%self196171%_ + _%ctx196165%_ + _%stx196166%_ + _%args196167%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self196134%_ + _%self196171%_ 'check-arguments)) '#!void))) - (let* ((_%signature196144%_ + (let* ((_%signature196181%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196134%_ '2 '#f '#f))) - (_%signature196146%_ _%signature196144%_) - (_%$e196156%_ - (if _%signature196146%_ + (##unchecked-structure-ref _%self196171%_ '2 '#f '#f))) + (_%signature196183%_ _%signature196181%_) + (_%$e196193%_ + (if _%signature196183%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196146%_ + _%signature196183%_ '4 '#f '#f)) '#f))) - (if _%$e196156%_ - ((lambda (_%unchecked196159%_) + (if _%$e196193%_ + ((lambda (_%unchecked196196%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%unchecked196159%_)) - (let ((__tmp197324 + (gxc#symbol-in-local-scope? _%unchecked196196%_)) + (let ((__tmp197361 (cons '%#call (cons (cons '%#ref - (cons _%unchecked196159%_ + (cons _%unchecked196196%_ '())) - (map (lambda (_%g196160196162%_) + (map (lambda (_%g196197196199%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx196128%_ - _%g196160196162%_))) - _%args196130%_))))) + _%ctx196165%_ + _%g196197196199%_))) + _%args196167%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197324 - _%stx196129%_ - _%ctx196128%_)) + __tmp197361 + _%stx196166%_ + _%ctx196165%_)) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196128%_ _%stx196129%_)))) - _%$e196156%_) + (gxc#xform-call% _%ctx196165%_ _%stx196166%_)))) + _%$e196193%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196128%_ _%stx196129%_)))) + (gxc#xform-call% _%ctx196165%_ _%stx196166%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196128%_ _%stx196129%_)))))) + (gxc#xform-call% _%ctx196165%_ _%stx196166%_)))))) (define gxc#!procedure::optimize-call::specialize - (lambda (__klass196586 __method-table196587) - (let ((__check-arguments196588 - (let ((__tmp197325 + (lambda (__klass196623 __method-table196624) + (let ((__check-arguments196625 + (let ((__tmp197362 (lambda () - (let ((__method196589 + (let ((__method196626 (let () (declare (not safe)) (symbolic-table-ref - __method-table196587 + __method-table196624 'check-arguments '#f)))) - (if __method196589 - __method196589 + (if __method196626 + __method196626 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197325)))) - (lambda (_%self192545196126%_ - _%ctx196128%_ - _%stx196129%_ - _%args196130%_) - (let* ((_%self196132%_ _%self192545196126%_) - (_%self196134%_ _%self196132%_)) - (if ((force __check-arguments196588) - _%self196134%_ - _%ctx196128%_ - _%stx196129%_ - _%args196130%_) - (let* ((_%signature196144%_ + (__make-promise __tmp197362)))) + (lambda (_%self192582196163%_ + _%ctx196165%_ + _%stx196166%_ + _%args196167%_) + (let* ((_%self196169%_ _%self192582196163%_) + (_%self196171%_ _%self196169%_)) + (if ((force __check-arguments196625) + _%self196171%_ + _%ctx196165%_ + _%stx196166%_ + _%args196167%_) + (let* ((_%signature196181%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self196134%_ + _%self196171%_ '2 '#f '#f))) - (_%signature196146%_ _%signature196144%_) - (_%$e196156%_ - (if _%signature196146%_ + (_%signature196183%_ _%signature196181%_) + (_%$e196193%_ + (if _%signature196183%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196146%_ + _%signature196183%_ '4 '#f '#f)) '#f))) - (if _%$e196156%_ - ((lambda (_%unchecked196159%_) + (if _%$e196193%_ + ((lambda (_%unchecked196196%_) (if (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%unchecked196159%_)) - (let ((__tmp197326 + _%unchecked196196%_)) + (let ((__tmp197363 (cons '%#call (cons (cons '%#ref - (cons _%unchecked196159%_ + (cons _%unchecked196196%_ '())) - (map (lambda (_%g196160196162%_) + (map (lambda (_%g196197196199%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx196128%_ - _%g196160196162%_))) - _%args196130%_))))) + _%ctx196165%_ + _%g196197196199%_))) + _%args196167%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197326 - _%stx196129%_ - _%ctx196128%_)) + __tmp197363 + _%stx196166%_ + _%ctx196165%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx196128%_ - _%stx196129%_)))) - _%$e196156%_) + _%ctx196165%_ + _%stx196166%_)))) + _%$e196193%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196128%_ _%stx196129%_)))) + (gxc#xform-call% _%ctx196165%_ _%stx196166%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196128%_ _%stx196129%_)))))))) + (gxc#xform-call% _%ctx196165%_ _%stx196166%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -1229,136 +1229,136 @@ gxc#!procedure::optimize-call '#f)) (define gxc#!procedure::check-arguments - (lambda (_%self192546195875%_ _%ctx195877%_ _%stx195878%_ _%args195879%_) - (let* ((_%self195881%_ _%self192546195875%_) - (_%self195883%_ _%self195881%_) - (_%signature195892195894%_ + (lambda (_%self192583195912%_ _%ctx195914%_ _%stx195915%_ _%args195916%_) + (let* ((_%self195918%_ _%self192583195912%_) + (_%self195920%_ _%self195918%_) + (_%signature195929195931%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self195883%_ '2 '#f '#f)))) - (if _%signature195892195894%_ - (let* ((_%signature195897%_ _%signature195892195894%_) - (_%argument-types195898195900%_ + (##unchecked-structure-ref _%self195920%_ '2 '#f '#f)))) + (if _%signature195929195931%_ + (let* ((_%signature195934%_ _%signature195929195931%_) + (_%argument-types195935195937%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature195897%_ + _%signature195934%_ '3 '#f '#f)))) - (if _%argument-types195898195900%_ - (let* ((_%argument-types195903%_ - _%argument-types195898195900%_) - (_%argument-types195908%_ - (let ((__tmp197327 - (lambda (_%t195906%_) - (if _%t195906%_ + (if _%argument-types195935195937%_ + (let* ((_%argument-types195940%_ + _%argument-types195935195937%_) + (_%argument-types195945%_ + (let ((__tmp197364 + (lambda (_%t195943%_) + (if _%t195943%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195878%_ - _%t195906%_)) + _%stx195915%_ + _%t195943%_)) '#f)))) (declare (not safe)) (gxc#map* - __tmp197327 - _%argument-types195903%_)))) - (let _%loop195910%_ ((_%rest-args195912%_ _%args195879%_) - (_%rest-types195913%_ - _%argument-types195908%_) - (_%result195914%_ '#t)) - (let* ((_%rest-args195915195923%_ _%rest-args195912%_) - (_%else195917195931%_ - (lambda () _%result195914%_)) - (_%K195919195992%_ - (lambda (_%rest-args195934%_ _%arg195935%_) - (let* ((_%rest-types195936195947%_ - _%rest-types195913%_) - (_%E195940195951%_ + __tmp197364 + _%argument-types195940%_)))) + (let _%loop195947%_ ((_%rest-args195949%_ _%args195916%_) + (_%rest-types195950%_ + _%argument-types195945%_) + (_%result195951%_ '#t)) + (let* ((_%rest-args195952195960%_ _%rest-args195949%_) + (_%else195954195968%_ + (lambda () _%result195951%_)) + (_%K195956196029%_ + (lambda (_%rest-args195971%_ _%arg195972%_) + (let* ((_%rest-types195973195984%_ + _%rest-types195950%_) + (_%E195977195988%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-types195936195947%_ + _%rest-types195973195984%_ '([type . rest-types]) '([]) '(tail-type))) '#!void))) - (let ((_%K195943195980%_ - (lambda (_%rest-types195977%_ - _%type195978%_) - (_%loop195910%_ - _%rest-args195934%_ - _%rest-types195977%_ + (let ((_%K195980196017%_ + (lambda (_%rest-types196014%_ + _%type196015%_) + (_%loop195947%_ + _%rest-args195971%_ + _%rest-types196014%_ (if (gxc#check-expression-type! - _%stx195878%_ - _%arg195935%_ - _%type195978%_) - _%result195914%_ + _%stx195915%_ + _%arg195972%_ + _%type196015%_) + _%result195951%_ '#f)))) - (_%K195942195971%_ + (_%K195979196008%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"signature arity mismatch" - _%stx195878%_ - _%argument-types195908%_)))) - (_%K195941195961%_ - (lambda (_%tail-type195955%_) - (if (let ((__tmp197328 - (lambda (_%g195956195958%_) + _%stx195915%_ + _%argument-types195945%_)))) + (_%K195978195998%_ + (lambda (_%tail-type195992%_) + (if (let ((__tmp197365 + (lambda (_%g195993195995%_) (gxc#check-expression-type! - _%stx195878%_ - _%g195956195958%_ - _%tail-type195955%_)))) + _%stx195915%_ + _%g195993195995%_ + _%tail-type195992%_)))) (declare (not safe)) (__andmap1 - __tmp197328 - _%rest-args195934%_)) - _%result195914%_ + __tmp197365 + _%rest-args195971%_)) + _%result195951%_ '#f)))) - (let ((_%try-match195938195974%_ + (let ((_%try-match195975196011%_ (lambda () - (if (null? _%rest-types195936195947%_) - (_%K195942195971%_) - (let ((_%tail-type195964%_ - _%rest-types195936195947%_)) - (_%K195941195961%_ - _%tail-type195964%_)))))) - (if (pair? _%rest-types195936195947%_) - (let ((_%tl195945195985%_ + (if (null? _%rest-types195973195984%_) + (_%K195979196008%_) + (let ((_%tail-type196001%_ + _%rest-types195973195984%_)) + (_%K195978195998%_ + _%tail-type196001%_)))))) + (if (pair? _%rest-types195973195984%_) + (let ((_%tl195982196022%_ (let () (declare (not safe)) - (##cdr _%rest-types195936195947%_))) - (_%hd195944195983%_ + (##cdr _%rest-types195973195984%_))) + (_%hd195981196020%_ (let () (declare (not safe)) - (##car _%rest-types195936195947%_)))) - (let ((_%type195988%_ - _%hd195944195983%_) - (_%rest-types195990%_ - _%tl195945195985%_)) - (_%K195943195980%_ - _%rest-types195990%_ - _%type195988%_))) - (_%try-match195938195974%_)))))))) - (if (pair? _%rest-args195915195923%_) - (let ((_%hd195920195995%_ + (##car _%rest-types195973195984%_)))) + (let ((_%type196025%_ + _%hd195981196020%_) + (_%rest-types196027%_ + _%tl195982196022%_)) + (_%K195980196017%_ + _%rest-types196027%_ + _%type196025%_))) + (_%try-match195975196011%_)))))))) + (if (pair? _%rest-args195952195960%_) + (let ((_%hd195957196032%_ (let () (declare (not safe)) - (##car _%rest-args195915195923%_))) - (_%tl195921195997%_ + (##car _%rest-args195952195960%_))) + (_%tl195958196034%_ (let () (declare (not safe)) - (##cdr _%rest-args195915195923%_)))) - (let* ((_%arg196000%_ _%hd195920195995%_) - (_%rest-args196002%_ - _%tl195921195997%_)) - (_%K195919195992%_ - _%rest-args196002%_ - _%arg196000%_))) - (_%else195917195931%_))))) + (##cdr _%rest-args195952195960%_)))) + (let* ((_%arg196037%_ _%hd195957196032%_) + (_%rest-args196039%_ + _%tl195958196034%_)) + (_%K195956196029%_ + _%rest-args196039%_ + _%arg196037%_))) + (_%else195954195968%_))))) '#f)) '#f)))) (let () @@ -1369,94 +1369,94 @@ gxc#!procedure::check-arguments '#f)) (define gxc#!primitive-predicate::optimize-call - (lambda (_%self192547195684%_ _%ctx195686%_ _%stx195687%_ _%args195688%_) - (let* ((_%self195690%_ _%self192547195684%_) - (_%self195692%_ _%self195690%_) - (_%g195702195712%_ - (lambda (_%g195703195709%_) + (lambda (_%self192584195721%_ _%ctx195723%_ _%stx195724%_ _%args195725%_) + (let* ((_%self195727%_ _%self192584195721%_) + (_%self195729%_ _%self195727%_) + (_%g195739195749%_ + (lambda (_%g195740195746%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g195703195709%_)))) - (_%g195701195750%_ - (lambda (_%g195703195715%_) + _%g195740195746%_)))) + (_%g195738195787%_ + (lambda (_%g195740195752%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g195703195715%_)) - (let ((_%e195705195717%_ + (gx#stx-pair? _%g195740195752%_)) + (let ((_%e195742195754%_ (let () (declare (not safe)) - (gx#stx-e _%g195703195715%_)))) - (let ((_%hd195706195720%_ + (gx#stx-e _%g195740195752%_)))) + (let ((_%hd195743195757%_ (let () (declare (not safe)) - (##car _%e195705195717%_))) - (_%tl195707195722%_ + (##car _%e195742195754%_))) + (_%tl195744195759%_ (let () (declare (not safe)) - (##cdr _%e195705195717%_)))) + (##cdr _%e195742195754%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195707195722%_)) - ((lambda (_%L195725%_) - (let* ((_%klass195737%_ - (let ((__tmp197329 + (gx#stx-null? _%tl195744195759%_)) + ((lambda (_%L195762%_) + (let* ((_%klass195774%_ + (let ((__tmp197366 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195692%_ + _%self195729%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195687%_ - __tmp197329))) - (_%object195739%_ + _%stx195724%_ + __tmp197366))) + (_%object195776%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195686%_ - _%L195725%_))) - (_%instance?195744%_ - (let ((_%$e195741%_ + _%ctx195723%_ + _%L195762%_))) + (_%instance?195781%_ + (let ((_%$e195778%_ (gxc#expression-type? - _%object195739%_ - _%klass195737%_))) - (if _%$e195741%_ - _%$e195741%_ + _%object195776%_ + _%klass195774%_))) + (if _%$e195778%_ + _%$e195778%_ (gxc#expression-type? - _%L195725%_ - _%klass195737%_))))) - (if _%instance?195744%_ - (let ((__tmp197330 + _%L195762%_ + _%klass195774%_))))) + (if _%instance?195781%_ + (let ((__tmp197367 (if (or (gxc#expression-no-side-effects? - _%object195739%_) + _%object195776%_) (gxc#expression-no-side-effects? - _%L195725%_)) + _%L195762%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object195739%_ + (cons _%object195776%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197330 - _%stx195687%_)) + __tmp197367 + _%stx195724%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx195686%_ - _%stx195687%_))))) - _%hd195706195720%_) - (_%g195702195712%_ _%g195703195715%_)))) - (_%g195702195712%_ _%g195703195715%_))))) - (_%g195701195750%_ _%args195688%_)))) + _%ctx195723%_ + _%stx195724%_))))) + _%hd195743195757%_) + (_%g195739195749%_ _%g195740195752%_)))) + (_%g195739195749%_ _%g195740195752%_))))) + (_%g195738195787%_ _%args195725%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1465,137 +1465,137 @@ gxc#!primitive-predicate::optimize-call '#f)) (define gxc#!predicate::optimize-call - (lambda (_%self192548195478%_ _%ctx195480%_ _%stx195481%_ _%args195482%_) - (let* ((_%self195484%_ _%self192548195478%_) - (_%self195486%_ _%self195484%_) - (_%g195496195506%_ - (lambda (_%g195497195503%_) + (lambda (_%self192585195515%_ _%ctx195517%_ _%stx195518%_ _%args195519%_) + (let* ((_%self195521%_ _%self192585195515%_) + (_%self195523%_ _%self195521%_) + (_%g195533195543%_ + (lambda (_%g195534195540%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g195497195503%_)))) - (_%g195495195559%_ - (lambda (_%g195497195509%_) + _%g195534195540%_)))) + (_%g195532195596%_ + (lambda (_%g195534195546%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g195497195509%_)) - (let ((_%e195499195511%_ + (gx#stx-pair? _%g195534195546%_)) + (let ((_%e195536195548%_ (let () (declare (not safe)) - (gx#stx-e _%g195497195509%_)))) - (let ((_%hd195500195514%_ + (gx#stx-e _%g195534195546%_)))) + (let ((_%hd195537195551%_ (let () (declare (not safe)) - (##car _%e195499195511%_))) - (_%tl195501195516%_ + (##car _%e195536195548%_))) + (_%tl195538195553%_ (let () (declare (not safe)) - (##cdr _%e195499195511%_)))) + (##cdr _%e195536195548%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195501195516%_)) - ((lambda (_%L195519%_) - (let* ((_%klass195531%_ - (let ((__tmp197331 + (gx#stx-null? _%tl195538195553%_)) + ((lambda (_%L195556%_) + (let* ((_%klass195568%_ + (let ((__tmp197368 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195486%_ + _%self195523%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195481%_ - __tmp197331))) - (_%object195533%_ + _%stx195518%_ + __tmp197368))) + (_%object195570%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195480%_ - _%L195519%_))) - (_%instance?195538%_ - (let ((_%$e195535%_ + _%ctx195517%_ + _%L195556%_))) + (_%instance?195575%_ + (let ((_%$e195572%_ (gxc#expression-type? - _%object195533%_ - _%klass195531%_))) - (if _%$e195535%_ - _%$e195535%_ + _%object195570%_ + _%klass195568%_))) + (if _%$e195572%_ + _%$e195572%_ (gxc#expression-type? - _%L195519%_ - _%klass195531%_)))) - (_%klass195541%_ _%klass195531%_)) - (if _%instance?195538%_ - (let ((__tmp197332 + _%L195556%_ + _%klass195568%_)))) + (_%klass195578%_ _%klass195568%_)) + (if _%instance?195575%_ + (let ((__tmp197369 (if (or (gxc#expression-no-side-effects? - _%object195533%_) + _%object195570%_) (gxc#expression-no-side-effects? - _%L195519%_)) + _%L195556%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object195533%_ + (cons _%object195570%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197332 - _%stx195481%_)) + __tmp197369 + _%stx195518%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195541%_ + _%klass195578%_ '8 '#f '#f)) - (let ((__tmp197333 + (let ((__tmp197370 (cons '%#struct-direct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195541%_ + _%klass195578%_ '1 '#f '#f)) '())) - (cons _%object195533%_ '()))))) + (cons _%object195570%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197333 - _%stx195481%_)) + __tmp197370 + _%stx195518%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195541%_ + _%klass195578%_ '7 '#f '#f)) - (let ((__tmp197334 + (let ((__tmp197371 (cons '%#struct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195541%_ + _%klass195578%_ '1 '#f '#f)) '())) - (cons _%object195533%_ '()))))) + (cons _%object195570%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197334 - _%stx195481%_)) - (let ((__tmp197335 + __tmp197371 + _%stx195518%_)) + (let ((__tmp197372 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1604,21 +1604,21 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self195486%_ + _%self195523%_ '1 '#f '#f)) '())) - (cons _%object195533%_ '())))))) + (cons _%object195570%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197335 - _%stx195481%_))))))) - _%hd195500195514%_) - (_%g195496195506%_ _%g195497195509%_)))) - (_%g195496195506%_ _%g195497195509%_))))) - (_%g195495195559%_ _%args195482%_)))) + __tmp197372 + _%stx195518%_))))))) + _%hd195537195551%_) + (_%g195533195543%_ _%g195534195546%_)))) + (_%g195533195543%_ _%g195534195546%_))))) + (_%g195532195596%_ _%args195519%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1627,419 +1627,419 @@ gxc#!predicate::optimize-call '#f)) (define gxc#expression-no-side-effects? - (lambda (_%stx195141%_) - (let* ((_%__stx196730196731%_ _%stx195141%_) - (_%g195146195187%_ + (lambda (_%stx195178%_) + (let* ((_%__stx196767196768%_ _%stx195178%_) + (_%g195183195224%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196730196731%_))))) - (let ((_%__kont196732196733%_ (lambda () '#t)) - (_%__kont196734196735%_ (lambda () '#t)) - (_%__kont196736196737%_ - (lambda (_%L195255%_ _%L195256%_) - (let ((_%rator-type195277195279%_ - (let ((__tmp197336 + _%__stx196767196768%_))))) + (let ((_%__kont196769196770%_ (lambda () '#t)) + (_%__kont196771196772%_ (lambda () '#t)) + (_%__kont196773196774%_ + (lambda (_%L195292%_ _%L195293%_) + (let ((_%rator-type195314195316%_ + (let ((__tmp197373 (let () (declare (not safe)) - (gxc#identifier-symbol _%L195256%_)))) + (gxc#identifier-symbol _%L195293%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp197336)))) - (if _%rator-type195277195279%_ - (let* ((_%rator-type195282%_ - _%rator-type195277195279%_) - (_%rator-signature195283195285%_ + (gxc#optimizer-resolve-type __tmp197373)))) + (if _%rator-type195314195316%_ + (let* ((_%rator-type195319%_ + _%rator-type195314195316%_) + (_%rator-signature195320195322%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type195282%_ + _%rator-type195319%_ 'gxc#!procedure::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type195282%_ + _%rator-type195319%_ '2 '#f '#f)) '#f))) - (if _%rator-signature195283195285%_ - (let* ((_%rator-signature195288%_ - _%rator-signature195283195285%_) - (_%rator-effect195289195291%_ - (if _%rator-signature195288%_ + (if _%rator-signature195320195322%_ + (let* ((_%rator-signature195325%_ + _%rator-signature195320195322%_) + (_%rator-effect195326195328%_ + (if _%rator-signature195325%_ (##direct-structure-ref - _%rator-signature195288%_ + _%rator-signature195325%_ '2 gxc#!signature::t '#f) '#f))) - (if _%rator-effect195289195291%_ - (let ((_%rator-effect195294%_ - _%rator-effect195289195291%_)) + (if _%rator-effect195326195328%_ + (let ((_%rator-effect195331%_ + _%rator-effect195326195328%_)) (if (or (equal? '(pure) - _%rator-effect195294%_) + _%rator-effect195331%_) (equal? '(alloc) - _%rator-effect195294%_)) - (let ((__tmp197337 - (let ((__tmp197338 - (lambda (_%g195299195302%_ + _%rator-effect195331%_)) + (let ((__tmp197374 + (let ((__tmp197375 + (lambda (_%g195336195339%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g195300195304%_) - (cons _%g195299195302%_ _%g195300195304%_)))) + _%g195337195341%_) + (cons _%g195336195339%_ _%g195337195341%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp197338 + __tmp197375 '() - _%L195255%_)))) + _%L195292%_)))) (declare (not safe)) (__andmap1 gxc#expression-no-side-effects? - __tmp197337)) + __tmp197374)) '#f)) '#f)) '#f)) '#f)))) - (_%__kont196740196741%_ (lambda () '#f))) - (let ((_%__match196819196820%_ - (lambda (_%e195162195199%_ - _%hd195163195202%_ - _%tl195164195204%_ - _%e195165195207%_ - _%hd195166195210%_ - _%tl195167195212%_ - _%e195168195215%_ - _%hd195169195218%_ - _%tl195170195220%_ - _%e195171195223%_ - _%hd195172195226%_ - _%tl195173195228%_ - _%__splice196738196739%_ - _%target195174195231%_ - _%tl195176195233%_) - (letrec ((_%loop195177195236%_ - (lambda (_%hd195175195239%_ - _%rand195181195241%_) + (_%__kont196777196778%_ (lambda () '#f))) + (let ((_%__match196856196857%_ + (lambda (_%e195199195236%_ + _%hd195200195239%_ + _%tl195201195241%_ + _%e195202195244%_ + _%hd195203195247%_ + _%tl195204195249%_ + _%e195205195252%_ + _%hd195206195255%_ + _%tl195207195257%_ + _%e195208195260%_ + _%hd195209195263%_ + _%tl195210195265%_ + _%__splice196775196776%_ + _%target195211195268%_ + _%tl195213195270%_) + (letrec ((_%loop195214195273%_ + (lambda (_%hd195212195276%_ + _%rand195218195278%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd195175195239%_)) - (let ((_%e195178195244%_ + (gx#stx-pair? _%hd195212195276%_)) + (let ((_%e195215195281%_ (let () (declare (not safe)) - (gx#stx-e _%hd195175195239%_)))) - (let ((_%lp-tl195180195249%_ + (gx#stx-e _%hd195212195276%_)))) + (let ((_%lp-tl195217195286%_ (let () (declare (not safe)) - (##cdr _%e195178195244%_))) - (_%lp-hd195179195247%_ + (##cdr _%e195215195281%_))) + (_%lp-hd195216195284%_ (let () (declare (not safe)) - (##car _%e195178195244%_)))) - (_%loop195177195236%_ - _%lp-tl195180195249%_ - (cons _%lp-hd195179195247%_ - _%rand195181195241%_)))) - (let ((_%rand195182195252%_ - (reverse _%rand195181195241%_))) - (_%__kont196736196737%_ - _%rand195182195252%_ - _%hd195172195226%_)))))) - (_%loop195177195236%_ _%target195174195231%_ '()))))) + (##car _%e195215195281%_)))) + (_%loop195214195273%_ + _%lp-tl195217195286%_ + (cons _%lp-hd195216195284%_ + _%rand195218195278%_)))) + (let ((_%rand195219195289%_ + (reverse _%rand195218195278%_))) + (_%__kont196773196774%_ + _%rand195219195289%_ + _%hd195209195263%_)))))) + (_%loop195214195273%_ _%target195211195268%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196730196731%_)) - (let ((_%e195148195335%_ + (gx#stx-pair? _%__stx196767196768%_)) + (let ((_%e195185195372%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196730196731%_)))) - (let ((_%tl195150195340%_ + (gx#stx-e _%__stx196767196768%_)))) + (let ((_%tl195187195377%_ (let () (declare (not safe)) - (##cdr _%e195148195335%_))) - (_%hd195149195338%_ + (##cdr _%e195185195372%_))) + (_%hd195186195375%_ (let () (declare (not safe)) - (##car _%e195148195335%_)))) + (##car _%e195185195372%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd195149195338%_)) + (gx#identifier? _%hd195186195375%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd195149195338%_)) + (gx#stx-eq? '%#quote _%hd195186195375%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195150195340%_)) - (let ((_%e195151195343%_ + (gx#stx-pair? _%tl195187195377%_)) + (let ((_%e195188195380%_ (let () (declare (not safe)) - (gx#stx-e _%tl195150195340%_)))) - (let ((_%tl195153195348%_ + (gx#stx-e _%tl195187195377%_)))) + (let ((_%tl195190195385%_ (let () (declare (not safe)) - (##cdr _%e195151195343%_))) - (_%hd195152195346%_ + (##cdr _%e195188195380%_))) + (_%hd195189195383%_ (let () (declare (not safe)) - (##car _%e195151195343%_)))) + (##car _%e195188195380%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195153195348%_)) - (_%__kont196732196733%_) - (_%__kont196740196741%_)))) - (_%__kont196740196741%_)) + (gx#stx-null? _%tl195190195385%_)) + (_%__kont196769196770%_) + (_%__kont196777196778%_)))) + (_%__kont196777196778%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd195149195338%_)) + (gx#stx-eq? '%#ref _%hd195186195375%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195150195340%_)) - (let ((_%e195157195320%_ + (gx#stx-pair? _%tl195187195377%_)) + (let ((_%e195194195357%_ (let () (declare (not safe)) - (gx#stx-e _%tl195150195340%_)))) - (let ((_%tl195159195325%_ + (gx#stx-e _%tl195187195377%_)))) + (let ((_%tl195196195362%_ (let () (declare (not safe)) - (##cdr _%e195157195320%_))) - (_%hd195158195323%_ + (##cdr _%e195194195357%_))) + (_%hd195195195360%_ (let () (declare (not safe)) - (##car _%e195157195320%_)))) + (##car _%e195194195357%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195159195325%_)) - (_%__kont196734196735%_) - (_%__kont196740196741%_)))) - (_%__kont196740196741%_)) + _%tl195196195362%_)) + (_%__kont196771196772%_) + (_%__kont196777196778%_)))) + (_%__kont196777196778%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd195149195338%_)) + _%hd195186195375%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195150195340%_)) - (let ((_%e195165195207%_ + (gx#stx-pair? _%tl195187195377%_)) + (let ((_%e195202195244%_ (let () (declare (not safe)) (gx#stx-e - _%tl195150195340%_)))) - (let ((_%tl195167195212%_ + _%tl195187195377%_)))) + (let ((_%tl195204195249%_ (let () (declare (not safe)) - (##cdr _%e195165195207%_))) - (_%hd195166195210%_ + (##cdr _%e195202195244%_))) + (_%hd195203195247%_ (let () (declare (not safe)) - (##car _%e195165195207%_)))) + (##car _%e195202195244%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd195166195210%_)) - (let ((_%e195168195215%_ + _%hd195203195247%_)) + (let ((_%e195205195252%_ (let () (declare (not safe)) (gx#stx-e - _%hd195166195210%_)))) - (let ((_%tl195170195220%_ + _%hd195203195247%_)))) + (let ((_%tl195207195257%_ (let () (declare (not safe)) - (##cdr _%e195168195215%_))) - (_%hd195169195218%_ + (##cdr _%e195205195252%_))) + (_%hd195206195255%_ (let () (declare (not safe)) - (##car _%e195168195215%_)))) + (##car _%e195205195252%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd195169195218%_)) + _%hd195206195255%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd195169195218%_)) + (gx#stx-eq? '%#ref _%hd195206195255%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195170195220%_)) - (let ((_%e195171195223%_ + (gx#stx-pair? _%tl195207195257%_)) + (let ((_%e195208195260%_ (let () (declare (not safe)) - (gx#stx-e _%tl195170195220%_)))) - (let ((_%tl195173195228%_ + (gx#stx-e _%tl195207195257%_)))) + (let ((_%tl195210195265%_ (let () (declare (not safe)) - (##cdr _%e195171195223%_))) - (_%hd195172195226%_ + (##cdr _%e195208195260%_))) + (_%hd195209195263%_ (let () (declare (not safe)) - (##car _%e195171195223%_)))) + (##car _%e195208195260%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195173195228%_)) + (gx#stx-null? _%tl195210195265%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl195167195212%_)) - (let ((_%__splice196738196739%_ + (gx#stx-pair/null? _%tl195204195249%_)) + (let ((_%__splice196775196776%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl195167195212%_ + _%tl195204195249%_ '0)))) - (let ((_%tl195176195233%_ + (let ((_%tl195213195270%_ (let () (declare (not safe)) (##vector-ref - _%__splice196738196739%_ + _%__splice196775196776%_ '1))) - (_%target195174195231%_ + (_%target195211195268%_ (let () (declare (not safe)) (##vector-ref - _%__splice196738196739%_ + _%__splice196775196776%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195176195233%_)) - (_%__match196819196820%_ - _%e195148195335%_ - _%hd195149195338%_ - _%tl195150195340%_ - _%e195165195207%_ - _%hd195166195210%_ - _%tl195167195212%_ - _%e195168195215%_ - _%hd195169195218%_ - _%tl195170195220%_ - _%e195171195223%_ - _%hd195172195226%_ - _%tl195173195228%_ - _%__splice196738196739%_ - _%target195174195231%_ - _%tl195176195233%_) - (_%__kont196740196741%_)))) - (_%__kont196740196741%_)) - (_%__kont196740196741%_)))) - (_%__kont196740196741%_)) - (_%__kont196740196741%_)) - (_%__kont196740196741%_)))) + _%tl195213195270%_)) + (_%__match196856196857%_ + _%e195185195372%_ + _%hd195186195375%_ + _%tl195187195377%_ + _%e195202195244%_ + _%hd195203195247%_ + _%tl195204195249%_ + _%e195205195252%_ + _%hd195206195255%_ + _%tl195207195257%_ + _%e195208195260%_ + _%hd195209195263%_ + _%tl195210195265%_ + _%__splice196775196776%_ + _%target195211195268%_ + _%tl195213195270%_) + (_%__kont196777196778%_)))) + (_%__kont196777196778%_)) + (_%__kont196777196778%_)))) + (_%__kont196777196778%_)) + (_%__kont196777196778%_)) + (_%__kont196777196778%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196740196741%_)))) - (_%__kont196740196741%_)) - (_%__kont196740196741%_)))) - (_%__kont196740196741%_)))) - (_%__kont196740196741%_))))))) + (_%__kont196777196778%_)))) + (_%__kont196777196778%_)) + (_%__kont196777196778%_)))) + (_%__kont196777196778%_)))) + (_%__kont196777196778%_))))))) (define gxc#expression-type? - (lambda (_%stx195136%_ _%klass195137%_) - (let ((_%expr-type195139%_ + (lambda (_%stx195173%_ _%klass195174%_) + (let ((_%expr-type195176%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%stx195136%_)))) - (if _%expr-type195139%_ + (gxc#apply-basic-expression-type _%stx195173%_)))) + (if _%expr-type195176%_ (let () (declare (not safe)) - (gxc#!type-subtype? _%expr-type195139%_ _%klass195137%_)) + (gxc#!type-subtype? _%expr-type195176%_ _%klass195174%_)) '#f)))) (define gxc#check-expression-type! - (lambda (_%stx195114%_ _%expr195115%_ _%type195116%_) - (if (not _%type195116%_) + (lambda (_%stx195151%_ _%expr195152%_ _%type195153%_) + (if (not _%type195153%_) '#f - (let ((_%$e195119%_ - (eq? (##structure-ref _%type195116%_ '1 gxc#!type::t '#f) + (let ((_%$e195156%_ + (eq? (##structure-ref _%type195153%_ '1 gxc#!type::t '#f) 't))) - (if _%$e195119%_ - _%$e195119%_ - (let ((_%expr-type195123%_ + (if _%$e195156%_ + _%$e195156%_ + (let ((_%expr-type195160%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%expr195115%_)))) - (if (not _%expr-type195123%_) + (gxc#apply-basic-expression-type _%expr195152%_)))) + (if (not _%expr-type195160%_) '#f (if (eq? 't (##structure-ref - _%expr-type195123%_ + _%expr-type195160%_ '1 gxc#!type::t '#f)) '#f - (let ((_%$e195127%_ + (let ((_%$e195164%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type195123%_ + _%expr-type195160%_ 'gxc#!abort::t)))) - (if _%$e195127%_ - _%$e195127%_ - (let ((_%$e195130%_ + (if _%$e195164%_ + _%$e195164%_ + (let ((_%$e195167%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type195123%_ - _%type195116%_)))) - (if _%$e195130%_ - _%$e195130%_ + _%expr-type195160%_ + _%type195153%_)))) + (if _%$e195167%_ + _%$e195167%_ (if (let () (declare (not safe)) (gxc#!interface-instance? - _%type195116%_)) + _%type195153%_)) '#f (if (let () (declare (not safe)) (gxc#!type-subtype? - _%type195116%_ - _%expr-type195123%_)) + _%type195153%_ + _%expr-type195160%_)) '#f (let () (declare (not safe)) (gxc#raise-compile-error '"signature type mismatch" - _%stx195114%_ - _%expr195115%_ - _%expr-type195123%_ - _%type195116%_)))))))))))))))) + _%stx195151%_ + _%expr195152%_ + _%expr-type195160%_ + _%type195153%_)))))))))))))))) (define gxc#!constructor::optimize-call - (lambda (_%self192549194926%_ _%ctx194928%_ _%stx194929%_ _%args194930%_) - (let* ((_%self194932%_ _%self192549194926%_) - (_%self194934%_ _%self194932%_) - (_%klass194944%_ - (let ((__tmp197339 + (lambda (_%self192586194963%_ _%ctx194965%_ _%stx194966%_ _%args194967%_) + (let* ((_%self194969%_ _%self192586194963%_) + (_%self194971%_ _%self194969%_) + (_%klass194981%_ + (let ((__tmp197376 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194934%_ + _%self194971%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx194929%_ __tmp197339))) - (_%fields194946%_ + (gxc#optimizer-resolve-class _%stx194966%_ __tmp197376))) + (_%fields194983%_ (length (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194944%_ + _%klass194981%_ '5 '#f '#f)))) - (_%args194952%_ - (map (lambda (_%g194947194949%_) + (_%args194989%_ + (map (lambda (_%g194984194986%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%ctx194928%_ _%g194947194949%_))) - _%args194930%_)) - (_%inline-make-object194954%_ + (gxc#compile-e__1 _%ctx194965%_ _%g194984194986%_))) + _%args194967%_)) + (_%inline-make-object194991%_ (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194934%_ + _%self194971%_ '1 '#f '#f)) @@ -2052,66 +2052,66 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194934%_ + _%self194971%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (make-list - _%fields194946%_ + _%fields194983%_ '(%#quote #f))))) '())))) - (_%klass194957%_ _%klass194944%_) - (_%$e194971%_ + (_%klass194994%_ _%klass194981%_) + (_%$e195008%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass194957%_ '6 '#f '#f)))) - (if _%$e194971%_ - ((lambda (_%ctor194974%_) - (let ((_%$obj194976%_ - (let ((__tmp197340 + (##unchecked-structure-ref _%klass194994%_ '6 '#f '#f)))) + (if _%$e195008%_ + ((lambda (_%ctor195011%_) + (let ((_%$obj195013%_ + (let ((__tmp197377 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197340))) - (_%ctor-impl194977%_ + (make-symbol__0 __tmp197377))) + (_%ctor-impl195014%_ (let () (declare (not safe)) (gxc#!class-lookup-method - _%klass194957%_ - _%ctor194974%_)))) - (let ((__tmp197341 + _%klass194994%_ + _%ctor195011%_)))) + (let ((__tmp197378 (cons '%#let-values - (cons (cons (cons (cons _%$obj194976%_ '()) - (cons _%inline-make-object194954%_ + (cons (cons (cons (cons _%$obj195013%_ '()) + (cons _%inline-make-object194991%_ '())) '()) (cons (cons '%#begin - (cons (if _%ctor-impl194977%_ - (let ((__tmp197342 + (cons (if _%ctor-impl195014%_ + (let ((__tmp197379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%ctor-impl194977%_ '())) + (cons _%ctor-impl195014%_ '())) (cons (cons '%#ref - (cons _%$obj194976%_ '())) - _%args194952%_))))) + (cons _%$obj195013%_ '())) + _%args194989%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197342 - _%stx194929%_ - _%ctx194928%_)) - (let ((_%$ctor194979%_ - (let ((__tmp197343 + __tmp197379 + _%stx194966%_ + _%ctx194965%_)) + (let ((_%$ctor195016%_ + (let ((__tmp197380 (let () (declare (not safe)) (##gensym '__constructor)))) (declare (not safe)) - (make-symbol__0 __tmp197343)))) + (make-symbol__0 __tmp197380)))) (cons '%#let-values - (cons (cons (cons (cons _%$ctor194979%_ '()) + (cons (cons (cons (cons _%$ctor195016%_ '()) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2120,28 +2120,28 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194934%_ + _%self194971%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194976%_ '())) + (cons (cons '%#ref (cons _%$obj195013%_ '())) (cons (cons '%#quote - (cons _%ctor194974%_ '())) + (cons _%ctor195011%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons '%#if (cons (cons '%#ref - (cons _%$ctor194979%_ + (cons _%$ctor195016%_ '())) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$ctor194979%_ '())) - (cons (cons '%#ref (cons _%$obj194976%_ '())) - _%args194952%_))) + (cons _%$ctor195016%_ '())) + (cons (cons '%#ref (cons _%$obj195013%_ '())) + _%args194989%_))) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote @@ -2154,92 +2154,92 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194934%_ + _%self194971%_ '1 '#f '#f)) '())) (cons (cons '%#quote (cons 'method: '())) - (cons (cons '%#quote (cons _%ctor194974%_ '())) '()))))))) + (cons (cons '%#quote (cons _%ctor195011%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (cons (cons '%#ref (cons _%$obj194976%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj195013%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197341 _%stx194929%_)))) - _%$e194971%_) - (let ((_%$e194981%_ + (gxc#xform-wrap-source __tmp197378 _%stx194966%_)))) + _%$e195008%_) + (let ((_%$e195018%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194957%_ + _%klass194994%_ '10 '#f '#f)))) - (if _%$e194981%_ - ((lambda (_%metaclass194984%_) - (let* ((_%$obj194986%_ - (let ((__tmp197344 + (if _%$e195018%_ + ((lambda (_%metaclass195021%_) + (let* ((_%$obj195023%_ + (let ((__tmp197381 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197344))) - (_%metakons194988%_ - (let ((__tmp197345 + (make-symbol__0 __tmp197381))) + (_%metakons195025%_ + (let ((__tmp197382 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194929%_ - _%metaclass194984%_)))) + _%stx194966%_ + _%metaclass195021%_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp197345 + __tmp197382 'instance-init!))) - (__tmp197346 + (__tmp197383 (cons '%#let-values - (cons (cons (cons (cons _%$obj194986%_ + (cons (cons (cons (cons _%$obj195023%_ '()) - (cons _%inline-make-object194954%_ + (cons _%inline-make-object194991%_ '())) '()) (cons (cons '%#begin - (cons (if _%metakons194988%_ + (cons (if _%metakons195025%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197347 + (let ((__tmp197384 (cons '%#call (cons (cons '%#ref - (cons _%metakons194988%_ + (cons _%metakons195025%_ '())) (cons (cons '%#ref (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194934%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self194971%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj194986%_ + (cons _%$obj195023%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194952%_)))))) + _%args194989%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197347 - _%stx194929%_ - _%ctx194928%_)) + __tmp197384 + _%stx194966%_ + _%ctx194965%_)) (cons '%#call (cons (cons '%#ref (cons 'call-method '())) (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194934%_ + _%self194971%_ '1 '#f '#f)) @@ -2248,38 +2248,38 @@ (cons 'instance-init! '())) (cons (cons '%#ref - (cons _%$obj194986%_ + (cons _%$obj195023%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194952%_)))))) + _%args194989%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#ref (cons _%$obj194986%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj195023%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197346 _%stx194929%_))) - _%$e194981%_) + (gxc#xform-wrap-source __tmp197383 _%stx194966%_))) + _%$e195018%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194957%_ + _%klass194994%_ '7 '#f '#f)) - (if (let ((__tmp197348 + (if (let ((__tmp197385 (let () (declare (not safe)) - (##length _%args194952%_)))) + (##length _%args194989%_)))) (declare (not safe)) - (##fx= __tmp197348 _%fields194946%_)) - (let ((__tmp197349 + (##fx= __tmp197385 _%fields194983%_)) + (let ((__tmp197386 (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194934%_ + _%self194971%_ '1 '#f '#f)) @@ -2292,151 +2292,151 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194934%_ + _%self194971%_ '1 '#f '#f)) '())) - _%args194952%_))) + _%args194989%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp197349 - _%stx194929%_)) - (let ((__tmp197351 + __tmp197386 + _%stx194966%_)) + (let ((__tmp197388 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194934%_ + _%self194971%_ '1 '#f '#f))) - (__tmp197350 + (__tmp197387 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194957%_ + _%klass194994%_ '5 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _%stx194929%_ - __tmp197351 - __tmp197350))) - (let ((_%$obj194993%_ - (let ((__tmp197352 + _%stx194966%_ + __tmp197388 + __tmp197387))) + (let ((_%$obj195030%_ + (let ((__tmp197389 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197352)))) - (let _%lp194995%_ ((_%rest194997%_ _%args194952%_) - (_%initializers194998%_ '())) - (let* ((_%__stx196822196823%_ _%rest194997%_) - (_%g195002195023%_ + (make-symbol__0 __tmp197389)))) + (let _%lp195032%_ ((_%rest195034%_ _%args194989%_) + (_%initializers195035%_ '())) + (let* ((_%__stx196859196860%_ _%rest195034%_) + (_%g195039195060%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196822196823%_))))) - (let ((_%__kont196824196825%_ - (lambda (_%L195077%_ - _%L195078%_ - _%L195079%_) - (let* ((_%slot195106%_ - (let ((__tmp197353 + _%__stx196859196860%_))))) + (let ((_%__kont196861196862%_ + (lambda (_%L195114%_ + _%L195115%_ + _%L195116%_) + (let* ((_%slot195143%_ + (let ((__tmp197390 (let () (declare (not safe)) (gx#stx-e - _%L195079%_)))) + _%L195116%_)))) (declare (not safe)) (keyword->symbol - __tmp197353))) - (_%off195108%_ + __tmp197390))) + (_%off195145%_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194957%_ - _%slot195106%_)))) - (if _%off195108%_ - (_%lp194995%_ - _%L195077%_ - (cons (cons _%off195108%_ - _%L195078%_) - _%initializers194998%_)) - (let ((__tmp197354 + _%klass194994%_ + _%slot195143%_)))) + (if _%off195145%_ + (_%lp195032%_ + _%L195114%_ + (cons (cons _%off195145%_ + _%L195115%_) + _%initializers195035%_)) + (let ((__tmp197391 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194934%_ + _%self194971%_ '1 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _%stx194929%_ - __tmp197354 - _%slot195106%_)))))) - (_%__kont196826196827%_ + _%stx194966%_ + __tmp197391 + _%slot195143%_)))))) + (_%__kont196863196864%_ (lambda () - (let ((__tmp197355 + (let ((__tmp197392 (cons '%#let-values - (cons (cons (cons (cons _%$obj194993%_ + (cons (cons (cons (cons _%$obj195030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object194954%_ '())) + (cons _%inline-make-object194991%_ '())) '()) (cons (cons '%#begin - (let ((__tmp197358 + (let ((__tmp197395 (cons (cons '%#ref - (cons _%$obj194993%_ '())) + (cons _%$obj195030%_ '())) '())) - (__tmp197356 - (let ((__tmp197357 - (lambda (_%i195037%_ _%r195038%_) + (__tmp197393 + (let ((__tmp197394 + (lambda (_%i195074%_ _%r195075%_) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194934%_ + _%self194971%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons (car _%i195037%_) '())) - (cons (cons '%#ref (cons _%$obj194993%_ '())) - (cons (cdr _%i195037%_) '()))))) + (cons (cons '%#quote (cons (car _%i195074%_) '())) + (cons (cons '%#ref (cons _%$obj195030%_ '())) + (cons (cdr _%i195074%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r195038%_)))) + _%r195075%_)))) (declare (not safe)) (__foldl1 - __tmp197357 + __tmp197394 '() - _%initializers194998%_)))) + _%initializers195035%_)))) (declare (not safe)) - (__foldr1 cons __tmp197358 __tmp197356))) + (__foldr1 cons __tmp197395 __tmp197393))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197355 - _%stx194929%_)))) - (_%__kont196828196829%_ + __tmp197392 + _%stx194966%_)))) + (_%__kont196865196866%_ (lambda () - (let ((__tmp197359 + (let ((__tmp197396 (cons '%#let-values - (cons (cons (cons (cons _%$obj194993%_ + (cons (cons (cons (cons _%$obj195030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object194954%_ '())) + (cons _%inline-make-object194991%_ '())) '()) (cons (cons '%#begin (cons (cons '%#call @@ -2444,157 +2444,157 @@ (cons 'class-instance-init! '())) (cons (cons '%#ref - (cons _%$obj194993%_ + (cons _%$obj195030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194952%_))) + _%args194989%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj194993%_ '())) + (cons _%$obj195030%_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197359 - _%stx194929%_))))) - (let* ((_%g195000195040%_ + __tmp197396 + _%stx194966%_))))) + (let* ((_%g195037195077%_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - _%__stx196822196823%_)) - (_%__kont196826196827%_) - (_%__kont196828196829%_)))) - (_%__match196859196860%_ - (lambda (_%e195007195045%_ - _%hd195008195048%_ - _%tl195009195050%_ - _%e195010195053%_ - _%hd195011195056%_ - _%tl195012195058%_ - _%e195013195061%_ - _%hd195014195064%_ - _%tl195015195066%_ - _%e195016195069%_ - _%hd195017195072%_ - _%tl195018195074%_) - (let ((_%L195077%_ - _%tl195018195074%_) - (_%L195078%_ - _%hd195017195072%_) - (_%L195079%_ - _%hd195014195064%_)) + _%__stx196859196860%_)) + (_%__kont196863196864%_) + (_%__kont196865196866%_)))) + (_%__match196896196897%_ + (lambda (_%e195044195082%_ + _%hd195045195085%_ + _%tl195046195087%_ + _%e195047195090%_ + _%hd195048195093%_ + _%tl195049195095%_ + _%e195050195098%_ + _%hd195051195101%_ + _%tl195052195103%_ + _%e195053195106%_ + _%hd195054195109%_ + _%tl195055195111%_) + (let ((_%L195114%_ + _%tl195055195111%_) + (_%L195115%_ + _%hd195054195109%_) + (_%L195116%_ + _%hd195051195101%_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _%L195079%_)) - (_%__kont196824196825%_ - _%L195077%_ - _%L195078%_ - _%L195079%_) - (_%__kont196828196829%_)))))) + _%L195116%_)) + (_%__kont196861196862%_ + _%L195114%_ + _%L195115%_ + _%L195116%_) + (_%__kont196865196866%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196822196823%_)) - (let ((_%e195007195045%_ + (gx#stx-pair? _%__stx196859196860%_)) + (let ((_%e195044195082%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196822196823%_)))) - (let ((_%tl195009195050%_ + _%__stx196859196860%_)))) + (let ((_%tl195046195087%_ (let () (declare (not safe)) - (##cdr _%e195007195045%_))) - (_%hd195008195048%_ + (##cdr _%e195044195082%_))) + (_%hd195045195085%_ (let () (declare (not safe)) - (##car _%e195007195045%_)))) + (##car _%e195044195082%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd195008195048%_)) - (let ((_%e195010195053%_ + _%hd195045195085%_)) + (let ((_%e195047195090%_ (let () (declare (not safe)) (gx#stx-e - _%hd195008195048%_)))) - (let ((_%tl195012195058%_ + _%hd195045195085%_)))) + (let ((_%tl195049195095%_ (let () (declare (not safe)) - (##cdr _%e195010195053%_))) - (_%hd195011195056%_ + (##cdr _%e195047195090%_))) + (_%hd195048195093%_ (let () (declare (not safe)) - (##car _%e195010195053%_)))) + (##car _%e195047195090%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd195011195056%_)) + _%hd195048195093%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd195011195056%_)) + _%hd195048195093%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl195012195058%_)) - (let ((_%e195013195061%_ + (gx#stx-pair? _%tl195049195095%_)) + (let ((_%e195050195098%_ (let () (declare (not safe)) - (gx#stx-e _%tl195012195058%_)))) - (let ((_%tl195015195066%_ + (gx#stx-e _%tl195049195095%_)))) + (let ((_%tl195052195103%_ (let () (declare (not safe)) - (##cdr _%e195013195061%_))) - (_%hd195014195064%_ + (##cdr _%e195050195098%_))) + (_%hd195051195101%_ (let () (declare (not safe)) - (##car _%e195013195061%_)))) + (##car _%e195050195098%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195015195066%_)) + (gx#stx-null? _%tl195052195103%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195009195050%_)) - (let ((_%e195016195069%_ + (gx#stx-pair? _%tl195046195087%_)) + (let ((_%e195053195106%_ (let () (declare (not safe)) - (gx#stx-e _%tl195009195050%_)))) - (let ((_%tl195018195074%_ + (gx#stx-e _%tl195046195087%_)))) + (let ((_%tl195055195111%_ (let () (declare (not safe)) - (##cdr _%e195016195069%_))) - (_%hd195017195072%_ + (##cdr _%e195053195106%_))) + (_%hd195054195109%_ (let () (declare (not safe)) - (##car _%e195016195069%_)))) - (_%__match196859196860%_ - _%e195007195045%_ - _%hd195008195048%_ - _%tl195009195050%_ - _%e195010195053%_ - _%hd195011195056%_ - _%tl195012195058%_ - _%e195013195061%_ - _%hd195014195064%_ - _%tl195015195066%_ - _%e195016195069%_ - _%hd195017195072%_ - _%tl195018195074%_))) - (_%__kont196828196829%_)) - (_%__kont196828196829%_)))) - (_%__kont196828196829%_)) - (_%__kont196828196829%_)) - (_%__kont196828196829%_)))) + (##car _%e195053195106%_)))) + (_%__match196896196897%_ + _%e195044195082%_ + _%hd195045195085%_ + _%tl195046195087%_ + _%e195047195090%_ + _%hd195048195093%_ + _%tl195049195095%_ + _%e195050195098%_ + _%hd195051195101%_ + _%tl195052195103%_ + _%e195053195106%_ + _%hd195054195109%_ + _%tl195055195111%_))) + (_%__kont196865196866%_)) + (_%__kont196865196866%_)))) + (_%__kont196865196866%_)) + (_%__kont196865196866%_)) + (_%__kont196865196866%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196828196829%_)))) + (_%__kont196865196866%_)))) (let () (declare (not safe)) - (_%g195000195040%_))))))))))))))) + (_%g195037195077%_))))))))))))))) (let () (declare (not safe)) (__bind-method!__% @@ -2603,105 +2603,105 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_%self192550194707%_ _%ctx194709%_ _%stx194710%_ _%args194711%_) - (let* ((_%self194713%_ _%self192550194707%_) - (_%self194715%_ _%self194713%_) - (_%arguments-ok?194725%_ - (let ((__method197303 + (lambda (_%self192587194744%_ _%ctx194746%_ _%stx194747%_ _%args194748%_) + (let* ((_%self194750%_ _%self192587194744%_) + (_%self194752%_ _%self194750%_) + (_%arguments-ok?194762%_ + (let ((__method197340 (let () (declare (not safe)) - (__method-ref _%self194715%_ 'check-arguments)))) - (if __method197303 + (__method-ref _%self194752%_ 'check-arguments)))) + (if __method197340 (let () (declare (not safe)) - (__method197303 - _%self194715%_ - _%ctx194709%_ - _%stx194710%_ - _%args194711%_)) + (__method197340 + _%self194752%_ + _%ctx194746%_ + _%stx194747%_ + _%args194748%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194715%_ + _%self194752%_ 'check-arguments)) '#!void)))) - (_%g194727194737%_ - (lambda (_%g194728194734%_) + (_%g194764194774%_ + (lambda (_%g194765194771%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194728194734%_)))) - (_%g194726194801%_ - (lambda (_%g194728194740%_) + _%g194765194771%_)))) + (_%g194763194838%_ + (lambda (_%g194765194777%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194728194740%_)) - (let ((_%e194730194742%_ + (gx#stx-pair? _%g194765194777%_)) + (let ((_%e194767194779%_ (let () (declare (not safe)) - (gx#stx-e _%g194728194740%_)))) - (let ((_%hd194731194745%_ + (gx#stx-e _%g194765194777%_)))) + (let ((_%hd194768194782%_ (let () (declare (not safe)) - (##car _%e194730194742%_))) - (_%tl194732194747%_ + (##car _%e194767194779%_))) + (_%tl194769194784%_ (let () (declare (not safe)) - (##cdr _%e194730194742%_)))) + (##cdr _%e194767194779%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194732194747%_)) - ((lambda (_%L194750%_) - (let* ((_%klass194763%_ - (let ((__tmp197360 + (gx#stx-null? _%tl194769194784%_)) + ((lambda (_%L194787%_) + (let* ((_%klass194800%_ + (let ((__tmp197397 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194710%_ - __tmp197360))) - (_%field194765%_ - (let ((__tmp197361 + _%stx194747%_ + __tmp197397))) + (_%field194802%_ + (let ((__tmp197398 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194763%_ - __tmp197361))) - (_%object194767%_ + _%klass194800%_ + __tmp197398))) + (_%object194804%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194709%_ - _%L194750%_))) - (_%klass194770%_ _%klass194763%_)) + _%ctx194746%_ + _%L194787%_))) + (_%klass194807%_ _%klass194800%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194770%_ + _%klass194807%_ '8 '#f '#f)) - (let ((__tmp197362 - (cons (if (or _%arguments-ok?194725%_ + (let ((__tmp197399 + (cons (if (or _%arguments-ok?194762%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '4 '#f '#f)))) @@ -2713,32 +2713,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194765%_ '())) - (cons _%object194767%_ '())))))) + (cons (cons '%#quote (cons _%field194802%_ '())) + (cons _%object194804%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197362 - _%stx194710%_)) + __tmp197399 + _%stx194747%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194770%_ + _%klass194807%_ '7 '#f '#f)) - (let ((__tmp197363 - (cons (if (or _%arguments-ok?194725%_ + (let ((__tmp197400 + (cons (if (or _%arguments-ok?194762%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '4 '#f '#f)))) @@ -2748,40 +2748,40 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194765%_ '())) - (cons _%object194767%_ '())))))) + (cons (cons '%#quote (cons _%field194802%_ '())) + (cons _%object194804%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197363 - _%stx194710%_)) - (let ((_%$e194789%_ - (let ((__tmp197364 + __tmp197400 + _%stx194747%_)) + (let ((_%$e194826%_ + (let ((__tmp197401 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194770%_ - __tmp197364)))) - (if _%$e194789%_ - ((lambda (_%klass194792%_) - (let ((__tmp197365 - (cons (if (or _%arguments-ok?194725%_ + _%klass194807%_ + __tmp197401)))) + (if _%$e194826%_ + ((lambda (_%klass194829%_) + (let ((__tmp197402 + (cons (if (or _%arguments-ok?194762%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '4 '#f '#f)))) @@ -2791,36 +2791,36 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194765%_ '())) - (cons _%object194767%_ '())))))) + (cons (cons '%#quote (cons _%field194802%_ '())) + (cons _%object194804%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197365 _%stx194710%_))) + (gxc#xform-wrap-source __tmp197402 _%stx194747%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e194789%_) + _%$e194826%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '4 '#f '#f)) - (let ((__tmp197366 - (let ((_%$obj194798%_ + (let ((__tmp197403 + (let ((_%$obj194835%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197367 + (let ((__tmp197404 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197367)))) + (make-symbol__0 __tmp197404)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194798%_ '()) - (cons _%object194767%_ '())) + (cons (cons (cons (cons _%$obj194835%_ '()) + (cons _%object194804%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -2829,12 +2829,12 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194770%_ + _%klass194807%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194798%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj194835%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref @@ -2842,27 +2842,27 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194765%_ '())) + (cons (cons '%#quote (cons _%field194802%_ '())) (cons (cons '%#ref - (cons _%$obj194798%_ '())) + (cons _%$obj194835%_ '())) '())))) - (cons (if _%arguments-ok?194725%_ + (cons (if _%arguments-ok?194762%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj194798%_ '())) + (cons _%$obj194835%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '3 '#f '#f)) @@ -2877,20 +2877,20 @@ (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj194798%_ + (cons _%$obj194835%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '3 '#f '#f)) @@ -2901,148 +2901,148 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197366 _%stx194710%_)) + (gxc#xform-wrap-source __tmp197403 _%stx194747%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp197368 + (let ((__tmp197405 (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object194767%_ + (cons _%object194804%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197368 _%stx194710%_))))))))) + (gxc#xform-wrap-source __tmp197405 _%stx194747%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194731194745%_) - (_%g194727194737%_ _%g194728194740%_)))) - (_%g194727194737%_ _%g194728194740%_))))) - (_%g194726194801%_ _%args194711%_)))) + _%hd194768194782%_) + (_%g194764194774%_ _%g194765194777%_)))) + (_%g194764194774%_ _%g194765194777%_))))) + (_%g194763194838%_ _%args194748%_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass196590 __method-table196591) - (let ((__check-arguments196592 - (let ((__tmp197369 + (lambda (__klass196627 __method-table196628) + (let ((__check-arguments196629 + (let ((__tmp197406 (lambda () - (let ((__method196593 + (let ((__method196630 (let () (declare (not safe)) (symbolic-table-ref - __method-table196591 + __method-table196628 'check-arguments '#f)))) - (if __method196593 - __method196593 + (if __method196630 + __method196630 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197369))) - (__slot196594 - (let ((__slot196595 + (__make-promise __tmp197406))) + (__slot196631 + (let ((__slot196632 (let () (declare (not safe)) - (class-slot-offset __klass196590 'slot)))) - (if __slot196595 - __slot196595 + (class-slot-offset __klass196627 'slot)))) + (if __slot196632 + __slot196632 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_%self192550194707%_ - _%ctx194709%_ - _%stx194710%_ - _%args194711%_) - (let* ((_%self194713%_ _%self192550194707%_) - (_%self194715%_ _%self194713%_) - (_%arguments-ok?194725%_ - ((force __check-arguments196592) - _%self194715%_ - _%ctx194709%_ - _%stx194710%_ - _%args194711%_)) - (_%g194727194737%_ - (lambda (_%g194728194734%_) + (lambda (_%self192587194744%_ + _%ctx194746%_ + _%stx194747%_ + _%args194748%_) + (let* ((_%self194750%_ _%self192587194744%_) + (_%self194752%_ _%self194750%_) + (_%arguments-ok?194762%_ + ((force __check-arguments196629) + _%self194752%_ + _%ctx194746%_ + _%stx194747%_ + _%args194748%_)) + (_%g194764194774%_ + (lambda (_%g194765194771%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194728194734%_)))) - (_%g194726194801%_ - (lambda (_%g194728194740%_) + _%g194765194771%_)))) + (_%g194763194838%_ + (lambda (_%g194765194777%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194728194740%_)) - (let ((_%e194730194742%_ + (gx#stx-pair? _%g194765194777%_)) + (let ((_%e194767194779%_ (let () (declare (not safe)) - (gx#stx-e _%g194728194740%_)))) - (let ((_%hd194731194745%_ + (gx#stx-e _%g194765194777%_)))) + (let ((_%hd194768194782%_ (let () (declare (not safe)) - (##car _%e194730194742%_))) - (_%tl194732194747%_ + (##car _%e194767194779%_))) + (_%tl194769194784%_ (let () (declare (not safe)) - (##cdr _%e194730194742%_)))) + (##cdr _%e194767194779%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194732194747%_)) - ((lambda (_%L194750%_) - (let* ((_%klass194763%_ - (let ((__tmp197370 + (gx#stx-null? _%tl194769194784%_)) + ((lambda (_%L194787%_) + (let* ((_%klass194800%_ + (let ((__tmp197407 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194710%_ - __tmp197370))) - (_%field194765%_ - (let ((__tmp197371 + _%stx194747%_ + __tmp197407))) + (_%field194802%_ + (let ((__tmp197408 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194763%_ - __tmp197371))) - (_%object194767%_ + _%klass194800%_ + __tmp197408))) + (_%object194804%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194709%_ - _%L194750%_))) - (_%klass194770%_ _%klass194763%_)) + _%ctx194746%_ + _%L194787%_))) + (_%klass194807%_ _%klass194800%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194770%_ + _%klass194807%_ '8 '#f '#f)) - (let ((__tmp197372 - (cons (if (or _%arguments-ok?194725%_ + (let ((__tmp197409 + (cons (if (or _%arguments-ok?194762%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '4 '#f '#f)))) @@ -3052,32 +3052,32 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194765%_ '())) - (cons _%object194767%_ '())))))) + (cons (cons '%#quote (cons _%field194802%_ '())) + (cons _%object194804%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197372 - _%stx194710%_)) + __tmp197409 + _%stx194747%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194770%_ + _%klass194807%_ '7 '#f '#f)) - (let ((__tmp197373 - (cons (if (or _%arguments-ok?194725%_ + (let ((__tmp197410 + (cons (if (or _%arguments-ok?194762%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '4 '#f '#f)))) @@ -3087,37 +3087,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194765%_ '())) - (cons _%object194767%_ '())))))) + (cons (cons '%#quote (cons _%field194802%_ '())) + (cons _%object194804%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197373 - _%stx194710%_)) - (let ((_%$e194789%_ - (let ((__tmp197374 + __tmp197410 + _%stx194747%_)) + (let ((_%$e194826%_ + (let ((__tmp197411 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194715%_ '3 '#f '#f)))) + (##unchecked-structure-ref _%self194752%_ '3 '#f '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _%klass194770%_ __tmp197374)))) + (gxc#!class-slot-find-struct _%klass194807%_ __tmp197411)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e194789%_ - ((lambda (_%klass194792%_) - (let ((__tmp197375 - (cons (if (or _%arguments-ok?194725%_ + (if _%$e194826%_ + ((lambda (_%klass194829%_) + (let ((__tmp197412 + (cons (if (or _%arguments-ok?194762%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '4 '#f '#f)))) @@ -3127,37 +3127,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194765%_ '())) - (cons _%object194767%_ '())))))) + (cons _%field194802%_ '())) + (cons _%object194804%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197375 _%stx194710%_))) - _%$e194789%_) + (gxc#xform-wrap-source __tmp197412 _%stx194747%_))) + _%$e194826%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '4 '#f '#f)) - (let ((__tmp197376 - (let ((_%$obj194798%_ + (let ((__tmp197413 + (let ((_%$obj194835%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197377 + (let ((__tmp197414 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197377)))) + (make-symbol__0 __tmp197414)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194798%_ '()) - (cons _%object194767%_ '())) + (cons (cons (cons (cons _%$obj194835%_ '()) + (cons _%object194804%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -3166,43 +3166,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194770%_ + _%klass194807%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194798%_ '())) + (cons (cons '%#ref (cons _%$obj194835%_ '())) '()))) (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194765%_ '())) + (cons _%field194802%_ '())) (cons (cons '%#ref - (cons _%$obj194798%_ '())) + (cons _%$obj194835%_ '())) '())))) - (cons (if _%arguments-ok?194725%_ + (cons (if _%arguments-ok?194762%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj194798%_ + (cons _%$obj194835%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ - __slot196594 + _%self194752%_ + __slot196631 '#f '#f)) '())) @@ -3216,18 +3216,18 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194715%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self194752%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj194798%_ + (cons _%$obj194835%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '3 '#f '#f)) @@ -3238,30 +3238,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197376 _%stx194710%_)) - (let ((__tmp197378 + (gxc#xform-wrap-source __tmp197413 _%stx194747%_)) + (let ((__tmp197415 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object194767%_ + (cons _%object194804%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194715%_ + _%self194752%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197378 _%stx194710%_))))))))) + (gxc#xform-wrap-source __tmp197415 _%stx194747%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194731194745%_) - (_%g194727194737%_ _%g194728194740%_)))) - (_%g194727194737%_ _%g194728194740%_))))) - (_%g194726194801%_ _%args194711%_)))))) + _%hd194768194782%_) + (_%g194764194774%_ _%g194765194777%_)))) + (_%g194764194774%_ _%g194765194777%_))))) + (_%g194763194838%_ _%args194748%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3275,127 +3275,127 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_%self192551194469%_ _%ctx194471%_ _%stx194472%_ _%args194473%_) - (let* ((_%self194475%_ _%self192551194469%_) - (_%self194477%_ _%self194475%_) - (_%arguments-ok?194487%_ - (let ((__method197304 + (lambda (_%self192588194506%_ _%ctx194508%_ _%stx194509%_ _%args194510%_) + (let* ((_%self194512%_ _%self192588194506%_) + (_%self194514%_ _%self194512%_) + (_%arguments-ok?194524%_ + (let ((__method197341 (let () (declare (not safe)) - (__method-ref _%self194477%_ 'check-arguments)))) - (if __method197304 + (__method-ref _%self194514%_ 'check-arguments)))) + (if __method197341 (let () (declare (not safe)) - (__method197304 - _%self194477%_ - _%ctx194471%_ - _%stx194472%_ - _%args194473%_)) + (__method197341 + _%self194514%_ + _%ctx194508%_ + _%stx194509%_ + _%args194510%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194477%_ + _%self194514%_ 'check-arguments)) '#!void)))) - (_%g194489194503%_ - (lambda (_%g194490194500%_) + (_%g194526194540%_ + (lambda (_%g194527194537%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194490194500%_)))) - (_%g194488194582%_ - (lambda (_%g194490194506%_) + _%g194527194537%_)))) + (_%g194525194619%_ + (lambda (_%g194527194543%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194490194506%_)) - (let ((_%e194493194508%_ + (gx#stx-pair? _%g194527194543%_)) + (let ((_%e194530194545%_ (let () (declare (not safe)) - (gx#stx-e _%g194490194506%_)))) - (let ((_%hd194494194511%_ + (gx#stx-e _%g194527194543%_)))) + (let ((_%hd194531194548%_ (let () (declare (not safe)) - (##car _%e194493194508%_))) - (_%tl194495194513%_ + (##car _%e194530194545%_))) + (_%tl194532194550%_ (let () (declare (not safe)) - (##cdr _%e194493194508%_)))) + (##cdr _%e194530194545%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194495194513%_)) - (let ((_%e194496194516%_ + (gx#stx-pair? _%tl194532194550%_)) + (let ((_%e194533194553%_ (let () (declare (not safe)) - (gx#stx-e _%tl194495194513%_)))) - (let ((_%hd194497194519%_ + (gx#stx-e _%tl194532194550%_)))) + (let ((_%hd194534194556%_ (let () (declare (not safe)) - (##car _%e194496194516%_))) - (_%tl194498194521%_ + (##car _%e194533194553%_))) + (_%tl194535194558%_ (let () (declare (not safe)) - (##cdr _%e194496194516%_)))) + (##cdr _%e194533194553%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194498194521%_)) - ((lambda (_%L194524%_ _%L194525%_) - (let* ((_%klass194541%_ - (let ((__tmp197379 + (gx#stx-null? _%tl194535194558%_)) + ((lambda (_%L194561%_ _%L194562%_) + (let* ((_%klass194578%_ + (let ((__tmp197416 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194472%_ - __tmp197379))) - (_%field194543%_ - (let ((__tmp197380 + _%stx194509%_ + __tmp197416))) + (_%field194580%_ + (let ((__tmp197417 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194541%_ - __tmp197380))) - (_%object194545%_ + _%klass194578%_ + __tmp197417))) + (_%object194582%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194471%_ - _%L194525%_))) - (_%value194547%_ + _%ctx194508%_ + _%L194562%_))) + (_%value194584%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194471%_ - _%L194524%_))) - (_%klass194550%_ - _%klass194541%_)) + _%ctx194508%_ + _%L194561%_))) + (_%klass194587%_ + _%klass194578%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194550%_ + _%klass194587%_ '8 '#f '#f)) - (let ((__tmp197381 - (cons (if (or _%arguments-ok?194487%_ + (let ((__tmp197418 + (cons (if (or _%arguments-ok?194524%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '4 '#f '#f)))) @@ -3405,33 +3405,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194543%_ '())) - (cons _%object194545%_ - (cons _%value194547%_ '()))))))) + (cons (cons '%#quote (cons _%field194580%_ '())) + (cons _%object194582%_ + (cons _%value194584%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197381 - _%stx194472%_)) + __tmp197418 + _%stx194509%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194550%_ + _%klass194587%_ '7 '#f '#f)) - (let ((__tmp197382 - (cons (if (or _%arguments-ok?194487%_ + (let ((__tmp197419 + (cons (if (or _%arguments-ok?194524%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '4 '#f '#f)))) @@ -3441,43 +3441,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194543%_ '())) - (cons _%object194545%_ - (cons _%value194547%_ '()))))))) + (cons (cons '%#quote (cons _%field194580%_ '())) + (cons _%object194582%_ + (cons _%value194584%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197382 - _%stx194472%_)) - (let ((_%$e194570%_ - (let ((__tmp197383 + __tmp197419 + _%stx194509%_)) + (let ((_%$e194607%_ + (let ((__tmp197420 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194550%_ - __tmp197383)))) + _%klass194587%_ + __tmp197420)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e194570%_ - ((lambda (_%klass194573%_) - (let ((__tmp197384 + (if _%$e194607%_ + ((lambda (_%klass194610%_) + (let ((__tmp197421 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (if (or _%arguments-ok?194487%_ + (cons (if (or _%arguments-ok?194524%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)))) @@ -3487,33 +3487,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194543%_ '())) - (cons _%object194545%_ - (cons _%value194547%_ + (cons _%field194580%_ '())) + (cons _%object194582%_ + (cons _%value194584%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197384 _%stx194472%_))) - _%$e194570%_) + (gxc#xform-wrap-source __tmp197421 _%stx194509%_))) + _%$e194607%_) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self194477%_ '4 '#f '#f)) - (let ((__tmp197385 - (let ((_%$obj194579%_ - (let ((__tmp197386 + (##unchecked-structure-ref _%self194514%_ '4 '#f '#f)) + (let ((__tmp197422 + (let ((_%$obj194616%_ + (let ((__tmp197423 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197386)))) + (make-symbol__0 __tmp197423)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194579%_ '()) - (cons _%object194545%_ + (cons (cons (cons (cons _%$obj194616%_ '()) + (cons _%object194582%_ '())) '()) (cons (cons '%#if @@ -3523,49 +3523,49 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194550%_ + _%klass194587%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194579%_ '())) + (cons (cons '%#ref (cons _%$obj194616%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194543%_ '())) + (cons _%field194580%_ '())) (cons (cons '%#ref - (cons _%$obj194579%_ + (cons _%$obj194616%_ '())) - (cons _%value194547%_ + (cons _%value194584%_ '()))))) - (cons (if _%arguments-ok?194487%_ + (cons (if _%arguments-ok?194524%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj194579%_ + (cons _%$obj194616%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)) '())) - (cons _%value194547%_ '()))))) + (cons _%value194584%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3576,189 +3576,189 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194579%_ '())) + (cons (cons '%#ref (cons _%$obj194616%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)) '())) - (cons _%value194547%_ '()))))))) + (cons _%value194584%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197385 _%stx194472%_)) - (let ((__tmp197387 + (gxc#xform-wrap-source __tmp197422 _%stx194509%_)) + (let ((__tmp197424 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object194545%_ + (cons _%object194582%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%value194547%_ + (cons _%value194584%_ '()))))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp197387 - _%stx194472%_))))))))) + __tmp197424 + _%stx194509%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194497194519%_ - _%hd194494194511%_) - (_%g194489194503%_ _%g194490194506%_)))) - (_%g194489194503%_ _%g194490194506%_)))) - (_%g194489194503%_ _%g194490194506%_))))) - (_%g194488194582%_ _%args194473%_)))) + _%hd194534194556%_ + _%hd194531194548%_) + (_%g194526194540%_ _%g194527194543%_)))) + (_%g194526194540%_ _%g194527194543%_)))) + (_%g194526194540%_ _%g194527194543%_))))) + (_%g194525194619%_ _%args194510%_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass196596 __method-table196597) - (let ((__check-arguments196598 - (let ((__tmp197388 + (lambda (__klass196633 __method-table196634) + (let ((__check-arguments196635 + (let ((__tmp197425 (lambda () - (let ((__method196599 + (let ((__method196636 (let () (declare (not safe)) (symbolic-table-ref - __method-table196597 + __method-table196634 'check-arguments '#f)))) - (if __method196599 - __method196599 + (if __method196636 + __method196636 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197388)))) - (lambda (_%self192551194469%_ - _%ctx194471%_ - _%stx194472%_ - _%args194473%_) - (let* ((_%self194475%_ _%self192551194469%_) - (_%self194477%_ _%self194475%_) - (_%arguments-ok?194487%_ - ((force __check-arguments196598) - _%self194477%_ - _%ctx194471%_ - _%stx194472%_ - _%args194473%_)) - (_%g194489194503%_ - (lambda (_%g194490194500%_) + (__make-promise __tmp197425)))) + (lambda (_%self192588194506%_ + _%ctx194508%_ + _%stx194509%_ + _%args194510%_) + (let* ((_%self194512%_ _%self192588194506%_) + (_%self194514%_ _%self194512%_) + (_%arguments-ok?194524%_ + ((force __check-arguments196635) + _%self194514%_ + _%ctx194508%_ + _%stx194509%_ + _%args194510%_)) + (_%g194526194540%_ + (lambda (_%g194527194537%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194490194500%_)))) - (_%g194488194582%_ - (lambda (_%g194490194506%_) + _%g194527194537%_)))) + (_%g194525194619%_ + (lambda (_%g194527194543%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194490194506%_)) - (let ((_%e194493194508%_ + (gx#stx-pair? _%g194527194543%_)) + (let ((_%e194530194545%_ (let () (declare (not safe)) - (gx#stx-e _%g194490194506%_)))) - (let ((_%hd194494194511%_ + (gx#stx-e _%g194527194543%_)))) + (let ((_%hd194531194548%_ (let () (declare (not safe)) - (##car _%e194493194508%_))) - (_%tl194495194513%_ + (##car _%e194530194545%_))) + (_%tl194532194550%_ (let () (declare (not safe)) - (##cdr _%e194493194508%_)))) + (##cdr _%e194530194545%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194495194513%_)) - (let ((_%e194496194516%_ + (gx#stx-pair? _%tl194532194550%_)) + (let ((_%e194533194553%_ (let () (declare (not safe)) - (gx#stx-e _%tl194495194513%_)))) - (let ((_%hd194497194519%_ + (gx#stx-e _%tl194532194550%_)))) + (let ((_%hd194534194556%_ (let () (declare (not safe)) - (##car _%e194496194516%_))) - (_%tl194498194521%_ + (##car _%e194533194553%_))) + (_%tl194535194558%_ (let () (declare (not safe)) - (##cdr _%e194496194516%_)))) + (##cdr _%e194533194553%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194498194521%_)) - ((lambda (_%L194524%_ _%L194525%_) - (let* ((_%klass194541%_ - (let ((__tmp197389 + (gx#stx-null? _%tl194535194558%_)) + ((lambda (_%L194561%_ _%L194562%_) + (let* ((_%klass194578%_ + (let ((__tmp197426 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194472%_ - __tmp197389))) - (_%field194543%_ - (let ((__tmp197390 + _%stx194509%_ + __tmp197426))) + (_%field194580%_ + (let ((__tmp197427 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194541%_ - __tmp197390))) - (_%object194545%_ + _%klass194578%_ + __tmp197427))) + (_%object194582%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194471%_ - _%L194525%_))) - (_%value194547%_ + _%ctx194508%_ + _%L194562%_))) + (_%value194584%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194471%_ - _%L194524%_))) - (_%klass194550%_ - _%klass194541%_)) + _%ctx194508%_ + _%L194561%_))) + (_%klass194587%_ + _%klass194578%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194550%_ + _%klass194587%_ '8 '#f '#f)) - (let ((__tmp197391 - (cons (if (or _%arguments-ok?194487%_ + (let ((__tmp197428 + (cons (if (or _%arguments-ok?194524%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '4 '#f '#f)))) @@ -3768,33 +3768,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194543%_ '())) - (cons _%object194545%_ - (cons _%value194547%_ '()))))))) + (cons (cons '%#quote (cons _%field194580%_ '())) + (cons _%object194582%_ + (cons _%value194584%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197391 - _%stx194472%_)) + __tmp197428 + _%stx194509%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194550%_ + _%klass194587%_ '7 '#f '#f)) - (let ((__tmp197392 - (cons (if (or _%arguments-ok?194487%_ + (let ((__tmp197429 + (cons (if (or _%arguments-ok?194524%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '4 '#f '#f)))) @@ -3804,38 +3804,38 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194543%_ '())) - (cons _%object194545%_ - (cons _%value194547%_ '()))))))) + (cons _%field194580%_ '())) + (cons _%object194582%_ + (cons _%value194584%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197392 _%stx194472%_)) - (let ((_%$e194570%_ - (let ((__tmp197393 + (gxc#xform-wrap-source __tmp197429 _%stx194509%_)) + (let ((_%$e194607%_ + (let ((__tmp197430 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194550%_ - __tmp197393)))) - (if _%$e194570%_ - ((lambda (_%klass194573%_) - (let ((__tmp197394 - (cons (if (or _%arguments-ok?194487%_ + _%klass194587%_ + __tmp197430)))) + (if _%$e194607%_ + ((lambda (_%klass194610%_) + (let ((__tmp197431 + (cons (if (or _%arguments-ok?194524%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)))) @@ -3845,39 +3845,39 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194543%_ + (cons _%field194580%_ '())) - (cons _%object194545%_ - (cons _%value194547%_ + (cons _%object194582%_ + (cons _%value194584%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197394 _%stx194472%_))) - _%$e194570%_) + (gxc#xform-wrap-source __tmp197431 _%stx194509%_))) + _%$e194607%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '4 '#f '#f)) - (let ((__tmp197395 - (let ((_%$obj194579%_ - (let ((__tmp197396 + (let ((__tmp197432 + (let ((_%$obj194616%_ + (let ((__tmp197433 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197396)))) + (make-symbol__0 __tmp197433)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194579%_ + (cons (cons (cons (cons _%$obj194616%_ '()) - (cons _%object194545%_ + (cons _%object194582%_ '())) '()) (cons (cons '%#if @@ -3887,52 +3887,52 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194550%_ + _%klass194587%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj194579%_ '())) + (cons _%$obj194616%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194543%_ + (cons _%field194580%_ '())) (cons (cons '%#ref - (cons _%$obj194579%_ + (cons _%$obj194616%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%value194547%_ '()))))) + (cons _%value194584%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (if _%arguments-ok?194487%_ + (cons (if _%arguments-ok?194524%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj194579%_ + (cons _%$obj194616%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)) '())) - (cons _%value194547%_ '()))))) + (cons _%value194584%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3943,58 +3943,58 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194579%_ '())) + (cons (cons '%#ref (cons _%$obj194616%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)) '())) - (cons _%value194547%_ '()))))))) + (cons _%value194584%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197395 _%stx194472%_)) - (let ((__tmp197397 + (gxc#xform-wrap-source __tmp197432 _%stx194509%_)) + (let ((__tmp197434 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object194545%_ + (cons _%object194582%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194477%_ + _%self194514%_ '3 '#f '#f)) '())) - (cons _%value194547%_ '()))))))) + (cons _%value194584%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197397 - _%stx194472%_))))))))) + __tmp197434 + _%stx194509%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194497194519%_ - _%hd194494194511%_) - (_%g194489194503%_ - _%g194490194506%_)))) - (_%g194489194503%_ _%g194490194506%_)))) - (_%g194489194503%_ _%g194490194506%_))))) - (_%g194488194582%_ _%args194473%_)))))) + _%hd194534194556%_ + _%hd194531194548%_) + (_%g194526194540%_ + _%g194527194543%_)))) + (_%g194526194540%_ _%g194527194543%_)))) + (_%g194526194540%_ _%g194527194543%_))))) + (_%g194525194619%_ _%args194510%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4008,97 +4008,97 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_%self192552194282%_ _%ctx194284%_ _%stx194285%_ _%args194286%_) - (let* ((_%self194288%_ _%self192552194282%_) - (_%self194290%_ _%self194288%_) - (_%self194299194309%_ _%self194290%_) - (_%E194301194313%_ + (lambda (_%self192589194319%_ _%ctx194321%_ _%stx194322%_ _%args194323%_) + (let* ((_%self194325%_ _%self192589194319%_) + (_%self194327%_ _%self194325%_) + (_%self194336194346%_ _%self194327%_) + (_%E194338194350%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self194299194309%_ + _%self194336194346%_ '((!lambda _ _ arity dispatch inline)))) '#!void)) - (_%K194302194323%_ - (lambda (_%inline194316%_ _%dispatch194317%_ _%arity194318%_) + (_%K194339194360%_ + (lambda (_%inline194353%_ _%dispatch194354%_ _%arity194355%_) (if (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%self194290%_ - _%args194286%_)) + _%self194327%_ + _%args194323%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _%stx194285%_ - _%arity194318%_))) - (if _%inline194316%_ + _%stx194322%_ + _%arity194355%_))) + (if _%inline194353%_ (let () (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp197398 (_%inline194316%_ _%stx194285%_))) + (let ((__tmp197435 (_%inline194353%_ _%stx194322%_))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197398 - _%stx194285%_ - _%ctx194284%_))) - (if (and _%dispatch194317%_ + __tmp197435 + _%stx194322%_ + _%ctx194321%_))) + (if (and _%dispatch194354%_ (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%dispatch194317%_))) + _%dispatch194354%_))) (let () (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _%dispatch194317%_)) - (let ((__tmp197399 + _%dispatch194354%_)) + (let ((__tmp197436 (cons '%#call (cons (cons '%#ref - (cons _%dispatch194317%_ + (cons _%dispatch194354%_ '())) - _%args194286%_)))) + _%args194323%_)))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197399 - _%stx194285%_ - _%ctx194284%_))) + __tmp197436 + _%stx194322%_ + _%ctx194321%_))) (gxc#!procedure::optimize-call - _%self194290%_ - _%ctx194284%_ - _%stx194285%_ - _%args194286%_))))) - (_%e194303194326%_ + _%self194327%_ + _%ctx194321%_ + _%stx194322%_ + _%args194323%_))))) + (_%e194340194363%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194299194309%_ '1 '#f '#f))) - (_%e194304194329%_ + (##unchecked-structure-ref _%self194336194346%_ '1 '#f '#f))) + (_%e194341194366%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194299194309%_ '2 '#f '#f))) - (_%e194305194332%_ + (##unchecked-structure-ref _%self194336194346%_ '2 '#f '#f))) + (_%e194342194369%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194299194309%_ '3 '#f '#f))) - (_%arity194335%_ _%e194305194332%_) - (_%e194306194337%_ + (##unchecked-structure-ref _%self194336194346%_ '3 '#f '#f))) + (_%arity194372%_ _%e194342194369%_) + (_%e194343194374%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194299194309%_ '4 '#f '#f))) - (_%dispatch194340%_ _%e194306194337%_) - (_%e194307194342%_ + (##unchecked-structure-ref _%self194336194346%_ '4 '#f '#f))) + (_%dispatch194377%_ _%e194343194374%_) + (_%e194344194379%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194299194309%_ '5 '#f '#f))) - (_%inline194345%_ _%e194307194342%_)) - (_%K194302194323%_ - _%inline194345%_ - _%dispatch194340%_ - _%arity194335%_)))) + (##unchecked-structure-ref _%self194336194346%_ '5 '#f '#f))) + (_%inline194382%_ _%e194344194379%_)) + (_%K194339194360%_ + _%inline194382%_ + _%dispatch194377%_ + _%arity194372%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4107,63 +4107,63 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_%self192553194132%_ _%ctx194134%_ _%stx194135%_ _%args194136%_) - (let* ((_%self194138%_ _%self192553194132%_) - (_%self194140%_ _%self194138%_) - (_%$e194154%_ - (let ((__tmp197401 - (lambda (_%g194149194151%_) + (lambda (_%self192590194169%_ _%ctx194171%_ _%stx194172%_ _%args194173%_) + (let* ((_%self194175%_ _%self192590194169%_) + (_%self194177%_ _%self194175%_) + (_%$e194191%_ + (let ((__tmp197438 + (lambda (_%g194186194188%_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%g194149194151%_ - _%args194136%_)))) - (__tmp197400 + _%g194186194188%_ + _%args194173%_)))) + (__tmp197437 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194140%_ + _%self194177%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp197401 __tmp197400)))) - (if _%$e194154%_ - ((lambda (_%clause194157%_) - (let ((__method197305 + (__find __tmp197438 __tmp197437)))) + (if _%$e194191%_ + ((lambda (_%clause194194%_) + (let ((__method197342 (let () (declare (not safe)) - (__method-ref _%clause194157%_ 'optimize-call)))) - (if __method197305 + (__method-ref _%clause194194%_ 'optimize-call)))) + (if __method197342 (let () (declare (not safe)) - (__method197305 - _%clause194157%_ - _%ctx194134%_ - _%stx194135%_ - _%args194136%_)) + (__method197342 + _%clause194194%_ + _%ctx194171%_ + _%stx194172%_ + _%args194173%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause194157%_ + _%clause194194%_ 'optimize-call)) '#!void)))) - _%$e194154%_) - (let ((__tmp197402 + _%$e194191%_) + (let ((__tmp197439 (map gxc#!lambda-arity (let () (declare (not safe)) (##unchecked-structure-ref - _%self194140%_ + _%self194177%_ '3 '#f '#f))))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _%stx194135%_ - __tmp197402)))))) + _%stx194172%_ + __tmp197439)))))) (let () (declare (not safe)) (__bind-method!__% @@ -4172,116 +4172,116 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!kw-lambda::optimize-call - (lambda (_%self192554193870%_ _%ctx193872%_ _%stx193873%_ _%args193874%_) - (let* ((_%self193876%_ _%self192554193870%_) - (_%self193878%_ _%self193876%_) - (_%self193887193896%_ _%self193878%_) - (_%E193889193900%_ + (lambda (_%self192591193907%_ _%ctx193909%_ _%stx193910%_ _%args193911%_) + (let* ((_%self193913%_ _%self192591193907%_) + (_%self193915%_ _%self193913%_) + (_%self193924193933%_ _%self193915%_) + (_%E193926193937%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self193887193896%_ + _%self193924193933%_ '((!kw-lambda _ _ table dispatch)))) '#!void)) - (_%K193890193991%_ - (lambda (_%dispatch193903%_ _%table193904%_) + (_%K193927194028%_ + (lambda (_%dispatch193940%_ _%table193941%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%dispatch193903%_)) - (let* ((_%g193905193915%_ + (gxc#symbol-in-local-scope? _%dispatch193940%_)) + (let* ((_%g193942193952%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%dispatch193903%_))) - (_%else193907193923%_ + _%dispatch193940%_))) + (_%else193944193960%_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _%dispatch193903%_)) + _%dispatch193940%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx193872%_ - _%stx193873%_)))) - (_%K193909193972%_ - (lambda (_%main193926%_ _%keys193927%_) - (let ((_g197403_ + _%ctx193909%_ + _%stx193910%_)))) + (_%K193946194009%_ + (lambda (_%main193963%_ _%keys193964%_) + (let ((_g197440_ (gxc#!kw-lambda-split-args - _%stx193873%_ - _%args193874%_))) + _%stx193910%_ + _%args193911%_))) (begin - (let ((_g197404_ + (let ((_g197441_ (let () (declare (not safe)) - (if (##values? _g197403_) - (##vector-length _g197403_) + (if (##values? _g197440_) + (##vector-length _g197440_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g197404_ 2))) + (##fx= _g197441_ 2))) (error "Context expects 2 values" - _g197404_))) - (let ((_%pargs193929%_ + _g197441_))) + (let ((_%pargs193966%_ (let () (declare (not safe)) - (##vector-ref _g197403_ 0))) - (_%kwargs193930%_ + (##vector-ref _g197440_ 0))) + (_%kwargs193967%_ (let () (declare (not safe)) - (##vector-ref _g197403_ 1)))) + (##vector-ref _g197440_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _%main193926%_)) - (if _%table193904%_ - (let ((_%xargs193938%_ - (map (lambda (_%key193932%_) - (let ((_%$e193934%_ + _%main193963%_)) + (if _%table193941%_ + (let ((_%xargs193975%_ + (map (lambda (_%key193969%_) + (let ((_%$e193971%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key193932%_ _%kwargs193930%_)))) - (if _%$e193934%_ _%$e193934%_ '(%#ref absent-value)))) - _%keys193927%_))) + (agetq__0 _%key193969%_ _%kwargs193967%_)))) + (if _%$e193971%_ _%$e193971%_ '(%#ref absent-value)))) + _%keys193964%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%kw193940%_) - (if (memq (car _%kw193940%_) - _%keys193927%_) + (lambda (_%kw193977%_) + (if (memq (car _%kw193977%_) + _%keys193964%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _%stx193873%_ - _%keys193927%_ - _%kw193940%_)))) - _%kwargs193930%_) - (let ((__tmp197405 + _%stx193910%_ + _%keys193964%_ + _%kw193977%_)))) + _%kwargs193967%_) + (let ((__tmp197442 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%main193926%_ '())) + (cons _%main193963%_ '())) (cons (cons '%#quote (cons '#f '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs193929%_ - _%xargs193938%_))))))) + _%pargs193966%_ + _%xargs193975%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197405 - _%stx193873%_ - _%ctx193872%_))) - (let* ((_%kwt193942%_ - (let ((__tmp197406 + __tmp197442 + _%stx193910%_ + _%ctx193909%_))) + (let* ((_%kwt193979%_ + (let ((__tmp197443 (let () (declare (not safe)) @@ -4289,175 +4289,175 @@ '__kwt)))) (declare (not safe)) (make-symbol__0 - __tmp197406))) - (_%kwvars193946%_ - (map (lambda (_%_193944%_) - (let ((__tmp197407 + __tmp197443))) + (_%kwvars193983%_ + (map (lambda (_%_193981%_) + (let ((__tmp197444 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__kw)))) (declare (not safe)) - (make-symbol__0 __tmp197407))) - _%kwargs193930%_)) + (make-symbol__0 __tmp197444))) + _%kwargs193967%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwbind193951%_ - (map (lambda (_%kw193948%_ + (_%kwbind193988%_ + (map (lambda (_%kw193985%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193949%_) - (cons (cons _%kwvar193949%_ '()) - (cons (cdr _%kw193948%_) '()))) - _%kwargs193930%_ - _%kwvars193946%_)) + _%kwvar193986%_) + (cons (cons _%kwvar193986%_ '()) + (cons (cdr _%kw193985%_) '()))) + _%kwargs193967%_ + _%kwvars193983%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwset193956%_ - (map (lambda (_%kw193953%_ + (_%kwset193993%_ + (map (lambda (_%kw193990%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193954%_) + _%kwvar193991%_) (cons '%#call (cons '(%#ref symbolic-table-set!) - (cons (cons '%#ref (cons _%kwt193942%_ '())) + (cons (cons '%#ref (cons _%kwt193979%_ '())) (cons (cons '%#quote - (cons (car _%kw193953%_) '())) + (cons (car _%kw193990%_) '())) (cons (cons '%#ref - (cons _%kwvar193954%_ + (cons _%kwvar193991%_ '())) '())))))) - _%kwargs193930%_ - _%kwvars193946%_)) + _%kwargs193967%_ + _%kwvars193983%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xkwargs193961%_ - (map (lambda (_%kw193958%_ + (_%xkwargs193998%_ + (map (lambda (_%kw193995%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193959%_) - (cons (car _%kw193958%_) - (cons '%#ref (cons _%kwvar193959%_ '())))) - _%kwargs193930%_ - _%kwvars193946%_)) + _%kwvar193996%_) + (cons (car _%kw193995%_) + (cons '%#ref (cons _%kwvar193996%_ '())))) + _%kwargs193967%_ + _%kwvars193983%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xargs193969%_ - (map (lambda (_%key193963%_) - (let ((_%$e193965%_ + (_%xargs194006%_ + (map (lambda (_%key194000%_) + (let ((_%$e194002%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key193963%_ _%xkwargs193961%_)))) - (if _%$e193965%_ _%$e193965%_ '(%#ref absent-value)))) - _%keys193927%_)) + (agetq__0 _%key194000%_ _%xkwargs193998%_)))) + (if _%$e194002%_ _%$e194002%_ '(%#ref absent-value)))) + _%keys193964%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp197408 + (__tmp197445 (cons '%#let-values - (cons _%kwbind193951%_ + (cons _%kwbind193988%_ (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%kwt193942%_ '()) - (cons (let ((__tmp197409 + (cons (cons (cons (cons _%kwt193979%_ '()) + (cons (let ((__tmp197446 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons '(%#ref make-symbolic-table) (cons (cons '%#quote - (cons (length _%kwargs193930%_) + (cons (length _%kwargs193967%_) '())) (cons '(%#quote (length kwvars)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197409 _%stx193873%_)) + (gxc#xform-wrap-source __tmp197446 _%stx193910%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#begin - (let ((__tmp197410 - (cons (let ((__tmp197411 + (let ((__tmp197447 + (cons (let ((__tmp197448 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%main193926%_ '())) + (cons _%main193963%_ '())) (cons (cons '%#ref - (cons _%kwt193942%_ + (cons _%kwt193979%_ '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs193929%_ - _%xargs193969%_))))))) + _%pargs193966%_ + _%xargs194006%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197411 _%stx193873%_)) + (gxc#xform-wrap-source __tmp197448 _%stx193910%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp197410 _%kwset193956%_))) + (__foldr1 cons __tmp197447 _%kwset193993%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197408 - _%stx193873%_ - _%ctx193872%_)))))))))) + __tmp197445 + _%stx193910%_ + _%ctx193909%_)))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g193905193915%_ + _%g193942193952%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e193910193975%_ + (let* ((_%e193947194012%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193905193915%_ + _%g193942193952%_ '1 '#f '#f))) - (_%e193911193978%_ + (_%e193948194015%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193905193915%_ + _%g193942193952%_ '2 '#f '#f))) - (_%e193912193981%_ + (_%e193949194018%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193905193915%_ + _%g193942193952%_ '3 '#f '#f))) - (_%keys193984%_ _%e193912193981%_) - (_%e193913193986%_ + (_%keys194021%_ _%e193949194018%_) + (_%e193950194023%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193905193915%_ + _%g193942193952%_ '4 '#f '#f))) - (_%main193989%_ _%e193913193986%_)) - (_%K193909193972%_ - _%main193989%_ - _%keys193984%_)) - (_%else193907193923%_))) + (_%main194026%_ _%e193950194023%_)) + (_%K193946194009%_ + _%main194026%_ + _%keys194021%_)) + (_%else193944193960%_))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx193872%_ _%stx193873%_))))) - (_%e193891193994%_ + (gxc#xform-call% _%ctx193909%_ _%stx193910%_))))) + (_%e193928194031%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193887193896%_ '1 '#f '#f))) - (_%e193892193997%_ + (##unchecked-structure-ref _%self193924193933%_ '1 '#f '#f))) + (_%e193929194034%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193887193896%_ '2 '#f '#f))) - (_%e193893194000%_ + (##unchecked-structure-ref _%self193924193933%_ '2 '#f '#f))) + (_%e193930194037%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193887193896%_ '3 '#f '#f))) - (_%table194003%_ _%e193893194000%_) - (_%e193894194005%_ + (##unchecked-structure-ref _%self193924193933%_ '3 '#f '#f))) + (_%table194040%_ _%e193930194037%_) + (_%e193931194042%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193887193896%_ '4 '#f '#f))) - (_%dispatch194008%_ _%e193894194005%_)) - (_%K193890193991%_ _%dispatch194008%_ _%table194003%_)))) + (##unchecked-structure-ref _%self193924193933%_ '4 '#f '#f))) + (_%dispatch194045%_ _%e193931194042%_)) + (_%K193927194028%_ _%dispatch194045%_ _%table194040%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4466,287 +4466,287 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_%stx193483%_ _%args193484%_) - (let _%lp193486%_ ((_%rest193488%_ _%args193484%_) - (_%pargs193489%_ '()) - (_%kwargs193490%_ '())) - (let* ((_%__stx196864196865%_ _%rest193488%_) - (_%g193496193548%_ + (lambda (_%stx193520%_ _%args193521%_) + (let _%lp193523%_ ((_%rest193525%_ _%args193521%_) + (_%pargs193526%_ '()) + (_%kwargs193527%_ '())) + (let* ((_%__stx196901196902%_ _%rest193525%_) + (_%g193533193585%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196864196865%_))))) - (let ((_%__kont196866196867%_ - (lambda (_%L193727%_ _%L193728%_) - (_%lp193486%_ - _%L193727%_ - (cons _%L193728%_ _%pargs193489%_) - _%kwargs193490%_))) - (_%__kont196868196869%_ - (lambda (_%L193673%_) + _%__stx196901196902%_))))) + (let ((_%__kont196903196904%_ + (lambda (_%L193764%_ _%L193765%_) + (_%lp193523%_ + _%L193764%_ + (cons _%L193765%_ _%pargs193526%_) + _%kwargs193527%_))) + (_%__kont196905196906%_ + (lambda (_%L193710%_) (values (let () (declare (not safe)) - (__foldl1 cons _%L193673%_ _%pargs193489%_)) - (reverse _%kwargs193490%_)))) - (_%__kont196870196871%_ - (lambda (_%L193620%_ _%L193621%_ _%L193622%_) - (let ((_%kw193639%_ + (__foldl1 cons _%L193710%_ _%pargs193526%_)) + (reverse _%kwargs193527%_)))) + (_%__kont196907196908%_ + (lambda (_%L193657%_ _%L193658%_ _%L193659%_) + (let ((_%kw193676%_ (let () (declare (not safe)) - (gx#stx-e _%L193622%_)))) - (if (assq _%kw193639%_ _%kwargs193490%_) + (gx#stx-e _%L193659%_)))) + (if (assq _%kw193676%_ _%kwargs193527%_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _%stx193483%_ - _%kw193639%_)) - (_%lp193486%_ - _%L193620%_ - _%pargs193489%_ - (cons (cons _%kw193639%_ _%L193621%_) - _%kwargs193490%_)))))) - (_%__kont196872196873%_ - (lambda (_%L193568%_ _%L193569%_) - (_%lp193486%_ - _%L193568%_ - (cons _%L193569%_ _%pargs193489%_) - _%kwargs193490%_))) - (_%__kont196874196875%_ + _%stx193520%_ + _%kw193676%_)) + (_%lp193523%_ + _%L193657%_ + _%pargs193526%_ + (cons (cons _%kw193676%_ _%L193658%_) + _%kwargs193527%_)))))) + (_%__kont196909196910%_ + (lambda (_%L193605%_ _%L193606%_) + (_%lp193523%_ + _%L193605%_ + (cons _%L193606%_ _%pargs193526%_) + _%kwargs193527%_))) + (_%__kont196911196912%_ (lambda () - (values (reverse _%pargs193489%_) - (reverse _%kwargs193490%_))))) - (let ((_%__match196971196972%_ - (lambda (_%e193527193588%_ - _%hd193528193591%_ - _%tl193529193593%_ - _%e193530193596%_ - _%hd193531193599%_ - _%tl193532193601%_ - _%e193533193604%_ - _%hd193534193607%_ - _%tl193535193609%_ - _%e193536193612%_ - _%hd193537193615%_ - _%tl193538193617%_) - (let ((_%L193620%_ _%tl193538193617%_) - (_%L193621%_ _%hd193537193615%_) - (_%L193622%_ _%hd193534193607%_)) + (values (reverse _%pargs193526%_) + (reverse _%kwargs193527%_))))) + (let ((_%__match197008197009%_ + (lambda (_%e193564193625%_ + _%hd193565193628%_ + _%tl193566193630%_ + _%e193567193633%_ + _%hd193568193636%_ + _%tl193569193638%_ + _%e193570193641%_ + _%hd193571193644%_ + _%tl193572193646%_ + _%e193573193649%_ + _%hd193574193652%_ + _%tl193575193654%_) + (let ((_%L193657%_ _%tl193575193654%_) + (_%L193658%_ _%hd193574193652%_) + (_%L193659%_ _%hd193571193644%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L193622%_)) - (_%__kont196870196871%_ - _%L193620%_ - _%L193621%_ - _%L193622%_) - (_%__kont196872196873%_ - _%tl193529193593%_ - _%hd193528193591%_)))))) + (gx#stx-keyword? _%L193659%_)) + (_%__kont196907196908%_ + _%L193657%_ + _%L193658%_ + _%L193659%_) + (_%__kont196909196910%_ + _%tl193566193630%_ + _%hd193565193628%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196864196865%_)) - (let ((_%e193500193692%_ + (gx#stx-pair? _%__stx196901196902%_)) + (let ((_%e193537193729%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196864196865%_)))) - (let ((_%tl193502193697%_ + (gx#stx-e _%__stx196901196902%_)))) + (let ((_%tl193539193734%_ (let () (declare (not safe)) - (##cdr _%e193500193692%_))) - (_%hd193501193695%_ + (##cdr _%e193537193729%_))) + (_%hd193538193732%_ (let () (declare (not safe)) - (##car _%e193500193692%_)))) + (##car _%e193537193729%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193501193695%_)) - (let ((_%e193503193700%_ + (gx#stx-pair? _%hd193538193732%_)) + (let ((_%e193540193737%_ (let () (declare (not safe)) - (gx#stx-e _%hd193501193695%_)))) - (let ((_%tl193505193705%_ + (gx#stx-e _%hd193538193732%_)))) + (let ((_%tl193542193742%_ (let () (declare (not safe)) - (##cdr _%e193503193700%_))) - (_%hd193504193703%_ + (##cdr _%e193540193737%_))) + (_%hd193541193740%_ (let () (declare (not safe)) - (##car _%e193503193700%_)))) + (##car _%e193540193737%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193504193703%_)) + (gx#identifier? _%hd193541193740%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd193504193703%_)) + _%hd193541193740%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193505193705%_)) - (let ((_%e193506193708%_ + _%tl193542193742%_)) + (let ((_%e193543193745%_ (let () (declare (not safe)) (gx#stx-e - _%tl193505193705%_)))) - (let ((_%tl193508193713%_ + _%tl193542193742%_)))) + (let ((_%tl193545193750%_ (let () (declare (not safe)) - (##cdr _%e193506193708%_))) - (_%hd193507193711%_ + (##cdr _%e193543193745%_))) + (_%hd193544193748%_ (let () (declare (not safe)) - (##car _%e193506193708%_)))) + (##car _%e193543193745%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd193507193711%_)) - (let ((_%e193509193716%_ + _%hd193544193748%_)) + (let ((_%e193546193753%_ (let () (declare (not safe)) (gx#stx-e - _%hd193507193711%_)))) - (if (equal? _%e193509193716%_ + _%hd193544193748%_)))) + (if (equal? _%e193546193753%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193508193713%_)) + (gx#stx-null? _%tl193545193750%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193502193697%_)) - (let ((_%e193510193719%_ + (gx#stx-pair? _%tl193539193734%_)) + (let ((_%e193547193756%_ (let () (declare (not safe)) - (gx#stx-e _%tl193502193697%_)))) - (let ((_%tl193512193724%_ + (gx#stx-e _%tl193539193734%_)))) + (let ((_%tl193549193761%_ (let () (declare (not safe)) - (##cdr _%e193510193719%_))) - (_%hd193511193722%_ + (##cdr _%e193547193756%_))) + (_%hd193548193759%_ (let () (declare (not safe)) - (##car _%e193510193719%_)))) - (_%__kont196866196867%_ - _%tl193512193724%_ - _%hd193511193722%_))) - (_%__kont196872196873%_ - _%tl193502193697%_ - _%hd193501193695%_)) - (_%__kont196872196873%_ - _%tl193502193697%_ - _%hd193501193695%_)) - (if (equal? _%e193509193716%_ '#!rest) + (##car _%e193547193756%_)))) + (_%__kont196903196904%_ + _%tl193549193761%_ + _%hd193548193759%_))) + (_%__kont196909196910%_ + _%tl193539193734%_ + _%hd193538193732%_)) + (_%__kont196909196910%_ + _%tl193539193734%_ + _%hd193538193732%_)) + (if (equal? _%e193546193753%_ '#!rest) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193508193713%_)) - (_%__kont196868196869%_ _%tl193502193697%_) - (_%__kont196872196873%_ - _%tl193502193697%_ - _%hd193501193695%_)) + (gx#stx-null? _%tl193545193750%_)) + (_%__kont196905196906%_ _%tl193539193734%_) + (_%__kont196909196910%_ + _%tl193539193734%_ + _%hd193538193732%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193508193713%_)) + (gx#stx-null? _%tl193545193750%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193502193697%_)) - (let ((_%e193536193612%_ + (gx#stx-pair? _%tl193539193734%_)) + (let ((_%e193573193649%_ (let () (declare (not safe)) - (gx#stx-e _%tl193502193697%_)))) - (let ((_%tl193538193617%_ + (gx#stx-e _%tl193539193734%_)))) + (let ((_%tl193575193654%_ (let () (declare (not safe)) - (##cdr _%e193536193612%_))) - (_%hd193537193615%_ + (##cdr _%e193573193649%_))) + (_%hd193574193652%_ (let () (declare (not safe)) - (##car _%e193536193612%_)))) - (_%__match196971196972%_ - _%e193500193692%_ - _%hd193501193695%_ - _%tl193502193697%_ - _%e193503193700%_ - _%hd193504193703%_ - _%tl193505193705%_ - _%e193506193708%_ - _%hd193507193711%_ - _%tl193508193713%_ - _%e193536193612%_ - _%hd193537193615%_ - _%tl193538193617%_))) - (_%__kont196872196873%_ - _%tl193502193697%_ - _%hd193501193695%_)) - (_%__kont196872196873%_ - _%tl193502193697%_ - _%hd193501193695%_))))) + (##car _%e193573193649%_)))) + (_%__match197008197009%_ + _%e193537193729%_ + _%hd193538193732%_ + _%tl193539193734%_ + _%e193540193737%_ + _%hd193541193740%_ + _%tl193542193742%_ + _%e193543193745%_ + _%hd193544193748%_ + _%tl193545193750%_ + _%e193573193649%_ + _%hd193574193652%_ + _%tl193575193654%_))) + (_%__kont196909196910%_ + _%tl193539193734%_ + _%hd193538193732%_)) + (_%__kont196909196910%_ + _%tl193539193734%_ + _%hd193538193732%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl193508193713%_)) + _%tl193545193750%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193502193697%_)) - (let ((_%e193536193612%_ + _%tl193539193734%_)) + (let ((_%e193573193649%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl193502193697%_)))) - (let ((_%tl193538193617%_ + (gx#stx-e _%tl193539193734%_)))) + (let ((_%tl193575193654%_ (let () (declare (not safe)) - (##cdr _%e193536193612%_))) - (_%hd193537193615%_ + (##cdr _%e193573193649%_))) + (_%hd193574193652%_ (let () (declare (not safe)) - (##car _%e193536193612%_)))) - (_%__match196971196972%_ - _%e193500193692%_ - _%hd193501193695%_ - _%tl193502193697%_ - _%e193503193700%_ - _%hd193504193703%_ - _%tl193505193705%_ - _%e193506193708%_ - _%hd193507193711%_ - _%tl193508193713%_ - _%e193536193612%_ - _%hd193537193615%_ - _%tl193538193617%_))) - (_%__kont196872196873%_ - _%tl193502193697%_ - _%hd193501193695%_)) - (_%__kont196872196873%_ - _%tl193502193697%_ - _%hd193501193695%_))))) + (##car _%e193573193649%_)))) + (_%__match197008197009%_ + _%e193537193729%_ + _%hd193538193732%_ + _%tl193539193734%_ + _%e193540193737%_ + _%hd193541193740%_ + _%tl193542193742%_ + _%e193543193745%_ + _%hd193544193748%_ + _%tl193545193750%_ + _%e193573193649%_ + _%hd193574193652%_ + _%tl193575193654%_))) + (_%__kont196909196910%_ + _%tl193539193734%_ + _%hd193538193732%_)) + (_%__kont196909196910%_ + _%tl193539193734%_ + _%hd193538193732%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196872196873%_ - _%tl193502193697%_ - _%hd193501193695%_)) - (_%__kont196872196873%_ - _%tl193502193697%_ - _%hd193501193695%_)) - (_%__kont196872196873%_ - _%tl193502193697%_ - _%hd193501193695%_)))) - (_%__kont196872196873%_ - _%tl193502193697%_ - _%hd193501193695%_)))) - (_%__kont196874196875%_)))))))) + (_%__kont196909196910%_ + _%tl193539193734%_ + _%hd193538193732%_)) + (_%__kont196909196910%_ + _%tl193539193734%_ + _%hd193538193732%_)) + (_%__kont196909196910%_ + _%tl193539193734%_ + _%hd193538193732%_)))) + (_%__kont196909196910%_ + _%tl193539193734%_ + _%hd193538193732%_)))) + (_%__kont196911196912%_)))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_%self192555193465%_ _%ctx193467%_ _%stx193468%_ _%args193469%_) - (let* ((_%self193471%_ _%self192555193465%_) - (_%self193473%_ _%self193471%_)) + (lambda (_%self192592193502%_ _%ctx193504%_ _%stx193505%_ _%args193506%_) + (let* ((_%self193508%_ _%self192592193502%_) + (_%self193510%_ _%self193508%_)) (declare (not safe)) - (gxc#xform-call% _%ctx193467%_ _%stx193468%_)))) + (gxc#xform-call% _%ctx193504%_ _%stx193505%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4755,394 +4755,394 @@ gxc#!kw-lambda-primary::optimize-call '#f)) (define gxc#apply-check-return-type-begin-annotation% - (lambda (_%self193153%_ _%stx193154%_) - (let* ((_%__stx196980196981%_ _%stx193154%_) - (_%g193157193197%_ + (lambda (_%self193190%_ _%stx193191%_) + (let* ((_%__stx197017197018%_ _%stx193191%_) + (_%g193194193234%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196980196981%_))))) - (let ((_%__kont196982196983%_ - (lambda (_%L193303%_ _%L193304%_) - (let ((_%$e193331%_ + _%__stx197017197018%_))))) + (let ((_%__kont197019197020%_ + (lambda (_%L193340%_ _%L193341%_) + (let ((_%$e193368%_ (member 'return: - (let ((__tmp197412 - (lambda (_%g193323193326%_ - _%g193324193328%_) - (cons _%g193323193326%_ - _%g193324193328%_)))) + (let ((__tmp197449 + (lambda (_%g193360193363%_ + _%g193361193365%_) + (cons _%g193360193363%_ + _%g193361193365%_)))) (declare (not safe)) - (__foldr1 __tmp197412 '() _%L193304%_)) + (__foldr1 __tmp197449 '() _%L193341%_)) gx#stx-eq?))) - (if _%$e193331%_ - ((lambda (_%tail193334%_) - (let ((_%type193336%_ - (let ((__tmp197413 - (let ((__tmp197414 - (cadr _%tail193334%_))) + (if _%$e193368%_ + ((lambda (_%tail193371%_) + (let ((_%type193373%_ + (let ((__tmp197450 + (let ((__tmp197451 + (cadr _%tail193371%_))) (declare (not safe)) (gxc#identifier-symbol - __tmp197414)))) + __tmp197451)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193154%_ - __tmp197413)))) + _%stx193191%_ + __tmp197450)))) (gxc#check-return-type! - _%stx193154%_ - _%L193303%_ - _%type193336%_) + _%stx193191%_ + _%L193340%_ + _%type193373%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self193153%_ - _%L193303%_)))) - _%$e193331%_) + _%self193190%_ + _%L193340%_)))) + _%$e193368%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self193153%_ _%L193303%_)))))) - (_%__kont196986196987%_ - (lambda (_%L193226%_ _%L193227%_) + (gxc#compile-e__1 _%self193190%_ _%L193340%_)))))) + (_%__kont197023197024%_ + (lambda (_%L193263%_ _%L193264%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self193153%_ _%L193226%_))))) - (let ((_%__match197017197018%_ - (lambda (_%e193161193247%_ - _%hd193162193250%_ - _%tl193163193252%_ - _%e193164193255%_ - _%hd193165193258%_ - _%tl193166193260%_ - _%e193167193263%_ - _%hd193168193266%_ - _%tl193169193268%_ - _%__splice196984196985%_ - _%target193170193271%_ - _%tl193172193273%_) - (letrec ((_%loop193173193276%_ - (lambda (_%hd193171193279%_ - _%signature193177193281%_) + (gxc#compile-e__1 _%self193190%_ _%L193263%_))))) + (let ((_%__match197054197055%_ + (lambda (_%e193198193284%_ + _%hd193199193287%_ + _%tl193200193289%_ + _%e193201193292%_ + _%hd193202193295%_ + _%tl193203193297%_ + _%e193204193300%_ + _%hd193205193303%_ + _%tl193206193305%_ + _%__splice197021197022%_ + _%target193207193308%_ + _%tl193209193310%_) + (letrec ((_%loop193210193313%_ + (lambda (_%hd193208193316%_ + _%signature193214193318%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193171193279%_)) - (let ((_%e193174193284%_ + (gx#stx-pair? _%hd193208193316%_)) + (let ((_%e193211193321%_ (let () (declare (not safe)) - (gx#stx-e _%hd193171193279%_)))) - (let ((_%lp-tl193176193289%_ + (gx#stx-e _%hd193208193316%_)))) + (let ((_%lp-tl193213193326%_ (let () (declare (not safe)) - (##cdr _%e193174193284%_))) - (_%lp-hd193175193287%_ + (##cdr _%e193211193321%_))) + (_%lp-hd193212193324%_ (let () (declare (not safe)) - (##car _%e193174193284%_)))) - (_%loop193173193276%_ - _%lp-tl193176193289%_ - (cons _%lp-hd193175193287%_ - _%signature193177193281%_)))) - (let ((_%signature193178193292%_ - (reverse _%signature193177193281%_))) + (##car _%e193211193321%_)))) + (_%loop193210193313%_ + _%lp-tl193213193326%_ + (cons _%lp-hd193212193324%_ + _%signature193214193318%_)))) + (let ((_%signature193215193329%_ + (reverse _%signature193214193318%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193166193260%_)) - (let ((_%e193179193295%_ + (gx#stx-pair? _%tl193203193297%_)) + (let ((_%e193216193332%_ (let () (declare (not safe)) (gx#stx-e - _%tl193166193260%_)))) - (let ((_%tl193181193300%_ + _%tl193203193297%_)))) + (let ((_%tl193218193337%_ (let () (declare (not safe)) - (##cdr _%e193179193295%_))) - (_%hd193180193298%_ + (##cdr _%e193216193332%_))) + (_%hd193217193335%_ (let () (declare (not safe)) - (##car _%e193179193295%_)))) + (##car _%e193216193332%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193181193300%_)) - (_%__kont196982196983%_ - _%hd193180193298%_ - _%signature193178193292%_) + _%tl193218193337%_)) + (_%__kont197019197020%_ + _%hd193217193335%_ + _%signature193215193329%_) (let () (declare (not safe)) - (_%g193157193197%_))))) + (_%g193194193234%_))))) (let () (declare (not safe)) - (_%g193157193197%_)))))))) - (_%loop193173193276%_ _%target193170193271%_ '()))))) + (_%g193194193234%_)))))))) + (_%loop193210193313%_ _%target193207193308%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196980196981%_)) - (let ((_%e193161193247%_ + (gx#stx-pair? _%__stx197017197018%_)) + (let ((_%e193198193284%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196980196981%_)))) - (let ((_%tl193163193252%_ + (gx#stx-e _%__stx197017197018%_)))) + (let ((_%tl193200193289%_ (let () (declare (not safe)) - (##cdr _%e193161193247%_))) - (_%hd193162193250%_ + (##cdr _%e193198193284%_))) + (_%hd193199193287%_ (let () (declare (not safe)) - (##car _%e193161193247%_)))) + (##car _%e193198193284%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193163193252%_)) - (let ((_%e193164193255%_ + (gx#stx-pair? _%tl193200193289%_)) + (let ((_%e193201193292%_ (let () (declare (not safe)) - (gx#stx-e _%tl193163193252%_)))) - (let ((_%tl193166193260%_ + (gx#stx-e _%tl193200193289%_)))) + (let ((_%tl193203193297%_ (let () (declare (not safe)) - (##cdr _%e193164193255%_))) - (_%hd193165193258%_ + (##cdr _%e193201193292%_))) + (_%hd193202193295%_ (let () (declare (not safe)) - (##car _%e193164193255%_)))) + (##car _%e193201193292%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193165193258%_)) - (let ((_%e193167193263%_ + (gx#stx-pair? _%hd193202193295%_)) + (let ((_%e193204193300%_ (let () (declare (not safe)) - (gx#stx-e _%hd193165193258%_)))) - (let ((_%tl193169193268%_ + (gx#stx-e _%hd193202193295%_)))) + (let ((_%tl193206193305%_ (let () (declare (not safe)) - (##cdr _%e193167193263%_))) - (_%hd193168193266%_ + (##cdr _%e193204193300%_))) + (_%hd193205193303%_ (let () (declare (not safe)) - (##car _%e193167193263%_)))) + (##car _%e193204193300%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd193168193266%_)) + _%hd193205193303%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd193168193266%_)) + _%hd193205193303%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl193169193268%_)) - (let ((_%__splice196984196985%_ + _%tl193206193305%_)) + (let ((_%__splice197021197022%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl193169193268%_ + _%tl193206193305%_ '0)))) - (let ((_%tl193172193273%_ + (let ((_%tl193209193310%_ (let () (declare (not safe)) (##vector-ref - _%__splice196984196985%_ + _%__splice197021197022%_ '1))) - (_%target193170193271%_ + (_%target193207193308%_ (let () (declare (not safe)) (##vector-ref - _%__splice196984196985%_ + _%__splice197021197022%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193172193273%_)) - (_%__match197017197018%_ - _%e193161193247%_ - _%hd193162193250%_ - _%tl193163193252%_ - _%e193164193255%_ - _%hd193165193258%_ - _%tl193166193260%_ - _%e193167193263%_ - _%hd193168193266%_ - _%tl193169193268%_ - _%__splice196984196985%_ - _%target193170193271%_ - _%tl193172193273%_) + _%tl193209193310%_)) + (_%__match197054197055%_ + _%e193198193284%_ + _%hd193199193287%_ + _%tl193200193289%_ + _%e193201193292%_ + _%hd193202193295%_ + _%tl193203193297%_ + _%e193204193300%_ + _%hd193205193303%_ + _%tl193206193305%_ + _%__splice197021197022%_ + _%target193207193308%_ + _%tl193209193310%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl193166193260%_)) - (let ((_%e193190193218%_ + (gx#stx-pair? _%tl193203193297%_)) + (let ((_%e193227193255%_ (let () (declare (not safe)) - (gx#stx-e _%tl193166193260%_)))) - (let ((_%tl193192193223%_ + (gx#stx-e _%tl193203193297%_)))) + (let ((_%tl193229193260%_ (let () (declare (not safe)) - (##cdr _%e193190193218%_))) - (_%hd193191193221%_ + (##cdr _%e193227193255%_))) + (_%hd193228193258%_ (let () (declare (not safe)) - (##car _%e193190193218%_)))) + (##car _%e193227193255%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193192193223%_)) - (_%__kont196986196987%_ - _%hd193191193221%_ - _%hd193165193258%_) + (gx#stx-null? _%tl193229193260%_)) + (_%__kont197023197024%_ + _%hd193228193258%_ + _%hd193202193295%_) (let () (declare (not safe)) - (_%g193157193197%_))))) - (let () (declare (not safe)) (_%g193157193197%_)))))) + (_%g193194193234%_))))) + (let () (declare (not safe)) (_%g193194193234%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193166193260%_)) - (let ((_%e193190193218%_ + _%tl193203193297%_)) + (let ((_%e193227193255%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl193166193260%_)))) - (let ((_%tl193192193223%_ - (let () (declare (not safe)) (##cdr _%e193190193218%_))) - (_%hd193191193221%_ + (gx#stx-e _%tl193203193297%_)))) + (let ((_%tl193229193260%_ + (let () (declare (not safe)) (##cdr _%e193227193255%_))) + (_%hd193228193258%_ (let () (declare (not safe)) - (##car _%e193190193218%_)))) + (##car _%e193227193255%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193192193223%_)) - (_%__kont196986196987%_ - _%hd193191193221%_ - _%hd193165193258%_) - (let () (declare (not safe)) (_%g193157193197%_))))) - (let () (declare (not safe)) (_%g193157193197%_)))) + (gx#stx-null? _%tl193229193260%_)) + (_%__kont197023197024%_ + _%hd193228193258%_ + _%hd193202193295%_) + (let () (declare (not safe)) (_%g193194193234%_))))) + (let () (declare (not safe)) (_%g193194193234%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193166193260%_)) - (let ((_%e193190193218%_ + _%tl193203193297%_)) + (let ((_%e193227193255%_ (let () (declare (not safe)) (gx#stx-e - _%tl193166193260%_)))) - (let ((_%tl193192193223%_ + _%tl193203193297%_)))) + (let ((_%tl193229193260%_ (let () (declare (not safe)) - (##cdr _%e193190193218%_))) - (_%hd193191193221%_ + (##cdr _%e193227193255%_))) + (_%hd193228193258%_ (let () (declare (not safe)) - (##car _%e193190193218%_)))) + (##car _%e193227193255%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193192193223%_)) - (_%__kont196986196987%_ - _%hd193191193221%_ - _%hd193165193258%_) + _%tl193229193260%_)) + (_%__kont197023197024%_ + _%hd193228193258%_ + _%hd193202193295%_) (let () (declare (not safe)) - (_%g193157193197%_))))) + (_%g193194193234%_))))) (let () (declare (not safe)) - (_%g193157193197%_)))) + (_%g193194193234%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193166193260%_)) - (let ((_%e193190193218%_ + _%tl193203193297%_)) + (let ((_%e193227193255%_ (let () (declare (not safe)) (gx#stx-e - _%tl193166193260%_)))) - (let ((_%tl193192193223%_ + _%tl193203193297%_)))) + (let ((_%tl193229193260%_ (let () (declare (not safe)) - (##cdr _%e193190193218%_))) - (_%hd193191193221%_ + (##cdr _%e193227193255%_))) + (_%hd193228193258%_ (let () (declare (not safe)) - (##car _%e193190193218%_)))) + (##car _%e193227193255%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193192193223%_)) - (_%__kont196986196987%_ - _%hd193191193221%_ - _%hd193165193258%_) + _%tl193229193260%_)) + (_%__kont197023197024%_ + _%hd193228193258%_ + _%hd193202193295%_) (let () (declare (not safe)) - (_%g193157193197%_))))) + (_%g193194193234%_))))) (let () (declare (not safe)) - (_%g193157193197%_)))))) + (_%g193194193234%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193166193260%_)) - (let ((_%e193190193218%_ + (gx#stx-pair? _%tl193203193297%_)) + (let ((_%e193227193255%_ (let () (declare (not safe)) - (gx#stx-e _%tl193166193260%_)))) - (let ((_%tl193192193223%_ + (gx#stx-e _%tl193203193297%_)))) + (let ((_%tl193229193260%_ (let () (declare (not safe)) - (##cdr _%e193190193218%_))) - (_%hd193191193221%_ + (##cdr _%e193227193255%_))) + (_%hd193228193258%_ (let () (declare (not safe)) - (##car _%e193190193218%_)))) + (##car _%e193227193255%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193192193223%_)) - (_%__kont196986196987%_ - _%hd193191193221%_ - _%hd193165193258%_) + _%tl193229193260%_)) + (_%__kont197023197024%_ + _%hd193228193258%_ + _%hd193202193295%_) (let () (declare (not safe)) - (_%g193157193197%_))))) + (_%g193194193234%_))))) (let () (declare (not safe)) - (_%g193157193197%_)))))) - (let () (declare (not safe)) (_%g193157193197%_))))) - (let () (declare (not safe)) (_%g193157193197%_)))))))) + (_%g193194193234%_)))))) + (let () (declare (not safe)) (_%g193194193234%_))))) + (let () (declare (not safe)) (_%g193194193234%_)))))))) (define gxc#check-return-type! - (lambda (_%stx193131%_ _%expr193132%_ _%type193133%_) - (let ((_%$e193135%_ (not _%type193133%_))) - (if _%$e193135%_ - _%$e193135%_ - (let ((_%$e193138%_ - (eq? (##structure-ref _%type193133%_ '1 gxc#!type::t '#f) + (lambda (_%stx193168%_ _%expr193169%_ _%type193170%_) + (let ((_%$e193172%_ (not _%type193170%_))) + (if _%$e193172%_ + _%$e193172%_ + (let ((_%$e193175%_ + (eq? (##structure-ref _%type193170%_ '1 gxc#!type::t '#f) 't))) - (if _%$e193138%_ - _%$e193138%_ - (let ((_%expr-type193142%_ + (if _%$e193175%_ + _%$e193175%_ + (let ((_%expr-type193179%_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _%expr193132%_)))) - (if (not _%expr-type193142%_) + _%expr193169%_)))) + (if (not _%expr-type193179%_) (let () (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; no type information" - _%stx193131%_ - _%type193133%_)) + _%stx193168%_ + _%type193170%_)) (if (eq? 't (##structure-ref - _%expr-type193142%_ + _%expr-type193179%_ '1 gxc#!type::t '#f)) @@ -5150,75 +5150,75 @@ (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; unspecific type" - _%stx193131%_ - _%type193133%_ - _%expr-type193142%_)) - (let ((_%$e193146%_ + _%stx193168%_ + _%type193170%_ + _%expr-type193179%_)) + (let ((_%$e193183%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type193142%_ + _%expr-type193179%_ 'gxc#!abort::t)))) - (if _%$e193146%_ - _%$e193146%_ - (let ((_%$e193149%_ + (if _%$e193183%_ + _%$e193183%_ + (let ((_%$e193186%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type193142%_ - _%type193133%_)))) - (if _%$e193149%_ - _%$e193149%_ + _%expr-type193179%_ + _%type193170%_)))) + (if _%$e193186%_ + _%$e193186%_ (let () (declare (not safe)) (gxc#raise-compile-error '"procedure return type does not match signature" - _%stx193131%_ - _%type193133%_ - _%expr-type193142%_))))))))))))))) + _%stx193168%_ + _%type193170%_ + _%expr-type193179%_))))))))))))))) (define gxc#optimize-if% - (lambda (_%self192557%_ _%stx192558%_) - (let* ((_%__stx197062197063%_ _%stx192558%_) - (_%g192563192673%_ + (lambda (_%self192594%_ _%stx192595%_) + (let* ((_%__stx197099197100%_ _%stx192595%_) + (_%g192600192710%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx197062197063%_))))) - (let ((_%__kont197064197065%_ - (lambda (_%L193105%_ _%L193106%_ _%L193107%_) - (if (let () (declare (not safe)) (gx#stx-e _%L193107%_)) + _%__stx197099197100%_))))) + (let ((_%__kont197101197102%_ + (lambda (_%L193142%_ _%L193143%_ _%L193144%_) + (if (let () (declare (not safe)) (gx#stx-e _%L193144%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192557%_ _%L193106%_)) + (gxc#compile-e__1 _%self192594%_ _%L193143%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192557%_ _%L193105%_))))) - (_%__kont197066197067%_ - (lambda (_%L192931%_ _%L192932%_ _%L192933%_ _%L192934%_) - (let ((_%$e192966%_ - (let ((__tmp197415 + (gxc#compile-e__1 _%self192594%_ _%L193142%_))))) + (_%__kont197103197104%_ + (lambda (_%L192968%_ _%L192969%_ _%L192970%_ _%L192971%_) + (let ((_%$e193003%_ + (let ((__tmp197452 (let () (declare (not safe)) - (gxc#identifier-symbol _%L192934%_)))) + (gxc#identifier-symbol _%L192971%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp197415)))) - (if _%$e192966%_ - ((lambda (_%pred-type192969%_) + (gxc#optimizer-lookup-type __tmp197452)))) + (if _%$e193003%_ + ((lambda (_%pred-type193006%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type192969%_ + _%pred-type193006%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type192969%_ + _%pred-type193006%_ 'gxc#!primitive-predicate::t))) - (let* ((_%test192974%_ - (let ((__tmp197416 + (let* ((_%test193011%_ + (let ((__tmp197453 (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5228,1749 +5228,1749 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L192934%_ '())) + (cons _%L192971%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L192933%_ '())) + (cons _%L192970%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197416 - _%stx192558%_ - _%self192557%_))) - (_%K192978%_ - (let ((__tmp197417 + __tmp197453 + _%stx192595%_ + _%self192594%_))) + (_%K193015%_ + (let ((__tmp197454 (lambda () - (let ((__tmp197420 + (let ((__tmp197457 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self192557%_ - _%L192932%_)))) - (__tmp197418 + _%self192594%_ + _%L192969%_)))) + (__tmp197455 (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%L192933%_)) - (let ((__tmp197419 + (gxc#identifier-symbol _%L192970%_)) + (let ((__tmp197456 (##structure-ref - _%pred-type192969%_ + _%pred-type193006%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx192558%_ - __tmp197419))) + _%stx192595%_ + __tmp197456))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp197420 + __tmp197457 gxc#current-compile-path-type - __tmp197418))))) + __tmp197455))))) (declare (not safe)) - (__make-promise __tmp197417))) - (_%E192981%_ - (let ((__tmp197421 + (__make-promise __tmp197454))) + (_%E193018%_ + (let ((__tmp197458 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self192557%_ - _%L192931%_))))) + _%self192594%_ + _%L192968%_))))) (declare (not safe)) - (__make-promise __tmp197421))) - (_%__stx197040197041%_ _%test192974%_) - (_%g192985192999%_ + (__make-promise __tmp197458))) + (_%__stx197077197078%_ _%test193011%_) + (_%g193022193036%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx197040197041%_))))) - (let ((_%__kont197042197043%_ - (lambda (_%L193027%_ _%L193028%_) + _%__stx197077197078%_))))) + (let ((_%__kont197079197080%_ + (lambda (_%L193064%_ _%L193065%_) (if (let () (declare (not safe)) - (gx#stx-e _%L193027%_)) - (force _%K192978%_) - (force _%E192981%_)))) - (_%__kont197044197045%_ + (gx#stx-e _%L193064%_)) + (force _%K193015%_) + (force _%E193018%_)))) + (_%__kont197081197082%_ (lambda () - (let ((__tmp197422 + (let ((__tmp197459 (cons '%#if - (cons _%test192974%_ - (cons (force _%K192978%_) + (cons _%test193011%_ + (cons (force _%K193015%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (force _%E192981%_) '())))))) + (cons (force _%E193018%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197422 - _%stx192558%_))))) + __tmp197459 + _%stx192595%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx197040197041%_)) - (let ((_%e192989193011%_ + (gx#stx-pair? _%__stx197077197078%_)) + (let ((_%e193026193048%_ (let () (declare (not safe)) (gx#stx-e - _%__stx197040197041%_)))) - (let ((_%tl192991193016%_ + _%__stx197077197078%_)))) + (let ((_%tl193028193053%_ (let () (declare (not safe)) - (##cdr _%e192989193011%_))) - (_%hd192990193014%_ + (##cdr _%e193026193048%_))) + (_%hd193027193051%_ (let () (declare (not safe)) - (##car _%e192989193011%_)))) + (##car _%e193026193048%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192991193016%_)) - (let ((_%e192992193019%_ + _%tl193028193053%_)) + (let ((_%e193029193056%_ (let () (declare (not safe)) (gx#stx-e - _%tl192991193016%_)))) - (let ((_%tl192994193024%_ + _%tl193028193053%_)))) + (let ((_%tl193031193061%_ (let () (declare (not safe)) - (##cdr _%e192992193019%_))) - (_%hd192993193022%_ + (##cdr _%e193029193056%_))) + (_%hd193030193059%_ (let () (declare (not safe)) - (##car _%e192992193019%_)))) + (##car _%e193029193056%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192994193024%_)) - (_%__kont197042197043%_ - _%hd192993193022%_ - _%hd192990193014%_) - (_%__kont197044197045%_)))) - (_%__kont197044197045%_)))) - (_%__kont197044197045%_)))) + _%tl193031193061%_)) + (_%__kont197079197080%_ + _%hd193030193059%_ + _%hd193027193051%_) + (_%__kont197081197082%_)))) + (_%__kont197081197082%_)))) + (_%__kont197081197082%_)))) (let () (declare (not safe)) (gxc#xform-operands - _%self192557%_ - _%stx192558%_)))) - _%$e192966%_) + _%self192594%_ + _%stx192595%_)))) + _%$e193003%_) (let () (declare (not safe)) (gxc#xform-operands - _%self192557%_ - _%stx192558%_)))))) - (_%__kont197068197069%_ - (lambda (_%L192807%_ _%L192808%_ _%L192809%_ _%L192810%_) + _%self192594%_ + _%stx192595%_)))))) + (_%__kont197105197106%_ + (lambda (_%L192844%_ _%L192845%_ _%L192846%_ _%L192847%_) (gxc#optimize-if% - _%self192557%_ - (let ((__tmp197423 + _%self192594%_ + (let ((__tmp197460 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L192809%_ - (cons _%L192807%_ - (cons _%L192808%_ '())))))) + (cons _%L192846%_ + (cons _%L192844%_ + (cons _%L192845%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197423 _%stx192558%_))))) - (_%__kont197070197071%_ - (lambda (_%L192710%_ _%L192711%_ _%L192712%_) + (gxc#xform-wrap-source __tmp197460 _%stx192595%_))))) + (_%__kont197107197108%_ + (lambda (_%L192747%_ _%L192748%_ _%L192749%_) (let () (declare (not safe)) - (gxc#xform-operands _%self192557%_ _%stx192558%_))))) - (let ((_%__match197269197270%_ - (lambda (_%e192627192735%_ - _%hd192628192738%_ - _%tl192629192740%_ - _%e192630192743%_ - _%hd192631192746%_ - _%tl192632192748%_ - _%e192633192751%_ - _%hd192634192754%_ - _%tl192635192756%_ - _%e192636192759%_ - _%hd192637192762%_ - _%tl192638192764%_ - _%e192639192767%_ - _%hd192640192770%_ - _%tl192641192772%_ - _%e192642192775%_ - _%hd192643192778%_ - _%tl192644192780%_ - _%e192645192783%_ - _%hd192646192786%_ - _%tl192647192788%_ - _%e192648192791%_ - _%hd192649192794%_ - _%tl192650192796%_ - _%e192651192799%_ - _%hd192652192802%_ - _%tl192653192804%_) - (let ((_%L192807%_ _%hd192652192802%_) - (_%L192808%_ _%hd192649192794%_) - (_%L192809%_ _%hd192646192786%_) - (_%L192810%_ _%hd192643192778%_)) + (gxc#xform-operands _%self192594%_ _%stx192595%_))))) + (let ((_%__match197306197307%_ + (lambda (_%e192664192772%_ + _%hd192665192775%_ + _%tl192666192777%_ + _%e192667192780%_ + _%hd192668192783%_ + _%tl192669192785%_ + _%e192670192788%_ + _%hd192671192791%_ + _%tl192672192793%_ + _%e192673192796%_ + _%hd192674192799%_ + _%tl192675192801%_ + _%e192676192804%_ + _%hd192677192807%_ + _%tl192678192809%_ + _%e192679192812%_ + _%hd192680192815%_ + _%tl192681192817%_ + _%e192682192820%_ + _%hd192683192823%_ + _%tl192684192825%_ + _%e192685192828%_ + _%hd192686192831%_ + _%tl192687192833%_ + _%e192688192836%_ + _%hd192689192839%_ + _%tl192690192841%_) + (let ((_%L192844%_ _%hd192689192839%_) + (_%L192845%_ _%hd192686192831%_) + (_%L192846%_ _%hd192683192823%_) + (_%L192847%_ _%hd192680192815%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L192810%_ 'not)) - (_%__kont197068197069%_ - _%L192807%_ - _%L192808%_ - _%L192809%_ - _%L192810%_) - (_%__kont197070197071%_ - _%hd192652192802%_ - _%hd192649192794%_ - _%hd192631192746%_)))))) + (gxc#runtime-identifier=? _%L192847%_ 'not)) + (_%__kont197105197106%_ + _%L192844%_ + _%L192845%_ + _%L192846%_ + _%L192847%_) + (_%__kont197107197108%_ + _%hd192689192839%_ + _%hd192686192831%_ + _%hd192668192783%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx197062197063%_)) - (let ((_%e192568193057%_ + (gx#stx-pair? _%__stx197099197100%_)) + (let ((_%e192605193094%_ (let () (declare (not safe)) - (gx#stx-e _%__stx197062197063%_)))) - (let ((_%tl192570193062%_ + (gx#stx-e _%__stx197099197100%_)))) + (let ((_%tl192607193099%_ (let () (declare (not safe)) - (##cdr _%e192568193057%_))) - (_%hd192569193060%_ + (##cdr _%e192605193094%_))) + (_%hd192606193097%_ (let () (declare (not safe)) - (##car _%e192568193057%_)))) + (##car _%e192605193094%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192570193062%_)) - (let ((_%e192571193065%_ + (gx#stx-pair? _%tl192607193099%_)) + (let ((_%e192608193102%_ (let () (declare (not safe)) - (gx#stx-e _%tl192570193062%_)))) - (let ((_%tl192573193070%_ + (gx#stx-e _%tl192607193099%_)))) + (let ((_%tl192610193107%_ (let () (declare (not safe)) - (##cdr _%e192571193065%_))) - (_%hd192572193068%_ + (##cdr _%e192608193102%_))) + (_%hd192609193105%_ (let () (declare (not safe)) - (##car _%e192571193065%_)))) + (##car _%e192608193102%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192572193068%_)) - (let ((_%e192574193073%_ + (gx#stx-pair? _%hd192609193105%_)) + (let ((_%e192611193110%_ (let () (declare (not safe)) - (gx#stx-e _%hd192572193068%_)))) - (let ((_%tl192576193078%_ + (gx#stx-e _%hd192609193105%_)))) + (let ((_%tl192613193115%_ (let () (declare (not safe)) - (##cdr _%e192574193073%_))) - (_%hd192575193076%_ + (##cdr _%e192611193110%_))) + (_%hd192612193113%_ (let () (declare (not safe)) - (##car _%e192574193073%_)))) + (##car _%e192611193110%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd192575193076%_)) + _%hd192612193113%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd192575193076%_)) + _%hd192612193113%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192576193078%_)) - (let ((_%e192577193081%_ + _%tl192613193115%_)) + (let ((_%e192614193118%_ (let () (declare (not safe)) (gx#stx-e - _%tl192576193078%_)))) - (let ((_%tl192579193086%_ + _%tl192613193115%_)))) + (let ((_%tl192616193123%_ (let () (declare (not safe)) - (##cdr _%e192577193081%_))) - (_%hd192578193084%_ + (##cdr _%e192614193118%_))) + (_%hd192615193121%_ (let () (declare (not safe)) - (##car _%e192577193081%_)))) + (##car _%e192614193118%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192579193086%_)) + _%tl192616193123%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192580193089%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192617193126%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192582193094%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192619193131%_ (let () (declare (not safe)) - (##cdr _%e192580193089%_))) - (_%hd192581193092%_ + (##cdr _%e192617193126%_))) + (_%hd192618193129%_ (let () (declare (not safe)) - (##car _%e192580193089%_)))) + (##car _%e192617193126%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192582193094%_)) - (let ((_%e192583193097%_ + (gx#stx-pair? _%tl192619193131%_)) + (let ((_%e192620193134%_ (let () (declare (not safe)) - (gx#stx-e _%tl192582193094%_)))) - (let ((_%tl192585193102%_ + (gx#stx-e _%tl192619193131%_)))) + (let ((_%tl192622193139%_ (let () (declare (not safe)) - (##cdr _%e192583193097%_))) - (_%hd192584193100%_ + (##cdr _%e192620193134%_))) + (_%hd192621193137%_ (let () (declare (not safe)) - (##car _%e192583193097%_)))) + (##car _%e192620193134%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192585193102%_)) - (_%__kont197064197065%_ - _%hd192584193100%_ - _%hd192581193092%_ - _%hd192578193084%_) + (gx#stx-null? _%tl192622193139%_)) + (_%__kont197101197102%_ + _%hd192621193137%_ + _%hd192618193129%_ + _%hd192615193121%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))) + (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192663192694%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192665192699%_)) - (let ((_%e192666192702%_ + (gx#stx-pair? _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) - (gx#stx-e _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + (gx#stx-e _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + (gx#stx-null? _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_)))))) + (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192573193070%_)) - (let ((_%e192663192694%_ + _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ - (let () (declare (not safe)) (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ + (let () (declare (not safe)) (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192665192699%_)) - (let ((_%e192666192702%_ + (gx#stx-pair? _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) - (gx#stx-e _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + (gx#stx-e _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + (gx#stx-null? _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_)))) + (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd192575193076%_)) + _%hd192612193113%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192576193078%_)) - (let ((_%e192599192867%_ + _%tl192613193115%_)) + (let ((_%e192636192904%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192576193078%_)))) - (let ((_%tl192601192872%_ - (let () (declare (not safe)) (##cdr _%e192599192867%_))) - (_%hd192600192870%_ + (gx#stx-e _%tl192613193115%_)))) + (let ((_%tl192638192909%_ + (let () (declare (not safe)) (##cdr _%e192636192904%_))) + (_%hd192637192907%_ (let () (declare (not safe)) - (##car _%e192599192867%_)))) + (##car _%e192636192904%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192600192870%_)) - (let ((_%e192602192875%_ + (gx#stx-pair? _%hd192637192907%_)) + (let ((_%e192639192912%_ (let () (declare (not safe)) - (gx#stx-e _%hd192600192870%_)))) - (let ((_%tl192604192880%_ + (gx#stx-e _%hd192637192907%_)))) + (let ((_%tl192641192917%_ (let () (declare (not safe)) - (##cdr _%e192602192875%_))) - (_%hd192603192878%_ + (##cdr _%e192639192912%_))) + (_%hd192640192915%_ (let () (declare (not safe)) - (##car _%e192602192875%_)))) + (##car _%e192639192912%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192603192878%_)) + (gx#identifier? _%hd192640192915%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192603192878%_)) + (gx#stx-eq? '%#ref _%hd192640192915%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192604192880%_)) - (let ((_%e192605192883%_ + (gx#stx-pair? _%tl192641192917%_)) + (let ((_%e192642192920%_ (let () (declare (not safe)) - (gx#stx-e _%tl192604192880%_)))) - (let ((_%tl192607192888%_ + (gx#stx-e _%tl192641192917%_)))) + (let ((_%tl192644192925%_ (let () (declare (not safe)) - (##cdr _%e192605192883%_))) - (_%hd192606192886%_ + (##cdr _%e192642192920%_))) + (_%hd192643192923%_ (let () (declare (not safe)) - (##car _%e192605192883%_)))) + (##car _%e192642192920%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192607192888%_)) + _%tl192644192925%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192601192872%_)) - (let ((_%e192608192891%_ + _%tl192638192909%_)) + (let ((_%e192645192928%_ (let () (declare (not safe)) (gx#stx-e - _%tl192601192872%_)))) - (let ((_%tl192610192896%_ + _%tl192638192909%_)))) + (let ((_%tl192647192933%_ (let () (declare (not safe)) - (##cdr _%e192608192891%_))) - (_%hd192609192894%_ + (##cdr _%e192645192928%_))) + (_%hd192646192931%_ (let () (declare (not safe)) - (##car _%e192608192891%_)))) + (##car _%e192645192928%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192609192894%_)) - (let ((_%e192611192899%_ + _%hd192646192931%_)) + (let ((_%e192648192936%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd192609192894%_)))) - (let ((_%tl192613192904%_ + (gx#stx-e _%hd192646192931%_)))) + (let ((_%tl192650192941%_ (let () (declare (not safe)) - (##cdr _%e192611192899%_))) - (_%hd192612192902%_ + (##cdr _%e192648192936%_))) + (_%hd192649192939%_ (let () (declare (not safe)) - (##car _%e192611192899%_)))) + (##car _%e192648192936%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192612192902%_)) + (gx#identifier? _%hd192649192939%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192612192902%_)) + (gx#stx-eq? '%#ref _%hd192649192939%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192613192904%_)) - (let ((_%e192614192907%_ + (gx#stx-pair? _%tl192650192941%_)) + (let ((_%e192651192944%_ (let () (declare (not safe)) - (gx#stx-e _%tl192613192904%_)))) - (let ((_%tl192616192912%_ + (gx#stx-e _%tl192650192941%_)))) + (let ((_%tl192653192949%_ (let () (declare (not safe)) - (##cdr _%e192614192907%_))) - (_%hd192615192910%_ + (##cdr _%e192651192944%_))) + (_%hd192652192947%_ (let () (declare (not safe)) - (##car _%e192614192907%_)))) + (##car _%e192651192944%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192616192912%_)) + (gx#stx-null? _%tl192653192949%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192610192896%_)) + _%tl192647192933%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192573193070%_)) - (let ((_%e192617192915%_ + _%tl192610193107%_)) + (let ((_%e192654192952%_ (let () (declare (not safe)) (gx#stx-e - _%tl192573193070%_)))) - (let ((_%tl192619192920%_ + _%tl192610193107%_)))) + (let ((_%tl192656192957%_ (let () (declare (not safe)) - (##cdr _%e192617192915%_))) - (_%hd192618192918%_ + (##cdr _%e192654192952%_))) + (_%hd192655192955%_ (let () (declare (not safe)) - (##car _%e192617192915%_)))) + (##car _%e192654192952%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192619192920%_)) - (let ((_%e192620192923%_ + _%tl192656192957%_)) + (let ((_%e192657192960%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192619192920%_)))) - (let ((_%tl192622192928%_ + (gx#stx-e _%tl192656192957%_)))) + (let ((_%tl192659192965%_ (let () (declare (not safe)) - (##cdr _%e192620192923%_))) - (_%hd192621192926%_ + (##cdr _%e192657192960%_))) + (_%hd192658192963%_ (let () (declare (not safe)) - (##car _%e192620192923%_)))) + (##car _%e192657192960%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192622192928%_)) - (_%__kont197066197067%_ - _%hd192621192926%_ - _%hd192618192918%_ - _%hd192615192910%_ - _%hd192606192886%_) - (let () (declare (not safe)) (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))))) + (gx#stx-null? _%tl192659192965%_)) + (_%__kont197103197104%_ + _%hd192658192963%_ + _%hd192655192955%_ + _%hd192652192947%_ + _%hd192643192923%_) + (let () (declare (not safe)) (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192563192673%_))) + (_%g192600192710%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192573193070%_)) - (let ((_%e192663192694%_ + _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) (gx#stx-e - _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192665192699%_)) - (let ((_%e192666192702%_ + _%tl192702192736%_)) + (let ((_%e192703192739%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + (gx#stx-e _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) - (let () (declare (not safe)) (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))))) + (gx#stx-null? _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) + (let () (declare (not safe)) (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192563192673%_)))) + (_%g192600192710%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192610192896%_)) + _%tl192647192933%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192573193070%_)) - (let ((_%e192648192791%_ + _%tl192610193107%_)) + (let ((_%e192685192828%_ (let () (declare (not safe)) (gx#stx-e - _%tl192573193070%_)))) - (let ((_%tl192650192796%_ + _%tl192610193107%_)))) + (let ((_%tl192687192833%_ (let () (declare (not safe)) - (##cdr _%e192648192791%_))) - (_%hd192649192794%_ + (##cdr _%e192685192828%_))) + (_%hd192686192831%_ (let () (declare (not safe)) - (##car _%e192648192791%_)))) + (##car _%e192685192828%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192650192796%_)) - (let ((_%e192651192799%_ + _%tl192687192833%_)) + (let ((_%e192688192836%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192650192796%_)))) - (let ((_%tl192653192804%_ + (gx#stx-e _%tl192687192833%_)))) + (let ((_%tl192690192841%_ (let () (declare (not safe)) - (##cdr _%e192651192799%_))) - (_%hd192652192802%_ + (##cdr _%e192688192836%_))) + (_%hd192689192839%_ (let () (declare (not safe)) - (##car _%e192651192799%_)))) + (##car _%e192688192836%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192653192804%_)) - (_%__match197269197270%_ - _%e192568193057%_ - _%hd192569193060%_ - _%tl192570193062%_ - _%e192571193065%_ - _%hd192572193068%_ - _%tl192573193070%_ - _%e192574193073%_ - _%hd192575193076%_ - _%tl192576193078%_ - _%e192599192867%_ - _%hd192600192870%_ - _%tl192601192872%_ - _%e192602192875%_ - _%hd192603192878%_ - _%tl192604192880%_ - _%e192605192883%_ - _%hd192606192886%_ - _%tl192607192888%_ - _%e192608192891%_ - _%hd192609192894%_ - _%tl192610192896%_ - _%e192648192791%_ - _%hd192649192794%_ - _%tl192650192796%_ - _%e192651192799%_ - _%hd192652192802%_ - _%tl192653192804%_) - (let () (declare (not safe)) (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))))) + (gx#stx-null? _%tl192690192841%_)) + (_%__match197306197307%_ + _%e192605193094%_ + _%hd192606193097%_ + _%tl192607193099%_ + _%e192608193102%_ + _%hd192609193105%_ + _%tl192610193107%_ + _%e192611193110%_ + _%hd192612193113%_ + _%tl192613193115%_ + _%e192636192904%_ + _%hd192637192907%_ + _%tl192638192909%_ + _%e192639192912%_ + _%hd192640192915%_ + _%tl192641192917%_ + _%e192642192920%_ + _%hd192643192923%_ + _%tl192644192925%_ + _%e192645192928%_ + _%hd192646192931%_ + _%tl192647192933%_ + _%e192685192828%_ + _%hd192686192831%_ + _%tl192687192833%_ + _%e192688192836%_ + _%hd192689192839%_ + _%tl192690192841%_) + (let () (declare (not safe)) (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192563192673%_))) + (_%g192600192710%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192573193070%_)) - (let ((_%e192663192694%_ + _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) (gx#stx-e - _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192665192699%_)) - (let ((_%e192666192702%_ + _%tl192702192736%_)) + (let ((_%e192703192739%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + (gx#stx-e _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) - (let () (declare (not safe)) (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))))) + (gx#stx-null? _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) + (let () (declare (not safe)) (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192563192673%_))))))) + (_%g192600192710%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192610192896%_)) + (gx#stx-null? _%tl192647192933%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192648192791%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192685192828%_ (let () (declare (not safe)) (gx#stx-e - _%tl192573193070%_)))) - (let ((_%tl192650192796%_ + _%tl192610193107%_)))) + (let ((_%tl192687192833%_ (let () (declare (not safe)) - (##cdr _%e192648192791%_))) - (_%hd192649192794%_ + (##cdr _%e192685192828%_))) + (_%hd192686192831%_ (let () (declare (not safe)) - (##car _%e192648192791%_)))) + (##car _%e192685192828%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192650192796%_)) - (let ((_%e192651192799%_ + _%tl192687192833%_)) + (let ((_%e192688192836%_ (let () (declare (not safe)) (gx#stx-e - _%tl192650192796%_)))) - (let ((_%tl192653192804%_ + _%tl192687192833%_)))) + (let ((_%tl192690192841%_ (let () (declare (not safe)) - (##cdr _%e192651192799%_))) - (_%hd192652192802%_ + (##cdr _%e192688192836%_))) + (_%hd192689192839%_ (let () (declare (not safe)) - (##car _%e192651192799%_)))) + (##car _%e192688192836%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192653192804%_)) - (_%__match197269197270%_ - _%e192568193057%_ - _%hd192569193060%_ - _%tl192570193062%_ - _%e192571193065%_ - _%hd192572193068%_ - _%tl192573193070%_ - _%e192574193073%_ - _%hd192575193076%_ - _%tl192576193078%_ - _%e192599192867%_ - _%hd192600192870%_ - _%tl192601192872%_ - _%e192602192875%_ - _%hd192603192878%_ - _%tl192604192880%_ - _%e192605192883%_ - _%hd192606192886%_ - _%tl192607192888%_ - _%e192608192891%_ - _%hd192609192894%_ - _%tl192610192896%_ - _%e192648192791%_ - _%hd192649192794%_ - _%tl192650192796%_ - _%e192651192799%_ - _%hd192652192802%_ - _%tl192653192804%_) + _%tl192690192841%_)) + (_%__match197306197307%_ + _%e192605193094%_ + _%hd192606193097%_ + _%tl192607193099%_ + _%e192608193102%_ + _%hd192609193105%_ + _%tl192610193107%_ + _%e192611193110%_ + _%hd192612193113%_ + _%tl192613193115%_ + _%e192636192904%_ + _%hd192637192907%_ + _%tl192638192909%_ + _%e192639192912%_ + _%hd192640192915%_ + _%tl192641192917%_ + _%e192642192920%_ + _%hd192643192923%_ + _%tl192644192925%_ + _%e192645192928%_ + _%hd192646192931%_ + _%tl192647192933%_ + _%e192685192828%_ + _%hd192686192831%_ + _%tl192687192833%_ + _%e192688192836%_ + _%hd192689192839%_ + _%tl192690192841%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))) + (_%g192600192710%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192663192694%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) (gx#stx-e - _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192665192699%_)) - (let ((_%e192666192702%_ + _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) (gx#stx-e - _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192610192896%_)) + (gx#stx-null? _%tl192647192933%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192648192791%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192685192828%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192650192796%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192687192833%_ (let () (declare (not safe)) - (##cdr _%e192648192791%_))) - (_%hd192649192794%_ + (##cdr _%e192685192828%_))) + (_%hd192686192831%_ (let () (declare (not safe)) - (##car _%e192648192791%_)))) + (##car _%e192685192828%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192650192796%_)) - (let ((_%e192651192799%_ + _%tl192687192833%_)) + (let ((_%e192688192836%_ (let () (declare (not safe)) (gx#stx-e - _%tl192650192796%_)))) - (let ((_%tl192653192804%_ + _%tl192687192833%_)))) + (let ((_%tl192690192841%_ (let () (declare (not safe)) - (##cdr _%e192651192799%_))) - (_%hd192652192802%_ + (##cdr _%e192688192836%_))) + (_%hd192689192839%_ (let () (declare (not safe)) - (##car _%e192651192799%_)))) + (##car _%e192688192836%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192653192804%_)) - (_%__match197269197270%_ - _%e192568193057%_ - _%hd192569193060%_ - _%tl192570193062%_ - _%e192571193065%_ - _%hd192572193068%_ - _%tl192573193070%_ - _%e192574193073%_ - _%hd192575193076%_ - _%tl192576193078%_ - _%e192599192867%_ - _%hd192600192870%_ - _%tl192601192872%_ - _%e192602192875%_ - _%hd192603192878%_ - _%tl192604192880%_ - _%e192605192883%_ - _%hd192606192886%_ - _%tl192607192888%_ - _%e192608192891%_ - _%hd192609192894%_ - _%tl192610192896%_ - _%e192648192791%_ - _%hd192649192794%_ - _%tl192650192796%_ - _%e192651192799%_ - _%hd192652192802%_ - _%tl192653192804%_) + _%tl192690192841%_)) + (_%__match197306197307%_ + _%e192605193094%_ + _%hd192606193097%_ + _%tl192607193099%_ + _%e192608193102%_ + _%hd192609193105%_ + _%tl192610193107%_ + _%e192611193110%_ + _%hd192612193113%_ + _%tl192613193115%_ + _%e192636192904%_ + _%hd192637192907%_ + _%tl192638192909%_ + _%e192639192912%_ + _%hd192640192915%_ + _%tl192641192917%_ + _%e192642192920%_ + _%hd192643192923%_ + _%tl192644192925%_ + _%e192645192928%_ + _%hd192646192931%_ + _%tl192647192933%_ + _%e192685192828%_ + _%hd192686192831%_ + _%tl192687192833%_ + _%e192688192836%_ + _%hd192689192839%_ + _%tl192690192841%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))) + (_%g192600192710%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192663192694%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192665192699%_)) - (let ((_%e192666192702%_ + _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) (gx#stx-e - _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192610192896%_)) + (gx#stx-null? _%tl192647192933%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192648192791%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192685192828%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192650192796%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192687192833%_ (let () (declare (not safe)) - (##cdr _%e192648192791%_))) - (_%hd192649192794%_ + (##cdr _%e192685192828%_))) + (_%hd192686192831%_ (let () (declare (not safe)) - (##car _%e192648192791%_)))) + (##car _%e192685192828%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192650192796%_)) - (let ((_%e192651192799%_ + (gx#stx-pair? _%tl192687192833%_)) + (let ((_%e192688192836%_ (let () (declare (not safe)) (gx#stx-e - _%tl192650192796%_)))) - (let ((_%tl192653192804%_ + _%tl192687192833%_)))) + (let ((_%tl192690192841%_ (let () (declare (not safe)) - (##cdr _%e192651192799%_))) - (_%hd192652192802%_ + (##cdr _%e192688192836%_))) + (_%hd192689192839%_ (let () (declare (not safe)) - (##car _%e192651192799%_)))) + (##car _%e192688192836%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192653192804%_)) - (_%__match197269197270%_ - _%e192568193057%_ - _%hd192569193060%_ - _%tl192570193062%_ - _%e192571193065%_ - _%hd192572193068%_ - _%tl192573193070%_ - _%e192574193073%_ - _%hd192575193076%_ - _%tl192576193078%_ - _%e192599192867%_ - _%hd192600192870%_ - _%tl192601192872%_ - _%e192602192875%_ - _%hd192603192878%_ - _%tl192604192880%_ - _%e192605192883%_ - _%hd192606192886%_ - _%tl192607192888%_ - _%e192608192891%_ - _%hd192609192894%_ - _%tl192610192896%_ - _%e192648192791%_ - _%hd192649192794%_ - _%tl192650192796%_ - _%e192651192799%_ - _%hd192652192802%_ - _%tl192653192804%_) + _%tl192690192841%_)) + (_%__match197306197307%_ + _%e192605193094%_ + _%hd192606193097%_ + _%tl192607193099%_ + _%e192608193102%_ + _%hd192609193105%_ + _%tl192610193107%_ + _%e192611193110%_ + _%hd192612193113%_ + _%tl192613193115%_ + _%e192636192904%_ + _%hd192637192907%_ + _%tl192638192909%_ + _%e192639192912%_ + _%hd192640192915%_ + _%tl192641192917%_ + _%e192642192920%_ + _%hd192643192923%_ + _%tl192644192925%_ + _%e192645192928%_ + _%hd192646192931%_ + _%tl192647192933%_ + _%e192685192828%_ + _%hd192686192831%_ + _%tl192687192833%_ + _%e192688192836%_ + _%hd192689192839%_ + _%tl192690192841%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))) + (_%g192600192710%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192663192694%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192665192699%_)) - (let ((_%e192666192702%_ + (gx#stx-pair? _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) (gx#stx-e - _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))))) + (_%g192600192710%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192610192896%_)) + (gx#stx-null? _%tl192647192933%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192648192791%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192685192828%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192650192796%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192687192833%_ (let () (declare (not safe)) - (##cdr _%e192648192791%_))) - (_%hd192649192794%_ + (##cdr _%e192685192828%_))) + (_%hd192686192831%_ (let () (declare (not safe)) - (##car _%e192648192791%_)))) + (##car _%e192685192828%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192650192796%_)) - (let ((_%e192651192799%_ + (gx#stx-pair? _%tl192687192833%_)) + (let ((_%e192688192836%_ (let () (declare (not safe)) - (gx#stx-e _%tl192650192796%_)))) - (let ((_%tl192653192804%_ + (gx#stx-e _%tl192687192833%_)))) + (let ((_%tl192690192841%_ (let () (declare (not safe)) - (##cdr _%e192651192799%_))) - (_%hd192652192802%_ + (##cdr _%e192688192836%_))) + (_%hd192689192839%_ (let () (declare (not safe)) - (##car _%e192651192799%_)))) + (##car _%e192688192836%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192653192804%_)) - (_%__match197269197270%_ - _%e192568193057%_ - _%hd192569193060%_ - _%tl192570193062%_ - _%e192571193065%_ - _%hd192572193068%_ - _%tl192573193070%_ - _%e192574193073%_ - _%hd192575193076%_ - _%tl192576193078%_ - _%e192599192867%_ - _%hd192600192870%_ - _%tl192601192872%_ - _%e192602192875%_ - _%hd192603192878%_ - _%tl192604192880%_ - _%e192605192883%_ - _%hd192606192886%_ - _%tl192607192888%_ - _%e192608192891%_ - _%hd192609192894%_ - _%tl192610192896%_ - _%e192648192791%_ - _%hd192649192794%_ - _%tl192650192796%_ - _%e192651192799%_ - _%hd192652192802%_ - _%tl192653192804%_) + (gx#stx-null? _%tl192690192841%_)) + (_%__match197306197307%_ + _%e192605193094%_ + _%hd192606193097%_ + _%tl192607193099%_ + _%e192608193102%_ + _%hd192609193105%_ + _%tl192610193107%_ + _%e192611193110%_ + _%hd192612193113%_ + _%tl192613193115%_ + _%e192636192904%_ + _%hd192637192907%_ + _%tl192638192909%_ + _%e192639192912%_ + _%hd192640192915%_ + _%tl192641192917%_ + _%e192642192920%_ + _%hd192643192923%_ + _%tl192644192925%_ + _%e192645192928%_ + _%hd192646192931%_ + _%tl192647192933%_ + _%e192685192828%_ + _%hd192686192831%_ + _%tl192687192833%_ + _%e192688192836%_ + _%hd192689192839%_ + _%tl192690192841%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))) + (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192663192694%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192665192699%_)) - (let ((_%e192666192702%_ + (gx#stx-pair? _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) - (gx#stx-e _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + (gx#stx-e _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + (gx#stx-null? _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))))) + (_%g192600192710%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192573193070%_)) - (let ((_%e192663192694%_ + _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ - (let () (declare (not safe)) (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ + (let () (declare (not safe)) (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192665192699%_)) - (let ((_%e192666192702%_ + (gx#stx-pair? _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) - (gx#stx-e _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + (gx#stx-e _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + (gx#stx-null? _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_)))) + (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192573193070%_)) - (let ((_%e192663192694%_ + _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) (gx#stx-e - _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192665192699%_)) - (let ((_%e192666192702%_ + _%tl192702192736%_)) + (let ((_%e192703192739%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + (gx#stx-e _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) - (let () (declare (not safe)) (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))))) + (gx#stx-null? _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) + (let () (declare (not safe)) (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192563192673%_)))))) + (_%g192600192710%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192663192694%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) (gx#stx-e - _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192665192699%_)) - (let ((_%e192666192702%_ + _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) (gx#stx-e - _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_)))) + (_%g192600192710%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192663192694%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192665192699%_)) - (let ((_%e192666192702%_ + _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) (gx#stx-e - _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_)))) + (_%g192600192710%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192663192694%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192665192699%_)) - (let ((_%e192666192702%_ + (gx#stx-pair? _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) (gx#stx-e - _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_)))))) + (_%g192600192710%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192663192694%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192665192699%_)) - (let ((_%e192666192702%_ + (gx#stx-pair? _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) - (gx#stx-e _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + (gx#stx-e _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + (gx#stx-null? _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_)))))) + (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192663192694%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192665192699%_)) - (let ((_%e192666192702%_ + (gx#stx-pair? _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) - (gx#stx-e _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + (gx#stx-e _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + (gx#stx-null? _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_)))) + (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192573193070%_)) - (let ((_%e192663192694%_ + _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ - (let () (declare (not safe)) (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ + (let () (declare (not safe)) (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192665192699%_)) - (let ((_%e192666192702%_ + (gx#stx-pair? _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) - (gx#stx-e _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + (gx#stx-e _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + (gx#stx-null? _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))))) + (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192573193070%_)) - (let ((_%e192663192694%_ + _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) (gx#stx-e - _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192665192699%_)) - (let ((_%e192666192702%_ + _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192665192699%_)))) - (let ((_%tl192668192707%_ - (let () (declare (not safe)) (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (gx#stx-e _%tl192702192736%_)))) + (let ((_%tl192705192744%_ + (let () (declare (not safe)) (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) - (let () (declare (not safe)) (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_))))) + (gx#stx-null? _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) + (let () (declare (not safe)) (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192563192673%_)))))) + (_%g192600192710%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192573193070%_)) - (let ((_%e192663192694%_ + (gx#stx-pair? _%tl192610193107%_)) + (let ((_%e192700192731%_ (let () (declare (not safe)) - (gx#stx-e _%tl192573193070%_)))) - (let ((_%tl192665192699%_ + (gx#stx-e _%tl192610193107%_)))) + (let ((_%tl192702192736%_ (let () (declare (not safe)) - (##cdr _%e192663192694%_))) - (_%hd192664192697%_ + (##cdr _%e192700192731%_))) + (_%hd192701192734%_ (let () (declare (not safe)) - (##car _%e192663192694%_)))) + (##car _%e192700192731%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192665192699%_)) - (let ((_%e192666192702%_ + _%tl192702192736%_)) + (let ((_%e192703192739%_ (let () (declare (not safe)) (gx#stx-e - _%tl192665192699%_)))) - (let ((_%tl192668192707%_ + _%tl192702192736%_)))) + (let ((_%tl192705192744%_ (let () (declare (not safe)) - (##cdr _%e192666192702%_))) - (_%hd192667192705%_ + (##cdr _%e192703192739%_))) + (_%hd192704192742%_ (let () (declare (not safe)) - (##car _%e192666192702%_)))) + (##car _%e192703192739%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192668192707%_)) - (_%__kont197070197071%_ - _%hd192667192705%_ - _%hd192664192697%_ - _%hd192572193068%_) + _%tl192705192744%_)) + (_%__kont197107197108%_ + _%hd192704192742%_ + _%hd192701192734%_ + _%hd192609193105%_) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_))))) + (_%g192600192710%_))))) (let () (declare (not safe)) - (_%g192563192673%_)))))) - (let () (declare (not safe)) (_%g192563192673%_))))) - (let () (declare (not safe)) (_%g192563192673%_)))))))))) + (_%g192600192710%_)))))) + (let () (declare (not safe)) (_%g192600192710%_))))) + (let () (declare (not safe)) (_%g192600192710%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~1.scm b/src/bootstrap/gerbil/compiler/optimize-call~1.scm index ca38d9b70..b92a27e31 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]#_g197425_| + (define |gxc[1]#_g197462_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197427_| + (define |gxc[1]#_g197464_| (##structure gx#syntax-quote::t '::optimize-call::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197429_| + (define |gxc[1]#_g197466_| (##structure gx#syntax-quote::t 'make-::optimize-call #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197431_| + (define |gxc[1]#_g197468_| (##structure gx#syntax-quote::t '::optimize-call? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197433_| + (define |gxc[1]#_g197470_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197435_| + (define |gxc[1]#_g197472_| (##structure gx#syntax-quote::t '::check-return-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197437_| + (define |gxc[1]#_g197474_| (##structure gx#syntax-quote::t 'make-::check-return-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197439_| + (define |gxc[1]#_g197476_| (##structure gx#syntax-quote::t '::check-return-type? @@ -58,7 +58,7 @@ '())) (begin (define |gxc[:0:]#::optimize-call| - (let ((__obj197297 + (let ((__obj197334 (let () (declare (not safe)) (##structure @@ -87,68 +87,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197297 + __obj197334 'gxc#::optimize-call::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '::optimize-call '2 '#f '#f)) + (##unchecked-structure-set! __obj197334 '::optimize-call '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj197334 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '() '6 '#f '#f)) - (let ((__tmp197424 (cons |gxc[1]#_g197425_| '()))) + (##unchecked-structure-set! __obj197334 '() '6 '#f '#f)) + (let ((__tmp197461 (cons |gxc[1]#_g197462_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj197297 __tmp197424 '3 '#f '#f)) + (##unchecked-structure-set! __obj197334 __tmp197461 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj197334 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj197334 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj197334 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '#f '11 '#f '#f)) - (let ((__tmp197426 |gxc[1]#_g197427_|)) + (##unchecked-structure-set! __obj197334 '#f '11 '#f '#f)) + (let ((__tmp197463 |gxc[1]#_g197464_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197297 __tmp197426 '12 '#f '#f)) - (let ((__tmp197428 |gxc[1]#_g197429_|)) + (##unchecked-structure-set! __obj197334 __tmp197463 '12 '#f '#f)) + (let ((__tmp197465 |gxc[1]#_g197466_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197297 __tmp197428 '13 '#f '#f)) - (let ((__tmp197430 |gxc[1]#_g197431_|)) + (##unchecked-structure-set! __obj197334 __tmp197465 '13 '#f '#f)) + (let ((__tmp197467 |gxc[1]#_g197468_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197297 __tmp197430 '14 '#f '#f)) + (##unchecked-structure-set! __obj197334 __tmp197467 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj197334 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj197334 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj197334 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj197334 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj197334 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj197334 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197297 '() '20 '#f '#f)) - __obj197297)) + (##unchecked-structure-set! __obj197334 '() '20 '#f '#f)) + __obj197334)) (define |gxc[:0:]#::check-return-type| - (let ((__obj197299 + (let ((__obj197336 (let () (declare (not safe)) (##structure @@ -177,7 +177,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197299 + __obj197336 'gxc#::check-return-type::t '1 '#f @@ -185,60 +185,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197299 + __obj197336 '::check-return-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj197336 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '() '6 '#f '#f)) - (let ((__tmp197432 (cons |gxc[1]#_g197433_| '()))) + (##unchecked-structure-set! __obj197336 '() '6 '#f '#f)) + (let ((__tmp197469 (cons |gxc[1]#_g197470_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj197299 __tmp197432 '3 '#f '#f)) + (##unchecked-structure-set! __obj197336 __tmp197469 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj197336 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj197336 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj197336 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '#f '11 '#f '#f)) - (let ((__tmp197434 |gxc[1]#_g197435_|)) + (##unchecked-structure-set! __obj197336 '#f '11 '#f '#f)) + (let ((__tmp197471 |gxc[1]#_g197472_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197299 __tmp197434 '12 '#f '#f)) - (let ((__tmp197436 |gxc[1]#_g197437_|)) + (##unchecked-structure-set! __obj197336 __tmp197471 '12 '#f '#f)) + (let ((__tmp197473 |gxc[1]#_g197474_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197299 __tmp197436 '13 '#f '#f)) - (let ((__tmp197438 |gxc[1]#_g197439_|)) + (##unchecked-structure-set! __obj197336 __tmp197473 '13 '#f '#f)) + (let ((__tmp197475 |gxc[1]#_g197476_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197299 __tmp197438 '14 '#f '#f)) + (##unchecked-structure-set! __obj197336 __tmp197475 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj197336 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj197336 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj197336 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj197336 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj197336 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj197336 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197299 '() '20 '#f '#f)) - __obj197299)))) + (##unchecked-structure-set! __obj197336 '() '20 '#f '#f)) + __obj197336)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm index d7ecde05b..830066d21 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 1733687563) + (define gerbil/compiler/optimize-spec::timestamp 1733870078) (begin (define gxc#::generate-method-specializers::t - (let ((__tmp177970 (list gxc#::identity::t)) - (__tmp177969 (cons (cons 'final: '#t) '()))) + (let ((__tmp178007 (list gxc#::identity::t)) + (__tmp178006 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-method-specializers::t '::generate-method-specializers - __tmp177970 + __tmp178007 '() - __tmp177969 + __tmp178006 '#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 _%$args176767%_ + (lambda _%$args176804%_ (apply make-instance gxc#::generate-method-specializers::t - _%$args176767%_))) + _%$args176804%_))) (define gxc#::generate-method-specializers-bind-methods! - (let ((__tmp177971 + (let ((__tmp178008 (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 __tmp177971))) + (__make-promise __tmp178008))) (define gxc#apply-generate-method-specializers - (lambda (_%stx176759%_) + (lambda (_%stx176796%_) (force gxc#::generate-method-specializers-bind-methods!) - (let* ((_%self176762%_ - (let ((__obj177962 + (let* ((_%self176799%_ + (let ((__obj177999 (let () (declare (not safe)) (##structure gxc#::generate-method-specializers::t)))) - __obj177962)) - (__tmp177972 + __obj177999)) + (__tmp178009 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176762%_ _%stx176759%_))))) + (gxc#compile-e__1 _%self176799%_ _%stx176796%_))))) (declare (not safe)) (__call-with-parameters - __tmp177972 + __tmp178009 gxc#current-compile-method - _%self176762%_)))) + _%self176799%_)))) (define gxc#::extract-receiver::t - (let ((__tmp177974 (list gxc#::false::t)) - (__tmp177973 (cons (cons 'final: '#t) '()))) + (let ((__tmp178011 (list gxc#::false::t)) + (__tmp178010 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-receiver::t '::extract-receiver - __tmp177974 + __tmp178011 '() - __tmp177973 + __tmp178010 '#f))) (define gxc#::extract-receiver? (let () (declare (not safe)) (__make-class-predicate gxc#::extract-receiver::t))) (define gxc#make-::extract-receiver - (lambda _%$args176756%_ - (apply make-instance gxc#::extract-receiver::t _%$args176756%_))) + (lambda _%$args176793%_ + (apply make-instance gxc#::extract-receiver::t _%$args176793%_))) (define gxc#::extract-receiver-bind-methods! - (let ((__tmp177975 + (let ((__tmp178012 (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 __tmp177975))) + (__make-promise __tmp178012))) (define gxc#apply-extract-receiver - (lambda (_%stx176748%_) + (lambda (_%stx176785%_) (force gxc#::extract-receiver-bind-methods!) - (let* ((_%self176751%_ - (let ((__obj177964 + (let* ((_%self176788%_ + (let ((__obj178001 (let () (declare (not safe)) (##structure gxc#::extract-receiver::t)))) - __obj177964)) - (__tmp177976 + __obj178001)) + (__tmp178013 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176751%_ _%stx176748%_))))) + (gxc#compile-e__1 _%self176788%_ _%stx176785%_))))) (declare (not safe)) (__call-with-parameters - __tmp177976 + __tmp178013 gxc#current-compile-method - _%self176751%_)))) + _%self176788%_)))) (define gxc#::collect-object-refs::t - (let ((__tmp177978 (list gxc#::void::t)) - (__tmp177977 (cons (cons 'final: '#t) '()))) + (let ((__tmp178015 (list gxc#::void::t)) + (__tmp178014 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-object-refs::t '::collect-object-refs - __tmp177978 + __tmp178015 '(receiver methods slots) - __tmp177977 + __tmp178014 '#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 _%$args176745%_ - (apply make-instance gxc#::collect-object-refs::t _%$args176745%_))) + (lambda _%$args176782%_ + (apply make-instance gxc#::collect-object-refs::t _%$args176782%_))) (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 ((__tmp177979 + (let ((__tmp178016 (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 __tmp177979))) + (__make-promise __tmp178016))) (define gxc#apply-collect-object-refs__% - (lambda (_%@@keywords176711%_ - _%receiver176706176712%_ - _%methods176707176714%_ - _%slots176708176716%_ - _%stx176718%_) - (let* ((_%receiver176721%_ - (if (eq? _%receiver176706176712%_ absent-value) + (lambda (_%@@keywords176748%_ + _%receiver176743176749%_ + _%methods176744176751%_ + _%slots176745176753%_ + _%stx176755%_) + (let* ((_%receiver176758%_ + (if (eq? _%receiver176743176749%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver176706176712%_)) - (_%methods176723%_ - (if (eq? _%methods176707176714%_ absent-value) + _%receiver176743176749%_)) + (_%methods176760%_ + (if (eq? _%methods176744176751%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods176707176714%_)) - (_%slots176725%_ - (if (eq? _%slots176708176716%_ absent-value) + _%methods176744176751%_)) + (_%slots176762%_ + (if (eq? _%slots176745176753%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots176708176716%_))) + _%slots176745176753%_))) (force gxc#::collect-object-refs-bind-methods!) - (let* ((_%self176727%_ - (let ((__obj177966 + (let* ((_%self176764%_ + (let ((__obj178003 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177966 - _%receiver176721%_ + __obj178003 + _%receiver176758%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177966 - _%methods176723%_ + __obj178003 + _%methods176760%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177966 - _%slots176725%_ + __obj178003 + _%slots176762%_ '3 '#f '#f)) - __obj177966)) - (__tmp177980 + __obj178003)) + (__tmp178017 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176727%_ _%stx176718%_))))) + (gxc#compile-e__1 _%self176764%_ _%stx176755%_))))) (declare (not safe)) (__call-with-parameters - __tmp177980 + __tmp178017 gxc#current-compile-method - _%self176727%_))))) + _%self176764%_))))) (define gxc#apply-collect-object-refs__@ - (lambda (_%@@keywords176734%_ . _%args176735%_) + (lambda (_%@@keywords176771%_ . _%args176772%_) (apply gxc#apply-collect-object-refs__% - _%@@keywords176734%_ + _%@@keywords176771%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176734%_ + _%@@keywords176771%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176734%_ + _%@@keywords176771%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176734%_ + _%@@keywords176771%_ 'slots: absent-value)) - _%args176735%_))) + _%args176772%_))) (define gxc#apply-collect-object-refs - (lambda _%args176709176741%_ + (lambda _%args176746176778%_ (apply keyword-dispatch '#(receiver: slots: methods:) gxc#apply-collect-object-refs__@ - _%args176709176741%_))) + _%args176746176778%_))) (define gxc#::subst-object-refs::t - (let ((__tmp177982 (list gxc#::basic-xform-expression::t)) - (__tmp177981 (cons (cons 'final: '#t) '()))) + (let ((__tmp178019 (list gxc#::basic-xform-expression::t)) + (__tmp178018 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::subst-object-refs::t '::subst-object-refs - __tmp177982 + __tmp178019 '(receiver klass methods slots) - __tmp177981 + __tmp178018 '#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 _%$args176702%_ - (apply make-instance gxc#::subst-object-refs::t _%$args176702%_))) + (lambda _%$args176739%_ + (apply make-instance gxc#::subst-object-refs::t _%$args176739%_))) (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 ((__tmp177983 + (let ((__tmp178020 (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 __tmp177983))) + (__make-promise __tmp178020))) (define gxc#apply-subst-object-refs__% - (lambda (_%@@keywords176664%_ - _%receiver176658176665%_ - _%klass176659176667%_ - _%methods176660176669%_ - _%slots176661176671%_ - _%stx176673%_) - (let* ((_%receiver176676%_ - (if (eq? _%receiver176658176665%_ absent-value) + (lambda (_%@@keywords176701%_ + _%receiver176695176702%_ + _%klass176696176704%_ + _%methods176697176706%_ + _%slots176698176708%_ + _%stx176710%_) + (let* ((_%receiver176713%_ + (if (eq? _%receiver176695176702%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver176658176665%_)) - (_%klass176678%_ - (if (eq? _%klass176659176667%_ absent-value) + _%receiver176695176702%_)) + (_%klass176715%_ + (if (eq? _%klass176696176704%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'klass:)) - _%klass176659176667%_)) - (_%methods176680%_ - (if (eq? _%methods176660176669%_ absent-value) + _%klass176696176704%_)) + (_%methods176717%_ + (if (eq? _%methods176697176706%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods176660176669%_)) - (_%slots176682%_ - (if (eq? _%slots176661176671%_ absent-value) + _%methods176697176706%_)) + (_%slots176719%_ + (if (eq? _%slots176698176708%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots176661176671%_))) + _%slots176698176708%_))) (force gxc#::subst-object-refs-bind-methods!) - (let* ((_%self176684%_ - (let ((__obj177968 + (let* ((_%self176721%_ + (let ((__obj178005 (let () (declare (not safe)) (##structure @@ -601,96 +601,96 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177968 - _%receiver176676%_ + __obj178005 + _%receiver176713%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177968 - _%klass176678%_ + __obj178005 + _%klass176715%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177968 - _%methods176680%_ + __obj178005 + _%methods176717%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj177968 - _%slots176682%_ + __obj178005 + _%slots176719%_ '4 '#f '#f)) - __obj177968)) - (__tmp177984 + __obj178005)) + (__tmp178021 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176684%_ _%stx176673%_))))) + (gxc#compile-e__1 _%self176721%_ _%stx176710%_))))) (declare (not safe)) (__call-with-parameters - __tmp177984 + __tmp178021 gxc#current-compile-method - _%self176684%_))))) + _%self176721%_))))) (define gxc#apply-subst-object-refs__@ - (lambda (_%@@keywords176691%_ . _%args176692%_) + (lambda (_%@@keywords176728%_ . _%args176729%_) (apply gxc#apply-subst-object-refs__% - _%@@keywords176691%_ + _%@@keywords176728%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176691%_ + _%@@keywords176728%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176691%_ + _%@@keywords176728%_ 'klass: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176691%_ + _%@@keywords176728%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176691%_ + _%@@keywords176728%_ 'slots: absent-value)) - _%args176692%_))) + _%args176729%_))) (define gxc#apply-subst-object-refs - (lambda _%args176662176698%_ + (lambda _%args176699176735%_ (apply keyword-dispatch '#(receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@ - _%args176662176698%_))) + _%args176699176735%_))) (define gxc#generate-method-specializers-define-values% - (lambda (_%self173773%_ _%stx173774%_) - (letrec ((_%generate-method-bind173776%_ - (lambda (_%$klass176650%_ - _%$method-table176651%_ - _%id176652%_ - _%$id176653%_) - (let ((_%$tmp176655%_ - (let ((__tmp177985 + (lambda (_%self173810%_ _%stx173811%_) + (letrec ((_%generate-method-bind173813%_ + (lambda (_%$klass176687%_ + _%$method-table176688%_ + _%id176689%_ + _%$id176690%_) + (let ((_%$tmp176692%_ + (let ((__tmp178022 (let () (declare (not safe)) (##gensym '__method)))) (declare (not safe)) - (make-symbol__0 __tmp177985)))) - (cons (cons _%$id176653%_ '()) + (make-symbol__0 __tmp178022)))) + (cons (cons _%$id176690%_ '()) (cons (cons '%#call (cons (cons '%#ref (cons 'make-promise '())) @@ -698,14 +698,14 @@ (cons '() (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%$tmp176655%_ '()) + (cons (cons (cons (cons _%$tmp176692%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'symbolic-table-ref '())) (cons (cons '%#ref - (cons _%$method-table176651%_ '())) + (cons _%$method-table176688%_ '())) (cons (cons '%#quote - (cons _%id176652%_ '())) + (cons _%id176689%_ '())) (cons (cons '%#quote (cons '#f '())) '()))))) @@ -715,15 +715,15 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp176655%_ '())) - (cons (cons '%#ref (cons _%$tmp176655%_ '())) + (cons _%$tmp176692%_ '())) + (cons (cons '%#ref (cons _%$tmp176692%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Missing method" '())) (cons (cons '%#quote - (cons _%id176652%_ + (cons _%id176689%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) @@ -735,26 +735,26 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-slot-bind173777%_ - (lambda (_%$klass176644%_ _%id176645%_ _%$id176646%_) - (let ((_%$tmp176648%_ - (let ((__tmp177986 + (_%generate-slot-bind173814%_ + (lambda (_%$klass176681%_ _%id176682%_ _%$id176683%_) + (let ((_%$tmp176685%_ + (let ((__tmp178023 (let () (declare (not safe)) (##gensym '__slot)))) (declare (not safe)) - (make-symbol__0 __tmp177986)))) - (cons (cons _%$id176646%_ '()) + (make-symbol__0 __tmp178023)))) + (cons (cons _%$id176683%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%$tmp176648%_ + (cons (cons (cons (cons _%$tmp176685%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'class-slot-offset '())) (cons (cons '%#ref - (cons _%$klass176644%_ '())) + (cons _%$klass176681%_ '())) (cons (cons '%#quote - (cons _%id176645%_ '())) + (cons _%id176682%_ '())) '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -762,465 +762,465 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp176648%_ '())) - (cons (cons '%#ref (cons _%$tmp176648%_ '())) + (cons _%$tmp176685%_ '())) + (cons (cons '%#ref (cons _%$tmp176685%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#quote (cons _%id176645%_ '())) '())))) + (cons (cons '%#quote (cons _%id176682%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-specializer-impl173778%_ - (lambda (_%$klass176638%_ - _%$method-table176639%_ - _%methods-bind176640%_ - _%slots-bind176641%_ - _%specializer-impl176642%_) - (let ((__tmp177987 + (_%generate-specializer-impl173815%_ + (lambda (_%$klass176675%_ + _%$method-table176676%_ + _%methods-bind176677%_ + _%slots-bind176678%_ + _%specializer-impl176679%_) + (let ((__tmp178024 (cons '%#lambda - (cons (cons _%$klass176638%_ - (cons _%$method-table176639%_ + (cons (cons _%$klass176675%_ + (cons _%$method-table176676%_ '())) (cons (cons '%#let-values (cons (let () (declare (not safe)) (__foldr1 cons - _%slots-bind176641%_ - _%methods-bind176640%_)) - (cons _%specializer-impl176642%_ + _%slots-bind176678%_ + _%methods-bind176677%_)) + (cons _%specializer-impl176679%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177987 _%stx173774%_)))) - (_%generate-specializer-def173779%_ - (lambda (_%id176634%_ - _%specializer-id176635%_ - _%specializer-impl176636%_) - (let ((__tmp177988 + (gxc#xform-wrap-source __tmp178024 _%stx173811%_)))) + (_%generate-specializer-def173816%_ + (lambda (_%id176671%_ + _%specializer-id176672%_ + _%specializer-impl176673%_) + (let ((__tmp178025 (cons '%#begin - (cons _%stx173774%_ - (cons (let ((__tmp177989 + (cons _%stx173811%_ + (cons (let ((__tmp178026 (cons '%#define-values - (cons (cons _%specializer-id176635%_ + (cons (cons _%specializer-id176672%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-impl176636%_ '()))))) + (cons _%specializer-impl176673%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177989 - _%stx173774%_)) - (cons (let ((__tmp177990 + __tmp178026 + _%stx173811%_)) + (cons (let ((__tmp178027 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'bind-specializer! '())) - (cons (cons '%#ref (cons _%id176634%_ '())) + (cons (cons '%#ref (cons _%id176671%_ '())) (cons (cons '%#ref - (cons _%specializer-id176635%_ + (cons _%specializer-id176672%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp177990 - _%stx173774%_)) + __tmp178027 + _%stx173811%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177988 _%stx173774%_))))) - (let* ((_%__stx176856176857%_ _%stx173774%_) - (_%g173782173802%_ + (gxc#xform-wrap-source __tmp178025 _%stx173811%_))))) + (let* ((_%__stx176893176894%_ _%stx173811%_) + (_%g173819173839%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176856176857%_))))) - (let ((_%__kont176858176859%_ - (lambda (_%L173846%_ _%L173847%_) - (let ((_%method-calls173866%_ + _%__stx176893176894%_))))) + (let ((_%__kont176895176896%_ + (lambda (_%L173883%_ _%L173884%_) + (let ((_%method-calls173903%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%slot-refs173867%_ + (_%slot-refs173904%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%empty173868%_ + (_%empty173905%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_%no-specializer?173870%_ + (letrec ((_%no-specializer?173907%_ (lambda () (if (fxzero? (let () (declare (not safe)) (__hash-length - _%method-calls173866%_))) + _%method-calls173903%_))) (fxzero? (let () (declare (not safe)) (__hash-length - _%slot-refs173867%_))) + _%slot-refs173904%_))) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L173846%_)) - (let* ((_%__stx176770176771%_ _%L173846%_) - (_%g174258174276%_ + (gxc#lambda-expr? _%L173883%_)) + (let* ((_%__stx176807176808%_ _%L173883%_) + (_%g174295174313%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176770176771%_))))) - (let ((_%__kont176772176773%_ - (lambda (_%L174312%_ - _%L174313%_ - _%L174314%_) - (let ((_%receiver174334%_ - (let ((_%$e174331%_ + _%__stx176807176808%_))))) + (let ((_%__kont176809176810%_ + (lambda (_%L174349%_ + _%L174350%_ + _%L174351%_) + (let ((_%receiver174371%_ + (let ((_%$e174368%_ (gxc#apply-extract-receiver (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174312%_)))) + _%L174349%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e174331%_ - _%$e174331%_ - _%L174314%_)))) + (if _%$e174368%_ + _%$e174368%_ + _%L174351%_)))) (for-each - (lambda (_%g174335174337%_) + (lambda (_%g174372174374%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174334%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g174335174337%_)) - _%L174312%_) - (if (_%no-specializer?173870%_) - _%stx173774%_ - (let* ((_%specializer-id174346%_ - (let* ((_%id174340%_ - (let ((__tmp177991 + _%receiver174371%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g174372174374%_)) + _%L174349%_) + (if (_%no-specializer?173907%_) + _%stx173811%_ + (let* ((_%specializer-id174383%_ + (let* ((_%id174377%_ + (let ((__tmp178028 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L173847%_)))) + (gx#stx-e _%L173884%_)))) (declare (not safe)) - (make-symbol__1 __tmp177991 '"::specialize"))) - (_%specializer-id174343%_ - (let ((__tmp177992 + (make-symbol__1 __tmp178028 '"::specialize"))) + (_%specializer-id174380%_ + (let ((__tmp178029 (let () (declare (not safe)) - (gx#stx-source _%stx173774%_)))) + (gx#stx-source _%stx173811%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id174340%_ __tmp177992)))) + (gx#core-quote-syntax__1 _%id174377%_ __tmp178029)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174343%_)) - _%specializer-id174343%_)) + (gx#core-bind-runtime!__0 _%specializer-id174380%_)) + _%specializer-id174380%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass174348%_ - (let ((__tmp177993 + (_%$klass174385%_ + (let ((__tmp178030 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp177993))) + (make-symbol__0 __tmp178030))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table174350%_ - (let ((__tmp177994 + (_%$method-table174387%_ + (let ((__tmp178031 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp177994))) + (make-symbol__0 __tmp178031))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods174352%_ + (_%methods174389%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173866%_))) - (_%$methods174356%_ - (map (lambda (_%id174354%_) - (let ((__tmp177995 + _%method-calls173903%_))) + (_%$methods174393%_ + (map (lambda (_%id174391%_) + (let ((__tmp178032 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174354%_))) + (gensym _%id174391%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177995))) - _%methods174352%_)) + (make-symbol__1 '"__" __tmp178032))) + _%methods174389%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174365%_ + (_%_174402%_ (for-each - (lambda (_%g174357174360%_ - _%g174358174362%_) + (lambda (_%g174394174397%_ + _%g174395174399%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173866%_ - _%g174357174360%_ - _%g174358174362%_))) - _%methods174352%_ - _%$methods174356%_)) - (_%methods-bind174375%_ - (map (lambda (_%g174367174370%_ + _%method-calls173903%_ + _%g174394174397%_ + _%g174395174399%_))) + _%methods174389%_ + _%$methods174393%_)) + (_%methods-bind174412%_ + (map (lambda (_%g174404174407%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174368174372%_) - (_%generate-method-bind173776%_ - _%$klass174348%_ - _%$method-table174350%_ - _%g174367174370%_ - _%g174368174372%_)) - _%methods174352%_ - _%$methods174356%_)) + _%g174405174409%_) + (_%generate-method-bind173813%_ + _%$klass174385%_ + _%$method-table174387%_ + _%g174404174407%_ + _%g174405174409%_)) + _%methods174389%_ + _%$methods174393%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots174377%_ + (_%slots174414%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs173867%_))) - (_%$slots174381%_ - (map (lambda (_%id174379%_) - (let ((__tmp177996 + _%slot-refs173904%_))) + (_%$slots174418%_ + (map (lambda (_%id174416%_) + (let ((__tmp178033 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174379%_))) + (gensym _%id174416%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp177996))) - _%slots174377%_)) + (make-symbol__1 '"__" __tmp178033))) + _%slots174414%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174390%_ + (_%_174427%_ (for-each - (lambda (_%g174382174385%_ - _%g174383174387%_) + (lambda (_%g174419174422%_ + _%g174420174424%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173867%_ - _%g174382174385%_ - _%g174383174387%_))) - _%slots174377%_ - _%$slots174381%_)) - (_%slots-bind174399%_ - (map (lambda (_%g174391174394%_ + _%slot-refs173904%_ + _%g174419174422%_ + _%g174420174424%_))) + _%slots174414%_ + _%$slots174418%_)) + (_%slots-bind174436%_ + (map (lambda (_%g174428174431%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174392174396%_) - (_%generate-slot-bind173777%_ - _%$klass174348%_ - _%g174391174394%_ - _%g174392174396%_)) - _%slots174377%_ - _%$slots174381%_)) + _%g174429174433%_) + (_%generate-slot-bind173814%_ + _%$klass174385%_ + _%g174428174431%_ + _%g174429174433%_)) + _%slots174414%_ + _%$slots174418%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-body174405%_ - (map (lambda (_%g174400174402%_) + (_%specializer-body174442%_ + (map (lambda (_%g174437174439%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174334%_ - _%$klass174348%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g174400174402%_)) - _%L174312%_)) - (_%specializer-impl174407%_ - (let ((__tmp177997 + _%receiver174371%_ + _%$klass174385%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g174437174439%_)) + _%L174349%_)) + (_%specializer-impl174444%_ + (let ((__tmp178034 (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L174314%_ _%L174313%_) - _%specializer-body174405%_)))) + (cons (cons _%L174351%_ _%L174350%_) + _%specializer-body174442%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp177997 _%stx173774%_))) + (gxc#xform-wrap-source __tmp178034 _%stx173811%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl174409%_ - (_%generate-specializer-impl173778%_ - _%$klass174348%_ - _%$method-table174350%_ - _%methods-bind174375%_ - _%slots-bind174399%_ - _%specializer-impl174407%_))) - (let ((__tmp177999 + (_%specializer-impl174446%_ + (_%generate-specializer-impl173815%_ + _%$klass174385%_ + _%$method-table174387%_ + _%methods-bind174412%_ + _%slots-bind174436%_ + _%specializer-impl174444%_))) + (let ((__tmp178036 (let () (declare (not safe)) (gx#stx-e - _%L173847%_))) - (__tmp177998 + _%L173884%_))) + (__tmp178035 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174346%_)))) + _%specializer-id174383%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp177999 + __tmp178036 '" => " - __tmp177998)) - (_%generate-specializer-def173779%_ - _%L173847%_ - _%specializer-id174346%_ - _%specializer-impl174409%_)))))) - (_%__kont176774176775%_ - (lambda () _%stx173774%_))) + __tmp178035)) + (_%generate-specializer-def173816%_ + _%L173884%_ + _%specializer-id174383%_ + _%specializer-impl174446%_)))))) + (_%__kont176811176812%_ + (lambda () _%stx173811%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176770176771%_)) - (let ((_%e174263174288%_ + (gx#stx-pair? _%__stx176807176808%_)) + (let ((_%e174300174325%_ (let () (declare (not safe)) (gx#stx-e - _%__stx176770176771%_)))) - (let ((_%tl174265174293%_ + _%__stx176807176808%_)))) + (let ((_%tl174302174330%_ (let () (declare (not safe)) - (##cdr _%e174263174288%_))) - (_%hd174264174291%_ + (##cdr _%e174300174325%_))) + (_%hd174301174328%_ (let () (declare (not safe)) - (##car _%e174263174288%_)))) + (##car _%e174300174325%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174265174293%_)) - (let ((_%e174266174296%_ + _%tl174302174330%_)) + (let ((_%e174303174333%_ (let () (declare (not safe)) (gx#stx-e - _%tl174265174293%_)))) - (let ((_%tl174268174301%_ + _%tl174302174330%_)))) + (let ((_%tl174305174338%_ (let () (declare (not safe)) - (##cdr _%e174266174296%_))) - (_%hd174267174299%_ + (##cdr _%e174303174333%_))) + (_%hd174304174336%_ (let () (declare (not safe)) - (##car _%e174266174296%_)))) + (##car _%e174303174333%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174267174299%_)) - (let ((_%e174269174304%_ + _%hd174304174336%_)) + (let ((_%e174306174341%_ (let () (declare (not safe)) (gx#stx-e - _%hd174267174299%_)))) - (let ((_%tl174271174309%_ + _%hd174304174336%_)))) + (let ((_%tl174308174346%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e174269174304%_))) - (_%hd174270174307%_ - (let () (declare (not safe)) (##car _%e174269174304%_)))) - (_%__kont176772176773%_ - _%tl174268174301%_ - _%tl174271174309%_ - _%hd174270174307%_))) + (##cdr _%e174306174341%_))) + (_%hd174307174344%_ + (let () (declare (not safe)) (##car _%e174306174341%_)))) + (_%__kont176809176810%_ + _%tl174305174338%_ + _%tl174308174346%_ + _%hd174307174344%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176774176775%_)))) - (_%__kont176774176775%_)))) - (_%__kont176774176775%_)))) + (_%__kont176811176812%_)))) + (_%__kont176811176812%_)))) + (_%__kont176811176812%_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _%L173846%_)) - (let* ((_%g174416174435%_ - (lambda (_%g174417174432%_) + (gxc#case-lambda-expr? _%L173883%_)) + (let* ((_%g174453174472%_ + (lambda (_%g174454174469%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174417174432%_)))) - (_%g174415174733%_ - (lambda (_%g174417174438%_) + _%g174454174469%_)))) + (_%g174452174770%_ + (lambda (_%g174454174475%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174417174438%_)) - (let ((_%e174419174440%_ + _%g174454174475%_)) + (let ((_%e174456174477%_ (let () (declare (not safe)) (gx#stx-e - _%g174417174438%_)))) - (let ((_%hd174420174443%_ + _%g174454174475%_)))) + (let ((_%hd174457174480%_ (let () (declare (not safe)) - (##car _%e174419174440%_))) - (_%tl174421174445%_ + (##car _%e174456174477%_))) + (_%tl174458174482%_ (let () (declare (not safe)) - (##cdr _%e174419174440%_)))) + (##cdr _%e174456174477%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174421174445%_)) - (let ((_g178000_ + _%tl174458174482%_)) + (let ((_g178037_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl174421174445%_ '0)))) + (gx#syntax-split-splice _%tl174458174482%_ '0)))) (begin - (let ((_g178001_ + (let ((_g178038_ (let () (declare (not safe)) - (if (##values? _g178000_) - (##vector-length _g178000_) + (if (##values? _g178037_) + (##vector-length _g178037_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178001_ 2))) - (error "Context expects 2 values" _g178001_))) - (let ((_%target174422174448%_ + (##fx= _g178038_ 2))) + (error "Context expects 2 values" _g178038_))) + (let ((_%target174459174485%_ (let () (declare (not safe)) - (##vector-ref _g178000_ 0))) - (_%tl174424174450%_ + (##vector-ref _g178037_ 0))) + (_%tl174461174487%_ (let () (declare (not safe)) - (##vector-ref _g178000_ 1)))) + (##vector-ref _g178037_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174424174450%_)) - (letrec ((_%loop174425174453%_ - (lambda (_%hd174423174456%_ - _%clause174429174458%_) + (gx#stx-null? _%tl174461174487%_)) + (letrec ((_%loop174462174490%_ + (lambda (_%hd174460174493%_ + _%clause174466174495%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174423174456%_)) - (let ((_%e174426174461%_ + (gx#stx-pair? _%hd174460174493%_)) + (let ((_%e174463174498%_ (let () (declare (not safe)) (gx#stx-e - _%hd174423174456%_)))) - (let ((_%lp-hd174427174464%_ + _%hd174460174493%_)))) + (let ((_%lp-hd174464174501%_ (let () (declare (not safe)) - (##car _%e174426174461%_))) - (_%lp-tl174428174466%_ + (##car _%e174463174498%_))) + (_%lp-tl174465174503%_ (let () (declare (not safe)) - (##cdr _%e174426174461%_)))) - (_%loop174425174453%_ - _%lp-tl174428174466%_ - (cons _%lp-hd174427174464%_ - _%clause174429174458%_)))) - (let ((_%clause174430174469%_ - (reverse _%clause174429174458%_))) - ((lambda (_%L174472%_) + (##cdr _%e174463174498%_)))) + (_%loop174462174490%_ + _%lp-tl174465174503%_ + (cons _%lp-hd174464174501%_ + _%clause174466174495%_)))) + (let ((_%clause174467174506%_ + (reverse _%clause174466174495%_))) + ((lambda (_%L174509%_) (for-each - (lambda (_%clause174486%_) - (let* ((_%__stx176796176797%_ - _%clause174486%_) - (_%g174489174504%_ + (lambda (_%clause174523%_) + (let* ((_%__stx176833176834%_ + _%clause174523%_) + (_%g174526174541%_ (lambda () (let () (declare @@ -1228,190 +1228,190 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176796176797%_))))) - (let ((_%__kont176798176799%_ - (lambda (_%L174532%_ + _%__stx176833176834%_))))) + (let ((_%__kont176835176836%_ + (lambda (_%L174569%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L174533%_ - _%L174534%_) - (let ((_%receiver174553%_ - (let ((_%$e174550%_ + _%L174570%_ + _%L174571%_) + (let ((_%receiver174590%_ + (let ((_%$e174587%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174532%_)))) - (if _%$e174550%_ _%$e174550%_ _%L174534%_)))) + _%L174569%_)))) + (if _%$e174587%_ _%$e174587%_ _%L174571%_)))) (for-each - (lambda (_%g174554174556%_) + (lambda (_%g174591174593%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174553%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g174554174556%_)) - _%L174532%_)))) - (_%__kont176800176801%_ (lambda () '#!void))) + _%receiver174590%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g174591174593%_)) + _%L174569%_)))) + (_%__kont176837176838%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx176796176797%_)) - (let ((_%e174494174516%_ + _%__stx176833176834%_)) + (let ((_%e174531174553%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx176796176797%_)))) - (let ((_%tl174496174521%_ + (gx#stx-e _%__stx176833176834%_)))) + (let ((_%tl174533174558%_ (let () (declare (not safe)) - (##cdr _%e174494174516%_))) - (_%hd174495174519%_ + (##cdr _%e174531174553%_))) + (_%hd174532174556%_ (let () (declare (not safe)) - (##car _%e174494174516%_)))) + (##car _%e174531174553%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174495174519%_)) - (let ((_%e174497174524%_ + (gx#stx-pair? _%hd174532174556%_)) + (let ((_%e174534174561%_ (let () (declare (not safe)) - (gx#stx-e _%hd174495174519%_)))) - (let ((_%tl174499174529%_ + (gx#stx-e _%hd174532174556%_)))) + (let ((_%tl174536174566%_ (let () (declare (not safe)) - (##cdr _%e174497174524%_))) - (_%hd174498174527%_ + (##cdr _%e174534174561%_))) + (_%hd174535174564%_ (let () (declare (not safe)) - (##car _%e174497174524%_)))) - (_%__kont176798176799%_ - _%tl174496174521%_ - _%tl174499174529%_ - _%hd174498174527%_))) - (_%__kont176800176801%_)))) - (_%__kont176800176801%_))))) + (##car _%e174534174561%_)))) + (_%__kont176835176836%_ + _%tl174533174558%_ + _%tl174536174566%_ + _%hd174535174564%_))) + (_%__kont176837176838%_)))) + (_%__kont176837176838%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp178002 - (lambda (_%g174561174564%_ - _%g174562174566%_) - (cons _%g174561174564%_ - _%g174562174566%_)))) + (let ((__tmp178039 + (lambda (_%g174598174601%_ + _%g174599174603%_) + (cons _%g174598174601%_ + _%g174599174603%_)))) (declare (not safe)) (__foldr1 - __tmp178002 + __tmp178039 '() - _%L174472%_))) - (if (_%no-specializer?173870%_) - _%stx173774%_ - (let* ((_%specializer-id174575%_ - (let* ((_%id174569%_ + _%L174509%_))) + (if (_%no-specializer?173907%_) + _%stx173811%_ + (let* ((_%specializer-id174612%_ + (let* ((_%id174606%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp178003 + (let ((__tmp178040 (let () (declare (not safe)) - (gx#stx-e _%L173847%_)))) + (gx#stx-e _%L173884%_)))) (declare (not safe)) - (make-symbol__1 __tmp178003 '"::specialize"))) - (_%specializer-id174572%_ - (let ((__tmp178004 + (make-symbol__1 __tmp178040 '"::specialize"))) + (_%specializer-id174609%_ + (let ((__tmp178041 (let () (declare (not safe)) - (gx#stx-source _%stx173774%_)))) + (gx#stx-source _%stx173811%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id174569%_ - __tmp178004)))) + _%id174606%_ + __tmp178041)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174572%_)) - _%specializer-id174572%_)) - (_%$klass174577%_ - (let ((__tmp178005 + (gx#core-bind-runtime!__0 _%specializer-id174609%_)) + _%specializer-id174609%_)) + (_%$klass174614%_ + (let ((__tmp178042 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178005))) - (_%$method-table174579%_ - (let ((__tmp178006 + (make-symbol__0 __tmp178042))) + (_%$method-table174616%_ + (let ((__tmp178043 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178006))) - (_%methods174581%_ + (make-symbol__0 __tmp178043))) + (_%methods174618%_ (let () (declare (not safe)) - (__hash-keys _%method-calls173866%_))) - (_%$methods174585%_ - (map (lambda (_%id174583%_) - (let ((__tmp178007 (gensym _%id174583%_))) + (__hash-keys _%method-calls173903%_))) + (_%$methods174622%_ + (map (lambda (_%id174620%_) + (let ((__tmp178044 (gensym _%id174620%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178007))) - _%methods174581%_)) - (_%_174594%_ + (make-symbol__1 '"__" __tmp178044))) + _%methods174618%_)) + (_%_174631%_ (for-each - (lambda (_%g174586174589%_ _%g174587174591%_) + (lambda (_%g174623174626%_ _%g174624174628%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173866%_ - _%g174586174589%_ - _%g174587174591%_))) - _%methods174581%_ - _%$methods174585%_)) - (_%methods-bind174604%_ - (map (lambda (_%g174596174599%_ _%g174597174601%_) - (_%generate-method-bind173776%_ - _%$klass174577%_ - _%$method-table174579%_ - _%g174596174599%_ - _%g174597174601%_)) - _%methods174581%_ - _%$methods174585%_)) - (_%slots174606%_ + _%method-calls173903%_ + _%g174623174626%_ + _%g174624174628%_))) + _%methods174618%_ + _%$methods174622%_)) + (_%methods-bind174641%_ + (map (lambda (_%g174633174636%_ _%g174634174638%_) + (_%generate-method-bind173813%_ + _%$klass174614%_ + _%$method-table174616%_ + _%g174633174636%_ + _%g174634174638%_)) + _%methods174618%_ + _%$methods174622%_)) + (_%slots174643%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173867%_))) - (_%$slots174610%_ - (map (lambda (_%id174608%_) - (let ((__tmp178008 (gensym _%id174608%_))) + (__hash-keys _%slot-refs173904%_))) + (_%$slots174647%_ + (map (lambda (_%id174645%_) + (let ((__tmp178045 (gensym _%id174645%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178008))) - _%slots174606%_)) - (_%_174619%_ + (make-symbol__1 '"__" __tmp178045))) + _%slots174643%_)) + (_%_174656%_ (for-each - (lambda (_%g174611174614%_ _%g174612174616%_) + (lambda (_%g174648174651%_ _%g174649174653%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173867%_ - _%g174611174614%_ - _%g174612174616%_))) - _%slots174606%_ - _%$slots174610%_)) - (_%slots-bind174628%_ - (map (lambda (_%g174620174623%_ _%g174621174625%_) - (_%generate-slot-bind173777%_ - _%$klass174577%_ - _%g174620174623%_ - _%g174621174625%_)) - _%slots174606%_ - _%$slots174610%_)) - (_%specializer-clauses174726%_ - (map (lambda (_%clause174630%_) - (let* ((_%__stx176816176817%_ _%clause174630%_) - (_%g174633174648%_ + _%slot-refs173904%_ + _%g174648174651%_ + _%g174649174653%_))) + _%slots174643%_ + _%$slots174647%_)) + (_%slots-bind174665%_ + (map (lambda (_%g174657174660%_ _%g174658174662%_) + (_%generate-slot-bind173814%_ + _%$klass174614%_ + _%g174657174660%_ + _%g174658174662%_)) + _%slots174643%_ + _%$slots174647%_)) + (_%specializer-clauses174763%_ + (map (lambda (_%clause174667%_) + (let* ((_%__stx176853176854%_ _%clause174667%_) + (_%g174670174685%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176816176817%_))))) - (let ((_%__kont176818176819%_ - (lambda (_%L174676%_ _%L174677%_ _%L174678%_) - (let* ((_%receiver174707%_ - (let ((_%$e174704%_ + _%__stx176853176854%_))))) + (let ((_%__kont176855176856%_ + (lambda (_%L174713%_ _%L174714%_ _%L174715%_) + (let* ((_%receiver174744%_ + (let ((_%$e174741%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1419,317 +1419,317 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L174676%_)))) - (if _%$e174704%_ - _%$e174704%_ - _%L174678%_))) - (_%body174713%_ - (map (lambda (_%g174708174710%_) + _%L174713%_)))) + (if _%$e174741%_ + _%$e174741%_ + _%L174715%_))) + (_%body174750%_ + (map (lambda (_%g174745174747%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174707%_ - _%$klass174577%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g174708174710%_)) - _%L174676%_))) - (cons (cons _%L174678%_ _%L174677%_) - _%body174713%_)))) - (_%__kont176820176821%_ - (lambda () _%clause174630%_))) + _%receiver174744%_ + _%$klass174614%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g174745174747%_)) + _%L174713%_))) + (cons (cons _%L174715%_ _%L174714%_) + _%body174750%_)))) + (_%__kont176857176858%_ + (lambda () _%clause174667%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176816176817%_)) - (let ((_%e174638174660%_ + (gx#stx-pair? _%__stx176853176854%_)) + (let ((_%e174675174697%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176816176817%_)))) - (let ((_%tl174640174665%_ + (gx#stx-e _%__stx176853176854%_)))) + (let ((_%tl174677174702%_ (let () (declare (not safe)) - (##cdr _%e174638174660%_))) - (_%hd174639174663%_ + (##cdr _%e174675174697%_))) + (_%hd174676174700%_ (let () (declare (not safe)) - (##car _%e174638174660%_)))) + (##car _%e174675174697%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174639174663%_)) - (let ((_%e174641174668%_ + (gx#stx-pair? _%hd174676174700%_)) + (let ((_%e174678174705%_ (let () (declare (not safe)) (gx#stx-e - _%hd174639174663%_)))) - (let ((_%tl174643174673%_ + _%hd174676174700%_)))) + (let ((_%tl174680174710%_ (let () (declare (not safe)) - (##cdr _%e174641174668%_))) - (_%hd174642174671%_ + (##cdr _%e174678174705%_))) + (_%hd174679174708%_ (let () (declare (not safe)) - (##car _%e174641174668%_)))) - (_%__kont176818176819%_ - _%tl174640174665%_ - _%tl174643174673%_ - _%hd174642174671%_))) - (_%__kont176820176821%_)))) - (_%__kont176820176821%_))))) - (let ((__tmp178009 - (lambda (_%g174718174721%_ _%g174719174723%_) - (cons _%g174718174721%_ _%g174719174723%_)))) + (##car _%e174678174705%_)))) + (_%__kont176855176856%_ + _%tl174677174702%_ + _%tl174680174710%_ + _%hd174679174708%_))) + (_%__kont176857176858%_)))) + (_%__kont176857176858%_))))) + (let ((__tmp178046 + (lambda (_%g174755174758%_ _%g174756174760%_) + (cons _%g174755174758%_ _%g174756174760%_)))) (declare (not safe)) - (__foldr1 __tmp178009 '() _%L174472%_)))) - (_%specializer-impl174728%_ - (let ((__tmp178010 - (cons '%#case-lambda _%specializer-clauses174726%_))) + (__foldr1 __tmp178046 '() _%L174509%_)))) + (_%specializer-impl174765%_ + (let ((__tmp178047 + (cons '%#case-lambda _%specializer-clauses174763%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178010 _%stx173774%_))) - (_%specializer-impl174730%_ - (_%generate-specializer-impl173778%_ - _%$klass174577%_ - _%$method-table174579%_ - _%methods-bind174604%_ - _%slots-bind174628%_ - _%specializer-impl174728%_))) + (gxc#xform-wrap-source __tmp178047 _%stx173811%_))) + (_%specializer-impl174767%_ + (_%generate-specializer-impl173815%_ + _%$klass174614%_ + _%$method-table174616%_ + _%methods-bind174641%_ + _%slots-bind174665%_ + _%specializer-impl174765%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp178012 + (let ((__tmp178049 (let () (declare (not safe)) (gx#stx-e - _%L173847%_))) - (__tmp178011 + _%L173884%_))) + (__tmp178048 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174575%_)))) + _%specializer-id174612%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178012 + __tmp178049 '" => " - __tmp178011)) - (_%generate-specializer-def173779%_ - _%L173847%_ - _%specializer-id174575%_ - _%specializer-impl174730%_)))) - _%clause174430174469%_)))))) - (_%loop174425174453%_ _%target174422174448%_ '())) - (_%g174416174435%_ _%g174417174438%_))))) - (_%g174416174435%_ _%g174417174438%_)))) + __tmp178048)) + (_%generate-specializer-def173816%_ + _%L173884%_ + _%specializer-id174612%_ + _%specializer-impl174767%_)))) + _%clause174467174506%_)))))) + (_%loop174462174490%_ _%target174459174485%_ '())) + (_%g174453174472%_ _%g174454174475%_))))) + (_%g174453174472%_ _%g174454174475%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174416174435%_ - _%g174417174438%_))))) - (_%g174415174733%_ _%L173846%_)) + (_%g174453174472%_ + _%g174454174475%_))))) + (_%g174452174770%_ _%L173883%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L173846%_)) - (let* ((_%g174737174767%_ - (lambda (_%g174738174764%_) + (gxc#opt-lambda-expr? _%L173883%_)) + (let* ((_%g174774174804%_ + (lambda (_%g174775174801%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174738174764%_)))) - (_%g174736175398%_ - (lambda (_%g174738174770%_) + _%g174775174801%_)))) + (_%g174773175435%_ + (lambda (_%g174775174807%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174738174770%_)) - (let ((_%e174742174772%_ + _%g174775174807%_)) + (let ((_%e174779174809%_ (let () (declare (not safe)) (gx#stx-e - _%g174738174770%_)))) - (let ((_%hd174743174775%_ + _%g174775174807%_)))) + (let ((_%hd174780174812%_ (let () (declare (not safe)) - (##car _%e174742174772%_))) - (_%tl174744174777%_ + (##car _%e174779174809%_))) + (_%tl174781174814%_ (let () (declare (not safe)) - (##cdr _%e174742174772%_)))) + (##cdr _%e174779174809%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174744174777%_)) - (let ((_%e174745174780%_ + _%tl174781174814%_)) + (let ((_%e174782174817%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174744174777%_)))) - (let ((_%hd174746174783%_ + (gx#stx-e _%tl174781174814%_)))) + (let ((_%hd174783174820%_ (let () (declare (not safe)) - (##car _%e174745174780%_))) - (_%tl174747174785%_ + (##car _%e174782174817%_))) + (_%tl174784174822%_ (let () (declare (not safe)) - (##cdr _%e174745174780%_)))) + (##cdr _%e174782174817%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174746174783%_)) - (let ((_%e174748174788%_ + (gx#stx-pair? _%hd174783174820%_)) + (let ((_%e174785174825%_ (let () (declare (not safe)) - (gx#stx-e _%hd174746174783%_)))) - (let ((_%hd174749174791%_ + (gx#stx-e _%hd174783174820%_)))) + (let ((_%hd174786174828%_ (let () (declare (not safe)) - (##car _%e174748174788%_))) - (_%tl174750174793%_ + (##car _%e174785174825%_))) + (_%tl174787174830%_ (let () (declare (not safe)) - (##cdr _%e174748174788%_)))) + (##cdr _%e174785174825%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174749174791%_)) - (let ((_%e174751174796%_ + (gx#stx-pair? _%hd174786174828%_)) + (let ((_%e174788174833%_ (let () (declare (not safe)) - (gx#stx-e _%hd174749174791%_)))) - (let ((_%hd174752174799%_ + (gx#stx-e _%hd174786174828%_)))) + (let ((_%hd174789174836%_ (let () (declare (not safe)) - (##car _%e174751174796%_))) - (_%tl174753174801%_ + (##car _%e174788174833%_))) + (_%tl174790174838%_ (let () (declare (not safe)) - (##cdr _%e174751174796%_)))) + (##cdr _%e174788174833%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174752174799%_)) - (let ((_%e174754174804%_ + (gx#stx-pair? _%hd174789174836%_)) + (let ((_%e174791174841%_ (let () (declare (not safe)) (gx#stx-e - _%hd174752174799%_)))) - (let ((_%hd174755174807%_ + _%hd174789174836%_)))) + (let ((_%hd174792174844%_ (let () (declare (not safe)) - (##car _%e174754174804%_))) - (_%tl174756174809%_ + (##car _%e174791174841%_))) + (_%tl174793174846%_ (let () (declare (not safe)) - (##cdr _%e174754174804%_)))) + (##cdr _%e174791174841%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174756174809%_)) + _%tl174793174846%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174753174801%_)) - (let ((_%e174757174812%_ + _%tl174790174838%_)) + (let ((_%e174794174849%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174753174801%_)))) - (let ((_%hd174758174815%_ + (gx#stx-e _%tl174790174838%_)))) + (let ((_%hd174795174852%_ (let () (declare (not safe)) - (##car _%e174757174812%_))) - (_%tl174759174817%_ + (##car _%e174794174849%_))) + (_%tl174796174854%_ (let () (declare (not safe)) - (##cdr _%e174757174812%_)))) + (##cdr _%e174794174849%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174759174817%_)) + (gx#stx-null? _%tl174796174854%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174750174793%_)) + (gx#stx-null? _%tl174787174830%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174747174785%_)) - (let ((_%e174760174820%_ + (gx#stx-pair? _%tl174784174822%_)) + (let ((_%e174797174857%_ (let () (declare (not safe)) - (gx#stx-e _%tl174747174785%_)))) - (let ((_%hd174761174823%_ + (gx#stx-e _%tl174784174822%_)))) + (let ((_%hd174798174860%_ (let () (declare (not safe)) - (##car _%e174760174820%_))) - (_%tl174762174825%_ + (##car _%e174797174857%_))) + (_%tl174799174862%_ (let () (declare (not safe)) - (##cdr _%e174760174820%_)))) + (##cdr _%e174797174857%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174762174825%_)) - ((lambda (_%L174828%_ - _%L174829%_ - _%L174830%_) - (let* ((_%g174854174872%_ - (lambda (_%g174855174869%_) + (gx#stx-null? _%tl174799174862%_)) + ((lambda (_%L174865%_ + _%L174866%_ + _%L174867%_) + (let* ((_%g174891174909%_ + (lambda (_%g174892174906%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174855174869%_)))) - (_%g174853174928%_ - (lambda (_%g174855174875%_) + _%g174892174906%_)))) + (_%g174890174965%_ + (lambda (_%g174892174912%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174855174875%_)) - (let ((_%e174859174877%_ + _%g174892174912%_)) + (let ((_%e174896174914%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g174855174875%_)))) - (let ((_%hd174860174880%_ + (gx#stx-e _%g174892174912%_)))) + (let ((_%hd174897174917%_ (let () (declare (not safe)) - (##car _%e174859174877%_))) - (_%tl174861174882%_ + (##car _%e174896174914%_))) + (_%tl174898174919%_ (let () (declare (not safe)) - (##cdr _%e174859174877%_)))) + (##cdr _%e174896174914%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174861174882%_)) - (let ((_%e174862174885%_ + (gx#stx-pair? _%tl174898174919%_)) + (let ((_%e174899174922%_ (let () (declare (not safe)) - (gx#stx-e _%tl174861174882%_)))) - (let ((_%hd174863174888%_ + (gx#stx-e _%tl174898174919%_)))) + (let ((_%hd174900174925%_ (let () (declare (not safe)) - (##car _%e174862174885%_))) - (_%tl174864174890%_ + (##car _%e174899174922%_))) + (_%tl174901174927%_ (let () (declare (not safe)) - (##cdr _%e174862174885%_)))) + (##cdr _%e174899174922%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174863174888%_)) - (let ((_%e174865174893%_ + (gx#stx-pair? _%hd174900174925%_)) + (let ((_%e174902174930%_ (let () (declare (not safe)) - (gx#stx-e _%hd174863174888%_)))) - (let ((_%hd174866174896%_ + (gx#stx-e _%hd174900174925%_)))) + (let ((_%hd174903174933%_ (let () (declare (not safe)) - (##car _%e174865174893%_))) - (_%tl174867174898%_ + (##car _%e174902174930%_))) + (_%tl174904174935%_ (let () (declare (not safe)) - (##cdr _%e174865174893%_)))) - ((lambda (_%L174901%_ - _%L174902%_ - _%L174903%_) - (let ((_%receiver174922%_ - (let ((_%$e174919%_ + (##cdr _%e174902174930%_)))) + ((lambda (_%L174938%_ + _%L174939%_ + _%L174940%_) + (let ((_%receiver174959%_ + (let ((_%$e174956%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1737,3099 +1737,3099 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L174901%_)))) - (if _%$e174919%_ - _%$e174919%_ - _%L174903%_)))) + _%L174938%_)))) + (if _%$e174956%_ + _%$e174956%_ + _%L174940%_)))) (for-each - (lambda (_%g174923174925%_) + (lambda (_%g174960174962%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174922%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g174923174925%_)) - _%L174901%_))) - _%tl174864174890%_ - _%tl174867174898%_ - _%hd174866174896%_))) - (_%g174854174872%_ _%g174855174875%_)))) - (_%g174854174872%_ _%g174855174875%_)))) - (_%g174854174872%_ _%g174855174875%_))))) + _%receiver174959%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g174960174962%_)) + _%L174938%_))) + _%tl174901174927%_ + _%tl174904174935%_ + _%hd174903174933%_))) + (_%g174891174909%_ _%g174892174912%_)))) + (_%g174891174909%_ _%g174892174912%_)))) + (_%g174891174909%_ _%g174892174912%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174853174928%_ _%L174829%_)) - (let* ((_%g174931174950%_ - (lambda (_%g174932174947%_) + (_%g174890174965%_ _%L174866%_)) + (let* ((_%g174968174987%_ + (lambda (_%g174969174984%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174932174947%_)))) - (_%g174930175074%_ - (lambda (_%g174932174953%_) + _%g174969174984%_)))) + (_%g174967175111%_ + (lambda (_%g174969174990%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174932174953%_)) - (let ((_%e174934174955%_ + _%g174969174990%_)) + (let ((_%e174971174992%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g174932174953%_)))) - (let ((_%hd174935174958%_ + (gx#stx-e _%g174969174990%_)))) + (let ((_%hd174972174995%_ (let () (declare (not safe)) - (##car _%e174934174955%_))) - (_%tl174936174960%_ + (##car _%e174971174992%_))) + (_%tl174973174997%_ (let () (declare (not safe)) - (##cdr _%e174934174955%_)))) + (##cdr _%e174971174992%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174936174960%_)) - (let ((_g178013_ + (gx#stx-pair/null? _%tl174973174997%_)) + (let ((_g178050_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl174936174960%_ + _%tl174973174997%_ '0)))) (begin - (let ((_g178014_ + (let ((_g178051_ (let () (declare (not safe)) - (if (##values? _g178013_) - (##vector-length _g178013_) + (if (##values? _g178050_) + (##vector-length _g178050_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178014_ 2))) + (##fx= _g178051_ 2))) (error "Context expects 2 values" - _g178014_))) - (let ((_%target174937174963%_ + _g178051_))) + (let ((_%target174974175000%_ (let () (declare (not safe)) - (##vector-ref _g178013_ 0))) - (_%tl174939174965%_ + (##vector-ref _g178050_ 0))) + (_%tl174976175002%_ (let () (declare (not safe)) - (##vector-ref _g178013_ 1)))) + (##vector-ref _g178050_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174939174965%_)) - (letrec ((_%loop174940174968%_ - (lambda (_%hd174938174971%_ - _%clause174944174973%_) + (gx#stx-null? _%tl174976175002%_)) + (letrec ((_%loop174977175005%_ + (lambda (_%hd174975175008%_ + _%clause174981175010%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174938174971%_)) - (let ((_%e174941174976%_ + _%hd174975175008%_)) + (let ((_%e174978175013%_ (let () (declare (not safe)) (gx#stx-e - _%hd174938174971%_)))) - (let ((_%lp-hd174942174979%_ + _%hd174975175008%_)))) + (let ((_%lp-hd174979175016%_ (let () (declare (not safe)) - (##car _%e174941174976%_))) - (_%lp-tl174943174981%_ + (##car _%e174978175013%_))) + (_%lp-tl174980175018%_ (let () (declare (not safe)) - (##cdr _%e174941174976%_)))) - (_%loop174940174968%_ - _%lp-tl174943174981%_ - (cons _%lp-hd174942174979%_ - _%clause174944174973%_)))) - (let ((_%clause174945174984%_ - (reverse _%clause174944174973%_))) - ((lambda (_%L174987%_) + (##cdr _%e174978175013%_)))) + (_%loop174977175005%_ + _%lp-tl174980175018%_ + (cons _%lp-hd174979175016%_ + _%clause174981175010%_)))) + (let ((_%clause174982175021%_ + (reverse _%clause174981175010%_))) + ((lambda (_%L175024%_) (for-each - (lambda (_%clause175000%_) - (let* ((_%g175002175017%_ + (lambda (_%clause175037%_) + (let* ((_%g175039175054%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g175003175014%_) + (lambda (_%g175040175051%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175003175014%_)))) - (_%g175001175064%_ - (lambda (_%g175003175020%_) + _%g175040175051%_)))) + (_%g175038175101%_ + (lambda (_%g175040175057%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175003175020%_)) - (let ((_%e175007175022%_ + (gx#stx-pair? _%g175040175057%_)) + (let ((_%e175044175059%_ (let () (declare (not safe)) - (gx#stx-e _%g175003175020%_)))) - (let ((_%hd175008175025%_ + (gx#stx-e _%g175040175057%_)))) + (let ((_%hd175045175062%_ (let () (declare (not safe)) - (##car _%e175007175022%_))) - (_%tl175009175027%_ + (##car _%e175044175059%_))) + (_%tl175046175064%_ (let () (declare (not safe)) - (##cdr _%e175007175022%_)))) + (##cdr _%e175044175059%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175008175025%_)) - (let ((_%e175010175030%_ + (gx#stx-pair? _%hd175045175062%_)) + (let ((_%e175047175067%_ (let () (declare (not safe)) (gx#stx-e - _%hd175008175025%_)))) - (let ((_%hd175011175033%_ + _%hd175045175062%_)))) + (let ((_%hd175048175070%_ (let () (declare (not safe)) - (##car _%e175010175030%_))) - (_%tl175012175035%_ + (##car _%e175047175067%_))) + (_%tl175049175072%_ (let () (declare (not safe)) - (##cdr _%e175010175030%_)))) - ((lambda (_%L175038%_ - _%L175039%_ - _%L175040%_) - (let ((_%receiver175058%_ - (let ((_%$e175055%_ + (##cdr _%e175047175067%_)))) + ((lambda (_%L175075%_ + _%L175076%_ + _%L175077%_) + (let ((_%receiver175095%_ + (let ((_%$e175092%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175038%_)))) - (if _%$e175055%_ _%$e175055%_ _%L175040%_)))) + _%L175075%_)))) + (if _%$e175092%_ _%$e175092%_ _%L175077%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g175059175061%_) + (lambda (_%g175096175098%_) (gxc#apply-collect-object-refs__% '#f - _%receiver175058%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g175059175061%_)) - _%L175038%_))) - _%tl175009175027%_ - _%tl175012175035%_ - _%hd175011175033%_))) - (_%g175002175017%_ - _%g175003175020%_)))) - (_%g175002175017%_ _%g175003175020%_))))) - (_%g175001175064%_ _%clause175000%_))) - (let ((__tmp178015 - (lambda (_%g175066175069%_ _%g175067175071%_) - (cons _%g175066175069%_ _%g175067175071%_)))) + _%receiver175095%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g175096175098%_)) + _%L175075%_))) + _%tl175046175064%_ + _%tl175049175072%_ + _%hd175048175070%_))) + (_%g175039175054%_ + _%g175040175057%_)))) + (_%g175039175054%_ _%g175040175057%_))))) + (_%g175038175101%_ _%clause175037%_))) + (let ((__tmp178052 + (lambda (_%g175103175106%_ _%g175104175108%_) + (cons _%g175103175106%_ _%g175104175108%_)))) (declare (not safe)) - (__foldr1 __tmp178015 '() _%L174987%_)))) + (__foldr1 __tmp178052 '() _%L175024%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause174945174984%_)))))) - (_%loop174940174968%_ - _%target174937174963%_ + _%clause174982175021%_)))))) + (_%loop174977175005%_ + _%target174974175000%_ '())) - (_%g174931174950%_ _%g174932174953%_))))) - (_%g174931174950%_ _%g174932174953%_)))) - (_%g174931174950%_ _%g174932174953%_))))) + (_%g174968174987%_ _%g174969174990%_))))) + (_%g174968174987%_ _%g174969174990%_)))) + (_%g174968174987%_ _%g174969174990%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174930175074%_ _%L174828%_)) - (if (_%no-specializer?173870%_) - _%stx173774%_ - (let* ((_%specializer-id175083%_ - (let* ((_%id175077%_ - (let ((__tmp178016 + (_%g174967175111%_ _%L174865%_)) + (if (_%no-specializer?173907%_) + _%stx173811%_ + (let* ((_%specializer-id175120%_ + (let* ((_%id175114%_ + (let ((__tmp178053 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L173847%_)))) + (gx#stx-e _%L173884%_)))) (declare (not safe)) - (make-symbol__1 __tmp178016 '"::specialize"))) - (_%specializer-id175080%_ - (let ((__tmp178017 + (make-symbol__1 __tmp178053 '"::specialize"))) + (_%specializer-id175117%_ + (let ((__tmp178054 (let () (declare (not safe)) - (gx#stx-source _%stx173774%_)))) + (gx#stx-source _%stx173811%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id175077%_ __tmp178017)))) + (gx#core-quote-syntax__1 _%id175114%_ __tmp178054)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id175080%_)) - _%specializer-id175080%_)) + (gx#core-bind-runtime!__0 _%specializer-id175117%_)) + _%specializer-id175117%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass175085%_ - (let ((__tmp178018 + (_%$klass175122%_ + (let ((__tmp178055 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178018))) + (make-symbol__0 __tmp178055))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table175087%_ - (let ((__tmp178019 + (_%$method-table175124%_ + (let ((__tmp178056 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178019))) + (make-symbol__0 __tmp178056))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods175089%_ + (_%methods175126%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173866%_))) - (_%$methods175093%_ - (map (lambda (_%id175091%_) - (let ((__tmp178020 + _%method-calls173903%_))) + (_%$methods175130%_ + (map (lambda (_%id175128%_) + (let ((__tmp178057 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id175091%_))) + (gensym _%id175128%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178020))) - _%methods175089%_)) + (make-symbol__1 '"__" __tmp178057))) + _%methods175126%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_175102%_ + (_%_175139%_ (for-each - (lambda (_%g175094175097%_ - _%g175095175099%_) + (lambda (_%g175131175134%_ + _%g175132175136%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173866%_ - _%g175094175097%_ - _%g175095175099%_))) - _%methods175089%_ - _%$methods175093%_)) - (_%methods-bind175112%_ - (map (lambda (_%g175104175107%_ + _%method-calls173903%_ + _%g175131175134%_ + _%g175132175136%_))) + _%methods175126%_ + _%$methods175130%_)) + (_%methods-bind175149%_ + (map (lambda (_%g175141175144%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175105175109%_) - (_%generate-method-bind173776%_ - _%$klass175085%_ - _%$method-table175087%_ - _%g175104175107%_ - _%g175105175109%_)) - _%methods175089%_ - _%$methods175093%_)) + _%g175142175146%_) + (_%generate-method-bind173813%_ + _%$klass175122%_ + _%$method-table175124%_ + _%g175141175144%_ + _%g175142175146%_)) + _%methods175126%_ + _%$methods175130%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots175114%_ + (_%slots175151%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs173867%_))) - (_%$slots175118%_ - (map (lambda (_%id175116%_) - (let ((__tmp178021 + _%slot-refs173904%_))) + (_%$slots175155%_ + (map (lambda (_%id175153%_) + (let ((__tmp178058 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id175116%_))) + (gensym _%id175153%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178021))) - _%slots175114%_)) + (make-symbol__1 '"__" __tmp178058))) + _%slots175151%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_175127%_ + (_%_175164%_ (for-each - (lambda (_%g175119175122%_ - _%g175120175124%_) + (lambda (_%g175156175159%_ + _%g175157175161%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173867%_ - _%g175119175122%_ - _%g175120175124%_))) - _%slots175114%_ - _%$slots175118%_)) - (_%slots-bind175136%_ - (map (lambda (_%g175128175131%_ + _%slot-refs173904%_ + _%g175156175159%_ + _%g175157175161%_))) + _%slots175151%_ + _%$slots175155%_)) + (_%slots-bind175173%_ + (map (lambda (_%g175165175168%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175129175133%_) - (_%generate-slot-bind173777%_ - _%$klass175085%_ - _%g175128175131%_ - _%g175129175133%_)) - _%slots175114%_ - _%$slots175118%_)) + _%g175166175170%_) + (_%generate-slot-bind173814%_ + _%$klass175122%_ + _%g175165175168%_ + _%g175166175170%_)) + _%slots175151%_ + _%$slots175155%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-lambda-expr175228%_ - (let* ((_%g175138175156%_ - (lambda (_%g175139175153%_) + (_%specializer-lambda-expr175265%_ + (let* ((_%g175175175193%_ + (lambda (_%g175176175190%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175139175153%_)))) - (_%g175137175225%_ - (lambda (_%g175139175159%_) + _%g175176175190%_)))) + (_%g175174175262%_ + (lambda (_%g175176175196%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175139175159%_)) - (let ((_%e175143175161%_ + (gx#stx-pair? _%g175176175196%_)) + (let ((_%e175180175198%_ (let () (declare (not safe)) - (gx#stx-e _%g175139175159%_)))) - (let ((_%hd175144175164%_ + (gx#stx-e _%g175176175196%_)))) + (let ((_%hd175181175201%_ (let () (declare (not safe)) - (##car _%e175143175161%_))) - (_%tl175145175166%_ + (##car _%e175180175198%_))) + (_%tl175182175203%_ (let () (declare (not safe)) - (##cdr _%e175143175161%_)))) + (##cdr _%e175180175198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175145175166%_)) - (let ((_%e175146175169%_ + (gx#stx-pair? _%tl175182175203%_)) + (let ((_%e175183175206%_ (let () (declare (not safe)) - (gx#stx-e _%tl175145175166%_)))) - (let ((_%hd175147175172%_ + (gx#stx-e _%tl175182175203%_)))) + (let ((_%hd175184175209%_ (let () (declare (not safe)) - (##car _%e175146175169%_))) - (_%tl175148175174%_ + (##car _%e175183175206%_))) + (_%tl175185175211%_ (let () (declare (not safe)) - (##cdr _%e175146175169%_)))) + (##cdr _%e175183175206%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175147175172%_)) - (let ((_%e175149175177%_ + _%hd175184175209%_)) + (let ((_%e175186175214%_ (let () (declare (not safe)) (gx#stx-e - _%hd175147175172%_)))) - (let ((_%hd175150175180%_ + _%hd175184175209%_)))) + (let ((_%hd175187175217%_ (let () (declare (not safe)) - (##car _%e175149175177%_))) - (_%tl175151175182%_ + (##car _%e175186175214%_))) + (_%tl175188175219%_ (let () (declare (not safe)) - (##cdr _%e175149175177%_)))) - ((lambda (_%L175185%_ - _%L175186%_ - _%L175187%_) - (let* ((_%receiver175216%_ - (let ((_%$e175213%_ + (##cdr _%e175186175214%_)))) + ((lambda (_%L175222%_ + _%L175223%_ + _%L175224%_) + (let* ((_%receiver175253%_ + (let ((_%$e175250%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175185%_)))) - (if _%$e175213%_ _%$e175213%_ _%L175187%_))) - (_%body175222%_ - (map (lambda (_%g175217175219%_) + _%L175222%_)))) + (if _%$e175250%_ _%$e175250%_ _%L175224%_))) + (_%body175259%_ + (map (lambda (_%g175254175256%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175216%_ - _%$klass175085%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g175217175219%_)) - _%L175185%_)) - (__tmp178022 + _%receiver175253%_ + _%$klass175122%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g175254175256%_)) + _%L175222%_)) + (__tmp178059 (cons '%#lambda - (cons (cons _%L175187%_ _%L175186%_) - _%body175222%_)))) + (cons (cons _%L175224%_ _%L175223%_) + _%body175259%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178022 - _%L174829%_))) - _%tl175148175174%_ - _%tl175151175182%_ - _%hd175150175180%_))) - (_%g175138175156%_ - _%g175139175159%_)))) - (_%g175138175156%_ _%g175139175159%_)))) - (_%g175138175156%_ _%g175139175159%_))))) - (_%g175137175225%_ _%L174829%_))) + __tmp178059 + _%L174866%_))) + _%tl175185175211%_ + _%tl175188175219%_ + _%hd175187175217%_))) + (_%g175175175193%_ + _%g175176175196%_)))) + (_%g175175175193%_ _%g175176175196%_)))) + (_%g175175175193%_ _%g175176175196%_))))) + (_%g175174175262%_ _%L174866%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-case-lambda-expr175391%_ - (let* ((_%g175230175249%_ - (lambda (_%g175231175246%_) + (_%specializer-case-lambda-expr175428%_ + (let* ((_%g175267175286%_ + (lambda (_%g175268175283%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175231175246%_)))) - (_%g175229175388%_ - (lambda (_%g175231175252%_) + _%g175268175283%_)))) + (_%g175266175425%_ + (lambda (_%g175268175289%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175231175252%_)) - (let ((_%e175233175254%_ + (gx#stx-pair? _%g175268175289%_)) + (let ((_%e175270175291%_ (let () (declare (not safe)) - (gx#stx-e _%g175231175252%_)))) - (let ((_%hd175234175257%_ + (gx#stx-e _%g175268175289%_)))) + (let ((_%hd175271175294%_ (let () (declare (not safe)) - (##car _%e175233175254%_))) - (_%tl175235175259%_ + (##car _%e175270175291%_))) + (_%tl175272175296%_ (let () (declare (not safe)) - (##cdr _%e175233175254%_)))) + (##cdr _%e175270175291%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175235175259%_)) - (let ((_g178023_ + (gx#stx-pair/null? _%tl175272175296%_)) + (let ((_g178060_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175235175259%_ + _%tl175272175296%_ '0)))) (begin - (let ((_g178024_ + (let ((_g178061_ (let () (declare (not safe)) - (if (##values? _g178023_) + (if (##values? _g178060_) (##vector-length - _g178023_) + _g178060_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178024_ 2))) + (##fx= _g178061_ 2))) (error "Context expects 2 values" - _g178024_))) - (let ((_%target175236175262%_ + _g178061_))) + (let ((_%target175273175299%_ (let () (declare (not safe)) - (##vector-ref _g178023_ 0))) - (_%tl175238175264%_ + (##vector-ref _g178060_ 0))) + (_%tl175275175301%_ (let () (declare (not safe)) - (##vector-ref _g178023_ 1)))) + (##vector-ref _g178060_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175238175264%_)) - (letrec ((_%loop175239175267%_ - (lambda (_%hd175237175270%_ + _%tl175275175301%_)) + (letrec ((_%loop175276175304%_ + (lambda (_%hd175274175307%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause175243175272%_) + _%clause175280175309%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175237175270%_)) - (let ((_%e175240175275%_ + (gx#stx-pair? _%hd175274175307%_)) + (let ((_%e175277175312%_ (let () (declare (not safe)) - (gx#stx-e _%hd175237175270%_)))) - (let ((_%lp-hd175241175278%_ + (gx#stx-e _%hd175274175307%_)))) + (let ((_%lp-hd175278175315%_ (let () (declare (not safe)) - (##car _%e175240175275%_))) - (_%lp-tl175242175280%_ + (##car _%e175277175312%_))) + (_%lp-tl175279175317%_ (let () (declare (not safe)) - (##cdr _%e175240175275%_)))) - (_%loop175239175267%_ - _%lp-tl175242175280%_ - (cons _%lp-hd175241175278%_ - _%clause175243175272%_)))) - (let ((_%clause175244175283%_ - (reverse _%clause175243175272%_))) - ((lambda (_%L175286%_) - (let* ((_%clauses175386%_ - (map (lambda (_%clause175300%_) - (let* ((_%__stx176836176837%_ - _%clause175300%_) - (_%g175303175318%_ + (##cdr _%e175277175312%_)))) + (_%loop175276175304%_ + _%lp-tl175279175317%_ + (cons _%lp-hd175278175315%_ + _%clause175280175309%_)))) + (let ((_%clause175281175320%_ + (reverse _%clause175280175309%_))) + ((lambda (_%L175323%_) + (let* ((_%clauses175423%_ + (map (lambda (_%clause175337%_) + (let* ((_%__stx176873176874%_ + _%clause175337%_) + (_%g175340175355%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176836176837%_))))) - (let ((_%__kont176838176839%_ - (lambda (_%L175346%_ - _%L175347%_ - _%L175348%_) - (let* ((_%receiver175367%_ - (let ((_%$e175364%_ + _%__stx176873176874%_))))) + (let ((_%__kont176875176876%_ + (lambda (_%L175383%_ + _%L175384%_ + _%L175385%_) + (let* ((_%receiver175404%_ + (let ((_%$e175401%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175346%_)))) - (if _%$e175364%_ _%$e175364%_ _%L175348%_))) - (_%body175373%_ - (map (lambda (_%g175368175370%_) + _%L175383%_)))) + (if _%$e175401%_ _%$e175401%_ _%L175385%_))) + (_%body175410%_ + (map (lambda (_%g175405175407%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175367%_ - _%$klass175085%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g175368175370%_)) - _%L175346%_))) - (cons (cons _%L175348%_ _%L175347%_) _%body175373%_)))) + _%receiver175404%_ + _%$klass175122%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g175405175407%_)) + _%L175383%_))) + (cons (cons _%L175385%_ _%L175384%_) _%body175410%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176840176841%_ + (_%__kont176877176878%_ (lambda () - _%clause175300%_))) + _%clause175337%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx176836176837%_)) - (let ((_%e175308175330%_ + _%__stx176873176874%_)) + (let ((_%e175345175367%_ (let () (declare (not safe)) (gx#stx-e - _%__stx176836176837%_)))) - (let ((_%tl175310175335%_ + _%__stx176873176874%_)))) + (let ((_%tl175347175372%_ (let () (declare (not safe)) - (##cdr _%e175308175330%_))) - (_%hd175309175333%_ + (##cdr _%e175345175367%_))) + (_%hd175346175370%_ (let () (declare (not safe)) - (##car _%e175308175330%_)))) + (##car _%e175345175367%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175309175333%_)) - (let ((_%e175311175338%_ + _%hd175346175370%_)) + (let ((_%e175348175375%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175309175333%_)))) - (let ((_%tl175313175343%_ + (gx#stx-e _%hd175346175370%_)))) + (let ((_%tl175350175380%_ (let () (declare (not safe)) - (##cdr _%e175311175338%_))) - (_%hd175312175341%_ + (##cdr _%e175348175375%_))) + (_%hd175349175378%_ (let () (declare (not safe)) - (##car _%e175311175338%_)))) - (_%__kont176838176839%_ - _%tl175310175335%_ - _%tl175313175343%_ - _%hd175312175341%_))) - (_%__kont176840176841%_)))) + (##car _%e175348175375%_)))) + (_%__kont176875176876%_ + _%tl175347175372%_ + _%tl175350175380%_ + _%hd175349175378%_))) + (_%__kont176877176878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176840176841%_))))) - (let ((__tmp178025 - (lambda (_%g175378175381%_ - _%g175379175383%_) - (cons _%g175378175381%_ - _%g175379175383%_)))) + (_%__kont176877176878%_))))) + (let ((__tmp178062 + (lambda (_%g175415175418%_ + _%g175416175420%_) + (cons _%g175415175418%_ + _%g175416175420%_)))) (declare (not safe)) (__foldr1 - __tmp178025 + __tmp178062 '() - _%L175286%_)))) - (__tmp178026 - (cons '%#case-lambda _%clauses175386%_))) + _%L175323%_)))) + (__tmp178063 + (cons '%#case-lambda _%clauses175423%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178026 _%L174828%_))) - _%clause175244175283%_)))))) + (gxc#xform-wrap-source __tmp178063 _%L174865%_))) + _%clause175281175320%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175239175267%_ - _%target175236175262%_ + (_%loop175276175304%_ + _%target175273175299%_ '())) - (_%g175230175249%_ - _%g175231175252%_))))) - (_%g175230175249%_ _%g175231175252%_)))) - (_%g175230175249%_ _%g175231175252%_))))) - (_%g175229175388%_ _%L174828%_))) + (_%g175267175286%_ + _%g175268175289%_))))) + (_%g175267175286%_ _%g175268175289%_)))) + (_%g175267175286%_ _%g175268175289%_))))) + (_%g175266175425%_ _%L174865%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl175393%_ - (let ((__tmp178027 + (_%specializer-impl175430%_ + (let ((__tmp178064 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L174830%_ '()) - (cons _%specializer-lambda-expr175228%_ + (cons (cons (cons (cons _%L174867%_ '()) + (cons _%specializer-lambda-expr175265%_ '())) '()) - (cons _%specializer-case-lambda-expr175391%_ + (cons _%specializer-case-lambda-expr175428%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178027 _%stx173774%_))) + (gxc#xform-wrap-source __tmp178064 _%stx173811%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl175395%_ - (_%generate-specializer-impl173778%_ - _%$klass175085%_ - _%$method-table175087%_ - _%methods-bind175112%_ - _%slots-bind175136%_ - _%specializer-impl175393%_))) - (let ((__tmp178029 + (_%specializer-impl175432%_ + (_%generate-specializer-impl173815%_ + _%$klass175122%_ + _%$method-table175124%_ + _%methods-bind175149%_ + _%slots-bind175173%_ + _%specializer-impl175430%_))) + (let ((__tmp178066 (let () (declare (not safe)) (gx#stx-e - _%L173847%_))) - (__tmp178028 + _%L173884%_))) + (__tmp178065 (let () (declare (not safe)) (gx#stx-e - _%specializer-id175083%_)))) + _%specializer-id175120%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178029 + __tmp178066 '" => " - __tmp178028)) - (_%generate-specializer-def173779%_ - _%L173847%_ - _%specializer-id175083%_ - _%specializer-impl175395%_)))) - _%hd174761174823%_ - _%hd174758174815%_ - _%hd174755174807%_) - (_%g174737174767%_ _%g174738174770%_)))) - (_%g174737174767%_ _%g174738174770%_)) - (_%g174737174767%_ _%g174738174770%_)) - (_%g174737174767%_ _%g174738174770%_)))) - (_%g174737174767%_ _%g174738174770%_)) + __tmp178065)) + (_%generate-specializer-def173816%_ + _%L173884%_ + _%specializer-id175120%_ + _%specializer-impl175432%_)))) + _%hd174798174860%_ + _%hd174795174852%_ + _%hd174792174844%_) + (_%g174774174804%_ _%g174775174807%_)))) + (_%g174774174804%_ _%g174775174807%_)) + (_%g174774174804%_ _%g174775174807%_)) + (_%g174774174804%_ _%g174775174807%_)))) + (_%g174774174804%_ _%g174775174807%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174737174767%_ - _%g174738174770%_)))) - (_%g174737174767%_ - _%g174738174770%_)))) - (_%g174737174767%_ _%g174738174770%_)))) - (_%g174737174767%_ _%g174738174770%_)))) - (_%g174737174767%_ _%g174738174770%_)))) + (_%g174774174804%_ + _%g174775174807%_)))) + (_%g174774174804%_ + _%g174775174807%_)))) + (_%g174774174804%_ _%g174775174807%_)))) + (_%g174774174804%_ _%g174775174807%_)))) + (_%g174774174804%_ _%g174775174807%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174737174767%_ - _%g174738174770%_))))) - (_%g174736175398%_ _%L173846%_)) + (_%g174774174804%_ + _%g174775174807%_))))) + (_%g174773175435%_ _%L173883%_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _%L173846%_)) - (let* ((_%g175402175455%_ - (lambda (_%g175403175452%_) + (gxc#kw-lambda-expr? _%L173883%_)) + (let* ((_%g175439175492%_ + (lambda (_%g175440175489%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175403175452%_)))) - (_%g175401176626%_ - (lambda (_%g175403175458%_) + _%g175440175489%_)))) + (_%g175438176663%_ + (lambda (_%g175440175495%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175403175458%_)) - (let ((_%e175409175460%_ + _%g175440175495%_)) + (let ((_%e175446175497%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g175403175458%_)))) - (let ((_%hd175410175463%_ + (gx#stx-e _%g175440175495%_)))) + (let ((_%hd175447175500%_ (let () (declare (not safe)) - (##car _%e175409175460%_))) - (_%tl175411175465%_ + (##car _%e175446175497%_))) + (_%tl175448175502%_ (let () (declare (not safe)) - (##cdr _%e175409175460%_)))) + (##cdr _%e175446175497%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175410175463%_)) + (gx#identifier? _%hd175447175500%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd175410175463%_)) + (gx#stx-eq? '%#let-values _%hd175447175500%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175411175465%_)) - (let ((_%e175412175468%_ + (gx#stx-pair? _%tl175448175502%_)) + (let ((_%e175449175505%_ (let () (declare (not safe)) - (gx#stx-e _%tl175411175465%_)))) - (let ((_%hd175413175471%_ + (gx#stx-e _%tl175448175502%_)))) + (let ((_%hd175450175508%_ (let () (declare (not safe)) - (##car _%e175412175468%_))) - (_%tl175414175473%_ + (##car _%e175449175505%_))) + (_%tl175451175510%_ (let () (declare (not safe)) - (##cdr _%e175412175468%_)))) + (##cdr _%e175449175505%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175413175471%_)) - (let ((_%e175415175476%_ + (gx#stx-pair? _%hd175450175508%_)) + (let ((_%e175452175513%_ (let () (declare (not safe)) (gx#stx-e - _%hd175413175471%_)))) - (let ((_%hd175416175479%_ + _%hd175450175508%_)))) + (let ((_%hd175453175516%_ (let () (declare (not safe)) - (##car _%e175415175476%_))) - (_%tl175417175481%_ + (##car _%e175452175513%_))) + (_%tl175454175518%_ (let () (declare (not safe)) - (##cdr _%e175415175476%_)))) + (##cdr _%e175452175513%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175416175479%_)) - (let ((_%e175418175484%_ + _%hd175453175516%_)) + (let ((_%e175455175521%_ (let () (declare (not safe)) (gx#stx-e - _%hd175416175479%_)))) - (let ((_%hd175419175487%_ + _%hd175453175516%_)))) + (let ((_%hd175456175524%_ (let () (declare (not safe)) - (##car _%e175418175484%_))) - (_%tl175420175489%_ + (##car _%e175455175521%_))) + (_%tl175457175526%_ (let () (declare (not safe)) - (##cdr _%e175418175484%_)))) + (##cdr _%e175455175521%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175419175487%_)) - (let ((_%e175421175492%_ + _%hd175456175524%_)) + (let ((_%e175458175529%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd175419175487%_)))) - (let ((_%hd175422175495%_ + (gx#stx-e _%hd175456175524%_)))) + (let ((_%hd175459175532%_ (let () (declare (not safe)) - (##car _%e175421175492%_))) - (_%tl175423175497%_ + (##car _%e175458175529%_))) + (_%tl175460175534%_ (let () (declare (not safe)) - (##cdr _%e175421175492%_)))) + (##cdr _%e175458175529%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175423175497%_)) + (gx#stx-null? _%tl175460175534%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175420175489%_)) - (let ((_%e175424175500%_ + (gx#stx-pair? _%tl175457175526%_)) + (let ((_%e175461175537%_ (let () (declare (not safe)) - (gx#stx-e _%tl175420175489%_)))) - (let ((_%hd175425175503%_ + (gx#stx-e _%tl175457175526%_)))) + (let ((_%hd175462175540%_ (let () (declare (not safe)) - (##car _%e175424175500%_))) - (_%tl175426175505%_ + (##car _%e175461175537%_))) + (_%tl175463175542%_ (let () (declare (not safe)) - (##cdr _%e175424175500%_)))) + (##cdr _%e175461175537%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175425175503%_)) - (let ((_%e175427175508%_ + (gx#stx-pair? _%hd175462175540%_)) + (let ((_%e175464175545%_ (let () (declare (not safe)) - (gx#stx-e _%hd175425175503%_)))) - (let ((_%hd175428175511%_ + (gx#stx-e _%hd175462175540%_)))) + (let ((_%hd175465175548%_ (let () (declare (not safe)) - (##car _%e175427175508%_))) - (_%tl175429175513%_ + (##car _%e175464175545%_))) + (_%tl175466175550%_ (let () (declare (not safe)) - (##cdr _%e175427175508%_)))) + (##cdr _%e175464175545%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175428175511%_)) + _%hd175465175548%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd175428175511%_)) + _%hd175465175548%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175429175513%_)) - (let ((_%e175430175516%_ + _%tl175466175550%_)) + (let ((_%e175467175553%_ (let () (declare (not safe)) (gx#stx-e - _%tl175429175513%_)))) - (let ((_%hd175431175519%_ + _%tl175466175550%_)))) + (let ((_%hd175468175556%_ (let () (declare (not safe)) - (##car _%e175430175516%_))) - (_%tl175432175521%_ + (##car _%e175467175553%_))) + (_%tl175469175558%_ (let () (declare (not safe)) - (##cdr _%e175430175516%_)))) + (##cdr _%e175467175553%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175431175519%_)) - (let ((_%e175433175524%_ + _%hd175468175556%_)) + (let ((_%e175470175561%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175431175519%_)))) - (let ((_%hd175434175527%_ + (gx#stx-e _%hd175468175556%_)))) + (let ((_%hd175471175564%_ (let () (declare (not safe)) - (##car _%e175433175524%_))) - (_%tl175435175529%_ + (##car _%e175470175561%_))) + (_%tl175472175566%_ (let () (declare (not safe)) - (##cdr _%e175433175524%_)))) + (##cdr _%e175470175561%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175434175527%_)) - (let ((_%e175436175532%_ + (gx#stx-pair? _%hd175471175564%_)) + (let ((_%e175473175569%_ (let () (declare (not safe)) - (gx#stx-e _%hd175434175527%_)))) - (let ((_%hd175437175535%_ + (gx#stx-e _%hd175471175564%_)))) + (let ((_%hd175474175572%_ (let () (declare (not safe)) - (##car _%e175436175532%_))) - (_%tl175438175537%_ + (##car _%e175473175569%_))) + (_%tl175475175574%_ (let () (declare (not safe)) - (##cdr _%e175436175532%_)))) + (##cdr _%e175473175569%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175437175535%_)) - (let ((_%e175439175540%_ + (gx#stx-pair? _%hd175474175572%_)) + (let ((_%e175476175577%_ (let () (declare (not safe)) - (gx#stx-e _%hd175437175535%_)))) - (let ((_%hd175440175543%_ + (gx#stx-e _%hd175474175572%_)))) + (let ((_%hd175477175580%_ (let () (declare (not safe)) - (##car _%e175439175540%_))) - (_%tl175441175545%_ + (##car _%e175476175577%_))) + (_%tl175478175582%_ (let () (declare (not safe)) - (##cdr _%e175439175540%_)))) + (##cdr _%e175476175577%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175441175545%_)) + (gx#stx-null? _%tl175478175582%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175438175537%_)) - (let ((_%e175442175548%_ + _%tl175475175574%_)) + (let ((_%e175479175585%_ (let () (declare (not safe)) (gx#stx-e - _%tl175438175537%_)))) - (let ((_%hd175443175551%_ + _%tl175475175574%_)))) + (let ((_%hd175480175588%_ (let () (declare (not safe)) - (##car _%e175442175548%_))) - (_%tl175444175553%_ + (##car _%e175479175585%_))) + (_%tl175481175590%_ (let () (declare (not safe)) - (##cdr _%e175442175548%_)))) + (##cdr _%e175479175585%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175444175553%_)) + _%tl175481175590%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175435175529%_)) + _%tl175472175566%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl175432175521%_)) - (let ((_%e175445175556%_ + (gx#stx-pair? _%tl175469175558%_)) + (let ((_%e175482175593%_ (let () (declare (not safe)) - (gx#stx-e _%tl175432175521%_)))) - (let ((_%hd175446175559%_ + (gx#stx-e _%tl175469175558%_)))) + (let ((_%hd175483175596%_ (let () (declare (not safe)) - (##car _%e175445175556%_))) - (_%tl175447175561%_ + (##car _%e175482175593%_))) + (_%tl175484175598%_ (let () (declare (not safe)) - (##cdr _%e175445175556%_)))) + (##cdr _%e175482175593%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175447175561%_)) + (gx#stx-null? _%tl175484175598%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175426175505%_)) + (gx#stx-null? _%tl175463175542%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175417175481%_)) + (gx#stx-null? _%tl175454175518%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175414175473%_)) - (let ((_%e175448175564%_ + (gx#stx-pair? _%tl175451175510%_)) + (let ((_%e175485175601%_ (let () (declare (not safe)) (gx#stx-e - _%tl175414175473%_)))) - (let ((_%hd175449175567%_ + _%tl175451175510%_)))) + (let ((_%hd175486175604%_ (let () (declare (not safe)) - (##car _%e175448175564%_))) - (_%tl175450175569%_ + (##car _%e175485175601%_))) + (_%tl175487175606%_ (let () (declare (not safe)) - (##cdr _%e175448175564%_)))) + (##cdr _%e175485175601%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175450175569%_)) - ((lambda (_%L175572%_ - _%L175573%_ - _%L175574%_ - _%L175575%_ - _%L175576%_) - (let* ((_%g175616175678%_ - (lambda (_%g175617175675%_) + _%tl175487175606%_)) + ((lambda (_%L175609%_ + _%L175610%_ + _%L175611%_ + _%L175612%_ + _%L175613%_) + (let* ((_%g175653175715%_ + (lambda (_%g175654175712%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175617175675%_)))) - (_%g175615176623%_ - (lambda (_%g175617175681%_) + _%g175654175712%_)))) + (_%g175652176660%_ + (lambda (_%g175654175718%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175617175681%_)) - (let ((_%e175623175683%_ + (gx#stx-pair? _%g175654175718%_)) + (let ((_%e175660175720%_ (let () (declare (not safe)) - (gx#stx-e _%g175617175681%_)))) - (let ((_%hd175624175686%_ + (gx#stx-e _%g175654175718%_)))) + (let ((_%hd175661175723%_ (let () (declare (not safe)) - (##car _%e175623175683%_))) - (_%tl175625175688%_ + (##car _%e175660175720%_))) + (_%tl175662175725%_ (let () (declare (not safe)) - (##cdr _%e175623175683%_)))) + (##cdr _%e175660175720%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175624175686%_)) + (gx#identifier? _%hd175661175723%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd175624175686%_)) + _%hd175661175723%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175625175688%_)) - (let ((_%e175626175691%_ + _%tl175662175725%_)) + (let ((_%e175663175728%_ (let () (declare (not safe)) (gx#stx-e - _%tl175625175688%_)))) - (let ((_%hd175627175694%_ + _%tl175662175725%_)))) + (let ((_%hd175664175731%_ (let () (declare (not safe)) - (##car _%e175626175691%_))) - (_%tl175628175696%_ + (##car _%e175663175728%_))) + (_%tl175665175733%_ (let () (declare (not safe)) - (##cdr _%e175626175691%_)))) + (##cdr _%e175663175728%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175628175696%_)) - (let ((_%e175629175699%_ + _%tl175665175733%_)) + (let ((_%e175666175736%_ (let () (declare (not safe)) (gx#stx-e - _%tl175628175696%_)))) - (let ((_%hd175630175702%_ + _%tl175665175733%_)))) + (let ((_%hd175667175739%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e175629175699%_))) - (_%tl175631175704%_ - (let () (declare (not safe)) (##cdr _%e175629175699%_)))) + (##car _%e175666175736%_))) + (_%tl175668175741%_ + (let () (declare (not safe)) (##cdr _%e175666175736%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175630175702%_)) - (let ((_%e175632175707%_ + (gx#stx-pair? _%hd175667175739%_)) + (let ((_%e175669175744%_ (let () (declare (not safe)) - (gx#stx-e _%hd175630175702%_)))) - (let ((_%hd175633175710%_ + (gx#stx-e _%hd175667175739%_)))) + (let ((_%hd175670175747%_ (let () (declare (not safe)) - (##car _%e175632175707%_))) - (_%tl175634175712%_ + (##car _%e175669175744%_))) + (_%tl175671175749%_ (let () (declare (not safe)) - (##cdr _%e175632175707%_)))) + (##cdr _%e175669175744%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175633175710%_)) + (gx#identifier? _%hd175670175747%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd175633175710%_)) + (gx#stx-eq? '%#call _%hd175670175747%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175634175712%_)) - (let ((_%e175635175715%_ + (gx#stx-pair? _%tl175671175749%_)) + (let ((_%e175672175752%_ (let () (declare (not safe)) - (gx#stx-e _%tl175634175712%_)))) - (let ((_%hd175636175718%_ + (gx#stx-e _%tl175671175749%_)))) + (let ((_%hd175673175755%_ (let () (declare (not safe)) - (##car _%e175635175715%_))) - (_%tl175637175720%_ + (##car _%e175672175752%_))) + (_%tl175674175757%_ (let () (declare (not safe)) - (##cdr _%e175635175715%_)))) + (##cdr _%e175672175752%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175636175718%_)) - (let ((_%e175638175723%_ + _%hd175673175755%_)) + (let ((_%e175675175760%_ (let () (declare (not safe)) (gx#stx-e - _%hd175636175718%_)))) - (let ((_%hd175639175726%_ + _%hd175673175755%_)))) + (let ((_%hd175676175763%_ (let () (declare (not safe)) - (##car _%e175638175723%_))) - (_%tl175640175728%_ + (##car _%e175675175760%_))) + (_%tl175677175765%_ (let () (declare (not safe)) - (##cdr _%e175638175723%_)))) + (##cdr _%e175675175760%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175639175726%_)) + _%hd175676175763%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175639175726%_)) + _%hd175676175763%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175640175728%_)) - (let ((_%e175641175731%_ + _%tl175677175765%_)) + (let ((_%e175678175768%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175640175728%_)))) - (let ((_%hd175642175734%_ + (gx#stx-e _%tl175677175765%_)))) + (let ((_%hd175679175771%_ (let () (declare (not safe)) - (##car _%e175641175731%_))) - (_%tl175643175736%_ + (##car _%e175678175768%_))) + (_%tl175680175773%_ (let () (declare (not safe)) - (##cdr _%e175641175731%_)))) + (##cdr _%e175678175768%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175643175736%_)) + (gx#stx-null? _%tl175680175773%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175637175720%_)) - (let ((_%e175644175739%_ + (gx#stx-pair? _%tl175674175757%_)) + (let ((_%e175681175776%_ (let () (declare (not safe)) - (gx#stx-e _%tl175637175720%_)))) - (let ((_%hd175645175742%_ + (gx#stx-e _%tl175674175757%_)))) + (let ((_%hd175682175779%_ (let () (declare (not safe)) - (##car _%e175644175739%_))) - (_%tl175646175744%_ + (##car _%e175681175776%_))) + (_%tl175683175781%_ (let () (declare (not safe)) - (##cdr _%e175644175739%_)))) + (##cdr _%e175681175776%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175645175742%_)) - (let ((_%e175647175747%_ + (gx#stx-pair? _%hd175682175779%_)) + (let ((_%e175684175784%_ (let () (declare (not safe)) (gx#stx-e - _%hd175645175742%_)))) - (let ((_%hd175648175750%_ + _%hd175682175779%_)))) + (let ((_%hd175685175787%_ (let () (declare (not safe)) - (##car _%e175647175747%_))) - (_%tl175649175752%_ + (##car _%e175684175784%_))) + (_%tl175686175789%_ (let () (declare (not safe)) - (##cdr _%e175647175747%_)))) + (##cdr _%e175684175784%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175648175750%_)) + _%hd175685175787%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175648175750%_)) + _%hd175685175787%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175649175752%_)) - (let ((_%e175650175755%_ + _%tl175686175789%_)) + (let ((_%e175687175792%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl175649175752%_)))) - (let ((_%hd175651175758%_ + (gx#stx-e _%tl175686175789%_)))) + (let ((_%hd175688175795%_ (let () (declare (not safe)) - (##car _%e175650175755%_))) - (_%tl175652175760%_ + (##car _%e175687175792%_))) + (_%tl175689175797%_ (let () (declare (not safe)) - (##cdr _%e175650175755%_)))) + (##cdr _%e175687175792%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175652175760%_)) + (gx#stx-null? _%tl175689175797%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175646175744%_)) - (let ((_%e175653175763%_ + (gx#stx-pair? _%tl175683175781%_)) + (let ((_%e175690175800%_ (let () (declare (not safe)) - (gx#stx-e _%tl175646175744%_)))) - (let ((_%hd175654175766%_ + (gx#stx-e _%tl175683175781%_)))) + (let ((_%hd175691175803%_ (let () (declare (not safe)) - (##car _%e175653175763%_))) - (_%tl175655175768%_ + (##car _%e175690175800%_))) + (_%tl175692175805%_ (let () (declare (not safe)) - (##cdr _%e175653175763%_)))) + (##cdr _%e175690175800%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175654175766%_)) - (let ((_%e175656175771%_ + (gx#stx-pair? _%hd175691175803%_)) + (let ((_%e175693175808%_ (let () (declare (not safe)) - (gx#stx-e _%hd175654175766%_)))) - (let ((_%hd175657175774%_ + (gx#stx-e _%hd175691175803%_)))) + (let ((_%hd175694175811%_ (let () (declare (not safe)) - (##car _%e175656175771%_))) - (_%tl175658175776%_ + (##car _%e175693175808%_))) + (_%tl175695175813%_ (let () (declare (not safe)) - (##cdr _%e175656175771%_)))) + (##cdr _%e175693175808%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175657175774%_)) + _%hd175694175811%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175657175774%_)) + _%hd175694175811%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175658175776%_)) - (let ((_%e175659175779%_ + _%tl175695175813%_)) + (let ((_%e175696175816%_ (let () (declare (not safe)) (gx#stx-e - _%tl175658175776%_)))) - (let ((_%hd175660175782%_ + _%tl175695175813%_)))) + (let ((_%hd175697175819%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e175659175779%_))) - (_%tl175661175784%_ - (let () (declare (not safe)) (##cdr _%e175659175779%_)))) + (##car _%e175696175816%_))) + (_%tl175698175821%_ + (let () (declare (not safe)) (##cdr _%e175696175816%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175661175784%_)) + (gx#stx-null? _%tl175698175821%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175655175768%_)) - (if (let ((__tmp178030 + (gx#stx-pair/null? _%tl175692175805%_)) + (if (let ((__tmp178067 (let () (declare (not safe)) - (gx#stx-length _%tl175655175768%_)))) + (gx#stx-length _%tl175692175805%_)))) (declare (not safe)) - (##fx>= __tmp178030 '1)) - (let ((_g178031_ + (##fx>= __tmp178067 '1)) + (let ((_g178068_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175655175768%_ + _%tl175692175805%_ '1)))) (begin - (let ((_g178032_ + (let ((_g178069_ (let () (declare (not safe)) - (if (##values? _g178031_) - (##vector-length _g178031_) + (if (##values? _g178068_) + (##vector-length _g178068_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178032_ 2))) + (##fx= _g178069_ 2))) (error "Context expects 2 values" - _g178032_))) - (let ((_%target175662175787%_ + _g178069_))) + (let ((_%target175699175824%_ (let () (declare (not safe)) - (##vector-ref _g178031_ 0))) - (_%tl175664175789%_ + (##vector-ref _g178068_ 0))) + (_%tl175701175826%_ (let () (declare (not safe)) - (##vector-ref _g178031_ 1)))) + (##vector-ref _g178068_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175664175789%_)) - (let ((_%e175671175792%_ + (gx#stx-pair? _%tl175701175826%_)) + (let ((_%e175708175829%_ (let () (declare (not safe)) - (gx#stx-e _%tl175664175789%_)))) - (let ((_%hd175672175795%_ + (gx#stx-e _%tl175701175826%_)))) + (let ((_%hd175709175832%_ (let () (declare (not safe)) - (##car _%e175671175792%_))) - (_%tl175673175797%_ + (##car _%e175708175829%_))) + (_%tl175710175834%_ (let () (declare (not safe)) - (##cdr _%e175671175792%_)))) + (##cdr _%e175708175829%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175673175797%_)) - (letrec ((_%loop175665175800%_ - (lambda (_%hd175663175803%_ + _%tl175710175834%_)) + (letrec ((_%loop175702175837%_ + (lambda (_%hd175700175840%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kw-ref175669175805%_) + _%kw-ref175706175842%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175663175803%_)) - (let ((_%e175666175808%_ + (gx#stx-pair? _%hd175700175840%_)) + (let ((_%e175703175845%_ (let () (declare (not safe)) - (gx#stx-e _%hd175663175803%_)))) - (let ((_%lp-hd175667175811%_ + (gx#stx-e _%hd175700175840%_)))) + (let ((_%lp-hd175704175848%_ (let () (declare (not safe)) - (##car _%e175666175808%_))) - (_%lp-tl175668175813%_ + (##car _%e175703175845%_))) + (_%lp-tl175705175850%_ (let () (declare (not safe)) - (##cdr _%e175666175808%_)))) - (_%loop175665175800%_ - _%lp-tl175668175813%_ - (cons _%lp-hd175667175811%_ - _%kw-ref175669175805%_)))) - (let ((_%kw-ref175670175816%_ - (reverse _%kw-ref175669175805%_))) + (##cdr _%e175703175845%_)))) + (_%loop175702175837%_ + _%lp-tl175705175850%_ + (cons _%lp-hd175704175848%_ + _%kw-ref175706175842%_)))) + (let ((_%kw-ref175707175853%_ + (reverse _%kw-ref175706175842%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175631175704%_)) - ((lambda (_%L175819%_ - _%L175820%_ - _%L175821%_ - _%L175822%_ - _%L175823%_) - (let* ((_%kw-count175874%_ - (length (let ((__tmp178033 - (lambda (_%g175866175869%_ - _%g175867175871%_) - (cons _%g175866175869%_ - _%g175867175871%_)))) + (gx#stx-null? _%tl175668175741%_)) + ((lambda (_%L175856%_ + _%L175857%_ + _%L175858%_ + _%L175859%_ + _%L175860%_) + (let* ((_%kw-count175911%_ + (length (let ((__tmp178070 + (lambda (_%g175903175906%_ + _%g175904175908%_) + (cons _%g175903175906%_ + _%g175904175908%_)))) (declare (not safe)) (__foldr1 - __tmp178033 + __tmp178070 '() - _%L175820%_)))) - (_%self-index175876%_ + _%L175857%_)))) + (_%self-index175913%_ (let () (declare (not safe)) - (##fx+ _%kw-count175874%_ '1)))) + (##fx+ _%kw-count175911%_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L175574%_)) - (let* ((_%g175880175894%_ - (lambda (_%g175881175891%_) + (gxc#lambda-expr? _%L175611%_)) + (let* ((_%g175917175931%_ + (lambda (_%g175918175928%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175881175891%_)))) - (_%g175879176017%_ - (lambda (_%g175881175897%_) + _%g175918175928%_)))) + (_%g175916176054%_ + (lambda (_%g175918175934%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175881175897%_)) - (let ((_%e175884175899%_ + _%g175918175934%_)) + (let ((_%e175921175936%_ (let () (declare (not safe)) (gx#stx-e - _%g175881175897%_)))) - (let ((_%hd175885175902%_ + _%g175918175934%_)))) + (let ((_%hd175922175939%_ (let () (declare (not safe)) - (##car _%e175884175899%_))) - (_%tl175886175904%_ + (##car _%e175921175936%_))) + (_%tl175923175941%_ (let () (declare (not safe)) - (##cdr _%e175884175899%_)))) + (##cdr _%e175921175936%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175886175904%_)) - (let ((_%e175887175907%_ + _%tl175923175941%_)) + (let ((_%e175924175944%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175886175904%_)))) - (let ((_%hd175888175910%_ + (gx#stx-e _%tl175923175941%_)))) + (let ((_%hd175925175947%_ (let () (declare (not safe)) - (##car _%e175887175907%_))) - (_%tl175889175912%_ + (##car _%e175924175944%_))) + (_%tl175926175949%_ (let () (declare (not safe)) - (##cdr _%e175887175907%_)))) - ((lambda (_%L175915%_ _%L175916%_) - (let* ((_%self175933%_ - (list-ref _%L175916%_ _%self-index175876%_)) - (_%receiver175938%_ - (let ((_%$e175935%_ + (##cdr _%e175924175944%_)))) + ((lambda (_%L175952%_ _%L175953%_) + (let* ((_%self175970%_ + (list-ref _%L175953%_ _%self-index175913%_)) + (_%receiver175975%_ + (let ((_%$e175972%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175915%_)))) - (if _%$e175935%_ - _%$e175935%_ - _%self175933%_)))) + _%L175952%_)))) + (if _%$e175972%_ + _%$e175972%_ + _%self175970%_)))) (for-each - (lambda (_%g175940175942%_) + (lambda (_%g175977175979%_) (gxc#apply-collect-object-refs__% '#f - _%receiver175938%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g175940175942%_)) - _%L175915%_) - (if (_%no-specializer?173870%_) - _%stx173774%_ - (let* ((_%specializer-id175951%_ - (let* ((_%id175945%_ - (let ((__tmp178034 + _%receiver175975%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g175977175979%_)) + _%L175952%_) + (if (_%no-specializer?173907%_) + _%stx173811%_ + (let* ((_%specializer-id175988%_ + (let* ((_%id175982%_ + (let ((__tmp178071 (let () (declare (not safe)) (gx#stx-e - _%L173847%_)))) + _%L173884%_)))) (declare (not safe)) (make-symbol__1 - __tmp178034 + __tmp178071 '"::specialize"))) - (_%specializer-id175948%_ - (let ((__tmp178035 + (_%specializer-id175985%_ + (let ((__tmp178072 (let () (declare (not safe)) (gx#stx-source - _%stx173774%_)))) + _%stx173811%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id175945%_ - __tmp178035)))) + _%id175982%_ + __tmp178072)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%specializer-id175948%_)) - _%specializer-id175948%_)) - (_%$klass175953%_ - (let ((__tmp178036 + _%specializer-id175985%_)) + _%specializer-id175985%_)) + (_%$klass175990%_ + (let ((__tmp178073 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178036))) - (_%$method-table175955%_ - (let ((__tmp178037 + (make-symbol__0 __tmp178073))) + (_%$method-table175992%_ + (let ((__tmp178074 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178037))) - (_%methods175957%_ + (make-symbol__0 __tmp178074))) + (_%methods175994%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173866%_))) - (_%$methods175961%_ - (map (lambda (_%id175959%_) - (let ((__tmp178038 - (gensym _%id175959%_))) + _%method-calls173903%_))) + (_%$methods175998%_ + (map (lambda (_%id175996%_) + (let ((__tmp178075 + (gensym _%id175996%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp178038))) - _%methods175957%_)) - (_%_175970%_ + __tmp178075))) + _%methods175994%_)) + (_%_176007%_ (for-each - (lambda (_%g175962175965%_ - _%g175963175967%_) + (lambda (_%g175999176002%_ + _%g176000176004%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173866%_ - _%g175962175965%_ - _%g175963175967%_))) - _%methods175957%_ - _%$methods175961%_)) - (_%methods-bind175980%_ - (map (lambda (_%g175972175975%_ - _%g175973175977%_) - (_%generate-method-bind173776%_ - _%$klass175953%_ - _%$method-table175955%_ - _%g175972175975%_ - _%g175973175977%_)) - _%methods175957%_ - _%$methods175961%_)) - (_%slots175982%_ + _%method-calls173903%_ + _%g175999176002%_ + _%g176000176004%_))) + _%methods175994%_ + _%$methods175998%_)) + (_%methods-bind176017%_ + (map (lambda (_%g176009176012%_ + _%g176010176014%_) + (_%generate-method-bind173813%_ + _%$klass175990%_ + _%$method-table175992%_ + _%g176009176012%_ + _%g176010176014%_)) + _%methods175994%_ + _%$methods175998%_)) + (_%slots176019%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173867%_))) - (_%$slots175986%_ - (map (lambda (_%id175984%_) - (let ((__tmp178039 - (gensym _%id175984%_))) + (__hash-keys _%slot-refs173904%_))) + (_%$slots176023%_ + (map (lambda (_%id176021%_) + (let ((__tmp178076 + (gensym _%id176021%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp178039))) - _%slots175982%_)) - (_%_175995%_ + __tmp178076))) + _%slots176019%_)) + (_%_176032%_ (for-each - (lambda (_%g175987175990%_ - _%g175988175992%_) + (lambda (_%g176024176027%_ + _%g176025176029%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173867%_ - _%g175987175990%_ - _%g175988175992%_))) - _%slots175982%_ - _%$slots175986%_)) - (_%slots-bind176004%_ - (map (lambda (_%g175996175999%_ - _%g175997176001%_) - (_%generate-slot-bind173777%_ - _%$klass175953%_ - _%g175996175999%_ - _%g175997176001%_)) - _%slots175982%_ - _%$slots175986%_)) - (_%specializer-impl176012%_ - (let* ((_%specializer-body176010%_ - (map (lambda (_%g176005176007%_) + _%slot-refs173904%_ + _%g176024176027%_ + _%g176025176029%_))) + _%slots176019%_ + _%$slots176023%_)) + (_%slots-bind176041%_ + (map (lambda (_%g176033176036%_ + _%g176034176038%_) + (_%generate-slot-bind173814%_ + _%$klass175990%_ + _%g176033176036%_ + _%g176034176038%_)) + _%slots176019%_ + _%$slots176023%_)) + (_%specializer-impl176049%_ + (let* ((_%specializer-body176047%_ + (map (lambda (_%g176042176044%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175938%_ - _%$klass175953%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g176005176007%_)) - _%L175915%_)) - (__tmp178040 + _%receiver175975%_ + _%$klass175990%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g176042176044%_)) + _%L175952%_)) + (__tmp178077 (cons '%#let-values - (cons (cons (cons (cons _%L175576%_ + (cons (cons (cons (cons _%L175613%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L175575%_ + (cons (cons (cons (cons _%L175612%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp178041 + (cons (let ((__tmp178078 (cons '%#lambda - (cons _%L175916%_ - _%specializer-body176010%_)))) + (cons _%L175953%_ + _%specializer-body176047%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178041 _%L175574%_)) + (gxc#xform-wrap-source __tmp178078 _%L175611%_)) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L175573%_ '()))) + (cons _%L175610%_ '()))) '())) '()) - (cons _%L175572%_ '()))))) + (cons _%L175609%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178040 - _%stx173774%_))) - (_%specializer-impl176014%_ - (_%generate-specializer-impl173778%_ - _%$klass175953%_ - _%$method-table175955%_ - _%methods-bind175980%_ - _%slots-bind176004%_ - _%specializer-impl176012%_))) - (let ((__tmp178043 + __tmp178077 + _%stx173811%_))) + (_%specializer-impl176051%_ + (_%generate-specializer-impl173815%_ + _%$klass175990%_ + _%$method-table175992%_ + _%methods-bind176017%_ + _%slots-bind176041%_ + _%specializer-impl176049%_))) + (let ((__tmp178080 (let () (declare (not safe)) - (gx#stx-e _%L173847%_))) - (__tmp178042 + (gx#stx-e _%L173884%_))) + (__tmp178079 (let () (declare (not safe)) (gx#stx-e - _%specializer-id175951%_)))) + _%specializer-id175988%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178043 + __tmp178080 '" => " - __tmp178042)) - (_%generate-specializer-def173779%_ - _%L173847%_ - _%specializer-id175951%_ - _%specializer-impl176014%_))))) - _%tl175889175912%_ - _%hd175888175910%_))) - (_%g175880175894%_ _%g175881175897%_)))) + __tmp178079)) + (_%generate-specializer-def173816%_ + _%L173884%_ + _%specializer-id175988%_ + _%specializer-impl176051%_))))) + _%tl175926175949%_ + _%hd175925175947%_))) + (_%g175917175931%_ _%g175918175934%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175880175894%_ - _%g175881175897%_))))) - (_%g175879176017%_ _%L175574%_)) + (_%g175917175931%_ + _%g175918175934%_))))) + (_%g175916176054%_ _%L175611%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L175574%_)) - (let* ((_%g176021176051%_ - (lambda (_%g176022176048%_) + (gxc#opt-lambda-expr? _%L175611%_)) + (let* ((_%g176058176088%_ + (lambda (_%g176059176085%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176022176048%_)))) - (_%g176020176619%_ - (lambda (_%g176022176054%_) + _%g176059176085%_)))) + (_%g176057176656%_ + (lambda (_%g176059176091%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176022176054%_)) - (let ((_%e176026176056%_ + _%g176059176091%_)) + (let ((_%e176063176093%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g176022176054%_)))) - (let ((_%hd176027176059%_ + (gx#stx-e _%g176059176091%_)))) + (let ((_%hd176064176096%_ (let () (declare (not safe)) - (##car _%e176026176056%_))) - (_%tl176028176061%_ + (##car _%e176063176093%_))) + (_%tl176065176098%_ (let () (declare (not safe)) - (##cdr _%e176026176056%_)))) + (##cdr _%e176063176093%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176028176061%_)) - (let ((_%e176029176064%_ + (gx#stx-pair? _%tl176065176098%_)) + (let ((_%e176066176101%_ (let () (declare (not safe)) - (gx#stx-e _%tl176028176061%_)))) - (let ((_%hd176030176067%_ + (gx#stx-e _%tl176065176098%_)))) + (let ((_%hd176067176104%_ (let () (declare (not safe)) - (##car _%e176029176064%_))) - (_%tl176031176069%_ + (##car _%e176066176101%_))) + (_%tl176068176106%_ (let () (declare (not safe)) - (##cdr _%e176029176064%_)))) + (##cdr _%e176066176101%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176030176067%_)) - (let ((_%e176032176072%_ + (gx#stx-pair? _%hd176067176104%_)) + (let ((_%e176069176109%_ (let () (declare (not safe)) - (gx#stx-e _%hd176030176067%_)))) - (let ((_%hd176033176075%_ + (gx#stx-e _%hd176067176104%_)))) + (let ((_%hd176070176112%_ (let () (declare (not safe)) - (##car _%e176032176072%_))) - (_%tl176034176077%_ + (##car _%e176069176109%_))) + (_%tl176071176114%_ (let () (declare (not safe)) - (##cdr _%e176032176072%_)))) + (##cdr _%e176069176109%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176033176075%_)) - (let ((_%e176035176080%_ + (gx#stx-pair? _%hd176070176112%_)) + (let ((_%e176072176117%_ (let () (declare (not safe)) (gx#stx-e - _%hd176033176075%_)))) - (let ((_%hd176036176083%_ + _%hd176070176112%_)))) + (let ((_%hd176073176120%_ (let () (declare (not safe)) - (##car _%e176035176080%_))) - (_%tl176037176085%_ + (##car _%e176072176117%_))) + (_%tl176074176122%_ (let () (declare (not safe)) - (##cdr _%e176035176080%_)))) + (##cdr _%e176072176117%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd176036176083%_)) - (let ((_%e176038176088%_ + _%hd176073176120%_)) + (let ((_%e176075176125%_ (let () (declare (not safe)) (gx#stx-e - _%hd176036176083%_)))) - (let ((_%hd176039176091%_ + _%hd176073176120%_)))) + (let ((_%hd176076176128%_ (let () (declare (not safe)) - (##car _%e176038176088%_))) - (_%tl176040176093%_ + (##car _%e176075176125%_))) + (_%tl176077176130%_ (let () (declare (not safe)) - (##cdr _%e176038176088%_)))) + (##cdr _%e176075176125%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176040176093%_)) + _%tl176077176130%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176037176085%_)) - (let ((_%e176041176096%_ + _%tl176074176122%_)) + (let ((_%e176078176133%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl176037176085%_)))) - (let ((_%hd176042176099%_ + (gx#stx-e _%tl176074176122%_)))) + (let ((_%hd176079176136%_ (let () (declare (not safe)) - (##car _%e176041176096%_))) - (_%tl176043176101%_ + (##car _%e176078176133%_))) + (_%tl176080176138%_ (let () (declare (not safe)) - (##cdr _%e176041176096%_)))) + (##cdr _%e176078176133%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176043176101%_)) + (gx#stx-null? _%tl176080176138%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176034176077%_)) + (gx#stx-null? _%tl176071176114%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176031176069%_)) - (let ((_%e176044176104%_ + (gx#stx-pair? _%tl176068176106%_)) + (let ((_%e176081176141%_ (let () (declare (not safe)) - (gx#stx-e _%tl176031176069%_)))) - (let ((_%hd176045176107%_ + (gx#stx-e _%tl176068176106%_)))) + (let ((_%hd176082176144%_ (let () (declare (not safe)) - (##car _%e176044176104%_))) - (_%tl176046176109%_ + (##car _%e176081176141%_))) + (_%tl176083176146%_ (let () (declare (not safe)) - (##cdr _%e176044176104%_)))) + (##cdr _%e176081176141%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176046176109%_)) - ((lambda (_%L176112%_ - _%L176113%_ - _%L176114%_) - (let* ((_%g176138176152%_ - (lambda (_%g176139176149%_) + (gx#stx-null? _%tl176083176146%_)) + ((lambda (_%L176149%_ + _%L176150%_ + _%L176151%_) + (let* ((_%g176175176189%_ + (lambda (_%g176176176186%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176139176149%_)))) - (_%g176137176199%_ - (lambda (_%g176139176155%_) + _%g176176176186%_)))) + (_%g176174176236%_ + (lambda (_%g176176176192%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176139176155%_)) - (let ((_%e176142176157%_ + _%g176176176192%_)) + (let ((_%e176179176194%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176139176155%_)))) - (let ((_%hd176143176160%_ + (gx#stx-e _%g176176176192%_)))) + (let ((_%hd176180176197%_ (let () (declare (not safe)) - (##car _%e176142176157%_))) - (_%tl176144176162%_ + (##car _%e176179176194%_))) + (_%tl176181176199%_ (let () (declare (not safe)) - (##cdr _%e176142176157%_)))) + (##cdr _%e176179176194%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176144176162%_)) - (let ((_%e176145176165%_ + (gx#stx-pair? _%tl176181176199%_)) + (let ((_%e176182176202%_ (let () (declare (not safe)) - (gx#stx-e _%tl176144176162%_)))) - (let ((_%hd176146176168%_ + (gx#stx-e _%tl176181176199%_)))) + (let ((_%hd176183176205%_ (let () (declare (not safe)) - (##car _%e176145176165%_))) - (_%tl176147176170%_ + (##car _%e176182176202%_))) + (_%tl176184176207%_ (let () (declare (not safe)) - (##cdr _%e176145176165%_)))) - ((lambda (_%L176173%_ _%L176174%_) - (let* ((_%self176187%_ + (##cdr _%e176182176202%_)))) + ((lambda (_%L176210%_ _%L176211%_) + (let* ((_%self176224%_ (list-ref - _%L176174%_ - _%self-index175876%_)) - (_%receiver176192%_ - (let ((_%$e176189%_ + _%L176211%_ + _%self-index175913%_)) + (_%receiver176229%_ + (let ((_%$e176226%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176173%_)))) - (if _%$e176189%_ - _%$e176189%_ - _%self176187%_)))) + _%L176210%_)))) + (if _%$e176226%_ + _%$e176226%_ + _%self176224%_)))) (for-each - (lambda (_%g176194176196%_) + (lambda (_%g176231176233%_) (gxc#apply-collect-object-refs__% '#f - _%receiver176192%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g176194176196%_)) - _%L176173%_))) - _%tl176147176170%_ - _%hd176146176168%_))) - (_%g176138176152%_ _%g176139176155%_)))) - (_%g176138176152%_ _%g176139176155%_))))) + _%receiver176229%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g176231176233%_)) + _%L176210%_))) + _%tl176184176207%_ + _%hd176183176205%_))) + (_%g176175176189%_ _%g176176176192%_)))) + (_%g176175176189%_ _%g176176176192%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176137176199%_ - _%L176113%_)) - (let* ((_%g176202176221%_ - (lambda (_%g176203176218%_) + (_%g176174176236%_ + _%L176150%_)) + (let* ((_%g176239176258%_ + (lambda (_%g176240176255%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176203176218%_)))) - (_%g176201176332%_ - (lambda (_%g176203176224%_) + _%g176240176255%_)))) + (_%g176238176369%_ + (lambda (_%g176240176261%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176203176224%_)) - (let ((_%e176205176226%_ + _%g176240176261%_)) + (let ((_%e176242176263%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176203176224%_)))) - (let ((_%hd176206176229%_ + (gx#stx-e _%g176240176261%_)))) + (let ((_%hd176243176266%_ (let () (declare (not safe)) - (##car _%e176205176226%_))) - (_%tl176207176231%_ + (##car _%e176242176263%_))) + (_%tl176244176268%_ (let () (declare (not safe)) - (##cdr _%e176205176226%_)))) + (##cdr _%e176242176263%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl176207176231%_)) - (let ((_g178044_ + (gx#stx-pair/null? _%tl176244176268%_)) + (let ((_g178081_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl176207176231%_ + _%tl176244176268%_ '0)))) (begin - (let ((_g178045_ + (let ((_g178082_ (let () (declare (not safe)) - (if (##values? _g178044_) - (##vector-length _g178044_) + (if (##values? _g178081_) + (##vector-length _g178081_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178045_ 2))) + (##fx= _g178082_ 2))) (error "Context expects 2 values" - _g178045_))) - (let ((_%target176208176234%_ + _g178082_))) + (let ((_%target176245176271%_ (let () (declare (not safe)) - (##vector-ref _g178044_ 0))) - (_%tl176210176236%_ + (##vector-ref _g178081_ 0))) + (_%tl176247176273%_ (let () (declare (not safe)) - (##vector-ref _g178044_ 1)))) + (##vector-ref _g178081_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176210176236%_)) - (letrec ((_%loop176211176239%_ - (lambda (_%hd176209176242%_ - _%clause176215176244%_) + (gx#stx-null? _%tl176247176273%_)) + (letrec ((_%loop176248176276%_ + (lambda (_%hd176246176279%_ + _%clause176252176281%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd176209176242%_)) - (let ((_%e176212176247%_ + _%hd176246176279%_)) + (let ((_%e176249176284%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd176209176242%_)))) - (let ((_%lp-hd176213176250%_ - (let () (declare (not safe)) (##car _%e176212176247%_))) - (_%lp-tl176214176252%_ + (gx#stx-e _%hd176246176279%_)))) + (let ((_%lp-hd176250176287%_ + (let () (declare (not safe)) (##car _%e176249176284%_))) + (_%lp-tl176251176289%_ (let () (declare (not safe)) - (##cdr _%e176212176247%_)))) - (_%loop176211176239%_ - _%lp-tl176214176252%_ - (cons _%lp-hd176213176250%_ _%clause176215176244%_)))) - (let ((_%clause176216176255%_ (reverse _%clause176215176244%_))) - ((lambda (_%L176258%_) + (##cdr _%e176249176284%_)))) + (_%loop176248176276%_ + _%lp-tl176251176289%_ + (cons _%lp-hd176250176287%_ _%clause176252176281%_)))) + (let ((_%clause176253176292%_ (reverse _%clause176252176281%_))) + ((lambda (_%L176295%_) (for-each - (lambda (_%clause176271%_) - (let* ((_%g176273176284%_ - (lambda (_%g176274176281%_) + (lambda (_%clause176308%_) + (let* ((_%g176310176321%_ + (lambda (_%g176311176318%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176274176281%_)))) - (_%g176272176322%_ - (lambda (_%g176274176287%_) + _%g176311176318%_)))) + (_%g176309176359%_ + (lambda (_%g176311176324%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176274176287%_)) - (let ((_%e176277176289%_ + (gx#stx-pair? _%g176311176324%_)) + (let ((_%e176314176326%_ (let () (declare (not safe)) - (gx#stx-e _%g176274176287%_)))) - (let ((_%hd176278176292%_ + (gx#stx-e _%g176311176324%_)))) + (let ((_%hd176315176329%_ (let () (declare (not safe)) - (##car _%e176277176289%_))) - (_%tl176279176294%_ + (##car _%e176314176326%_))) + (_%tl176316176331%_ (let () (declare (not safe)) - (##cdr _%e176277176289%_)))) - ((lambda (_%L176297%_ _%L176298%_) - (let* ((_%self176310%_ + (##cdr _%e176314176326%_)))) + ((lambda (_%L176334%_ _%L176335%_) + (let* ((_%self176347%_ (list-ref - _%L176298%_ - _%self-index175876%_)) - (_%receiver176315%_ - (let ((_%$e176312%_ + _%L176335%_ + _%self-index175913%_)) + (_%receiver176352%_ + (let ((_%$e176349%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176297%_)))) + _%L176334%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e176312%_ - _%$e176312%_ - _%self176310%_)))) + (if _%$e176349%_ + _%$e176349%_ + _%self176347%_)))) (for-each - (lambda (_%g176317176319%_) + (lambda (_%g176354176356%_) (gxc#apply-collect-object-refs__% '#f - _%receiver176315%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g176317176319%_)) - _%L176297%_))) - _%tl176279176294%_ - _%hd176278176292%_))) - (_%g176273176284%_ _%g176274176287%_))))) - (_%g176272176322%_ _%clause176271%_))) - (let ((__tmp178046 - (lambda (_%g176324176327%_ _%g176325176329%_) - (cons _%g176324176327%_ _%g176325176329%_)))) + _%receiver176352%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g176354176356%_)) + _%L176334%_))) + _%tl176316176331%_ + _%hd176315176329%_))) + (_%g176310176321%_ _%g176311176324%_))))) + (_%g176309176359%_ _%clause176308%_))) + (let ((__tmp178083 + (lambda (_%g176361176364%_ _%g176362176366%_) + (cons _%g176361176364%_ _%g176362176366%_)))) (declare (not safe)) - (__foldr1 __tmp178046 '() _%L176258%_)))) - _%clause176216176255%_)))))) + (__foldr1 __tmp178083 '() _%L176295%_)))) + _%clause176253176292%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop176211176239%_ - _%target176208176234%_ + (_%loop176248176276%_ + _%target176245176271%_ '())) - (_%g176202176221%_ _%g176203176224%_))))) - (_%g176202176221%_ _%g176203176224%_)))) - (_%g176202176221%_ _%g176203176224%_))))) + (_%g176239176258%_ _%g176240176261%_))))) + (_%g176239176258%_ _%g176240176261%_)))) + (_%g176239176258%_ _%g176240176261%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176201176332%_ - _%L176112%_)) - (if (_%no-specializer?173870%_) - _%stx173774%_ - (let* ((_%specializer-id176341%_ - (let* ((_%id176335%_ + (_%g176238176369%_ + _%L176149%_)) + (if (_%no-specializer?173907%_) + _%stx173811%_ + (let* ((_%specializer-id176378%_ + (let* ((_%id176372%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp178047 + (let ((__tmp178084 (let () (declare (not safe)) - (gx#stx-e _%L173847%_)))) + (gx#stx-e _%L173884%_)))) (declare (not safe)) - (make-symbol__1 __tmp178047 '"::specialize"))) - (_%specializer-id176338%_ - (let ((__tmp178048 + (make-symbol__1 __tmp178084 '"::specialize"))) + (_%specializer-id176375%_ + (let ((__tmp178085 (let () (declare (not safe)) - (gx#stx-source _%stx173774%_)))) + (gx#stx-source _%stx173811%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id176335%_ - __tmp178048)))) + _%id176372%_ + __tmp178085)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id176338%_)) - _%specializer-id176338%_)) - (_%$klass176343%_ - (let ((__tmp178049 + (gx#core-bind-runtime!__0 _%specializer-id176375%_)) + _%specializer-id176375%_)) + (_%$klass176380%_ + (let ((__tmp178086 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178049))) - (_%$method-table176345%_ - (let ((__tmp178050 + (make-symbol__0 __tmp178086))) + (_%$method-table176382%_ + (let ((__tmp178087 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178050))) - (_%methods176347%_ + (make-symbol__0 __tmp178087))) + (_%methods176384%_ (let () (declare (not safe)) - (__hash-keys _%method-calls173866%_))) - (_%$methods176351%_ - (map (lambda (_%id176349%_) - (let ((__tmp178051 (gensym _%id176349%_))) + (__hash-keys _%method-calls173903%_))) + (_%$methods176388%_ + (map (lambda (_%id176386%_) + (let ((__tmp178088 (gensym _%id176386%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178051))) - _%methods176347%_)) - (_%_176360%_ + (make-symbol__1 '"__" __tmp178088))) + _%methods176384%_)) + (_%_176397%_ (for-each - (lambda (_%g176352176355%_ _%g176353176357%_) + (lambda (_%g176389176392%_ _%g176390176394%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173866%_ - _%g176352176355%_ - _%g176353176357%_))) - _%methods176347%_ - _%$methods176351%_)) - (_%methods-bind176370%_ - (map (lambda (_%g176362176365%_ _%g176363176367%_) - (_%generate-method-bind173776%_ - _%$klass176343%_ - _%$method-table176345%_ - _%g176362176365%_ - _%g176363176367%_)) - _%methods176347%_ - _%$methods176351%_)) - (_%slots176372%_ + _%method-calls173903%_ + _%g176389176392%_ + _%g176390176394%_))) + _%methods176384%_ + _%$methods176388%_)) + (_%methods-bind176407%_ + (map (lambda (_%g176399176402%_ _%g176400176404%_) + (_%generate-method-bind173813%_ + _%$klass176380%_ + _%$method-table176382%_ + _%g176399176402%_ + _%g176400176404%_)) + _%methods176384%_ + _%$methods176388%_)) + (_%slots176409%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173867%_))) - (_%$slots176376%_ - (map (lambda (_%id176374%_) - (let ((__tmp178052 (gensym _%id176374%_))) + (__hash-keys _%slot-refs173904%_))) + (_%$slots176413%_ + (map (lambda (_%id176411%_) + (let ((__tmp178089 (gensym _%id176411%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178052))) - _%slots176372%_)) - (_%_176385%_ + (make-symbol__1 '"__" __tmp178089))) + _%slots176409%_)) + (_%_176422%_ (for-each - (lambda (_%g176377176380%_ _%g176378176382%_) + (lambda (_%g176414176417%_ _%g176415176419%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173867%_ - _%g176377176380%_ - _%g176378176382%_))) - _%slots176372%_ - _%$slots176376%_)) - (_%slots-bind176394%_ - (map (lambda (_%g176386176389%_ _%g176387176391%_) - (_%generate-slot-bind173777%_ - _%$klass176343%_ - _%g176386176389%_ - _%g176387176391%_)) - _%slots176372%_ - _%$slots176376%_)) - (_%specializer-lambda-expr176472%_ - (let* ((_%g176396176410%_ - (lambda (_%g176397176407%_) + _%slot-refs173904%_ + _%g176414176417%_ + _%g176415176419%_))) + _%slots176409%_ + _%$slots176413%_)) + (_%slots-bind176431%_ + (map (lambda (_%g176423176426%_ _%g176424176428%_) + (_%generate-slot-bind173814%_ + _%$klass176380%_ + _%g176423176426%_ + _%g176424176428%_)) + _%slots176409%_ + _%$slots176413%_)) + (_%specializer-lambda-expr176509%_ + (let* ((_%g176433176447%_ + (lambda (_%g176434176444%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176397176407%_)))) - (_%g176395176469%_ - (lambda (_%g176397176413%_) + _%g176434176444%_)))) + (_%g176432176506%_ + (lambda (_%g176434176450%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176397176413%_)) - (let ((_%e176400176415%_ + (gx#stx-pair? _%g176434176450%_)) + (let ((_%e176437176452%_ (let () (declare (not safe)) - (gx#stx-e _%g176397176413%_)))) - (let ((_%hd176401176418%_ + (gx#stx-e _%g176434176450%_)))) + (let ((_%hd176438176455%_ (let () (declare (not safe)) - (##car _%e176400176415%_))) - (_%tl176402176420%_ + (##car _%e176437176452%_))) + (_%tl176439176457%_ (let () (declare (not safe)) - (##cdr _%e176400176415%_)))) + (##cdr _%e176437176452%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176402176420%_)) - (let ((_%e176403176423%_ + (gx#stx-pair? _%tl176439176457%_)) + (let ((_%e176440176460%_ (let () (declare (not safe)) (gx#stx-e - _%tl176402176420%_)))) - (let ((_%hd176404176426%_ + _%tl176439176457%_)))) + (let ((_%hd176441176463%_ (let () (declare (not safe)) - (##car _%e176403176423%_))) - (_%tl176405176428%_ + (##car _%e176440176460%_))) + (_%tl176442176465%_ (let () (declare (not safe)) - (##cdr _%e176403176423%_)))) - ((lambda (_%L176431%_ _%L176432%_) - (let* ((_%self176455%_ + (##cdr _%e176440176460%_)))) + ((lambda (_%L176468%_ _%L176469%_) + (let* ((_%self176492%_ (list-ref - _%L176432%_ - _%self-index175876%_)) - (_%receiver176460%_ - (let ((_%$e176457%_ + _%L176469%_ + _%self-index175913%_)) + (_%receiver176497%_ + (let ((_%$e176494%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176431%_)))) - (if _%$e176457%_ _%$e176457%_ _%self176455%_))) - (_%body176466%_ - (map (lambda (_%g176461176463%_) + _%L176468%_)))) + (if _%$e176494%_ _%$e176494%_ _%self176492%_))) + (_%body176503%_ + (map (lambda (_%g176498176500%_) (gxc#apply-subst-object-refs__% '#f - _%receiver176460%_ - _%$klass176343%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g176461176463%_)) - _%L176431%_)) - (__tmp178053 (cons '%#lambda (cons _%L176432%_ _%body176466%_)))) + _%receiver176497%_ + _%$klass176380%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g176498176500%_)) + _%L176468%_)) + (__tmp178090 (cons '%#lambda (cons _%L176469%_ _%body176503%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178053 - _%L176113%_))) - _%tl176405176428%_ - _%hd176404176426%_))) - (_%g176396176410%_ - _%g176397176413%_)))) - (_%g176396176410%_ _%g176397176413%_))))) - (_%g176395176469%_ _%L176113%_))) - (_%specializer-case-lambda-expr176612%_ - (let* ((_%g176474176493%_ - (lambda (_%g176475176490%_) + __tmp178090 + _%L176150%_))) + _%tl176442176465%_ + _%hd176441176463%_))) + (_%g176433176447%_ + _%g176434176450%_)))) + (_%g176433176447%_ _%g176434176450%_))))) + (_%g176432176506%_ _%L176150%_))) + (_%specializer-case-lambda-expr176649%_ + (let* ((_%g176511176530%_ + (lambda (_%g176512176527%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176475176490%_)))) - (_%g176473176609%_ - (lambda (_%g176475176496%_) + _%g176512176527%_)))) + (_%g176510176646%_ + (lambda (_%g176512176533%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176475176496%_)) - (let ((_%e176477176498%_ + (gx#stx-pair? _%g176512176533%_)) + (let ((_%e176514176535%_ (let () (declare (not safe)) - (gx#stx-e _%g176475176496%_)))) - (let ((_%hd176478176501%_ + (gx#stx-e _%g176512176533%_)))) + (let ((_%hd176515176538%_ (let () (declare (not safe)) - (##car _%e176477176498%_))) - (_%tl176479176503%_ + (##car _%e176514176535%_))) + (_%tl176516176540%_ (let () (declare (not safe)) - (##cdr _%e176477176498%_)))) + (##cdr _%e176514176535%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl176479176503%_)) - (let ((_g178054_ + _%tl176516176540%_)) + (let ((_g178091_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl176479176503%_ + _%tl176516176540%_ '0)))) (begin - (let ((_g178055_ + (let ((_g178092_ (let () (declare (not safe)) - (if (##values? _g178054_) + (if (##values? _g178091_) (##vector-length - _g178054_) + _g178091_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178055_ 2))) + (##fx= _g178092_ 2))) (error "Context expects 2 values" - _g178055_))) - (let ((_%target176480176506%_ + _g178092_))) + (let ((_%target176517176543%_ (let () (declare (not safe)) (##vector-ref - _g178054_ + _g178091_ 0))) - (_%tl176482176508%_ + (_%tl176519176545%_ (let () (declare (not safe)) (##vector-ref - _g178054_ + _g178091_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176482176508%_)) - (letrec ((_%loop176483176511%_ - (lambda (_%hd176481176514%_ + _%tl176519176545%_)) + (letrec ((_%loop176520176548%_ + (lambda (_%hd176518176551%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause176487176516%_) + _%clause176524176553%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176481176514%_)) - (let ((_%e176484176519%_ + (gx#stx-pair? _%hd176518176551%_)) + (let ((_%e176521176556%_ (let () (declare (not safe)) - (gx#stx-e _%hd176481176514%_)))) - (let ((_%lp-hd176485176522%_ + (gx#stx-e _%hd176518176551%_)))) + (let ((_%lp-hd176522176559%_ (let () (declare (not safe)) - (##car _%e176484176519%_))) - (_%lp-tl176486176524%_ + (##car _%e176521176556%_))) + (_%lp-tl176523176561%_ (let () (declare (not safe)) - (##cdr _%e176484176519%_)))) - (_%loop176483176511%_ - _%lp-tl176486176524%_ - (cons _%lp-hd176485176522%_ - _%clause176487176516%_)))) - (let ((_%clause176488176527%_ - (reverse _%clause176487176516%_))) - ((lambda (_%L176530%_) - (let* ((_%clauses176607%_ - (map (lambda (_%clause176544%_) - (let* ((_%g176546176557%_ - (lambda (_%g176547176554%_) + (##cdr _%e176521176556%_)))) + (_%loop176520176548%_ + _%lp-tl176523176561%_ + (cons _%lp-hd176522176559%_ + _%clause176524176553%_)))) + (let ((_%clause176525176564%_ + (reverse _%clause176524176553%_))) + ((lambda (_%L176567%_) + (let* ((_%clauses176644%_ + (map (lambda (_%clause176581%_) + (let* ((_%g176583176594%_ + (lambda (_%g176584176591%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176547176554%_)))) - (_%g176545176597%_ - (lambda (_%g176547176560%_) + _%g176584176591%_)))) + (_%g176582176634%_ + (lambda (_%g176584176597%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176547176560%_)) - (let ((_%e176550176562%_ + _%g176584176597%_)) + (let ((_%e176587176599%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176547176560%_)))) - (let ((_%hd176551176565%_ + (gx#stx-e _%g176584176597%_)))) + (let ((_%hd176588176602%_ (let () (declare (not safe)) - (##car _%e176550176562%_))) - (_%tl176552176567%_ + (##car _%e176587176599%_))) + (_%tl176589176604%_ (let () (declare (not safe)) - (##cdr _%e176550176562%_)))) - ((lambda (_%L176570%_ _%L176571%_) - (let* ((_%self176583%_ - (list-ref _%L176571%_ _%self-index175876%_)) - (_%receiver176588%_ - (let ((_%$e176585%_ + (##cdr _%e176587176599%_)))) + ((lambda (_%L176607%_ _%L176608%_) + (let* ((_%self176620%_ + (list-ref _%L176608%_ _%self-index175913%_)) + (_%receiver176625%_ + (let ((_%$e176622%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176570%_)))) - (if _%$e176585%_ - _%$e176585%_ - _%self176583%_))) - (_%body176594%_ - (map (lambda (_%g176589176591%_) + _%L176607%_)))) + (if _%$e176622%_ + _%$e176622%_ + _%self176620%_))) + (_%body176631%_ + (map (lambda (_%g176626176628%_) (gxc#apply-subst-object-refs__% '#f - _%receiver176588%_ - _%$klass176343%_ - _%method-calls173866%_ - _%slot-refs173867%_ - _%g176589176591%_)) - _%L176570%_))) - (cons _%L176571%_ _%body176594%_))) - _%tl176552176567%_ - _%hd176551176565%_))) - (_%g176546176557%_ _%g176547176560%_))))) + _%receiver176625%_ + _%$klass176380%_ + _%method-calls173903%_ + _%slot-refs173904%_ + _%g176626176628%_)) + _%L176607%_))) + (cons _%L176608%_ _%body176631%_))) + _%tl176589176604%_ + _%hd176588176602%_))) + (_%g176583176594%_ _%g176584176597%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176545176597%_ - _%clause176544%_))) - (let ((__tmp178056 - (lambda (_%g176599176602%_ - _%g176600176604%_) - (cons _%g176599176602%_ - _%g176600176604%_)))) + (_%g176582176634%_ + _%clause176581%_))) + (let ((__tmp178093 + (lambda (_%g176636176639%_ + _%g176637176641%_) + (cons _%g176636176639%_ + _%g176637176641%_)))) (declare (not safe)) (__foldr1 - __tmp178056 + __tmp178093 '() - _%L176530%_)))) - (__tmp178057 + _%L176567%_)))) + (__tmp178094 (cons '%#case-lambda - _%clauses176607%_))) + _%clauses176644%_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp178057 - _%L176112%_))) - _%clause176488176527%_)))))) + __tmp178094 + _%L176149%_))) + _%clause176525176564%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop176483176511%_ - _%target176480176506%_ + (_%loop176520176548%_ + _%target176517176543%_ '())) - (_%g176474176493%_ - _%g176475176496%_))))) - (_%g176474176493%_ - _%g176475176496%_)))) - (_%g176474176493%_ _%g176475176496%_))))) - (_%g176473176609%_ _%L176112%_))) - (_%specializer-impl176614%_ - (let ((__tmp178058 + (_%g176511176530%_ + _%g176512176533%_))))) + (_%g176511176530%_ + _%g176512176533%_)))) + (_%g176511176530%_ _%g176512176533%_))))) + (_%g176510176646%_ _%L176149%_))) + (_%specializer-impl176651%_ + (let ((__tmp178095 (cons '%#let-values - (cons (cons (cons (cons _%L175576%_ '()) + (cons (cons (cons (cons _%L175613%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L175575%_ + (cons (cons (cons (cons _%L175612%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp178059 + (cons (let ((__tmp178096 (cons '%#let-values - (cons (cons (cons (cons _%L176114%_ + (cons (cons (cons (cons _%L176151%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-lambda-expr176472%_ + (cons _%specializer-lambda-expr176509%_ '())) '()) - (cons _%specializer-case-lambda-expr176612%_ '()))))) + (cons _%specializer-case-lambda-expr176649%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178059 - _%stx173774%_)) + __tmp178096 + _%stx173811%_)) '())) '()) - (cons _%L175573%_ '()))) + (cons _%L175610%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L175572%_ '()))))) + (cons _%L175609%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178058 _%stx173774%_))) - (_%specializer-impl176616%_ - (_%generate-specializer-impl173778%_ - _%$klass176343%_ - _%$method-table176345%_ - _%methods-bind176370%_ - _%slots-bind176394%_ - _%specializer-impl176614%_))) + (gxc#xform-wrap-source __tmp178095 _%stx173811%_))) + (_%specializer-impl176653%_ + (_%generate-specializer-impl173815%_ + _%$klass176380%_ + _%$method-table176382%_ + _%methods-bind176407%_ + _%slots-bind176431%_ + _%specializer-impl176651%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp178061 + (let ((__tmp178098 (let () (declare (not safe)) (gx#stx-e - _%L173847%_))) - (__tmp178060 + _%L173884%_))) + (__tmp178097 (let () (declare (not safe)) (gx#stx-e - _%specializer-id176341%_)))) + _%specializer-id176378%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178061 + __tmp178098 '" => " - __tmp178060)) - (_%generate-specializer-def173779%_ - _%L173847%_ - _%specializer-id176341%_ - _%specializer-impl176616%_)))) - _%hd176045176107%_ - _%hd176042176099%_ - _%hd176039176091%_) - (_%g176021176051%_ - _%g176022176054%_)))) - (_%g176021176051%_ _%g176022176054%_)) - (_%g176021176051%_ _%g176022176054%_)) - (_%g176021176051%_ _%g176022176054%_)))) - (_%g176021176051%_ _%g176022176054%_)) - (_%g176021176051%_ _%g176022176054%_)))) + __tmp178097)) + (_%generate-specializer-def173816%_ + _%L173884%_ + _%specializer-id176378%_ + _%specializer-impl176653%_)))) + _%hd176082176144%_ + _%hd176079176136%_ + _%hd176076176128%_) + (_%g176058176088%_ + _%g176059176091%_)))) + (_%g176058176088%_ _%g176059176091%_)) + (_%g176058176088%_ _%g176059176091%_)) + (_%g176058176088%_ _%g176059176091%_)))) + (_%g176058176088%_ _%g176059176091%_)) + (_%g176058176088%_ _%g176059176091%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176021176051%_ - _%g176022176054%_)))) - (_%g176021176051%_ _%g176022176054%_)))) - (_%g176021176051%_ _%g176022176054%_)))) - (_%g176021176051%_ _%g176022176054%_)))) - (_%g176021176051%_ _%g176022176054%_))))) + (_%g176058176088%_ + _%g176059176091%_)))) + (_%g176058176088%_ _%g176059176091%_)))) + (_%g176058176088%_ _%g176059176091%_)))) + (_%g176058176088%_ _%g176059176091%_)))) + (_%g176058176088%_ _%g176059176091%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176020176619%_ _%L175574%_)) - _%stx173774%_)))) - _%hd175672175795%_ - _%kw-ref175670175816%_ - _%hd175660175782%_ - _%hd175651175758%_ - _%hd175642175734%_) - (_%g175616175678%_ _%g175617175681%_))))))) + (_%g176057176656%_ _%L175611%_)) + _%stx173811%_)))) + _%hd175709175832%_ + _%kw-ref175707175853%_ + _%hd175697175819%_ + _%hd175688175795%_ + _%hd175679175771%_) + (_%g175653175715%_ _%g175654175718%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175665175800%_ - _%target175662175787%_ + (_%loop175702175837%_ + _%target175699175824%_ '())) - (_%g175616175678%_ - _%g175617175681%_)))) - (_%g175616175678%_ _%g175617175681%_))))) - (_%g175616175678%_ _%g175617175681%_)) - (_%g175616175678%_ _%g175617175681%_)) - (_%g175616175678%_ _%g175617175681%_)))) + (_%g175653175715%_ + _%g175654175718%_)))) + (_%g175653175715%_ _%g175654175718%_))))) + (_%g175653175715%_ _%g175654175718%_)) + (_%g175653175715%_ _%g175654175718%_)) + (_%g175653175715%_ _%g175654175718%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175616175678%_ - _%g175617175681%_)) - (_%g175616175678%_ - _%g175617175681%_)) - (_%g175616175678%_ - _%g175617175681%_)))) - (_%g175616175678%_ _%g175617175681%_)))) - (_%g175616175678%_ _%g175617175681%_)) - (_%g175616175678%_ _%g175617175681%_)))) - (_%g175616175678%_ _%g175617175681%_)) + (_%g175653175715%_ + _%g175654175718%_)) + (_%g175653175715%_ + _%g175654175718%_)) + (_%g175653175715%_ + _%g175654175718%_)))) + (_%g175653175715%_ _%g175654175718%_)))) + (_%g175653175715%_ _%g175654175718%_)) + (_%g175653175715%_ _%g175654175718%_)))) + (_%g175653175715%_ _%g175654175718%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175616175678%_ - _%g175617175681%_)) - (_%g175616175678%_ - _%g175617175681%_)))) - (_%g175616175678%_ - _%g175617175681%_)))) - (_%g175616175678%_ _%g175617175681%_)) - (_%g175616175678%_ _%g175617175681%_)))) - (_%g175616175678%_ _%g175617175681%_)) - (_%g175616175678%_ _%g175617175681%_)) + (_%g175653175715%_ + _%g175654175718%_)) + (_%g175653175715%_ + _%g175654175718%_)))) + (_%g175653175715%_ + _%g175654175718%_)))) + (_%g175653175715%_ _%g175654175718%_)) + (_%g175653175715%_ _%g175654175718%_)))) + (_%g175653175715%_ _%g175654175718%_)) + (_%g175653175715%_ _%g175654175718%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175616175678%_ - _%g175617175681%_)))) - (_%g175616175678%_ - _%g175617175681%_)))) - (_%g175616175678%_ _%g175617175681%_)) - (_%g175616175678%_ _%g175617175681%_)) - (_%g175616175678%_ _%g175617175681%_)))) - (_%g175616175678%_ _%g175617175681%_)))) + (_%g175653175715%_ + _%g175654175718%_)))) + (_%g175653175715%_ + _%g175654175718%_)))) + (_%g175653175715%_ _%g175654175718%_)) + (_%g175653175715%_ _%g175654175718%_)) + (_%g175653175715%_ _%g175654175718%_)))) + (_%g175653175715%_ _%g175654175718%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175616175678%_ - _%g175617175681%_)))) - (_%g175616175678%_ - _%g175617175681%_)) - (_%g175616175678%_ _%g175617175681%_)) - (_%g175616175678%_ _%g175617175681%_)))) - (_%g175616175678%_ _%g175617175681%_))))) - (_%g175615176623%_ _%L175573%_))) + (_%g175653175715%_ + _%g175654175718%_)))) + (_%g175653175715%_ + _%g175654175718%_)) + (_%g175653175715%_ _%g175654175718%_)) + (_%g175653175715%_ _%g175654175718%_)))) + (_%g175653175715%_ _%g175654175718%_))))) + (_%g175652176660%_ _%L175610%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd175449175567%_ - _%hd175446175559%_ - _%hd175443175551%_ - _%hd175440175543%_ - _%hd175422175495%_) - (_%g175402175455%_ - _%g175403175458%_)))) - (_%g175402175455%_ - _%g175403175458%_)) - (_%g175402175455%_ _%g175403175458%_)) - (_%g175402175455%_ _%g175403175458%_)) - (_%g175402175455%_ _%g175403175458%_)))) - (_%g175402175455%_ _%g175403175458%_)) - (_%g175402175455%_ _%g175403175458%_)) - (_%g175402175455%_ _%g175403175458%_)))) + _%hd175486175604%_ + _%hd175483175596%_ + _%hd175480175588%_ + _%hd175477175580%_ + _%hd175459175532%_) + (_%g175439175492%_ + _%g175440175495%_)))) + (_%g175439175492%_ + _%g175440175495%_)) + (_%g175439175492%_ _%g175440175495%_)) + (_%g175439175492%_ _%g175440175495%_)) + (_%g175439175492%_ _%g175440175495%_)))) + (_%g175439175492%_ _%g175440175495%_)) + (_%g175439175492%_ _%g175440175495%_)) + (_%g175439175492%_ _%g175440175495%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175402175455%_ - _%g175403175458%_)) - (_%g175402175455%_ - _%g175403175458%_)))) - (_%g175402175455%_ _%g175403175458%_)))) - (_%g175402175455%_ _%g175403175458%_)))) - (_%g175402175455%_ _%g175403175458%_)))) + (_%g175439175492%_ + _%g175440175495%_)) + (_%g175439175492%_ + _%g175440175495%_)))) + (_%g175439175492%_ _%g175440175495%_)))) + (_%g175439175492%_ _%g175440175495%_)))) + (_%g175439175492%_ _%g175440175495%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175402175455%_ - _%g175403175458%_)) - (_%g175402175455%_ - _%g175403175458%_)) - (_%g175402175455%_ - _%g175403175458%_)))) - (_%g175402175455%_ _%g175403175458%_)))) - (_%g175402175455%_ _%g175403175458%_)) - (_%g175402175455%_ _%g175403175458%_)))) - (_%g175402175455%_ _%g175403175458%_)))) + (_%g175439175492%_ + _%g175440175495%_)) + (_%g175439175492%_ + _%g175440175495%_)) + (_%g175439175492%_ + _%g175440175495%_)))) + (_%g175439175492%_ _%g175440175495%_)))) + (_%g175439175492%_ _%g175440175495%_)) + (_%g175439175492%_ _%g175440175495%_)))) + (_%g175439175492%_ _%g175440175495%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175402175455%_ - _%g175403175458%_)))) - (_%g175402175455%_ _%g175403175458%_)))) - (_%g175402175455%_ _%g175403175458%_)) - (_%g175402175455%_ _%g175403175458%_)) - (_%g175402175455%_ _%g175403175458%_)))) - (_%g175402175455%_ _%g175403175458%_))))) + (_%g175439175492%_ + _%g175440175495%_)))) + (_%g175439175492%_ _%g175440175495%_)))) + (_%g175439175492%_ _%g175440175495%_)) + (_%g175439175492%_ _%g175440175495%_)) + (_%g175439175492%_ _%g175440175495%_)))) + (_%g175439175492%_ _%g175440175495%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175401176626%_ _%L173846%_)) - _%stx173774%_)))))))) - (_%__kont176860176861%_ (lambda () _%stx173774%_))) - (let ((_%__match176889176890%_ - (lambda (_%e173786173814%_ - _%hd173787173817%_ - _%tl173788173819%_ - _%e173789173822%_ - _%hd173790173825%_ - _%tl173791173827%_ - _%e173792173830%_ - _%hd173793173833%_ - _%tl173794173835%_ - _%e173795173838%_ - _%hd173796173841%_ - _%tl173797173843%_) - (let ((_%L173846%_ _%hd173796173841%_) - (_%L173847%_ _%hd173793173833%_)) - (if (let ((__tmp178062 + (_%g175438176663%_ _%L173883%_)) + _%stx173811%_)))))))) + (_%__kont176897176898%_ (lambda () _%stx173811%_))) + (let ((_%__match176926176927%_ + (lambda (_%e173823173851%_ + _%hd173824173854%_ + _%tl173825173856%_ + _%e173826173859%_ + _%hd173827173862%_ + _%tl173828173864%_ + _%e173829173867%_ + _%hd173830173870%_ + _%tl173831173872%_ + _%e173832173875%_ + _%hd173833173878%_ + _%tl173834173880%_) + (let ((_%L173883%_ _%hd173833173878%_) + (_%L173884%_ _%hd173830173870%_)) + (if (let ((__tmp178099 (let () (declare (not safe)) - (gxc#identifier-symbol _%L173847%_)))) + (gxc#identifier-symbol _%L173884%_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp178062)) - (_%__kont176858176859%_ _%L173846%_ _%L173847%_) - (_%__kont176860176861%_)))))) + (gxc#optimizer-top-level-method? __tmp178099)) + (_%__kont176895176896%_ _%L173883%_ _%L173884%_) + (_%__kont176897176898%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176856176857%_)) - (let ((_%e173786173814%_ + (gx#stx-pair? _%__stx176893176894%_)) + (let ((_%e173823173851%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176856176857%_)))) - (let ((_%tl173788173819%_ + (gx#stx-e _%__stx176893176894%_)))) + (let ((_%tl173825173856%_ (let () (declare (not safe)) - (##cdr _%e173786173814%_))) - (_%hd173787173817%_ + (##cdr _%e173823173851%_))) + (_%hd173824173854%_ (let () (declare (not safe)) - (##car _%e173786173814%_)))) + (##car _%e173823173851%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173788173819%_)) - (let ((_%e173789173822%_ + (gx#stx-pair? _%tl173825173856%_)) + (let ((_%e173826173859%_ (let () (declare (not safe)) - (gx#stx-e _%tl173788173819%_)))) - (let ((_%tl173791173827%_ + (gx#stx-e _%tl173825173856%_)))) + (let ((_%tl173828173864%_ (let () (declare (not safe)) - (##cdr _%e173789173822%_))) - (_%hd173790173825%_ + (##cdr _%e173826173859%_))) + (_%hd173827173862%_ (let () (declare (not safe)) - (##car _%e173789173822%_)))) + (##car _%e173826173859%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173790173825%_)) - (let ((_%e173792173830%_ + (gx#stx-pair? _%hd173827173862%_)) + (let ((_%e173829173867%_ (let () (declare (not safe)) - (gx#stx-e _%hd173790173825%_)))) - (let ((_%tl173794173835%_ + (gx#stx-e _%hd173827173862%_)))) + (let ((_%tl173831173872%_ (let () (declare (not safe)) - (##cdr _%e173792173830%_))) - (_%hd173793173833%_ + (##cdr _%e173829173867%_))) + (_%hd173830173870%_ (let () (declare (not safe)) - (##car _%e173792173830%_)))) + (##car _%e173829173867%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173794173835%_)) + _%tl173831173872%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173791173827%_)) - (let ((_%e173795173838%_ + _%tl173828173864%_)) + (let ((_%e173832173875%_ (let () (declare (not safe)) (gx#stx-e - _%tl173791173827%_)))) - (let ((_%tl173797173843%_ + _%tl173828173864%_)))) + (let ((_%tl173834173880%_ (let () (declare (not safe)) - (##cdr _%e173795173838%_))) - (_%hd173796173841%_ + (##cdr _%e173832173875%_))) + (_%hd173833173878%_ (let () (declare (not safe)) - (##car _%e173795173838%_)))) + (##car _%e173832173875%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173797173843%_)) - (_%__match176889176890%_ - _%e173786173814%_ - _%hd173787173817%_ - _%tl173788173819%_ - _%e173789173822%_ - _%hd173790173825%_ - _%tl173791173827%_ - _%e173792173830%_ - _%hd173793173833%_ - _%tl173794173835%_ - _%e173795173838%_ - _%hd173796173841%_ - _%tl173797173843%_) - (_%__kont176860176861%_)))) - (_%__kont176860176861%_)) - (_%__kont176860176861%_)))) - (_%__kont176860176861%_)))) - (_%__kont176860176861%_)))) - (_%__kont176860176861%_)))))))) + _%tl173834173880%_)) + (_%__match176926176927%_ + _%e173823173851%_ + _%hd173824173854%_ + _%tl173825173856%_ + _%e173826173859%_ + _%hd173827173862%_ + _%tl173828173864%_ + _%e173829173867%_ + _%hd173830173870%_ + _%tl173831173872%_ + _%e173832173875%_ + _%hd173833173878%_ + _%tl173834173880%_) + (_%__kont176897176898%_)))) + (_%__kont176897176898%_)) + (_%__kont176897176898%_)))) + (_%__kont176897176898%_)))) + (_%__kont176897176898%_)))) + (_%__kont176897176898%_)))))))) (define gxc#extract-receiver-begin-annotation% - (lambda (_%self173626%_ _%stx173627%_) - (let* ((_%__stx176892176893%_ _%stx173627%_) - (_%g173630173663%_ + (lambda (_%self173663%_ _%stx173664%_) + (let* ((_%__stx176929176930%_ _%stx173664%_) + (_%g173667173700%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176892176893%_))))) - (let ((_%__kont176894176895%_ (lambda (_%L173753%_) _%L173753%_)) - (_%__kont176896176897%_ - (lambda (_%L173692%_ _%L173693%_) + _%__stx176929176930%_))))) + (let ((_%__kont176931176932%_ (lambda (_%L173790%_) _%L173790%_)) + (_%__kont176933176934%_ + (lambda (_%L173729%_ _%L173730%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self173626%_ _%L173692%_))))) + (gxc#compile-e__1 _%self173663%_ _%L173729%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176892176893%_)) - (let ((_%e173633173713%_ + (gx#stx-pair? _%__stx176929176930%_)) + (let ((_%e173670173750%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176892176893%_)))) - (let ((_%tl173635173718%_ + (gx#stx-e _%__stx176929176930%_)))) + (let ((_%tl173672173755%_ (let () (declare (not safe)) - (##cdr _%e173633173713%_))) - (_%hd173634173716%_ + (##cdr _%e173670173750%_))) + (_%hd173671173753%_ (let () (declare (not safe)) - (##car _%e173633173713%_)))) + (##car _%e173670173750%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173635173718%_)) - (let ((_%e173636173721%_ + (gx#stx-pair? _%tl173672173755%_)) + (let ((_%e173673173758%_ (let () (declare (not safe)) - (gx#stx-e _%tl173635173718%_)))) - (let ((_%tl173638173726%_ + (gx#stx-e _%tl173672173755%_)))) + (let ((_%tl173675173763%_ (let () (declare (not safe)) - (##cdr _%e173636173721%_))) - (_%hd173637173724%_ + (##cdr _%e173673173758%_))) + (_%hd173674173761%_ (let () (declare (not safe)) - (##car _%e173636173721%_)))) + (##car _%e173673173758%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173637173724%_)) - (let ((_%e173639173729%_ + (gx#stx-pair? _%hd173674173761%_)) + (let ((_%e173676173766%_ (let () (declare (not safe)) - (gx#stx-e _%hd173637173724%_)))) - (let ((_%tl173641173734%_ + (gx#stx-e _%hd173674173761%_)))) + (let ((_%tl173678173771%_ (let () (declare (not safe)) - (##cdr _%e173639173729%_))) - (_%hd173640173732%_ + (##cdr _%e173676173766%_))) + (_%hd173677173769%_ (let () (declare (not safe)) - (##car _%e173639173729%_)))) + (##car _%e173676173766%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd173640173732%_)) + (gx#identifier? _%hd173677173769%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@receiver - _%hd173640173732%_)) + _%hd173677173769%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173641173734%_)) - (let ((_%e173642173737%_ + _%tl173678173771%_)) + (let ((_%e173679173774%_ (let () (declare (not safe)) (gx#stx-e - _%tl173641173734%_)))) - (let ((_%tl173644173742%_ + _%tl173678173771%_)))) + (let ((_%tl173681173779%_ (let () (declare (not safe)) - (##cdr _%e173642173737%_))) - (_%hd173643173740%_ + (##cdr _%e173679173774%_))) + (_%hd173680173777%_ (let () (declare (not safe)) - (##car _%e173642173737%_)))) + (##car _%e173679173774%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173644173742%_)) + _%tl173681173779%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173638173726%_)) - (let ((_%e173645173745%_ + _%tl173675173763%_)) + (let ((_%e173682173782%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl173638173726%_)))) - (let ((_%tl173647173750%_ + (gx#stx-e _%tl173675173763%_)))) + (let ((_%tl173684173787%_ (let () (declare (not safe)) - (##cdr _%e173645173745%_))) - (_%hd173646173748%_ + (##cdr _%e173682173782%_))) + (_%hd173683173785%_ (let () (declare (not safe)) - (##car _%e173645173745%_)))) + (##car _%e173682173782%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173647173750%_)) - (_%__kont176894176895%_ _%hd173643173740%_) + (gx#stx-null? _%tl173684173787%_)) + (_%__kont176931176932%_ _%hd173680173777%_) (let () (declare (not safe)) - (_%g173630173663%_))))) - (let () (declare (not safe)) (_%g173630173663%_))) + (_%g173667173700%_))))) + (let () (declare (not safe)) (_%g173667173700%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173638173726%_)) - (let ((_%e173656173684%_ + (gx#stx-pair? _%tl173675173763%_)) + (let ((_%e173693173721%_ (let () (declare (not safe)) - (gx#stx-e _%tl173638173726%_)))) - (let ((_%tl173658173689%_ + (gx#stx-e _%tl173675173763%_)))) + (let ((_%tl173695173726%_ (let () (declare (not safe)) - (##cdr _%e173656173684%_))) - (_%hd173657173687%_ + (##cdr _%e173693173721%_))) + (_%hd173694173724%_ (let () (declare (not safe)) - (##car _%e173656173684%_)))) + (##car _%e173693173721%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173658173689%_)) - (_%__kont176896176897%_ - _%hd173657173687%_ - _%hd173637173724%_) + (gx#stx-null? _%tl173695173726%_)) + (_%__kont176933176934%_ + _%hd173694173724%_ + _%hd173674173761%_) (let () (declare (not safe)) - (_%g173630173663%_))))) - (let () (declare (not safe)) (_%g173630173663%_)))))) + (_%g173667173700%_))))) + (let () (declare (not safe)) (_%g173667173700%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173638173726%_)) - (let ((_%e173656173684%_ + _%tl173675173763%_)) + (let ((_%e173693173721%_ (let () (declare (not safe)) (gx#stx-e - _%tl173638173726%_)))) - (let ((_%tl173658173689%_ + _%tl173675173763%_)))) + (let ((_%tl173695173726%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e173656173684%_))) - (_%hd173657173687%_ - (let () (declare (not safe)) (##car _%e173656173684%_)))) + (##cdr _%e173693173721%_))) + (_%hd173694173724%_ + (let () (declare (not safe)) (##car _%e173693173721%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173658173689%_)) - (_%__kont176896176897%_ - _%hd173657173687%_ - _%hd173637173724%_) - (let () (declare (not safe)) (_%g173630173663%_))))) + (gx#stx-null? _%tl173695173726%_)) + (_%__kont176933176934%_ + _%hd173694173724%_ + _%hd173674173761%_) + (let () (declare (not safe)) (_%g173667173700%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g173630173663%_)))) + (_%g173667173700%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173638173726%_)) - (let ((_%e173656173684%_ + _%tl173675173763%_)) + (let ((_%e173693173721%_ (let () (declare (not safe)) (gx#stx-e - _%tl173638173726%_)))) - (let ((_%tl173658173689%_ + _%tl173675173763%_)))) + (let ((_%tl173695173726%_ (let () (declare (not safe)) - (##cdr _%e173656173684%_))) - (_%hd173657173687%_ + (##cdr _%e173693173721%_))) + (_%hd173694173724%_ (let () (declare (not safe)) - (##car _%e173656173684%_)))) + (##car _%e173693173721%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173658173689%_)) - (_%__kont176896176897%_ - _%hd173657173687%_ - _%hd173637173724%_) + _%tl173695173726%_)) + (_%__kont176933176934%_ + _%hd173694173724%_ + _%hd173674173761%_) (let () (declare (not safe)) - (_%g173630173663%_))))) + (_%g173667173700%_))))) (let () (declare (not safe)) - (_%g173630173663%_)))) + (_%g173667173700%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173638173726%_)) - (let ((_%e173656173684%_ + _%tl173675173763%_)) + (let ((_%e173693173721%_ (let () (declare (not safe)) (gx#stx-e - _%tl173638173726%_)))) - (let ((_%tl173658173689%_ + _%tl173675173763%_)))) + (let ((_%tl173695173726%_ (let () (declare (not safe)) - (##cdr _%e173656173684%_))) - (_%hd173657173687%_ + (##cdr _%e173693173721%_))) + (_%hd173694173724%_ (let () (declare (not safe)) - (##car _%e173656173684%_)))) + (##car _%e173693173721%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173658173689%_)) - (_%__kont176896176897%_ - _%hd173657173687%_ - _%hd173637173724%_) + _%tl173695173726%_)) + (_%__kont176933176934%_ + _%hd173694173724%_ + _%hd173674173761%_) (let () (declare (not safe)) - (_%g173630173663%_))))) + (_%g173667173700%_))))) (let () (declare (not safe)) - (_%g173630173663%_)))))) + (_%g173667173700%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173638173726%_)) - (let ((_%e173656173684%_ + (gx#stx-pair? _%tl173675173763%_)) + (let ((_%e173693173721%_ (let () (declare (not safe)) - (gx#stx-e _%tl173638173726%_)))) - (let ((_%tl173658173689%_ + (gx#stx-e _%tl173675173763%_)))) + (let ((_%tl173695173726%_ (let () (declare (not safe)) - (##cdr _%e173656173684%_))) - (_%hd173657173687%_ + (##cdr _%e173693173721%_))) + (_%hd173694173724%_ (let () (declare (not safe)) - (##car _%e173656173684%_)))) + (##car _%e173693173721%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173658173689%_)) - (_%__kont176896176897%_ - _%hd173657173687%_ - _%hd173637173724%_) + _%tl173695173726%_)) + (_%__kont176933176934%_ + _%hd173694173724%_ + _%hd173674173761%_) (let () (declare (not safe)) - (_%g173630173663%_))))) + (_%g173667173700%_))))) (let () (declare (not safe)) - (_%g173630173663%_)))))) - (let () (declare (not safe)) (_%g173630173663%_))))) - (let () (declare (not safe)) (_%g173630173663%_))))))) + (_%g173667173700%_)))))) + (let () (declare (not safe)) (_%g173667173700%_))))) + (let () (declare (not safe)) (_%g173667173700%_))))))) (define gxc#extract-receiver-if% - (lambda (_%self173542%_ _%stx173543%_) - (let* ((_%g173545173566%_ - (lambda (_%g173546173563%_) + (lambda (_%self173579%_ _%stx173580%_) + (let* ((_%g173582173603%_ + (lambda (_%g173583173600%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173546173563%_)))) - (_%g173544173623%_ - (lambda (_%g173546173569%_) + _%g173583173600%_)))) + (_%g173581173660%_ + (lambda (_%g173583173606%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173546173569%_)) - (let ((_%e173550173571%_ + (gx#stx-pair? _%g173583173606%_)) + (let ((_%e173587173608%_ (let () (declare (not safe)) - (gx#stx-e _%g173546173569%_)))) - (let ((_%hd173551173574%_ + (gx#stx-e _%g173583173606%_)))) + (let ((_%hd173588173611%_ (let () (declare (not safe)) - (##car _%e173550173571%_))) - (_%tl173552173576%_ + (##car _%e173587173608%_))) + (_%tl173589173613%_ (let () (declare (not safe)) - (##cdr _%e173550173571%_)))) + (##cdr _%e173587173608%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173552173576%_)) - (let ((_%e173553173579%_ + (gx#stx-pair? _%tl173589173613%_)) + (let ((_%e173590173616%_ (let () (declare (not safe)) - (gx#stx-e _%tl173552173576%_)))) - (let ((_%hd173554173582%_ + (gx#stx-e _%tl173589173613%_)))) + (let ((_%hd173591173619%_ (let () (declare (not safe)) - (##car _%e173553173579%_))) - (_%tl173555173584%_ + (##car _%e173590173616%_))) + (_%tl173592173621%_ (let () (declare (not safe)) - (##cdr _%e173553173579%_)))) + (##cdr _%e173590173616%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173555173584%_)) - (let ((_%e173556173587%_ + (gx#stx-pair? _%tl173592173621%_)) + (let ((_%e173593173624%_ (let () (declare (not safe)) - (gx#stx-e _%tl173555173584%_)))) - (let ((_%hd173557173590%_ + (gx#stx-e _%tl173592173621%_)))) + (let ((_%hd173594173627%_ (let () (declare (not safe)) - (##car _%e173556173587%_))) - (_%tl173558173592%_ + (##car _%e173593173624%_))) + (_%tl173595173629%_ (let () (declare (not safe)) - (##cdr _%e173556173587%_)))) + (##cdr _%e173593173624%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173558173592%_)) - (let ((_%e173559173595%_ + _%tl173595173629%_)) + (let ((_%e173596173632%_ (let () (declare (not safe)) (gx#stx-e - _%tl173558173592%_)))) - (let ((_%hd173560173598%_ + _%tl173595173629%_)))) + (let ((_%hd173597173635%_ (let () (declare (not safe)) - (##car _%e173559173595%_))) - (_%tl173561173600%_ + (##car _%e173596173632%_))) + (_%tl173598173637%_ (let () (declare (not safe)) - (##cdr _%e173559173595%_)))) + (##cdr _%e173596173632%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173561173600%_)) - ((lambda (_%L173603%_ - _%L173604%_ - _%L173605%_) + _%tl173598173637%_)) + ((lambda (_%L173640%_ + _%L173641%_ + _%L173642%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self173542%_ - _%L173604%_))) - _%hd173560173598%_ - _%hd173557173590%_ - _%hd173554173582%_) - (_%g173545173566%_ - _%g173546173569%_)))) - (_%g173545173566%_ - _%g173546173569%_)))) - (_%g173545173566%_ _%g173546173569%_)))) - (_%g173545173566%_ _%g173546173569%_)))) - (_%g173545173566%_ _%g173546173569%_))))) - (_%g173544173623%_ _%stx173543%_)))) + _%self173579%_ + _%L173641%_))) + _%hd173597173635%_ + _%hd173594173627%_ + _%hd173591173619%_) + (_%g173582173603%_ + _%g173583173606%_)))) + (_%g173582173603%_ + _%g173583173606%_)))) + (_%g173582173603%_ _%g173583173606%_)))) + (_%g173582173603%_ _%g173583173606%_)))) + (_%g173582173603%_ _%g173583173606%_))))) + (_%g173581173660%_ _%stx173580%_)))) (define gxc#collect-object-refs-call% - (lambda (_%self172503%_ _%stx172504%_) - (let* ((_%__stx176958176959%_ _%stx172504%_) - (_%g172512172734%_ + (lambda (_%self172540%_ _%stx172541%_) + (let* ((_%__stx176995176996%_ _%stx172541%_) + (_%g172549172771%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176958176959%_))))) - (let ((_%__kont176960176961%_ - (lambda (_%L173491%_ _%L173492%_ _%L173493%_ _%L173494%_) - (let ((__tmp178064 + _%__stx176995176996%_))))) + (let ((_%__kont176997176998%_ + (lambda (_%L173528%_ _%L173529%_ _%L173530%_ _%L173531%_) + (let ((__tmp178101 (let () (declare (not safe)) - (slot-ref__0 _%self172503%_ 'methods))) - (__tmp178063 + (slot-ref__0 _%self172540%_ 'methods))) + (__tmp178100 (let () (declare (not safe)) - (gx#stx-e _%L173492%_)))) + (gx#stx-e _%L173529%_)))) (declare (not safe)) - (hash-put! __tmp178064 __tmp178063 '#t)) + (hash-put! __tmp178101 __tmp178100 '#t)) (for-each - (lambda (_%g173527173529%_) + (lambda (_%g173564173566%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172503%_ _%g173527173529%_))) - (let ((__tmp178065 - (lambda (_%g173531173534%_ _%g173532173536%_) - (cons _%g173531173534%_ _%g173532173536%_)))) + (gxc#compile-e__1 _%self172540%_ _%g173564173566%_))) + (let ((__tmp178102 + (lambda (_%g173568173571%_ _%g173569173573%_) + (cons _%g173568173571%_ _%g173569173573%_)))) (declare (not safe)) - (__foldr1 __tmp178065 '() _%L173491%_))))) - (_%__kont176964176965%_ - (lambda (_%L173326%_ - _%L173327%_ - _%L173328%_ - _%L173329%_ - _%L173330%_) - (let ((__tmp178067 + (__foldr1 __tmp178102 '() _%L173528%_))))) + (_%__kont177001177002%_ + (lambda (_%L173363%_ + _%L173364%_ + _%L173365%_ + _%L173366%_ + _%L173367%_) + (let ((__tmp178104 (let () (declare (not safe)) - (slot-ref__0 _%self172503%_ 'methods))) - (__tmp178066 + (slot-ref__0 _%self172540%_ 'methods))) + (__tmp178103 (let () (declare (not safe)) - (gx#stx-e _%L173327%_)))) + (gx#stx-e _%L173364%_)))) (declare (not safe)) - (hash-put! __tmp178067 __tmp178066 '#t)) + (hash-put! __tmp178104 __tmp178103 '#t)) (for-each - (lambda (_%g173370173372%_) + (lambda (_%g173407173409%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172503%_ _%g173370173372%_))) - (let ((__tmp178068 - (lambda (_%g173374173377%_ _%g173375173379%_) - (cons _%g173374173377%_ _%g173375173379%_)))) + (gxc#compile-e__1 _%self172540%_ _%g173407173409%_))) + (let ((__tmp178105 + (lambda (_%g173411173414%_ _%g173412173416%_) + (cons _%g173411173414%_ _%g173412173416%_)))) (declare (not safe)) - (__foldr1 __tmp178068 '() _%L173326%_))))) - (_%__kont176968176969%_ - (lambda (_%L173159%_ _%L173160%_ _%L173161%_) - (let ((__tmp178070 + (__foldr1 __tmp178105 '() _%L173363%_))))) + (_%__kont177005177006%_ + (lambda (_%L173196%_ _%L173197%_ _%L173198%_) + (let ((__tmp178107 (let () (declare (not safe)) - (slot-ref__0 _%self172503%_ 'slots))) - (__tmp178069 + (slot-ref__0 _%self172540%_ 'slots))) + (__tmp178106 (let () (declare (not safe)) - (gx#stx-e _%L173159%_)))) + (gx#stx-e _%L173196%_)))) (declare (not safe)) - (hash-put! __tmp178070 __tmp178069 '#t)))) - (_%__kont176970176971%_ - (lambda (_%L173036%_ _%L173037%_ _%L173038%_ _%L173039%_) - (let ((__tmp178072 + (hash-put! __tmp178107 __tmp178106 '#t)))) + (_%__kont177007177008%_ + (lambda (_%L173073%_ _%L173074%_ _%L173075%_ _%L173076%_) + (let ((__tmp178109 (let () (declare (not safe)) - (slot-ref__0 _%self172503%_ 'slots))) - (__tmp178071 + (slot-ref__0 _%self172540%_ 'slots))) + (__tmp178108 (let () (declare (not safe)) - (gx#stx-e _%L173037%_)))) + (gx#stx-e _%L173074%_)))) (declare (not safe)) - (hash-put! __tmp178072 __tmp178071 '#t)) + (hash-put! __tmp178109 __tmp178108 '#t)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172503%_ _%L173036%_)))) - (_%__kont176972176973%_ - (lambda (_%L172910%_ _%L172911%_) - (let* ((_%accessor172933%_ - (let ((__tmp178073 + (gxc#compile-e__1 _%self172540%_ _%L173073%_)))) + (_%__kont177009177010%_ + (lambda (_%L172947%_ _%L172948%_) + (let* ((_%accessor172970%_ + (let ((__tmp178110 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172911%_)))) + (gxc#identifier-symbol _%L172948%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178073))) - (_%klass172935%_ - (let ((__tmp178074 + (gxc#optimizer-resolve-type __tmp178110))) + (_%klass172972%_ + (let ((__tmp178111 (##structure-ref - _%accessor172933%_ + _%accessor172970%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx172504%_ - __tmp178074))) - (_%slot172937%_ + _%stx172541%_ + __tmp178111))) + (_%slot172974%_ (##structure-ref - _%accessor172933%_ + _%accessor172970%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor172933%_ + _%accessor172970%_ '4 gxc#!accessor::t '#f) @@ -4837,56 +4837,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass172935%_ - _%slot172937%_)) + _%klass172972%_ + _%slot172974%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass172935%_ + _%klass172972%_ '8 '#f '#f)))) '#!void - (let ((__tmp178076 + (let ((__tmp178113 (let () (declare (not safe)) - (slot-ref__0 _%self172503%_ 'slots))) - (__tmp178075 + (slot-ref__0 _%self172540%_ 'slots))) + (__tmp178112 (##structure-ref - _%accessor172933%_ + _%accessor172970%_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! __tmp178076 __tmp178075 '#t)))))) - (_%__kont176974176975%_ - (lambda (_%L172810%_ _%L172811%_ _%L172812%_) - (let* ((_%mutator172839%_ - (let ((__tmp178077 + (hash-put! __tmp178113 __tmp178112 '#t)))))) + (_%__kont177011177012%_ + (lambda (_%L172847%_ _%L172848%_ _%L172849%_) + (let* ((_%mutator172876%_ + (let ((__tmp178114 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172812%_)))) + (gxc#identifier-symbol _%L172849%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178077))) - (_%klass172841%_ - (let ((__tmp178078 + (gxc#optimizer-resolve-type __tmp178114))) + (_%klass172878%_ + (let ((__tmp178115 (##structure-ref - _%mutator172839%_ + _%mutator172876%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx172504%_ - __tmp178078))) - (_%slot172843%_ + _%stx172541%_ + __tmp178115))) + (_%slot172880%_ (##structure-ref - _%mutator172839%_ + _%mutator172876%_ '3 gxc#!mutator::t '#f))) (if (if (##structure-ref - _%mutator172839%_ + _%mutator172876%_ '4 gxc#!mutator::t '#f) @@ -4894,2064 +4894,2064 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass172841%_ - _%slot172843%_)) + _%klass172878%_ + _%slot172880%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass172841%_ + _%klass172878%_ '8 '#f '#f)))) '#!void - (let ((__tmp178079 + (let ((__tmp178116 (let () (declare (not safe)) - (slot-ref__0 _%self172503%_ 'slots)))) + (slot-ref__0 _%self172540%_ 'slots)))) (declare (not safe)) - (hash-put! __tmp178079 _%slot172843%_ '#t))) + (hash-put! __tmp178116 _%slot172880%_ '#t))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172503%_ _%L172810%_))))) - (_%__kont176976176977%_ + (gxc#compile-e__1 _%self172540%_ _%L172847%_))))) + (_%__kont177013177014%_ (lambda () (let () (declare (not safe)) - (gxc#apply-operands _%self172503%_ _%stx172504%_))))) - (let* ((_%__match177457177458%_ - (lambda (_%e172706172746%_ - _%hd172707172749%_ - _%tl172708172751%_ - _%e172709172754%_ - _%hd172710172757%_ - _%tl172711172759%_ - _%e172712172762%_ - _%hd172713172765%_ - _%tl172714172767%_ - _%e172715172770%_ - _%hd172716172773%_ - _%tl172717172775%_ - _%e172718172778%_ - _%hd172719172781%_ - _%tl172720172783%_ - _%e172721172786%_ - _%hd172722172789%_ - _%tl172723172791%_ - _%e172724172794%_ - _%hd172725172797%_ - _%tl172726172799%_ - _%e172727172802%_ - _%hd172728172805%_ - _%tl172729172807%_) - (let ((_%L172810%_ _%hd172728172805%_) - (_%L172811%_ _%hd172725172797%_) - (_%L172812%_ _%hd172716172773%_)) - (if (and (let ((__tmp178080 - (let ((__tmp178081 + (gxc#apply-operands _%self172540%_ _%stx172541%_))))) + (let* ((_%__match177494177495%_ + (lambda (_%e172743172783%_ + _%hd172744172786%_ + _%tl172745172788%_ + _%e172746172791%_ + _%hd172747172794%_ + _%tl172748172796%_ + _%e172749172799%_ + _%hd172750172802%_ + _%tl172751172804%_ + _%e172752172807%_ + _%hd172753172810%_ + _%tl172754172812%_ + _%e172755172815%_ + _%hd172756172818%_ + _%tl172757172820%_ + _%e172758172823%_ + _%hd172759172826%_ + _%tl172760172828%_ + _%e172761172831%_ + _%hd172762172834%_ + _%tl172763172836%_ + _%e172764172839%_ + _%hd172765172842%_ + _%tl172766172844%_) + (let ((_%L172847%_ _%hd172765172842%_) + (_%L172848%_ _%hd172762172834%_) + (_%L172849%_ _%hd172753172810%_)) + (if (and (let ((__tmp178117 + (let ((__tmp178118 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172812%_)))) + _%L172849%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178081)))) + __tmp178118)))) (declare (not safe)) (##structure-instance-of? - __tmp178080 + __tmp178117 'gxc#!mutator::t)) - (let ((__tmp178082 + (let ((__tmp178119 (let () (declare (not safe)) (slot-ref__0 - _%self172503%_ + _%self172540%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172811%_ - __tmp178082))) - (_%__kont176974176975%_ - _%L172810%_ - _%L172811%_ - _%L172812%_) - (_%__kont176976176977%_))))) - (_%__match177455177456%_ - (lambda (_%e172706172746%_ - _%hd172707172749%_ - _%tl172708172751%_ - _%e172709172754%_ - _%hd172710172757%_ - _%tl172711172759%_ - _%e172712172762%_ - _%hd172713172765%_ - _%tl172714172767%_ - _%e172715172770%_ - _%hd172716172773%_ - _%tl172717172775%_ - _%e172718172778%_ - _%hd172719172781%_ - _%tl172720172783%_ - _%e172721172786%_ - _%hd172722172789%_ - _%tl172723172791%_ - _%e172724172794%_ - _%hd172725172797%_ - _%tl172726172799%_ - _%e172727172802%_ - _%hd172728172805%_ - _%tl172729172807%_) + _%L172848%_ + __tmp178119))) + (_%__kont177011177012%_ + _%L172847%_ + _%L172848%_ + _%L172849%_) + (_%__kont177013177014%_))))) + (_%__match177492177493%_ + (lambda (_%e172743172783%_ + _%hd172744172786%_ + _%tl172745172788%_ + _%e172746172791%_ + _%hd172747172794%_ + _%tl172748172796%_ + _%e172749172799%_ + _%hd172750172802%_ + _%tl172751172804%_ + _%e172752172807%_ + _%hd172753172810%_ + _%tl172754172812%_ + _%e172755172815%_ + _%hd172756172818%_ + _%tl172757172820%_ + _%e172758172823%_ + _%hd172759172826%_ + _%tl172760172828%_ + _%e172761172831%_ + _%hd172762172834%_ + _%tl172763172836%_ + _%e172764172839%_ + _%hd172765172842%_ + _%tl172766172844%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172729172807%_)) - (_%__match177457177458%_ - _%e172706172746%_ - _%hd172707172749%_ - _%tl172708172751%_ - _%e172709172754%_ - _%hd172710172757%_ - _%tl172711172759%_ - _%e172712172762%_ - _%hd172713172765%_ - _%tl172714172767%_ - _%e172715172770%_ - _%hd172716172773%_ - _%tl172717172775%_ - _%e172718172778%_ - _%hd172719172781%_ - _%tl172720172783%_ - _%e172721172786%_ - _%hd172722172789%_ - _%tl172723172791%_ - _%e172724172794%_ - _%hd172725172797%_ - _%tl172726172799%_ - _%e172727172802%_ - _%hd172728172805%_ - _%tl172729172807%_) - (_%__kont176976176977%_)))) - (_%__match177449177450%_ - (lambda (_%e172706172746%_ - _%hd172707172749%_ - _%tl172708172751%_ - _%e172709172754%_ - _%hd172710172757%_ - _%tl172711172759%_ - _%e172712172762%_ - _%hd172713172765%_ - _%tl172714172767%_ - _%e172715172770%_ - _%hd172716172773%_ - _%tl172717172775%_ - _%e172718172778%_ - _%hd172719172781%_ - _%tl172720172783%_ - _%e172721172786%_ - _%hd172722172789%_ - _%tl172723172791%_ - _%e172724172794%_ - _%hd172725172797%_ - _%tl172726172799%_) + (gx#stx-null? _%tl172766172844%_)) + (_%__match177494177495%_ + _%e172743172783%_ + _%hd172744172786%_ + _%tl172745172788%_ + _%e172746172791%_ + _%hd172747172794%_ + _%tl172748172796%_ + _%e172749172799%_ + _%hd172750172802%_ + _%tl172751172804%_ + _%e172752172807%_ + _%hd172753172810%_ + _%tl172754172812%_ + _%e172755172815%_ + _%hd172756172818%_ + _%tl172757172820%_ + _%e172758172823%_ + _%hd172759172826%_ + _%tl172760172828%_ + _%e172761172831%_ + _%hd172762172834%_ + _%tl172763172836%_ + _%e172764172839%_ + _%hd172765172842%_ + _%tl172766172844%_) + (_%__kont177013177014%_)))) + (_%__match177486177487%_ + (lambda (_%e172743172783%_ + _%hd172744172786%_ + _%tl172745172788%_ + _%e172746172791%_ + _%hd172747172794%_ + _%tl172748172796%_ + _%e172749172799%_ + _%hd172750172802%_ + _%tl172751172804%_ + _%e172752172807%_ + _%hd172753172810%_ + _%tl172754172812%_ + _%e172755172815%_ + _%hd172756172818%_ + _%tl172757172820%_ + _%e172758172823%_ + _%hd172759172826%_ + _%tl172760172828%_ + _%e172761172831%_ + _%hd172762172834%_ + _%tl172763172836%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172720172783%_)) - (let ((_%e172727172802%_ + (gx#stx-pair? _%tl172757172820%_)) + (let ((_%e172764172839%_ (let () (declare (not safe)) - (gx#stx-e _%tl172720172783%_)))) - (let ((_%tl172729172807%_ + (gx#stx-e _%tl172757172820%_)))) + (let ((_%tl172766172844%_ (let () (declare (not safe)) - (##cdr _%e172727172802%_))) - (_%hd172728172805%_ + (##cdr _%e172764172839%_))) + (_%hd172765172842%_ (let () (declare (not safe)) - (##car _%e172727172802%_)))) + (##car _%e172764172839%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172729172807%_)) - (_%__match177457177458%_ - _%e172706172746%_ - _%hd172707172749%_ - _%tl172708172751%_ - _%e172709172754%_ - _%hd172710172757%_ - _%tl172711172759%_ - _%e172712172762%_ - _%hd172713172765%_ - _%tl172714172767%_ - _%e172715172770%_ - _%hd172716172773%_ - _%tl172717172775%_ - _%e172718172778%_ - _%hd172719172781%_ - _%tl172720172783%_ - _%e172721172786%_ - _%hd172722172789%_ - _%tl172723172791%_ - _%e172724172794%_ - _%hd172725172797%_ - _%tl172726172799%_ - _%e172727172802%_ - _%hd172728172805%_ - _%tl172729172807%_) - (_%__kont176976176977%_)))) - (_%__kont176976176977%_)))) - (_%__match177395177396%_ - (lambda (_%e172682172854%_ - _%hd172683172857%_ - _%tl172684172859%_ - _%e172685172862%_ - _%hd172686172865%_ - _%tl172687172867%_ - _%e172688172870%_ - _%hd172689172873%_ - _%tl172690172875%_ - _%e172691172878%_ - _%hd172692172881%_ - _%tl172693172883%_ - _%e172694172886%_ - _%hd172695172889%_ - _%tl172696172891%_ - _%e172697172894%_ - _%hd172698172897%_ - _%tl172699172899%_ - _%e172700172902%_ - _%hd172701172905%_ - _%tl172702172907%_) - (let ((_%L172910%_ _%hd172701172905%_) - (_%L172911%_ _%hd172692172881%_)) - (if (and (let ((__tmp178083 - (let ((__tmp178084 + (gx#stx-null? _%tl172766172844%_)) + (_%__match177494177495%_ + _%e172743172783%_ + _%hd172744172786%_ + _%tl172745172788%_ + _%e172746172791%_ + _%hd172747172794%_ + _%tl172748172796%_ + _%e172749172799%_ + _%hd172750172802%_ + _%tl172751172804%_ + _%e172752172807%_ + _%hd172753172810%_ + _%tl172754172812%_ + _%e172755172815%_ + _%hd172756172818%_ + _%tl172757172820%_ + _%e172758172823%_ + _%hd172759172826%_ + _%tl172760172828%_ + _%e172761172831%_ + _%hd172762172834%_ + _%tl172763172836%_ + _%e172764172839%_ + _%hd172765172842%_ + _%tl172766172844%_) + (_%__kont177013177014%_)))) + (_%__kont177013177014%_)))) + (_%__match177432177433%_ + (lambda (_%e172719172891%_ + _%hd172720172894%_ + _%tl172721172896%_ + _%e172722172899%_ + _%hd172723172902%_ + _%tl172724172904%_ + _%e172725172907%_ + _%hd172726172910%_ + _%tl172727172912%_ + _%e172728172915%_ + _%hd172729172918%_ + _%tl172730172920%_ + _%e172731172923%_ + _%hd172732172926%_ + _%tl172733172928%_ + _%e172734172931%_ + _%hd172735172934%_ + _%tl172736172936%_ + _%e172737172939%_ + _%hd172738172942%_ + _%tl172739172944%_) + (let ((_%L172947%_ _%hd172738172942%_) + (_%L172948%_ _%hd172729172918%_)) + (if (and (let ((__tmp178120 + (let ((__tmp178121 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172911%_)))) + _%L172948%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178084)))) + __tmp178121)))) (declare (not safe)) (##structure-instance-of? - __tmp178083 + __tmp178120 'gxc#!accessor::t)) - (let ((__tmp178085 + (let ((__tmp178122 (let () (declare (not safe)) (slot-ref__0 - _%self172503%_ + _%self172540%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172910%_ - __tmp178085))) - (_%__kont176972176973%_ _%L172910%_ _%L172911%_) - (_%__kont176976176977%_))))) - (_%__match177393177394%_ - (lambda (_%e172682172854%_ - _%hd172683172857%_ - _%tl172684172859%_ - _%e172685172862%_ - _%hd172686172865%_ - _%tl172687172867%_ - _%e172688172870%_ - _%hd172689172873%_ - _%tl172690172875%_ - _%e172691172878%_ - _%hd172692172881%_ - _%tl172693172883%_ - _%e172694172886%_ - _%hd172695172889%_ - _%tl172696172891%_ - _%e172697172894%_ - _%hd172698172897%_ - _%tl172699172899%_ - _%e172700172902%_ - _%hd172701172905%_ - _%tl172702172907%_) + _%L172947%_ + __tmp178122))) + (_%__kont177009177010%_ _%L172947%_ _%L172948%_) + (_%__kont177013177014%_))))) + (_%__match177430177431%_ + (lambda (_%e172719172891%_ + _%hd172720172894%_ + _%tl172721172896%_ + _%e172722172899%_ + _%hd172723172902%_ + _%tl172724172904%_ + _%e172725172907%_ + _%hd172726172910%_ + _%tl172727172912%_ + _%e172728172915%_ + _%hd172729172918%_ + _%tl172730172920%_ + _%e172731172923%_ + _%hd172732172926%_ + _%tl172733172928%_ + _%e172734172931%_ + _%hd172735172934%_ + _%tl172736172936%_ + _%e172737172939%_ + _%hd172738172942%_ + _%tl172739172944%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172696172891%_)) - (_%__match177395177396%_ - _%e172682172854%_ - _%hd172683172857%_ - _%tl172684172859%_ - _%e172685172862%_ - _%hd172686172865%_ - _%tl172687172867%_ - _%e172688172870%_ - _%hd172689172873%_ - _%tl172690172875%_ - _%e172691172878%_ - _%hd172692172881%_ - _%tl172693172883%_ - _%e172694172886%_ - _%hd172695172889%_ - _%tl172696172891%_ - _%e172697172894%_ - _%hd172698172897%_ - _%tl172699172899%_ - _%e172700172902%_ - _%hd172701172905%_ - _%tl172702172907%_) - (_%__match177449177450%_ - _%e172682172854%_ - _%hd172683172857%_ - _%tl172684172859%_ - _%e172685172862%_ - _%hd172686172865%_ - _%tl172687172867%_ - _%e172688172870%_ - _%hd172689172873%_ - _%tl172690172875%_ - _%e172691172878%_ - _%hd172692172881%_ - _%tl172693172883%_ - _%e172694172886%_ - _%hd172695172889%_ - _%tl172696172891%_ - _%e172697172894%_ - _%hd172698172897%_ - _%tl172699172899%_ - _%e172700172902%_ - _%hd172701172905%_ - _%tl172702172907%_)))) - (_%__match177339177340%_ - (lambda (_%e172647172948%_ - _%hd172648172951%_ - _%tl172649172953%_ - _%e172650172956%_ - _%hd172651172959%_ - _%tl172652172961%_ - _%e172653172964%_ - _%hd172654172967%_ - _%tl172655172969%_ - _%e172656172972%_ - _%hd172657172975%_ - _%tl172658172977%_ - _%e172659172980%_ - _%hd172660172983%_ - _%tl172661172985%_ - _%e172662172988%_ - _%hd172663172991%_ - _%tl172664172993%_ - _%e172665172996%_ - _%hd172666172999%_ - _%tl172667173001%_ - _%e172668173004%_ - _%hd172669173007%_ - _%tl172670173009%_ - _%e172671173012%_ - _%hd172672173015%_ - _%tl172673173017%_ - _%e172674173020%_ - _%hd172675173023%_ - _%tl172676173025%_ - _%e172677173028%_ - _%hd172678173031%_ - _%tl172679173033%_) - (let ((_%L173036%_ _%hd172678173031%_) - (_%L173037%_ _%hd172675173023%_) - (_%L173038%_ _%hd172666172999%_) - (_%L173039%_ _%hd172657172975%_)) + (gx#stx-null? _%tl172733172928%_)) + (_%__match177432177433%_ + _%e172719172891%_ + _%hd172720172894%_ + _%tl172721172896%_ + _%e172722172899%_ + _%hd172723172902%_ + _%tl172724172904%_ + _%e172725172907%_ + _%hd172726172910%_ + _%tl172727172912%_ + _%e172728172915%_ + _%hd172729172918%_ + _%tl172730172920%_ + _%e172731172923%_ + _%hd172732172926%_ + _%tl172733172928%_ + _%e172734172931%_ + _%hd172735172934%_ + _%tl172736172936%_ + _%e172737172939%_ + _%hd172738172942%_ + _%tl172739172944%_) + (_%__match177486177487%_ + _%e172719172891%_ + _%hd172720172894%_ + _%tl172721172896%_ + _%e172722172899%_ + _%hd172723172902%_ + _%tl172724172904%_ + _%e172725172907%_ + _%hd172726172910%_ + _%tl172727172912%_ + _%e172728172915%_ + _%hd172729172918%_ + _%tl172730172920%_ + _%e172731172923%_ + _%hd172732172926%_ + _%tl172733172928%_ + _%e172734172931%_ + _%hd172735172934%_ + _%tl172736172936%_ + _%e172737172939%_ + _%hd172738172942%_ + _%tl172739172944%_)))) + (_%__match177376177377%_ + (lambda (_%e172684172985%_ + _%hd172685172988%_ + _%tl172686172990%_ + _%e172687172993%_ + _%hd172688172996%_ + _%tl172689172998%_ + _%e172690173001%_ + _%hd172691173004%_ + _%tl172692173006%_ + _%e172693173009%_ + _%hd172694173012%_ + _%tl172695173014%_ + _%e172696173017%_ + _%hd172697173020%_ + _%tl172698173022%_ + _%e172699173025%_ + _%hd172700173028%_ + _%tl172701173030%_ + _%e172702173033%_ + _%hd172703173036%_ + _%tl172704173038%_ + _%e172705173041%_ + _%hd172706173044%_ + _%tl172707173046%_ + _%e172708173049%_ + _%hd172709173052%_ + _%tl172710173054%_ + _%e172711173057%_ + _%hd172712173060%_ + _%tl172713173062%_ + _%e172714173065%_ + _%hd172715173068%_ + _%tl172716173070%_) + (let ((_%L173073%_ _%hd172715173068%_) + (_%L173074%_ _%hd172712173060%_) + (_%L173075%_ _%hd172703173036%_) + (_%L173076%_ _%hd172694173012%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173039%_ + _%L173076%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173039%_ + _%L173076%_ 'unchecked-slot-set!))) - (let ((__tmp178086 + (let ((__tmp178123 (let () (declare (not safe)) (slot-ref__0 - _%self172503%_ + _%self172540%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173038%_ - __tmp178086))) - (_%__kont176970176971%_ - _%L173036%_ - _%L173037%_ - _%L173038%_ - _%L173039%_) - (_%__kont176976176977%_))))) - (_%__match177331177332%_ - (lambda (_%e172647172948%_ - _%hd172648172951%_ - _%tl172649172953%_ - _%e172650172956%_ - _%hd172651172959%_ - _%tl172652172961%_ - _%e172653172964%_ - _%hd172654172967%_ - _%tl172655172969%_ - _%e172656172972%_ - _%hd172657172975%_ - _%tl172658172977%_ - _%e172659172980%_ - _%hd172660172983%_ - _%tl172661172985%_ - _%e172662172988%_ - _%hd172663172991%_ - _%tl172664172993%_ - _%e172665172996%_ - _%hd172666172999%_ - _%tl172667173001%_ - _%e172668173004%_ - _%hd172669173007%_ - _%tl172670173009%_ - _%e172671173012%_ - _%hd172672173015%_ - _%tl172673173017%_ - _%e172674173020%_ - _%hd172675173023%_ - _%tl172676173025%_) + _%L173075%_ + __tmp178123))) + (_%__kont177007177008%_ + _%L173073%_ + _%L173074%_ + _%L173075%_ + _%L173076%_) + (_%__kont177013177014%_))))) + (_%__match177368177369%_ + (lambda (_%e172684172985%_ + _%hd172685172988%_ + _%tl172686172990%_ + _%e172687172993%_ + _%hd172688172996%_ + _%tl172689172998%_ + _%e172690173001%_ + _%hd172691173004%_ + _%tl172692173006%_ + _%e172693173009%_ + _%hd172694173012%_ + _%tl172695173014%_ + _%e172696173017%_ + _%hd172697173020%_ + _%tl172698173022%_ + _%e172699173025%_ + _%hd172700173028%_ + _%tl172701173030%_ + _%e172702173033%_ + _%hd172703173036%_ + _%tl172704173038%_ + _%e172705173041%_ + _%hd172706173044%_ + _%tl172707173046%_ + _%e172708173049%_ + _%hd172709173052%_ + _%tl172710173054%_ + _%e172711173057%_ + _%hd172712173060%_ + _%tl172713173062%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172670173009%_)) - (let ((_%e172677173028%_ + (gx#stx-pair? _%tl172707173046%_)) + (let ((_%e172714173065%_ (let () (declare (not safe)) - (gx#stx-e _%tl172670173009%_)))) - (let ((_%tl172679173033%_ + (gx#stx-e _%tl172707173046%_)))) + (let ((_%tl172716173070%_ (let () (declare (not safe)) - (##cdr _%e172677173028%_))) - (_%hd172678173031%_ + (##cdr _%e172714173065%_))) + (_%hd172715173068%_ (let () (declare (not safe)) - (##car _%e172677173028%_)))) + (##car _%e172714173065%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172679173033%_)) - (_%__match177339177340%_ - _%e172647172948%_ - _%hd172648172951%_ - _%tl172649172953%_ - _%e172650172956%_ - _%hd172651172959%_ - _%tl172652172961%_ - _%e172653172964%_ - _%hd172654172967%_ - _%tl172655172969%_ - _%e172656172972%_ - _%hd172657172975%_ - _%tl172658172977%_ - _%e172659172980%_ - _%hd172660172983%_ - _%tl172661172985%_ - _%e172662172988%_ - _%hd172663172991%_ - _%tl172664172993%_ - _%e172665172996%_ - _%hd172666172999%_ - _%tl172667173001%_ - _%e172668173004%_ - _%hd172669173007%_ - _%tl172670173009%_ - _%e172671173012%_ - _%hd172672173015%_ - _%tl172673173017%_ - _%e172674173020%_ - _%hd172675173023%_ - _%tl172676173025%_ - _%e172677173028%_ - _%hd172678173031%_ - _%tl172679173033%_) - (_%__kont176976176977%_)))) - (_%__match177455177456%_ - _%e172647172948%_ - _%hd172648172951%_ - _%tl172649172953%_ - _%e172650172956%_ - _%hd172651172959%_ - _%tl172652172961%_ - _%e172653172964%_ - _%hd172654172967%_ - _%tl172655172969%_ - _%e172656172972%_ - _%hd172657172975%_ - _%tl172658172977%_ - _%e172659172980%_ - _%hd172660172983%_ - _%tl172661172985%_ - _%e172662172988%_ - _%hd172663172991%_ - _%tl172664172993%_ - _%e172665172996%_ - _%hd172666172999%_ - _%tl172667173001%_ - _%e172668173004%_ - _%hd172669173007%_ - _%tl172670173009%_)))) - (_%__match177253177254%_ - (lambda (_%e172613173079%_ - _%hd172614173082%_ - _%tl172615173084%_ - _%e172616173087%_ - _%hd172617173090%_ - _%tl172618173092%_ - _%e172619173095%_ - _%hd172620173098%_ - _%tl172621173100%_ - _%e172622173103%_ - _%hd172623173106%_ - _%tl172624173108%_ - _%e172625173111%_ - _%hd172626173114%_ - _%tl172627173116%_ - _%e172628173119%_ - _%hd172629173122%_ - _%tl172630173124%_ - _%e172631173127%_ - _%hd172632173130%_ - _%tl172633173132%_ - _%e172634173135%_ - _%hd172635173138%_ - _%tl172636173140%_ - _%e172637173143%_ - _%hd172638173146%_ - _%tl172639173148%_ - _%e172640173151%_ - _%hd172641173154%_ - _%tl172642173156%_) - (let ((_%L173159%_ _%hd172641173154%_) - (_%L173160%_ _%hd172632173130%_) - (_%L173161%_ _%hd172623173106%_)) + (gx#stx-null? _%tl172716173070%_)) + (_%__match177376177377%_ + _%e172684172985%_ + _%hd172685172988%_ + _%tl172686172990%_ + _%e172687172993%_ + _%hd172688172996%_ + _%tl172689172998%_ + _%e172690173001%_ + _%hd172691173004%_ + _%tl172692173006%_ + _%e172693173009%_ + _%hd172694173012%_ + _%tl172695173014%_ + _%e172696173017%_ + _%hd172697173020%_ + _%tl172698173022%_ + _%e172699173025%_ + _%hd172700173028%_ + _%tl172701173030%_ + _%e172702173033%_ + _%hd172703173036%_ + _%tl172704173038%_ + _%e172705173041%_ + _%hd172706173044%_ + _%tl172707173046%_ + _%e172708173049%_ + _%hd172709173052%_ + _%tl172710173054%_ + _%e172711173057%_ + _%hd172712173060%_ + _%tl172713173062%_ + _%e172714173065%_ + _%hd172715173068%_ + _%tl172716173070%_) + (_%__kont177013177014%_)))) + (_%__match177492177493%_ + _%e172684172985%_ + _%hd172685172988%_ + _%tl172686172990%_ + _%e172687172993%_ + _%hd172688172996%_ + _%tl172689172998%_ + _%e172690173001%_ + _%hd172691173004%_ + _%tl172692173006%_ + _%e172693173009%_ + _%hd172694173012%_ + _%tl172695173014%_ + _%e172696173017%_ + _%hd172697173020%_ + _%tl172698173022%_ + _%e172699173025%_ + _%hd172700173028%_ + _%tl172701173030%_ + _%e172702173033%_ + _%hd172703173036%_ + _%tl172704173038%_ + _%e172705173041%_ + _%hd172706173044%_ + _%tl172707173046%_)))) + (_%__match177290177291%_ + (lambda (_%e172650173116%_ + _%hd172651173119%_ + _%tl172652173121%_ + _%e172653173124%_ + _%hd172654173127%_ + _%tl172655173129%_ + _%e172656173132%_ + _%hd172657173135%_ + _%tl172658173137%_ + _%e172659173140%_ + _%hd172660173143%_ + _%tl172661173145%_ + _%e172662173148%_ + _%hd172663173151%_ + _%tl172664173153%_ + _%e172665173156%_ + _%hd172666173159%_ + _%tl172667173161%_ + _%e172668173164%_ + _%hd172669173167%_ + _%tl172670173169%_ + _%e172671173172%_ + _%hd172672173175%_ + _%tl172673173177%_ + _%e172674173180%_ + _%hd172675173183%_ + _%tl172676173185%_ + _%e172677173188%_ + _%hd172678173191%_ + _%tl172679173193%_) + (let ((_%L173196%_ _%hd172678173191%_) + (_%L173197%_ _%hd172669173167%_) + (_%L173198%_ _%hd172660173143%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173161%_ + _%L173198%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173161%_ + _%L173198%_ 'unchecked-slot-ref))) - (let ((__tmp178087 + (let ((__tmp178124 (let () (declare (not safe)) (slot-ref__0 - _%self172503%_ + _%self172540%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173160%_ - __tmp178087))) - (_%__kont176968176969%_ - _%L173159%_ - _%L173160%_ - _%L173161%_) - (_%__match177457177458%_ - _%e172613173079%_ - _%hd172614173082%_ - _%tl172615173084%_ - _%e172616173087%_ - _%hd172617173090%_ - _%tl172618173092%_ - _%e172619173095%_ - _%hd172620173098%_ - _%tl172621173100%_ - _%e172622173103%_ - _%hd172623173106%_ - _%tl172624173108%_ - _%e172625173111%_ - _%hd172626173114%_ - _%tl172627173116%_ - _%e172628173119%_ - _%hd172629173122%_ - _%tl172630173124%_ - _%e172631173127%_ - _%hd172632173130%_ - _%tl172633173132%_ - _%e172634173135%_ - _%hd172635173138%_ - _%tl172636173140%_))))) - (_%__match177251177252%_ - (lambda (_%e172613173079%_ - _%hd172614173082%_ - _%tl172615173084%_ - _%e172616173087%_ - _%hd172617173090%_ - _%tl172618173092%_ - _%e172619173095%_ - _%hd172620173098%_ - _%tl172621173100%_ - _%e172622173103%_ - _%hd172623173106%_ - _%tl172624173108%_ - _%e172625173111%_ - _%hd172626173114%_ - _%tl172627173116%_ - _%e172628173119%_ - _%hd172629173122%_ - _%tl172630173124%_ - _%e172631173127%_ - _%hd172632173130%_ - _%tl172633173132%_ - _%e172634173135%_ - _%hd172635173138%_ - _%tl172636173140%_ - _%e172637173143%_ - _%hd172638173146%_ - _%tl172639173148%_ - _%e172640173151%_ - _%hd172641173154%_ - _%tl172642173156%_) + _%L173197%_ + __tmp178124))) + (_%__kont177005177006%_ + _%L173196%_ + _%L173197%_ + _%L173198%_) + (_%__match177494177495%_ + _%e172650173116%_ + _%hd172651173119%_ + _%tl172652173121%_ + _%e172653173124%_ + _%hd172654173127%_ + _%tl172655173129%_ + _%e172656173132%_ + _%hd172657173135%_ + _%tl172658173137%_ + _%e172659173140%_ + _%hd172660173143%_ + _%tl172661173145%_ + _%e172662173148%_ + _%hd172663173151%_ + _%tl172664173153%_ + _%e172665173156%_ + _%hd172666173159%_ + _%tl172667173161%_ + _%e172668173164%_ + _%hd172669173167%_ + _%tl172670173169%_ + _%e172671173172%_ + _%hd172672173175%_ + _%tl172673173177%_))))) + (_%__match177288177289%_ + (lambda (_%e172650173116%_ + _%hd172651173119%_ + _%tl172652173121%_ + _%e172653173124%_ + _%hd172654173127%_ + _%tl172655173129%_ + _%e172656173132%_ + _%hd172657173135%_ + _%tl172658173137%_ + _%e172659173140%_ + _%hd172660173143%_ + _%tl172661173145%_ + _%e172662173148%_ + _%hd172663173151%_ + _%tl172664173153%_ + _%e172665173156%_ + _%hd172666173159%_ + _%tl172667173161%_ + _%e172668173164%_ + _%hd172669173167%_ + _%tl172670173169%_ + _%e172671173172%_ + _%hd172672173175%_ + _%tl172673173177%_ + _%e172674173180%_ + _%hd172675173183%_ + _%tl172676173185%_ + _%e172677173188%_ + _%hd172678173191%_ + _%tl172679173193%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172636173140%_)) - (_%__match177253177254%_ - _%e172613173079%_ - _%hd172614173082%_ - _%tl172615173084%_ - _%e172616173087%_ - _%hd172617173090%_ - _%tl172618173092%_ - _%e172619173095%_ - _%hd172620173098%_ - _%tl172621173100%_ - _%e172622173103%_ - _%hd172623173106%_ - _%tl172624173108%_ - _%e172625173111%_ - _%hd172626173114%_ - _%tl172627173116%_ - _%e172628173119%_ - _%hd172629173122%_ - _%tl172630173124%_ - _%e172631173127%_ - _%hd172632173130%_ - _%tl172633173132%_ - _%e172634173135%_ - _%hd172635173138%_ - _%tl172636173140%_ - _%e172637173143%_ - _%hd172638173146%_ - _%tl172639173148%_ - _%e172640173151%_ - _%hd172641173154%_ - _%tl172642173156%_) - (_%__match177331177332%_ - _%e172613173079%_ - _%hd172614173082%_ - _%tl172615173084%_ - _%e172616173087%_ - _%hd172617173090%_ - _%tl172618173092%_ - _%e172619173095%_ - _%hd172620173098%_ - _%tl172621173100%_ - _%e172622173103%_ - _%hd172623173106%_ - _%tl172624173108%_ - _%e172625173111%_ - _%hd172626173114%_ - _%tl172627173116%_ - _%e172628173119%_ - _%hd172629173122%_ - _%tl172630173124%_ - _%e172631173127%_ - _%hd172632173130%_ - _%tl172633173132%_ - _%e172634173135%_ - _%hd172635173138%_ - _%tl172636173140%_ - _%e172637173143%_ - _%hd172638173146%_ - _%tl172639173148%_ - _%e172640173151%_ - _%hd172641173154%_ - _%tl172642173156%_)))) - (_%__match177241177242%_ - (lambda (_%e172613173079%_ - _%hd172614173082%_ - _%tl172615173084%_ - _%e172616173087%_ - _%hd172617173090%_ - _%tl172618173092%_ - _%e172619173095%_ - _%hd172620173098%_ - _%tl172621173100%_ - _%e172622173103%_ - _%hd172623173106%_ - _%tl172624173108%_ - _%e172625173111%_ - _%hd172626173114%_ - _%tl172627173116%_ - _%e172628173119%_ - _%hd172629173122%_ - _%tl172630173124%_ - _%e172631173127%_ - _%hd172632173130%_ - _%tl172633173132%_ - _%e172634173135%_ - _%hd172635173138%_ - _%tl172636173140%_ - _%e172637173143%_ - _%hd172638173146%_ - _%tl172639173148%_) + (gx#stx-null? _%tl172673173177%_)) + (_%__match177290177291%_ + _%e172650173116%_ + _%hd172651173119%_ + _%tl172652173121%_ + _%e172653173124%_ + _%hd172654173127%_ + _%tl172655173129%_ + _%e172656173132%_ + _%hd172657173135%_ + _%tl172658173137%_ + _%e172659173140%_ + _%hd172660173143%_ + _%tl172661173145%_ + _%e172662173148%_ + _%hd172663173151%_ + _%tl172664173153%_ + _%e172665173156%_ + _%hd172666173159%_ + _%tl172667173161%_ + _%e172668173164%_ + _%hd172669173167%_ + _%tl172670173169%_ + _%e172671173172%_ + _%hd172672173175%_ + _%tl172673173177%_ + _%e172674173180%_ + _%hd172675173183%_ + _%tl172676173185%_ + _%e172677173188%_ + _%hd172678173191%_ + _%tl172679173193%_) + (_%__match177368177369%_ + _%e172650173116%_ + _%hd172651173119%_ + _%tl172652173121%_ + _%e172653173124%_ + _%hd172654173127%_ + _%tl172655173129%_ + _%e172656173132%_ + _%hd172657173135%_ + _%tl172658173137%_ + _%e172659173140%_ + _%hd172660173143%_ + _%tl172661173145%_ + _%e172662173148%_ + _%hd172663173151%_ + _%tl172664173153%_ + _%e172665173156%_ + _%hd172666173159%_ + _%tl172667173161%_ + _%e172668173164%_ + _%hd172669173167%_ + _%tl172670173169%_ + _%e172671173172%_ + _%hd172672173175%_ + _%tl172673173177%_ + _%e172674173180%_ + _%hd172675173183%_ + _%tl172676173185%_ + _%e172677173188%_ + _%hd172678173191%_ + _%tl172679173193%_)))) + (_%__match177278177279%_ + (lambda (_%e172650173116%_ + _%hd172651173119%_ + _%tl172652173121%_ + _%e172653173124%_ + _%hd172654173127%_ + _%tl172655173129%_ + _%e172656173132%_ + _%hd172657173135%_ + _%tl172658173137%_ + _%e172659173140%_ + _%hd172660173143%_ + _%tl172661173145%_ + _%e172662173148%_ + _%hd172663173151%_ + _%tl172664173153%_ + _%e172665173156%_ + _%hd172666173159%_ + _%tl172667173161%_ + _%e172668173164%_ + _%hd172669173167%_ + _%tl172670173169%_ + _%e172671173172%_ + _%hd172672173175%_ + _%tl172673173177%_ + _%e172674173180%_ + _%hd172675173183%_ + _%tl172676173185%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd172638173146%_)) + (gx#stx-eq? '%#quote _%hd172675173183%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172639173148%_)) - (let ((_%e172640173151%_ + (gx#stx-pair? _%tl172676173185%_)) + (let ((_%e172677173188%_ (let () (declare (not safe)) - (gx#stx-e _%tl172639173148%_)))) - (let ((_%tl172642173156%_ + (gx#stx-e _%tl172676173185%_)))) + (let ((_%tl172679173193%_ (let () (declare (not safe)) - (##cdr _%e172640173151%_))) - (_%hd172641173154%_ + (##cdr _%e172677173188%_))) + (_%hd172678173191%_ (let () (declare (not safe)) - (##car _%e172640173151%_)))) + (##car _%e172677173188%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172642173156%_)) + (gx#stx-null? _%tl172679173193%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172636173140%_)) - (_%__match177253177254%_ - _%e172613173079%_ - _%hd172614173082%_ - _%tl172615173084%_ - _%e172616173087%_ - _%hd172617173090%_ - _%tl172618173092%_ - _%e172619173095%_ - _%hd172620173098%_ - _%tl172621173100%_ - _%e172622173103%_ - _%hd172623173106%_ - _%tl172624173108%_ - _%e172625173111%_ - _%hd172626173114%_ - _%tl172627173116%_ - _%e172628173119%_ - _%hd172629173122%_ - _%tl172630173124%_ - _%e172631173127%_ - _%hd172632173130%_ - _%tl172633173132%_ - _%e172634173135%_ - _%hd172635173138%_ - _%tl172636173140%_ - _%e172637173143%_ - _%hd172638173146%_ - _%tl172639173148%_ - _%e172640173151%_ - _%hd172641173154%_ - _%tl172642173156%_) - (_%__match177331177332%_ - _%e172613173079%_ - _%hd172614173082%_ - _%tl172615173084%_ - _%e172616173087%_ - _%hd172617173090%_ - _%tl172618173092%_ - _%e172619173095%_ - _%hd172620173098%_ - _%tl172621173100%_ - _%e172622173103%_ - _%hd172623173106%_ - _%tl172624173108%_ - _%e172625173111%_ - _%hd172626173114%_ - _%tl172627173116%_ - _%e172628173119%_ - _%hd172629173122%_ - _%tl172630173124%_ - _%e172631173127%_ - _%hd172632173130%_ - _%tl172633173132%_ - _%e172634173135%_ - _%hd172635173138%_ - _%tl172636173140%_ - _%e172637173143%_ - _%hd172638173146%_ - _%tl172639173148%_ - _%e172640173151%_ - _%hd172641173154%_ - _%tl172642173156%_)) - (_%__match177455177456%_ - _%e172613173079%_ - _%hd172614173082%_ - _%tl172615173084%_ - _%e172616173087%_ - _%hd172617173090%_ - _%tl172618173092%_ - _%e172619173095%_ - _%hd172620173098%_ - _%tl172621173100%_ - _%e172622173103%_ - _%hd172623173106%_ - _%tl172624173108%_ - _%e172625173111%_ - _%hd172626173114%_ - _%tl172627173116%_ - _%e172628173119%_ - _%hd172629173122%_ - _%tl172630173124%_ - _%e172631173127%_ - _%hd172632173130%_ - _%tl172633173132%_ - _%e172634173135%_ - _%hd172635173138%_ - _%tl172636173140%_)))) - (_%__match177455177456%_ - _%e172613173079%_ - _%hd172614173082%_ - _%tl172615173084%_ - _%e172616173087%_ - _%hd172617173090%_ - _%tl172618173092%_ - _%e172619173095%_ - _%hd172620173098%_ - _%tl172621173100%_ - _%e172622173103%_ - _%hd172623173106%_ - _%tl172624173108%_ - _%e172625173111%_ - _%hd172626173114%_ - _%tl172627173116%_ - _%e172628173119%_ - _%hd172629173122%_ - _%tl172630173124%_ - _%e172631173127%_ - _%hd172632173130%_ - _%tl172633173132%_ - _%e172634173135%_ - _%hd172635173138%_ - _%tl172636173140%_)) - (_%__match177455177456%_ - _%e172613173079%_ - _%hd172614173082%_ - _%tl172615173084%_ - _%e172616173087%_ - _%hd172617173090%_ - _%tl172618173092%_ - _%e172619173095%_ - _%hd172620173098%_ - _%tl172621173100%_ - _%e172622173103%_ - _%hd172623173106%_ - _%tl172624173108%_ - _%e172625173111%_ - _%hd172626173114%_ - _%tl172627173116%_ - _%e172628173119%_ - _%hd172629173122%_ - _%tl172630173124%_ - _%e172631173127%_ - _%hd172632173130%_ - _%tl172633173132%_ - _%e172634173135%_ - _%hd172635173138%_ - _%tl172636173140%_)))) - (_%__match177173177174%_ - (lambda (_%e172562173198%_ - _%hd172563173201%_ - _%tl172564173203%_ - _%e172565173206%_ - _%hd172566173209%_ - _%tl172567173211%_ - _%e172568173214%_ - _%hd172569173217%_ - _%tl172570173219%_ - _%e172571173222%_ - _%hd172572173225%_ - _%tl172573173227%_ - _%e172574173230%_ - _%hd172575173233%_ - _%tl172576173235%_ - _%e172577173238%_ - _%hd172578173241%_ - _%tl172579173243%_ - _%e172580173246%_ - _%hd172581173249%_ - _%tl172582173251%_ - _%e172583173254%_ - _%hd172584173257%_ - _%tl172585173259%_ - _%e172586173262%_ - _%hd172587173265%_ - _%tl172588173267%_ - _%e172589173270%_ - _%hd172590173273%_ - _%tl172591173275%_ - _%e172592173278%_ - _%hd172593173281%_ - _%tl172594173283%_ - _%e172595173286%_ - _%hd172596173289%_ - _%tl172597173291%_ - _%e172598173294%_ - _%hd172599173297%_ - _%tl172600173299%_ - _%__splice176966176967%_ - _%target172601173302%_ - _%tl172603173304%_) - (letrec ((_%loop172604173307%_ - (lambda (_%hd172602173310%_ - _%args172608173312%_) + (gx#stx-null? _%tl172673173177%_)) + (_%__match177290177291%_ + _%e172650173116%_ + _%hd172651173119%_ + _%tl172652173121%_ + _%e172653173124%_ + _%hd172654173127%_ + _%tl172655173129%_ + _%e172656173132%_ + _%hd172657173135%_ + _%tl172658173137%_ + _%e172659173140%_ + _%hd172660173143%_ + _%tl172661173145%_ + _%e172662173148%_ + _%hd172663173151%_ + _%tl172664173153%_ + _%e172665173156%_ + _%hd172666173159%_ + _%tl172667173161%_ + _%e172668173164%_ + _%hd172669173167%_ + _%tl172670173169%_ + _%e172671173172%_ + _%hd172672173175%_ + _%tl172673173177%_ + _%e172674173180%_ + _%hd172675173183%_ + _%tl172676173185%_ + _%e172677173188%_ + _%hd172678173191%_ + _%tl172679173193%_) + (_%__match177368177369%_ + _%e172650173116%_ + _%hd172651173119%_ + _%tl172652173121%_ + _%e172653173124%_ + _%hd172654173127%_ + _%tl172655173129%_ + _%e172656173132%_ + _%hd172657173135%_ + _%tl172658173137%_ + _%e172659173140%_ + _%hd172660173143%_ + _%tl172661173145%_ + _%e172662173148%_ + _%hd172663173151%_ + _%tl172664173153%_ + _%e172665173156%_ + _%hd172666173159%_ + _%tl172667173161%_ + _%e172668173164%_ + _%hd172669173167%_ + _%tl172670173169%_ + _%e172671173172%_ + _%hd172672173175%_ + _%tl172673173177%_ + _%e172674173180%_ + _%hd172675173183%_ + _%tl172676173185%_ + _%e172677173188%_ + _%hd172678173191%_ + _%tl172679173193%_)) + (_%__match177492177493%_ + _%e172650173116%_ + _%hd172651173119%_ + _%tl172652173121%_ + _%e172653173124%_ + _%hd172654173127%_ + _%tl172655173129%_ + _%e172656173132%_ + _%hd172657173135%_ + _%tl172658173137%_ + _%e172659173140%_ + _%hd172660173143%_ + _%tl172661173145%_ + _%e172662173148%_ + _%hd172663173151%_ + _%tl172664173153%_ + _%e172665173156%_ + _%hd172666173159%_ + _%tl172667173161%_ + _%e172668173164%_ + _%hd172669173167%_ + _%tl172670173169%_ + _%e172671173172%_ + _%hd172672173175%_ + _%tl172673173177%_)))) + (_%__match177492177493%_ + _%e172650173116%_ + _%hd172651173119%_ + _%tl172652173121%_ + _%e172653173124%_ + _%hd172654173127%_ + _%tl172655173129%_ + _%e172656173132%_ + _%hd172657173135%_ + _%tl172658173137%_ + _%e172659173140%_ + _%hd172660173143%_ + _%tl172661173145%_ + _%e172662173148%_ + _%hd172663173151%_ + _%tl172664173153%_ + _%e172665173156%_ + _%hd172666173159%_ + _%tl172667173161%_ + _%e172668173164%_ + _%hd172669173167%_ + _%tl172670173169%_ + _%e172671173172%_ + _%hd172672173175%_ + _%tl172673173177%_)) + (_%__match177492177493%_ + _%e172650173116%_ + _%hd172651173119%_ + _%tl172652173121%_ + _%e172653173124%_ + _%hd172654173127%_ + _%tl172655173129%_ + _%e172656173132%_ + _%hd172657173135%_ + _%tl172658173137%_ + _%e172659173140%_ + _%hd172660173143%_ + _%tl172661173145%_ + _%e172662173148%_ + _%hd172663173151%_ + _%tl172664173153%_ + _%e172665173156%_ + _%hd172666173159%_ + _%tl172667173161%_ + _%e172668173164%_ + _%hd172669173167%_ + _%tl172670173169%_ + _%e172671173172%_ + _%hd172672173175%_ + _%tl172673173177%_)))) + (_%__match177210177211%_ + (lambda (_%e172599173235%_ + _%hd172600173238%_ + _%tl172601173240%_ + _%e172602173243%_ + _%hd172603173246%_ + _%tl172604173248%_ + _%e172605173251%_ + _%hd172606173254%_ + _%tl172607173256%_ + _%e172608173259%_ + _%hd172609173262%_ + _%tl172610173264%_ + _%e172611173267%_ + _%hd172612173270%_ + _%tl172613173272%_ + _%e172614173275%_ + _%hd172615173278%_ + _%tl172616173280%_ + _%e172617173283%_ + _%hd172618173286%_ + _%tl172619173288%_ + _%e172620173291%_ + _%hd172621173294%_ + _%tl172622173296%_ + _%e172623173299%_ + _%hd172624173302%_ + _%tl172625173304%_ + _%e172626173307%_ + _%hd172627173310%_ + _%tl172628173312%_ + _%e172629173315%_ + _%hd172630173318%_ + _%tl172631173320%_ + _%e172632173323%_ + _%hd172633173326%_ + _%tl172634173328%_ + _%e172635173331%_ + _%hd172636173334%_ + _%tl172637173336%_ + _%__splice177003177004%_ + _%target172638173339%_ + _%tl172640173341%_) + (letrec ((_%loop172641173344%_ + (lambda (_%hd172639173347%_ + _%args172645173349%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172602173310%_)) - (let ((_%e172605173315%_ + (gx#stx-pair? _%hd172639173347%_)) + (let ((_%e172642173352%_ (let () (declare (not safe)) - (gx#stx-e _%hd172602173310%_)))) - (let ((_%lp-tl172607173320%_ + (gx#stx-e _%hd172639173347%_)))) + (let ((_%lp-tl172644173357%_ (let () (declare (not safe)) - (##cdr _%e172605173315%_))) - (_%lp-hd172606173318%_ + (##cdr _%e172642173352%_))) + (_%lp-hd172643173355%_ (let () (declare (not safe)) - (##car _%e172605173315%_)))) - (_%loop172604173307%_ - _%lp-tl172607173320%_ - (cons _%lp-hd172606173318%_ - _%args172608173312%_)))) - (let ((_%args172609173323%_ - (reverse _%args172608173312%_))) - (let ((_%L173326%_ - _%args172609173323%_) - (_%L173327%_ _%hd172599173297%_) - (_%L173328%_ _%hd172590173273%_) - (_%L173329%_ _%hd172581173249%_) - (_%L173330%_ _%hd172572173225%_)) + (##car _%e172642173352%_)))) + (_%loop172641173344%_ + _%lp-tl172644173357%_ + (cons _%lp-hd172643173355%_ + _%args172645173349%_)))) + (let ((_%args172646173360%_ + (reverse _%args172645173349%_))) + (let ((_%L173363%_ + _%args172646173360%_) + (_%L173364%_ _%hd172636173334%_) + (_%L173365%_ _%hd172627173310%_) + (_%L173366%_ _%hd172618173286%_) + (_%L173367%_ _%hd172609173262%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173330%_ + _%L173367%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173329%_ + _%L173366%_ 'call-method)) - (let ((__tmp178088 + (let ((__tmp178125 (let () (declare (not safe)) (slot-ref__0 - _%self172503%_ + _%self172540%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173328%_ - __tmp178088))) - (_%__kont176964176965%_ - _%L173326%_ - _%L173327%_ - _%L173328%_ - _%L173329%_ - _%L173330%_) - (_%__kont176976176977%_)))))))) - (_%loop172604173307%_ _%target172601173302%_ '())))) - (_%__match177131177132%_ - (lambda (_%e172562173198%_ - _%hd172563173201%_ - _%tl172564173203%_ - _%e172565173206%_ - _%hd172566173209%_ - _%tl172567173211%_ - _%e172568173214%_ - _%hd172569173217%_ - _%tl172570173219%_ - _%e172571173222%_ - _%hd172572173225%_ - _%tl172573173227%_ - _%e172574173230%_ - _%hd172575173233%_ - _%tl172576173235%_ - _%e172577173238%_ - _%hd172578173241%_ - _%tl172579173243%_ - _%e172580173246%_ - _%hd172581173249%_ - _%tl172582173251%_ - _%e172583173254%_ - _%hd172584173257%_ - _%tl172585173259%_ - _%e172586173262%_ - _%hd172587173265%_ - _%tl172588173267%_) + _%L173365%_ + __tmp178125))) + (_%__kont177001177002%_ + _%L173363%_ + _%L173364%_ + _%L173365%_ + _%L173366%_ + _%L173367%_) + (_%__kont177013177014%_)))))))) + (_%loop172641173344%_ _%target172638173339%_ '())))) + (_%__match177168177169%_ + (lambda (_%e172599173235%_ + _%hd172600173238%_ + _%tl172601173240%_ + _%e172602173243%_ + _%hd172603173246%_ + _%tl172604173248%_ + _%e172605173251%_ + _%hd172606173254%_ + _%tl172607173256%_ + _%e172608173259%_ + _%hd172609173262%_ + _%tl172610173264%_ + _%e172611173267%_ + _%hd172612173270%_ + _%tl172613173272%_ + _%e172614173275%_ + _%hd172615173278%_ + _%tl172616173280%_ + _%e172617173283%_ + _%hd172618173286%_ + _%tl172619173288%_ + _%e172620173291%_ + _%hd172621173294%_ + _%tl172622173296%_ + _%e172623173299%_ + _%hd172624173302%_ + _%tl172625173304%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd172587173265%_)) + (gx#stx-eq? '%#ref _%hd172624173302%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172588173267%_)) - (let ((_%e172589173270%_ + (gx#stx-pair? _%tl172625173304%_)) + (let ((_%e172626173307%_ (let () (declare (not safe)) - (gx#stx-e _%tl172588173267%_)))) - (let ((_%tl172591173275%_ + (gx#stx-e _%tl172625173304%_)))) + (let ((_%tl172628173312%_ (let () (declare (not safe)) - (##cdr _%e172589173270%_))) - (_%hd172590173273%_ + (##cdr _%e172626173307%_))) + (_%hd172627173310%_ (let () (declare (not safe)) - (##car _%e172589173270%_)))) + (##car _%e172626173307%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172591173275%_)) + (gx#stx-null? _%tl172628173312%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172585173259%_)) - (let ((_%e172592173278%_ + (gx#stx-pair? _%tl172622173296%_)) + (let ((_%e172629173315%_ (let () (declare (not safe)) (gx#stx-e - _%tl172585173259%_)))) - (let ((_%tl172594173283%_ + _%tl172622173296%_)))) + (let ((_%tl172631173320%_ (let () (declare (not safe)) - (##cdr _%e172592173278%_))) - (_%hd172593173281%_ + (##cdr _%e172629173315%_))) + (_%hd172630173318%_ (let () (declare (not safe)) - (##car _%e172592173278%_)))) + (##car _%e172629173315%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd172593173281%_)) - (let ((_%e172595173286%_ + _%hd172630173318%_)) + (let ((_%e172632173323%_ (let () (declare (not safe)) (gx#stx-e - _%hd172593173281%_)))) - (let ((_%tl172597173291%_ + _%hd172630173318%_)))) + (let ((_%tl172634173328%_ (let () (declare (not safe)) - (##cdr _%e172595173286%_))) - (_%hd172596173289%_ + (##cdr _%e172632173323%_))) + (_%hd172633173326%_ (let () (declare (not safe)) - (##car _%e172595173286%_)))) + (##car _%e172632173323%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd172596173289%_)) + _%hd172633173326%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd172596173289%_)) + (gx#stx-eq? '%#quote _%hd172633173326%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172597173291%_)) - (let ((_%e172598173294%_ + (gx#stx-pair? _%tl172634173328%_)) + (let ((_%e172635173331%_ (let () (declare (not safe)) - (gx#stx-e _%tl172597173291%_)))) - (let ((_%tl172600173299%_ + (gx#stx-e _%tl172634173328%_)))) + (let ((_%tl172637173336%_ (let () (declare (not safe)) - (##cdr _%e172598173294%_))) - (_%hd172599173297%_ + (##cdr _%e172635173331%_))) + (_%hd172636173334%_ (let () (declare (not safe)) - (##car _%e172598173294%_)))) + (##car _%e172635173331%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172600173299%_)) + (gx#stx-null? _%tl172637173336%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl172594173283%_)) - (let ((_%__splice176966176967%_ + (gx#stx-pair/null? _%tl172631173320%_)) + (let ((_%__splice177003177004%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl172594173283%_ + _%tl172631173320%_ '0)))) - (let ((_%tl172603173304%_ + (let ((_%tl172640173341%_ (let () (declare (not safe)) (##vector-ref - _%__splice176966176967%_ + _%__splice177003177004%_ '1))) - (_%target172601173302%_ + (_%target172638173339%_ (let () (declare (not safe)) (##vector-ref - _%__splice176966176967%_ + _%__splice177003177004%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172603173304%_)) - (_%__match177173177174%_ - _%e172562173198%_ - _%hd172563173201%_ - _%tl172564173203%_ - _%e172565173206%_ - _%hd172566173209%_ - _%tl172567173211%_ - _%e172568173214%_ - _%hd172569173217%_ - _%tl172570173219%_ - _%e172571173222%_ - _%hd172572173225%_ - _%tl172573173227%_ - _%e172574173230%_ - _%hd172575173233%_ - _%tl172576173235%_ - _%e172577173238%_ - _%hd172578173241%_ - _%tl172579173243%_ - _%e172580173246%_ - _%hd172581173249%_ - _%tl172582173251%_ - _%e172583173254%_ - _%hd172584173257%_ - _%tl172585173259%_ - _%e172586173262%_ - _%hd172587173265%_ - _%tl172588173267%_ - _%e172589173270%_ - _%hd172590173273%_ - _%tl172591173275%_ - _%e172592173278%_ - _%hd172593173281%_ - _%tl172594173283%_ - _%e172595173286%_ - _%hd172596173289%_ - _%tl172597173291%_ - _%e172598173294%_ - _%hd172599173297%_ - _%tl172600173299%_ - _%__splice176966176967%_ - _%target172601173302%_ - _%tl172603173304%_) - (_%__kont176976176977%_)))) - (_%__kont176976176977%_)) - (_%__kont176976176977%_)))) - (_%__kont176976176977%_)) - (_%__kont176976176977%_)) - (_%__kont176976176977%_)))) + _%tl172640173341%_)) + (_%__match177210177211%_ + _%e172599173235%_ + _%hd172600173238%_ + _%tl172601173240%_ + _%e172602173243%_ + _%hd172603173246%_ + _%tl172604173248%_ + _%e172605173251%_ + _%hd172606173254%_ + _%tl172607173256%_ + _%e172608173259%_ + _%hd172609173262%_ + _%tl172610173264%_ + _%e172611173267%_ + _%hd172612173270%_ + _%tl172613173272%_ + _%e172614173275%_ + _%hd172615173278%_ + _%tl172616173280%_ + _%e172617173283%_ + _%hd172618173286%_ + _%tl172619173288%_ + _%e172620173291%_ + _%hd172621173294%_ + _%tl172622173296%_ + _%e172623173299%_ + _%hd172624173302%_ + _%tl172625173304%_ + _%e172626173307%_ + _%hd172627173310%_ + _%tl172628173312%_ + _%e172629173315%_ + _%hd172630173318%_ + _%tl172631173320%_ + _%e172632173323%_ + _%hd172633173326%_ + _%tl172634173328%_ + _%e172635173331%_ + _%hd172636173334%_ + _%tl172637173336%_ + _%__splice177003177004%_ + _%target172638173339%_ + _%tl172640173341%_) + (_%__kont177013177014%_)))) + (_%__kont177013177014%_)) + (_%__kont177013177014%_)))) + (_%__kont177013177014%_)) + (_%__kont177013177014%_)) + (_%__kont177013177014%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176976176977%_)))) - (_%__match177455177456%_ - _%e172562173198%_ - _%hd172563173201%_ - _%tl172564173203%_ - _%e172565173206%_ - _%hd172566173209%_ - _%tl172567173211%_ - _%e172568173214%_ - _%hd172569173217%_ - _%tl172570173219%_ - _%e172571173222%_ - _%hd172572173225%_ - _%tl172573173227%_ - _%e172574173230%_ - _%hd172575173233%_ - _%tl172576173235%_ - _%e172577173238%_ - _%hd172578173241%_ - _%tl172579173243%_ - _%e172580173246%_ - _%hd172581173249%_ - _%tl172582173251%_ - _%e172583173254%_ - _%hd172584173257%_ - _%tl172585173259%_)) - (_%__match177455177456%_ - _%e172562173198%_ - _%hd172563173201%_ - _%tl172564173203%_ - _%e172565173206%_ - _%hd172566173209%_ - _%tl172567173211%_ - _%e172568173214%_ - _%hd172569173217%_ - _%tl172570173219%_ - _%e172571173222%_ - _%hd172572173225%_ - _%tl172573173227%_ - _%e172574173230%_ - _%hd172575173233%_ - _%tl172576173235%_ - _%e172577173238%_ - _%hd172578173241%_ - _%tl172579173243%_ - _%e172580173246%_ - _%hd172581173249%_ - _%tl172582173251%_ - _%e172583173254%_ - _%hd172584173257%_ - _%tl172585173259%_)))) - (_%__match177455177456%_ - _%e172562173198%_ - _%hd172563173201%_ - _%tl172564173203%_ - _%e172565173206%_ - _%hd172566173209%_ - _%tl172567173211%_ - _%e172568173214%_ - _%hd172569173217%_ - _%tl172570173219%_ - _%e172571173222%_ - _%hd172572173225%_ - _%tl172573173227%_ - _%e172574173230%_ - _%hd172575173233%_ - _%tl172576173235%_ - _%e172577173238%_ - _%hd172578173241%_ - _%tl172579173243%_ - _%e172580173246%_ - _%hd172581173249%_ - _%tl172582173251%_ - _%e172583173254%_ - _%hd172584173257%_ - _%tl172585173259%_)) - (_%__match177241177242%_ - _%e172562173198%_ - _%hd172563173201%_ - _%tl172564173203%_ - _%e172565173206%_ - _%hd172566173209%_ - _%tl172567173211%_ - _%e172568173214%_ - _%hd172569173217%_ - _%tl172570173219%_ - _%e172571173222%_ - _%hd172572173225%_ - _%tl172573173227%_ - _%e172574173230%_ - _%hd172575173233%_ - _%tl172576173235%_ - _%e172577173238%_ - _%hd172578173241%_ - _%tl172579173243%_ - _%e172580173246%_ - _%hd172581173249%_ - _%tl172582173251%_ - _%e172583173254%_ - _%hd172584173257%_ - _%tl172585173259%_ - _%e172586173262%_ - _%hd172587173265%_ - _%tl172588173267%_)))) - (_%__match177063177064%_ - (lambda (_%e172518173387%_ - _%hd172519173390%_ - _%tl172520173392%_ - _%e172521173395%_ - _%hd172522173398%_ - _%tl172523173400%_ - _%e172524173403%_ - _%hd172525173406%_ - _%tl172526173408%_ - _%e172527173411%_ - _%hd172528173414%_ - _%tl172529173416%_ - _%e172530173419%_ - _%hd172531173422%_ - _%tl172532173424%_ - _%e172533173427%_ - _%hd172534173430%_ - _%tl172535173432%_ - _%e172536173435%_ - _%hd172537173438%_ - _%tl172538173440%_ - _%e172539173443%_ - _%hd172540173446%_ - _%tl172541173448%_ - _%e172542173451%_ - _%hd172543173454%_ - _%tl172544173456%_ - _%e172545173459%_ - _%hd172546173462%_ - _%tl172547173464%_ - _%__splice176962176963%_ - _%target172548173467%_ - _%tl172550173469%_) - (letrec ((_%loop172551173472%_ - (lambda (_%hd172549173475%_ - _%args172555173477%_) + (_%__kont177013177014%_)))) + (_%__match177492177493%_ + _%e172599173235%_ + _%hd172600173238%_ + _%tl172601173240%_ + _%e172602173243%_ + _%hd172603173246%_ + _%tl172604173248%_ + _%e172605173251%_ + _%hd172606173254%_ + _%tl172607173256%_ + _%e172608173259%_ + _%hd172609173262%_ + _%tl172610173264%_ + _%e172611173267%_ + _%hd172612173270%_ + _%tl172613173272%_ + _%e172614173275%_ + _%hd172615173278%_ + _%tl172616173280%_ + _%e172617173283%_ + _%hd172618173286%_ + _%tl172619173288%_ + _%e172620173291%_ + _%hd172621173294%_ + _%tl172622173296%_)) + (_%__match177492177493%_ + _%e172599173235%_ + _%hd172600173238%_ + _%tl172601173240%_ + _%e172602173243%_ + _%hd172603173246%_ + _%tl172604173248%_ + _%e172605173251%_ + _%hd172606173254%_ + _%tl172607173256%_ + _%e172608173259%_ + _%hd172609173262%_ + _%tl172610173264%_ + _%e172611173267%_ + _%hd172612173270%_ + _%tl172613173272%_ + _%e172614173275%_ + _%hd172615173278%_ + _%tl172616173280%_ + _%e172617173283%_ + _%hd172618173286%_ + _%tl172619173288%_ + _%e172620173291%_ + _%hd172621173294%_ + _%tl172622173296%_)))) + (_%__match177492177493%_ + _%e172599173235%_ + _%hd172600173238%_ + _%tl172601173240%_ + _%e172602173243%_ + _%hd172603173246%_ + _%tl172604173248%_ + _%e172605173251%_ + _%hd172606173254%_ + _%tl172607173256%_ + _%e172608173259%_ + _%hd172609173262%_ + _%tl172610173264%_ + _%e172611173267%_ + _%hd172612173270%_ + _%tl172613173272%_ + _%e172614173275%_ + _%hd172615173278%_ + _%tl172616173280%_ + _%e172617173283%_ + _%hd172618173286%_ + _%tl172619173288%_ + _%e172620173291%_ + _%hd172621173294%_ + _%tl172622173296%_)) + (_%__match177278177279%_ + _%e172599173235%_ + _%hd172600173238%_ + _%tl172601173240%_ + _%e172602173243%_ + _%hd172603173246%_ + _%tl172604173248%_ + _%e172605173251%_ + _%hd172606173254%_ + _%tl172607173256%_ + _%e172608173259%_ + _%hd172609173262%_ + _%tl172610173264%_ + _%e172611173267%_ + _%hd172612173270%_ + _%tl172613173272%_ + _%e172614173275%_ + _%hd172615173278%_ + _%tl172616173280%_ + _%e172617173283%_ + _%hd172618173286%_ + _%tl172619173288%_ + _%e172620173291%_ + _%hd172621173294%_ + _%tl172622173296%_ + _%e172623173299%_ + _%hd172624173302%_ + _%tl172625173304%_)))) + (_%__match177100177101%_ + (lambda (_%e172555173424%_ + _%hd172556173427%_ + _%tl172557173429%_ + _%e172558173432%_ + _%hd172559173435%_ + _%tl172560173437%_ + _%e172561173440%_ + _%hd172562173443%_ + _%tl172563173445%_ + _%e172564173448%_ + _%hd172565173451%_ + _%tl172566173453%_ + _%e172567173456%_ + _%hd172568173459%_ + _%tl172569173461%_ + _%e172570173464%_ + _%hd172571173467%_ + _%tl172572173469%_ + _%e172573173472%_ + _%hd172574173475%_ + _%tl172575173477%_ + _%e172576173480%_ + _%hd172577173483%_ + _%tl172578173485%_ + _%e172579173488%_ + _%hd172580173491%_ + _%tl172581173493%_ + _%e172582173496%_ + _%hd172583173499%_ + _%tl172584173501%_ + _%__splice176999177000%_ + _%target172585173504%_ + _%tl172587173506%_) + (letrec ((_%loop172588173509%_ + (lambda (_%hd172586173512%_ + _%args172592173514%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172549173475%_)) - (let ((_%e172552173480%_ + (gx#stx-pair? _%hd172586173512%_)) + (let ((_%e172589173517%_ (let () (declare (not safe)) - (gx#stx-e _%hd172549173475%_)))) - (let ((_%lp-tl172554173485%_ + (gx#stx-e _%hd172586173512%_)))) + (let ((_%lp-tl172591173522%_ (let () (declare (not safe)) - (##cdr _%e172552173480%_))) - (_%lp-hd172553173483%_ + (##cdr _%e172589173517%_))) + (_%lp-hd172590173520%_ (let () (declare (not safe)) - (##car _%e172552173480%_)))) - (_%loop172551173472%_ - _%lp-tl172554173485%_ - (cons _%lp-hd172553173483%_ - _%args172555173477%_)))) - (let ((_%args172556173488%_ - (reverse _%args172555173477%_))) - (let ((_%L173491%_ - _%args172556173488%_) - (_%L173492%_ _%hd172546173462%_) - (_%L173493%_ _%hd172537173438%_) - (_%L173494%_ _%hd172528173414%_)) + (##car _%e172589173517%_)))) + (_%loop172588173509%_ + _%lp-tl172591173522%_ + (cons _%lp-hd172590173520%_ + _%args172592173514%_)))) + (let ((_%args172593173525%_ + (reverse _%args172592173514%_))) + (let ((_%L173528%_ + _%args172593173525%_) + (_%L173529%_ _%hd172583173499%_) + (_%L173530%_ _%hd172574173475%_) + (_%L173531%_ _%hd172565173451%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173494%_ + _%L173531%_ 'call-method)) - (let ((__tmp178089 + (let ((__tmp178126 (let () (declare (not safe)) (slot-ref__0 - _%self172503%_ + _%self172540%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173493%_ - __tmp178089))) - (_%__kont176960176961%_ - _%L173491%_ - _%L173492%_ - _%L173493%_ - _%L173494%_) - (_%__match177251177252%_ - _%e172518173387%_ - _%hd172519173390%_ - _%tl172520173392%_ - _%e172521173395%_ - _%hd172522173398%_ - _%tl172523173400%_ - _%e172524173403%_ - _%hd172525173406%_ - _%tl172526173408%_ - _%e172527173411%_ - _%hd172528173414%_ - _%tl172529173416%_ - _%e172530173419%_ - _%hd172531173422%_ - _%tl172532173424%_ - _%e172533173427%_ - _%hd172534173430%_ - _%tl172535173432%_ - _%e172536173435%_ - _%hd172537173438%_ - _%tl172538173440%_ - _%e172539173443%_ - _%hd172540173446%_ - _%tl172541173448%_ - _%e172542173451%_ - _%hd172543173454%_ - _%tl172544173456%_ - _%e172545173459%_ - _%hd172546173462%_ - _%tl172547173464%_)))))))) - (_%loop172551173472%_ _%target172548173467%_ '()))))) + _%L173530%_ + __tmp178126))) + (_%__kont176997176998%_ + _%L173528%_ + _%L173529%_ + _%L173530%_ + _%L173531%_) + (_%__match177288177289%_ + _%e172555173424%_ + _%hd172556173427%_ + _%tl172557173429%_ + _%e172558173432%_ + _%hd172559173435%_ + _%tl172560173437%_ + _%e172561173440%_ + _%hd172562173443%_ + _%tl172563173445%_ + _%e172564173448%_ + _%hd172565173451%_ + _%tl172566173453%_ + _%e172567173456%_ + _%hd172568173459%_ + _%tl172569173461%_ + _%e172570173464%_ + _%hd172571173467%_ + _%tl172572173469%_ + _%e172573173472%_ + _%hd172574173475%_ + _%tl172575173477%_ + _%e172576173480%_ + _%hd172577173483%_ + _%tl172578173485%_ + _%e172579173488%_ + _%hd172580173491%_ + _%tl172581173493%_ + _%e172582173496%_ + _%hd172583173499%_ + _%tl172584173501%_)))))))) + (_%loop172588173509%_ _%target172585173504%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176958176959%_)) - (let ((_%e172518173387%_ + (gx#stx-pair? _%__stx176995176996%_)) + (let ((_%e172555173424%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176958176959%_)))) - (let ((_%tl172520173392%_ + (gx#stx-e _%__stx176995176996%_)))) + (let ((_%tl172557173429%_ (let () (declare (not safe)) - (##cdr _%e172518173387%_))) - (_%hd172519173390%_ + (##cdr _%e172555173424%_))) + (_%hd172556173427%_ (let () (declare (not safe)) - (##car _%e172518173387%_)))) + (##car _%e172555173424%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172520173392%_)) - (let ((_%e172521173395%_ + (gx#stx-pair? _%tl172557173429%_)) + (let ((_%e172558173432%_ (let () (declare (not safe)) - (gx#stx-e _%tl172520173392%_)))) - (let ((_%tl172523173400%_ + (gx#stx-e _%tl172557173429%_)))) + (let ((_%tl172560173437%_ (let () (declare (not safe)) - (##cdr _%e172521173395%_))) - (_%hd172522173398%_ + (##cdr _%e172558173432%_))) + (_%hd172559173435%_ (let () (declare (not safe)) - (##car _%e172521173395%_)))) + (##car _%e172558173432%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172522173398%_)) - (let ((_%e172524173403%_ + (gx#stx-pair? _%hd172559173435%_)) + (let ((_%e172561173440%_ (let () (declare (not safe)) - (gx#stx-e _%hd172522173398%_)))) - (let ((_%tl172526173408%_ + (gx#stx-e _%hd172559173435%_)))) + (let ((_%tl172563173445%_ (let () (declare (not safe)) - (##cdr _%e172524173403%_))) - (_%hd172525173406%_ + (##cdr _%e172561173440%_))) + (_%hd172562173443%_ (let () (declare (not safe)) - (##car _%e172524173403%_)))) + (##car _%e172561173440%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd172525173406%_)) + _%hd172562173443%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd172525173406%_)) + _%hd172562173443%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172526173408%_)) - (let ((_%e172527173411%_ + _%tl172563173445%_)) + (let ((_%e172564173448%_ (let () (declare (not safe)) (gx#stx-e - _%tl172526173408%_)))) - (let ((_%tl172529173416%_ + _%tl172563173445%_)))) + (let ((_%tl172566173453%_ (let () (declare (not safe)) - (##cdr _%e172527173411%_))) - (_%hd172528173414%_ + (##cdr _%e172564173448%_))) + (_%hd172565173451%_ (let () (declare (not safe)) - (##car _%e172527173411%_)))) + (##car _%e172564173448%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172529173416%_)) + _%tl172566173453%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl172523173400%_)) - (let ((_%e172530173419%_ + (gx#stx-pair? _%tl172560173437%_)) + (let ((_%e172567173456%_ (let () (declare (not safe)) - (gx#stx-e _%tl172523173400%_)))) - (let ((_%tl172532173424%_ + (gx#stx-e _%tl172560173437%_)))) + (let ((_%tl172569173461%_ (let () (declare (not safe)) - (##cdr _%e172530173419%_))) - (_%hd172531173422%_ + (##cdr _%e172567173456%_))) + (_%hd172568173459%_ (let () (declare (not safe)) - (##car _%e172530173419%_)))) + (##car _%e172567173456%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172531173422%_)) - (let ((_%e172533173427%_ + (gx#stx-pair? _%hd172568173459%_)) + (let ((_%e172570173464%_ (let () (declare (not safe)) - (gx#stx-e _%hd172531173422%_)))) - (let ((_%tl172535173432%_ + (gx#stx-e _%hd172568173459%_)))) + (let ((_%tl172572173469%_ (let () (declare (not safe)) - (##cdr _%e172533173427%_))) - (_%hd172534173430%_ + (##cdr _%e172570173464%_))) + (_%hd172571173467%_ (let () (declare (not safe)) - (##car _%e172533173427%_)))) + (##car _%e172570173464%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172534173430%_)) + (gx#identifier? _%hd172571173467%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd172534173430%_)) + _%hd172571173467%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172535173432%_)) - (let ((_%e172536173435%_ + _%tl172572173469%_)) + (let ((_%e172573173472%_ (let () (declare (not safe)) (gx#stx-e - _%tl172535173432%_)))) - (let ((_%tl172538173440%_ + _%tl172572173469%_)))) + (let ((_%tl172575173477%_ (let () (declare (not safe)) - (##cdr _%e172536173435%_))) - (_%hd172537173438%_ + (##cdr _%e172573173472%_))) + (_%hd172574173475%_ (let () (declare (not safe)) - (##car _%e172536173435%_)))) + (##car _%e172573173472%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172538173440%_)) + _%tl172575173477%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172532173424%_)) - (let ((_%e172539173443%_ + _%tl172569173461%_)) + (let ((_%e172576173480%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl172532173424%_)))) - (let ((_%tl172541173448%_ + (gx#stx-e _%tl172569173461%_)))) + (let ((_%tl172578173485%_ (let () (declare (not safe)) - (##cdr _%e172539173443%_))) - (_%hd172540173446%_ + (##cdr _%e172576173480%_))) + (_%hd172577173483%_ (let () (declare (not safe)) - (##car _%e172539173443%_)))) + (##car _%e172576173480%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172540173446%_)) - (let ((_%e172542173451%_ + (gx#stx-pair? _%hd172577173483%_)) + (let ((_%e172579173488%_ (let () (declare (not safe)) - (gx#stx-e _%hd172540173446%_)))) - (let ((_%tl172544173456%_ + (gx#stx-e _%hd172577173483%_)))) + (let ((_%tl172581173493%_ (let () (declare (not safe)) - (##cdr _%e172542173451%_))) - (_%hd172543173454%_ + (##cdr _%e172579173488%_))) + (_%hd172580173491%_ (let () (declare (not safe)) - (##car _%e172542173451%_)))) + (##car _%e172579173488%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172543173454%_)) + (gx#identifier? _%hd172580173491%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd172543173454%_)) + _%hd172580173491%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172544173456%_)) - (let ((_%e172545173459%_ + (gx#stx-pair? _%tl172581173493%_)) + (let ((_%e172582173496%_ (let () (declare (not safe)) (gx#stx-e - _%tl172544173456%_)))) - (let ((_%tl172547173464%_ + _%tl172581173493%_)))) + (let ((_%tl172584173501%_ (let () (declare (not safe)) - (##cdr _%e172545173459%_))) - (_%hd172546173462%_ + (##cdr _%e172582173496%_))) + (_%hd172583173499%_ (let () (declare (not safe)) - (##car _%e172545173459%_)))) + (##car _%e172582173496%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172547173464%_)) + _%tl172584173501%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl172541173448%_)) - (let ((_%__splice176962176963%_ + _%tl172578173485%_)) + (let ((_%__splice176999177000%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl172541173448%_ '0)))) - (let ((_%tl172550173469%_ + (gx#syntax-split-splice _%tl172578173485%_ '0)))) + (let ((_%tl172587173506%_ (let () (declare (not safe)) - (##vector-ref _%__splice176962176963%_ '1))) - (_%target172548173467%_ + (##vector-ref _%__splice176999177000%_ '1))) + (_%target172585173504%_ (let () (declare (not safe)) - (##vector-ref _%__splice176962176963%_ '0)))) + (##vector-ref _%__splice176999177000%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172550173469%_)) - (_%__match177063177064%_ - _%e172518173387%_ - _%hd172519173390%_ - _%tl172520173392%_ - _%e172521173395%_ - _%hd172522173398%_ - _%tl172523173400%_ - _%e172524173403%_ - _%hd172525173406%_ - _%tl172526173408%_ - _%e172527173411%_ - _%hd172528173414%_ - _%tl172529173416%_ - _%e172530173419%_ - _%hd172531173422%_ - _%tl172532173424%_ - _%e172533173427%_ - _%hd172534173430%_ - _%tl172535173432%_ - _%e172536173435%_ - _%hd172537173438%_ - _%tl172538173440%_ - _%e172539173443%_ - _%hd172540173446%_ - _%tl172541173448%_ - _%e172542173451%_ - _%hd172543173454%_ - _%tl172544173456%_ - _%e172545173459%_ - _%hd172546173462%_ - _%tl172547173464%_ - _%__splice176962176963%_ - _%target172548173467%_ - _%tl172550173469%_) - (_%__match177251177252%_ - _%e172518173387%_ - _%hd172519173390%_ - _%tl172520173392%_ - _%e172521173395%_ - _%hd172522173398%_ - _%tl172523173400%_ - _%e172524173403%_ - _%hd172525173406%_ - _%tl172526173408%_ - _%e172527173411%_ - _%hd172528173414%_ - _%tl172529173416%_ - _%e172530173419%_ - _%hd172531173422%_ - _%tl172532173424%_ - _%e172533173427%_ - _%hd172534173430%_ - _%tl172535173432%_ - _%e172536173435%_ - _%hd172537173438%_ - _%tl172538173440%_ - _%e172539173443%_ - _%hd172540173446%_ - _%tl172541173448%_ - _%e172542173451%_ - _%hd172543173454%_ - _%tl172544173456%_ - _%e172545173459%_ - _%hd172546173462%_ - _%tl172547173464%_)))) - (_%__match177251177252%_ - _%e172518173387%_ - _%hd172519173390%_ - _%tl172520173392%_ - _%e172521173395%_ - _%hd172522173398%_ - _%tl172523173400%_ - _%e172524173403%_ - _%hd172525173406%_ - _%tl172526173408%_ - _%e172527173411%_ - _%hd172528173414%_ - _%tl172529173416%_ - _%e172530173419%_ - _%hd172531173422%_ - _%tl172532173424%_ - _%e172533173427%_ - _%hd172534173430%_ - _%tl172535173432%_ - _%e172536173435%_ - _%hd172537173438%_ - _%tl172538173440%_ - _%e172539173443%_ - _%hd172540173446%_ - _%tl172541173448%_ - _%e172542173451%_ - _%hd172543173454%_ - _%tl172544173456%_ - _%e172545173459%_ - _%hd172546173462%_ - _%tl172547173464%_)) + (gx#stx-null? _%tl172587173506%_)) + (_%__match177100177101%_ + _%e172555173424%_ + _%hd172556173427%_ + _%tl172557173429%_ + _%e172558173432%_ + _%hd172559173435%_ + _%tl172560173437%_ + _%e172561173440%_ + _%hd172562173443%_ + _%tl172563173445%_ + _%e172564173448%_ + _%hd172565173451%_ + _%tl172566173453%_ + _%e172567173456%_ + _%hd172568173459%_ + _%tl172569173461%_ + _%e172570173464%_ + _%hd172571173467%_ + _%tl172572173469%_ + _%e172573173472%_ + _%hd172574173475%_ + _%tl172575173477%_ + _%e172576173480%_ + _%hd172577173483%_ + _%tl172578173485%_ + _%e172579173488%_ + _%hd172580173491%_ + _%tl172581173493%_ + _%e172582173496%_ + _%hd172583173499%_ + _%tl172584173501%_ + _%__splice176999177000%_ + _%target172585173504%_ + _%tl172587173506%_) + (_%__match177288177289%_ + _%e172555173424%_ + _%hd172556173427%_ + _%tl172557173429%_ + _%e172558173432%_ + _%hd172559173435%_ + _%tl172560173437%_ + _%e172561173440%_ + _%hd172562173443%_ + _%tl172563173445%_ + _%e172564173448%_ + _%hd172565173451%_ + _%tl172566173453%_ + _%e172567173456%_ + _%hd172568173459%_ + _%tl172569173461%_ + _%e172570173464%_ + _%hd172571173467%_ + _%tl172572173469%_ + _%e172573173472%_ + _%hd172574173475%_ + _%tl172575173477%_ + _%e172576173480%_ + _%hd172577173483%_ + _%tl172578173485%_ + _%e172579173488%_ + _%hd172580173491%_ + _%tl172581173493%_ + _%e172582173496%_ + _%hd172583173499%_ + _%tl172584173501%_)))) + (_%__match177288177289%_ + _%e172555173424%_ + _%hd172556173427%_ + _%tl172557173429%_ + _%e172558173432%_ + _%hd172559173435%_ + _%tl172560173437%_ + _%e172561173440%_ + _%hd172562173443%_ + _%tl172563173445%_ + _%e172564173448%_ + _%hd172565173451%_ + _%tl172566173453%_ + _%e172567173456%_ + _%hd172568173459%_ + _%tl172569173461%_ + _%e172570173464%_ + _%hd172571173467%_ + _%tl172572173469%_ + _%e172573173472%_ + _%hd172574173475%_ + _%tl172575173477%_ + _%e172576173480%_ + _%hd172577173483%_ + _%tl172578173485%_ + _%e172579173488%_ + _%hd172580173491%_ + _%tl172581173493%_ + _%e172582173496%_ + _%hd172583173499%_ + _%tl172584173501%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177455177456%_ - _%e172518173387%_ - _%hd172519173390%_ - _%tl172520173392%_ - _%e172521173395%_ - _%hd172522173398%_ - _%tl172523173400%_ - _%e172524173403%_ - _%hd172525173406%_ - _%tl172526173408%_ - _%e172527173411%_ - _%hd172528173414%_ - _%tl172529173416%_ - _%e172530173419%_ - _%hd172531173422%_ - _%tl172532173424%_ - _%e172533173427%_ - _%hd172534173430%_ - _%tl172535173432%_ - _%e172536173435%_ - _%hd172537173438%_ - _%tl172538173440%_ - _%e172539173443%_ - _%hd172540173446%_ - _%tl172541173448%_)))) - (_%__match177455177456%_ - _%e172518173387%_ - _%hd172519173390%_ - _%tl172520173392%_ - _%e172521173395%_ - _%hd172522173398%_ - _%tl172523173400%_ - _%e172524173403%_ - _%hd172525173406%_ - _%tl172526173408%_ - _%e172527173411%_ - _%hd172528173414%_ - _%tl172529173416%_ - _%e172530173419%_ - _%hd172531173422%_ - _%tl172532173424%_ - _%e172533173427%_ - _%hd172534173430%_ - _%tl172535173432%_ - _%e172536173435%_ - _%hd172537173438%_ - _%tl172538173440%_ - _%e172539173443%_ - _%hd172540173446%_ - _%tl172541173448%_)) - (_%__match177131177132%_ - _%e172518173387%_ - _%hd172519173390%_ - _%tl172520173392%_ - _%e172521173395%_ - _%hd172522173398%_ - _%tl172523173400%_ - _%e172524173403%_ - _%hd172525173406%_ - _%tl172526173408%_ - _%e172527173411%_ - _%hd172528173414%_ - _%tl172529173416%_ - _%e172530173419%_ - _%hd172531173422%_ - _%tl172532173424%_ - _%e172533173427%_ - _%hd172534173430%_ - _%tl172535173432%_ - _%e172536173435%_ - _%hd172537173438%_ - _%tl172538173440%_ - _%e172539173443%_ - _%hd172540173446%_ - _%tl172541173448%_ - _%e172542173451%_ - _%hd172543173454%_ - _%tl172544173456%_)) - (_%__match177455177456%_ - _%e172518173387%_ - _%hd172519173390%_ - _%tl172520173392%_ - _%e172521173395%_ - _%hd172522173398%_ - _%tl172523173400%_ - _%e172524173403%_ - _%hd172525173406%_ - _%tl172526173408%_ - _%e172527173411%_ - _%hd172528173414%_ - _%tl172529173416%_ - _%e172530173419%_ - _%hd172531173422%_ - _%tl172532173424%_ - _%e172533173427%_ - _%hd172534173430%_ - _%tl172535173432%_ - _%e172536173435%_ - _%hd172537173438%_ - _%tl172538173440%_ - _%e172539173443%_ - _%hd172540173446%_ - _%tl172541173448%_)))) - (_%__match177455177456%_ - _%e172518173387%_ - _%hd172519173390%_ - _%tl172520173392%_ - _%e172521173395%_ - _%hd172522173398%_ - _%tl172523173400%_ - _%e172524173403%_ - _%hd172525173406%_ - _%tl172526173408%_ - _%e172527173411%_ - _%hd172528173414%_ - _%tl172529173416%_ - _%e172530173419%_ - _%hd172531173422%_ - _%tl172532173424%_ - _%e172533173427%_ - _%hd172534173430%_ - _%tl172535173432%_ - _%e172536173435%_ - _%hd172537173438%_ - _%tl172538173440%_ - _%e172539173443%_ - _%hd172540173446%_ - _%tl172541173448%_)))) - (_%__match177393177394%_ - _%e172518173387%_ - _%hd172519173390%_ - _%tl172520173392%_ - _%e172521173395%_ - _%hd172522173398%_ - _%tl172523173400%_ - _%e172524173403%_ - _%hd172525173406%_ - _%tl172526173408%_ - _%e172527173411%_ - _%hd172528173414%_ - _%tl172529173416%_ - _%e172530173419%_ - _%hd172531173422%_ - _%tl172532173424%_ - _%e172533173427%_ - _%hd172534173430%_ - _%tl172535173432%_ - _%e172536173435%_ - _%hd172537173438%_ - _%tl172538173440%_)) - (_%__kont176976176977%_)))) + (_%__match177492177493%_ + _%e172555173424%_ + _%hd172556173427%_ + _%tl172557173429%_ + _%e172558173432%_ + _%hd172559173435%_ + _%tl172560173437%_ + _%e172561173440%_ + _%hd172562173443%_ + _%tl172563173445%_ + _%e172564173448%_ + _%hd172565173451%_ + _%tl172566173453%_ + _%e172567173456%_ + _%hd172568173459%_ + _%tl172569173461%_ + _%e172570173464%_ + _%hd172571173467%_ + _%tl172572173469%_ + _%e172573173472%_ + _%hd172574173475%_ + _%tl172575173477%_ + _%e172576173480%_ + _%hd172577173483%_ + _%tl172578173485%_)))) + (_%__match177492177493%_ + _%e172555173424%_ + _%hd172556173427%_ + _%tl172557173429%_ + _%e172558173432%_ + _%hd172559173435%_ + _%tl172560173437%_ + _%e172561173440%_ + _%hd172562173443%_ + _%tl172563173445%_ + _%e172564173448%_ + _%hd172565173451%_ + _%tl172566173453%_ + _%e172567173456%_ + _%hd172568173459%_ + _%tl172569173461%_ + _%e172570173464%_ + _%hd172571173467%_ + _%tl172572173469%_ + _%e172573173472%_ + _%hd172574173475%_ + _%tl172575173477%_ + _%e172576173480%_ + _%hd172577173483%_ + _%tl172578173485%_)) + (_%__match177168177169%_ + _%e172555173424%_ + _%hd172556173427%_ + _%tl172557173429%_ + _%e172558173432%_ + _%hd172559173435%_ + _%tl172560173437%_ + _%e172561173440%_ + _%hd172562173443%_ + _%tl172563173445%_ + _%e172564173448%_ + _%hd172565173451%_ + _%tl172566173453%_ + _%e172567173456%_ + _%hd172568173459%_ + _%tl172569173461%_ + _%e172570173464%_ + _%hd172571173467%_ + _%tl172572173469%_ + _%e172573173472%_ + _%hd172574173475%_ + _%tl172575173477%_ + _%e172576173480%_ + _%hd172577173483%_ + _%tl172578173485%_ + _%e172579173488%_ + _%hd172580173491%_ + _%tl172581173493%_)) + (_%__match177492177493%_ + _%e172555173424%_ + _%hd172556173427%_ + _%tl172557173429%_ + _%e172558173432%_ + _%hd172559173435%_ + _%tl172560173437%_ + _%e172561173440%_ + _%hd172562173443%_ + _%tl172563173445%_ + _%e172564173448%_ + _%hd172565173451%_ + _%tl172566173453%_ + _%e172567173456%_ + _%hd172568173459%_ + _%tl172569173461%_ + _%e172570173464%_ + _%hd172571173467%_ + _%tl172572173469%_ + _%e172573173472%_ + _%hd172574173475%_ + _%tl172575173477%_ + _%e172576173480%_ + _%hd172577173483%_ + _%tl172578173485%_)))) + (_%__match177492177493%_ + _%e172555173424%_ + _%hd172556173427%_ + _%tl172557173429%_ + _%e172558173432%_ + _%hd172559173435%_ + _%tl172560173437%_ + _%e172561173440%_ + _%hd172562173443%_ + _%tl172563173445%_ + _%e172564173448%_ + _%hd172565173451%_ + _%tl172566173453%_ + _%e172567173456%_ + _%hd172568173459%_ + _%tl172569173461%_ + _%e172570173464%_ + _%hd172571173467%_ + _%tl172572173469%_ + _%e172573173472%_ + _%hd172574173475%_ + _%tl172575173477%_ + _%e172576173480%_ + _%hd172577173483%_ + _%tl172578173485%_)))) + (_%__match177430177431%_ + _%e172555173424%_ + _%hd172556173427%_ + _%tl172557173429%_ + _%e172558173432%_ + _%hd172559173435%_ + _%tl172560173437%_ + _%e172561173440%_ + _%hd172562173443%_ + _%tl172563173445%_ + _%e172564173448%_ + _%hd172565173451%_ + _%tl172566173453%_ + _%e172567173456%_ + _%hd172568173459%_ + _%tl172569173461%_ + _%e172570173464%_ + _%hd172571173467%_ + _%tl172572173469%_ + _%e172573173472%_ + _%hd172574173475%_ + _%tl172575173477%_)) + (_%__kont177013177014%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176976176977%_)) - (_%__kont176976176977%_)) - (_%__kont176976176977%_)))) - (_%__kont176976176977%_)))) - (_%__kont176976176977%_)) - (_%__kont176976176977%_)))) + (_%__kont177013177014%_)) + (_%__kont177013177014%_)) + (_%__kont177013177014%_)))) + (_%__kont177013177014%_)))) + (_%__kont177013177014%_)) + (_%__kont177013177014%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176976176977%_)) - (_%__kont176976176977%_)) - (_%__kont176976176977%_)))) - (_%__kont176976176977%_)))) - (_%__kont176976176977%_)))) - (_%__kont176976176977%_))))))) + (_%__kont177013177014%_)) + (_%__kont177013177014%_)) + (_%__kont177013177014%_)))) + (_%__kont177013177014%_)))) + (_%__kont177013177014%_)))) + (_%__kont177013177014%_))))))) (define gxc#subst-object-refs-call% - (lambda (_%self171442%_ _%stx171443%_) - (letrec ((_%force-e171445%_ - (lambda (_%target172501%_) + (lambda (_%self171479%_ _%stx171480%_) + (letrec ((_%force-e171482%_ + (lambda (_%target172538%_) (cons '%#call (cons (cons '%#ref (cons 'force '())) - (cons (cons '%#ref (cons _%target172501%_ '())) + (cons (cons '%#ref (cons _%target172538%_ '())) '())))))) - (let* ((_%__stx177460177461%_ _%stx171443%_) - (_%g171453171675%_ + (let* ((_%__stx177497177498%_ _%stx171480%_) + (_%g171490171712%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177460177461%_))))) - (let ((_%__kont177462177463%_ - (lambda (_%L172447%_ _%L172448%_ _%L172449%_ _%L172450%_) - (let ((_%$method172495%_ - (let ((__tmp178091 + _%__stx177497177498%_))))) + (let ((_%__kont177499177500%_ + (lambda (_%L172484%_ _%L172485%_ _%L172486%_ _%L172487%_) + (let ((_%$method172532%_ + (let ((__tmp178128 (let () (declare (not safe)) - (slot-ref__0 _%self171442%_ 'methods))) - (__tmp178090 + (slot-ref__0 _%self171479%_ 'methods))) + (__tmp178127 (let () (declare (not safe)) - (gx#stx-e _%L172448%_)))) + (gx#stx-e _%L172485%_)))) (declare (not safe)) - (hash-ref__0 __tmp178091 __tmp178090))) - (_%args172496%_ - (map (lambda (_%g172483172485%_) + (hash-ref__0 __tmp178128 __tmp178127))) + (_%args172533%_ + (map (lambda (_%g172520172522%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self171442%_ - _%g172483172485%_))) - (let ((__tmp178092 - (lambda (_%g172487172490%_ - _%g172488172492%_) - (cons _%g172487172490%_ - _%g172488172492%_)))) + _%self171479%_ + _%g172520172522%_))) + (let ((__tmp178129 + (lambda (_%g172524172527%_ + _%g172525172529%_) + (cons _%g172524172527%_ + _%g172525172529%_)))) (declare (not safe)) - (__foldr1 __tmp178092 '() _%L172447%_))))) - (let ((__tmp178093 + (__foldr1 __tmp178129 '() _%L172484%_))))) + (let ((__tmp178130 (cons '%#call - (cons (_%force-e171445%_ _%$method172495%_) + (cons (_%force-e171482%_ _%$method172532%_) (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'receiver)) '())) - _%args172496%_))))) + _%args172533%_))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178093 _%stx171443%_))))) - (_%__kont177466177467%_ - (lambda (_%L172279%_ - _%L172280%_ - _%L172281%_ - _%L172282%_ - _%L172283%_) - (let ((_%$method172335%_ - (let ((__tmp178095 + (gxc#xform-wrap-source __tmp178130 _%stx171480%_))))) + (_%__kont177503177504%_ + (lambda (_%L172316%_ + _%L172317%_ + _%L172318%_ + _%L172319%_ + _%L172320%_) + (let ((_%$method172372%_ + (let ((__tmp178132 (let () (declare (not safe)) - (slot-ref__0 _%self171442%_ 'methods))) - (__tmp178094 + (slot-ref__0 _%self171479%_ 'methods))) + (__tmp178131 (let () (declare (not safe)) - (gx#stx-e _%L172280%_)))) + (gx#stx-e _%L172317%_)))) (declare (not safe)) - (hash-ref__0 __tmp178095 __tmp178094))) - (_%args172336%_ - (map (lambda (_%g172323172325%_) + (hash-ref__0 __tmp178132 __tmp178131))) + (_%args172373%_ + (map (lambda (_%g172360172362%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self171442%_ - _%g172323172325%_))) - (let ((__tmp178096 - (lambda (_%g172327172330%_ - _%g172328172332%_) - (cons _%g172327172330%_ - _%g172328172332%_)))) + _%self171479%_ + _%g172360172362%_))) + (let ((__tmp178133 + (lambda (_%g172364172367%_ + _%g172365172369%_) + (cons _%g172364172367%_ + _%g172365172369%_)))) (declare (not safe)) - (__foldr1 __tmp178096 '() _%L172279%_))))) - (let ((__tmp178097 + (__foldr1 __tmp178133 '() _%L172316%_))))) + (let ((__tmp178134 (cons '%#call (cons (cons '%#ref (cons 'apply '())) - (cons (_%force-e171445%_ - _%$method172335%_) + (cons (_%force-e171482%_ + _%$method172372%_) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171442%_ 'receiver)) + (slot-ref__0 _%self171479%_ 'receiver)) '())) - _%args172336%_)))))) + _%args172373%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp178097 _%stx171443%_))))) - (_%__kont177470177471%_ - (lambda (_%L172110%_ _%L172111%_ _%L172112%_) - (let* ((_%$field172144%_ - (let ((__tmp178099 + (gxc#xform-wrap-source __tmp178134 _%stx171480%_))))) + (_%__kont177507177508%_ + (lambda (_%L172147%_ _%L172148%_ _%L172149%_) + (let* ((_%$field172181%_ + (let ((__tmp178136 (let () (declare (not safe)) - (slot-ref__0 _%self171442%_ 'slots))) - (__tmp178098 + (slot-ref__0 _%self171479%_ 'slots))) + (__tmp178135 (let () (declare (not safe)) - (gx#stx-e _%L172110%_)))) + (gx#stx-e _%L172147%_)))) (declare (not safe)) - (hash-ref__0 __tmp178099 __tmp178098))) - (__tmp178100 + (hash-ref__0 __tmp178136 __tmp178135))) + (__tmp178137 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field172144%_ + (cons _%$field172181%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171442%_ 'receiver)) + (slot-ref__0 _%self171479%_ 'receiver)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178100 _%stx171443%_)))) - (_%__kont177472177473%_ - (lambda (_%L171984%_ _%L171985%_ _%L171986%_ _%L171987%_) - (let ((_%$field172022%_ - (let ((__tmp178102 + (gxc#xform-wrap-source __tmp178137 _%stx171480%_)))) + (_%__kont177509177510%_ + (lambda (_%L172021%_ _%L172022%_ _%L172023%_ _%L172024%_) + (let ((_%$field172059%_ + (let ((__tmp178139 (let () (declare (not safe)) - (slot-ref__0 _%self171442%_ 'slots))) - (__tmp178101 + (slot-ref__0 _%self171479%_ 'slots))) + (__tmp178138 (let () (declare (not safe)) - (gx#stx-e _%L171985%_)))) + (gx#stx-e _%L172022%_)))) (declare (not safe)) - (hash-ref__0 __tmp178102 __tmp178101))) - (_%expr172023%_ + (hash-ref__0 __tmp178139 __tmp178138))) + (_%expr172060%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self171442%_ _%L171984%_)))) - (let ((__tmp178103 + (gxc#compile-e__1 _%self171479%_ _%L172021%_)))) + (let ((__tmp178140 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field172022%_ + (cons _%$field172059%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171442%_ 'receiver)) + (slot-ref__0 _%self171479%_ 'receiver)) '())) - (cons _%expr172023%_ '()))))))) + (cons _%expr172060%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp178103 _%stx171443%_))))) - (_%__kont177474177475%_ - (lambda (_%L171856%_ _%L171857%_) - (let* ((_%accessor171879%_ - (let ((__tmp178104 + (gxc#xform-wrap-source __tmp178140 _%stx171480%_))))) + (_%__kont177511177512%_ + (lambda (_%L171893%_ _%L171894%_) + (let* ((_%accessor171916%_ + (let ((__tmp178141 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171857%_)))) + (gxc#identifier-symbol _%L171894%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178104))) - (_%klass171881%_ - (let ((__tmp178105 + (gxc#optimizer-resolve-type __tmp178141))) + (_%klass171918%_ + (let ((__tmp178142 (##structure-ref - _%accessor171879%_ + _%accessor171916%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171443%_ - __tmp178105))) - (_%slot171883%_ + _%stx171480%_ + __tmp178142))) + (_%slot171920%_ (##structure-ref - _%accessor171879%_ + _%accessor171916%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor171879%_ + _%accessor171916%_ '4 gxc#!accessor::t '#f) @@ -6959,37 +6959,37 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171881%_ - _%slot171883%_)) + _%klass171918%_ + _%slot171920%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171881%_ + _%klass171918%_ '8 '#f '#f)))) - _%stx171443%_ - (let* ((_%$field171889%_ - (let ((__tmp178106 + _%stx171480%_ + (let* ((_%$field171926%_ + (let ((__tmp178143 (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp178106 _%slot171883%_))) - (__tmp178107 + (hash-ref__0 __tmp178143 _%slot171920%_))) + (__tmp178144 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171889%_ + (cons _%$field171926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6997,46 +6997,46 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self171442%_ 'receiver)) + (slot-ref__0 _%self171479%_ 'receiver)) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178107 - _%stx171443%_)))))) - (_%__kont177476177477%_ - (lambda (_%L171751%_ _%L171752%_ _%L171753%_) - (let* ((_%mutator171781%_ - (let ((__tmp178108 + __tmp178144 + _%stx171480%_)))))) + (_%__kont177513177514%_ + (lambda (_%L171788%_ _%L171789%_ _%L171790%_) + (let* ((_%mutator171818%_ + (let ((__tmp178145 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171753%_)))) + (gxc#identifier-symbol _%L171790%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178108))) - (_%klass171783%_ - (let ((__tmp178109 + (gxc#optimizer-resolve-type __tmp178145))) + (_%klass171820%_ + (let ((__tmp178146 (##structure-ref - _%mutator171781%_ + _%mutator171818%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171443%_ - __tmp178109))) - (_%slot171785%_ + _%stx171480%_ + __tmp178146))) + (_%slot171822%_ (##structure-ref - _%mutator171781%_ + _%mutator171818%_ '3 gxc#!mutator::t '#f)) - (_%expr171787%_ + (_%expr171824%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self171442%_ _%L171751%_)))) + (gxc#compile-e__1 _%self171479%_ _%L171788%_)))) (if (if (##structure-ref - _%mutator171781%_ + _%mutator171818%_ '4 gxc#!mutator::t '#f) @@ -7044,56 +7044,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171783%_ - _%slot171785%_)) + _%klass171820%_ + _%slot171822%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171783%_ + _%klass171820%_ '8 '#f '#f)))) - (let ((__tmp178110 + (let ((__tmp178147 (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L171753%_ '())) + (cons _%L171790%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L171752%_ + (cons _%L171789%_ '())) - (cons _%expr171787%_ + (cons _%expr171824%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178110 _%stx171443%_)) - (let* ((_%$field171793%_ - (let ((__tmp178111 + (gxc#xform-wrap-source __tmp178147 _%stx171480%_)) + (let* ((_%$field171830%_ + (let ((__tmp178148 (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp178111 _%slot171785%_))) - (__tmp178112 + (hash-ref__0 __tmp178148 _%slot171822%_))) + (__tmp178149 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171793%_ + (cons _%$field171830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -7101,1846 +7101,1846 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self171442%_ 'receiver)) + (slot-ref__0 _%self171479%_ 'receiver)) '())) - (cons _%expr171787%_ '()))))))) + (cons _%expr171824%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178112 - _%stx171443%_)))))) - (_%__kont177478177479%_ + __tmp178149 + _%stx171480%_)))))) + (_%__kont177515177516%_ (lambda () (let () (declare (not safe)) - (gxc#xform-operands _%self171442%_ _%stx171443%_))))) - (let* ((_%__match177959177960%_ - (lambda (_%e171647171687%_ - _%hd171648171690%_ - _%tl171649171692%_ - _%e171650171695%_ - _%hd171651171698%_ - _%tl171652171700%_ - _%e171653171703%_ - _%hd171654171706%_ - _%tl171655171708%_ - _%e171656171711%_ - _%hd171657171714%_ - _%tl171658171716%_ - _%e171659171719%_ - _%hd171660171722%_ - _%tl171661171724%_ - _%e171662171727%_ - _%hd171663171730%_ - _%tl171664171732%_ - _%e171665171735%_ - _%hd171666171738%_ - _%tl171667171740%_ - _%e171668171743%_ - _%hd171669171746%_ - _%tl171670171748%_) - (let ((_%L171751%_ _%hd171669171746%_) - (_%L171752%_ _%hd171666171738%_) - (_%L171753%_ _%hd171657171714%_)) - (if (and (let ((__tmp178113 + (gxc#xform-operands _%self171479%_ _%stx171480%_))))) + (let* ((_%__match177996177997%_ + (lambda (_%e171684171724%_ + _%hd171685171727%_ + _%tl171686171729%_ + _%e171687171732%_ + _%hd171688171735%_ + _%tl171689171737%_ + _%e171690171740%_ + _%hd171691171743%_ + _%tl171692171745%_ + _%e171693171748%_ + _%hd171694171751%_ + _%tl171695171753%_ + _%e171696171756%_ + _%hd171697171759%_ + _%tl171698171761%_ + _%e171699171764%_ + _%hd171700171767%_ + _%tl171701171769%_ + _%e171702171772%_ + _%hd171703171775%_ + _%tl171704171777%_ + _%e171705171780%_ + _%hd171706171783%_ + _%tl171707171785%_) + (let ((_%L171788%_ _%hd171706171783%_) + (_%L171789%_ _%hd171703171775%_) + (_%L171790%_ _%hd171694171751%_)) + (if (and (let ((__tmp178150 (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171752%_ - __tmp178113)) - (let ((__tmp178114 - (let ((__tmp178115 + _%L171789%_ + __tmp178150)) + (let ((__tmp178151 + (let ((__tmp178152 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171753%_)))) + _%L171790%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178115)))) + __tmp178152)))) (declare (not safe)) (##structure-instance-of? - __tmp178114 + __tmp178151 'gxc#!mutator::t))) - (_%__kont177476177477%_ - _%L171751%_ - _%L171752%_ - _%L171753%_) - (_%__kont177478177479%_))))) - (_%__match177957177958%_ - (lambda (_%e171647171687%_ - _%hd171648171690%_ - _%tl171649171692%_ - _%e171650171695%_ - _%hd171651171698%_ - _%tl171652171700%_ - _%e171653171703%_ - _%hd171654171706%_ - _%tl171655171708%_ - _%e171656171711%_ - _%hd171657171714%_ - _%tl171658171716%_ - _%e171659171719%_ - _%hd171660171722%_ - _%tl171661171724%_ - _%e171662171727%_ - _%hd171663171730%_ - _%tl171664171732%_ - _%e171665171735%_ - _%hd171666171738%_ - _%tl171667171740%_ - _%e171668171743%_ - _%hd171669171746%_ - _%tl171670171748%_) + (_%__kont177513177514%_ + _%L171788%_ + _%L171789%_ + _%L171790%_) + (_%__kont177515177516%_))))) + (_%__match177994177995%_ + (lambda (_%e171684171724%_ + _%hd171685171727%_ + _%tl171686171729%_ + _%e171687171732%_ + _%hd171688171735%_ + _%tl171689171737%_ + _%e171690171740%_ + _%hd171691171743%_ + _%tl171692171745%_ + _%e171693171748%_ + _%hd171694171751%_ + _%tl171695171753%_ + _%e171696171756%_ + _%hd171697171759%_ + _%tl171698171761%_ + _%e171699171764%_ + _%hd171700171767%_ + _%tl171701171769%_ + _%e171702171772%_ + _%hd171703171775%_ + _%tl171704171777%_ + _%e171705171780%_ + _%hd171706171783%_ + _%tl171707171785%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171670171748%_)) - (_%__match177959177960%_ - _%e171647171687%_ - _%hd171648171690%_ - _%tl171649171692%_ - _%e171650171695%_ - _%hd171651171698%_ - _%tl171652171700%_ - _%e171653171703%_ - _%hd171654171706%_ - _%tl171655171708%_ - _%e171656171711%_ - _%hd171657171714%_ - _%tl171658171716%_ - _%e171659171719%_ - _%hd171660171722%_ - _%tl171661171724%_ - _%e171662171727%_ - _%hd171663171730%_ - _%tl171664171732%_ - _%e171665171735%_ - _%hd171666171738%_ - _%tl171667171740%_ - _%e171668171743%_ - _%hd171669171746%_ - _%tl171670171748%_) - (_%__kont177478177479%_)))) - (_%__match177951177952%_ - (lambda (_%e171647171687%_ - _%hd171648171690%_ - _%tl171649171692%_ - _%e171650171695%_ - _%hd171651171698%_ - _%tl171652171700%_ - _%e171653171703%_ - _%hd171654171706%_ - _%tl171655171708%_ - _%e171656171711%_ - _%hd171657171714%_ - _%tl171658171716%_ - _%e171659171719%_ - _%hd171660171722%_ - _%tl171661171724%_ - _%e171662171727%_ - _%hd171663171730%_ - _%tl171664171732%_ - _%e171665171735%_ - _%hd171666171738%_ - _%tl171667171740%_) + (gx#stx-null? _%tl171707171785%_)) + (_%__match177996177997%_ + _%e171684171724%_ + _%hd171685171727%_ + _%tl171686171729%_ + _%e171687171732%_ + _%hd171688171735%_ + _%tl171689171737%_ + _%e171690171740%_ + _%hd171691171743%_ + _%tl171692171745%_ + _%e171693171748%_ + _%hd171694171751%_ + _%tl171695171753%_ + _%e171696171756%_ + _%hd171697171759%_ + _%tl171698171761%_ + _%e171699171764%_ + _%hd171700171767%_ + _%tl171701171769%_ + _%e171702171772%_ + _%hd171703171775%_ + _%tl171704171777%_ + _%e171705171780%_ + _%hd171706171783%_ + _%tl171707171785%_) + (_%__kont177515177516%_)))) + (_%__match177988177989%_ + (lambda (_%e171684171724%_ + _%hd171685171727%_ + _%tl171686171729%_ + _%e171687171732%_ + _%hd171688171735%_ + _%tl171689171737%_ + _%e171690171740%_ + _%hd171691171743%_ + _%tl171692171745%_ + _%e171693171748%_ + _%hd171694171751%_ + _%tl171695171753%_ + _%e171696171756%_ + _%hd171697171759%_ + _%tl171698171761%_ + _%e171699171764%_ + _%hd171700171767%_ + _%tl171701171769%_ + _%e171702171772%_ + _%hd171703171775%_ + _%tl171704171777%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171661171724%_)) - (let ((_%e171668171743%_ + (gx#stx-pair? _%tl171698171761%_)) + (let ((_%e171705171780%_ (let () (declare (not safe)) - (gx#stx-e _%tl171661171724%_)))) - (let ((_%tl171670171748%_ + (gx#stx-e _%tl171698171761%_)))) + (let ((_%tl171707171785%_ (let () (declare (not safe)) - (##cdr _%e171668171743%_))) - (_%hd171669171746%_ + (##cdr _%e171705171780%_))) + (_%hd171706171783%_ (let () (declare (not safe)) - (##car _%e171668171743%_)))) + (##car _%e171705171780%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171670171748%_)) - (_%__match177959177960%_ - _%e171647171687%_ - _%hd171648171690%_ - _%tl171649171692%_ - _%e171650171695%_ - _%hd171651171698%_ - _%tl171652171700%_ - _%e171653171703%_ - _%hd171654171706%_ - _%tl171655171708%_ - _%e171656171711%_ - _%hd171657171714%_ - _%tl171658171716%_ - _%e171659171719%_ - _%hd171660171722%_ - _%tl171661171724%_ - _%e171662171727%_ - _%hd171663171730%_ - _%tl171664171732%_ - _%e171665171735%_ - _%hd171666171738%_ - _%tl171667171740%_ - _%e171668171743%_ - _%hd171669171746%_ - _%tl171670171748%_) - (_%__kont177478177479%_)))) - (_%__kont177478177479%_)))) - (_%__match177897177898%_ - (lambda (_%e171623171800%_ - _%hd171624171803%_ - _%tl171625171805%_ - _%e171626171808%_ - _%hd171627171811%_ - _%tl171628171813%_ - _%e171629171816%_ - _%hd171630171819%_ - _%tl171631171821%_ - _%e171632171824%_ - _%hd171633171827%_ - _%tl171634171829%_ - _%e171635171832%_ - _%hd171636171835%_ - _%tl171637171837%_ - _%e171638171840%_ - _%hd171639171843%_ - _%tl171640171845%_ - _%e171641171848%_ - _%hd171642171851%_ - _%tl171643171853%_) - (let ((_%L171856%_ _%hd171642171851%_) - (_%L171857%_ _%hd171633171827%_)) - (if (and (let ((__tmp178116 + (gx#stx-null? _%tl171707171785%_)) + (_%__match177996177997%_ + _%e171684171724%_ + _%hd171685171727%_ + _%tl171686171729%_ + _%e171687171732%_ + _%hd171688171735%_ + _%tl171689171737%_ + _%e171690171740%_ + _%hd171691171743%_ + _%tl171692171745%_ + _%e171693171748%_ + _%hd171694171751%_ + _%tl171695171753%_ + _%e171696171756%_ + _%hd171697171759%_ + _%tl171698171761%_ + _%e171699171764%_ + _%hd171700171767%_ + _%tl171701171769%_ + _%e171702171772%_ + _%hd171703171775%_ + _%tl171704171777%_ + _%e171705171780%_ + _%hd171706171783%_ + _%tl171707171785%_) + (_%__kont177515177516%_)))) + (_%__kont177515177516%_)))) + (_%__match177934177935%_ + (lambda (_%e171660171837%_ + _%hd171661171840%_ + _%tl171662171842%_ + _%e171663171845%_ + _%hd171664171848%_ + _%tl171665171850%_ + _%e171666171853%_ + _%hd171667171856%_ + _%tl171668171858%_ + _%e171669171861%_ + _%hd171670171864%_ + _%tl171671171866%_ + _%e171672171869%_ + _%hd171673171872%_ + _%tl171674171874%_ + _%e171675171877%_ + _%hd171676171880%_ + _%tl171677171882%_ + _%e171678171885%_ + _%hd171679171888%_ + _%tl171680171890%_) + (let ((_%L171893%_ _%hd171679171888%_) + (_%L171894%_ _%hd171670171864%_)) + (if (and (let ((__tmp178153 (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171856%_ - __tmp178116)) - (let ((__tmp178117 - (let ((__tmp178118 + _%L171893%_ + __tmp178153)) + (let ((__tmp178154 + (let ((__tmp178155 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171857%_)))) + _%L171894%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178118)))) + __tmp178155)))) (declare (not safe)) (##structure-instance-of? - __tmp178117 + __tmp178154 'gxc#!accessor::t))) - (_%__kont177474177475%_ _%L171856%_ _%L171857%_) - (_%__kont177478177479%_))))) - (_%__match177895177896%_ - (lambda (_%e171623171800%_ - _%hd171624171803%_ - _%tl171625171805%_ - _%e171626171808%_ - _%hd171627171811%_ - _%tl171628171813%_ - _%e171629171816%_ - _%hd171630171819%_ - _%tl171631171821%_ - _%e171632171824%_ - _%hd171633171827%_ - _%tl171634171829%_ - _%e171635171832%_ - _%hd171636171835%_ - _%tl171637171837%_ - _%e171638171840%_ - _%hd171639171843%_ - _%tl171640171845%_ - _%e171641171848%_ - _%hd171642171851%_ - _%tl171643171853%_) + (_%__kont177511177512%_ _%L171893%_ _%L171894%_) + (_%__kont177515177516%_))))) + (_%__match177932177933%_ + (lambda (_%e171660171837%_ + _%hd171661171840%_ + _%tl171662171842%_ + _%e171663171845%_ + _%hd171664171848%_ + _%tl171665171850%_ + _%e171666171853%_ + _%hd171667171856%_ + _%tl171668171858%_ + _%e171669171861%_ + _%hd171670171864%_ + _%tl171671171866%_ + _%e171672171869%_ + _%hd171673171872%_ + _%tl171674171874%_ + _%e171675171877%_ + _%hd171676171880%_ + _%tl171677171882%_ + _%e171678171885%_ + _%hd171679171888%_ + _%tl171680171890%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171637171837%_)) - (_%__match177897177898%_ - _%e171623171800%_ - _%hd171624171803%_ - _%tl171625171805%_ - _%e171626171808%_ - _%hd171627171811%_ - _%tl171628171813%_ - _%e171629171816%_ - _%hd171630171819%_ - _%tl171631171821%_ - _%e171632171824%_ - _%hd171633171827%_ - _%tl171634171829%_ - _%e171635171832%_ - _%hd171636171835%_ - _%tl171637171837%_ - _%e171638171840%_ - _%hd171639171843%_ - _%tl171640171845%_ - _%e171641171848%_ - _%hd171642171851%_ - _%tl171643171853%_) - (_%__match177951177952%_ - _%e171623171800%_ - _%hd171624171803%_ - _%tl171625171805%_ - _%e171626171808%_ - _%hd171627171811%_ - _%tl171628171813%_ - _%e171629171816%_ - _%hd171630171819%_ - _%tl171631171821%_ - _%e171632171824%_ - _%hd171633171827%_ - _%tl171634171829%_ - _%e171635171832%_ - _%hd171636171835%_ - _%tl171637171837%_ - _%e171638171840%_ - _%hd171639171843%_ - _%tl171640171845%_ - _%e171641171848%_ - _%hd171642171851%_ - _%tl171643171853%_)))) - (_%__match177841177842%_ - (lambda (_%e171588171896%_ - _%hd171589171899%_ - _%tl171590171901%_ - _%e171591171904%_ - _%hd171592171907%_ - _%tl171593171909%_ - _%e171594171912%_ - _%hd171595171915%_ - _%tl171596171917%_ - _%e171597171920%_ - _%hd171598171923%_ - _%tl171599171925%_ - _%e171600171928%_ - _%hd171601171931%_ - _%tl171602171933%_ - _%e171603171936%_ - _%hd171604171939%_ - _%tl171605171941%_ - _%e171606171944%_ - _%hd171607171947%_ - _%tl171608171949%_ - _%e171609171952%_ - _%hd171610171955%_ - _%tl171611171957%_ - _%e171612171960%_ - _%hd171613171963%_ - _%tl171614171965%_ - _%e171615171968%_ - _%hd171616171971%_ - _%tl171617171973%_ - _%e171618171976%_ - _%hd171619171979%_ - _%tl171620171981%_) - (let ((_%L171984%_ _%hd171619171979%_) - (_%L171985%_ _%hd171616171971%_) - (_%L171986%_ _%hd171607171947%_) - (_%L171987%_ _%hd171598171923%_)) + (gx#stx-null? _%tl171674171874%_)) + (_%__match177934177935%_ + _%e171660171837%_ + _%hd171661171840%_ + _%tl171662171842%_ + _%e171663171845%_ + _%hd171664171848%_ + _%tl171665171850%_ + _%e171666171853%_ + _%hd171667171856%_ + _%tl171668171858%_ + _%e171669171861%_ + _%hd171670171864%_ + _%tl171671171866%_ + _%e171672171869%_ + _%hd171673171872%_ + _%tl171674171874%_ + _%e171675171877%_ + _%hd171676171880%_ + _%tl171677171882%_ + _%e171678171885%_ + _%hd171679171888%_ + _%tl171680171890%_) + (_%__match177988177989%_ + _%e171660171837%_ + _%hd171661171840%_ + _%tl171662171842%_ + _%e171663171845%_ + _%hd171664171848%_ + _%tl171665171850%_ + _%e171666171853%_ + _%hd171667171856%_ + _%tl171668171858%_ + _%e171669171861%_ + _%hd171670171864%_ + _%tl171671171866%_ + _%e171672171869%_ + _%hd171673171872%_ + _%tl171674171874%_ + _%e171675171877%_ + _%hd171676171880%_ + _%tl171677171882%_ + _%e171678171885%_ + _%hd171679171888%_ + _%tl171680171890%_)))) + (_%__match177878177879%_ + (lambda (_%e171625171933%_ + _%hd171626171936%_ + _%tl171627171938%_ + _%e171628171941%_ + _%hd171629171944%_ + _%tl171630171946%_ + _%e171631171949%_ + _%hd171632171952%_ + _%tl171633171954%_ + _%e171634171957%_ + _%hd171635171960%_ + _%tl171636171962%_ + _%e171637171965%_ + _%hd171638171968%_ + _%tl171639171970%_ + _%e171640171973%_ + _%hd171641171976%_ + _%tl171642171978%_ + _%e171643171981%_ + _%hd171644171984%_ + _%tl171645171986%_ + _%e171646171989%_ + _%hd171647171992%_ + _%tl171648171994%_ + _%e171649171997%_ + _%hd171650172000%_ + _%tl171651172002%_ + _%e171652172005%_ + _%hd171653172008%_ + _%tl171654172010%_ + _%e171655172013%_ + _%hd171656172016%_ + _%tl171657172018%_) + (let ((_%L172021%_ _%hd171656172016%_) + (_%L172022%_ _%hd171653172008%_) + (_%L172023%_ _%hd171644171984%_) + (_%L172024%_ _%hd171635171960%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171987%_ + _%L172024%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L171987%_ + _%L172024%_ 'unchecked-slot-set!))) - (let ((__tmp178119 + (let ((__tmp178156 (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171986%_ - __tmp178119))) - (_%__kont177472177473%_ - _%L171984%_ - _%L171985%_ - _%L171986%_ - _%L171987%_) - (_%__kont177478177479%_))))) - (_%__match177833177834%_ - (lambda (_%e171588171896%_ - _%hd171589171899%_ - _%tl171590171901%_ - _%e171591171904%_ - _%hd171592171907%_ - _%tl171593171909%_ - _%e171594171912%_ - _%hd171595171915%_ - _%tl171596171917%_ - _%e171597171920%_ - _%hd171598171923%_ - _%tl171599171925%_ - _%e171600171928%_ - _%hd171601171931%_ - _%tl171602171933%_ - _%e171603171936%_ - _%hd171604171939%_ - _%tl171605171941%_ - _%e171606171944%_ - _%hd171607171947%_ - _%tl171608171949%_ - _%e171609171952%_ - _%hd171610171955%_ - _%tl171611171957%_ - _%e171612171960%_ - _%hd171613171963%_ - _%tl171614171965%_ - _%e171615171968%_ - _%hd171616171971%_ - _%tl171617171973%_) + _%L172023%_ + __tmp178156))) + (_%__kont177509177510%_ + _%L172021%_ + _%L172022%_ + _%L172023%_ + _%L172024%_) + (_%__kont177515177516%_))))) + (_%__match177870177871%_ + (lambda (_%e171625171933%_ + _%hd171626171936%_ + _%tl171627171938%_ + _%e171628171941%_ + _%hd171629171944%_ + _%tl171630171946%_ + _%e171631171949%_ + _%hd171632171952%_ + _%tl171633171954%_ + _%e171634171957%_ + _%hd171635171960%_ + _%tl171636171962%_ + _%e171637171965%_ + _%hd171638171968%_ + _%tl171639171970%_ + _%e171640171973%_ + _%hd171641171976%_ + _%tl171642171978%_ + _%e171643171981%_ + _%hd171644171984%_ + _%tl171645171986%_ + _%e171646171989%_ + _%hd171647171992%_ + _%tl171648171994%_ + _%e171649171997%_ + _%hd171650172000%_ + _%tl171651172002%_ + _%e171652172005%_ + _%hd171653172008%_ + _%tl171654172010%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171611171957%_)) - (let ((_%e171618171976%_ + (gx#stx-pair? _%tl171648171994%_)) + (let ((_%e171655172013%_ (let () (declare (not safe)) - (gx#stx-e _%tl171611171957%_)))) - (let ((_%tl171620171981%_ + (gx#stx-e _%tl171648171994%_)))) + (let ((_%tl171657172018%_ (let () (declare (not safe)) - (##cdr _%e171618171976%_))) - (_%hd171619171979%_ + (##cdr _%e171655172013%_))) + (_%hd171656172016%_ (let () (declare (not safe)) - (##car _%e171618171976%_)))) + (##car _%e171655172013%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171620171981%_)) - (_%__match177841177842%_ - _%e171588171896%_ - _%hd171589171899%_ - _%tl171590171901%_ - _%e171591171904%_ - _%hd171592171907%_ - _%tl171593171909%_ - _%e171594171912%_ - _%hd171595171915%_ - _%tl171596171917%_ - _%e171597171920%_ - _%hd171598171923%_ - _%tl171599171925%_ - _%e171600171928%_ - _%hd171601171931%_ - _%tl171602171933%_ - _%e171603171936%_ - _%hd171604171939%_ - _%tl171605171941%_ - _%e171606171944%_ - _%hd171607171947%_ - _%tl171608171949%_ - _%e171609171952%_ - _%hd171610171955%_ - _%tl171611171957%_ - _%e171612171960%_ - _%hd171613171963%_ - _%tl171614171965%_ - _%e171615171968%_ - _%hd171616171971%_ - _%tl171617171973%_ - _%e171618171976%_ - _%hd171619171979%_ - _%tl171620171981%_) - (_%__kont177478177479%_)))) - (_%__match177957177958%_ - _%e171588171896%_ - _%hd171589171899%_ - _%tl171590171901%_ - _%e171591171904%_ - _%hd171592171907%_ - _%tl171593171909%_ - _%e171594171912%_ - _%hd171595171915%_ - _%tl171596171917%_ - _%e171597171920%_ - _%hd171598171923%_ - _%tl171599171925%_ - _%e171600171928%_ - _%hd171601171931%_ - _%tl171602171933%_ - _%e171603171936%_ - _%hd171604171939%_ - _%tl171605171941%_ - _%e171606171944%_ - _%hd171607171947%_ - _%tl171608171949%_ - _%e171609171952%_ - _%hd171610171955%_ - _%tl171611171957%_)))) - (_%__match177755177756%_ - (lambda (_%e171554172030%_ - _%hd171555172033%_ - _%tl171556172035%_ - _%e171557172038%_ - _%hd171558172041%_ - _%tl171559172043%_ - _%e171560172046%_ - _%hd171561172049%_ - _%tl171562172051%_ - _%e171563172054%_ - _%hd171564172057%_ - _%tl171565172059%_ - _%e171566172062%_ - _%hd171567172065%_ - _%tl171568172067%_ - _%e171569172070%_ - _%hd171570172073%_ - _%tl171571172075%_ - _%e171572172078%_ - _%hd171573172081%_ - _%tl171574172083%_ - _%e171575172086%_ - _%hd171576172089%_ - _%tl171577172091%_ - _%e171578172094%_ - _%hd171579172097%_ - _%tl171580172099%_ - _%e171581172102%_ - _%hd171582172105%_ - _%tl171583172107%_) - (let ((_%L172110%_ _%hd171582172105%_) - (_%L172111%_ _%hd171573172081%_) - (_%L172112%_ _%hd171564172057%_)) + (gx#stx-null? _%tl171657172018%_)) + (_%__match177878177879%_ + _%e171625171933%_ + _%hd171626171936%_ + _%tl171627171938%_ + _%e171628171941%_ + _%hd171629171944%_ + _%tl171630171946%_ + _%e171631171949%_ + _%hd171632171952%_ + _%tl171633171954%_ + _%e171634171957%_ + _%hd171635171960%_ + _%tl171636171962%_ + _%e171637171965%_ + _%hd171638171968%_ + _%tl171639171970%_ + _%e171640171973%_ + _%hd171641171976%_ + _%tl171642171978%_ + _%e171643171981%_ + _%hd171644171984%_ + _%tl171645171986%_ + _%e171646171989%_ + _%hd171647171992%_ + _%tl171648171994%_ + _%e171649171997%_ + _%hd171650172000%_ + _%tl171651172002%_ + _%e171652172005%_ + _%hd171653172008%_ + _%tl171654172010%_ + _%e171655172013%_ + _%hd171656172016%_ + _%tl171657172018%_) + (_%__kont177515177516%_)))) + (_%__match177994177995%_ + _%e171625171933%_ + _%hd171626171936%_ + _%tl171627171938%_ + _%e171628171941%_ + _%hd171629171944%_ + _%tl171630171946%_ + _%e171631171949%_ + _%hd171632171952%_ + _%tl171633171954%_ + _%e171634171957%_ + _%hd171635171960%_ + _%tl171636171962%_ + _%e171637171965%_ + _%hd171638171968%_ + _%tl171639171970%_ + _%e171640171973%_ + _%hd171641171976%_ + _%tl171642171978%_ + _%e171643171981%_ + _%hd171644171984%_ + _%tl171645171986%_ + _%e171646171989%_ + _%hd171647171992%_ + _%tl171648171994%_)))) + (_%__match177792177793%_ + (lambda (_%e171591172067%_ + _%hd171592172070%_ + _%tl171593172072%_ + _%e171594172075%_ + _%hd171595172078%_ + _%tl171596172080%_ + _%e171597172083%_ + _%hd171598172086%_ + _%tl171599172088%_ + _%e171600172091%_ + _%hd171601172094%_ + _%tl171602172096%_ + _%e171603172099%_ + _%hd171604172102%_ + _%tl171605172104%_ + _%e171606172107%_ + _%hd171607172110%_ + _%tl171608172112%_ + _%e171609172115%_ + _%hd171610172118%_ + _%tl171611172120%_ + _%e171612172123%_ + _%hd171613172126%_ + _%tl171614172128%_ + _%e171615172131%_ + _%hd171616172134%_ + _%tl171617172136%_ + _%e171618172139%_ + _%hd171619172142%_ + _%tl171620172144%_) + (let ((_%L172147%_ _%hd171619172142%_) + (_%L172148%_ _%hd171610172118%_) + (_%L172149%_ _%hd171601172094%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172112%_ + _%L172149%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172112%_ + _%L172149%_ 'unchecked-slot-ref))) - (let ((__tmp178120 + (let ((__tmp178157 (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172111%_ - __tmp178120))) - (_%__kont177470177471%_ - _%L172110%_ - _%L172111%_ - _%L172112%_) - (_%__match177959177960%_ - _%e171554172030%_ - _%hd171555172033%_ - _%tl171556172035%_ - _%e171557172038%_ - _%hd171558172041%_ - _%tl171559172043%_ - _%e171560172046%_ - _%hd171561172049%_ - _%tl171562172051%_ - _%e171563172054%_ - _%hd171564172057%_ - _%tl171565172059%_ - _%e171566172062%_ - _%hd171567172065%_ - _%tl171568172067%_ - _%e171569172070%_ - _%hd171570172073%_ - _%tl171571172075%_ - _%e171572172078%_ - _%hd171573172081%_ - _%tl171574172083%_ - _%e171575172086%_ - _%hd171576172089%_ - _%tl171577172091%_))))) - (_%__match177753177754%_ - (lambda (_%e171554172030%_ - _%hd171555172033%_ - _%tl171556172035%_ - _%e171557172038%_ - _%hd171558172041%_ - _%tl171559172043%_ - _%e171560172046%_ - _%hd171561172049%_ - _%tl171562172051%_ - _%e171563172054%_ - _%hd171564172057%_ - _%tl171565172059%_ - _%e171566172062%_ - _%hd171567172065%_ - _%tl171568172067%_ - _%e171569172070%_ - _%hd171570172073%_ - _%tl171571172075%_ - _%e171572172078%_ - _%hd171573172081%_ - _%tl171574172083%_ - _%e171575172086%_ - _%hd171576172089%_ - _%tl171577172091%_ - _%e171578172094%_ - _%hd171579172097%_ - _%tl171580172099%_ - _%e171581172102%_ - _%hd171582172105%_ - _%tl171583172107%_) + _%L172148%_ + __tmp178157))) + (_%__kont177507177508%_ + _%L172147%_ + _%L172148%_ + _%L172149%_) + (_%__match177996177997%_ + _%e171591172067%_ + _%hd171592172070%_ + _%tl171593172072%_ + _%e171594172075%_ + _%hd171595172078%_ + _%tl171596172080%_ + _%e171597172083%_ + _%hd171598172086%_ + _%tl171599172088%_ + _%e171600172091%_ + _%hd171601172094%_ + _%tl171602172096%_ + _%e171603172099%_ + _%hd171604172102%_ + _%tl171605172104%_ + _%e171606172107%_ + _%hd171607172110%_ + _%tl171608172112%_ + _%e171609172115%_ + _%hd171610172118%_ + _%tl171611172120%_ + _%e171612172123%_ + _%hd171613172126%_ + _%tl171614172128%_))))) + (_%__match177790177791%_ + (lambda (_%e171591172067%_ + _%hd171592172070%_ + _%tl171593172072%_ + _%e171594172075%_ + _%hd171595172078%_ + _%tl171596172080%_ + _%e171597172083%_ + _%hd171598172086%_ + _%tl171599172088%_ + _%e171600172091%_ + _%hd171601172094%_ + _%tl171602172096%_ + _%e171603172099%_ + _%hd171604172102%_ + _%tl171605172104%_ + _%e171606172107%_ + _%hd171607172110%_ + _%tl171608172112%_ + _%e171609172115%_ + _%hd171610172118%_ + _%tl171611172120%_ + _%e171612172123%_ + _%hd171613172126%_ + _%tl171614172128%_ + _%e171615172131%_ + _%hd171616172134%_ + _%tl171617172136%_ + _%e171618172139%_ + _%hd171619172142%_ + _%tl171620172144%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171577172091%_)) - (_%__match177755177756%_ - _%e171554172030%_ - _%hd171555172033%_ - _%tl171556172035%_ - _%e171557172038%_ - _%hd171558172041%_ - _%tl171559172043%_ - _%e171560172046%_ - _%hd171561172049%_ - _%tl171562172051%_ - _%e171563172054%_ - _%hd171564172057%_ - _%tl171565172059%_ - _%e171566172062%_ - _%hd171567172065%_ - _%tl171568172067%_ - _%e171569172070%_ - _%hd171570172073%_ - _%tl171571172075%_ - _%e171572172078%_ - _%hd171573172081%_ - _%tl171574172083%_ - _%e171575172086%_ - _%hd171576172089%_ - _%tl171577172091%_ - _%e171578172094%_ - _%hd171579172097%_ - _%tl171580172099%_ - _%e171581172102%_ - _%hd171582172105%_ - _%tl171583172107%_) - (_%__match177833177834%_ - _%e171554172030%_ - _%hd171555172033%_ - _%tl171556172035%_ - _%e171557172038%_ - _%hd171558172041%_ - _%tl171559172043%_ - _%e171560172046%_ - _%hd171561172049%_ - _%tl171562172051%_ - _%e171563172054%_ - _%hd171564172057%_ - _%tl171565172059%_ - _%e171566172062%_ - _%hd171567172065%_ - _%tl171568172067%_ - _%e171569172070%_ - _%hd171570172073%_ - _%tl171571172075%_ - _%e171572172078%_ - _%hd171573172081%_ - _%tl171574172083%_ - _%e171575172086%_ - _%hd171576172089%_ - _%tl171577172091%_ - _%e171578172094%_ - _%hd171579172097%_ - _%tl171580172099%_ - _%e171581172102%_ - _%hd171582172105%_ - _%tl171583172107%_)))) - (_%__match177743177744%_ - (lambda (_%e171554172030%_ - _%hd171555172033%_ - _%tl171556172035%_ - _%e171557172038%_ - _%hd171558172041%_ - _%tl171559172043%_ - _%e171560172046%_ - _%hd171561172049%_ - _%tl171562172051%_ - _%e171563172054%_ - _%hd171564172057%_ - _%tl171565172059%_ - _%e171566172062%_ - _%hd171567172065%_ - _%tl171568172067%_ - _%e171569172070%_ - _%hd171570172073%_ - _%tl171571172075%_ - _%e171572172078%_ - _%hd171573172081%_ - _%tl171574172083%_ - _%e171575172086%_ - _%hd171576172089%_ - _%tl171577172091%_ - _%e171578172094%_ - _%hd171579172097%_ - _%tl171580172099%_) + (gx#stx-null? _%tl171614172128%_)) + (_%__match177792177793%_ + _%e171591172067%_ + _%hd171592172070%_ + _%tl171593172072%_ + _%e171594172075%_ + _%hd171595172078%_ + _%tl171596172080%_ + _%e171597172083%_ + _%hd171598172086%_ + _%tl171599172088%_ + _%e171600172091%_ + _%hd171601172094%_ + _%tl171602172096%_ + _%e171603172099%_ + _%hd171604172102%_ + _%tl171605172104%_ + _%e171606172107%_ + _%hd171607172110%_ + _%tl171608172112%_ + _%e171609172115%_ + _%hd171610172118%_ + _%tl171611172120%_ + _%e171612172123%_ + _%hd171613172126%_ + _%tl171614172128%_ + _%e171615172131%_ + _%hd171616172134%_ + _%tl171617172136%_ + _%e171618172139%_ + _%hd171619172142%_ + _%tl171620172144%_) + (_%__match177870177871%_ + _%e171591172067%_ + _%hd171592172070%_ + _%tl171593172072%_ + _%e171594172075%_ + _%hd171595172078%_ + _%tl171596172080%_ + _%e171597172083%_ + _%hd171598172086%_ + _%tl171599172088%_ + _%e171600172091%_ + _%hd171601172094%_ + _%tl171602172096%_ + _%e171603172099%_ + _%hd171604172102%_ + _%tl171605172104%_ + _%e171606172107%_ + _%hd171607172110%_ + _%tl171608172112%_ + _%e171609172115%_ + _%hd171610172118%_ + _%tl171611172120%_ + _%e171612172123%_ + _%hd171613172126%_ + _%tl171614172128%_ + _%e171615172131%_ + _%hd171616172134%_ + _%tl171617172136%_ + _%e171618172139%_ + _%hd171619172142%_ + _%tl171620172144%_)))) + (_%__match177780177781%_ + (lambda (_%e171591172067%_ + _%hd171592172070%_ + _%tl171593172072%_ + _%e171594172075%_ + _%hd171595172078%_ + _%tl171596172080%_ + _%e171597172083%_ + _%hd171598172086%_ + _%tl171599172088%_ + _%e171600172091%_ + _%hd171601172094%_ + _%tl171602172096%_ + _%e171603172099%_ + _%hd171604172102%_ + _%tl171605172104%_ + _%e171606172107%_ + _%hd171607172110%_ + _%tl171608172112%_ + _%e171609172115%_ + _%hd171610172118%_ + _%tl171611172120%_ + _%e171612172123%_ + _%hd171613172126%_ + _%tl171614172128%_ + _%e171615172131%_ + _%hd171616172134%_ + _%tl171617172136%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171579172097%_)) + (gx#stx-eq? '%#quote _%hd171616172134%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171580172099%_)) - (let ((_%e171581172102%_ + (gx#stx-pair? _%tl171617172136%_)) + (let ((_%e171618172139%_ (let () (declare (not safe)) - (gx#stx-e _%tl171580172099%_)))) - (let ((_%tl171583172107%_ + (gx#stx-e _%tl171617172136%_)))) + (let ((_%tl171620172144%_ (let () (declare (not safe)) - (##cdr _%e171581172102%_))) - (_%hd171582172105%_ + (##cdr _%e171618172139%_))) + (_%hd171619172142%_ (let () (declare (not safe)) - (##car _%e171581172102%_)))) + (##car _%e171618172139%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171583172107%_)) + (gx#stx-null? _%tl171620172144%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171577172091%_)) - (_%__match177755177756%_ - _%e171554172030%_ - _%hd171555172033%_ - _%tl171556172035%_ - _%e171557172038%_ - _%hd171558172041%_ - _%tl171559172043%_ - _%e171560172046%_ - _%hd171561172049%_ - _%tl171562172051%_ - _%e171563172054%_ - _%hd171564172057%_ - _%tl171565172059%_ - _%e171566172062%_ - _%hd171567172065%_ - _%tl171568172067%_ - _%e171569172070%_ - _%hd171570172073%_ - _%tl171571172075%_ - _%e171572172078%_ - _%hd171573172081%_ - _%tl171574172083%_ - _%e171575172086%_ - _%hd171576172089%_ - _%tl171577172091%_ - _%e171578172094%_ - _%hd171579172097%_ - _%tl171580172099%_ - _%e171581172102%_ - _%hd171582172105%_ - _%tl171583172107%_) - (_%__match177833177834%_ - _%e171554172030%_ - _%hd171555172033%_ - _%tl171556172035%_ - _%e171557172038%_ - _%hd171558172041%_ - _%tl171559172043%_ - _%e171560172046%_ - _%hd171561172049%_ - _%tl171562172051%_ - _%e171563172054%_ - _%hd171564172057%_ - _%tl171565172059%_ - _%e171566172062%_ - _%hd171567172065%_ - _%tl171568172067%_ - _%e171569172070%_ - _%hd171570172073%_ - _%tl171571172075%_ - _%e171572172078%_ - _%hd171573172081%_ - _%tl171574172083%_ - _%e171575172086%_ - _%hd171576172089%_ - _%tl171577172091%_ - _%e171578172094%_ - _%hd171579172097%_ - _%tl171580172099%_ - _%e171581172102%_ - _%hd171582172105%_ - _%tl171583172107%_)) - (_%__match177957177958%_ - _%e171554172030%_ - _%hd171555172033%_ - _%tl171556172035%_ - _%e171557172038%_ - _%hd171558172041%_ - _%tl171559172043%_ - _%e171560172046%_ - _%hd171561172049%_ - _%tl171562172051%_ - _%e171563172054%_ - _%hd171564172057%_ - _%tl171565172059%_ - _%e171566172062%_ - _%hd171567172065%_ - _%tl171568172067%_ - _%e171569172070%_ - _%hd171570172073%_ - _%tl171571172075%_ - _%e171572172078%_ - _%hd171573172081%_ - _%tl171574172083%_ - _%e171575172086%_ - _%hd171576172089%_ - _%tl171577172091%_)))) - (_%__match177957177958%_ - _%e171554172030%_ - _%hd171555172033%_ - _%tl171556172035%_ - _%e171557172038%_ - _%hd171558172041%_ - _%tl171559172043%_ - _%e171560172046%_ - _%hd171561172049%_ - _%tl171562172051%_ - _%e171563172054%_ - _%hd171564172057%_ - _%tl171565172059%_ - _%e171566172062%_ - _%hd171567172065%_ - _%tl171568172067%_ - _%e171569172070%_ - _%hd171570172073%_ - _%tl171571172075%_ - _%e171572172078%_ - _%hd171573172081%_ - _%tl171574172083%_ - _%e171575172086%_ - _%hd171576172089%_ - _%tl171577172091%_)) - (_%__match177957177958%_ - _%e171554172030%_ - _%hd171555172033%_ - _%tl171556172035%_ - _%e171557172038%_ - _%hd171558172041%_ - _%tl171559172043%_ - _%e171560172046%_ - _%hd171561172049%_ - _%tl171562172051%_ - _%e171563172054%_ - _%hd171564172057%_ - _%tl171565172059%_ - _%e171566172062%_ - _%hd171567172065%_ - _%tl171568172067%_ - _%e171569172070%_ - _%hd171570172073%_ - _%tl171571172075%_ - _%e171572172078%_ - _%hd171573172081%_ - _%tl171574172083%_ - _%e171575172086%_ - _%hd171576172089%_ - _%tl171577172091%_)))) - (_%__match177675177676%_ - (lambda (_%e171503172151%_ - _%hd171504172154%_ - _%tl171505172156%_ - _%e171506172159%_ - _%hd171507172162%_ - _%tl171508172164%_ - _%e171509172167%_ - _%hd171510172170%_ - _%tl171511172172%_ - _%e171512172175%_ - _%hd171513172178%_ - _%tl171514172180%_ - _%e171515172183%_ - _%hd171516172186%_ - _%tl171517172188%_ - _%e171518172191%_ - _%hd171519172194%_ - _%tl171520172196%_ - _%e171521172199%_ - _%hd171522172202%_ - _%tl171523172204%_ - _%e171524172207%_ - _%hd171525172210%_ - _%tl171526172212%_ - _%e171527172215%_ - _%hd171528172218%_ - _%tl171529172220%_ - _%e171530172223%_ - _%hd171531172226%_ - _%tl171532172228%_ - _%e171533172231%_ - _%hd171534172234%_ - _%tl171535172236%_ - _%e171536172239%_ - _%hd171537172242%_ - _%tl171538172244%_ - _%e171539172247%_ - _%hd171540172250%_ - _%tl171541172252%_ - _%__splice177468177469%_ - _%target171542172255%_ - _%tl171544172257%_) - (letrec ((_%loop171545172260%_ - (lambda (_%hd171543172263%_ - _%args171549172265%_) + _%tl171614172128%_)) + (_%__match177792177793%_ + _%e171591172067%_ + _%hd171592172070%_ + _%tl171593172072%_ + _%e171594172075%_ + _%hd171595172078%_ + _%tl171596172080%_ + _%e171597172083%_ + _%hd171598172086%_ + _%tl171599172088%_ + _%e171600172091%_ + _%hd171601172094%_ + _%tl171602172096%_ + _%e171603172099%_ + _%hd171604172102%_ + _%tl171605172104%_ + _%e171606172107%_ + _%hd171607172110%_ + _%tl171608172112%_ + _%e171609172115%_ + _%hd171610172118%_ + _%tl171611172120%_ + _%e171612172123%_ + _%hd171613172126%_ + _%tl171614172128%_ + _%e171615172131%_ + _%hd171616172134%_ + _%tl171617172136%_ + _%e171618172139%_ + _%hd171619172142%_ + _%tl171620172144%_) + (_%__match177870177871%_ + _%e171591172067%_ + _%hd171592172070%_ + _%tl171593172072%_ + _%e171594172075%_ + _%hd171595172078%_ + _%tl171596172080%_ + _%e171597172083%_ + _%hd171598172086%_ + _%tl171599172088%_ + _%e171600172091%_ + _%hd171601172094%_ + _%tl171602172096%_ + _%e171603172099%_ + _%hd171604172102%_ + _%tl171605172104%_ + _%e171606172107%_ + _%hd171607172110%_ + _%tl171608172112%_ + _%e171609172115%_ + _%hd171610172118%_ + _%tl171611172120%_ + _%e171612172123%_ + _%hd171613172126%_ + _%tl171614172128%_ + _%e171615172131%_ + _%hd171616172134%_ + _%tl171617172136%_ + _%e171618172139%_ + _%hd171619172142%_ + _%tl171620172144%_)) + (_%__match177994177995%_ + _%e171591172067%_ + _%hd171592172070%_ + _%tl171593172072%_ + _%e171594172075%_ + _%hd171595172078%_ + _%tl171596172080%_ + _%e171597172083%_ + _%hd171598172086%_ + _%tl171599172088%_ + _%e171600172091%_ + _%hd171601172094%_ + _%tl171602172096%_ + _%e171603172099%_ + _%hd171604172102%_ + _%tl171605172104%_ + _%e171606172107%_ + _%hd171607172110%_ + _%tl171608172112%_ + _%e171609172115%_ + _%hd171610172118%_ + _%tl171611172120%_ + _%e171612172123%_ + _%hd171613172126%_ + _%tl171614172128%_)))) + (_%__match177994177995%_ + _%e171591172067%_ + _%hd171592172070%_ + _%tl171593172072%_ + _%e171594172075%_ + _%hd171595172078%_ + _%tl171596172080%_ + _%e171597172083%_ + _%hd171598172086%_ + _%tl171599172088%_ + _%e171600172091%_ + _%hd171601172094%_ + _%tl171602172096%_ + _%e171603172099%_ + _%hd171604172102%_ + _%tl171605172104%_ + _%e171606172107%_ + _%hd171607172110%_ + _%tl171608172112%_ + _%e171609172115%_ + _%hd171610172118%_ + _%tl171611172120%_ + _%e171612172123%_ + _%hd171613172126%_ + _%tl171614172128%_)) + (_%__match177994177995%_ + _%e171591172067%_ + _%hd171592172070%_ + _%tl171593172072%_ + _%e171594172075%_ + _%hd171595172078%_ + _%tl171596172080%_ + _%e171597172083%_ + _%hd171598172086%_ + _%tl171599172088%_ + _%e171600172091%_ + _%hd171601172094%_ + _%tl171602172096%_ + _%e171603172099%_ + _%hd171604172102%_ + _%tl171605172104%_ + _%e171606172107%_ + _%hd171607172110%_ + _%tl171608172112%_ + _%e171609172115%_ + _%hd171610172118%_ + _%tl171611172120%_ + _%e171612172123%_ + _%hd171613172126%_ + _%tl171614172128%_)))) + (_%__match177712177713%_ + (lambda (_%e171540172188%_ + _%hd171541172191%_ + _%tl171542172193%_ + _%e171543172196%_ + _%hd171544172199%_ + _%tl171545172201%_ + _%e171546172204%_ + _%hd171547172207%_ + _%tl171548172209%_ + _%e171549172212%_ + _%hd171550172215%_ + _%tl171551172217%_ + _%e171552172220%_ + _%hd171553172223%_ + _%tl171554172225%_ + _%e171555172228%_ + _%hd171556172231%_ + _%tl171557172233%_ + _%e171558172236%_ + _%hd171559172239%_ + _%tl171560172241%_ + _%e171561172244%_ + _%hd171562172247%_ + _%tl171563172249%_ + _%e171564172252%_ + _%hd171565172255%_ + _%tl171566172257%_ + _%e171567172260%_ + _%hd171568172263%_ + _%tl171569172265%_ + _%e171570172268%_ + _%hd171571172271%_ + _%tl171572172273%_ + _%e171573172276%_ + _%hd171574172279%_ + _%tl171575172281%_ + _%e171576172284%_ + _%hd171577172287%_ + _%tl171578172289%_ + _%__splice177505177506%_ + _%target171579172292%_ + _%tl171581172294%_) + (letrec ((_%loop171582172297%_ + (lambda (_%hd171580172300%_ + _%args171586172302%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171543172263%_)) - (let ((_%e171546172268%_ + (gx#stx-pair? _%hd171580172300%_)) + (let ((_%e171583172305%_ (let () (declare (not safe)) (gx#stx-e - _%hd171543172263%_)))) - (let ((_%lp-tl171548172273%_ + _%hd171580172300%_)))) + (let ((_%lp-tl171585172310%_ (let () (declare (not safe)) - (##cdr _%e171546172268%_))) - (_%lp-hd171547172271%_ + (##cdr _%e171583172305%_))) + (_%lp-hd171584172308%_ (let () (declare (not safe)) - (##car _%e171546172268%_)))) - (_%loop171545172260%_ - _%lp-tl171548172273%_ - (cons _%lp-hd171547172271%_ - _%args171549172265%_)))) - (let ((_%args171550172276%_ - (reverse _%args171549172265%_))) - (let ((_%L172279%_ - _%args171550172276%_) - (_%L172280%_ - _%hd171540172250%_) - (_%L172281%_ - _%hd171531172226%_) - (_%L172282%_ - _%hd171522172202%_) - (_%L172283%_ - _%hd171513172178%_)) + (##car _%e171583172305%_)))) + (_%loop171582172297%_ + _%lp-tl171585172310%_ + (cons _%lp-hd171584172308%_ + _%args171586172302%_)))) + (let ((_%args171587172313%_ + (reverse _%args171586172302%_))) + (let ((_%L172316%_ + _%args171587172313%_) + (_%L172317%_ + _%hd171577172287%_) + (_%L172318%_ + _%hd171568172263%_) + (_%L172319%_ + _%hd171559172239%_) + (_%L172320%_ + _%hd171550172215%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172283%_ + _%L172320%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172282%_ + _%L172319%_ 'call-method)) - (let ((__tmp178121 + (let ((__tmp178158 (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172281%_ - __tmp178121))) - (_%__kont177466177467%_ - _%L172279%_ - _%L172280%_ - _%L172281%_ - _%L172282%_ - _%L172283%_) - (_%__kont177478177479%_)))))))) - (_%loop171545172260%_ _%target171542172255%_ '())))) - (_%__match177633177634%_ - (lambda (_%e171503172151%_ - _%hd171504172154%_ - _%tl171505172156%_ - _%e171506172159%_ - _%hd171507172162%_ - _%tl171508172164%_ - _%e171509172167%_ - _%hd171510172170%_ - _%tl171511172172%_ - _%e171512172175%_ - _%hd171513172178%_ - _%tl171514172180%_ - _%e171515172183%_ - _%hd171516172186%_ - _%tl171517172188%_ - _%e171518172191%_ - _%hd171519172194%_ - _%tl171520172196%_ - _%e171521172199%_ - _%hd171522172202%_ - _%tl171523172204%_ - _%e171524172207%_ - _%hd171525172210%_ - _%tl171526172212%_ - _%e171527172215%_ - _%hd171528172218%_ - _%tl171529172220%_) + _%L172318%_ + __tmp178158))) + (_%__kont177503177504%_ + _%L172316%_ + _%L172317%_ + _%L172318%_ + _%L172319%_ + _%L172320%_) + (_%__kont177515177516%_)))))))) + (_%loop171582172297%_ _%target171579172292%_ '())))) + (_%__match177670177671%_ + (lambda (_%e171540172188%_ + _%hd171541172191%_ + _%tl171542172193%_ + _%e171543172196%_ + _%hd171544172199%_ + _%tl171545172201%_ + _%e171546172204%_ + _%hd171547172207%_ + _%tl171548172209%_ + _%e171549172212%_ + _%hd171550172215%_ + _%tl171551172217%_ + _%e171552172220%_ + _%hd171553172223%_ + _%tl171554172225%_ + _%e171555172228%_ + _%hd171556172231%_ + _%tl171557172233%_ + _%e171558172236%_ + _%hd171559172239%_ + _%tl171560172241%_ + _%e171561172244%_ + _%hd171562172247%_ + _%tl171563172249%_ + _%e171564172252%_ + _%hd171565172255%_ + _%tl171566172257%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171528172218%_)) + (gx#stx-eq? '%#ref _%hd171565172255%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171529172220%_)) - (let ((_%e171530172223%_ + (gx#stx-pair? _%tl171566172257%_)) + (let ((_%e171567172260%_ (let () (declare (not safe)) - (gx#stx-e _%tl171529172220%_)))) - (let ((_%tl171532172228%_ + (gx#stx-e _%tl171566172257%_)))) + (let ((_%tl171569172265%_ (let () (declare (not safe)) - (##cdr _%e171530172223%_))) - (_%hd171531172226%_ + (##cdr _%e171567172260%_))) + (_%hd171568172263%_ (let () (declare (not safe)) - (##car _%e171530172223%_)))) + (##car _%e171567172260%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171532172228%_)) + (gx#stx-null? _%tl171569172265%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171526172212%_)) - (let ((_%e171533172231%_ + _%tl171563172249%_)) + (let ((_%e171570172268%_ (let () (declare (not safe)) (gx#stx-e - _%tl171526172212%_)))) - (let ((_%tl171535172236%_ + _%tl171563172249%_)))) + (let ((_%tl171572172273%_ (let () (declare (not safe)) - (##cdr _%e171533172231%_))) - (_%hd171534172234%_ + (##cdr _%e171570172268%_))) + (_%hd171571172271%_ (let () (declare (not safe)) - (##car _%e171533172231%_)))) + (##car _%e171570172268%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171534172234%_)) - (let ((_%e171536172239%_ + _%hd171571172271%_)) + (let ((_%e171573172276%_ (let () (declare (not safe)) (gx#stx-e - _%hd171534172234%_)))) - (let ((_%tl171538172244%_ + _%hd171571172271%_)))) + (let ((_%tl171575172281%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e171536172239%_))) - (_%hd171537172242%_ - (let () (declare (not safe)) (##car _%e171536172239%_)))) + (##cdr _%e171573172276%_))) + (_%hd171574172279%_ + (let () (declare (not safe)) (##car _%e171573172276%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171537172242%_)) + (gx#identifier? _%hd171574172279%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171537172242%_)) + (gx#stx-eq? '%#quote _%hd171574172279%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171538172244%_)) - (let ((_%e171539172247%_ + (gx#stx-pair? _%tl171575172281%_)) + (let ((_%e171576172284%_ (let () (declare (not safe)) - (gx#stx-e _%tl171538172244%_)))) - (let ((_%tl171541172252%_ + (gx#stx-e _%tl171575172281%_)))) + (let ((_%tl171578172289%_ (let () (declare (not safe)) - (##cdr _%e171539172247%_))) - (_%hd171540172250%_ + (##cdr _%e171576172284%_))) + (_%hd171577172287%_ (let () (declare (not safe)) - (##car _%e171539172247%_)))) + (##car _%e171576172284%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171541172252%_)) + (gx#stx-null? _%tl171578172289%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171535172236%_)) - (let ((_%__splice177468177469%_ + _%tl171572172273%_)) + (let ((_%__splice177505177506%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl171535172236%_ + _%tl171572172273%_ '0)))) - (let ((_%tl171544172257%_ + (let ((_%tl171581172294%_ (let () (declare (not safe)) (##vector-ref - _%__splice177468177469%_ + _%__splice177505177506%_ '1))) - (_%target171542172255%_ + (_%target171579172292%_ (let () (declare (not safe)) (##vector-ref - _%__splice177468177469%_ + _%__splice177505177506%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171544172257%_)) - (_%__match177675177676%_ - _%e171503172151%_ - _%hd171504172154%_ - _%tl171505172156%_ - _%e171506172159%_ - _%hd171507172162%_ - _%tl171508172164%_ - _%e171509172167%_ - _%hd171510172170%_ - _%tl171511172172%_ - _%e171512172175%_ - _%hd171513172178%_ - _%tl171514172180%_ - _%e171515172183%_ - _%hd171516172186%_ - _%tl171517172188%_ - _%e171518172191%_ - _%hd171519172194%_ - _%tl171520172196%_ - _%e171521172199%_ - _%hd171522172202%_ - _%tl171523172204%_ - _%e171524172207%_ - _%hd171525172210%_ - _%tl171526172212%_ - _%e171527172215%_ - _%hd171528172218%_ - _%tl171529172220%_ - _%e171530172223%_ - _%hd171531172226%_ - _%tl171532172228%_ - _%e171533172231%_ - _%hd171534172234%_ - _%tl171535172236%_ - _%e171536172239%_ - _%hd171537172242%_ - _%tl171538172244%_ - _%e171539172247%_ - _%hd171540172250%_ - _%tl171541172252%_ - _%__splice177468177469%_ - _%target171542172255%_ - _%tl171544172257%_) - (_%__kont177478177479%_)))) - (_%__kont177478177479%_)) - (_%__kont177478177479%_)))) - (_%__kont177478177479%_)) - (_%__kont177478177479%_)) - (_%__kont177478177479%_)))) + _%tl171581172294%_)) + (_%__match177712177713%_ + _%e171540172188%_ + _%hd171541172191%_ + _%tl171542172193%_ + _%e171543172196%_ + _%hd171544172199%_ + _%tl171545172201%_ + _%e171546172204%_ + _%hd171547172207%_ + _%tl171548172209%_ + _%e171549172212%_ + _%hd171550172215%_ + _%tl171551172217%_ + _%e171552172220%_ + _%hd171553172223%_ + _%tl171554172225%_ + _%e171555172228%_ + _%hd171556172231%_ + _%tl171557172233%_ + _%e171558172236%_ + _%hd171559172239%_ + _%tl171560172241%_ + _%e171561172244%_ + _%hd171562172247%_ + _%tl171563172249%_ + _%e171564172252%_ + _%hd171565172255%_ + _%tl171566172257%_ + _%e171567172260%_ + _%hd171568172263%_ + _%tl171569172265%_ + _%e171570172268%_ + _%hd171571172271%_ + _%tl171572172273%_ + _%e171573172276%_ + _%hd171574172279%_ + _%tl171575172281%_ + _%e171576172284%_ + _%hd171577172287%_ + _%tl171578172289%_ + _%__splice177505177506%_ + _%target171579172292%_ + _%tl171581172294%_) + (_%__kont177515177516%_)))) + (_%__kont177515177516%_)) + (_%__kont177515177516%_)))) + (_%__kont177515177516%_)) + (_%__kont177515177516%_)) + (_%__kont177515177516%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177478177479%_)))) - (_%__match177957177958%_ - _%e171503172151%_ - _%hd171504172154%_ - _%tl171505172156%_ - _%e171506172159%_ - _%hd171507172162%_ - _%tl171508172164%_ - _%e171509172167%_ - _%hd171510172170%_ - _%tl171511172172%_ - _%e171512172175%_ - _%hd171513172178%_ - _%tl171514172180%_ - _%e171515172183%_ - _%hd171516172186%_ - _%tl171517172188%_ - _%e171518172191%_ - _%hd171519172194%_ - _%tl171520172196%_ - _%e171521172199%_ - _%hd171522172202%_ - _%tl171523172204%_ - _%e171524172207%_ - _%hd171525172210%_ - _%tl171526172212%_)) - (_%__match177957177958%_ - _%e171503172151%_ - _%hd171504172154%_ - _%tl171505172156%_ - _%e171506172159%_ - _%hd171507172162%_ - _%tl171508172164%_ - _%e171509172167%_ - _%hd171510172170%_ - _%tl171511172172%_ - _%e171512172175%_ - _%hd171513172178%_ - _%tl171514172180%_ - _%e171515172183%_ - _%hd171516172186%_ - _%tl171517172188%_ - _%e171518172191%_ - _%hd171519172194%_ - _%tl171520172196%_ - _%e171521172199%_ - _%hd171522172202%_ - _%tl171523172204%_ - _%e171524172207%_ - _%hd171525172210%_ - _%tl171526172212%_)))) - (_%__match177957177958%_ - _%e171503172151%_ - _%hd171504172154%_ - _%tl171505172156%_ - _%e171506172159%_ - _%hd171507172162%_ - _%tl171508172164%_ - _%e171509172167%_ - _%hd171510172170%_ - _%tl171511172172%_ - _%e171512172175%_ - _%hd171513172178%_ - _%tl171514172180%_ - _%e171515172183%_ - _%hd171516172186%_ - _%tl171517172188%_ - _%e171518172191%_ - _%hd171519172194%_ - _%tl171520172196%_ - _%e171521172199%_ - _%hd171522172202%_ - _%tl171523172204%_ - _%e171524172207%_ - _%hd171525172210%_ - _%tl171526172212%_)) - (_%__match177743177744%_ - _%e171503172151%_ - _%hd171504172154%_ - _%tl171505172156%_ - _%e171506172159%_ - _%hd171507172162%_ - _%tl171508172164%_ - _%e171509172167%_ - _%hd171510172170%_ - _%tl171511172172%_ - _%e171512172175%_ - _%hd171513172178%_ - _%tl171514172180%_ - _%e171515172183%_ - _%hd171516172186%_ - _%tl171517172188%_ - _%e171518172191%_ - _%hd171519172194%_ - _%tl171520172196%_ - _%e171521172199%_ - _%hd171522172202%_ - _%tl171523172204%_ - _%e171524172207%_ - _%hd171525172210%_ - _%tl171526172212%_ - _%e171527172215%_ - _%hd171528172218%_ - _%tl171529172220%_)))) - (_%__match177565177566%_ - (lambda (_%e171459172343%_ - _%hd171460172346%_ - _%tl171461172348%_ - _%e171462172351%_ - _%hd171463172354%_ - _%tl171464172356%_ - _%e171465172359%_ - _%hd171466172362%_ - _%tl171467172364%_ - _%e171468172367%_ - _%hd171469172370%_ - _%tl171470172372%_ - _%e171471172375%_ - _%hd171472172378%_ - _%tl171473172380%_ - _%e171474172383%_ - _%hd171475172386%_ - _%tl171476172388%_ - _%e171477172391%_ - _%hd171478172394%_ - _%tl171479172396%_ - _%e171480172399%_ - _%hd171481172402%_ - _%tl171482172404%_ - _%e171483172407%_ - _%hd171484172410%_ - _%tl171485172412%_ - _%e171486172415%_ - _%hd171487172418%_ - _%tl171488172420%_ - _%__splice177464177465%_ - _%target171489172423%_ - _%tl171491172425%_) - (letrec ((_%loop171492172428%_ - (lambda (_%hd171490172431%_ - _%args171496172433%_) + (_%__kont177515177516%_)))) + (_%__match177994177995%_ + _%e171540172188%_ + _%hd171541172191%_ + _%tl171542172193%_ + _%e171543172196%_ + _%hd171544172199%_ + _%tl171545172201%_ + _%e171546172204%_ + _%hd171547172207%_ + _%tl171548172209%_ + _%e171549172212%_ + _%hd171550172215%_ + _%tl171551172217%_ + _%e171552172220%_ + _%hd171553172223%_ + _%tl171554172225%_ + _%e171555172228%_ + _%hd171556172231%_ + _%tl171557172233%_ + _%e171558172236%_ + _%hd171559172239%_ + _%tl171560172241%_ + _%e171561172244%_ + _%hd171562172247%_ + _%tl171563172249%_)) + (_%__match177994177995%_ + _%e171540172188%_ + _%hd171541172191%_ + _%tl171542172193%_ + _%e171543172196%_ + _%hd171544172199%_ + _%tl171545172201%_ + _%e171546172204%_ + _%hd171547172207%_ + _%tl171548172209%_ + _%e171549172212%_ + _%hd171550172215%_ + _%tl171551172217%_ + _%e171552172220%_ + _%hd171553172223%_ + _%tl171554172225%_ + _%e171555172228%_ + _%hd171556172231%_ + _%tl171557172233%_ + _%e171558172236%_ + _%hd171559172239%_ + _%tl171560172241%_ + _%e171561172244%_ + _%hd171562172247%_ + _%tl171563172249%_)))) + (_%__match177994177995%_ + _%e171540172188%_ + _%hd171541172191%_ + _%tl171542172193%_ + _%e171543172196%_ + _%hd171544172199%_ + _%tl171545172201%_ + _%e171546172204%_ + _%hd171547172207%_ + _%tl171548172209%_ + _%e171549172212%_ + _%hd171550172215%_ + _%tl171551172217%_ + _%e171552172220%_ + _%hd171553172223%_ + _%tl171554172225%_ + _%e171555172228%_ + _%hd171556172231%_ + _%tl171557172233%_ + _%e171558172236%_ + _%hd171559172239%_ + _%tl171560172241%_ + _%e171561172244%_ + _%hd171562172247%_ + _%tl171563172249%_)) + (_%__match177780177781%_ + _%e171540172188%_ + _%hd171541172191%_ + _%tl171542172193%_ + _%e171543172196%_ + _%hd171544172199%_ + _%tl171545172201%_ + _%e171546172204%_ + _%hd171547172207%_ + _%tl171548172209%_ + _%e171549172212%_ + _%hd171550172215%_ + _%tl171551172217%_ + _%e171552172220%_ + _%hd171553172223%_ + _%tl171554172225%_ + _%e171555172228%_ + _%hd171556172231%_ + _%tl171557172233%_ + _%e171558172236%_ + _%hd171559172239%_ + _%tl171560172241%_ + _%e171561172244%_ + _%hd171562172247%_ + _%tl171563172249%_ + _%e171564172252%_ + _%hd171565172255%_ + _%tl171566172257%_)))) + (_%__match177602177603%_ + (lambda (_%e171496172380%_ + _%hd171497172383%_ + _%tl171498172385%_ + _%e171499172388%_ + _%hd171500172391%_ + _%tl171501172393%_ + _%e171502172396%_ + _%hd171503172399%_ + _%tl171504172401%_ + _%e171505172404%_ + _%hd171506172407%_ + _%tl171507172409%_ + _%e171508172412%_ + _%hd171509172415%_ + _%tl171510172417%_ + _%e171511172420%_ + _%hd171512172423%_ + _%tl171513172425%_ + _%e171514172428%_ + _%hd171515172431%_ + _%tl171516172433%_ + _%e171517172436%_ + _%hd171518172439%_ + _%tl171519172441%_ + _%e171520172444%_ + _%hd171521172447%_ + _%tl171522172449%_ + _%e171523172452%_ + _%hd171524172455%_ + _%tl171525172457%_ + _%__splice177501177502%_ + _%target171526172460%_ + _%tl171528172462%_) + (letrec ((_%loop171529172465%_ + (lambda (_%hd171527172468%_ + _%args171533172470%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171490172431%_)) - (let ((_%e171493172436%_ + (gx#stx-pair? _%hd171527172468%_)) + (let ((_%e171530172473%_ (let () (declare (not safe)) (gx#stx-e - _%hd171490172431%_)))) - (let ((_%lp-tl171495172441%_ + _%hd171527172468%_)))) + (let ((_%lp-tl171532172478%_ (let () (declare (not safe)) - (##cdr _%e171493172436%_))) - (_%lp-hd171494172439%_ + (##cdr _%e171530172473%_))) + (_%lp-hd171531172476%_ (let () (declare (not safe)) - (##car _%e171493172436%_)))) - (_%loop171492172428%_ - _%lp-tl171495172441%_ - (cons _%lp-hd171494172439%_ - _%args171496172433%_)))) - (let ((_%args171497172444%_ - (reverse _%args171496172433%_))) - (let ((_%L172447%_ - _%args171497172444%_) - (_%L172448%_ - _%hd171487172418%_) - (_%L172449%_ - _%hd171478172394%_) - (_%L172450%_ - _%hd171469172370%_)) + (##car _%e171530172473%_)))) + (_%loop171529172465%_ + _%lp-tl171532172478%_ + (cons _%lp-hd171531172476%_ + _%args171533172470%_)))) + (let ((_%args171534172481%_ + (reverse _%args171533172470%_))) + (let ((_%L172484%_ + _%args171534172481%_) + (_%L172485%_ + _%hd171524172455%_) + (_%L172486%_ + _%hd171515172431%_) + (_%L172487%_ + _%hd171506172407%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172450%_ + _%L172487%_ 'call-method)) - (let ((__tmp178122 + (let ((__tmp178159 (let () (declare (not safe)) (slot-ref__0 - _%self171442%_ + _%self171479%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172449%_ - __tmp178122))) - (_%__kont177462177463%_ - _%L172447%_ - _%L172448%_ - _%L172449%_ - _%L172450%_) - (_%__match177753177754%_ - _%e171459172343%_ - _%hd171460172346%_ - _%tl171461172348%_ - _%e171462172351%_ - _%hd171463172354%_ - _%tl171464172356%_ - _%e171465172359%_ - _%hd171466172362%_ - _%tl171467172364%_ - _%e171468172367%_ - _%hd171469172370%_ - _%tl171470172372%_ - _%e171471172375%_ - _%hd171472172378%_ - _%tl171473172380%_ - _%e171474172383%_ - _%hd171475172386%_ - _%tl171476172388%_ - _%e171477172391%_ - _%hd171478172394%_ - _%tl171479172396%_ - _%e171480172399%_ - _%hd171481172402%_ - _%tl171482172404%_ - _%e171483172407%_ - _%hd171484172410%_ - _%tl171485172412%_ - _%e171486172415%_ - _%hd171487172418%_ - _%tl171488172420%_)))))))) - (_%loop171492172428%_ _%target171489172423%_ '()))))) + _%L172486%_ + __tmp178159))) + (_%__kont177499177500%_ + _%L172484%_ + _%L172485%_ + _%L172486%_ + _%L172487%_) + (_%__match177790177791%_ + _%e171496172380%_ + _%hd171497172383%_ + _%tl171498172385%_ + _%e171499172388%_ + _%hd171500172391%_ + _%tl171501172393%_ + _%e171502172396%_ + _%hd171503172399%_ + _%tl171504172401%_ + _%e171505172404%_ + _%hd171506172407%_ + _%tl171507172409%_ + _%e171508172412%_ + _%hd171509172415%_ + _%tl171510172417%_ + _%e171511172420%_ + _%hd171512172423%_ + _%tl171513172425%_ + _%e171514172428%_ + _%hd171515172431%_ + _%tl171516172433%_ + _%e171517172436%_ + _%hd171518172439%_ + _%tl171519172441%_ + _%e171520172444%_ + _%hd171521172447%_ + _%tl171522172449%_ + _%e171523172452%_ + _%hd171524172455%_ + _%tl171525172457%_)))))))) + (_%loop171529172465%_ _%target171526172460%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177460177461%_)) - (let ((_%e171459172343%_ + (gx#stx-pair? _%__stx177497177498%_)) + (let ((_%e171496172380%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177460177461%_)))) - (let ((_%tl171461172348%_ + (gx#stx-e _%__stx177497177498%_)))) + (let ((_%tl171498172385%_ (let () (declare (not safe)) - (##cdr _%e171459172343%_))) - (_%hd171460172346%_ + (##cdr _%e171496172380%_))) + (_%hd171497172383%_ (let () (declare (not safe)) - (##car _%e171459172343%_)))) + (##car _%e171496172380%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171461172348%_)) - (let ((_%e171462172351%_ + (gx#stx-pair? _%tl171498172385%_)) + (let ((_%e171499172388%_ (let () (declare (not safe)) - (gx#stx-e _%tl171461172348%_)))) - (let ((_%tl171464172356%_ + (gx#stx-e _%tl171498172385%_)))) + (let ((_%tl171501172393%_ (let () (declare (not safe)) - (##cdr _%e171462172351%_))) - (_%hd171463172354%_ + (##cdr _%e171499172388%_))) + (_%hd171500172391%_ (let () (declare (not safe)) - (##car _%e171462172351%_)))) + (##car _%e171499172388%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171463172354%_)) - (let ((_%e171465172359%_ + (gx#stx-pair? _%hd171500172391%_)) + (let ((_%e171502172396%_ (let () (declare (not safe)) - (gx#stx-e _%hd171463172354%_)))) - (let ((_%tl171467172364%_ + (gx#stx-e _%hd171500172391%_)))) + (let ((_%tl171504172401%_ (let () (declare (not safe)) - (##cdr _%e171465172359%_))) - (_%hd171466172362%_ + (##cdr _%e171502172396%_))) + (_%hd171503172399%_ (let () (declare (not safe)) - (##car _%e171465172359%_)))) + (##car _%e171502172396%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171466172362%_)) + _%hd171503172399%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171466172362%_)) + _%hd171503172399%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171467172364%_)) - (let ((_%e171468172367%_ + _%tl171504172401%_)) + (let ((_%e171505172404%_ (let () (declare (not safe)) (gx#stx-e - _%tl171467172364%_)))) - (let ((_%tl171470172372%_ + _%tl171504172401%_)))) + (let ((_%tl171507172409%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e171468172367%_))) - (_%hd171469172370%_ - (let () (declare (not safe)) (##car _%e171468172367%_)))) + (##cdr _%e171505172404%_))) + (_%hd171506172407%_ + (let () (declare (not safe)) (##car _%e171505172404%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171470172372%_)) + (gx#stx-null? _%tl171507172409%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171464172356%_)) - (let ((_%e171471172375%_ + (gx#stx-pair? _%tl171501172393%_)) + (let ((_%e171508172412%_ (let () (declare (not safe)) - (gx#stx-e _%tl171464172356%_)))) - (let ((_%tl171473172380%_ + (gx#stx-e _%tl171501172393%_)))) + (let ((_%tl171510172417%_ (let () (declare (not safe)) - (##cdr _%e171471172375%_))) - (_%hd171472172378%_ + (##cdr _%e171508172412%_))) + (_%hd171509172415%_ (let () (declare (not safe)) - (##car _%e171471172375%_)))) + (##car _%e171508172412%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171472172378%_)) - (let ((_%e171474172383%_ + (gx#stx-pair? _%hd171509172415%_)) + (let ((_%e171511172420%_ (let () (declare (not safe)) - (gx#stx-e _%hd171472172378%_)))) - (let ((_%tl171476172388%_ + (gx#stx-e _%hd171509172415%_)))) + (let ((_%tl171513172425%_ (let () (declare (not safe)) - (##cdr _%e171474172383%_))) - (_%hd171475172386%_ + (##cdr _%e171511172420%_))) + (_%hd171512172423%_ (let () (declare (not safe)) - (##car _%e171474172383%_)))) + (##car _%e171511172420%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171475172386%_)) + (gx#identifier? _%hd171512172423%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171475172386%_)) + _%hd171512172423%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171476172388%_)) - (let ((_%e171477172391%_ + _%tl171513172425%_)) + (let ((_%e171514172428%_ (let () (declare (not safe)) (gx#stx-e - _%tl171476172388%_)))) - (let ((_%tl171479172396%_ + _%tl171513172425%_)))) + (let ((_%tl171516172433%_ (let () (declare (not safe)) - (##cdr _%e171477172391%_))) - (_%hd171478172394%_ + (##cdr _%e171514172428%_))) + (_%hd171515172431%_ (let () (declare (not safe)) - (##car _%e171477172391%_)))) + (##car _%e171514172428%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171479172396%_)) + _%tl171516172433%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171473172380%_)) - (let ((_%e171480172399%_ + _%tl171510172417%_)) + (let ((_%e171517172436%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl171473172380%_)))) - (let ((_%tl171482172404%_ + (gx#stx-e _%tl171510172417%_)))) + (let ((_%tl171519172441%_ (let () (declare (not safe)) - (##cdr _%e171480172399%_))) - (_%hd171481172402%_ + (##cdr _%e171517172436%_))) + (_%hd171518172439%_ (let () (declare (not safe)) - (##car _%e171480172399%_)))) + (##car _%e171517172436%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171481172402%_)) - (let ((_%e171483172407%_ + (gx#stx-pair? _%hd171518172439%_)) + (let ((_%e171520172444%_ (let () (declare (not safe)) - (gx#stx-e _%hd171481172402%_)))) - (let ((_%tl171485172412%_ + (gx#stx-e _%hd171518172439%_)))) + (let ((_%tl171522172449%_ (let () (declare (not safe)) - (##cdr _%e171483172407%_))) - (_%hd171484172410%_ + (##cdr _%e171520172444%_))) + (_%hd171521172447%_ (let () (declare (not safe)) - (##car _%e171483172407%_)))) + (##car _%e171520172444%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171484172410%_)) + (gx#identifier? _%hd171521172447%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd171484172410%_)) + _%hd171521172447%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171485172412%_)) - (let ((_%e171486172415%_ + _%tl171522172449%_)) + (let ((_%e171523172452%_ (let () (declare (not safe)) (gx#stx-e - _%tl171485172412%_)))) - (let ((_%tl171488172420%_ + _%tl171522172449%_)))) + (let ((_%tl171525172457%_ (let () (declare (not safe)) - (##cdr _%e171486172415%_))) - (_%hd171487172418%_ + (##cdr _%e171523172452%_))) + (_%hd171524172455%_ (let () (declare (not safe)) - (##car _%e171486172415%_)))) + (##car _%e171523172452%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171488172420%_)) + _%tl171525172457%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171482172404%_)) - (let ((_%__splice177464177465%_ + _%tl171519172441%_)) + (let ((_%__splice177501177502%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl171482172404%_ '0)))) - (let ((_%tl171491172425%_ + (gx#syntax-split-splice _%tl171519172441%_ '0)))) + (let ((_%tl171528172462%_ (let () (declare (not safe)) - (##vector-ref _%__splice177464177465%_ '1))) - (_%target171489172423%_ + (##vector-ref _%__splice177501177502%_ '1))) + (_%target171526172460%_ (let () (declare (not safe)) - (##vector-ref _%__splice177464177465%_ '0)))) + (##vector-ref _%__splice177501177502%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171491172425%_)) - (_%__match177565177566%_ - _%e171459172343%_ - _%hd171460172346%_ - _%tl171461172348%_ - _%e171462172351%_ - _%hd171463172354%_ - _%tl171464172356%_ - _%e171465172359%_ - _%hd171466172362%_ - _%tl171467172364%_ - _%e171468172367%_ - _%hd171469172370%_ - _%tl171470172372%_ - _%e171471172375%_ - _%hd171472172378%_ - _%tl171473172380%_ - _%e171474172383%_ - _%hd171475172386%_ - _%tl171476172388%_ - _%e171477172391%_ - _%hd171478172394%_ - _%tl171479172396%_ - _%e171480172399%_ - _%hd171481172402%_ - _%tl171482172404%_ - _%e171483172407%_ - _%hd171484172410%_ - _%tl171485172412%_ - _%e171486172415%_ - _%hd171487172418%_ - _%tl171488172420%_ - _%__splice177464177465%_ - _%target171489172423%_ - _%tl171491172425%_) - (_%__match177753177754%_ - _%e171459172343%_ - _%hd171460172346%_ - _%tl171461172348%_ - _%e171462172351%_ - _%hd171463172354%_ - _%tl171464172356%_ - _%e171465172359%_ - _%hd171466172362%_ - _%tl171467172364%_ - _%e171468172367%_ - _%hd171469172370%_ - _%tl171470172372%_ - _%e171471172375%_ - _%hd171472172378%_ - _%tl171473172380%_ - _%e171474172383%_ - _%hd171475172386%_ - _%tl171476172388%_ - _%e171477172391%_ - _%hd171478172394%_ - _%tl171479172396%_ - _%e171480172399%_ - _%hd171481172402%_ - _%tl171482172404%_ - _%e171483172407%_ - _%hd171484172410%_ - _%tl171485172412%_ - _%e171486172415%_ - _%hd171487172418%_ - _%tl171488172420%_)))) - (_%__match177753177754%_ - _%e171459172343%_ - _%hd171460172346%_ - _%tl171461172348%_ - _%e171462172351%_ - _%hd171463172354%_ - _%tl171464172356%_ - _%e171465172359%_ - _%hd171466172362%_ - _%tl171467172364%_ - _%e171468172367%_ - _%hd171469172370%_ - _%tl171470172372%_ - _%e171471172375%_ - _%hd171472172378%_ - _%tl171473172380%_ - _%e171474172383%_ - _%hd171475172386%_ - _%tl171476172388%_ - _%e171477172391%_ - _%hd171478172394%_ - _%tl171479172396%_ - _%e171480172399%_ - _%hd171481172402%_ - _%tl171482172404%_ - _%e171483172407%_ - _%hd171484172410%_ - _%tl171485172412%_ - _%e171486172415%_ - _%hd171487172418%_ - _%tl171488172420%_)) + (gx#stx-null? _%tl171528172462%_)) + (_%__match177602177603%_ + _%e171496172380%_ + _%hd171497172383%_ + _%tl171498172385%_ + _%e171499172388%_ + _%hd171500172391%_ + _%tl171501172393%_ + _%e171502172396%_ + _%hd171503172399%_ + _%tl171504172401%_ + _%e171505172404%_ + _%hd171506172407%_ + _%tl171507172409%_ + _%e171508172412%_ + _%hd171509172415%_ + _%tl171510172417%_ + _%e171511172420%_ + _%hd171512172423%_ + _%tl171513172425%_ + _%e171514172428%_ + _%hd171515172431%_ + _%tl171516172433%_ + _%e171517172436%_ + _%hd171518172439%_ + _%tl171519172441%_ + _%e171520172444%_ + _%hd171521172447%_ + _%tl171522172449%_ + _%e171523172452%_ + _%hd171524172455%_ + _%tl171525172457%_ + _%__splice177501177502%_ + _%target171526172460%_ + _%tl171528172462%_) + (_%__match177790177791%_ + _%e171496172380%_ + _%hd171497172383%_ + _%tl171498172385%_ + _%e171499172388%_ + _%hd171500172391%_ + _%tl171501172393%_ + _%e171502172396%_ + _%hd171503172399%_ + _%tl171504172401%_ + _%e171505172404%_ + _%hd171506172407%_ + _%tl171507172409%_ + _%e171508172412%_ + _%hd171509172415%_ + _%tl171510172417%_ + _%e171511172420%_ + _%hd171512172423%_ + _%tl171513172425%_ + _%e171514172428%_ + _%hd171515172431%_ + _%tl171516172433%_ + _%e171517172436%_ + _%hd171518172439%_ + _%tl171519172441%_ + _%e171520172444%_ + _%hd171521172447%_ + _%tl171522172449%_ + _%e171523172452%_ + _%hd171524172455%_ + _%tl171525172457%_)))) + (_%__match177790177791%_ + _%e171496172380%_ + _%hd171497172383%_ + _%tl171498172385%_ + _%e171499172388%_ + _%hd171500172391%_ + _%tl171501172393%_ + _%e171502172396%_ + _%hd171503172399%_ + _%tl171504172401%_ + _%e171505172404%_ + _%hd171506172407%_ + _%tl171507172409%_ + _%e171508172412%_ + _%hd171509172415%_ + _%tl171510172417%_ + _%e171511172420%_ + _%hd171512172423%_ + _%tl171513172425%_ + _%e171514172428%_ + _%hd171515172431%_ + _%tl171516172433%_ + _%e171517172436%_ + _%hd171518172439%_ + _%tl171519172441%_ + _%e171520172444%_ + _%hd171521172447%_ + _%tl171522172449%_ + _%e171523172452%_ + _%hd171524172455%_ + _%tl171525172457%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177957177958%_ - _%e171459172343%_ - _%hd171460172346%_ - _%tl171461172348%_ - _%e171462172351%_ - _%hd171463172354%_ - _%tl171464172356%_ - _%e171465172359%_ - _%hd171466172362%_ - _%tl171467172364%_ - _%e171468172367%_ - _%hd171469172370%_ - _%tl171470172372%_ - _%e171471172375%_ - _%hd171472172378%_ - _%tl171473172380%_ - _%e171474172383%_ - _%hd171475172386%_ - _%tl171476172388%_ - _%e171477172391%_ - _%hd171478172394%_ - _%tl171479172396%_ - _%e171480172399%_ - _%hd171481172402%_ - _%tl171482172404%_)))) - (_%__match177957177958%_ - _%e171459172343%_ - _%hd171460172346%_ - _%tl171461172348%_ - _%e171462172351%_ - _%hd171463172354%_ - _%tl171464172356%_ - _%e171465172359%_ - _%hd171466172362%_ - _%tl171467172364%_ - _%e171468172367%_ - _%hd171469172370%_ - _%tl171470172372%_ - _%e171471172375%_ - _%hd171472172378%_ - _%tl171473172380%_ - _%e171474172383%_ - _%hd171475172386%_ - _%tl171476172388%_ - _%e171477172391%_ - _%hd171478172394%_ - _%tl171479172396%_ - _%e171480172399%_ - _%hd171481172402%_ - _%tl171482172404%_)) - (_%__match177633177634%_ - _%e171459172343%_ - _%hd171460172346%_ - _%tl171461172348%_ - _%e171462172351%_ - _%hd171463172354%_ - _%tl171464172356%_ - _%e171465172359%_ - _%hd171466172362%_ - _%tl171467172364%_ - _%e171468172367%_ - _%hd171469172370%_ - _%tl171470172372%_ - _%e171471172375%_ - _%hd171472172378%_ - _%tl171473172380%_ - _%e171474172383%_ - _%hd171475172386%_ - _%tl171476172388%_ - _%e171477172391%_ - _%hd171478172394%_ - _%tl171479172396%_ - _%e171480172399%_ - _%hd171481172402%_ - _%tl171482172404%_ - _%e171483172407%_ - _%hd171484172410%_ - _%tl171485172412%_)) - (_%__match177957177958%_ - _%e171459172343%_ - _%hd171460172346%_ - _%tl171461172348%_ - _%e171462172351%_ - _%hd171463172354%_ - _%tl171464172356%_ - _%e171465172359%_ - _%hd171466172362%_ - _%tl171467172364%_ - _%e171468172367%_ - _%hd171469172370%_ - _%tl171470172372%_ - _%e171471172375%_ - _%hd171472172378%_ - _%tl171473172380%_ - _%e171474172383%_ - _%hd171475172386%_ - _%tl171476172388%_ - _%e171477172391%_ - _%hd171478172394%_ - _%tl171479172396%_ - _%e171480172399%_ - _%hd171481172402%_ - _%tl171482172404%_)))) - (_%__match177957177958%_ - _%e171459172343%_ - _%hd171460172346%_ - _%tl171461172348%_ - _%e171462172351%_ - _%hd171463172354%_ - _%tl171464172356%_ - _%e171465172359%_ - _%hd171466172362%_ - _%tl171467172364%_ - _%e171468172367%_ - _%hd171469172370%_ - _%tl171470172372%_ - _%e171471172375%_ - _%hd171472172378%_ - _%tl171473172380%_ - _%e171474172383%_ - _%hd171475172386%_ - _%tl171476172388%_ - _%e171477172391%_ - _%hd171478172394%_ - _%tl171479172396%_ - _%e171480172399%_ - _%hd171481172402%_ - _%tl171482172404%_)))) - (_%__match177895177896%_ - _%e171459172343%_ - _%hd171460172346%_ - _%tl171461172348%_ - _%e171462172351%_ - _%hd171463172354%_ - _%tl171464172356%_ - _%e171465172359%_ - _%hd171466172362%_ - _%tl171467172364%_ - _%e171468172367%_ - _%hd171469172370%_ - _%tl171470172372%_ - _%e171471172375%_ - _%hd171472172378%_ - _%tl171473172380%_ - _%e171474172383%_ - _%hd171475172386%_ - _%tl171476172388%_ - _%e171477172391%_ - _%hd171478172394%_ - _%tl171479172396%_)) - (_%__kont177478177479%_)))) + (_%__match177994177995%_ + _%e171496172380%_ + _%hd171497172383%_ + _%tl171498172385%_ + _%e171499172388%_ + _%hd171500172391%_ + _%tl171501172393%_ + _%e171502172396%_ + _%hd171503172399%_ + _%tl171504172401%_ + _%e171505172404%_ + _%hd171506172407%_ + _%tl171507172409%_ + _%e171508172412%_ + _%hd171509172415%_ + _%tl171510172417%_ + _%e171511172420%_ + _%hd171512172423%_ + _%tl171513172425%_ + _%e171514172428%_ + _%hd171515172431%_ + _%tl171516172433%_ + _%e171517172436%_ + _%hd171518172439%_ + _%tl171519172441%_)))) + (_%__match177994177995%_ + _%e171496172380%_ + _%hd171497172383%_ + _%tl171498172385%_ + _%e171499172388%_ + _%hd171500172391%_ + _%tl171501172393%_ + _%e171502172396%_ + _%hd171503172399%_ + _%tl171504172401%_ + _%e171505172404%_ + _%hd171506172407%_ + _%tl171507172409%_ + _%e171508172412%_ + _%hd171509172415%_ + _%tl171510172417%_ + _%e171511172420%_ + _%hd171512172423%_ + _%tl171513172425%_ + _%e171514172428%_ + _%hd171515172431%_ + _%tl171516172433%_ + _%e171517172436%_ + _%hd171518172439%_ + _%tl171519172441%_)) + (_%__match177670177671%_ + _%e171496172380%_ + _%hd171497172383%_ + _%tl171498172385%_ + _%e171499172388%_ + _%hd171500172391%_ + _%tl171501172393%_ + _%e171502172396%_ + _%hd171503172399%_ + _%tl171504172401%_ + _%e171505172404%_ + _%hd171506172407%_ + _%tl171507172409%_ + _%e171508172412%_ + _%hd171509172415%_ + _%tl171510172417%_ + _%e171511172420%_ + _%hd171512172423%_ + _%tl171513172425%_ + _%e171514172428%_ + _%hd171515172431%_ + _%tl171516172433%_ + _%e171517172436%_ + _%hd171518172439%_ + _%tl171519172441%_ + _%e171520172444%_ + _%hd171521172447%_ + _%tl171522172449%_)) + (_%__match177994177995%_ + _%e171496172380%_ + _%hd171497172383%_ + _%tl171498172385%_ + _%e171499172388%_ + _%hd171500172391%_ + _%tl171501172393%_ + _%e171502172396%_ + _%hd171503172399%_ + _%tl171504172401%_ + _%e171505172404%_ + _%hd171506172407%_ + _%tl171507172409%_ + _%e171508172412%_ + _%hd171509172415%_ + _%tl171510172417%_ + _%e171511172420%_ + _%hd171512172423%_ + _%tl171513172425%_ + _%e171514172428%_ + _%hd171515172431%_ + _%tl171516172433%_ + _%e171517172436%_ + _%hd171518172439%_ + _%tl171519172441%_)))) + (_%__match177994177995%_ + _%e171496172380%_ + _%hd171497172383%_ + _%tl171498172385%_ + _%e171499172388%_ + _%hd171500172391%_ + _%tl171501172393%_ + _%e171502172396%_ + _%hd171503172399%_ + _%tl171504172401%_ + _%e171505172404%_ + _%hd171506172407%_ + _%tl171507172409%_ + _%e171508172412%_ + _%hd171509172415%_ + _%tl171510172417%_ + _%e171511172420%_ + _%hd171512172423%_ + _%tl171513172425%_ + _%e171514172428%_ + _%hd171515172431%_ + _%tl171516172433%_ + _%e171517172436%_ + _%hd171518172439%_ + _%tl171519172441%_)))) + (_%__match177932177933%_ + _%e171496172380%_ + _%hd171497172383%_ + _%tl171498172385%_ + _%e171499172388%_ + _%hd171500172391%_ + _%tl171501172393%_ + _%e171502172396%_ + _%hd171503172399%_ + _%tl171504172401%_ + _%e171505172404%_ + _%hd171506172407%_ + _%tl171507172409%_ + _%e171508172412%_ + _%hd171509172415%_ + _%tl171510172417%_ + _%e171511172420%_ + _%hd171512172423%_ + _%tl171513172425%_ + _%e171514172428%_ + _%hd171515172431%_ + _%tl171516172433%_)) + (_%__kont177515177516%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177478177479%_)) - (_%__kont177478177479%_)) - (_%__kont177478177479%_)))) - (_%__kont177478177479%_)))) - (_%__kont177478177479%_)) - (_%__kont177478177479%_)))) + (_%__kont177515177516%_)) + (_%__kont177515177516%_)) + (_%__kont177515177516%_)))) + (_%__kont177515177516%_)))) + (_%__kont177515177516%_)) + (_%__kont177515177516%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177478177479%_)) - (_%__kont177478177479%_)) - (_%__kont177478177479%_)))) - (_%__kont177478177479%_)))) - (_%__kont177478177479%_)))) - (_%__kont177478177479%_)))))))))) + (_%__kont177515177516%_)) + (_%__kont177515177516%_)) + (_%__kont177515177516%_)))) + (_%__kont177515177516%_)))) + (_%__kont177515177516%_)))) + (_%__kont177515177516%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm index f9044b41a..f9f53cfe9 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]#_g178124_| + (define |gxc[1]#_g178161_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178126_| + (define |gxc[1]#_g178163_| (##structure gx#syntax-quote::t '::generate-method-specializers::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178128_| + (define |gxc[1]#_g178165_| (##structure gx#syntax-quote::t 'make-::generate-method-specializers #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178130_| + (define |gxc[1]#_g178167_| (##structure gx#syntax-quote::t '::generate-method-specializers? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178132_| + (define |gxc[1]#_g178169_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178134_| + (define |gxc[1]#_g178171_| (##structure gx#syntax-quote::t '::extract-receiver::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178136_| + (define |gxc[1]#_g178173_| (##structure gx#syntax-quote::t 'make-::extract-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178138_| + (define |gxc[1]#_g178175_| (##structure gx#syntax-quote::t '::extract-receiver? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178140_| + (define |gxc[1]#_g178177_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178142_| + (define |gxc[1]#_g178179_| (##structure gx#syntax-quote::t '::collect-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178144_| + (define |gxc[1]#_g178181_| (##structure gx#syntax-quote::t 'make-::collect-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178146_| + (define |gxc[1]#_g178183_| (##structure gx#syntax-quote::t '::collect-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178148_| + (define |gxc[1]#_g178185_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178149_| + (define |gxc[1]#_g178186_| (##structure gx#syntax-quote::t '::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178150_| + (define |gxc[1]#_g178187_| (##structure gx#syntax-quote::t '::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178152_| + (define |gxc[1]#_g178189_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178153_| + (define |gxc[1]#_g178190_| (##structure gx#syntax-quote::t '::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178154_| + (define |gxc[1]#_g178191_| (##structure gx#syntax-quote::t '::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178156_| + (define |gxc[1]#_g178193_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178157_| + (define |gxc[1]#_g178194_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178158_| + (define |gxc[1]#_g178195_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178160_| + (define |gxc[1]#_g178197_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178161_| + (define |gxc[1]#_g178198_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178162_| + (define |gxc[1]#_g178199_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178164_| + (define |gxc[1]#_g178201_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178166_| + (define |gxc[1]#_g178203_| (##structure gx#syntax-quote::t '::subst-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178168_| + (define |gxc[1]#_g178205_| (##structure gx#syntax-quote::t 'make-::subst-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178170_| + (define |gxc[1]#_g178207_| (##structure gx#syntax-quote::t '::subst-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178172_| + (define |gxc[1]#_g178209_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178173_| + (define |gxc[1]#_g178210_| (##structure gx#syntax-quote::t '::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178174_| + (define |gxc[1]#_g178211_| (##structure gx#syntax-quote::t '::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178175_| + (define |gxc[1]#_g178212_| (##structure gx#syntax-quote::t '::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178177_| + (define |gxc[1]#_g178214_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178178_| + (define |gxc[1]#_g178215_| (##structure gx#syntax-quote::t '::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178179_| + (define |gxc[1]#_g178216_| (##structure gx#syntax-quote::t '::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178180_| + (define |gxc[1]#_g178217_| (##structure gx#syntax-quote::t '::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178182_| + (define |gxc[1]#_g178219_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178183_| + (define |gxc[1]#_g178220_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178184_| + (define |gxc[1]#_g178221_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178185_| + (define |gxc[1]#_g178222_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178187_| + (define |gxc[1]#_g178224_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178188_| + (define |gxc[1]#_g178225_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178189_| + (define |gxc[1]#_g178226_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178190_| + (define |gxc[1]#_g178227_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots-set! @@ -310,7 +310,7 @@ '())) (begin (define |gxc[:0:]#::generate-method-specializers| - (let ((__obj177961 + (let ((__obj177998 (let () (declare (not safe)) (##structure @@ -339,7 +339,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177961 + __obj177998 'gxc#::generate-method-specializers::t '1 '#f @@ -347,65 +347,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177961 + __obj177998 '::generate-method-specializers '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj177998 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '() '6 '#f '#f)) - (let ((__tmp178123 (cons |gxc[1]#_g178124_| '()))) + (##unchecked-structure-set! __obj177998 '() '6 '#f '#f)) + (let ((__tmp178160 (cons |gxc[1]#_g178161_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177961 __tmp178123 '3 '#f '#f)) + (##unchecked-structure-set! __obj177998 __tmp178160 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj177998 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj177998 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj177998 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '#f '11 '#f '#f)) - (let ((__tmp178125 |gxc[1]#_g178126_|)) + (##unchecked-structure-set! __obj177998 '#f '11 '#f '#f)) + (let ((__tmp178162 |gxc[1]#_g178163_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177961 __tmp178125 '12 '#f '#f)) - (let ((__tmp178127 |gxc[1]#_g178128_|)) + (##unchecked-structure-set! __obj177998 __tmp178162 '12 '#f '#f)) + (let ((__tmp178164 |gxc[1]#_g178165_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177961 __tmp178127 '13 '#f '#f)) - (let ((__tmp178129 |gxc[1]#_g178130_|)) + (##unchecked-structure-set! __obj177998 __tmp178164 '13 '#f '#f)) + (let ((__tmp178166 |gxc[1]#_g178167_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177961 __tmp178129 '14 '#f '#f)) + (##unchecked-structure-set! __obj177998 __tmp178166 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj177998 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj177998 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj177998 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj177998 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj177998 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj177998 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177961 '() '20 '#f '#f)) - __obj177961)) + (##unchecked-structure-set! __obj177998 '() '20 '#f '#f)) + __obj177998)) (define |gxc[:0:]#::extract-receiver| - (let ((__obj177963 + (let ((__obj178000 (let () (declare (not safe)) (##structure @@ -434,7 +434,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177963 + __obj178000 'gxc#::extract-receiver::t '1 '#f @@ -442,65 +442,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177963 + __obj178000 '::extract-receiver '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj178000 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '() '6 '#f '#f)) - (let ((__tmp178131 (cons |gxc[1]#_g178132_| '()))) + (##unchecked-structure-set! __obj178000 '() '6 '#f '#f)) + (let ((__tmp178168 (cons |gxc[1]#_g178169_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177963 __tmp178131 '3 '#f '#f)) + (##unchecked-structure-set! __obj178000 __tmp178168 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj178000 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj178000 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj178000 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '#f '11 '#f '#f)) - (let ((__tmp178133 |gxc[1]#_g178134_|)) + (##unchecked-structure-set! __obj178000 '#f '11 '#f '#f)) + (let ((__tmp178170 |gxc[1]#_g178171_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177963 __tmp178133 '12 '#f '#f)) - (let ((__tmp178135 |gxc[1]#_g178136_|)) + (##unchecked-structure-set! __obj178000 __tmp178170 '12 '#f '#f)) + (let ((__tmp178172 |gxc[1]#_g178173_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177963 __tmp178135 '13 '#f '#f)) - (let ((__tmp178137 |gxc[1]#_g178138_|)) + (##unchecked-structure-set! __obj178000 __tmp178172 '13 '#f '#f)) + (let ((__tmp178174 |gxc[1]#_g178175_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177963 __tmp178137 '14 '#f '#f)) + (##unchecked-structure-set! __obj178000 __tmp178174 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj178000 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj178000 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj178000 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj178000 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj178000 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj178000 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177963 '() '20 '#f '#f)) - __obj177963)) + (##unchecked-structure-set! __obj178000 '() '20 '#f '#f)) + __obj178000)) (define |gxc[:0:]#::collect-object-refs| - (let ((__obj177965 + (let ((__obj178002 (let () (declare (not safe)) (##structure @@ -529,7 +529,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177965 + __obj178002 'gxc#::collect-object-refs::t '1 '#f @@ -537,7 +537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177965 + __obj178002 '::collect-object-refs '2 '#f @@ -545,7 +545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177965 + __obj178002 '(receiver methods slots) '4 '#f @@ -553,71 +553,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177965 + __obj178002 '(receiver methods slots) '6 '#f '#f)) - (let ((__tmp178139 (cons |gxc[1]#_g178140_| '()))) + (let ((__tmp178176 (cons |gxc[1]#_g178177_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177965 __tmp178139 '3 '#f '#f)) + (##unchecked-structure-set! __obj178002 __tmp178176 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177965 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj178002 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177965 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj178002 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177965 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj178002 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177965 '#f '11 '#f '#f)) - (let ((__tmp178141 |gxc[1]#_g178142_|)) + (##unchecked-structure-set! __obj178002 '#f '11 '#f '#f)) + (let ((__tmp178178 |gxc[1]#_g178179_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177965 __tmp178141 '12 '#f '#f)) - (let ((__tmp178143 |gxc[1]#_g178144_|)) + (##unchecked-structure-set! __obj178002 __tmp178178 '12 '#f '#f)) + (let ((__tmp178180 |gxc[1]#_g178181_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177965 __tmp178143 '13 '#f '#f)) - (let ((__tmp178145 |gxc[1]#_g178146_|)) + (##unchecked-structure-set! __obj178002 __tmp178180 '13 '#f '#f)) + (let ((__tmp178182 |gxc[1]#_g178183_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177965 __tmp178145 '14 '#f '#f)) - (let ((__tmp178147 - (cons (cons 'receiver |gxc[1]#_g178148_|) - (cons (cons 'methods |gxc[1]#_g178149_|) - (cons (cons 'slots |gxc[1]#_g178150_|) '()))))) + (##unchecked-structure-set! __obj178002 __tmp178182 '14 '#f '#f)) + (let ((__tmp178184 + (cons (cons 'receiver |gxc[1]#_g178185_|) + (cons (cons 'methods |gxc[1]#_g178186_|) + (cons (cons 'slots |gxc[1]#_g178187_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177965 __tmp178147 '15 '#f '#f)) - (let ((__tmp178151 - (cons (cons 'receiver |gxc[1]#_g178152_|) - (cons (cons 'methods |gxc[1]#_g178153_|) - (cons (cons 'slots |gxc[1]#_g178154_|) '()))))) + (##unchecked-structure-set! __obj178002 __tmp178184 '15 '#f '#f)) + (let ((__tmp178188 + (cons (cons 'receiver |gxc[1]#_g178189_|) + (cons (cons 'methods |gxc[1]#_g178190_|) + (cons (cons 'slots |gxc[1]#_g178191_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177965 __tmp178151 '16 '#f '#f)) - (let ((__tmp178155 - (cons (cons 'receiver |gxc[1]#_g178156_|) - (cons (cons 'methods |gxc[1]#_g178157_|) - (cons (cons 'slots |gxc[1]#_g178158_|) '()))))) + (##unchecked-structure-set! __obj178002 __tmp178188 '16 '#f '#f)) + (let ((__tmp178192 + (cons (cons 'receiver |gxc[1]#_g178193_|) + (cons (cons 'methods |gxc[1]#_g178194_|) + (cons (cons 'slots |gxc[1]#_g178195_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177965 __tmp178155 '17 '#f '#f)) - (let ((__tmp178159 - (cons (cons 'receiver |gxc[1]#_g178160_|) - (cons (cons 'methods |gxc[1]#_g178161_|) - (cons (cons 'slots |gxc[1]#_g178162_|) '()))))) + (##unchecked-structure-set! __obj178002 __tmp178192 '17 '#f '#f)) + (let ((__tmp178196 + (cons (cons 'receiver |gxc[1]#_g178197_|) + (cons (cons 'methods |gxc[1]#_g178198_|) + (cons (cons 'slots |gxc[1]#_g178199_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj177965 __tmp178159 '18 '#f '#f)) + (##unchecked-structure-set! __obj178002 __tmp178196 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177965 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj178002 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177965 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj178002 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177965 '() '20 '#f '#f)) - __obj177965)) + (##unchecked-structure-set! __obj178002 '() '20 '#f '#f)) + __obj178002)) (define |gxc[:0:]#::subst-object-refs| - (let ((__obj177967 + (let ((__obj178004 (let () (declare (not safe)) (##structure @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177967 + __obj178004 'gxc#::subst-object-refs::t '1 '#f @@ -654,7 +654,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177967 + __obj178004 '::subst-object-refs '2 '#f @@ -662,7 +662,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177967 + __obj178004 '(receiver klass methods slots) '4 '#f @@ -670,74 +670,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177967 + __obj178004 '(receiver klass methods slots) '6 '#f '#f)) - (let ((__tmp178163 (cons |gxc[1]#_g178164_| '()))) + (let ((__tmp178200 (cons |gxc[1]#_g178201_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177967 __tmp178163 '3 '#f '#f)) + (##unchecked-structure-set! __obj178004 __tmp178200 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177967 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj178004 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177967 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj178004 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177967 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj178004 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177967 '#f '11 '#f '#f)) - (let ((__tmp178165 |gxc[1]#_g178166_|)) + (##unchecked-structure-set! __obj178004 '#f '11 '#f '#f)) + (let ((__tmp178202 |gxc[1]#_g178203_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177967 __tmp178165 '12 '#f '#f)) - (let ((__tmp178167 |gxc[1]#_g178168_|)) + (##unchecked-structure-set! __obj178004 __tmp178202 '12 '#f '#f)) + (let ((__tmp178204 |gxc[1]#_g178205_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177967 __tmp178167 '13 '#f '#f)) - (let ((__tmp178169 |gxc[1]#_g178170_|)) + (##unchecked-structure-set! __obj178004 __tmp178204 '13 '#f '#f)) + (let ((__tmp178206 |gxc[1]#_g178207_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177967 __tmp178169 '14 '#f '#f)) - (let ((__tmp178171 - (cons (cons 'receiver |gxc[1]#_g178172_|) - (cons (cons 'klass |gxc[1]#_g178173_|) - (cons (cons 'methods |gxc[1]#_g178174_|) - (cons (cons 'slots |gxc[1]#_g178175_|) + (##unchecked-structure-set! __obj178004 __tmp178206 '14 '#f '#f)) + (let ((__tmp178208 + (cons (cons 'receiver |gxc[1]#_g178209_|) + (cons (cons 'klass |gxc[1]#_g178210_|) + (cons (cons 'methods |gxc[1]#_g178211_|) + (cons (cons 'slots |gxc[1]#_g178212_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177967 __tmp178171 '15 '#f '#f)) - (let ((__tmp178176 - (cons (cons 'receiver |gxc[1]#_g178177_|) - (cons (cons 'klass |gxc[1]#_g178178_|) - (cons (cons 'methods |gxc[1]#_g178179_|) - (cons (cons 'slots |gxc[1]#_g178180_|) + (##unchecked-structure-set! __obj178004 __tmp178208 '15 '#f '#f)) + (let ((__tmp178213 + (cons (cons 'receiver |gxc[1]#_g178214_|) + (cons (cons 'klass |gxc[1]#_g178215_|) + (cons (cons 'methods |gxc[1]#_g178216_|) + (cons (cons 'slots |gxc[1]#_g178217_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177967 __tmp178176 '16 '#f '#f)) - (let ((__tmp178181 - (cons (cons 'receiver |gxc[1]#_g178182_|) - (cons (cons 'klass |gxc[1]#_g178183_|) - (cons (cons 'methods |gxc[1]#_g178184_|) - (cons (cons 'slots |gxc[1]#_g178185_|) + (##unchecked-structure-set! __obj178004 __tmp178213 '16 '#f '#f)) + (let ((__tmp178218 + (cons (cons 'receiver |gxc[1]#_g178219_|) + (cons (cons 'klass |gxc[1]#_g178220_|) + (cons (cons 'methods |gxc[1]#_g178221_|) + (cons (cons 'slots |gxc[1]#_g178222_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177967 __tmp178181 '17 '#f '#f)) - (let ((__tmp178186 - (cons (cons 'receiver |gxc[1]#_g178187_|) - (cons (cons 'klass |gxc[1]#_g178188_|) - (cons (cons 'methods |gxc[1]#_g178189_|) - (cons (cons 'slots |gxc[1]#_g178190_|) + (##unchecked-structure-set! __obj178004 __tmp178218 '17 '#f '#f)) + (let ((__tmp178223 + (cons (cons 'receiver |gxc[1]#_g178224_|) + (cons (cons 'klass |gxc[1]#_g178225_|) + (cons (cons 'methods |gxc[1]#_g178226_|) + (cons (cons 'slots |gxc[1]#_g178227_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj177967 __tmp178186 '18 '#f '#f)) + (##unchecked-structure-set! __obj178004 __tmp178223 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177967 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj178004 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177967 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj178004 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177967 '() '20 '#f '#f)) - __obj177967)))) + (##unchecked-structure-set! __obj178004 '() '20 '#f '#f)) + __obj178004)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~0.scm b/src/bootstrap/gerbil/compiler/optimize-top~0.scm index 69c3d8b0d..803e2b567 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 1733687561) + (define gerbil/compiler/optimize-top::timestamp 1733870076) (begin (define gxc#::collect-top-level-type-info::t - (let ((__tmp171010 (list gxc#::void::t)) - (__tmp171009 (cons (cons 'final: '#t) '()))) + (let ((__tmp171047 (list gxc#::void::t)) + (__tmp171046 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-type-info::t '::collect-top-level-type-info - __tmp171010 + __tmp171047 '() - __tmp171009 + __tmp171046 '#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 _%$args167952%_ + (lambda _%$args167989%_ (apply make-instance gxc#::collect-top-level-type-info::t - _%$args167952%_))) + _%$args167989%_))) (define gxc#::collect-top-level-type-info-bind-methods! - (let ((__tmp171011 + (let ((__tmp171048 (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 __tmp171011))) + (__make-promise __tmp171048))) (define gxc#apply-collect-top-level-type-info - (lambda (_%stx167944%_) + (lambda (_%stx167981%_) (force gxc#::collect-top-level-type-info-bind-methods!) - (let* ((_%self167947%_ - (let ((__obj170956 + (let* ((_%self167984%_ + (let ((__obj170993 (let () (declare (not safe)) (##structure gxc#::collect-top-level-type-info::t)))) - __obj170956)) - (__tmp171012 + __obj170993)) + (__tmp171049 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167947%_ _%stx167944%_))))) + (gxc#compile-e__1 _%self167984%_ _%stx167981%_))))) (declare (not safe)) (__call-with-parameters - __tmp171012 + __tmp171049 gxc#current-compile-method - _%self167947%_)))) + _%self167984%_)))) (define gxc#::collect-top-level-declarations::t - (let ((__tmp171014 (list gxc#::void::t)) - (__tmp171013 (cons (cons 'final: '#t) '()))) + (let ((__tmp171051 (list gxc#::void::t)) + (__tmp171050 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-declarations::t '::collect-top-level-declarations - __tmp171014 + __tmp171051 '() - __tmp171013 + __tmp171050 '#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 _%$args167941%_ + (lambda _%$args167978%_ (apply make-instance gxc#::collect-top-level-declarations::t - _%$args167941%_))) + _%$args167978%_))) (define gxc#::collect-top-level-declarations-bind-methods! - (let ((__tmp171015 + (let ((__tmp171052 (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 __tmp171015))) + (__make-promise __tmp171052))) (define gxc#apply-collect-top-level-declarations - (lambda (_%stx167933%_) + (lambda (_%stx167970%_) (force gxc#::collect-top-level-declarations-bind-methods!) - (let* ((_%self167936%_ - (let ((__obj170958 + (let* ((_%self167973%_ + (let ((__obj170995 (let () (declare (not safe)) (##structure gxc#::collect-top-level-declarations::t)))) - __obj170958)) - (__tmp171016 + __obj170995)) + (__tmp171053 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167936%_ _%stx167933%_))))) + (gxc#compile-e__1 _%self167973%_ _%stx167970%_))))) (declare (not safe)) (__call-with-parameters - __tmp171016 + __tmp171053 gxc#current-compile-method - _%self167936%_)))) + _%self167973%_)))) (define gxc#::basic-expression-top-level-type::t - (let ((__tmp171018 (list gxc#::false::t)) - (__tmp171017 (cons (cons 'final: '#t) '()))) + (let ((__tmp171055 (list gxc#::false::t)) + (__tmp171054 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-top-level-type::t '::basic-expression-top-level-type - __tmp171018 + __tmp171055 '() - __tmp171017 + __tmp171054 '#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 _%$args167930%_ + (lambda _%$args167967%_ (apply make-instance gxc#::basic-expression-top-level-type::t - _%$args167930%_))) + _%$args167967%_))) (define gxc#::basic-expression-top-level-type-bind-methods! - (let ((__tmp171019 + (let ((__tmp171056 (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 __tmp171019))) + (__make-promise __tmp171056))) (define gxc#apply-basic-expression-top-level-type - (lambda (_%stx167922%_) + (lambda (_%stx167959%_) (force gxc#::basic-expression-top-level-type-bind-methods!) - (let* ((_%self167925%_ - (let ((__obj170960 + (let* ((_%self167962%_ + (let ((__obj170997 (let () (declare (not safe)) (##structure gxc#::basic-expression-top-level-type::t)))) - __obj170960)) - (__tmp171020 + __obj170997)) + (__tmp171057 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167925%_ _%stx167922%_))))) + (gxc#compile-e__1 _%self167962%_ _%stx167959%_))))) (declare (not safe)) (__call-with-parameters - __tmp171020 + __tmp171057 gxc#current-compile-method - _%self167925%_)))) + _%self167962%_)))) (define gxc#::collect-type-info::t - (let ((__tmp171022 (list gxc#::void::t)) - (__tmp171021 (cons (cons 'final: '#t) '()))) + (let ((__tmp171059 (list gxc#::void::t)) + (__tmp171058 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-type-info::t '::collect-type-info - __tmp171022 + __tmp171059 '() - __tmp171021 + __tmp171058 '#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 _%$args167919%_ - (apply make-instance gxc#::collect-type-info::t _%$args167919%_))) + (lambda _%$args167956%_ + (apply make-instance gxc#::collect-type-info::t _%$args167956%_))) (define gxc#::collect-type-info-bind-methods! - (let ((__tmp171023 + (let ((__tmp171060 (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 __tmp171023))) + (__make-promise __tmp171060))) (define gxc#apply-collect-type-info - (lambda (_%stx167911%_) + (lambda (_%stx167948%_) (force gxc#::collect-type-info-bind-methods!) - (let* ((_%self167914%_ - (let ((__obj170962 + (let* ((_%self167951%_ + (let ((__obj170999 (let () (declare (not safe)) (##structure gxc#::collect-type-info::t)))) - __obj170962)) - (__tmp171024 + __obj170999)) + (__tmp171061 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167914%_ _%stx167911%_))))) + (gxc#compile-e__1 _%self167951%_ _%stx167948%_))))) (declare (not safe)) (__call-with-parameters - __tmp171024 + __tmp171061 gxc#current-compile-method - _%self167914%_)))) + _%self167951%_)))) (define gxc#::collect-mutable-type-info::t - (let ((__tmp171026 (list gxc#::void::t)) - (__tmp171025 (cons (cons 'final: '#t) '()))) + (let ((__tmp171063 (list gxc#::void::t)) + (__tmp171062 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutable-type-info::t '::collect-mutable-type-info - __tmp171026 + __tmp171063 '() - __tmp171025 + __tmp171062 '#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 _%$args167908%_ + (lambda _%$args167945%_ (apply make-instance gxc#::collect-mutable-type-info::t - _%$args167908%_))) + _%$args167945%_))) (define gxc#::collect-mutable-type-info-bind-methods! - (let ((__tmp171027 + (let ((__tmp171064 (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 __tmp171027))) + (__make-promise __tmp171064))) (define gxc#apply-collect-mutable-type-info - (lambda (_%stx167900%_) + (lambda (_%stx167937%_) (force gxc#::collect-mutable-type-info-bind-methods!) - (let* ((_%self167903%_ - (let ((__obj170964 + (let* ((_%self167940%_ + (let ((__obj171001 (let () (declare (not safe)) (##structure gxc#::collect-mutable-type-info::t)))) - __obj170964)) - (__tmp171028 + __obj171001)) + (__tmp171065 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167903%_ _%stx167900%_))))) + (gxc#compile-e__1 _%self167940%_ _%stx167937%_))))) (declare (not safe)) (__call-with-parameters - __tmp171028 + __tmp171065 gxc#current-compile-method - _%self167903%_)))) + _%self167940%_)))) (define gxc#::refine-type-info::t - (let ((__tmp171030 (list gxc#::void::t)) - (__tmp171029 (cons (cons 'final: '#t) '()))) + (let ((__tmp171067 (list gxc#::void::t)) + (__tmp171066 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::refine-type-info::t '::refine-type-info - __tmp171030 + __tmp171067 '() - __tmp171029 + __tmp171066 '#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 _%$args167897%_ - (apply make-instance gxc#::refine-type-info::t _%$args167897%_))) + (lambda _%$args167934%_ + (apply make-instance gxc#::refine-type-info::t _%$args167934%_))) (define gxc#::refine-type-info-bind-methods! - (let ((__tmp171031 + (let ((__tmp171068 (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 __tmp171031))) + (__make-promise __tmp171068))) (define gxc#apply-refine-type-info - (lambda (_%stx167889%_) + (lambda (_%stx167926%_) (force gxc#::refine-type-info-bind-methods!) - (let* ((_%self167892%_ - (let ((__obj170966 + (let* ((_%self167929%_ + (let ((__obj171003 (let () (declare (not safe)) (##structure gxc#::refine-type-info::t)))) - __obj170966)) - (__tmp171032 + __obj171003)) + (__tmp171069 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167892%_ _%stx167889%_))))) + (gxc#compile-e__1 _%self167929%_ _%stx167926%_))))) (declare (not safe)) (__call-with-parameters - __tmp171032 + __tmp171069 gxc#current-compile-method - _%self167892%_)))) + _%self167929%_)))) (define gxc#::raw-expression-type::t - (let ((__tmp171033 (list gxc#::false::t))) + (let ((__tmp171070 (list gxc#::false::t))) (declare (not safe)) (__make-class-type 'gxc#::raw-expression-type::t '::raw-expression-type - __tmp171033 + __tmp171070 '() '() '#f))) @@ -639,10 +639,10 @@ (declare (not safe)) (__make-class-predicate gxc#::raw-expression-type::t))) (define gxc#make-::raw-expression-type - (lambda _%$args167886%_ - (apply make-instance gxc#::raw-expression-type::t _%$args167886%_))) + (lambda _%$args167923%_ + (apply make-instance gxc#::raw-expression-type::t _%$args167923%_))) (define gxc#::raw-expression-type-bind-methods! - (let ((__tmp171034 + (let ((__tmp171071 (lambda () (force gxc#::false-bind-methods!) (let () @@ -712,46 +712,46 @@ '%#quote gxc#basic-expression-type-quote%))))) (declare (not safe)) - (__make-promise __tmp171034))) + (__make-promise __tmp171071))) (define gxc#apply-raw-expression-type - (lambda (_%stx167878%_) + (lambda (_%stx167915%_) (force gxc#::raw-expression-type-bind-methods!) - (let* ((_%self167881%_ - (let ((__obj170968 + (let* ((_%self167918%_ + (let ((__obj171005 (let () (declare (not safe)) (##structure gxc#::raw-expression-type::t)))) - __obj170968)) - (__tmp171035 + __obj171005)) + (__tmp171072 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167881%_ _%stx167878%_))))) + (gxc#compile-e__1 _%self167918%_ _%stx167915%_))))) (declare (not safe)) (__call-with-parameters - __tmp171035 + __tmp171072 gxc#current-compile-method - _%self167881%_)))) + _%self167918%_)))) (define gxc#::basic-expression-type::t - (let ((__tmp171037 (list gxc#::raw-expression-type::t gxc#::false::t)) - (__tmp171036 (cons (cons 'final: '#t) '()))) + (let ((__tmp171074 (list gxc#::raw-expression-type::t gxc#::false::t)) + (__tmp171073 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-type::t '::basic-expression-type - __tmp171037 + __tmp171074 '() - __tmp171036 + __tmp171073 '#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 _%$args167875%_ - (apply make-instance gxc#::basic-expression-type::t _%$args167875%_))) + (lambda _%$args167912%_ + (apply make-instance gxc#::basic-expression-type::t _%$args167912%_))) (define gxc#::basic-expression-type-bind-methods! - (let ((__tmp171038 + (let ((__tmp171075 (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 __tmp171038))) + (__make-promise __tmp171075))) (define gxc#apply-basic-expression-type - (lambda (_%stx167867%_) + (lambda (_%stx167904%_) (force gxc#::basic-expression-type-bind-methods!) - (let* ((_%self167870%_ - (let ((__obj170970 + (let* ((_%self167907%_ + (let ((__obj171007 (let () (declare (not safe)) (##structure gxc#::basic-expression-type::t)))) - __obj170970)) - (__tmp171039 + __obj171007)) + (__tmp171076 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167870%_ _%stx167867%_))))) + (gxc#compile-e__1 _%self167907%_ _%stx167904%_))))) (declare (not safe)) (__call-with-parameters - __tmp171039 + __tmp171076 gxc#current-compile-method - _%self167870%_)))) + _%self167907%_)))) (define gxc#::lift-top-lambdas::t - (let ((__tmp171041 (list gxc#::basic-xform::t)) - (__tmp171040 (cons (cons 'final: '#t) '()))) + (let ((__tmp171078 (list gxc#::basic-xform::t)) + (__tmp171077 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-top-lambdas::t '::lift-top-lambdas - __tmp171041 + __tmp171078 '() - __tmp171040 + __tmp171077 '#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 _%$args167864%_ - (apply make-instance gxc#::lift-top-lambdas::t _%$args167864%_))) + (lambda _%$args167901%_ + (apply make-instance gxc#::lift-top-lambdas::t _%$args167901%_))) (define gxc#::lift-top-lambdas-bind-methods! - (let ((__tmp171042 + (let ((__tmp171079 (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 __tmp171042))) + (__make-promise __tmp171079))) (define gxc#apply-lift-top-lambdas - (lambda (_%stx167856%_) + (lambda (_%stx167893%_) (force gxc#::lift-top-lambdas-bind-methods!) - (let* ((_%self167859%_ - (let ((__obj170972 + (let* ((_%self167896%_ + (let ((__obj171009 (let () (declare (not safe)) (##structure gxc#::lift-top-lambdas::t)))) - __obj170972)) - (__tmp171043 + __obj171009)) + (__tmp171080 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167859%_ _%stx167856%_))))) + (gxc#compile-e__1 _%self167896%_ _%stx167893%_))))) (declare (not safe)) (__call-with-parameters - __tmp171043 + __tmp171080 gxc#current-compile-method - _%self167859%_)))) + _%self167896%_)))) (define gxc#::extract-lambda-signature::t - (let ((__tmp171045 (list gxc#::false::t)) - (__tmp171044 (cons (cons 'final: '#t) '()))) + (let ((__tmp171082 (list gxc#::false::t)) + (__tmp171081 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-lambda-signature::t '::extract-lambda-signature - __tmp171045 + __tmp171082 '() - __tmp171044 + __tmp171081 '#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 _%$args167853%_ + (lambda _%$args167890%_ (apply make-instance gxc#::extract-lambda-signature::t - _%$args167853%_))) + _%$args167890%_))) (define gxc#::extract-lambda-signature-bind-methods! - (let ((__tmp171046 + (let ((__tmp171083 (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 __tmp171046))) + (__make-promise __tmp171083))) (define gxc#apply-extract-lambda-signature - (lambda (_%stx167845%_) + (lambda (_%stx167882%_) (force gxc#::extract-lambda-signature-bind-methods!) - (let* ((_%self167848%_ - (let ((__obj170974 + (let* ((_%self167885%_ + (let ((__obj171011 (let () (declare (not safe)) (##structure gxc#::extract-lambda-signature::t)))) - __obj170974)) - (__tmp171047 + __obj171011)) + (__tmp171084 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167848%_ _%stx167845%_))))) + (gxc#compile-e__1 _%self167885%_ _%stx167882%_))))) (declare (not safe)) (__call-with-parameters - __tmp171047 + __tmp171084 gxc#current-compile-method - _%self167848%_)))) + _%self167885%_)))) (define gxc#collect-top-level-type-define-values% - (lambda (_%self167747%_ _%stx167748%_) - (let* ((_%__stx167965167966%_ _%stx167748%_) - (_%g167751167771%_ + (lambda (_%self167784%_ _%stx167785%_) + (let* ((_%__stx168002168003%_ _%stx167785%_) + (_%g167788167808%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx167965167966%_))))) - (let ((_%__kont167967167968%_ - (lambda (_%L167815%_ _%L167816%_) - (let ((_%sym167834%_ + _%__stx168002168003%_))))) + (let ((_%__kont168004168005%_ + (lambda (_%L167852%_ _%L167853%_) + (let ((_%sym167871%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L167816%_)))) + (gxc#identifier-symbol _%L167853%_)))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167747%_ _%L167815%_)) - (let ((_%type167835167837%_ + (gxc#compile-e__1 _%self167784%_ _%L167852%_)) + (let ((_%type167872167874%_ (gxc#apply-basic-expression-top-level-type - _%L167815%_))) - (if _%type167835167837%_ - (let ((_%type167840%_ _%type167835167837%_)) + _%L167852%_))) + (if _%type167872167874%_ + (let ((_%type167877%_ _%type167872167874%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type167840%_ + _%type167877%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp171048 + (let ((__tmp171085 (let () (declare (not safe)) (##unchecked-structure-ref - _%type167840%_ + _%type167877%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym167834%_ - __tmp171048)) - (let ((__tmp171049 + _%sym167871%_ + __tmp171085)) + (let ((__tmp171086 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167748%_ + _%stx167785%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167834%_ - __tmp171049))) + _%sym167871%_ + __tmp171086))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167834%_ - _%type167840%_)))) + _%sym167871%_ + _%type167877%_)))) '#f))))) - (_%__kont167969167970%_ (lambda () '#!void))) - (let ((_%__match167998167999%_ - (lambda (_%e167755167783%_ - _%hd167756167786%_ - _%tl167757167788%_ - _%e167758167791%_ - _%hd167759167794%_ - _%tl167760167796%_ - _%e167761167799%_ - _%hd167762167802%_ - _%tl167763167804%_ - _%e167764167807%_ - _%hd167765167810%_ - _%tl167766167812%_) - (let ((_%L167815%_ _%hd167765167810%_) - (_%L167816%_ _%hd167762167802%_)) + (_%__kont168006168007%_ (lambda () '#!void))) + (let ((_%__match168035168036%_ + (lambda (_%e167792167820%_ + _%hd167793167823%_ + _%tl167794167825%_ + _%e167795167828%_ + _%hd167796167831%_ + _%tl167797167833%_ + _%e167798167836%_ + _%hd167799167839%_ + _%tl167800167841%_ + _%e167801167844%_ + _%hd167802167847%_ + _%tl167803167849%_) + (let ((_%L167852%_ _%hd167802167847%_) + (_%L167853%_ _%hd167799167839%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L167816%_)) - (_%__kont167967167968%_ _%L167815%_ _%L167816%_) - (_%__kont167969167970%_)))))) + (gx#identifier? _%L167853%_)) + (_%__kont168004168005%_ _%L167852%_ _%L167853%_) + (_%__kont168006168007%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx167965167966%_)) - (let ((_%e167755167783%_ + (gx#stx-pair? _%__stx168002168003%_)) + (let ((_%e167792167820%_ (let () (declare (not safe)) - (gx#stx-e _%__stx167965167966%_)))) - (let ((_%tl167757167788%_ + (gx#stx-e _%__stx168002168003%_)))) + (let ((_%tl167794167825%_ (let () (declare (not safe)) - (##cdr _%e167755167783%_))) - (_%hd167756167786%_ + (##cdr _%e167792167820%_))) + (_%hd167793167823%_ (let () (declare (not safe)) - (##car _%e167755167783%_)))) + (##car _%e167792167820%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167757167788%_)) - (let ((_%e167758167791%_ + (gx#stx-pair? _%tl167794167825%_)) + (let ((_%e167795167828%_ (let () (declare (not safe)) - (gx#stx-e _%tl167757167788%_)))) - (let ((_%tl167760167796%_ + (gx#stx-e _%tl167794167825%_)))) + (let ((_%tl167797167833%_ (let () (declare (not safe)) - (##cdr _%e167758167791%_))) - (_%hd167759167794%_ + (##cdr _%e167795167828%_))) + (_%hd167796167831%_ (let () (declare (not safe)) - (##car _%e167758167791%_)))) + (##car _%e167795167828%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167759167794%_)) - (let ((_%e167761167799%_ + (gx#stx-pair? _%hd167796167831%_)) + (let ((_%e167798167836%_ (let () (declare (not safe)) - (gx#stx-e _%hd167759167794%_)))) - (let ((_%tl167763167804%_ + (gx#stx-e _%hd167796167831%_)))) + (let ((_%tl167800167841%_ (let () (declare (not safe)) - (##cdr _%e167761167799%_))) - (_%hd167762167802%_ + (##cdr _%e167798167836%_))) + (_%hd167799167839%_ (let () (declare (not safe)) - (##car _%e167761167799%_)))) + (##car _%e167798167836%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167763167804%_)) + (gx#stx-null? _%tl167800167841%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167760167796%_)) - (let ((_%e167764167807%_ + _%tl167797167833%_)) + (let ((_%e167801167844%_ (let () (declare (not safe)) (gx#stx-e - _%tl167760167796%_)))) - (let ((_%tl167766167812%_ + _%tl167797167833%_)))) + (let ((_%tl167803167849%_ (let () (declare (not safe)) - (##cdr _%e167764167807%_))) - (_%hd167765167810%_ + (##cdr _%e167801167844%_))) + (_%hd167802167847%_ (let () (declare (not safe)) - (##car _%e167764167807%_)))) + (##car _%e167801167844%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167766167812%_)) - (_%__match167998167999%_ - _%e167755167783%_ - _%hd167756167786%_ - _%tl167757167788%_ - _%e167758167791%_ - _%hd167759167794%_ - _%tl167760167796%_ - _%e167761167799%_ - _%hd167762167802%_ - _%tl167763167804%_ - _%e167764167807%_ - _%hd167765167810%_ - _%tl167766167812%_) - (_%__kont167969167970%_)))) - (_%__kont167969167970%_)) - (_%__kont167969167970%_)))) - (_%__kont167969167970%_)))) - (_%__kont167969167970%_)))) - (_%__kont167969167970%_))))))) + _%tl167803167849%_)) + (_%__match168035168036%_ + _%e167792167820%_ + _%hd167793167823%_ + _%tl167794167825%_ + _%e167795167828%_ + _%hd167796167831%_ + _%tl167797167833%_ + _%e167798167836%_ + _%hd167799167839%_ + _%tl167800167841%_ + _%e167801167844%_ + _%hd167802167847%_ + _%tl167803167849%_) + (_%__kont168006168007%_)))) + (_%__kont168006168007%_)) + (_%__kont168006168007%_)))) + (_%__kont168006168007%_)))) + (_%__kont168006168007%_)))) + (_%__kont168006168007%_))))))) (define gxc#collect-top-level-decl-begin-annotation% - (lambda (_%self167569%_ _%stx167570%_) - (let* ((_%__stx168001168002%_ _%stx167570%_) - (_%g167573167613%_ + (lambda (_%self167606%_ _%stx167607%_) + (let* ((_%__stx168038168039%_ _%stx167607%_) + (_%g167610167650%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168001168002%_))))) - (let ((_%__kont168003168004%_ - (lambda (_%L167719%_ _%L167720%_) - (let ((_%type167742%_ - (let ((__tmp171050 + _%__stx168038168039%_))))) + (let ((_%__kont168040168041%_ + (lambda (_%L167756%_ _%L167757%_) + (let ((_%type167779%_ + (let ((__tmp171087 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167720%_)))) + (gxc#identifier-symbol _%L167757%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171050)))) + (gxc#optimizer-lookup-type __tmp171087)))) (if (let () (declare (not safe)) (##structure-instance-of? - _%type167742%_ + _%type167779%_ 'gxc#!lambda::t)) - (let ((__tmp171051 - (gxc#eval-in-ssxi-context _%L167719%_))) + (let ((__tmp171088 + (gxc#eval-in-ssxi-context _%L167756%_))) (declare (not safe)) (##unchecked-structure-set! - _%type167742%_ - __tmp171051 + _%type167779%_ + __tmp171088 '5 '#f '#f)) @@ -1139,6747 +1139,6747 @@ (declare (not safe)) (gxc#raise-compile-error '"inline rule for non lambda procedure" - _%stx167570%_ - _%L167720%_)))))) - (_%__kont168005168006%_ - (lambda (_%L167642%_ _%L167643%_) '#!void))) + _%stx167607%_ + _%L167757%_)))))) + (_%__kont168042168043%_ + (lambda (_%L167679%_ _%L167680%_) '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168001168002%_)) - (let ((_%e167577167663%_ + (gx#stx-pair? _%__stx168038168039%_)) + (let ((_%e167614167700%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168001168002%_)))) - (let ((_%tl167579167668%_ + (gx#stx-e _%__stx168038168039%_)))) + (let ((_%tl167616167705%_ (let () (declare (not safe)) - (##cdr _%e167577167663%_))) - (_%hd167578167666%_ + (##cdr _%e167614167700%_))) + (_%hd167615167703%_ (let () (declare (not safe)) - (##car _%e167577167663%_)))) + (##car _%e167614167700%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167579167668%_)) - (let ((_%e167580167671%_ + (gx#stx-pair? _%tl167616167705%_)) + (let ((_%e167617167708%_ (let () (declare (not safe)) - (gx#stx-e _%tl167579167668%_)))) - (let ((_%tl167582167676%_ + (gx#stx-e _%tl167616167705%_)))) + (let ((_%tl167619167713%_ (let () (declare (not safe)) - (##cdr _%e167580167671%_))) - (_%hd167581167674%_ + (##cdr _%e167617167708%_))) + (_%hd167618167711%_ (let () (declare (not safe)) - (##car _%e167580167671%_)))) + (##car _%e167617167708%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167581167674%_)) - (let ((_%e167583167679%_ + (gx#stx-pair? _%hd167618167711%_)) + (let ((_%e167620167716%_ (let () (declare (not safe)) - (gx#stx-e _%hd167581167674%_)))) - (let ((_%tl167585167684%_ + (gx#stx-e _%hd167618167711%_)))) + (let ((_%tl167622167721%_ (let () (declare (not safe)) - (##cdr _%e167583167679%_))) - (_%hd167584167682%_ + (##cdr _%e167620167716%_))) + (_%hd167621167719%_ (let () (declare (not safe)) - (##car _%e167583167679%_)))) + (##car _%e167620167716%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167584167682%_)) + (gx#identifier? _%hd167621167719%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd167584167682%_)) + _%hd167621167719%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167585167684%_)) - (let ((_%e167586167687%_ + _%tl167622167721%_)) + (let ((_%e167623167724%_ (let () (declare (not safe)) (gx#stx-e - _%tl167585167684%_)))) - (let ((_%tl167588167692%_ + _%tl167622167721%_)))) + (let ((_%tl167625167729%_ (let () (declare (not safe)) - (##cdr _%e167586167687%_))) - (_%hd167587167690%_ + (##cdr _%e167623167724%_))) + (_%hd167624167727%_ (let () (declare (not safe)) - (##car _%e167586167687%_)))) + (##car _%e167623167724%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167588167692%_)) + _%tl167625167729%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167582167676%_)) - (let ((_%e167589167695%_ + _%tl167619167713%_)) + (let ((_%e167626167732%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl167582167676%_)))) - (let ((_%tl167591167700%_ + (gx#stx-e _%tl167619167713%_)))) + (let ((_%tl167628167737%_ (let () (declare (not safe)) - (##cdr _%e167589167695%_))) - (_%hd167590167698%_ + (##cdr _%e167626167732%_))) + (_%hd167627167735%_ (let () (declare (not safe)) - (##car _%e167589167695%_)))) + (##car _%e167626167732%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167590167698%_)) - (let ((_%e167592167703%_ + (gx#stx-pair? _%hd167627167735%_)) + (let ((_%e167629167740%_ (let () (declare (not safe)) - (gx#stx-e _%hd167590167698%_)))) - (let ((_%tl167594167708%_ + (gx#stx-e _%hd167627167735%_)))) + (let ((_%tl167631167745%_ (let () (declare (not safe)) - (##cdr _%e167592167703%_))) - (_%hd167593167706%_ + (##cdr _%e167629167740%_))) + (_%hd167630167743%_ (let () (declare (not safe)) - (##car _%e167592167703%_)))) + (##car _%e167629167740%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167593167706%_)) + (gx#identifier? _%hd167630167743%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd167593167706%_)) + _%hd167630167743%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167594167708%_)) - (let ((_%e167595167711%_ + _%tl167631167745%_)) + (let ((_%e167632167748%_ (let () (declare (not safe)) (gx#stx-e - _%tl167594167708%_)))) - (let ((_%tl167597167716%_ + _%tl167631167745%_)))) + (let ((_%tl167634167753%_ (let () (declare (not safe)) - (##cdr _%e167595167711%_))) - (_%hd167596167714%_ + (##cdr _%e167632167748%_))) + (_%hd167633167751%_ (let () (declare (not safe)) - (##car _%e167595167711%_)))) + (##car _%e167632167748%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167597167716%_)) + _%tl167634167753%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167591167700%_)) - (_%__kont168003168004%_ - _%hd167596167714%_ - _%hd167587167690%_) + _%tl167628167737%_)) + (_%__kont168040168041%_ + _%hd167633167751%_ + _%hd167624167727%_) (let () (declare (not safe)) - (_%g167573167613%_))) + (_%g167610167650%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167591167700%_)) - (_%__kont168005168006%_ - _%hd167590167698%_ - _%hd167581167674%_) + _%tl167628167737%_)) + (_%__kont168042168043%_ + _%hd167627167735%_ + _%hd167618167711%_) (let () (declare (not safe)) - (_%g167573167613%_)))))) + (_%g167610167650%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167591167700%_)) - (_%__kont168005168006%_ - _%hd167590167698%_ - _%hd167581167674%_) + _%tl167628167737%_)) + (_%__kont168042168043%_ + _%hd167627167735%_ + _%hd167618167711%_) (let () (declare (not safe)) - (_%g167573167613%_)))) + (_%g167610167650%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167591167700%_)) - (_%__kont168005168006%_ - _%hd167590167698%_ - _%hd167581167674%_) + _%tl167628167737%_)) + (_%__kont168042168043%_ + _%hd167627167735%_ + _%hd167618167711%_) (let () (declare (not safe)) - (_%g167573167613%_)))) + (_%g167610167650%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167591167700%_)) - (_%__kont168005168006%_ - _%hd167590167698%_ - _%hd167581167674%_) + (gx#stx-null? _%tl167628167737%_)) + (_%__kont168042168043%_ + _%hd167627167735%_ + _%hd167618167711%_) (let () (declare (not safe)) - (_%g167573167613%_)))))) + (_%g167610167650%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167591167700%_)) - (_%__kont168005168006%_ - _%hd167590167698%_ - _%hd167581167674%_) + (gx#stx-null? _%tl167628167737%_)) + (_%__kont168042168043%_ + _%hd167627167735%_ + _%hd167618167711%_) (let () (declare (not safe)) - (_%g167573167613%_)))))) - (let () (declare (not safe)) (_%g167573167613%_))) + (_%g167610167650%_)))))) + (let () (declare (not safe)) (_%g167610167650%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167582167676%_)) - (let ((_%e167606167634%_ + (gx#stx-pair? _%tl167619167713%_)) + (let ((_%e167643167671%_ (let () (declare (not safe)) - (gx#stx-e _%tl167582167676%_)))) - (let ((_%tl167608167639%_ + (gx#stx-e _%tl167619167713%_)))) + (let ((_%tl167645167676%_ (let () (declare (not safe)) - (##cdr _%e167606167634%_))) - (_%hd167607167637%_ + (##cdr _%e167643167671%_))) + (_%hd167644167674%_ (let () (declare (not safe)) - (##car _%e167606167634%_)))) + (##car _%e167643167671%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167608167639%_)) - (_%__kont168005168006%_ - _%hd167607167637%_ - _%hd167581167674%_) + (gx#stx-null? _%tl167645167676%_)) + (_%__kont168042168043%_ + _%hd167644167674%_ + _%hd167618167711%_) (let () (declare (not safe)) - (_%g167573167613%_))))) - (let () (declare (not safe)) (_%g167573167613%_)))))) + (_%g167610167650%_))))) + (let () (declare (not safe)) (_%g167610167650%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167582167676%_)) - (let ((_%e167606167634%_ + _%tl167619167713%_)) + (let ((_%e167643167671%_ (let () (declare (not safe)) (gx#stx-e - _%tl167582167676%_)))) - (let ((_%tl167608167639%_ + _%tl167619167713%_)))) + (let ((_%tl167645167676%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e167606167634%_))) - (_%hd167607167637%_ - (let () (declare (not safe)) (##car _%e167606167634%_)))) + (##cdr _%e167643167671%_))) + (_%hd167644167674%_ + (let () (declare (not safe)) (##car _%e167643167671%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167608167639%_)) - (_%__kont168005168006%_ - _%hd167607167637%_ - _%hd167581167674%_) - (let () (declare (not safe)) (_%g167573167613%_))))) + (gx#stx-null? _%tl167645167676%_)) + (_%__kont168042168043%_ + _%hd167644167674%_ + _%hd167618167711%_) + (let () (declare (not safe)) (_%g167610167650%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g167573167613%_)))) + (_%g167610167650%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167582167676%_)) - (let ((_%e167606167634%_ + _%tl167619167713%_)) + (let ((_%e167643167671%_ (let () (declare (not safe)) (gx#stx-e - _%tl167582167676%_)))) - (let ((_%tl167608167639%_ + _%tl167619167713%_)))) + (let ((_%tl167645167676%_ (let () (declare (not safe)) - (##cdr _%e167606167634%_))) - (_%hd167607167637%_ + (##cdr _%e167643167671%_))) + (_%hd167644167674%_ (let () (declare (not safe)) - (##car _%e167606167634%_)))) + (##car _%e167643167671%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167608167639%_)) - (_%__kont168005168006%_ - _%hd167607167637%_ - _%hd167581167674%_) + _%tl167645167676%_)) + (_%__kont168042168043%_ + _%hd167644167674%_ + _%hd167618167711%_) (let () (declare (not safe)) - (_%g167573167613%_))))) + (_%g167610167650%_))))) (let () (declare (not safe)) - (_%g167573167613%_)))) + (_%g167610167650%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167582167676%_)) - (let ((_%e167606167634%_ + _%tl167619167713%_)) + (let ((_%e167643167671%_ (let () (declare (not safe)) (gx#stx-e - _%tl167582167676%_)))) - (let ((_%tl167608167639%_ + _%tl167619167713%_)))) + (let ((_%tl167645167676%_ (let () (declare (not safe)) - (##cdr _%e167606167634%_))) - (_%hd167607167637%_ + (##cdr _%e167643167671%_))) + (_%hd167644167674%_ (let () (declare (not safe)) - (##car _%e167606167634%_)))) + (##car _%e167643167671%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167608167639%_)) - (_%__kont168005168006%_ - _%hd167607167637%_ - _%hd167581167674%_) + _%tl167645167676%_)) + (_%__kont168042168043%_ + _%hd167644167674%_ + _%hd167618167711%_) (let () (declare (not safe)) - (_%g167573167613%_))))) + (_%g167610167650%_))))) (let () (declare (not safe)) - (_%g167573167613%_)))))) + (_%g167610167650%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167582167676%_)) - (let ((_%e167606167634%_ + (gx#stx-pair? _%tl167619167713%_)) + (let ((_%e167643167671%_ (let () (declare (not safe)) - (gx#stx-e _%tl167582167676%_)))) - (let ((_%tl167608167639%_ + (gx#stx-e _%tl167619167713%_)))) + (let ((_%tl167645167676%_ (let () (declare (not safe)) - (##cdr _%e167606167634%_))) - (_%hd167607167637%_ + (##cdr _%e167643167671%_))) + (_%hd167644167674%_ (let () (declare (not safe)) - (##car _%e167606167634%_)))) + (##car _%e167643167671%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167608167639%_)) - (_%__kont168005168006%_ - _%hd167607167637%_ - _%hd167581167674%_) + _%tl167645167676%_)) + (_%__kont168042168043%_ + _%hd167644167674%_ + _%hd167618167711%_) (let () (declare (not safe)) - (_%g167573167613%_))))) + (_%g167610167650%_))))) (let () (declare (not safe)) - (_%g167573167613%_)))))) - (let () (declare (not safe)) (_%g167573167613%_))))) - (let () (declare (not safe)) (_%g167573167613%_))))))) + (_%g167610167650%_)))))) + (let () (declare (not safe)) (_%g167610167650%_))))) + (let () (declare (not safe)) (_%g167610167650%_))))))) (define gxc#eval-in-ssxi-context - (lambda (_%expr167566%_) - (let ((__tmp171053 + (lambda (_%expr167603%_) + (let ((__tmp171090 (lambda () (eval '(import :gerbil/compiler/ssxi)) (let () (declare (not safe)) - (gx#eval-syntax__0 _%expr167566%_)))) - (__tmp171052 - (let ((__obj170975 + (gx#eval-syntax__0 _%expr167603%_)))) + (__tmp171089 + (let ((__obj171012 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj170975)) - __obj170975))) + (gx#top-context:::init!__0 __obj171012)) + __obj171012))) (declare (not safe)) (__call-with-parameters - __tmp171053 + __tmp171090 gx#current-expander-context - __tmp171052)))) + __tmp171089)))) (define gxc#collect-type-define-values% - (lambda (_%self167428%_ _%stx167429%_) - (let* ((_%__stx168085168086%_ _%stx167429%_) - (_%g167432167462%_ + (lambda (_%self167465%_ _%stx167466%_) + (let* ((_%__stx168122168123%_ _%stx167466%_) + (_%g167469167499%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168085168086%_))))) - (let ((_%__kont168087168088%_ - (lambda (_%L167542%_ _%L167543%_) - (let ((_%sym167559%_ + _%__stx168122168123%_))))) + (let ((_%__kont168124168125%_ + (lambda (_%L167579%_ _%L167580%_) + (let ((_%sym167596%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L167543%_)))) + (gxc#identifier-symbol _%L167580%_)))) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym167559%_)) + (gxc#optimizer-lookup-type _%sym167596%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167428%_ _%L167542%_)) - (let ((_%type167561%_ - (gxc#apply-basic-expression-type _%L167542%_))) - (if _%type167561%_ + (gxc#compile-e__1 _%self167465%_ _%L167579%_)) + (let ((_%type167598%_ + (gxc#apply-basic-expression-type _%L167579%_))) + (if _%type167598%_ (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167559%_ - _%type167561%_)) + _%sym167596%_ + _%type167598%_)) '#!void) (let () (declare (not safe)) (gxc#compile-e__1 - _%self167428%_ - _%L167542%_))))))) - (_%__kont168089168090%_ - (lambda (_%L167491%_) + _%self167465%_ + _%L167579%_))))))) + (_%__kont168126168127%_ + (lambda (_%L167528%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167428%_ _%L167491%_))))) - (let ((_%__match168118168119%_ - (lambda (_%e167436167510%_ - _%hd167437167513%_ - _%tl167438167515%_ - _%e167439167518%_ - _%hd167440167521%_ - _%tl167441167523%_ - _%e167442167526%_ - _%hd167443167529%_ - _%tl167444167531%_ - _%e167445167534%_ - _%hd167446167537%_ - _%tl167447167539%_) - (let ((_%L167542%_ _%hd167446167537%_) - (_%L167543%_ _%hd167443167529%_)) + (gxc#compile-e__1 _%self167465%_ _%L167528%_))))) + (let ((_%__match168155168156%_ + (lambda (_%e167473167547%_ + _%hd167474167550%_ + _%tl167475167552%_ + _%e167476167555%_ + _%hd167477167558%_ + _%tl167478167560%_ + _%e167479167563%_ + _%hd167480167566%_ + _%tl167481167568%_ + _%e167482167571%_ + _%hd167483167574%_ + _%tl167484167576%_) + (let ((_%L167579%_ _%hd167483167574%_) + (_%L167580%_ _%hd167480167566%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L167543%_)) - (_%__kont168087168088%_ _%L167542%_ _%L167543%_) - (_%__kont168089168090%_ _%hd167446167537%_)))))) + (gx#identifier? _%L167580%_)) + (_%__kont168124168125%_ _%L167579%_ _%L167580%_) + (_%__kont168126168127%_ _%hd167483167574%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168085168086%_)) - (let ((_%e167436167510%_ + (gx#stx-pair? _%__stx168122168123%_)) + (let ((_%e167473167547%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168085168086%_)))) - (let ((_%tl167438167515%_ + (gx#stx-e _%__stx168122168123%_)))) + (let ((_%tl167475167552%_ (let () (declare (not safe)) - (##cdr _%e167436167510%_))) - (_%hd167437167513%_ + (##cdr _%e167473167547%_))) + (_%hd167474167550%_ (let () (declare (not safe)) - (##car _%e167436167510%_)))) + (##car _%e167473167547%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167438167515%_)) - (let ((_%e167439167518%_ + (gx#stx-pair? _%tl167475167552%_)) + (let ((_%e167476167555%_ (let () (declare (not safe)) - (gx#stx-e _%tl167438167515%_)))) - (let ((_%tl167441167523%_ + (gx#stx-e _%tl167475167552%_)))) + (let ((_%tl167478167560%_ (let () (declare (not safe)) - (##cdr _%e167439167518%_))) - (_%hd167440167521%_ + (##cdr _%e167476167555%_))) + (_%hd167477167558%_ (let () (declare (not safe)) - (##car _%e167439167518%_)))) + (##car _%e167476167555%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167440167521%_)) - (let ((_%e167442167526%_ + (gx#stx-pair? _%hd167477167558%_)) + (let ((_%e167479167563%_ (let () (declare (not safe)) - (gx#stx-e _%hd167440167521%_)))) - (let ((_%tl167444167531%_ + (gx#stx-e _%hd167477167558%_)))) + (let ((_%tl167481167568%_ (let () (declare (not safe)) - (##cdr _%e167442167526%_))) - (_%hd167443167529%_ + (##cdr _%e167479167563%_))) + (_%hd167480167566%_ (let () (declare (not safe)) - (##car _%e167442167526%_)))) + (##car _%e167479167563%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167444167531%_)) + (gx#stx-null? _%tl167481167568%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167441167523%_)) - (let ((_%e167445167534%_ + _%tl167478167560%_)) + (let ((_%e167482167571%_ (let () (declare (not safe)) (gx#stx-e - _%tl167441167523%_)))) - (let ((_%tl167447167539%_ + _%tl167478167560%_)))) + (let ((_%tl167484167576%_ (let () (declare (not safe)) - (##cdr _%e167445167534%_))) - (_%hd167446167537%_ + (##cdr _%e167482167571%_))) + (_%hd167483167574%_ (let () (declare (not safe)) - (##car _%e167445167534%_)))) + (##car _%e167482167571%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167447167539%_)) - (_%__match168118168119%_ - _%e167436167510%_ - _%hd167437167513%_ - _%tl167438167515%_ - _%e167439167518%_ - _%hd167440167521%_ - _%tl167441167523%_ - _%e167442167526%_ - _%hd167443167529%_ - _%tl167444167531%_ - _%e167445167534%_ - _%hd167446167537%_ - _%tl167447167539%_) + _%tl167484167576%_)) + (_%__match168155168156%_ + _%e167473167547%_ + _%hd167474167550%_ + _%tl167475167552%_ + _%e167476167555%_ + _%hd167477167558%_ + _%tl167478167560%_ + _%e167479167563%_ + _%hd167480167566%_ + _%tl167481167568%_ + _%e167482167571%_ + _%hd167483167574%_ + _%tl167484167576%_) (let () (declare (not safe)) - (_%g167432167462%_))))) + (_%g167469167499%_))))) (let () (declare (not safe)) - (_%g167432167462%_))) + (_%g167469167499%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167441167523%_)) - (let ((_%e167455167483%_ + _%tl167478167560%_)) + (let ((_%e167492167520%_ (let () (declare (not safe)) (gx#stx-e - _%tl167441167523%_)))) - (let ((_%tl167457167488%_ + _%tl167478167560%_)))) + (let ((_%tl167494167525%_ (let () (declare (not safe)) - (##cdr _%e167455167483%_))) - (_%hd167456167486%_ + (##cdr _%e167492167520%_))) + (_%hd167493167523%_ (let () (declare (not safe)) - (##car _%e167455167483%_)))) + (##car _%e167492167520%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167457167488%_)) - (_%__kont168089168090%_ - _%hd167456167486%_) + _%tl167494167525%_)) + (_%__kont168126168127%_ + _%hd167493167523%_) (let () (declare (not safe)) - (_%g167432167462%_))))) + (_%g167469167499%_))))) (let () (declare (not safe)) - (_%g167432167462%_)))))) + (_%g167469167499%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167441167523%_)) - (let ((_%e167455167483%_ + (gx#stx-pair? _%tl167478167560%_)) + (let ((_%e167492167520%_ (let () (declare (not safe)) - (gx#stx-e _%tl167441167523%_)))) - (let ((_%tl167457167488%_ + (gx#stx-e _%tl167478167560%_)))) + (let ((_%tl167494167525%_ (let () (declare (not safe)) - (##cdr _%e167455167483%_))) - (_%hd167456167486%_ + (##cdr _%e167492167520%_))) + (_%hd167493167523%_ (let () (declare (not safe)) - (##car _%e167455167483%_)))) + (##car _%e167492167520%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167457167488%_)) - (_%__kont168089168090%_ - _%hd167456167486%_) + _%tl167494167525%_)) + (_%__kont168126168127%_ + _%hd167493167523%_) (let () (declare (not safe)) - (_%g167432167462%_))))) + (_%g167469167499%_))))) (let () (declare (not safe)) - (_%g167432167462%_)))))) - (let () (declare (not safe)) (_%g167432167462%_))))) - (let () (declare (not safe)) (_%g167432167462%_)))))))) + (_%g167469167499%_)))))) + (let () (declare (not safe)) (_%g167469167499%_))))) + (let () (declare (not safe)) (_%g167469167499%_)))))))) (define gxc#collect-type-begin-annotation% - (lambda (_%self167183%_ _%stx167184%_) - (let* ((_%__stx168163168164%_ _%stx167184%_) - (_%g167187167227%_ + (lambda (_%self167220%_ _%stx167221%_) + (let* ((_%__stx168200168201%_ _%stx167221%_) + (_%g167224167264%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168163168164%_))))) - (let ((_%__kont168165168166%_ - (lambda (_%L167333%_ _%L167334%_) + _%__stx168200168201%_))))) + (let ((_%__kont168202168203%_ + (lambda (_%L167370%_ _%L167371%_) (for-each - (lambda (_%assertion167354%_) - (let* ((_%__stx168141168142%_ _%assertion167354%_) - (_%g167357167371%_ + (lambda (_%assertion167391%_) + (let* ((_%__stx168178168179%_ _%assertion167391%_) + (_%g167394167408%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168141168142%_))))) - (let ((_%__kont168143168144%_ - (lambda (_%L167399%_ _%L167400%_) - (let ((__tmp171056 + _%__stx168178168179%_))))) + (let ((_%__kont168180168181%_ + (lambda (_%L167436%_ _%L167437%_) + (let ((__tmp171093 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167400%_))) - (__tmp171054 - (let ((__tmp171055 + (gxc#identifier-symbol _%L167437%_))) + (__tmp171091 + (let ((__tmp171092 (let () (declare (not safe)) (gxc#identifier-symbol - _%L167399%_)))) + _%L167436%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167184%_ - __tmp171055)))) + _%stx167221%_ + __tmp171092)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp171056 - __tmp171054 + __tmp171093 + __tmp171091 '#t)))) - (_%__kont168145168146%_ + (_%__kont168182168183%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"malformed type assertion" - _%stx167184%_ - _%assertion167354%_))))) - (let ((_%__match168160168161%_ - (lambda (_%e167361167383%_ - _%hd167362167386%_ - _%tl167363167388%_ - _%e167364167391%_ - _%hd167365167394%_ - _%tl167366167396%_) - (let ((_%L167399%_ _%hd167365167394%_) - (_%L167400%_ _%hd167362167386%_)) + _%stx167221%_ + _%assertion167391%_))))) + (let ((_%__match168197168198%_ + (lambda (_%e167398167420%_ + _%hd167399167423%_ + _%tl167400167425%_ + _%e167401167428%_ + _%hd167402167431%_ + _%tl167403167433%_) + (let ((_%L167436%_ _%hd167402167431%_) + (_%L167437%_ _%hd167399167423%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L167400%_)) + (gx#identifier? _%L167437%_)) (let () (declare (not safe)) - (gx#identifier? _%L167399%_))) - (_%__kont168143168144%_ - _%L167399%_ - _%L167400%_) - (_%__kont168145168146%_)))))) + (gx#identifier? _%L167436%_))) + (_%__kont168180168181%_ + _%L167436%_ + _%L167437%_) + (_%__kont168182168183%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168141168142%_)) - (let ((_%e167361167383%_ + (gx#stx-pair? _%__stx168178168179%_)) + (let ((_%e167398167420%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168141168142%_)))) - (let ((_%tl167363167388%_ + (gx#stx-e _%__stx168178168179%_)))) + (let ((_%tl167400167425%_ (let () (declare (not safe)) - (##cdr _%e167361167383%_))) - (_%hd167362167386%_ + (##cdr _%e167398167420%_))) + (_%hd167399167423%_ (let () (declare (not safe)) - (##car _%e167361167383%_)))) + (##car _%e167398167420%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167363167388%_)) - (let ((_%e167364167391%_ + (gx#stx-pair? _%tl167400167425%_)) + (let ((_%e167401167428%_ (let () (declare (not safe)) (gx#stx-e - _%tl167363167388%_)))) - (let ((_%tl167366167396%_ + _%tl167400167425%_)))) + (let ((_%tl167403167433%_ (let () (declare (not safe)) - (##cdr _%e167364167391%_))) - (_%hd167365167394%_ + (##cdr _%e167401167428%_))) + (_%hd167402167431%_ (let () (declare (not safe)) - (##car _%e167364167391%_)))) + (##car _%e167401167428%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167366167396%_)) - (_%__match168160168161%_ - _%e167361167383%_ - _%hd167362167386%_ - _%tl167363167388%_ - _%e167364167391%_ - _%hd167365167394%_ - _%tl167366167396%_) - (_%__kont168145168146%_)))) - (_%__kont168145168146%_)))) - (_%__kont168145168146%_)))))) - (let ((__tmp171057 - (lambda (_%g167417167420%_ _%g167418167422%_) - (cons _%g167417167420%_ _%g167418167422%_)))) + _%tl167403167433%_)) + (_%__match168197168198%_ + _%e167398167420%_ + _%hd167399167423%_ + _%tl167400167425%_ + _%e167401167428%_ + _%hd167402167431%_ + _%tl167403167433%_) + (_%__kont168182168183%_)))) + (_%__kont168182168183%_)))) + (_%__kont168182168183%_)))))) + (let ((__tmp171094 + (lambda (_%g167454167457%_ _%g167455167459%_) + (cons _%g167454167457%_ _%g167455167459%_)))) (declare (not safe)) - (__foldr1 __tmp171057 '() _%L167334%_))) + (__foldr1 __tmp171094 '() _%L167371%_))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167183%_ _%L167333%_)))) - (_%__kont168169168170%_ - (lambda (_%L167256%_ _%L167257%_) + (gxc#compile-e__1 _%self167220%_ _%L167370%_)))) + (_%__kont168206168207%_ + (lambda (_%L167293%_ _%L167294%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167183%_ _%L167256%_))))) - (let ((_%__match168200168201%_ - (lambda (_%e167191167277%_ - _%hd167192167280%_ - _%tl167193167282%_ - _%e167194167285%_ - _%hd167195167288%_ - _%tl167196167290%_ - _%e167197167293%_ - _%hd167198167296%_ - _%tl167199167298%_ - _%__splice168167168168%_ - _%target167200167301%_ - _%tl167202167303%_) - (letrec ((_%loop167203167306%_ - (lambda (_%hd167201167309%_ - _%assertion167207167311%_) + (gxc#compile-e__1 _%self167220%_ _%L167293%_))))) + (let ((_%__match168237168238%_ + (lambda (_%e167228167314%_ + _%hd167229167317%_ + _%tl167230167319%_ + _%e167231167322%_ + _%hd167232167325%_ + _%tl167233167327%_ + _%e167234167330%_ + _%hd167235167333%_ + _%tl167236167335%_ + _%__splice168204168205%_ + _%target167237167338%_ + _%tl167239167340%_) + (letrec ((_%loop167240167343%_ + (lambda (_%hd167238167346%_ + _%assertion167244167348%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167201167309%_)) - (let ((_%e167204167314%_ + (gx#stx-pair? _%hd167238167346%_)) + (let ((_%e167241167351%_ (let () (declare (not safe)) - (gx#stx-e _%hd167201167309%_)))) - (let ((_%lp-tl167206167319%_ + (gx#stx-e _%hd167238167346%_)))) + (let ((_%lp-tl167243167356%_ (let () (declare (not safe)) - (##cdr _%e167204167314%_))) - (_%lp-hd167205167317%_ + (##cdr _%e167241167351%_))) + (_%lp-hd167242167354%_ (let () (declare (not safe)) - (##car _%e167204167314%_)))) - (_%loop167203167306%_ - _%lp-tl167206167319%_ - (cons _%lp-hd167205167317%_ - _%assertion167207167311%_)))) - (let ((_%assertion167208167322%_ - (reverse _%assertion167207167311%_))) + (##car _%e167241167351%_)))) + (_%loop167240167343%_ + _%lp-tl167243167356%_ + (cons _%lp-hd167242167354%_ + _%assertion167244167348%_)))) + (let ((_%assertion167245167359%_ + (reverse _%assertion167244167348%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167196167290%_)) - (let ((_%e167209167325%_ + (gx#stx-pair? _%tl167233167327%_)) + (let ((_%e167246167362%_ (let () (declare (not safe)) (gx#stx-e - _%tl167196167290%_)))) - (let ((_%tl167211167330%_ + _%tl167233167327%_)))) + (let ((_%tl167248167367%_ (let () (declare (not safe)) - (##cdr _%e167209167325%_))) - (_%hd167210167328%_ + (##cdr _%e167246167362%_))) + (_%hd167247167365%_ (let () (declare (not safe)) - (##car _%e167209167325%_)))) + (##car _%e167246167362%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167211167330%_)) - (_%__kont168165168166%_ - _%hd167210167328%_ - _%assertion167208167322%_) + _%tl167248167367%_)) + (_%__kont168202168203%_ + _%hd167247167365%_ + _%assertion167245167359%_) (let () (declare (not safe)) - (_%g167187167227%_))))) + (_%g167224167264%_))))) (let () (declare (not safe)) - (_%g167187167227%_)))))))) - (_%loop167203167306%_ _%target167200167301%_ '()))))) + (_%g167224167264%_)))))))) + (_%loop167240167343%_ _%target167237167338%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168163168164%_)) - (let ((_%e167191167277%_ + (gx#stx-pair? _%__stx168200168201%_)) + (let ((_%e167228167314%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168163168164%_)))) - (let ((_%tl167193167282%_ + (gx#stx-e _%__stx168200168201%_)))) + (let ((_%tl167230167319%_ (let () (declare (not safe)) - (##cdr _%e167191167277%_))) - (_%hd167192167280%_ + (##cdr _%e167228167314%_))) + (_%hd167229167317%_ (let () (declare (not safe)) - (##car _%e167191167277%_)))) + (##car _%e167228167314%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167193167282%_)) - (let ((_%e167194167285%_ + (gx#stx-pair? _%tl167230167319%_)) + (let ((_%e167231167322%_ (let () (declare (not safe)) - (gx#stx-e _%tl167193167282%_)))) - (let ((_%tl167196167290%_ + (gx#stx-e _%tl167230167319%_)))) + (let ((_%tl167233167327%_ (let () (declare (not safe)) - (##cdr _%e167194167285%_))) - (_%hd167195167288%_ + (##cdr _%e167231167322%_))) + (_%hd167232167325%_ (let () (declare (not safe)) - (##car _%e167194167285%_)))) + (##car _%e167231167322%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167195167288%_)) - (let ((_%e167197167293%_ + (gx#stx-pair? _%hd167232167325%_)) + (let ((_%e167234167330%_ (let () (declare (not safe)) - (gx#stx-e _%hd167195167288%_)))) - (let ((_%tl167199167298%_ + (gx#stx-e _%hd167232167325%_)))) + (let ((_%tl167236167335%_ (let () (declare (not safe)) - (##cdr _%e167197167293%_))) - (_%hd167198167296%_ + (##cdr _%e167234167330%_))) + (_%hd167235167333%_ (let () (declare (not safe)) - (##car _%e167197167293%_)))) + (##car _%e167234167330%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd167198167296%_)) + _%hd167235167333%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.assert - _%hd167198167296%_)) + _%hd167235167333%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl167199167298%_)) - (let ((_%__splice168167168168%_ + _%tl167236167335%_)) + (let ((_%__splice168204168205%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl167199167298%_ + _%tl167236167335%_ '0)))) - (let ((_%tl167202167303%_ + (let ((_%tl167239167340%_ (let () (declare (not safe)) (##vector-ref - _%__splice168167168168%_ + _%__splice168204168205%_ '1))) - (_%target167200167301%_ + (_%target167237167338%_ (let () (declare (not safe)) (##vector-ref - _%__splice168167168168%_ + _%__splice168204168205%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167202167303%_)) - (_%__match168200168201%_ - _%e167191167277%_ - _%hd167192167280%_ - _%tl167193167282%_ - _%e167194167285%_ - _%hd167195167288%_ - _%tl167196167290%_ - _%e167197167293%_ - _%hd167198167296%_ - _%tl167199167298%_ - _%__splice168167168168%_ - _%target167200167301%_ - _%tl167202167303%_) + _%tl167239167340%_)) + (_%__match168237168238%_ + _%e167228167314%_ + _%hd167229167317%_ + _%tl167230167319%_ + _%e167231167322%_ + _%hd167232167325%_ + _%tl167233167327%_ + _%e167234167330%_ + _%hd167235167333%_ + _%tl167236167335%_ + _%__splice168204168205%_ + _%target167237167338%_ + _%tl167239167340%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl167196167290%_)) - (let ((_%e167220167248%_ + (gx#stx-pair? _%tl167233167327%_)) + (let ((_%e167257167285%_ (let () (declare (not safe)) - (gx#stx-e _%tl167196167290%_)))) - (let ((_%tl167222167253%_ + (gx#stx-e _%tl167233167327%_)))) + (let ((_%tl167259167290%_ (let () (declare (not safe)) - (##cdr _%e167220167248%_))) - (_%hd167221167251%_ + (##cdr _%e167257167285%_))) + (_%hd167258167288%_ (let () (declare (not safe)) - (##car _%e167220167248%_)))) + (##car _%e167257167285%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167222167253%_)) - (_%__kont168169168170%_ - _%hd167221167251%_ - _%hd167195167288%_) + (gx#stx-null? _%tl167259167290%_)) + (_%__kont168206168207%_ + _%hd167258167288%_ + _%hd167232167325%_) (let () (declare (not safe)) - (_%g167187167227%_))))) - (let () (declare (not safe)) (_%g167187167227%_)))))) + (_%g167224167264%_))))) + (let () (declare (not safe)) (_%g167224167264%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167196167290%_)) - (let ((_%e167220167248%_ + _%tl167233167327%_)) + (let ((_%e167257167285%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl167196167290%_)))) - (let ((_%tl167222167253%_ - (let () (declare (not safe)) (##cdr _%e167220167248%_))) - (_%hd167221167251%_ + (gx#stx-e _%tl167233167327%_)))) + (let ((_%tl167259167290%_ + (let () (declare (not safe)) (##cdr _%e167257167285%_))) + (_%hd167258167288%_ (let () (declare (not safe)) - (##car _%e167220167248%_)))) + (##car _%e167257167285%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167222167253%_)) - (_%__kont168169168170%_ - _%hd167221167251%_ - _%hd167195167288%_) - (let () (declare (not safe)) (_%g167187167227%_))))) - (let () (declare (not safe)) (_%g167187167227%_)))) + (gx#stx-null? _%tl167259167290%_)) + (_%__kont168206168207%_ + _%hd167258167288%_ + _%hd167232167325%_) + (let () (declare (not safe)) (_%g167224167264%_))))) + (let () (declare (not safe)) (_%g167224167264%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167196167290%_)) - (let ((_%e167220167248%_ + _%tl167233167327%_)) + (let ((_%e167257167285%_ (let () (declare (not safe)) (gx#stx-e - _%tl167196167290%_)))) - (let ((_%tl167222167253%_ + _%tl167233167327%_)))) + (let ((_%tl167259167290%_ (let () (declare (not safe)) - (##cdr _%e167220167248%_))) - (_%hd167221167251%_ + (##cdr _%e167257167285%_))) + (_%hd167258167288%_ (let () (declare (not safe)) - (##car _%e167220167248%_)))) + (##car _%e167257167285%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167222167253%_)) - (_%__kont168169168170%_ - _%hd167221167251%_ - _%hd167195167288%_) + _%tl167259167290%_)) + (_%__kont168206168207%_ + _%hd167258167288%_ + _%hd167232167325%_) (let () (declare (not safe)) - (_%g167187167227%_))))) + (_%g167224167264%_))))) (let () (declare (not safe)) - (_%g167187167227%_)))) + (_%g167224167264%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167196167290%_)) - (let ((_%e167220167248%_ + _%tl167233167327%_)) + (let ((_%e167257167285%_ (let () (declare (not safe)) (gx#stx-e - _%tl167196167290%_)))) - (let ((_%tl167222167253%_ + _%tl167233167327%_)))) + (let ((_%tl167259167290%_ (let () (declare (not safe)) - (##cdr _%e167220167248%_))) - (_%hd167221167251%_ + (##cdr _%e167257167285%_))) + (_%hd167258167288%_ (let () (declare (not safe)) - (##car _%e167220167248%_)))) + (##car _%e167257167285%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167222167253%_)) - (_%__kont168169168170%_ - _%hd167221167251%_ - _%hd167195167288%_) + _%tl167259167290%_)) + (_%__kont168206168207%_ + _%hd167258167288%_ + _%hd167232167325%_) (let () (declare (not safe)) - (_%g167187167227%_))))) + (_%g167224167264%_))))) (let () (declare (not safe)) - (_%g167187167227%_)))))) + (_%g167224167264%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167196167290%_)) - (let ((_%e167220167248%_ + (gx#stx-pair? _%tl167233167327%_)) + (let ((_%e167257167285%_ (let () (declare (not safe)) - (gx#stx-e _%tl167196167290%_)))) - (let ((_%tl167222167253%_ + (gx#stx-e _%tl167233167327%_)))) + (let ((_%tl167259167290%_ (let () (declare (not safe)) - (##cdr _%e167220167248%_))) - (_%hd167221167251%_ + (##cdr _%e167257167285%_))) + (_%hd167258167288%_ (let () (declare (not safe)) - (##car _%e167220167248%_)))) + (##car _%e167257167285%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167222167253%_)) - (_%__kont168169168170%_ - _%hd167221167251%_ - _%hd167195167288%_) + _%tl167259167290%_)) + (_%__kont168206168207%_ + _%hd167258167288%_ + _%hd167232167325%_) (let () (declare (not safe)) - (_%g167187167227%_))))) + (_%g167224167264%_))))) (let () (declare (not safe)) - (_%g167187167227%_)))))) - (let () (declare (not safe)) (_%g167187167227%_))))) - (let () (declare (not safe)) (_%g167187167227%_)))))))) + (_%g167224167264%_)))))) + (let () (declare (not safe)) (_%g167224167264%_))))) + (let () (declare (not safe)) (_%g167224167264%_)))))))) (define gxc#collect-type-lambda% - (lambda (_%self167127%_ _%stx167128%_) - (let* ((_%g167130167144%_ - (lambda (_%g167131167141%_) + (lambda (_%self167164%_ _%stx167165%_) + (let* ((_%g167167167181%_ + (lambda (_%g167168167178%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g167131167141%_)))) - (_%g167129167180%_ - (lambda (_%g167131167147%_) + _%g167168167178%_)))) + (_%g167166167217%_ + (lambda (_%g167168167184%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g167131167147%_)) - (let ((_%e167134167149%_ + (gx#stx-pair? _%g167168167184%_)) + (let ((_%e167171167186%_ (let () (declare (not safe)) - (gx#stx-e _%g167131167147%_)))) - (let ((_%hd167135167152%_ + (gx#stx-e _%g167168167184%_)))) + (let ((_%hd167172167189%_ (let () (declare (not safe)) - (##car _%e167134167149%_))) - (_%tl167136167154%_ + (##car _%e167171167186%_))) + (_%tl167173167191%_ (let () (declare (not safe)) - (##cdr _%e167134167149%_)))) + (##cdr _%e167171167186%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167136167154%_)) - (let ((_%e167137167157%_ + (gx#stx-pair? _%tl167173167191%_)) + (let ((_%e167174167194%_ (let () (declare (not safe)) - (gx#stx-e _%tl167136167154%_)))) - (let ((_%hd167138167160%_ + (gx#stx-e _%tl167173167191%_)))) + (let ((_%hd167175167197%_ (let () (declare (not safe)) - (##car _%e167137167157%_))) - (_%tl167139167162%_ + (##car _%e167174167194%_))) + (_%tl167176167199%_ (let () (declare (not safe)) - (##cdr _%e167137167157%_)))) - ((lambda (_%L167165%_ _%L167166%_) - (let ((__tmp171059 + (##cdr _%e167174167194%_)))) + ((lambda (_%L167202%_ _%L167203%_) + (let ((__tmp171096 (lambda () (gxc#collect-type-lambda-formals-tail - _%stx167128%_ - _%L167166%_) + _%stx167165%_ + _%L167203%_) (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self167127%_ - _%stx167128%_)))) - (__tmp171058 + _%self167164%_ + _%stx167165%_)))) + (__tmp171095 (let () (declare (not safe)) (gxc#xform-let-locals - _%L167166%_)))) + _%L167203%_)))) (declare (not safe)) (__call-with-parameters - __tmp171059 + __tmp171096 gxc#current-compile-local-env - __tmp171058))) - _%tl167139167162%_ - _%hd167138167160%_))) - (_%g167130167144%_ _%g167131167147%_)))) - (_%g167130167144%_ _%g167131167147%_))))) - (_%g167129167180%_ _%stx167128%_)))) + __tmp171095))) + _%tl167176167199%_ + _%hd167175167197%_))) + (_%g167167167181%_ _%g167168167184%_)))) + (_%g167167167181%_ _%g167168167184%_))))) + (_%g167166167217%_ _%stx167165%_)))) (define gxc#collect-type-case-lambda% - (lambda (_%self166943%_ _%stx166944%_) - (let* ((_%g166946166974%_ - (lambda (_%g166947166971%_) + (lambda (_%self166980%_ _%stx166981%_) + (let* ((_%g166983167011%_ + (lambda (_%g166984167008%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166947166971%_)))) - (_%g166945167124%_ - (lambda (_%g166947166977%_) + _%g166984167008%_)))) + (_%g166982167161%_ + (lambda (_%g166984167014%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166947166977%_)) - (let ((_%e166950166979%_ + (gx#stx-pair? _%g166984167014%_)) + (let ((_%e166987167016%_ (let () (declare (not safe)) - (gx#stx-e _%g166947166977%_)))) - (let ((_%hd166951166982%_ + (gx#stx-e _%g166984167014%_)))) + (let ((_%hd166988167019%_ (let () (declare (not safe)) - (##car _%e166950166979%_))) - (_%tl166952166984%_ + (##car _%e166987167016%_))) + (_%tl166989167021%_ (let () (declare (not safe)) - (##cdr _%e166950166979%_)))) + (##cdr _%e166987167016%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166952166984%_)) - (let ((_g171060_ + (gx#stx-pair/null? _%tl166989167021%_)) + (let ((_g171097_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166952166984%_ + _%tl166989167021%_ '0)))) (begin - (let ((_g171061_ + (let ((_g171098_ (let () (declare (not safe)) - (if (##values? _g171060_) - (##vector-length _g171060_) + (if (##values? _g171097_) + (##vector-length _g171097_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171061_ 2))) + (##fx= _g171098_ 2))) (error "Context expects 2 values" - _g171061_))) - (let ((_%target166953166987%_ + _g171098_))) + (let ((_%target166990167024%_ (let () (declare (not safe)) - (##vector-ref _g171060_ 0))) - (_%tl166955166989%_ + (##vector-ref _g171097_ 0))) + (_%tl166992167026%_ (let () (declare (not safe)) - (##vector-ref _g171060_ 1)))) + (##vector-ref _g171097_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166955166989%_)) - (letrec ((_%loop166956166992%_ - (lambda (_%hd166954166995%_ - _%body166960166997%_ - _%hd166961166999%_) + (gx#stx-null? _%tl166992167026%_)) + (letrec ((_%loop166993167029%_ + (lambda (_%hd166991167032%_ + _%body166997167034%_ + _%hd166998167036%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166954166995%_)) - (let ((_%e166957167002%_ + _%hd166991167032%_)) + (let ((_%e166994167039%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd166954166995%_)))) - (let ((_%lp-hd166958167005%_ + (gx#stx-e _%hd166991167032%_)))) + (let ((_%lp-hd166995167042%_ (let () (declare (not safe)) - (##car _%e166957167002%_))) - (_%lp-tl166959167007%_ + (##car _%e166994167039%_))) + (_%lp-tl166996167044%_ (let () (declare (not safe)) - (##cdr _%e166957167002%_)))) + (##cdr _%e166994167039%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166958167005%_)) - (let ((_%e166964167010%_ + (gx#stx-pair? _%lp-hd166995167042%_)) + (let ((_%e167001167047%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166958167005%_)))) - (let ((_%hd166965167013%_ + (gx#stx-e _%lp-hd166995167042%_)))) + (let ((_%hd167002167050%_ (let () (declare (not safe)) - (##car _%e166964167010%_))) - (_%tl166966167015%_ + (##car _%e167001167047%_))) + (_%tl167003167052%_ (let () (declare (not safe)) - (##cdr _%e166964167010%_)))) + (##cdr _%e167001167047%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166966167015%_)) - (let ((_%e166967167018%_ + (gx#stx-pair? _%tl167003167052%_)) + (let ((_%e167004167055%_ (let () (declare (not safe)) - (gx#stx-e _%tl166966167015%_)))) - (let ((_%hd166968167021%_ + (gx#stx-e _%tl167003167052%_)))) + (let ((_%hd167005167058%_ (let () (declare (not safe)) - (##car _%e166967167018%_))) - (_%tl166969167023%_ + (##car _%e167004167055%_))) + (_%tl167006167060%_ (let () (declare (not safe)) - (##cdr _%e166967167018%_)))) + (##cdr _%e167004167055%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166969167023%_)) - (_%loop166956166992%_ - _%lp-tl166959167007%_ - (cons _%hd166968167021%_ - _%body166960166997%_) - (cons _%hd166965167013%_ - _%hd166961166999%_)) - (_%g166946166974%_ - _%g166947166977%_)))) - (_%g166946166974%_ _%g166947166977%_)))) - (_%g166946166974%_ _%g166947166977%_)))) - (let ((_%body166962167026%_ (reverse _%body166960166997%_)) - (_%hd166963167028%_ (reverse _%hd166961166999%_))) - ((lambda (_%L167031%_ _%L167032%_) + (gx#stx-null? _%tl167006167060%_)) + (_%loop166993167029%_ + _%lp-tl166996167044%_ + (cons _%hd167005167058%_ + _%body166997167034%_) + (cons _%hd167002167050%_ + _%hd166998167036%_)) + (_%g166983167011%_ + _%g166984167014%_)))) + (_%g166983167011%_ _%g166984167014%_)))) + (_%g166983167011%_ _%g166984167014%_)))) + (let ((_%body166999167063%_ (reverse _%body166997167034%_)) + (_%hd167000167065%_ (reverse _%hd166998167036%_))) + ((lambda (_%L167068%_ _%L167069%_) (for-each - (lambda (_%g167046167048%_) + (lambda (_%g167083167085%_) (gxc#collect-type-lambda-formals-tail - _%stx166944%_ - _%g167046167048%_)) - (let ((__tmp171062 - (lambda (_%g167050167053%_ _%g167051167055%_) - (cons _%g167050167053%_ _%g167051167055%_)))) + _%stx166981%_ + _%g167083167085%_)) + (let ((__tmp171099 + (lambda (_%g167087167090%_ _%g167088167092%_) + (cons _%g167087167090%_ _%g167088167092%_)))) (declare (not safe)) - (__foldr1 __tmp171062 '() _%L167032%_))) + (__foldr1 __tmp171099 '() _%L167069%_))) (for-each - (lambda (_%clause167058%_) - (let* ((_%g167060167074%_ - (lambda (_%g167061167071%_) + (lambda (_%clause167095%_) + (let* ((_%g167097167111%_ + (lambda (_%g167098167108%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g167061167071%_)))) - (_%g167059167111%_ - (lambda (_%g167061167077%_) + _%g167098167108%_)))) + (_%g167096167148%_ + (lambda (_%g167098167114%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g167061167077%_)) - (let ((_%e167064167079%_ + (gx#stx-pair? _%g167098167114%_)) + (let ((_%e167101167116%_ (let () (declare (not safe)) - (gx#stx-e _%g167061167077%_)))) - (let ((_%hd167065167082%_ + (gx#stx-e _%g167098167114%_)))) + (let ((_%hd167102167119%_ (let () (declare (not safe)) - (##car _%e167064167079%_))) - (_%tl167066167084%_ + (##car _%e167101167116%_))) + (_%tl167103167121%_ (let () (declare (not safe)) - (##cdr _%e167064167079%_)))) + (##cdr _%e167101167116%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167066167084%_)) - (let ((_%e167067167087%_ + _%tl167103167121%_)) + (let ((_%e167104167124%_ (let () (declare (not safe)) (gx#stx-e - _%tl167066167084%_)))) - (let ((_%hd167068167090%_ + _%tl167103167121%_)))) + (let ((_%hd167105167127%_ (let () (declare (not safe)) - (##car _%e167067167087%_))) - (_%tl167069167092%_ + (##car _%e167104167124%_))) + (_%tl167106167129%_ (let () (declare (not safe)) - (##cdr _%e167067167087%_)))) + (##cdr _%e167104167124%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167069167092%_)) - ((lambda (_%L167095%_ - _%L167096%_) - (let ((__tmp171064 + _%tl167106167129%_)) + ((lambda (_%L167132%_ + _%L167133%_) + (let ((__tmp171101 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self166943%_ - _%stx166944%_)))) - (__tmp171063 + _%self166980%_ + _%stx166981%_)))) + (__tmp171100 (let () (declare (not safe)) - (gxc#xform-let-locals _%L167096%_)))) + (gxc#xform-let-locals _%L167133%_)))) (declare (not safe)) (__call-with-parameters - __tmp171064 + __tmp171101 gxc#current-compile-local-env - __tmp171063))) - _%hd167068167090%_ - _%hd167065167082%_) - (_%g167060167074%_ _%g167061167077%_)))) + __tmp171100))) + _%hd167105167127%_ + _%hd167102167119%_) + (_%g167097167111%_ _%g167098167114%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g167060167074%_ - _%g167061167077%_)))) - (_%g167060167074%_ _%g167061167077%_))))) - (_%g167059167111%_ _%clause167058%_))) + (_%g167097167111%_ + _%g167098167114%_)))) + (_%g167097167111%_ _%g167098167114%_))))) + (_%g167096167148%_ _%clause167095%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L167031%_ - _%L167032%_)) - (let ((__tmp171065 - (lambda (_%g167113167117%_ - _%g167114167119%_ - _%g167115167121%_) - (cons (cons _%g167114167119%_ - (cons _%g167113167117%_ '())) - _%g167115167121%_)))) + _%L167068%_ + _%L167069%_)) + (let ((__tmp171102 + (lambda (_%g167150167154%_ + _%g167151167156%_ + _%g167152167158%_) + (cons (cons _%g167151167156%_ + (cons _%g167150167154%_ '())) + _%g167152167158%_)))) (declare (not safe)) (__foldr2 - __tmp171065 + __tmp171102 '() - _%L167031%_ - _%L167032%_))))) - _%body166962167026%_ - _%hd166963167028%_)))))) + _%L167068%_ + _%L167069%_))))) + _%body166999167063%_ + _%hd167000167065%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166956166992%_ - _%target166953166987%_ + (_%loop166993167029%_ + _%target166990167024%_ '() '())) - (_%g166946166974%_ - _%g166947166977%_))))) - (_%g166946166974%_ _%g166947166977%_)))) - (_%g166946166974%_ _%g166947166977%_))))) - (_%g166945167124%_ _%stx166944%_)))) + (_%g166983167011%_ + _%g166984167014%_))))) + (_%g166983167011%_ _%g166984167014%_)))) + (_%g166983167011%_ _%g166984167014%_))))) + (_%g166982167161%_ _%stx166981%_)))) (define gxc#collect-type-lambda-formals-tail - (lambda (_%stx166875%_ _%formals166876%_) - (let _%loop166878%_ ((_%rest166880%_ _%formals166876%_)) - (let* ((_%__stx168223168224%_ _%rest166880%_) - (_%g166884166895%_ + (lambda (_%stx166912%_ _%formals166913%_) + (let _%loop166915%_ ((_%rest166917%_ _%formals166913%_)) + (let* ((_%__stx168260168261%_ _%rest166917%_) + (_%g166921166932%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168223168224%_))))) - (let ((_%__kont168225168226%_ - (lambda (_%L166931%_) (_%loop166878%_ _%L166931%_))) - (_%__kont168227168228%_ - (lambda (_%L166907%_) - (let ((__tmp171067 + _%__stx168260168261%_))))) + (let ((_%__kont168262168263%_ + (lambda (_%L166968%_) (_%loop166915%_ _%L166968%_))) + (_%__kont168264168265%_ + (lambda (_%L166944%_) + (let ((__tmp171104 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166907%_))) - (__tmp171066 + (gxc#identifier-symbol _%L166944%_))) + (__tmp171103 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166875%_ + _%stx166912%_ 'list::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp171067 - __tmp171066 + __tmp171104 + __tmp171103 '#t)))) - (_%__kont168229168230%_ (lambda () '#!void))) - (let ((_%g166882166918%_ + (_%__kont168266168267%_ (lambda () '#!void))) + (let ((_%g166919166955%_ (lambda () - (let ((_%L166907%_ _%__stx168223168224%_)) + (let ((_%L166944%_ _%__stx168260168261%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166907%_)) - (_%__kont168227168228%_ _%L166907%_) - (_%__kont168229168230%_)))))) + (gx#identifier? _%L166944%_)) + (_%__kont168264168265%_ _%L166944%_) + (_%__kont168266168267%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168223168224%_)) - (let ((_%e166887166923%_ + (gx#stx-pair? _%__stx168260168261%_)) + (let ((_%e166924166960%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168223168224%_)))) - (let ((_%tl166889166928%_ + (gx#stx-e _%__stx168260168261%_)))) + (let ((_%tl166926166965%_ (let () (declare (not safe)) - (##cdr _%e166887166923%_))) - (_%hd166888166926%_ + (##cdr _%e166924166960%_))) + (_%hd166925166963%_ (let () (declare (not safe)) - (##car _%e166887166923%_)))) - (_%__kont168225168226%_ _%tl166889166928%_))) - (let () (declare (not safe)) (_%g166882166918%_))))))))) + (##car _%e166924166960%_)))) + (_%__kont168262168263%_ _%tl166926166965%_))) + (let () (declare (not safe)) (_%g166919166955%_))))))))) (define gxc#collect-type-let-values%__% - (lambda (_%self166634%_ _%stx166635%_ _%expression-type166636%_) - (letrec ((_%collect-e166638%_ - (lambda (_%hd166807%_ _%expr166808%_) - (let* ((_%__stx168239168240%_ _%hd166807%_) - (_%g166811166821%_ + (lambda (_%self166671%_ _%stx166672%_ _%expression-type166673%_) + (letrec ((_%collect-e166675%_ + (lambda (_%hd166844%_ _%expr166845%_) + (let* ((_%__stx168276168277%_ _%hd166844%_) + (_%g166848166858%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168239168240%_))))) - (let ((_%__kont168241168242%_ - (lambda (_%L166841%_) - (let* ((_%sym166852%_ + _%__stx168276168277%_))))) + (let ((_%__kont168278168279%_ + (lambda (_%L166878%_) + (let* ((_%sym166889%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166841%_))) - (_%type166853166855%_ - (_%expression-type166636%_ - _%expr166808%_))) - (if _%type166853166855%_ - (let ((_%type166858%_ - _%type166853166855%_)) + (gxc#identifier-symbol _%L166878%_))) + (_%type166890166892%_ + (_%expression-type166673%_ + _%expr166845%_))) + (if _%type166890166892%_ + (let ((_%type166895%_ + _%type166890166892%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166858%_ + _%type166895%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp171068 + (let ((__tmp171105 (let () (declare (not safe)) (##unchecked-structure-ref - _%type166858%_ + _%type166895%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166852%_ - __tmp171068)) - (let ((__tmp171069 + _%sym166889%_ + __tmp171105)) + (let ((__tmp171106 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166635%_ + _%stx166672%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166852%_ - __tmp171069 + _%sym166889%_ + __tmp171106 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166852%_ - _%type166858%_ + _%sym166889%_ + _%type166895%_ '#t)))) '#f)))) - (_%__kont168243168244%_ (lambda () '#!void))) - (let ((_%__match168252168253%_ - (lambda (_%e166814166833%_ - _%hd166815166836%_ - _%tl166816166838%_) - (let ((_%L166841%_ _%hd166815166836%_)) + (_%__kont168280168281%_ (lambda () '#!void))) + (let ((_%__match168289168290%_ + (lambda (_%e166851166870%_ + _%hd166852166873%_ + _%tl166853166875%_) + (let ((_%L166878%_ _%hd166852166873%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166841%_)) - (_%__kont168241168242%_ _%L166841%_) - (_%__kont168243168244%_)))))) + (gx#identifier? _%L166878%_)) + (_%__kont168278168279%_ _%L166878%_) + (_%__kont168280168281%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168239168240%_)) - (let ((_%e166814166833%_ + (gx#stx-pair? _%__stx168276168277%_)) + (let ((_%e166851166870%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168239168240%_)))) - (let ((_%tl166816166838%_ + (gx#stx-e _%__stx168276168277%_)))) + (let ((_%tl166853166875%_ (let () (declare (not safe)) - (##cdr _%e166814166833%_))) - (_%hd166815166836%_ + (##cdr _%e166851166870%_))) + (_%hd166852166873%_ (let () (declare (not safe)) - (##car _%e166814166833%_)))) + (##car _%e166851166870%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166816166838%_)) - (_%__match168252168253%_ - _%e166814166833%_ - _%hd166815166836%_ - _%tl166816166838%_) - (_%__kont168243168244%_)))) - (_%__kont168243168244%_)))))))) - (let* ((_%g166640166675%_ - (lambda (_%g166641166672%_) + (gx#stx-null? _%tl166853166875%_)) + (_%__match168289168290%_ + _%e166851166870%_ + _%hd166852166873%_ + _%tl166853166875%_) + (_%__kont168280168281%_)))) + (_%__kont168280168281%_)))))))) + (let* ((_%g166677166712%_ + (lambda (_%g166678166709%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166641166672%_)))) - (_%g166639166804%_ - (lambda (_%g166641166678%_) + _%g166678166709%_)))) + (_%g166676166841%_ + (lambda (_%g166678166715%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166641166678%_)) - (let ((_%e166645166680%_ + (gx#stx-pair? _%g166678166715%_)) + (let ((_%e166682166717%_ (let () (declare (not safe)) - (gx#stx-e _%g166641166678%_)))) - (let ((_%hd166646166683%_ + (gx#stx-e _%g166678166715%_)))) + (let ((_%hd166683166720%_ (let () (declare (not safe)) - (##car _%e166645166680%_))) - (_%tl166647166685%_ + (##car _%e166682166717%_))) + (_%tl166684166722%_ (let () (declare (not safe)) - (##cdr _%e166645166680%_)))) + (##cdr _%e166682166717%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166647166685%_)) - (let ((_%e166648166688%_ + (gx#stx-pair? _%tl166684166722%_)) + (let ((_%e166685166725%_ (let () (declare (not safe)) - (gx#stx-e _%tl166647166685%_)))) - (let ((_%hd166649166691%_ + (gx#stx-e _%tl166684166722%_)))) + (let ((_%hd166686166728%_ (let () (declare (not safe)) - (##car _%e166648166688%_))) - (_%tl166650166693%_ + (##car _%e166685166725%_))) + (_%tl166687166730%_ (let () (declare (not safe)) - (##cdr _%e166648166688%_)))) + (##cdr _%e166685166725%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd166649166691%_)) - (let ((_g171070_ + _%hd166686166728%_)) + (let ((_g171107_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd166649166691%_ + _%hd166686166728%_ '0)))) (begin - (let ((_g171071_ + (let ((_g171108_ (let () (declare (not safe)) - (if (##values? _g171070_) + (if (##values? _g171107_) (##vector-length - _g171070_) + _g171107_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171071_ 2))) + (##fx= _g171108_ 2))) (error "Context expects 2 values" - _g171071_))) - (let ((_%target166651166696%_ + _g171108_))) + (let ((_%target166688166733%_ (let () (declare (not safe)) (##vector-ref - _g171070_ + _g171107_ 0))) - (_%tl166653166698%_ + (_%tl166690166735%_ (let () (declare (not safe)) (##vector-ref - _g171070_ + _g171107_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166653166698%_)) - (letrec ((_%loop166654166701%_ - (lambda (_%hd166652166704%_ + _%tl166690166735%_)) + (letrec ((_%loop166691166738%_ + (lambda (_%hd166689166741%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr166658166706%_ - _%hd166659166708%_) + _%expr166695166743%_ + _%hd166696166745%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166652166704%_)) - (let ((_%e166655166711%_ + (gx#stx-pair? _%hd166689166741%_)) + (let ((_%e166692166748%_ (let () (declare (not safe)) - (gx#stx-e _%hd166652166704%_)))) - (let ((_%lp-hd166656166714%_ + (gx#stx-e _%hd166689166741%_)))) + (let ((_%lp-hd166693166751%_ (let () (declare (not safe)) - (##car _%e166655166711%_))) - (_%lp-tl166657166716%_ + (##car _%e166692166748%_))) + (_%lp-tl166694166753%_ (let () (declare (not safe)) - (##cdr _%e166655166711%_)))) + (##cdr _%e166692166748%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166656166714%_)) - (let ((_%e166665166719%_ + (gx#stx-pair? _%lp-hd166693166751%_)) + (let ((_%e166702166756%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166656166714%_)))) - (let ((_%hd166666166722%_ + (gx#stx-e _%lp-hd166693166751%_)))) + (let ((_%hd166703166759%_ (let () (declare (not safe)) - (##car _%e166665166719%_))) - (_%tl166667166724%_ + (##car _%e166702166756%_))) + (_%tl166704166761%_ (let () (declare (not safe)) - (##cdr _%e166665166719%_)))) + (##cdr _%e166702166756%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166667166724%_)) - (let ((_%e166668166727%_ + (gx#stx-pair? _%tl166704166761%_)) + (let ((_%e166705166764%_ (let () (declare (not safe)) (gx#stx-e - _%tl166667166724%_)))) - (let ((_%hd166669166730%_ + _%tl166704166761%_)))) + (let ((_%hd166706166767%_ (let () (declare (not safe)) - (##car _%e166668166727%_))) - (_%tl166670166732%_ + (##car _%e166705166764%_))) + (_%tl166707166769%_ (let () (declare (not safe)) - (##cdr _%e166668166727%_)))) + (##cdr _%e166705166764%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166670166732%_)) - (_%loop166654166701%_ - _%lp-tl166657166716%_ - (cons _%hd166669166730%_ - _%expr166658166706%_) - (cons _%hd166666166722%_ - _%hd166659166708%_)) - (_%g166640166675%_ - _%g166641166678%_)))) - (_%g166640166675%_ - _%g166641166678%_)))) - (_%g166640166675%_ _%g166641166678%_)))) - (let ((_%expr166660166735%_ - (reverse _%expr166658166706%_)) - (_%hd166661166737%_ - (reverse _%hd166659166708%_))) + _%tl166707166769%_)) + (_%loop166691166738%_ + _%lp-tl166694166753%_ + (cons _%hd166706166767%_ + _%expr166695166743%_) + (cons _%hd166703166759%_ + _%hd166696166745%_)) + (_%g166677166712%_ + _%g166678166715%_)))) + (_%g166677166712%_ + _%g166678166715%_)))) + (_%g166677166712%_ _%g166678166715%_)))) + (let ((_%expr166697166772%_ + (reverse _%expr166695166743%_)) + (_%hd166698166774%_ + (reverse _%hd166696166745%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166650166693%_)) - (let ((_%e166662166740%_ + (gx#stx-pair? _%tl166687166730%_)) + (let ((_%e166699166777%_ (let () (declare (not safe)) - (gx#stx-e _%tl166650166693%_)))) - (let ((_%hd166663166743%_ + (gx#stx-e _%tl166687166730%_)))) + (let ((_%hd166700166780%_ (let () (declare (not safe)) - (##car _%e166662166740%_))) - (_%tl166664166745%_ + (##car _%e166699166777%_))) + (_%tl166701166782%_ (let () (declare (not safe)) - (##cdr _%e166662166740%_)))) + (##cdr _%e166699166777%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166664166745%_)) - ((lambda (_%L166748%_ - _%L166749%_ - _%L166750%_) + (gx#stx-null? _%tl166701166782%_)) + ((lambda (_%L166785%_ + _%L166786%_ + _%L166787%_) (for-each - _%collect-e166638%_ - (let ((__tmp171072 - (lambda (_%g166770166773%_ - _%g166771166775%_) - (cons _%g166770166773%_ - _%g166771166775%_)))) + _%collect-e166675%_ + (let ((__tmp171109 + (lambda (_%g166807166810%_ + _%g166808166812%_) + (cons _%g166807166810%_ + _%g166808166812%_)))) (declare (not safe)) (__foldr1 - __tmp171072 + __tmp171109 '() - _%L166750%_)) - (let ((__tmp171073 - (lambda (_%g166777166780%_ - _%g166778166782%_) - (cons _%g166777166780%_ - _%g166778166782%_)))) + _%L166787%_)) + (let ((__tmp171110 + (lambda (_%g166814166817%_ + _%g166815166819%_) + (cons _%g166814166817%_ + _%g166815166819%_)))) (declare (not safe)) (__foldr1 - __tmp171073 + __tmp171110 '() - _%L166749%_))) + _%L166786%_))) (for-each - (lambda (_%g166784166786%_) + (lambda (_%g166821166823%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166634%_ - _%g166784166786%_))) - (let ((__tmp171074 - (lambda (_%g166788166791%_ - _%g166789166793%_) - (cons _%g166788166791%_ - _%g166789166793%_)))) + _%self166671%_ + _%g166821166823%_))) + (let ((__tmp171111 + (lambda (_%g166825166828%_ + _%g166826166830%_) + (cons _%g166825166828%_ + _%g166826166830%_)))) (declare (not safe)) (__foldr1 - __tmp171074 + __tmp171111 '() - _%L166749%_))) - (let ((__tmp171078 + _%L166786%_))) + (let ((__tmp171115 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self166634%_ - _%L166748%_)))) - (__tmp171075 - (let ((__tmp171076 - (let ((__tmp171077 - (lambda (_%g166796166799%_ + _%self166671%_ + _%L166785%_)))) + (__tmp171112 + (let ((__tmp171113 + (let ((__tmp171114 + (lambda (_%g166833166836%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166797166801%_) - (cons _%g166796166799%_ _%g166797166801%_)))) + _%g166834166838%_) + (cons _%g166833166836%_ _%g166834166838%_)))) (declare (not safe)) - (__foldr1 __tmp171077 '() _%L166750%_)))) + (__foldr1 __tmp171114 '() _%L166787%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171076)))) + __tmp171113)))) (declare (not safe)) (__call-with-parameters - __tmp171078 + __tmp171115 gxc#current-compile-local-env - __tmp171075))) - _%hd166663166743%_ - _%expr166660166735%_ - _%hd166661166737%_) - (_%g166640166675%_ - _%g166641166678%_)))) - (_%g166640166675%_ _%g166641166678%_))))))) + __tmp171112))) + _%hd166700166780%_ + _%expr166697166772%_ + _%hd166698166774%_) + (_%g166677166712%_ + _%g166678166715%_)))) + (_%g166677166712%_ _%g166678166715%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166654166701%_ - _%target166651166696%_ + (_%loop166691166738%_ + _%target166688166733%_ '() '())) - (_%g166640166675%_ - _%g166641166678%_))))) - (_%g166640166675%_ - _%g166641166678%_)))) - (_%g166640166675%_ _%g166641166678%_)))) - (_%g166640166675%_ _%g166641166678%_))))) - (_%g166639166804%_ _%stx166635%_))))) + (_%g166677166712%_ + _%g166678166715%_))))) + (_%g166677166712%_ + _%g166678166715%_)))) + (_%g166677166712%_ _%g166678166715%_)))) + (_%g166677166712%_ _%g166678166715%_))))) + (_%g166676166841%_ _%stx166672%_))))) (define gxc#collect-type-let-values%__0 - (lambda (_%self166866%_ _%stx166867%_) - (let ((_%expression-type166869%_ gxc#apply-basic-expression-type)) + (lambda (_%self166903%_ _%stx166904%_) + (let ((_%expression-type166906%_ gxc#apply-basic-expression-type)) (gxc#collect-type-let-values%__% - _%self166866%_ - _%stx166867%_ - _%expression-type166869%_)))) + _%self166903%_ + _%stx166904%_ + _%expression-type166906%_)))) (define gxc#collect-type-let-values% - (lambda _g171080_ - (let ((_g171079_ (let () (declare (not safe)) (##length _g171080_)))) - (cond ((let () (declare (not safe)) (##fx= _g171079_ 2)) - (apply gxc#collect-type-let-values%__0 _g171080_)) - ((let () (declare (not safe)) (##fx= _g171079_ 3)) - (apply gxc#collect-type-let-values%__% _g171080_)) + (lambda _g171117_ + (let ((_g171116_ (let () (declare (not safe)) (##length _g171117_)))) + (cond ((let () (declare (not safe)) (##fx= _g171116_ 2)) + (apply gxc#collect-type-let-values%__0 _g171117_)) + ((let () (declare (not safe)) (##fx= _g171116_ 3)) + (apply gxc#collect-type-let-values%__% _g171117_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-let-values% - _g171080_)))))) + _g171117_)))))) (define gxc#collect-type-letrec-values%__% - (lambda (_%self166367%_ _%stx166368%_ _%expression-type166369%_) - (letrec ((_%collect-e166371%_ - (lambda (_%hd166565%_ _%expr166566%_) - (let* ((_%__stx168255168256%_ _%hd166565%_) - (_%g166569166579%_ + (lambda (_%self166404%_ _%stx166405%_ _%expression-type166406%_) + (letrec ((_%collect-e166408%_ + (lambda (_%hd166602%_ _%expr166603%_) + (let* ((_%__stx168292168293%_ _%hd166602%_) + (_%g166606166616%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168255168256%_))))) - (let ((_%__kont168257168258%_ - (lambda (_%L166599%_) - (let* ((_%sym166610%_ + _%__stx168292168293%_))))) + (let ((_%__kont168294168295%_ + (lambda (_%L166636%_) + (let* ((_%sym166647%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166599%_))) - (_%type166611166613%_ - (_%expression-type166369%_ - _%expr166566%_))) - (if _%type166611166613%_ - (let ((_%type166616%_ - _%type166611166613%_)) + (gxc#identifier-symbol _%L166636%_))) + (_%type166648166650%_ + (_%expression-type166406%_ + _%expr166603%_))) + (if _%type166648166650%_ + (let ((_%type166653%_ + _%type166648166650%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166616%_ + _%type166653%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp171081 + (let ((__tmp171118 (let () (declare (not safe)) (##unchecked-structure-ref - _%type166616%_ + _%type166653%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166610%_ - __tmp171081)) - (let ((__tmp171082 + _%sym166647%_ + __tmp171118)) + (let ((__tmp171119 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166368%_ + _%stx166405%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166610%_ - __tmp171082 + _%sym166647%_ + __tmp171119 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166610%_ - _%type166616%_ + _%sym166647%_ + _%type166653%_ '#t)))) '#f)))) - (_%__kont168259168260%_ (lambda () '#!void))) - (let ((_%__match168268168269%_ - (lambda (_%e166572166591%_ - _%hd166573166594%_ - _%tl166574166596%_) - (let ((_%L166599%_ _%hd166573166594%_)) + (_%__kont168296168297%_ (lambda () '#!void))) + (let ((_%__match168305168306%_ + (lambda (_%e166609166628%_ + _%hd166610166631%_ + _%tl166611166633%_) + (let ((_%L166636%_ _%hd166610166631%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166599%_)) - (_%__kont168257168258%_ _%L166599%_) - (_%__kont168259168260%_)))))) + (gx#identifier? _%L166636%_)) + (_%__kont168294168295%_ _%L166636%_) + (_%__kont168296168297%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168255168256%_)) - (let ((_%e166572166591%_ + (gx#stx-pair? _%__stx168292168293%_)) + (let ((_%e166609166628%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168255168256%_)))) - (let ((_%tl166574166596%_ + (gx#stx-e _%__stx168292168293%_)))) + (let ((_%tl166611166633%_ (let () (declare (not safe)) - (##cdr _%e166572166591%_))) - (_%hd166573166594%_ + (##cdr _%e166609166628%_))) + (_%hd166610166631%_ (let () (declare (not safe)) - (##car _%e166572166591%_)))) + (##car _%e166609166628%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166574166596%_)) - (_%__match168268168269%_ - _%e166572166591%_ - _%hd166573166594%_ - _%tl166574166596%_) - (_%__kont168259168260%_)))) - (_%__kont168259168260%_)))))))) - (let* ((_%g166373166408%_ - (lambda (_%g166374166405%_) + (gx#stx-null? _%tl166611166633%_)) + (_%__match168305168306%_ + _%e166609166628%_ + _%hd166610166631%_ + _%tl166611166633%_) + (_%__kont168296168297%_)))) + (_%__kont168296168297%_)))))))) + (let* ((_%g166410166445%_ + (lambda (_%g166411166442%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166374166405%_)))) - (_%g166372166562%_ - (lambda (_%g166374166411%_) + _%g166411166442%_)))) + (_%g166409166599%_ + (lambda (_%g166411166448%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166374166411%_)) - (let ((_%e166378166413%_ + (gx#stx-pair? _%g166411166448%_)) + (let ((_%e166415166450%_ (let () (declare (not safe)) - (gx#stx-e _%g166374166411%_)))) - (let ((_%hd166379166416%_ + (gx#stx-e _%g166411166448%_)))) + (let ((_%hd166416166453%_ (let () (declare (not safe)) - (##car _%e166378166413%_))) - (_%tl166380166418%_ + (##car _%e166415166450%_))) + (_%tl166417166455%_ (let () (declare (not safe)) - (##cdr _%e166378166413%_)))) + (##cdr _%e166415166450%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166380166418%_)) - (let ((_%e166381166421%_ + (gx#stx-pair? _%tl166417166455%_)) + (let ((_%e166418166458%_ (let () (declare (not safe)) - (gx#stx-e _%tl166380166418%_)))) - (let ((_%hd166382166424%_ + (gx#stx-e _%tl166417166455%_)))) + (let ((_%hd166419166461%_ (let () (declare (not safe)) - (##car _%e166381166421%_))) - (_%tl166383166426%_ + (##car _%e166418166458%_))) + (_%tl166420166463%_ (let () (declare (not safe)) - (##cdr _%e166381166421%_)))) + (##cdr _%e166418166458%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd166382166424%_)) - (let ((_g171083_ + _%hd166419166461%_)) + (let ((_g171120_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd166382166424%_ + _%hd166419166461%_ '0)))) (begin - (let ((_g171084_ + (let ((_g171121_ (let () (declare (not safe)) - (if (##values? _g171083_) + (if (##values? _g171120_) (##vector-length - _g171083_) + _g171120_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171084_ 2))) + (##fx= _g171121_ 2))) (error "Context expects 2 values" - _g171084_))) - (let ((_%target166384166429%_ + _g171121_))) + (let ((_%target166421166466%_ (let () (declare (not safe)) (##vector-ref - _g171083_ + _g171120_ 0))) - (_%tl166386166431%_ + (_%tl166423166468%_ (let () (declare (not safe)) (##vector-ref - _g171083_ + _g171120_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166386166431%_)) - (letrec ((_%loop166387166434%_ - (lambda (_%hd166385166437%_ + _%tl166423166468%_)) + (letrec ((_%loop166424166471%_ + (lambda (_%hd166422166474%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr166391166439%_ - _%hd166392166441%_) + _%expr166428166476%_ + _%hd166429166478%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166385166437%_)) - (let ((_%e166388166444%_ + (gx#stx-pair? _%hd166422166474%_)) + (let ((_%e166425166481%_ (let () (declare (not safe)) - (gx#stx-e _%hd166385166437%_)))) - (let ((_%lp-hd166389166447%_ + (gx#stx-e _%hd166422166474%_)))) + (let ((_%lp-hd166426166484%_ (let () (declare (not safe)) - (##car _%e166388166444%_))) - (_%lp-tl166390166449%_ + (##car _%e166425166481%_))) + (_%lp-tl166427166486%_ (let () (declare (not safe)) - (##cdr _%e166388166444%_)))) + (##cdr _%e166425166481%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166389166447%_)) - (let ((_%e166398166452%_ + (gx#stx-pair? _%lp-hd166426166484%_)) + (let ((_%e166435166489%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166389166447%_)))) - (let ((_%hd166399166455%_ + (gx#stx-e _%lp-hd166426166484%_)))) + (let ((_%hd166436166492%_ (let () (declare (not safe)) - (##car _%e166398166452%_))) - (_%tl166400166457%_ + (##car _%e166435166489%_))) + (_%tl166437166494%_ (let () (declare (not safe)) - (##cdr _%e166398166452%_)))) + (##cdr _%e166435166489%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166400166457%_)) - (let ((_%e166401166460%_ + (gx#stx-pair? _%tl166437166494%_)) + (let ((_%e166438166497%_ (let () (declare (not safe)) (gx#stx-e - _%tl166400166457%_)))) - (let ((_%hd166402166463%_ + _%tl166437166494%_)))) + (let ((_%hd166439166500%_ (let () (declare (not safe)) - (##car _%e166401166460%_))) - (_%tl166403166465%_ + (##car _%e166438166497%_))) + (_%tl166440166502%_ (let () (declare (not safe)) - (##cdr _%e166401166460%_)))) + (##cdr _%e166438166497%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166403166465%_)) - (_%loop166387166434%_ - _%lp-tl166390166449%_ - (cons _%hd166402166463%_ - _%expr166391166439%_) - (cons _%hd166399166455%_ - _%hd166392166441%_)) - (_%g166373166408%_ - _%g166374166411%_)))) - (_%g166373166408%_ - _%g166374166411%_)))) - (_%g166373166408%_ _%g166374166411%_)))) - (let ((_%expr166393166468%_ - (reverse _%expr166391166439%_)) - (_%hd166394166470%_ - (reverse _%hd166392166441%_))) + _%tl166440166502%_)) + (_%loop166424166471%_ + _%lp-tl166427166486%_ + (cons _%hd166439166500%_ + _%expr166428166476%_) + (cons _%hd166436166492%_ + _%hd166429166478%_)) + (_%g166410166445%_ + _%g166411166448%_)))) + (_%g166410166445%_ + _%g166411166448%_)))) + (_%g166410166445%_ _%g166411166448%_)))) + (let ((_%expr166430166505%_ + (reverse _%expr166428166476%_)) + (_%hd166431166507%_ + (reverse _%hd166429166478%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166383166426%_)) - (let ((_%e166395166473%_ + (gx#stx-pair? _%tl166420166463%_)) + (let ((_%e166432166510%_ (let () (declare (not safe)) - (gx#stx-e _%tl166383166426%_)))) - (let ((_%hd166396166476%_ + (gx#stx-e _%tl166420166463%_)))) + (let ((_%hd166433166513%_ (let () (declare (not safe)) - (##car _%e166395166473%_))) - (_%tl166397166478%_ + (##car _%e166432166510%_))) + (_%tl166434166515%_ (let () (declare (not safe)) - (##cdr _%e166395166473%_)))) + (##cdr _%e166432166510%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166397166478%_)) - ((lambda (_%L166481%_ - _%L166482%_ - _%L166483%_) - (let ((__tmp171088 + (gx#stx-null? _%tl166434166515%_)) + ((lambda (_%L166518%_ + _%L166519%_ + _%L166520%_) + (let ((__tmp171125 (lambda () (for-each - _%collect-e166371%_ - (let ((__tmp171089 - (lambda (_%g166504166507%_ + _%collect-e166408%_ + (let ((__tmp171126 + (lambda (_%g166541166544%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166505166509%_) - (cons _%g166504166507%_ _%g166505166509%_)))) + _%g166542166546%_) + (cons _%g166541166544%_ _%g166542166546%_)))) (declare (not safe)) - (__foldr1 __tmp171089 '() _%L166483%_)) + (__foldr1 __tmp171126 '() _%L166520%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171090 - (lambda (_%g166511166514%_ + (let ((__tmp171127 + (lambda (_%g166548166551%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166512166516%_) - (cons _%g166511166514%_ _%g166512166516%_)))) + _%g166549166553%_) + (cons _%g166548166551%_ _%g166549166553%_)))) (declare (not safe)) - (__foldr1 __tmp171090 '() _%L166482%_))) + (__foldr1 __tmp171127 '() _%L166519%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g166518166520%_) + (lambda (_%g166555166557%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166367%_ - _%g166518166520%_))) - (let ((__tmp171091 - (lambda (_%g166522166525%_ + _%self166404%_ + _%g166555166557%_))) + (let ((__tmp171128 + (lambda (_%g166559166562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166523166527%_) - (cons _%g166522166525%_ _%g166523166527%_)))) + _%g166560166564%_) + (cons _%g166559166562%_ _%g166560166564%_)))) (declare (not safe)) - (__foldr1 __tmp171091 '() _%L166482%_))) + (__foldr1 __tmp171128 '() _%L166519%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - _%collect-e166371%_ - (let ((__tmp171092 - (lambda (_%g166529166532%_ + _%collect-e166408%_ + (let ((__tmp171129 + (lambda (_%g166566166569%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166530166534%_) - (cons _%g166529166532%_ _%g166530166534%_)))) + _%g166567166571%_) + (cons _%g166566166569%_ _%g166567166571%_)))) (declare (not safe)) - (__foldr1 __tmp171092 '() _%L166483%_)) + (__foldr1 __tmp171129 '() _%L166520%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171093 - (lambda (_%g166536166539%_ + (let ((__tmp171130 + (lambda (_%g166573166576%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166537166541%_) - (cons _%g166536166539%_ _%g166537166541%_)))) + _%g166574166578%_) + (cons _%g166573166576%_ _%g166574166578%_)))) (declare (not safe)) - (__foldr1 __tmp171093 '() _%L166482%_))) + (__foldr1 __tmp171130 '() _%L166519%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g166543166545%_) + (lambda (_%g166580166582%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166367%_ - _%g166543166545%_))) - (let ((__tmp171094 - (lambda (_%g166547166550%_ + _%self166404%_ + _%g166580166582%_))) + (let ((__tmp171131 + (lambda (_%g166584166587%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166548166552%_) - (cons _%g166547166550%_ _%g166548166552%_)))) + _%g166585166589%_) + (cons _%g166584166587%_ _%g166585166589%_)))) (declare (not safe)) - (__foldr1 __tmp171094 '() _%L166482%_))) + (__foldr1 __tmp171131 '() _%L166519%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self166367%_ - _%L166481%_)))) - (__tmp171085 - (let ((__tmp171086 - (let ((__tmp171087 - (lambda (_%g166554166557%_ + _%self166404%_ + _%L166518%_)))) + (__tmp171122 + (let ((__tmp171123 + (let ((__tmp171124 + (lambda (_%g166591166594%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166555166559%_) - (cons _%g166554166557%_ _%g166555166559%_)))) + _%g166592166596%_) + (cons _%g166591166594%_ _%g166592166596%_)))) (declare (not safe)) - (__foldr1 __tmp171087 '() _%L166483%_)))) + (__foldr1 __tmp171124 '() _%L166520%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171086)))) + __tmp171123)))) (declare (not safe)) (__call-with-parameters - __tmp171088 + __tmp171125 gxc#current-compile-local-env - __tmp171085))) - _%hd166396166476%_ - _%expr166393166468%_ - _%hd166394166470%_) - (_%g166373166408%_ - _%g166374166411%_)))) - (_%g166373166408%_ _%g166374166411%_))))))) + __tmp171122))) + _%hd166433166513%_ + _%expr166430166505%_ + _%hd166431166507%_) + (_%g166410166445%_ + _%g166411166448%_)))) + (_%g166410166445%_ _%g166411166448%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166387166434%_ - _%target166384166429%_ + (_%loop166424166471%_ + _%target166421166466%_ '() '())) - (_%g166373166408%_ - _%g166374166411%_))))) - (_%g166373166408%_ - _%g166374166411%_)))) - (_%g166373166408%_ _%g166374166411%_)))) - (_%g166373166408%_ _%g166374166411%_))))) - (_%g166372166562%_ _%stx166368%_))))) + (_%g166410166445%_ + _%g166411166448%_))))) + (_%g166410166445%_ + _%g166411166448%_)))) + (_%g166410166445%_ _%g166411166448%_)))) + (_%g166410166445%_ _%g166411166448%_))))) + (_%g166409166599%_ _%stx166405%_))))) (define gxc#collect-type-letrec-values%__0 - (lambda (_%self166624%_ _%stx166625%_) - (let ((_%expression-type166627%_ gxc#apply-basic-expression-type)) + (lambda (_%self166661%_ _%stx166662%_) + (let ((_%expression-type166664%_ gxc#apply-basic-expression-type)) (gxc#collect-type-letrec-values%__% - _%self166624%_ - _%stx166625%_ - _%expression-type166627%_)))) + _%self166661%_ + _%stx166662%_ + _%expression-type166664%_)))) (define gxc#collect-type-letrec-values% - (lambda _g171096_ - (let ((_g171095_ (let () (declare (not safe)) (##length _g171096_)))) - (cond ((let () (declare (not safe)) (##fx= _g171095_ 2)) - (apply gxc#collect-type-letrec-values%__0 _g171096_)) - ((let () (declare (not safe)) (##fx= _g171095_ 3)) - (apply gxc#collect-type-letrec-values%__% _g171096_)) + (lambda _g171133_ + (let ((_g171132_ (let () (declare (not safe)) (##length _g171133_)))) + (cond ((let () (declare (not safe)) (##fx= _g171132_ 2)) + (apply gxc#collect-type-letrec-values%__0 _g171133_)) + ((let () (declare (not safe)) (##fx= _g171132_ 3)) + (apply gxc#collect-type-letrec-values%__% _g171133_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-letrec-values% - _g171096_)))))) + _g171133_)))))) (define gxc#collect-top-level-type-let-values% - (lambda (_%self166363%_ _%stx166364%_) + (lambda (_%self166400%_ _%stx166401%_) (gxc#collect-type-let-values%__% - _%self166363%_ - _%stx166364%_ + _%self166400%_ + _%stx166401%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-letrec-values% - (lambda (_%self166360%_ _%stx166361%_) + (lambda (_%self166397%_ _%stx166398%_) (gxc#collect-type-letrec-values%__% - _%self166360%_ - _%stx166361%_ + _%self166397%_ + _%stx166398%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-call% - (lambda (_%self165847%_ _%stx165848%_) - (let* ((_%__stx168271168272%_ _%stx165848%_) - (_%g165852165967%_ + (lambda (_%self165884%_ _%stx165885%_) + (let* ((_%__stx168308168309%_ _%stx165885%_) + (_%g165889166004%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168271168272%_))))) - (let ((_%__kont168273168274%_ - (lambda (_%L166310%_ - _%L166311%_ - _%L166312%_ - _%L166313%_ - _%L166314%_) - (let ((__tmp171100 + _%__stx168308168309%_))))) + (let ((_%__kont168310168311%_ + (lambda (_%L166347%_ + _%L166348%_ + _%L166349%_ + _%L166350%_ + _%L166351%_) + (let ((__tmp171137 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166313%_))) - (__tmp171099 - (let () (declare (not safe)) (gx#stx-e _%L166312%_))) - (__tmp171098 + (gxc#identifier-symbol _%L166350%_))) + (__tmp171136 + (let () (declare (not safe)) (gx#stx-e _%L166349%_))) + (__tmp171135 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166311%_))) - (__tmp171097 + (gxc#identifier-symbol _%L166348%_))) + (__tmp171134 (let () (declare (not safe)) - (gx#stx-e _%L166310%_)))) + (gx#stx-e _%L166347%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp171100 - __tmp171099 - __tmp171098 - __tmp171097)))) - (_%__kont168275168276%_ - (lambda (_%L166138%_ _%L166139%_ _%L166140%_ _%L166141%_) - (let ((__tmp171103 + __tmp171137 + __tmp171136 + __tmp171135 + __tmp171134)))) + (_%__kont168312168313%_ + (lambda (_%L166175%_ _%L166176%_ _%L166177%_ _%L166178%_) + (let ((__tmp171140 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166140%_))) - (__tmp171102 - (let () (declare (not safe)) (gx#stx-e _%L166139%_))) - (__tmp171101 + (gxc#identifier-symbol _%L166177%_))) + (__tmp171139 + (let () (declare (not safe)) (gx#stx-e _%L166176%_))) + (__tmp171138 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166138%_)))) + (gxc#identifier-symbol _%L166175%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp171103 - __tmp171102 - __tmp171101 + __tmp171140 + __tmp171139 + __tmp171138 '#f)))) - (_%__kont168277168278%_ - (lambda (_%L166004%_) + (_%__kont168314168315%_ + (lambda (_%L166041%_) (for-each - (lambda (_%g166017166019%_) + (lambda (_%g166054166056%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165847%_ _%g166017166019%_))) - (let ((__tmp171104 - (lambda (_%g166021166024%_ _%g166022166026%_) - (cons _%g166021166024%_ _%g166022166026%_)))) + (gxc#compile-e__1 _%self165884%_ _%g166054166056%_))) + (let ((__tmp171141 + (lambda (_%g166058166061%_ _%g166059166063%_) + (cons _%g166058166061%_ _%g166059166063%_)))) (declare (not safe)) - (__foldr1 __tmp171104 '() _%L166004%_)))))) - (let* ((_%__match168528168529%_ - (lambda (_%e165951165972%_ - _%hd165952165975%_ - _%tl165953165977%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) - (letrec ((_%loop165957165985%_ - (lambda (_%hd165955165988%_ - _%expr165961165990%_) + (__foldr1 __tmp171141 '() _%L166041%_)))))) + (let* ((_%__match168565168566%_ + (lambda (_%e165988166009%_ + _%hd165989166012%_ + _%tl165990166014%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) + (letrec ((_%loop165994166022%_ + (lambda (_%hd165992166025%_ + _%expr165998166027%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165955165988%_)) - (let ((_%e165958165993%_ + (gx#stx-pair? _%hd165992166025%_)) + (let ((_%e165995166030%_ (let () (declare (not safe)) - (gx#stx-e _%hd165955165988%_)))) - (let ((_%lp-tl165960165998%_ + (gx#stx-e _%hd165992166025%_)))) + (let ((_%lp-tl165997166035%_ (let () (declare (not safe)) - (##cdr _%e165958165993%_))) - (_%lp-hd165959165996%_ + (##cdr _%e165995166030%_))) + (_%lp-hd165996166033%_ (let () (declare (not safe)) - (##car _%e165958165993%_)))) - (_%loop165957165985%_ - _%lp-tl165960165998%_ - (cons _%lp-hd165959165996%_ - _%expr165961165990%_)))) - (let ((_%expr165962166001%_ - (reverse _%expr165961165990%_))) - (_%__kont168277168278%_ - _%expr165962166001%_)))))) - (_%loop165957165985%_ _%target165954165980%_ '())))) - (_%__match168408168409%_ - (lambda (_%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%e165862166190%_ - _%hd165863166193%_ - _%tl165864166195%_ - _%e165865166198%_ - _%hd165866166201%_ - _%tl165867166203%_ - _%e165868166206%_ - _%hd165869166209%_ - _%tl165870166211%_ - _%e165871166214%_ - _%hd165872166217%_ - _%tl165873166219%_ - _%e165874166222%_ - _%hd165875166225%_ - _%tl165876166227%_ - _%e165877166230%_ - _%hd165878166233%_ - _%tl165879166235%_ - _%e165880166238%_ - _%hd165881166241%_ - _%tl165882166243%_ - _%e165883166246%_ - _%hd165884166249%_ - _%tl165885166251%_ - _%e165886166254%_ - _%hd165887166257%_ - _%tl165888166259%_ - _%e165889166262%_ - _%hd165890166265%_ - _%tl165891166267%_ - _%e165892166270%_ - _%hd165893166273%_ - _%tl165894166275%_ - _%e165895166278%_ - _%hd165896166281%_ - _%tl165897166283%_ - _%e165898166286%_ - _%hd165899166289%_ - _%tl165900166291%_ - _%e165901166294%_ - _%hd165902166297%_ - _%tl165903166299%_ - _%e165904166302%_ - _%hd165905166305%_ - _%tl165906166307%_) - (let ((_%L166310%_ _%hd165905166305%_) - (_%L166311%_ _%hd165896166281%_) - (_%L166312%_ _%hd165887166257%_) - (_%L166313%_ _%hd165878166233%_) - (_%L166314%_ _%hd165869166209%_)) + (##car _%e165995166030%_)))) + (_%loop165994166022%_ + _%lp-tl165997166035%_ + (cons _%lp-hd165996166033%_ + _%expr165998166027%_)))) + (let ((_%expr165999166038%_ + (reverse _%expr165998166027%_))) + (_%__kont168314168315%_ + _%expr165999166038%_)))))) + (_%loop165994166022%_ _%target165991166017%_ '())))) + (_%__match168445168446%_ + (lambda (_%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%e165899166227%_ + _%hd165900166230%_ + _%tl165901166232%_ + _%e165902166235%_ + _%hd165903166238%_ + _%tl165904166240%_ + _%e165905166243%_ + _%hd165906166246%_ + _%tl165907166248%_ + _%e165908166251%_ + _%hd165909166254%_ + _%tl165910166256%_ + _%e165911166259%_ + _%hd165912166262%_ + _%tl165913166264%_ + _%e165914166267%_ + _%hd165915166270%_ + _%tl165916166272%_ + _%e165917166275%_ + _%hd165918166278%_ + _%tl165919166280%_ + _%e165920166283%_ + _%hd165921166286%_ + _%tl165922166288%_ + _%e165923166291%_ + _%hd165924166294%_ + _%tl165925166296%_ + _%e165926166299%_ + _%hd165927166302%_ + _%tl165928166304%_ + _%e165929166307%_ + _%hd165930166310%_ + _%tl165931166312%_ + _%e165932166315%_ + _%hd165933166318%_ + _%tl165934166320%_ + _%e165935166323%_ + _%hd165936166326%_ + _%tl165937166328%_ + _%e165938166331%_ + _%hd165939166334%_ + _%tl165940166336%_ + _%e165941166339%_ + _%hd165942166342%_ + _%tl165943166344%_) + (let ((_%L166347%_ _%hd165942166342%_) + (_%L166348%_ _%hd165933166318%_) + (_%L166349%_ _%hd165924166294%_) + (_%L166350%_ _%hd165915166270%_) + (_%L166351%_ _%hd165906166246%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L166314%_ + _%L166351%_ 'bind-method!)) - (_%__kont168273168274%_ - _%L166310%_ - _%L166311%_ - _%L166312%_ - _%L166313%_ - _%L166314%_) + (_%__kont168310168311%_ + _%L166347%_ + _%L166348%_ + _%L166349%_ + _%L166350%_ + _%L166351%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))))) + (_%g165889166004%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168271168272%_)) - (let ((_%e165859166182%_ + (gx#stx-pair? _%__stx168308168309%_)) + (let ((_%e165896166219%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168271168272%_)))) - (let ((_%tl165861166187%_ + (gx#stx-e _%__stx168308168309%_)))) + (let ((_%tl165898166224%_ (let () (declare (not safe)) - (##cdr _%e165859166182%_))) - (_%hd165860166185%_ + (##cdr _%e165896166219%_))) + (_%hd165897166222%_ (let () (declare (not safe)) - (##car _%e165859166182%_)))) + (##car _%e165896166219%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165861166187%_)) - (let ((_%e165862166190%_ + (gx#stx-pair? _%tl165898166224%_)) + (let ((_%e165899166227%_ (let () (declare (not safe)) - (gx#stx-e _%tl165861166187%_)))) - (let ((_%tl165864166195%_ + (gx#stx-e _%tl165898166224%_)))) + (let ((_%tl165901166232%_ (let () (declare (not safe)) - (##cdr _%e165862166190%_))) - (_%hd165863166193%_ + (##cdr _%e165899166227%_))) + (_%hd165900166230%_ (let () (declare (not safe)) - (##car _%e165862166190%_)))) + (##car _%e165899166227%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165863166193%_)) - (let ((_%e165865166198%_ + (gx#stx-pair? _%hd165900166230%_)) + (let ((_%e165902166235%_ (let () (declare (not safe)) - (gx#stx-e _%hd165863166193%_)))) - (let ((_%tl165867166203%_ + (gx#stx-e _%hd165900166230%_)))) + (let ((_%tl165904166240%_ (let () (declare (not safe)) - (##cdr _%e165865166198%_))) - (_%hd165866166201%_ + (##cdr _%e165902166235%_))) + (_%hd165903166238%_ (let () (declare (not safe)) - (##car _%e165865166198%_)))) + (##car _%e165902166235%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd165866166201%_)) + _%hd165903166238%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd165866166201%_)) + _%hd165903166238%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165867166203%_)) - (let ((_%e165868166206%_ + _%tl165904166240%_)) + (let ((_%e165905166243%_ (let () (declare (not safe)) (gx#stx-e - _%tl165867166203%_)))) - (let ((_%tl165870166211%_ + _%tl165904166240%_)))) + (let ((_%tl165907166248%_ (let () (declare (not safe)) - (##cdr _%e165868166206%_))) - (_%hd165869166209%_ + (##cdr _%e165905166243%_))) + (_%hd165906166246%_ (let () (declare (not safe)) - (##car _%e165868166206%_)))) + (##car _%e165905166243%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165870166211%_)) + _%tl165907166248%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl165864166195%_)) - (let ((_%e165871166214%_ + (gx#stx-pair? _%tl165901166232%_)) + (let ((_%e165908166251%_ (let () (declare (not safe)) - (gx#stx-e _%tl165864166195%_)))) - (let ((_%tl165873166219%_ + (gx#stx-e _%tl165901166232%_)))) + (let ((_%tl165910166256%_ (let () (declare (not safe)) - (##cdr _%e165871166214%_))) - (_%hd165872166217%_ + (##cdr _%e165908166251%_))) + (_%hd165909166254%_ (let () (declare (not safe)) - (##car _%e165871166214%_)))) + (##car _%e165908166251%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165872166217%_)) - (let ((_%e165874166222%_ + (gx#stx-pair? _%hd165909166254%_)) + (let ((_%e165911166259%_ (let () (declare (not safe)) - (gx#stx-e _%hd165872166217%_)))) - (let ((_%tl165876166227%_ + (gx#stx-e _%hd165909166254%_)))) + (let ((_%tl165913166264%_ (let () (declare (not safe)) - (##cdr _%e165874166222%_))) - (_%hd165875166225%_ + (##cdr _%e165911166259%_))) + (_%hd165912166262%_ (let () (declare (not safe)) - (##car _%e165874166222%_)))) + (##car _%e165911166259%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165875166225%_)) + (gx#identifier? _%hd165912166262%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd165875166225%_)) + _%hd165912166262%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165876166227%_)) - (let ((_%e165877166230%_ + _%tl165913166264%_)) + (let ((_%e165914166267%_ (let () (declare (not safe)) (gx#stx-e - _%tl165876166227%_)))) - (let ((_%tl165879166235%_ + _%tl165913166264%_)))) + (let ((_%tl165916166272%_ (let () (declare (not safe)) - (##cdr _%e165877166230%_))) - (_%hd165878166233%_ + (##cdr _%e165914166267%_))) + (_%hd165915166270%_ (let () (declare (not safe)) - (##car _%e165877166230%_)))) + (##car _%e165914166267%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165879166235%_)) + _%tl165916166272%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165873166219%_)) - (let ((_%e165880166238%_ + _%tl165910166256%_)) + (let ((_%e165917166275%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165873166219%_)))) - (let ((_%tl165882166243%_ + (gx#stx-e _%tl165910166256%_)))) + (let ((_%tl165919166280%_ (let () (declare (not safe)) - (##cdr _%e165880166238%_))) - (_%hd165881166241%_ + (##cdr _%e165917166275%_))) + (_%hd165918166278%_ (let () (declare (not safe)) - (##car _%e165880166238%_)))) + (##car _%e165917166275%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165881166241%_)) - (let ((_%e165883166246%_ + (gx#stx-pair? _%hd165918166278%_)) + (let ((_%e165920166283%_ (let () (declare (not safe)) - (gx#stx-e _%hd165881166241%_)))) - (let ((_%tl165885166251%_ + (gx#stx-e _%hd165918166278%_)))) + (let ((_%tl165922166288%_ (let () (declare (not safe)) - (##cdr _%e165883166246%_))) - (_%hd165884166249%_ + (##cdr _%e165920166283%_))) + (_%hd165921166286%_ (let () (declare (not safe)) - (##car _%e165883166246%_)))) + (##car _%e165920166283%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165884166249%_)) + (gx#identifier? _%hd165921166286%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd165884166249%_)) + _%hd165921166286%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165885166251%_)) - (let ((_%e165886166254%_ + (gx#stx-pair? _%tl165922166288%_)) + (let ((_%e165923166291%_ (let () (declare (not safe)) (gx#stx-e - _%tl165885166251%_)))) - (let ((_%tl165888166259%_ + _%tl165922166288%_)))) + (let ((_%tl165925166296%_ (let () (declare (not safe)) - (##cdr _%e165886166254%_))) - (_%hd165887166257%_ + (##cdr _%e165923166291%_))) + (_%hd165924166294%_ (let () (declare (not safe)) - (##car _%e165886166254%_)))) + (##car _%e165923166291%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165888166259%_)) + _%tl165925166296%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165882166243%_)) - (let ((_%e165889166262%_ + _%tl165919166280%_)) + (let ((_%e165926166299%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165882166243%_)))) - (let ((_%tl165891166267%_ - (let () (declare (not safe)) (##cdr _%e165889166262%_))) - (_%hd165890166265%_ + (gx#stx-e _%tl165919166280%_)))) + (let ((_%tl165928166304%_ + (let () (declare (not safe)) (##cdr _%e165926166299%_))) + (_%hd165927166302%_ (let () (declare (not safe)) - (##car _%e165889166262%_)))) + (##car _%e165926166299%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165890166265%_)) - (let ((_%e165892166270%_ + (gx#stx-pair? _%hd165927166302%_)) + (let ((_%e165929166307%_ (let () (declare (not safe)) - (gx#stx-e _%hd165890166265%_)))) - (let ((_%tl165894166275%_ + (gx#stx-e _%hd165927166302%_)))) + (let ((_%tl165931166312%_ (let () (declare (not safe)) - (##cdr _%e165892166270%_))) - (_%hd165893166273%_ + (##cdr _%e165929166307%_))) + (_%hd165930166310%_ (let () (declare (not safe)) - (##car _%e165892166270%_)))) + (##car _%e165929166307%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165893166273%_)) + (gx#identifier? _%hd165930166310%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165893166273%_)) + (gx#stx-eq? '%#ref _%hd165930166310%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165894166275%_)) - (let ((_%e165895166278%_ + (gx#stx-pair? _%tl165931166312%_)) + (let ((_%e165932166315%_ (let () (declare (not safe)) - (gx#stx-e _%tl165894166275%_)))) - (let ((_%tl165897166283%_ + (gx#stx-e _%tl165931166312%_)))) + (let ((_%tl165934166320%_ (let () (declare (not safe)) - (##cdr _%e165895166278%_))) - (_%hd165896166281%_ + (##cdr _%e165932166315%_))) + (_%hd165933166318%_ (let () (declare (not safe)) - (##car _%e165895166278%_)))) + (##car _%e165932166315%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165897166283%_)) + _%tl165934166320%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165891166267%_)) - (let ((_%e165898166286%_ + _%tl165928166304%_)) + (let ((_%e165935166323%_ (let () (declare (not safe)) (gx#stx-e - _%tl165891166267%_)))) - (let ((_%tl165900166291%_ + _%tl165928166304%_)))) + (let ((_%tl165937166328%_ (let () (declare (not safe)) - (##cdr _%e165898166286%_))) - (_%hd165899166289%_ + (##cdr _%e165935166323%_))) + (_%hd165936166326%_ (let () (declare (not safe)) - (##car _%e165898166286%_)))) + (##car _%e165935166323%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165899166289%_)) - (let ((_%e165901166294%_ + _%hd165936166326%_)) + (let ((_%e165938166331%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd165899166289%_)))) - (let ((_%tl165903166299%_ + (gx#stx-e _%hd165936166326%_)))) + (let ((_%tl165940166336%_ (let () (declare (not safe)) - (##cdr _%e165901166294%_))) - (_%hd165902166297%_ + (##cdr _%e165938166331%_))) + (_%hd165939166334%_ (let () (declare (not safe)) - (##car _%e165901166294%_)))) + (##car _%e165938166331%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165902166297%_)) + (gx#identifier? _%hd165939166334%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd165902166297%_)) + (gx#stx-eq? '%#quote _%hd165939166334%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165903166299%_)) - (let ((_%e165904166302%_ + (gx#stx-pair? _%tl165940166336%_)) + (let ((_%e165941166339%_ (let () (declare (not safe)) - (gx#stx-e _%tl165903166299%_)))) - (let ((_%tl165906166307%_ + (gx#stx-e _%tl165940166336%_)))) + (let ((_%tl165943166344%_ (let () (declare (not safe)) - (##cdr _%e165904166302%_))) - (_%hd165905166305%_ + (##cdr _%e165941166339%_))) + (_%hd165942166342%_ (let () (declare (not safe)) - (##car _%e165904166302%_)))) + (##car _%e165941166339%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165906166307%_)) + (gx#stx-null? _%tl165943166344%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165900166291%_)) - (_%__match168408168409%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%e165862166190%_ - _%hd165863166193%_ - _%tl165864166195%_ - _%e165865166198%_ - _%hd165866166201%_ - _%tl165867166203%_ - _%e165868166206%_ - _%hd165869166209%_ - _%tl165870166211%_ - _%e165871166214%_ - _%hd165872166217%_ - _%tl165873166219%_ - _%e165874166222%_ - _%hd165875166225%_ - _%tl165876166227%_ - _%e165877166230%_ - _%hd165878166233%_ - _%tl165879166235%_ - _%e165880166238%_ - _%hd165881166241%_ - _%tl165882166243%_ - _%e165883166246%_ - _%hd165884166249%_ - _%tl165885166251%_ - _%e165886166254%_ - _%hd165887166257%_ - _%tl165888166259%_ - _%e165889166262%_ - _%hd165890166265%_ - _%tl165891166267%_ - _%e165892166270%_ - _%hd165893166273%_ - _%tl165894166275%_ - _%e165895166278%_ - _%hd165896166281%_ - _%tl165897166283%_ - _%e165898166286%_ - _%hd165899166289%_ - _%tl165900166291%_ - _%e165901166294%_ - _%hd165902166297%_ - _%tl165903166299%_ - _%e165904166302%_ - _%hd165905166305%_ - _%tl165906166307%_) + _%tl165937166328%_)) + (_%__match168445168446%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%e165899166227%_ + _%hd165900166230%_ + _%tl165901166232%_ + _%e165902166235%_ + _%hd165903166238%_ + _%tl165904166240%_ + _%e165905166243%_ + _%hd165906166246%_ + _%tl165907166248%_ + _%e165908166251%_ + _%hd165909166254%_ + _%tl165910166256%_ + _%e165911166259%_ + _%hd165912166262%_ + _%tl165913166264%_ + _%e165914166267%_ + _%hd165915166270%_ + _%tl165916166272%_ + _%e165917166275%_ + _%hd165918166278%_ + _%tl165919166280%_ + _%e165920166283%_ + _%hd165921166286%_ + _%tl165922166288%_ + _%e165923166291%_ + _%hd165924166294%_ + _%tl165925166296%_ + _%e165926166299%_ + _%hd165927166302%_ + _%tl165928166304%_ + _%e165929166307%_ + _%hd165930166310%_ + _%tl165931166312%_ + _%e165932166315%_ + _%hd165933166318%_ + _%tl165934166320%_ + _%e165935166323%_ + _%hd165936166326%_ + _%tl165937166328%_ + _%e165938166331%_ + _%hd165939166334%_ + _%tl165940166336%_ + _%e165941166339%_ + _%hd165942166342%_ + _%tl165943166344%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))) + (_%g165889166004%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))) + (_%g165889166004%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))) + (_%g165889166004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))) + (_%g165889166004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))) + (_%g165889166004%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '1))) - (_%target165954165980%_ + (##vector-ref _%__splice168316168317%_ '1))) + (_%target165991166017%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '0)))) + (##vector-ref _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) - (let () (declare (not safe)) (_%g165852165967%_)))))) + (_%g165889166004%_))))) + (let () (declare (not safe)) (_%g165889166004%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl165891166267%_)) - (if (let ((__tmp171105 + _%tl165928166304%_)) + (if (let ((__tmp171142 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp171105 'bind-method!)) - (let ((_%L166138%_ _%hd165896166281%_) - (_%L166139%_ _%hd165887166257%_) - (_%L166140%_ _%hd165878166233%_) - (_%L166141%_ _%hd165869166209%_)) - (_%__kont168275168276%_ - _%L166138%_ - _%L166139%_ - _%L166140%_ - _%L166141%_)) + (gxc#runtime-identifier=? __tmp171142 'bind-method!)) + (let ((_%L166175%_ _%hd165933166318%_) + (_%L166176%_ _%hd165924166294%_) + (_%L166177%_ _%hd165915166270%_) + (_%L166178%_ _%hd165906166246%_)) + (_%__kont168312168313%_ + _%L166175%_ + _%L166176%_ + _%L166177%_ + _%L166178%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '1))) - (_%target165954165980%_ + (##vector-ref _%__splice168316168317%_ '1))) + (_%target165991166017%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '0)))) + (##vector-ref _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) - (let () (declare (not safe)) (_%g165852165967%_)))) + (_%g165889166004%_))))) + (let () (declare (not safe)) (_%g165889166004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165861166187%_ '0)))) - (let ((_%tl165956165982%_ + (gx#syntax-split-splice _%tl165898166224%_ '0)))) + (let ((_%tl165993166019%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '1))) - (_%target165954165980%_ + (##vector-ref _%__splice168316168317%_ '1))) + (_%target165991166017%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '0)))) + (##vector-ref _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) - (let () (declare (not safe)) (_%g165852165967%_))))) - (let () (declare (not safe)) (_%g165852165967%_))))) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) + (let () (declare (not safe)) (_%g165889166004%_))))) + (let () (declare (not safe)) (_%g165889166004%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))) + (_%g165889166004%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))) + (_%g165889166004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))) + (_%g165889166004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))) + (_%g165889166004%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) - (let () (declare (not safe)) (_%g165852165967%_)))))) + (_%g165889166004%_))))) + (let () (declare (not safe)) (_%g165889166004%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165861166187%_ '0)))) - (let ((_%tl165956165982%_ + (gx#syntax-split-splice _%tl165898166224%_ '0)))) + (let ((_%tl165993166019%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '1))) - (_%target165954165980%_ + (##vector-ref _%__splice168316168317%_ '1))) + (_%target165991166017%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '0)))) + (##vector-ref _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) - (let () (declare (not safe)) (_%g165852165967%_))))) - (let () (declare (not safe)) (_%g165852165967%_)))) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) + (let () (declare (not safe)) (_%g165889166004%_))))) + (let () (declare (not safe)) (_%g165889166004%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl165861166187%_ '0)))) - (let ((_%tl165956165982%_ + (gx#syntax-split-splice _%tl165898166224%_ '0)))) + (let ((_%tl165993166019%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '1))) - (_%target165954165980%_ + (##vector-ref _%__splice168316168317%_ '1))) + (_%target165991166017%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '0)))) + (##vector-ref _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) - (let () (declare (not safe)) (_%g165852165967%_))))) - (let () (declare (not safe)) (_%g165852165967%_)))))) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) + (let () (declare (not safe)) (_%g165889166004%_))))) + (let () (declare (not safe)) (_%g165889166004%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))) + (_%g165889166004%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))) + (_%g165889166004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))) + (_%g165889166004%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))) + (_%g165889166004%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '1))) - (_%target165954165980%_ + (##vector-ref _%__splice168316168317%_ '1))) + (_%target165991166017%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '0)))) + (##vector-ref _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) - (let () (declare (not safe)) (_%g165852165967%_)))) + (_%g165889166004%_))))) + (let () (declare (not safe)) (_%g165889166004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165861166187%_ '0)))) - (let ((_%tl165956165982%_ + (gx#syntax-split-splice _%tl165898166224%_ '0)))) + (let ((_%tl165993166019%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '1))) - (_%target165954165980%_ + (##vector-ref _%__splice168316168317%_ '1))) + (_%target165991166017%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '0)))) + (##vector-ref _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) - (let () (declare (not safe)) (_%g165852165967%_))))) - (let () (declare (not safe)) (_%g165852165967%_)))))) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) + (let () (declare (not safe)) (_%g165889166004%_))))) + (let () (declare (not safe)) (_%g165889166004%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))) + (_%g165889166004%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))) + (_%g165889166004%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))) + (_%g165889166004%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))) + (_%g165889166004%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) - (let () (declare (not safe)) (_%g165852165967%_)))) + (_%g165889166004%_))))) + (let () (declare (not safe)) (_%g165889166004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '1))) - (_%target165954165980%_ + (##vector-ref _%__splice168316168317%_ '1))) + (_%target165991166017%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '0)))) + (##vector-ref _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) - (let () (declare (not safe)) (_%g165852165967%_)))))) + (_%g165889166004%_))))) + (let () (declare (not safe)) (_%g165889166004%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl165861166187%_ '0)))) - (let ((_%tl165956165982%_ + (gx#syntax-split-splice _%tl165898166224%_ '0)))) + (let ((_%tl165993166019%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '1))) - (_%target165954165980%_ + (##vector-ref _%__splice168316168317%_ '1))) + (_%target165991166017%_ (let () (declare (not safe)) - (##vector-ref _%__splice168279168280%_ '0)))) + (##vector-ref _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) - (let () (declare (not safe)) (_%g165852165967%_))))) - (let () (declare (not safe)) (_%g165852165967%_)))) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) + (let () (declare (not safe)) (_%g165889166004%_))))) + (let () (declare (not safe)) (_%g165889166004%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))) + (_%g165889166004%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))) + (_%g165889166004%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))) + (_%g165889166004%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165861166187%_)) - (let ((_%__splice168279168280%_ + (gx#stx-pair/null? _%tl165898166224%_)) + (let ((_%__splice168316168317%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165861166187%_ + _%tl165898166224%_ '0)))) - (let ((_%tl165956165982%_ + (let ((_%tl165993166019%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '1))) - (_%target165954165980%_ + (_%target165991166017%_ (let () (declare (not safe)) (##vector-ref - _%__splice168279168280%_ + _%__splice168316168317%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165956165982%_)) - (_%__match168528168529%_ - _%e165859166182%_ - _%hd165860166185%_ - _%tl165861166187%_ - _%__splice168279168280%_ - _%target165954165980%_ - _%tl165956165982%_) + (gx#stx-null? _%tl165993166019%_)) + (_%__match168565168566%_ + _%e165896166219%_ + _%hd165897166222%_ + _%tl165898166224%_ + _%__splice168316168317%_ + _%target165991166017%_ + _%tl165993166019%_) (let () (declare (not safe)) - (_%g165852165967%_))))) + (_%g165889166004%_))))) (let () (declare (not safe)) - (_%g165852165967%_)))))) - (let () (declare (not safe)) (_%g165852165967%_)))))))) + (_%g165889166004%_)))))) + (let () (declare (not safe)) (_%g165889166004%_)))))))) (define gxc#collect-type-setq% - (lambda (_%self165770%_ _%stx165771%_) - (let* ((_%g165773165790%_ - (lambda (_%g165774165787%_) + (lambda (_%self165807%_ _%stx165808%_) + (let* ((_%g165810165827%_ + (lambda (_%g165811165824%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165774165787%_)))) - (_%g165772165844%_ - (lambda (_%g165774165793%_) + _%g165811165824%_)))) + (_%g165809165881%_ + (lambda (_%g165811165830%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165774165793%_)) - (let ((_%e165777165795%_ + (gx#stx-pair? _%g165811165830%_)) + (let ((_%e165814165832%_ (let () (declare (not safe)) - (gx#stx-e _%g165774165793%_)))) - (let ((_%hd165778165798%_ + (gx#stx-e _%g165811165830%_)))) + (let ((_%hd165815165835%_ (let () (declare (not safe)) - (##car _%e165777165795%_))) - (_%tl165779165800%_ + (##car _%e165814165832%_))) + (_%tl165816165837%_ (let () (declare (not safe)) - (##cdr _%e165777165795%_)))) + (##cdr _%e165814165832%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165779165800%_)) - (let ((_%e165780165803%_ + (gx#stx-pair? _%tl165816165837%_)) + (let ((_%e165817165840%_ (let () (declare (not safe)) - (gx#stx-e _%tl165779165800%_)))) - (let ((_%hd165781165806%_ + (gx#stx-e _%tl165816165837%_)))) + (let ((_%hd165818165843%_ (let () (declare (not safe)) - (##car _%e165780165803%_))) - (_%tl165782165808%_ + (##car _%e165817165840%_))) + (_%tl165819165845%_ (let () (declare (not safe)) - (##cdr _%e165780165803%_)))) + (##cdr _%e165817165840%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165782165808%_)) - (let ((_%e165783165811%_ + (gx#stx-pair? _%tl165819165845%_)) + (let ((_%e165820165848%_ (let () (declare (not safe)) - (gx#stx-e _%tl165782165808%_)))) - (let ((_%hd165784165814%_ + (gx#stx-e _%tl165819165845%_)))) + (let ((_%hd165821165851%_ (let () (declare (not safe)) - (##car _%e165783165811%_))) - (_%tl165785165816%_ + (##car _%e165820165848%_))) + (_%tl165822165853%_ (let () (declare (not safe)) - (##cdr _%e165783165811%_)))) + (##cdr _%e165820165848%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165785165816%_)) - ((lambda (_%L165819%_ - _%L165820%_) - (let* ((_%sym165835%_ + _%tl165822165853%_)) + ((lambda (_%L165856%_ + _%L165857%_) + (let* ((_%sym165872%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L165820%_))) - (_%bind-type165837%_ + _%L165857%_))) + (_%bind-type165874%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym165835%_))) - (_%expr-type165839%_ + _%sym165872%_))) + (_%expr-type165876%_ (gxc#apply-basic-expression-type - _%L165819%_)) - (_%reduced-type165841%_ + _%L165856%_)) + (_%reduced-type165878%_ (gxc#greatest-common-type - _%stx165771%_ - _%bind-type165837%_ - _%expr-type165839%_))) - (if _%reduced-type165841%_ - (let ((__tmp171106 - (memq _%sym165835%_ + _%stx165808%_ + _%bind-type165874%_ + _%expr-type165876%_))) + (if _%reduced-type165878%_ + (let ((__tmp171143 + (memq _%sym165872%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#current-compile-local-env))))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165835%_ - _%reduced-type165841%_ - __tmp171106)) + _%sym165872%_ + _%reduced-type165878%_ + __tmp171143)) '#!void) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self165770%_ - _%L165819%_)))) - _%hd165784165814%_ - _%hd165781165806%_) - (_%g165773165790%_ - _%g165774165793%_)))) - (_%g165773165790%_ _%g165774165793%_)))) - (_%g165773165790%_ _%g165774165793%_)))) - (_%g165773165790%_ _%g165774165793%_))))) - (_%g165772165844%_ _%stx165771%_)))) + _%self165807%_ + _%L165856%_)))) + _%hd165821165851%_ + _%hd165818165843%_) + (_%g165810165827%_ + _%g165811165830%_)))) + (_%g165810165827%_ _%g165811165830%_)))) + (_%g165810165827%_ _%g165811165830%_)))) + (_%g165810165827%_ _%g165811165830%_))))) + (_%g165809165881%_ _%stx165808%_)))) (define gxc#apply-path-type-if% - (lambda (_%self165370%_ _%stx165371%_) - (let* ((_%__stx168531168532%_ _%stx165371%_) - (_%g165375165464%_ + (lambda (_%self165407%_ _%stx165408%_) + (let* ((_%__stx168568168569%_ _%stx165408%_) + (_%g165412165501%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168531168532%_))))) - (let ((_%__kont168533168534%_ - (lambda (_%L165722%_ _%L165723%_ _%L165724%_ _%L165725%_) - (let ((_%$e165757%_ - (let ((__tmp171107 + _%__stx168568168569%_))))) + (let ((_%__kont168570168571%_ + (lambda (_%L165759%_ _%L165760%_ _%L165761%_ _%L165762%_) + (let ((_%$e165794%_ + (let ((__tmp171144 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165725%_)))) + (gxc#identifier-symbol _%L165762%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171107)))) - (if _%$e165757%_ - ((lambda (_%pred-type165760%_) + (gxc#optimizer-lookup-type __tmp171144)))) + (if _%$e165794%_ + ((lambda (_%pred-type165797%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type165760%_ + _%pred-type165797%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type165760%_ + _%pred-type165797%_ 'gxc#!primitive-predicate::t))) (begin - (let ((__tmp171110 + (let ((__tmp171147 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self165370%_ - _%L165723%_)))) - (__tmp171108 + _%self165407%_ + _%L165760%_)))) + (__tmp171145 (cons (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L165724%_)) - (let ((__tmp171109 + _%L165761%_)) + (let ((__tmp171146 (##structure-ref - _%pred-type165760%_ + _%pred-type165797%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165371%_ - __tmp171109))) + _%stx165408%_ + __tmp171146))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) (declare (not safe)) (__call-with-parameters - __tmp171110 + __tmp171147 gxc#current-compile-path-type - __tmp171108)) + __tmp171145)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165370%_ - _%L165722%_))) + _%self165407%_ + _%L165759%_))) (let () (declare (not safe)) (gxc#apply-operands - _%self165370%_ - _%stx165371%_)))) - _%$e165757%_) + _%self165407%_ + _%stx165408%_)))) + _%$e165794%_) (let () (declare (not safe)) (gxc#apply-operands - _%self165370%_ - _%stx165371%_)))))) - (_%__kont168535168536%_ - (lambda (_%L165598%_ _%L165599%_ _%L165600%_ _%L165601%_) + _%self165407%_ + _%stx165408%_)))))) + (_%__kont168572168573%_ + (lambda (_%L165635%_ _%L165636%_ _%L165637%_ _%L165638%_) (gxc#apply-path-type-if% - _%self165370%_ - (let ((__tmp171111 + _%self165407%_ + (let ((__tmp171148 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L165600%_ - (cons _%L165598%_ - (cons _%L165599%_ '())))))) + (cons _%L165637%_ + (cons _%L165635%_ + (cons _%L165636%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171111 _%stx165371%_))))) - (_%__kont168537168538%_ - (lambda (_%L165501%_ _%L165502%_ _%L165503%_) + (gxc#xform-wrap-source __tmp171148 _%stx165408%_))))) + (_%__kont168574168575%_ + (lambda (_%L165538%_ _%L165539%_ _%L165540%_) (let () (declare (not safe)) - (gxc#apply-operands _%self165370%_ _%stx165371%_))))) - (let ((_%__match168692168693%_ - (lambda (_%e165418165526%_ - _%hd165419165529%_ - _%tl165420165531%_ - _%e165421165534%_ - _%hd165422165537%_ - _%tl165423165539%_ - _%e165424165542%_ - _%hd165425165545%_ - _%tl165426165547%_ - _%e165427165550%_ - _%hd165428165553%_ - _%tl165429165555%_ - _%e165430165558%_ - _%hd165431165561%_ - _%tl165432165563%_ - _%e165433165566%_ - _%hd165434165569%_ - _%tl165435165571%_ - _%e165436165574%_ - _%hd165437165577%_ - _%tl165438165579%_ - _%e165439165582%_ - _%hd165440165585%_ - _%tl165441165587%_ - _%e165442165590%_ - _%hd165443165593%_ - _%tl165444165595%_) - (let ((_%L165598%_ _%hd165443165593%_) - (_%L165599%_ _%hd165440165585%_) - (_%L165600%_ _%hd165437165577%_) - (_%L165601%_ _%hd165434165569%_)) + (gxc#apply-operands _%self165407%_ _%stx165408%_))))) + (let ((_%__match168729168730%_ + (lambda (_%e165455165563%_ + _%hd165456165566%_ + _%tl165457165568%_ + _%e165458165571%_ + _%hd165459165574%_ + _%tl165460165576%_ + _%e165461165579%_ + _%hd165462165582%_ + _%tl165463165584%_ + _%e165464165587%_ + _%hd165465165590%_ + _%tl165466165592%_ + _%e165467165595%_ + _%hd165468165598%_ + _%tl165469165600%_ + _%e165470165603%_ + _%hd165471165606%_ + _%tl165472165608%_ + _%e165473165611%_ + _%hd165474165614%_ + _%tl165475165616%_ + _%e165476165619%_ + _%hd165477165622%_ + _%tl165478165624%_ + _%e165479165627%_ + _%hd165480165630%_ + _%tl165481165632%_) + (let ((_%L165635%_ _%hd165480165630%_) + (_%L165636%_ _%hd165477165622%_) + (_%L165637%_ _%hd165474165614%_) + (_%L165638%_ _%hd165471165606%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L165601%_ 'not)) - (_%__kont168535168536%_ - _%L165598%_ - _%L165599%_ - _%L165600%_ - _%L165601%_) - (_%__kont168537168538%_ - _%hd165443165593%_ - _%hd165440165585%_ - _%hd165422165537%_)))))) + (gxc#runtime-identifier=? _%L165638%_ 'not)) + (_%__kont168572168573%_ + _%L165635%_ + _%L165636%_ + _%L165637%_ + _%L165638%_) + (_%__kont168574168575%_ + _%hd165480165630%_ + _%hd165477165622%_ + _%hd165459165574%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168531168532%_)) - (let ((_%e165381165634%_ + (gx#stx-pair? _%__stx168568168569%_)) + (let ((_%e165418165671%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168531168532%_)))) - (let ((_%tl165383165639%_ + (gx#stx-e _%__stx168568168569%_)))) + (let ((_%tl165420165676%_ (let () (declare (not safe)) - (##cdr _%e165381165634%_))) - (_%hd165382165637%_ + (##cdr _%e165418165671%_))) + (_%hd165419165674%_ (let () (declare (not safe)) - (##car _%e165381165634%_)))) + (##car _%e165418165671%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165383165639%_)) - (let ((_%e165384165642%_ + (gx#stx-pair? _%tl165420165676%_)) + (let ((_%e165421165679%_ (let () (declare (not safe)) - (gx#stx-e _%tl165383165639%_)))) - (let ((_%tl165386165647%_ + (gx#stx-e _%tl165420165676%_)))) + (let ((_%tl165423165684%_ (let () (declare (not safe)) - (##cdr _%e165384165642%_))) - (_%hd165385165645%_ + (##cdr _%e165421165679%_))) + (_%hd165422165682%_ (let () (declare (not safe)) - (##car _%e165384165642%_)))) + (##car _%e165421165679%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165385165645%_)) - (let ((_%e165387165650%_ + (gx#stx-pair? _%hd165422165682%_)) + (let ((_%e165424165687%_ (let () (declare (not safe)) - (gx#stx-e _%hd165385165645%_)))) - (let ((_%tl165389165655%_ + (gx#stx-e _%hd165422165682%_)))) + (let ((_%tl165426165692%_ (let () (declare (not safe)) - (##cdr _%e165387165650%_))) - (_%hd165388165653%_ + (##cdr _%e165424165687%_))) + (_%hd165425165690%_ (let () (declare (not safe)) - (##car _%e165387165650%_)))) + (##car _%e165424165687%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd165388165653%_)) + _%hd165425165690%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd165388165653%_)) + _%hd165425165690%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165389165655%_)) - (let ((_%e165390165658%_ + _%tl165426165692%_)) + (let ((_%e165427165695%_ (let () (declare (not safe)) (gx#stx-e - _%tl165389165655%_)))) - (let ((_%tl165392165663%_ + _%tl165426165692%_)))) + (let ((_%tl165429165700%_ (let () (declare (not safe)) - (##cdr _%e165390165658%_))) - (_%hd165391165661%_ + (##cdr _%e165427165695%_))) + (_%hd165428165698%_ (let () (declare (not safe)) - (##car _%e165390165658%_)))) + (##car _%e165427165695%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165391165661%_)) - (let ((_%e165393165666%_ + _%hd165428165698%_)) + (let ((_%e165430165703%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd165391165661%_)))) - (let ((_%tl165395165671%_ + (gx#stx-e _%hd165428165698%_)))) + (let ((_%tl165432165708%_ (let () (declare (not safe)) - (##cdr _%e165393165666%_))) - (_%hd165394165669%_ + (##cdr _%e165430165703%_))) + (_%hd165431165706%_ (let () (declare (not safe)) - (##car _%e165393165666%_)))) + (##car _%e165430165703%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165394165669%_)) + (gx#identifier? _%hd165431165706%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165394165669%_)) + (gx#stx-eq? '%#ref _%hd165431165706%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165395165671%_)) - (let ((_%e165396165674%_ + (gx#stx-pair? _%tl165432165708%_)) + (let ((_%e165433165711%_ (let () (declare (not safe)) - (gx#stx-e _%tl165395165671%_)))) - (let ((_%tl165398165679%_ + (gx#stx-e _%tl165432165708%_)))) + (let ((_%tl165435165716%_ (let () (declare (not safe)) - (##cdr _%e165396165674%_))) - (_%hd165397165677%_ + (##cdr _%e165433165711%_))) + (_%hd165434165714%_ (let () (declare (not safe)) - (##car _%e165396165674%_)))) + (##car _%e165433165711%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165398165679%_)) + (gx#stx-null? _%tl165435165716%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165392165663%_)) - (let ((_%e165399165682%_ + _%tl165429165700%_)) + (let ((_%e165436165719%_ (let () (declare (not safe)) (gx#stx-e - _%tl165392165663%_)))) - (let ((_%tl165401165687%_ + _%tl165429165700%_)))) + (let ((_%tl165438165724%_ (let () (declare (not safe)) - (##cdr _%e165399165682%_))) - (_%hd165400165685%_ + (##cdr _%e165436165719%_))) + (_%hd165437165722%_ (let () (declare (not safe)) - (##car _%e165399165682%_)))) + (##car _%e165436165719%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165400165685%_)) - (let ((_%e165402165690%_ + _%hd165437165722%_)) + (let ((_%e165439165727%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd165400165685%_)))) - (let ((_%tl165404165695%_ - (let () (declare (not safe)) (##cdr _%e165402165690%_))) - (_%hd165403165693%_ + (gx#stx-e _%hd165437165722%_)))) + (let ((_%tl165441165732%_ + (let () (declare (not safe)) (##cdr _%e165439165727%_))) + (_%hd165440165730%_ (let () (declare (not safe)) - (##car _%e165402165690%_)))) + (##car _%e165439165727%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165403165693%_)) + (gx#identifier? _%hd165440165730%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165403165693%_)) + (gx#stx-eq? '%#ref _%hd165440165730%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165404165695%_)) - (let ((_%e165405165698%_ + (gx#stx-pair? _%tl165441165732%_)) + (let ((_%e165442165735%_ (let () (declare (not safe)) - (gx#stx-e _%tl165404165695%_)))) - (let ((_%tl165407165703%_ + (gx#stx-e _%tl165441165732%_)))) + (let ((_%tl165444165740%_ (let () (declare (not safe)) - (##cdr _%e165405165698%_))) - (_%hd165406165701%_ + (##cdr _%e165442165735%_))) + (_%hd165443165738%_ (let () (declare (not safe)) - (##car _%e165405165698%_)))) + (##car _%e165442165735%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165407165703%_)) + (gx#stx-null? _%tl165444165740%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165401165687%_)) + (gx#stx-null? _%tl165438165724%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165386165647%_)) - (let ((_%e165408165706%_ + _%tl165423165684%_)) + (let ((_%e165445165743%_ (let () (declare (not safe)) (gx#stx-e - _%tl165386165647%_)))) - (let ((_%tl165410165711%_ + _%tl165423165684%_)))) + (let ((_%tl165447165748%_ (let () (declare (not safe)) - (##cdr _%e165408165706%_))) - (_%hd165409165709%_ + (##cdr _%e165445165743%_))) + (_%hd165446165746%_ (let () (declare (not safe)) - (##car _%e165408165706%_)))) + (##car _%e165445165743%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165410165711%_)) - (let ((_%e165411165714%_ + _%tl165447165748%_)) + (let ((_%e165448165751%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165410165711%_)))) - (let ((_%tl165413165719%_ - (let () (declare (not safe)) (##cdr _%e165411165714%_))) - (_%hd165412165717%_ + (gx#stx-e _%tl165447165748%_)))) + (let ((_%tl165450165756%_ + (let () (declare (not safe)) (##cdr _%e165448165751%_))) + (_%hd165449165754%_ (let () (declare (not safe)) - (##car _%e165411165714%_)))) + (##car _%e165448165751%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165413165719%_)) - (_%__kont168533168534%_ - _%hd165412165717%_ - _%hd165409165709%_ - _%hd165406165701%_ - _%hd165397165677%_) - (let () (declare (not safe)) (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_))))) + (gx#stx-null? _%tl165450165756%_)) + (_%__kont168570168571%_ + _%hd165449165754%_ + _%hd165446165746%_ + _%hd165443165738%_ + _%hd165434165714%_) + (let () (declare (not safe)) (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165375165464%_))) + (_%g165412165501%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165386165647%_)) - (let ((_%e165454165485%_ + _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) (gx#stx-e - _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165456165490%_)) - (let ((_%e165457165493%_ + _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165456165490%_)))) - (let ((_%tl165459165498%_ - (let () (declare (not safe)) (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (gx#stx-e _%tl165493165527%_)))) + (let ((_%tl165496165535%_ + (let () (declare (not safe)) (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) - (let () (declare (not safe)) (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_))))) + (gx#stx-null? _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) + (let () (declare (not safe)) (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165375165464%_)))) + (_%g165412165501%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165401165687%_)) + (gx#stx-null? _%tl165438165724%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165386165647%_)) - (let ((_%e165439165582%_ + _%tl165423165684%_)) + (let ((_%e165476165619%_ (let () (declare (not safe)) (gx#stx-e - _%tl165386165647%_)))) - (let ((_%tl165441165587%_ + _%tl165423165684%_)))) + (let ((_%tl165478165624%_ (let () (declare (not safe)) - (##cdr _%e165439165582%_))) - (_%hd165440165585%_ + (##cdr _%e165476165619%_))) + (_%hd165477165622%_ (let () (declare (not safe)) - (##car _%e165439165582%_)))) + (##car _%e165476165619%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165441165587%_)) - (let ((_%e165442165590%_ + _%tl165478165624%_)) + (let ((_%e165479165627%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165441165587%_)))) - (let ((_%tl165444165595%_ - (let () (declare (not safe)) (##cdr _%e165442165590%_))) - (_%hd165443165593%_ + (gx#stx-e _%tl165478165624%_)))) + (let ((_%tl165481165632%_ + (let () (declare (not safe)) (##cdr _%e165479165627%_))) + (_%hd165480165630%_ (let () (declare (not safe)) - (##car _%e165442165590%_)))) + (##car _%e165479165627%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165444165595%_)) - (_%__match168692168693%_ - _%e165381165634%_ - _%hd165382165637%_ - _%tl165383165639%_ - _%e165384165642%_ - _%hd165385165645%_ - _%tl165386165647%_ - _%e165387165650%_ - _%hd165388165653%_ - _%tl165389165655%_ - _%e165390165658%_ - _%hd165391165661%_ - _%tl165392165663%_ - _%e165393165666%_ - _%hd165394165669%_ - _%tl165395165671%_ - _%e165396165674%_ - _%hd165397165677%_ - _%tl165398165679%_ - _%e165399165682%_ - _%hd165400165685%_ - _%tl165401165687%_ - _%e165439165582%_ - _%hd165440165585%_ - _%tl165441165587%_ - _%e165442165590%_ - _%hd165443165593%_ - _%tl165444165595%_) - (let () (declare (not safe)) (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_))))) + (gx#stx-null? _%tl165481165632%_)) + (_%__match168729168730%_ + _%e165418165671%_ + _%hd165419165674%_ + _%tl165420165676%_ + _%e165421165679%_ + _%hd165422165682%_ + _%tl165423165684%_ + _%e165424165687%_ + _%hd165425165690%_ + _%tl165426165692%_ + _%e165427165695%_ + _%hd165428165698%_ + _%tl165429165700%_ + _%e165430165703%_ + _%hd165431165706%_ + _%tl165432165708%_ + _%e165433165711%_ + _%hd165434165714%_ + _%tl165435165716%_ + _%e165436165719%_ + _%hd165437165722%_ + _%tl165438165724%_ + _%e165476165619%_ + _%hd165477165622%_ + _%tl165478165624%_ + _%e165479165627%_ + _%hd165480165630%_ + _%tl165481165632%_) + (let () (declare (not safe)) (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165375165464%_))) + (_%g165412165501%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165386165647%_)) - (let ((_%e165454165485%_ + _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) (gx#stx-e - _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165456165490%_)) - (let ((_%e165457165493%_ + _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165456165490%_)))) - (let ((_%tl165459165498%_ - (let () (declare (not safe)) (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (gx#stx-e _%tl165493165527%_)))) + (let ((_%tl165496165535%_ + (let () (declare (not safe)) (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) - (let () (declare (not safe)) (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_))))) + (gx#stx-null? _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) + (let () (declare (not safe)) (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165375165464%_))))))) + (_%g165412165501%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165401165687%_)) + (gx#stx-null? _%tl165438165724%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165439165582%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165476165619%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165441165587%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165478165624%_ (let () (declare (not safe)) - (##cdr _%e165439165582%_))) - (_%hd165440165585%_ + (##cdr _%e165476165619%_))) + (_%hd165477165622%_ (let () (declare (not safe)) - (##car _%e165439165582%_)))) + (##car _%e165476165619%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165441165587%_)) - (let ((_%e165442165590%_ + _%tl165478165624%_)) + (let ((_%e165479165627%_ (let () (declare (not safe)) (gx#stx-e - _%tl165441165587%_)))) - (let ((_%tl165444165595%_ + _%tl165478165624%_)))) + (let ((_%tl165481165632%_ (let () (declare (not safe)) - (##cdr _%e165442165590%_))) - (_%hd165443165593%_ + (##cdr _%e165479165627%_))) + (_%hd165480165630%_ (let () (declare (not safe)) - (##car _%e165442165590%_)))) + (##car _%e165479165627%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165444165595%_)) - (_%__match168692168693%_ - _%e165381165634%_ - _%hd165382165637%_ - _%tl165383165639%_ - _%e165384165642%_ - _%hd165385165645%_ - _%tl165386165647%_ - _%e165387165650%_ - _%hd165388165653%_ - _%tl165389165655%_ - _%e165390165658%_ - _%hd165391165661%_ - _%tl165392165663%_ - _%e165393165666%_ - _%hd165394165669%_ - _%tl165395165671%_ - _%e165396165674%_ - _%hd165397165677%_ - _%tl165398165679%_ - _%e165399165682%_ - _%hd165400165685%_ - _%tl165401165687%_ - _%e165439165582%_ - _%hd165440165585%_ - _%tl165441165587%_ - _%e165442165590%_ - _%hd165443165593%_ - _%tl165444165595%_) + _%tl165481165632%_)) + (_%__match168729168730%_ + _%e165418165671%_ + _%hd165419165674%_ + _%tl165420165676%_ + _%e165421165679%_ + _%hd165422165682%_ + _%tl165423165684%_ + _%e165424165687%_ + _%hd165425165690%_ + _%tl165426165692%_ + _%e165427165695%_ + _%hd165428165698%_ + _%tl165429165700%_ + _%e165430165703%_ + _%hd165431165706%_ + _%tl165432165708%_ + _%e165433165711%_ + _%hd165434165714%_ + _%tl165435165716%_ + _%e165436165719%_ + _%hd165437165722%_ + _%tl165438165724%_ + _%e165476165619%_ + _%hd165477165622%_ + _%tl165478165624%_ + _%e165479165627%_ + _%hd165480165630%_ + _%tl165481165632%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))) + (_%g165412165501%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165454165485%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165456165490%_)) - (let ((_%e165457165493%_ + _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare (not safe)) (gx#stx-e - _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) + _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165401165687%_)) + (gx#stx-null? _%tl165438165724%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165439165582%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165476165619%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165441165587%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165478165624%_ (let () (declare (not safe)) - (##cdr _%e165439165582%_))) - (_%hd165440165585%_ + (##cdr _%e165476165619%_))) + (_%hd165477165622%_ (let () (declare (not safe)) - (##car _%e165439165582%_)))) + (##car _%e165476165619%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165441165587%_)) - (let ((_%e165442165590%_ + (gx#stx-pair? _%tl165478165624%_)) + (let ((_%e165479165627%_ (let () (declare (not safe)) (gx#stx-e - _%tl165441165587%_)))) - (let ((_%tl165444165595%_ + _%tl165478165624%_)))) + (let ((_%tl165481165632%_ (let () (declare (not safe)) - (##cdr _%e165442165590%_))) - (_%hd165443165593%_ + (##cdr _%e165479165627%_))) + (_%hd165480165630%_ (let () (declare (not safe)) - (##car _%e165442165590%_)))) + (##car _%e165479165627%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165444165595%_)) - (_%__match168692168693%_ - _%e165381165634%_ - _%hd165382165637%_ - _%tl165383165639%_ - _%e165384165642%_ - _%hd165385165645%_ - _%tl165386165647%_ - _%e165387165650%_ - _%hd165388165653%_ - _%tl165389165655%_ - _%e165390165658%_ - _%hd165391165661%_ - _%tl165392165663%_ - _%e165393165666%_ - _%hd165394165669%_ - _%tl165395165671%_ - _%e165396165674%_ - _%hd165397165677%_ - _%tl165398165679%_ - _%e165399165682%_ - _%hd165400165685%_ - _%tl165401165687%_ - _%e165439165582%_ - _%hd165440165585%_ - _%tl165441165587%_ - _%e165442165590%_ - _%hd165443165593%_ - _%tl165444165595%_) + _%tl165481165632%_)) + (_%__match168729168730%_ + _%e165418165671%_ + _%hd165419165674%_ + _%tl165420165676%_ + _%e165421165679%_ + _%hd165422165682%_ + _%tl165423165684%_ + _%e165424165687%_ + _%hd165425165690%_ + _%tl165426165692%_ + _%e165427165695%_ + _%hd165428165698%_ + _%tl165429165700%_ + _%e165430165703%_ + _%hd165431165706%_ + _%tl165432165708%_ + _%e165433165711%_ + _%hd165434165714%_ + _%tl165435165716%_ + _%e165436165719%_ + _%hd165437165722%_ + _%tl165438165724%_ + _%e165476165619%_ + _%hd165477165622%_ + _%tl165478165624%_ + _%e165479165627%_ + _%hd165480165630%_ + _%tl165481165632%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))) + (_%g165412165501%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165454165485%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165456165490%_)) - (let ((_%e165457165493%_ + (gx#stx-pair? _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare (not safe)) (gx#stx-e - _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) + _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165401165687%_)) + (gx#stx-null? _%tl165438165724%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165439165582%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165476165619%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165441165587%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165478165624%_ (let () (declare (not safe)) - (##cdr _%e165439165582%_))) - (_%hd165440165585%_ + (##cdr _%e165476165619%_))) + (_%hd165477165622%_ (let () (declare (not safe)) - (##car _%e165439165582%_)))) + (##car _%e165476165619%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165441165587%_)) - (let ((_%e165442165590%_ + (gx#stx-pair? _%tl165478165624%_)) + (let ((_%e165479165627%_ (let () (declare (not safe)) - (gx#stx-e _%tl165441165587%_)))) - (let ((_%tl165444165595%_ + (gx#stx-e _%tl165478165624%_)))) + (let ((_%tl165481165632%_ (let () (declare (not safe)) - (##cdr _%e165442165590%_))) - (_%hd165443165593%_ + (##cdr _%e165479165627%_))) + (_%hd165480165630%_ (let () (declare (not safe)) - (##car _%e165442165590%_)))) + (##car _%e165479165627%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165444165595%_)) - (_%__match168692168693%_ - _%e165381165634%_ - _%hd165382165637%_ - _%tl165383165639%_ - _%e165384165642%_ - _%hd165385165645%_ - _%tl165386165647%_ - _%e165387165650%_ - _%hd165388165653%_ - _%tl165389165655%_ - _%e165390165658%_ - _%hd165391165661%_ - _%tl165392165663%_ - _%e165393165666%_ - _%hd165394165669%_ - _%tl165395165671%_ - _%e165396165674%_ - _%hd165397165677%_ - _%tl165398165679%_ - _%e165399165682%_ - _%hd165400165685%_ - _%tl165401165687%_ - _%e165439165582%_ - _%hd165440165585%_ - _%tl165441165587%_ - _%e165442165590%_ - _%hd165443165593%_ - _%tl165444165595%_) + _%tl165481165632%_)) + (_%__match168729168730%_ + _%e165418165671%_ + _%hd165419165674%_ + _%tl165420165676%_ + _%e165421165679%_ + _%hd165422165682%_ + _%tl165423165684%_ + _%e165424165687%_ + _%hd165425165690%_ + _%tl165426165692%_ + _%e165427165695%_ + _%hd165428165698%_ + _%tl165429165700%_ + _%e165430165703%_ + _%hd165431165706%_ + _%tl165432165708%_ + _%e165433165711%_ + _%hd165434165714%_ + _%tl165435165716%_ + _%e165436165719%_ + _%hd165437165722%_ + _%tl165438165724%_ + _%e165476165619%_ + _%hd165477165622%_ + _%tl165478165624%_ + _%e165479165627%_ + _%hd165480165630%_ + _%tl165481165632%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))) + (_%g165412165501%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165454165485%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165456165490%_)) - (let ((_%e165457165493%_ + (gx#stx-pair? _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare (not safe)) - (gx#stx-e _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + (gx#stx-e _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) + _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))))) + (_%g165412165501%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165401165687%_)) + (gx#stx-null? _%tl165438165724%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165439165582%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165476165619%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165441165587%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165478165624%_ (let () (declare (not safe)) - (##cdr _%e165439165582%_))) - (_%hd165440165585%_ + (##cdr _%e165476165619%_))) + (_%hd165477165622%_ (let () (declare (not safe)) - (##car _%e165439165582%_)))) + (##car _%e165476165619%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165441165587%_)) - (let ((_%e165442165590%_ + (gx#stx-pair? _%tl165478165624%_)) + (let ((_%e165479165627%_ (let () (declare (not safe)) - (gx#stx-e _%tl165441165587%_)))) - (let ((_%tl165444165595%_ + (gx#stx-e _%tl165478165624%_)))) + (let ((_%tl165481165632%_ (let () (declare (not safe)) - (##cdr _%e165442165590%_))) - (_%hd165443165593%_ + (##cdr _%e165479165627%_))) + (_%hd165480165630%_ (let () (declare (not safe)) - (##car _%e165442165590%_)))) + (##car _%e165479165627%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165444165595%_)) - (_%__match168692168693%_ - _%e165381165634%_ - _%hd165382165637%_ - _%tl165383165639%_ - _%e165384165642%_ - _%hd165385165645%_ - _%tl165386165647%_ - _%e165387165650%_ - _%hd165388165653%_ - _%tl165389165655%_ - _%e165390165658%_ - _%hd165391165661%_ - _%tl165392165663%_ - _%e165393165666%_ - _%hd165394165669%_ - _%tl165395165671%_ - _%e165396165674%_ - _%hd165397165677%_ - _%tl165398165679%_ - _%e165399165682%_ - _%hd165400165685%_ - _%tl165401165687%_ - _%e165439165582%_ - _%hd165440165585%_ - _%tl165441165587%_ - _%e165442165590%_ - _%hd165443165593%_ - _%tl165444165595%_) + (gx#stx-null? _%tl165481165632%_)) + (_%__match168729168730%_ + _%e165418165671%_ + _%hd165419165674%_ + _%tl165420165676%_ + _%e165421165679%_ + _%hd165422165682%_ + _%tl165423165684%_ + _%e165424165687%_ + _%hd165425165690%_ + _%tl165426165692%_ + _%e165427165695%_ + _%hd165428165698%_ + _%tl165429165700%_ + _%e165430165703%_ + _%hd165431165706%_ + _%tl165432165708%_ + _%e165433165711%_ + _%hd165434165714%_ + _%tl165435165716%_ + _%e165436165719%_ + _%hd165437165722%_ + _%tl165438165724%_ + _%e165476165619%_ + _%hd165477165622%_ + _%tl165478165624%_ + _%e165479165627%_ + _%hd165480165630%_ + _%tl165481165632%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_))) + (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165454165485%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165456165490%_)) - (let ((_%e165457165493%_ + (gx#stx-pair? _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare (not safe)) - (gx#stx-e _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + (gx#stx-e _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) + (gx#stx-null? _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_))))))) + (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165386165647%_)) - (let ((_%e165454165485%_ + _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) (gx#stx-e - _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165456165490%_)) - (let ((_%e165457165493%_ + _%tl165493165527%_)) + (let ((_%e165494165530%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + (gx#stx-e _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) - (let () (declare (not safe)) (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_))))) + (gx#stx-null? _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) + (let () (declare (not safe)) (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165375165464%_)))) + (_%g165412165501%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165386165647%_)) - (let ((_%e165454165485%_ + _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) (gx#stx-e - _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165456165490%_)) - (let ((_%e165457165493%_ + _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165456165490%_)))) - (let ((_%tl165459165498%_ - (let () (declare (not safe)) (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (gx#stx-e _%tl165493165527%_)))) + (let ((_%tl165496165535%_ + (let () (declare (not safe)) (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) - (let () (declare (not safe)) (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_))))) + (gx#stx-null? _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) + (let () (declare (not safe)) (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165375165464%_)))))) + (_%g165412165501%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165454165485%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165456165490%_)) - (let ((_%e165457165493%_ + _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare (not safe)) (gx#stx-e - _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) + _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_)))) + (_%g165412165501%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165454165485%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165456165490%_)) - (let ((_%e165457165493%_ + (gx#stx-pair? _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare (not safe)) (gx#stx-e - _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) + _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_)))) + (_%g165412165501%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165454165485%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165456165490%_)) - (let ((_%e165457165493%_ + (gx#stx-pair? _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare (not safe)) - (gx#stx-e _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + (gx#stx-e _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) + _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_)))))) + (_%g165412165501%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165454165485%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165456165490%_)) - (let ((_%e165457165493%_ + (gx#stx-pair? _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare (not safe)) - (gx#stx-e _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + (gx#stx-e _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) + (gx#stx-null? _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_)))))) + (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165386165647%_)) - (let ((_%e165454165485%_ + _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165456165490%_ - (let () (declare (not safe)) (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165493165527%_ + (let () (declare (not safe)) (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165456165490%_)) - (let ((_%e165457165493%_ + (gx#stx-pair? _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare (not safe)) - (gx#stx-e _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + (gx#stx-e _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) + (gx#stx-null? _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) (let () (declare (not safe)) - (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_)))) + (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165386165647%_)) - (let ((_%e165454165485%_ + _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) (gx#stx-e - _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165456165490%_)) - (let ((_%e165457165493%_ + _%tl165493165527%_)) + (let ((_%e165494165530%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + (gx#stx-e _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) - (let () (declare (not safe)) (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_))))) + (gx#stx-null? _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) + (let () (declare (not safe)) (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165375165464%_)))) + (_%g165412165501%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165386165647%_)) - (let ((_%e165454165485%_ + _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) (gx#stx-e - _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165456165490%_)) - (let ((_%e165457165493%_ + _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165456165490%_)))) - (let ((_%tl165459165498%_ - (let () (declare (not safe)) (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (gx#stx-e _%tl165493165527%_)))) + (let ((_%tl165496165535%_ + (let () (declare (not safe)) (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) - (let () (declare (not safe)) (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_))))) + (gx#stx-null? _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) + (let () (declare (not safe)) (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165375165464%_)))))) + (_%g165412165501%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165386165647%_)) - (let ((_%e165454165485%_ + (gx#stx-pair? _%tl165423165684%_)) + (let ((_%e165491165522%_ (let () (declare (not safe)) - (gx#stx-e _%tl165386165647%_)))) - (let ((_%tl165456165490%_ + (gx#stx-e _%tl165423165684%_)))) + (let ((_%tl165493165527%_ (let () (declare (not safe)) - (##cdr _%e165454165485%_))) - (_%hd165455165488%_ + (##cdr _%e165491165522%_))) + (_%hd165492165525%_ (let () (declare (not safe)) - (##car _%e165454165485%_)))) + (##car _%e165491165522%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165456165490%_)) - (let ((_%e165457165493%_ + _%tl165493165527%_)) + (let ((_%e165494165530%_ (let () (declare (not safe)) (gx#stx-e - _%tl165456165490%_)))) - (let ((_%tl165459165498%_ + _%tl165493165527%_)))) + (let ((_%tl165496165535%_ (let () (declare (not safe)) - (##cdr _%e165457165493%_))) - (_%hd165458165496%_ + (##cdr _%e165494165530%_))) + (_%hd165495165533%_ (let () (declare (not safe)) - (##car _%e165457165493%_)))) + (##car _%e165494165530%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165459165498%_)) - (_%__kont168537168538%_ - _%hd165458165496%_ - _%hd165455165488%_ - _%hd165385165645%_) + _%tl165496165535%_)) + (_%__kont168574168575%_ + _%hd165495165533%_ + _%hd165492165525%_ + _%hd165422165682%_) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_))))) + (_%g165412165501%_))))) (let () (declare (not safe)) - (_%g165375165464%_)))))) - (let () (declare (not safe)) (_%g165375165464%_))))) - (let () (declare (not safe)) (_%g165375165464%_)))))))) + (_%g165412165501%_)))))) + (let () (declare (not safe)) (_%g165412165501%_))))) + (let () (declare (not safe)) (_%g165412165501%_)))))))) (define gxc#refine-type-define-values% - (lambda (_%self165228%_ _%stx165229%_) - (let* ((_%__stx168721168722%_ _%stx165229%_) - (_%g165232165262%_ + (lambda (_%self165265%_ _%stx165266%_) + (let* ((_%__stx168758168759%_ _%stx165266%_) + (_%g165269165299%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168721168722%_))))) - (let ((_%__kont168723168724%_ - (lambda (_%L165342%_ _%L165343%_) - (let ((_%sym165359%_ + _%__stx168758168759%_))))) + (let ((_%__kont168760168761%_ + (lambda (_%L165379%_ _%L165380%_) + (let ((_%sym165396%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165343%_)))) - (if (let ((__tmp171112 + (gxc#identifier-symbol _%L165380%_)))) + (if (let ((__tmp171149 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp171112 _%sym165359%_)) + (hash-get __tmp171149 _%sym165396%_)) '#!void - (let ((_%type165360165362%_ - (gxc#apply-basic-expression-type _%L165342%_))) - (if _%type165360165362%_ - (let ((_%type165365%_ _%type165360165362%_)) + (let ((_%type165397165399%_ + (gxc#apply-basic-expression-type _%L165379%_))) + (if _%type165397165399%_ + (let ((_%type165402%_ _%type165397165399%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165365%_ + _%type165402%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym165359%_ - _%type165365%_)))) + _%sym165396%_ + _%type165402%_)))) '#f))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165228%_ _%L165342%_))))) - (_%__kont168725168726%_ - (lambda (_%L165291%_) + (gxc#compile-e__1 _%self165265%_ _%L165379%_))))) + (_%__kont168762168763%_ + (lambda (_%L165328%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165228%_ _%L165291%_))))) - (let ((_%__match168754168755%_ - (lambda (_%e165236165310%_ - _%hd165237165313%_ - _%tl165238165315%_ - _%e165239165318%_ - _%hd165240165321%_ - _%tl165241165323%_ - _%e165242165326%_ - _%hd165243165329%_ - _%tl165244165331%_ - _%e165245165334%_ - _%hd165246165337%_ - _%tl165247165339%_) - (let ((_%L165342%_ _%hd165246165337%_) - (_%L165343%_ _%hd165243165329%_)) + (gxc#compile-e__1 _%self165265%_ _%L165328%_))))) + (let ((_%__match168791168792%_ + (lambda (_%e165273165347%_ + _%hd165274165350%_ + _%tl165275165352%_ + _%e165276165355%_ + _%hd165277165358%_ + _%tl165278165360%_ + _%e165279165363%_ + _%hd165280165366%_ + _%tl165281165368%_ + _%e165282165371%_ + _%hd165283165374%_ + _%tl165284165376%_) + (let ((_%L165379%_ _%hd165283165374%_) + (_%L165380%_ _%hd165280165366%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165343%_)) - (_%__kont168723168724%_ _%L165342%_ _%L165343%_) - (_%__kont168725168726%_ _%hd165246165337%_)))))) + (gx#identifier? _%L165380%_)) + (_%__kont168760168761%_ _%L165379%_ _%L165380%_) + (_%__kont168762168763%_ _%hd165283165374%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168721168722%_)) - (let ((_%e165236165310%_ + (gx#stx-pair? _%__stx168758168759%_)) + (let ((_%e165273165347%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168721168722%_)))) - (let ((_%tl165238165315%_ + (gx#stx-e _%__stx168758168759%_)))) + (let ((_%tl165275165352%_ (let () (declare (not safe)) - (##cdr _%e165236165310%_))) - (_%hd165237165313%_ + (##cdr _%e165273165347%_))) + (_%hd165274165350%_ (let () (declare (not safe)) - (##car _%e165236165310%_)))) + (##car _%e165273165347%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165238165315%_)) - (let ((_%e165239165318%_ + (gx#stx-pair? _%tl165275165352%_)) + (let ((_%e165276165355%_ (let () (declare (not safe)) - (gx#stx-e _%tl165238165315%_)))) - (let ((_%tl165241165323%_ + (gx#stx-e _%tl165275165352%_)))) + (let ((_%tl165278165360%_ (let () (declare (not safe)) - (##cdr _%e165239165318%_))) - (_%hd165240165321%_ + (##cdr _%e165276165355%_))) + (_%hd165277165358%_ (let () (declare (not safe)) - (##car _%e165239165318%_)))) + (##car _%e165276165355%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165240165321%_)) - (let ((_%e165242165326%_ + (gx#stx-pair? _%hd165277165358%_)) + (let ((_%e165279165363%_ (let () (declare (not safe)) - (gx#stx-e _%hd165240165321%_)))) - (let ((_%tl165244165331%_ + (gx#stx-e _%hd165277165358%_)))) + (let ((_%tl165281165368%_ (let () (declare (not safe)) - (##cdr _%e165242165326%_))) - (_%hd165243165329%_ + (##cdr _%e165279165363%_))) + (_%hd165280165366%_ (let () (declare (not safe)) - (##car _%e165242165326%_)))) + (##car _%e165279165363%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165244165331%_)) + (gx#stx-null? _%tl165281165368%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165241165323%_)) - (let ((_%e165245165334%_ + _%tl165278165360%_)) + (let ((_%e165282165371%_ (let () (declare (not safe)) (gx#stx-e - _%tl165241165323%_)))) - (let ((_%tl165247165339%_ + _%tl165278165360%_)))) + (let ((_%tl165284165376%_ (let () (declare (not safe)) - (##cdr _%e165245165334%_))) - (_%hd165246165337%_ + (##cdr _%e165282165371%_))) + (_%hd165283165374%_ (let () (declare (not safe)) - (##car _%e165245165334%_)))) + (##car _%e165282165371%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165247165339%_)) - (_%__match168754168755%_ - _%e165236165310%_ - _%hd165237165313%_ - _%tl165238165315%_ - _%e165239165318%_ - _%hd165240165321%_ - _%tl165241165323%_ - _%e165242165326%_ - _%hd165243165329%_ - _%tl165244165331%_ - _%e165245165334%_ - _%hd165246165337%_ - _%tl165247165339%_) + _%tl165284165376%_)) + (_%__match168791168792%_ + _%e165273165347%_ + _%hd165274165350%_ + _%tl165275165352%_ + _%e165276165355%_ + _%hd165277165358%_ + _%tl165278165360%_ + _%e165279165363%_ + _%hd165280165366%_ + _%tl165281165368%_ + _%e165282165371%_ + _%hd165283165374%_ + _%tl165284165376%_) (let () (declare (not safe)) - (_%g165232165262%_))))) + (_%g165269165299%_))))) (let () (declare (not safe)) - (_%g165232165262%_))) + (_%g165269165299%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165241165323%_)) - (let ((_%e165255165283%_ + _%tl165278165360%_)) + (let ((_%e165292165320%_ (let () (declare (not safe)) (gx#stx-e - _%tl165241165323%_)))) - (let ((_%tl165257165288%_ + _%tl165278165360%_)))) + (let ((_%tl165294165325%_ (let () (declare (not safe)) - (##cdr _%e165255165283%_))) - (_%hd165256165286%_ + (##cdr _%e165292165320%_))) + (_%hd165293165323%_ (let () (declare (not safe)) - (##car _%e165255165283%_)))) + (##car _%e165292165320%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165257165288%_)) - (_%__kont168725168726%_ - _%hd165256165286%_) + _%tl165294165325%_)) + (_%__kont168762168763%_ + _%hd165293165323%_) (let () (declare (not safe)) - (_%g165232165262%_))))) + (_%g165269165299%_))))) (let () (declare (not safe)) - (_%g165232165262%_)))))) + (_%g165269165299%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165241165323%_)) - (let ((_%e165255165283%_ + (gx#stx-pair? _%tl165278165360%_)) + (let ((_%e165292165320%_ (let () (declare (not safe)) - (gx#stx-e _%tl165241165323%_)))) - (let ((_%tl165257165288%_ + (gx#stx-e _%tl165278165360%_)))) + (let ((_%tl165294165325%_ (let () (declare (not safe)) - (##cdr _%e165255165283%_))) - (_%hd165256165286%_ + (##cdr _%e165292165320%_))) + (_%hd165293165323%_ (let () (declare (not safe)) - (##car _%e165255165283%_)))) + (##car _%e165292165320%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165257165288%_)) - (_%__kont168725168726%_ - _%hd165256165286%_) + _%tl165294165325%_)) + (_%__kont168762168763%_ + _%hd165293165323%_) (let () (declare (not safe)) - (_%g165232165262%_))))) + (_%g165269165299%_))))) (let () (declare (not safe)) - (_%g165232165262%_)))))) - (let () (declare (not safe)) (_%g165232165262%_))))) - (let () (declare (not safe)) (_%g165232165262%_)))))))) + (_%g165269165299%_)))))) + (let () (declare (not safe)) (_%g165269165299%_))))) + (let () (declare (not safe)) (_%g165269165299%_)))))))) (define gxc#refine-type-let-values% - (lambda (_%self165000%_ _%stx165001%_) - (letrec ((_%collect-e165003%_ - (lambda (_%hd165172%_ _%expr165173%_) - (let* ((_%__stx168777168778%_ _%hd165172%_) - (_%g165176165186%_ + (lambda (_%self165037%_ _%stx165038%_) + (letrec ((_%collect-e165040%_ + (lambda (_%hd165209%_ _%expr165210%_) + (let* ((_%__stx168814168815%_ _%hd165209%_) + (_%g165213165223%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168777168778%_))))) - (let ((_%__kont168779168780%_ - (lambda (_%L165206%_) - (let ((_%sym165217%_ + _%__stx168814168815%_))))) + (let ((_%__kont168816168817%_ + (lambda (_%L165243%_) + (let ((_%sym165254%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165206%_)))) - (if (let ((__tmp171113 + (gxc#identifier-symbol _%L165243%_)))) + (if (let ((__tmp171150 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp171113 _%sym165217%_)) + (hash-get __tmp171150 _%sym165254%_)) '#!void - (let ((_%type165218165220%_ + (let ((_%type165255165257%_ (gxc#apply-basic-expression-type - _%expr165173%_))) - (if _%type165218165220%_ - (let ((_%type165223%_ - _%type165218165220%_)) + _%expr165210%_))) + (if _%type165255165257%_ + (let ((_%type165260%_ + _%type165255165257%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165223%_ + _%type165260%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165217%_ - _%type165223%_ + _%sym165254%_ + _%type165260%_ '#t)))) '#f)))))) - (_%__kont168781168782%_ (lambda () '#!void))) - (let ((_%__match168790168791%_ - (lambda (_%e165179165198%_ - _%hd165180165201%_ - _%tl165181165203%_) - (let ((_%L165206%_ _%hd165180165201%_)) + (_%__kont168818168819%_ (lambda () '#!void))) + (let ((_%__match168827168828%_ + (lambda (_%e165216165235%_ + _%hd165217165238%_ + _%tl165218165240%_) + (let ((_%L165243%_ _%hd165217165238%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165206%_)) - (_%__kont168779168780%_ _%L165206%_) - (_%__kont168781168782%_)))))) + (gx#identifier? _%L165243%_)) + (_%__kont168816168817%_ _%L165243%_) + (_%__kont168818168819%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168777168778%_)) - (let ((_%e165179165198%_ + (gx#stx-pair? _%__stx168814168815%_)) + (let ((_%e165216165235%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168777168778%_)))) - (let ((_%tl165181165203%_ + (gx#stx-e _%__stx168814168815%_)))) + (let ((_%tl165218165240%_ (let () (declare (not safe)) - (##cdr _%e165179165198%_))) - (_%hd165180165201%_ + (##cdr _%e165216165235%_))) + (_%hd165217165238%_ (let () (declare (not safe)) - (##car _%e165179165198%_)))) + (##car _%e165216165235%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165181165203%_)) - (_%__match168790168791%_ - _%e165179165198%_ - _%hd165180165201%_ - _%tl165181165203%_) - (_%__kont168781168782%_)))) - (_%__kont168781168782%_)))))))) - (let* ((_%g165005165040%_ - (lambda (_%g165006165037%_) + (gx#stx-null? _%tl165218165240%_)) + (_%__match168827168828%_ + _%e165216165235%_ + _%hd165217165238%_ + _%tl165218165240%_) + (_%__kont168818168819%_)))) + (_%__kont168818168819%_)))))))) + (let* ((_%g165042165077%_ + (lambda (_%g165043165074%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165006165037%_)))) - (_%g165004165169%_ - (lambda (_%g165006165043%_) + _%g165043165074%_)))) + (_%g165041165206%_ + (lambda (_%g165043165080%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165006165043%_)) - (let ((_%e165010165045%_ + (gx#stx-pair? _%g165043165080%_)) + (let ((_%e165047165082%_ (let () (declare (not safe)) - (gx#stx-e _%g165006165043%_)))) - (let ((_%hd165011165048%_ + (gx#stx-e _%g165043165080%_)))) + (let ((_%hd165048165085%_ (let () (declare (not safe)) - (##car _%e165010165045%_))) - (_%tl165012165050%_ + (##car _%e165047165082%_))) + (_%tl165049165087%_ (let () (declare (not safe)) - (##cdr _%e165010165045%_)))) + (##cdr _%e165047165082%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165012165050%_)) - (let ((_%e165013165053%_ + (gx#stx-pair? _%tl165049165087%_)) + (let ((_%e165050165090%_ (let () (declare (not safe)) - (gx#stx-e _%tl165012165050%_)))) - (let ((_%hd165014165056%_ + (gx#stx-e _%tl165049165087%_)))) + (let ((_%hd165051165093%_ (let () (declare (not safe)) - (##car _%e165013165053%_))) - (_%tl165015165058%_ + (##car _%e165050165090%_))) + (_%tl165052165095%_ (let () (declare (not safe)) - (##cdr _%e165013165053%_)))) + (##cdr _%e165050165090%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd165014165056%_)) - (let ((_g171114_ + _%hd165051165093%_)) + (let ((_g171151_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd165014165056%_ + _%hd165051165093%_ '0)))) (begin - (let ((_g171115_ + (let ((_g171152_ (let () (declare (not safe)) - (if (##values? _g171114_) + (if (##values? _g171151_) (##vector-length - _g171114_) + _g171151_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171115_ 2))) + (##fx= _g171152_ 2))) (error "Context expects 2 values" - _g171115_))) - (let ((_%target165016165061%_ + _g171152_))) + (let ((_%target165053165098%_ (let () (declare (not safe)) (##vector-ref - _g171114_ + _g171151_ 0))) - (_%tl165018165063%_ + (_%tl165055165100%_ (let () (declare (not safe)) (##vector-ref - _g171114_ + _g171151_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165018165063%_)) - (letrec ((_%loop165019165066%_ - (lambda (_%hd165017165069%_ + _%tl165055165100%_)) + (letrec ((_%loop165056165103%_ + (lambda (_%hd165054165106%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr165023165071%_ - _%hd165024165073%_) + _%expr165060165108%_ + _%hd165061165110%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165017165069%_)) - (let ((_%e165020165076%_ + (gx#stx-pair? _%hd165054165106%_)) + (let ((_%e165057165113%_ (let () (declare (not safe)) - (gx#stx-e _%hd165017165069%_)))) - (let ((_%lp-hd165021165079%_ + (gx#stx-e _%hd165054165106%_)))) + (let ((_%lp-hd165058165116%_ (let () (declare (not safe)) - (##car _%e165020165076%_))) - (_%lp-tl165022165081%_ + (##car _%e165057165113%_))) + (_%lp-tl165059165118%_ (let () (declare (not safe)) - (##cdr _%e165020165076%_)))) + (##cdr _%e165057165113%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd165021165079%_)) - (let ((_%e165030165084%_ + (gx#stx-pair? _%lp-hd165058165116%_)) + (let ((_%e165067165121%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd165021165079%_)))) - (let ((_%hd165031165087%_ + (gx#stx-e _%lp-hd165058165116%_)))) + (let ((_%hd165068165124%_ (let () (declare (not safe)) - (##car _%e165030165084%_))) - (_%tl165032165089%_ + (##car _%e165067165121%_))) + (_%tl165069165126%_ (let () (declare (not safe)) - (##cdr _%e165030165084%_)))) + (##cdr _%e165067165121%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165032165089%_)) - (let ((_%e165033165092%_ + (gx#stx-pair? _%tl165069165126%_)) + (let ((_%e165070165129%_ (let () (declare (not safe)) (gx#stx-e - _%tl165032165089%_)))) - (let ((_%hd165034165095%_ + _%tl165069165126%_)))) + (let ((_%hd165071165132%_ (let () (declare (not safe)) - (##car _%e165033165092%_))) - (_%tl165035165097%_ + (##car _%e165070165129%_))) + (_%tl165072165134%_ (let () (declare (not safe)) - (##cdr _%e165033165092%_)))) + (##cdr _%e165070165129%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165035165097%_)) - (_%loop165019165066%_ - _%lp-tl165022165081%_ - (cons _%hd165034165095%_ - _%expr165023165071%_) - (cons _%hd165031165087%_ - _%hd165024165073%_)) - (_%g165005165040%_ - _%g165006165043%_)))) - (_%g165005165040%_ - _%g165006165043%_)))) - (_%g165005165040%_ _%g165006165043%_)))) - (let ((_%expr165025165100%_ - (reverse _%expr165023165071%_)) - (_%hd165026165102%_ - (reverse _%hd165024165073%_))) + _%tl165072165134%_)) + (_%loop165056165103%_ + _%lp-tl165059165118%_ + (cons _%hd165071165132%_ + _%expr165060165108%_) + (cons _%hd165068165124%_ + _%hd165061165110%_)) + (_%g165042165077%_ + _%g165043165080%_)))) + (_%g165042165077%_ + _%g165043165080%_)))) + (_%g165042165077%_ _%g165043165080%_)))) + (let ((_%expr165062165137%_ + (reverse _%expr165060165108%_)) + (_%hd165063165139%_ + (reverse _%hd165061165110%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165015165058%_)) - (let ((_%e165027165105%_ + (gx#stx-pair? _%tl165052165095%_)) + (let ((_%e165064165142%_ (let () (declare (not safe)) - (gx#stx-e _%tl165015165058%_)))) - (let ((_%hd165028165108%_ + (gx#stx-e _%tl165052165095%_)))) + (let ((_%hd165065165145%_ (let () (declare (not safe)) - (##car _%e165027165105%_))) - (_%tl165029165110%_ + (##car _%e165064165142%_))) + (_%tl165066165147%_ (let () (declare (not safe)) - (##cdr _%e165027165105%_)))) + (##cdr _%e165064165142%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165029165110%_)) - ((lambda (_%L165113%_ - _%L165114%_ - _%L165115%_) + (gx#stx-null? _%tl165066165147%_)) + ((lambda (_%L165150%_ + _%L165151%_ + _%L165152%_) (for-each - _%collect-e165003%_ - (let ((__tmp171116 - (lambda (_%g165135165138%_ - _%g165136165140%_) - (cons _%g165135165138%_ - _%g165136165140%_)))) + _%collect-e165040%_ + (let ((__tmp171153 + (lambda (_%g165172165175%_ + _%g165173165177%_) + (cons _%g165172165175%_ + _%g165173165177%_)))) (declare (not safe)) (__foldr1 - __tmp171116 + __tmp171153 '() - _%L165115%_)) - (let ((__tmp171117 - (lambda (_%g165142165145%_ - _%g165143165147%_) - (cons _%g165142165145%_ - _%g165143165147%_)))) + _%L165152%_)) + (let ((__tmp171154 + (lambda (_%g165179165182%_ + _%g165180165184%_) + (cons _%g165179165182%_ + _%g165180165184%_)))) (declare (not safe)) (__foldr1 - __tmp171117 + __tmp171154 '() - _%L165114%_))) + _%L165151%_))) (for-each - (lambda (_%g165149165151%_) + (lambda (_%g165186165188%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165000%_ - _%g165149165151%_))) - (let ((__tmp171118 - (lambda (_%g165153165156%_ - _%g165154165158%_) - (cons _%g165153165156%_ - _%g165154165158%_)))) + _%self165037%_ + _%g165186165188%_))) + (let ((__tmp171155 + (lambda (_%g165190165193%_ + _%g165191165195%_) + (cons _%g165190165193%_ + _%g165191165195%_)))) (declare (not safe)) (__foldr1 - __tmp171118 + __tmp171155 '() - _%L165114%_))) - (let ((__tmp171122 + _%L165151%_))) + (let ((__tmp171159 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self165000%_ - _%L165113%_)))) - (__tmp171119 - (let ((__tmp171120 - (let ((__tmp171121 - (lambda (_%g165161165164%_ + _%self165037%_ + _%L165150%_)))) + (__tmp171156 + (let ((__tmp171157 + (let ((__tmp171158 + (lambda (_%g165198165201%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165162165166%_) - (cons _%g165161165164%_ _%g165162165166%_)))) + _%g165199165203%_) + (cons _%g165198165201%_ _%g165199165203%_)))) (declare (not safe)) - (__foldr1 __tmp171121 '() _%L165115%_)))) + (__foldr1 __tmp171158 '() _%L165152%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171120)))) + __tmp171157)))) (declare (not safe)) (__call-with-parameters - __tmp171122 + __tmp171159 gxc#current-compile-local-env - __tmp171119))) - _%hd165028165108%_ - _%expr165025165100%_ - _%hd165026165102%_) - (_%g165005165040%_ - _%g165006165043%_)))) - (_%g165005165040%_ _%g165006165043%_))))))) + __tmp171156))) + _%hd165065165145%_ + _%expr165062165137%_ + _%hd165063165139%_) + (_%g165042165077%_ + _%g165043165080%_)))) + (_%g165042165077%_ _%g165043165080%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop165019165066%_ - _%target165016165061%_ + (_%loop165056165103%_ + _%target165053165098%_ '() '())) - (_%g165005165040%_ - _%g165006165043%_))))) - (_%g165005165040%_ - _%g165006165043%_)))) - (_%g165005165040%_ _%g165006165043%_)))) - (_%g165005165040%_ _%g165006165043%_))))) - (_%g165004165169%_ _%stx165001%_))))) + (_%g165042165077%_ + _%g165043165080%_))))) + (_%g165042165077%_ + _%g165043165080%_)))) + (_%g165042165077%_ _%g165043165080%_)))) + (_%g165042165077%_ _%g165043165080%_))))) + (_%g165041165206%_ _%stx165038%_))))) (define gxc#refine-type-letrec-values% - (lambda (_%self164772%_ _%stx164773%_) - (letrec ((_%collect-e164775%_ - (lambda (_%hd164944%_ _%expr164945%_) - (let* ((_%__stx168793168794%_ _%hd164944%_) - (_%g164948164958%_ + (lambda (_%self164809%_ _%stx164810%_) + (letrec ((_%collect-e164812%_ + (lambda (_%hd164981%_ _%expr164982%_) + (let* ((_%__stx168830168831%_ _%hd164981%_) + (_%g164985164995%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168793168794%_))))) - (let ((_%__kont168795168796%_ - (lambda (_%L164978%_) - (let ((_%sym164989%_ + _%__stx168830168831%_))))) + (let ((_%__kont168832168833%_ + (lambda (_%L165015%_) + (let ((_%sym165026%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L164978%_)))) - (if (let ((__tmp171123 + (gxc#identifier-symbol _%L165015%_)))) + (if (let ((__tmp171160 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp171123 _%sym164989%_)) + (hash-get __tmp171160 _%sym165026%_)) '#!void - (let ((_%type164990164992%_ + (let ((_%type165027165029%_ (gxc#apply-basic-expression-type - _%expr164945%_))) - (if _%type164990164992%_ - (let ((_%type164995%_ - _%type164990164992%_)) + _%expr164982%_))) + (if _%type165027165029%_ + (let ((_%type165032%_ + _%type165027165029%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type164995%_ + _%type165032%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym164989%_ - _%type164995%_ + _%sym165026%_ + _%type165032%_ '#t)))) '#f)))))) - (_%__kont168797168798%_ (lambda () '#!void))) - (let ((_%__match168806168807%_ - (lambda (_%e164951164970%_ - _%hd164952164973%_ - _%tl164953164975%_) - (let ((_%L164978%_ _%hd164952164973%_)) + (_%__kont168834168835%_ (lambda () '#!void))) + (let ((_%__match168843168844%_ + (lambda (_%e164988165007%_ + _%hd164989165010%_ + _%tl164990165012%_) + (let ((_%L165015%_ _%hd164989165010%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L164978%_)) - (_%__kont168795168796%_ _%L164978%_) - (_%__kont168797168798%_)))))) + (gx#identifier? _%L165015%_)) + (_%__kont168832168833%_ _%L165015%_) + (_%__kont168834168835%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168793168794%_)) - (let ((_%e164951164970%_ + (gx#stx-pair? _%__stx168830168831%_)) + (let ((_%e164988165007%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168793168794%_)))) - (let ((_%tl164953164975%_ + (gx#stx-e _%__stx168830168831%_)))) + (let ((_%tl164990165012%_ (let () (declare (not safe)) - (##cdr _%e164951164970%_))) - (_%hd164952164973%_ + (##cdr _%e164988165007%_))) + (_%hd164989165010%_ (let () (declare (not safe)) - (##car _%e164951164970%_)))) + (##car _%e164988165007%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164953164975%_)) - (_%__match168806168807%_ - _%e164951164970%_ - _%hd164952164973%_ - _%tl164953164975%_) - (_%__kont168797168798%_)))) - (_%__kont168797168798%_)))))))) - (let* ((_%g164777164812%_ - (lambda (_%g164778164809%_) + (gx#stx-null? _%tl164990165012%_)) + (_%__match168843168844%_ + _%e164988165007%_ + _%hd164989165010%_ + _%tl164990165012%_) + (_%__kont168834168835%_)))) + (_%__kont168834168835%_)))))))) + (let* ((_%g164814164849%_ + (lambda (_%g164815164846%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164778164809%_)))) - (_%g164776164941%_ - (lambda (_%g164778164815%_) + _%g164815164846%_)))) + (_%g164813164978%_ + (lambda (_%g164815164852%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164778164815%_)) - (let ((_%e164782164817%_ + (gx#stx-pair? _%g164815164852%_)) + (let ((_%e164819164854%_ (let () (declare (not safe)) - (gx#stx-e _%g164778164815%_)))) - (let ((_%hd164783164820%_ + (gx#stx-e _%g164815164852%_)))) + (let ((_%hd164820164857%_ (let () (declare (not safe)) - (##car _%e164782164817%_))) - (_%tl164784164822%_ + (##car _%e164819164854%_))) + (_%tl164821164859%_ (let () (declare (not safe)) - (##cdr _%e164782164817%_)))) + (##cdr _%e164819164854%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164784164822%_)) - (let ((_%e164785164825%_ + (gx#stx-pair? _%tl164821164859%_)) + (let ((_%e164822164862%_ (let () (declare (not safe)) - (gx#stx-e _%tl164784164822%_)))) - (let ((_%hd164786164828%_ + (gx#stx-e _%tl164821164859%_)))) + (let ((_%hd164823164865%_ (let () (declare (not safe)) - (##car _%e164785164825%_))) - (_%tl164787164830%_ + (##car _%e164822164862%_))) + (_%tl164824164867%_ (let () (declare (not safe)) - (##cdr _%e164785164825%_)))) + (##cdr _%e164822164862%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd164786164828%_)) - (let ((_g171124_ + _%hd164823164865%_)) + (let ((_g171161_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd164786164828%_ + _%hd164823164865%_ '0)))) (begin - (let ((_g171125_ + (let ((_g171162_ (let () (declare (not safe)) - (if (##values? _g171124_) + (if (##values? _g171161_) (##vector-length - _g171124_) + _g171161_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171125_ 2))) + (##fx= _g171162_ 2))) (error "Context expects 2 values" - _g171125_))) - (let ((_%target164788164833%_ + _g171162_))) + (let ((_%target164825164870%_ (let () (declare (not safe)) (##vector-ref - _g171124_ + _g171161_ 0))) - (_%tl164790164835%_ + (_%tl164827164872%_ (let () (declare (not safe)) (##vector-ref - _g171124_ + _g171161_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164790164835%_)) - (letrec ((_%loop164791164838%_ - (lambda (_%hd164789164841%_ + _%tl164827164872%_)) + (letrec ((_%loop164828164875%_ + (lambda (_%hd164826164878%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr164795164843%_ - _%hd164796164845%_) + _%expr164832164880%_ + _%hd164833164882%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164789164841%_)) - (let ((_%e164792164848%_ + (gx#stx-pair? _%hd164826164878%_)) + (let ((_%e164829164885%_ (let () (declare (not safe)) - (gx#stx-e _%hd164789164841%_)))) - (let ((_%lp-hd164793164851%_ + (gx#stx-e _%hd164826164878%_)))) + (let ((_%lp-hd164830164888%_ (let () (declare (not safe)) - (##car _%e164792164848%_))) - (_%lp-tl164794164853%_ + (##car _%e164829164885%_))) + (_%lp-tl164831164890%_ (let () (declare (not safe)) - (##cdr _%e164792164848%_)))) + (##cdr _%e164829164885%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164793164851%_)) - (let ((_%e164802164856%_ + (gx#stx-pair? _%lp-hd164830164888%_)) + (let ((_%e164839164893%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164793164851%_)))) - (let ((_%hd164803164859%_ + (gx#stx-e _%lp-hd164830164888%_)))) + (let ((_%hd164840164896%_ (let () (declare (not safe)) - (##car _%e164802164856%_))) - (_%tl164804164861%_ + (##car _%e164839164893%_))) + (_%tl164841164898%_ (let () (declare (not safe)) - (##cdr _%e164802164856%_)))) + (##cdr _%e164839164893%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164804164861%_)) - (let ((_%e164805164864%_ + (gx#stx-pair? _%tl164841164898%_)) + (let ((_%e164842164901%_ (let () (declare (not safe)) (gx#stx-e - _%tl164804164861%_)))) - (let ((_%hd164806164867%_ + _%tl164841164898%_)))) + (let ((_%hd164843164904%_ (let () (declare (not safe)) - (##car _%e164805164864%_))) - (_%tl164807164869%_ + (##car _%e164842164901%_))) + (_%tl164844164906%_ (let () (declare (not safe)) - (##cdr _%e164805164864%_)))) + (##cdr _%e164842164901%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164807164869%_)) - (_%loop164791164838%_ - _%lp-tl164794164853%_ - (cons _%hd164806164867%_ - _%expr164795164843%_) - (cons _%hd164803164859%_ - _%hd164796164845%_)) - (_%g164777164812%_ - _%g164778164815%_)))) - (_%g164777164812%_ - _%g164778164815%_)))) - (_%g164777164812%_ _%g164778164815%_)))) - (let ((_%expr164797164872%_ - (reverse _%expr164795164843%_)) - (_%hd164798164874%_ - (reverse _%hd164796164845%_))) + _%tl164844164906%_)) + (_%loop164828164875%_ + _%lp-tl164831164890%_ + (cons _%hd164843164904%_ + _%expr164832164880%_) + (cons _%hd164840164896%_ + _%hd164833164882%_)) + (_%g164814164849%_ + _%g164815164852%_)))) + (_%g164814164849%_ + _%g164815164852%_)))) + (_%g164814164849%_ _%g164815164852%_)))) + (let ((_%expr164834164909%_ + (reverse _%expr164832164880%_)) + (_%hd164835164911%_ + (reverse _%hd164833164882%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164787164830%_)) - (let ((_%e164799164877%_ + (gx#stx-pair? _%tl164824164867%_)) + (let ((_%e164836164914%_ (let () (declare (not safe)) - (gx#stx-e _%tl164787164830%_)))) - (let ((_%hd164800164880%_ + (gx#stx-e _%tl164824164867%_)))) + (let ((_%hd164837164917%_ (let () (declare (not safe)) - (##car _%e164799164877%_))) - (_%tl164801164882%_ + (##car _%e164836164914%_))) + (_%tl164838164919%_ (let () (declare (not safe)) - (##cdr _%e164799164877%_)))) + (##cdr _%e164836164914%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164801164882%_)) - ((lambda (_%L164885%_ - _%L164886%_ - _%L164887%_) - (let ((__tmp171129 + (gx#stx-null? _%tl164838164919%_)) + ((lambda (_%L164922%_ + _%L164923%_ + _%L164924%_) + (let ((__tmp171166 (lambda () (for-each - _%collect-e164775%_ - (let ((__tmp171130 - (lambda (_%g164908164911%_ + _%collect-e164812%_ + (let ((__tmp171167 + (lambda (_%g164945164948%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164909164913%_) - (cons _%g164908164911%_ _%g164909164913%_)))) + _%g164946164950%_) + (cons _%g164945164948%_ _%g164946164950%_)))) (declare (not safe)) - (__foldr1 __tmp171130 '() _%L164887%_)) + (__foldr1 __tmp171167 '() _%L164924%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171131 - (lambda (_%g164915164918%_ + (let ((__tmp171168 + (lambda (_%g164952164955%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164916164920%_) - (cons _%g164915164918%_ _%g164916164920%_)))) + _%g164953164957%_) + (cons _%g164952164955%_ _%g164953164957%_)))) (declare (not safe)) - (__foldr1 __tmp171131 '() _%L164886%_))) + (__foldr1 __tmp171168 '() _%L164923%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g164922164924%_) + (lambda (_%g164959164961%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self164772%_ - _%g164922164924%_))) - (let ((__tmp171132 - (lambda (_%g164926164929%_ + _%self164809%_ + _%g164959164961%_))) + (let ((__tmp171169 + (lambda (_%g164963164966%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164927164931%_) - (cons _%g164926164929%_ _%g164927164931%_)))) + _%g164964164968%_) + (cons _%g164963164966%_ _%g164964164968%_)))) (declare (not safe)) - (__foldr1 __tmp171132 '() _%L164886%_))) + (__foldr1 __tmp171169 '() _%L164923%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self164772%_ - _%L164885%_)))) - (__tmp171126 - (let ((__tmp171127 - (let ((__tmp171128 - (lambda (_%g164933164936%_ + _%self164809%_ + _%L164922%_)))) + (__tmp171163 + (let ((__tmp171164 + (let ((__tmp171165 + (lambda (_%g164970164973%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164934164938%_) - (cons _%g164933164936%_ _%g164934164938%_)))) + _%g164971164975%_) + (cons _%g164970164973%_ _%g164971164975%_)))) (declare (not safe)) - (__foldr1 __tmp171128 '() _%L164887%_)))) + (__foldr1 __tmp171165 '() _%L164924%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171127)))) + __tmp171164)))) (declare (not safe)) (__call-with-parameters - __tmp171129 + __tmp171166 gxc#current-compile-local-env - __tmp171126))) - _%hd164800164880%_ - _%expr164797164872%_ - _%hd164798164874%_) - (_%g164777164812%_ - _%g164778164815%_)))) - (_%g164777164812%_ _%g164778164815%_))))))) + __tmp171163))) + _%hd164837164917%_ + _%expr164834164909%_ + _%hd164835164911%_) + (_%g164814164849%_ + _%g164815164852%_)))) + (_%g164814164849%_ _%g164815164852%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164791164838%_ - _%target164788164833%_ + (_%loop164828164875%_ + _%target164825164870%_ '() '())) - (_%g164777164812%_ - _%g164778164815%_))))) - (_%g164777164812%_ - _%g164778164815%_)))) - (_%g164777164812%_ _%g164778164815%_)))) - (_%g164777164812%_ _%g164778164815%_))))) - (_%g164776164941%_ _%stx164773%_))))) + (_%g164814164849%_ + _%g164815164852%_))))) + (_%g164814164849%_ + _%g164815164852%_)))) + (_%g164814164849%_ _%g164815164852%_)))) + (_%g164814164849%_ _%g164815164852%_))))) + (_%g164813164978%_ _%stx164810%_))))) (define gxc#refine-type-lambda% - (lambda (_%self164716%_ _%stx164717%_) - (let* ((_%g164719164733%_ - (lambda (_%g164720164730%_) + (lambda (_%self164753%_ _%stx164754%_) + (let* ((_%g164756164770%_ + (lambda (_%g164757164767%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164720164730%_)))) - (_%g164718164769%_ - (lambda (_%g164720164736%_) + _%g164757164767%_)))) + (_%g164755164806%_ + (lambda (_%g164757164773%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164720164736%_)) - (let ((_%e164723164738%_ + (gx#stx-pair? _%g164757164773%_)) + (let ((_%e164760164775%_ (let () (declare (not safe)) - (gx#stx-e _%g164720164736%_)))) - (let ((_%hd164724164741%_ + (gx#stx-e _%g164757164773%_)))) + (let ((_%hd164761164778%_ (let () (declare (not safe)) - (##car _%e164723164738%_))) - (_%tl164725164743%_ + (##car _%e164760164775%_))) + (_%tl164762164780%_ (let () (declare (not safe)) - (##cdr _%e164723164738%_)))) + (##cdr _%e164760164775%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164725164743%_)) - (let ((_%e164726164746%_ + (gx#stx-pair? _%tl164762164780%_)) + (let ((_%e164763164783%_ (let () (declare (not safe)) - (gx#stx-e _%tl164725164743%_)))) - (let ((_%hd164727164749%_ + (gx#stx-e _%tl164762164780%_)))) + (let ((_%hd164764164786%_ (let () (declare (not safe)) - (##car _%e164726164746%_))) - (_%tl164728164751%_ + (##car _%e164763164783%_))) + (_%tl164765164788%_ (let () (declare (not safe)) - (##cdr _%e164726164746%_)))) - ((lambda (_%L164754%_ _%L164755%_) - (let ((__tmp171134 + (##cdr _%e164763164783%_)))) + ((lambda (_%L164791%_ _%L164792%_) + (let ((__tmp171171 (lambda () (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self164716%_ - _%stx164717%_)))) - (__tmp171133 + _%self164753%_ + _%stx164754%_)))) + (__tmp171170 (let () (declare (not safe)) (gxc#xform-let-locals - _%L164755%_)))) + _%L164792%_)))) (declare (not safe)) (__call-with-parameters - __tmp171134 + __tmp171171 gxc#current-compile-local-env - __tmp171133))) - _%tl164728164751%_ - _%hd164727164749%_))) - (_%g164719164733%_ _%g164720164736%_)))) - (_%g164719164733%_ _%g164720164736%_))))) - (_%g164718164769%_ _%stx164717%_)))) + __tmp171170))) + _%tl164765164788%_ + _%hd164764164786%_))) + (_%g164756164770%_ _%g164757164773%_)))) + (_%g164756164770%_ _%g164757164773%_))))) + (_%g164755164806%_ _%stx164754%_)))) (define gxc#refine-type-case-lambda% - (lambda (_%self164543%_ _%stx164544%_) - (let* ((_%g164546164574%_ - (lambda (_%g164547164571%_) + (lambda (_%self164580%_ _%stx164581%_) + (let* ((_%g164583164611%_ + (lambda (_%g164584164608%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164547164571%_)))) - (_%g164545164713%_ - (lambda (_%g164547164577%_) + _%g164584164608%_)))) + (_%g164582164750%_ + (lambda (_%g164584164614%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164547164577%_)) - (let ((_%e164550164579%_ + (gx#stx-pair? _%g164584164614%_)) + (let ((_%e164587164616%_ (let () (declare (not safe)) - (gx#stx-e _%g164547164577%_)))) - (let ((_%hd164551164582%_ + (gx#stx-e _%g164584164614%_)))) + (let ((_%hd164588164619%_ (let () (declare (not safe)) - (##car _%e164550164579%_))) - (_%tl164552164584%_ + (##car _%e164587164616%_))) + (_%tl164589164621%_ (let () (declare (not safe)) - (##cdr _%e164550164579%_)))) + (##cdr _%e164587164616%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164552164584%_)) - (let ((_g171135_ + (gx#stx-pair/null? _%tl164589164621%_)) + (let ((_g171172_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164552164584%_ + _%tl164589164621%_ '0)))) (begin - (let ((_g171136_ + (let ((_g171173_ (let () (declare (not safe)) - (if (##values? _g171135_) - (##vector-length _g171135_) + (if (##values? _g171172_) + (##vector-length _g171172_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171136_ 2))) + (##fx= _g171173_ 2))) (error "Context expects 2 values" - _g171136_))) - (let ((_%target164553164587%_ + _g171173_))) + (let ((_%target164590164624%_ (let () (declare (not safe)) - (##vector-ref _g171135_ 0))) - (_%tl164555164589%_ + (##vector-ref _g171172_ 0))) + (_%tl164592164626%_ (let () (declare (not safe)) - (##vector-ref _g171135_ 1)))) + (##vector-ref _g171172_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164555164589%_)) - (letrec ((_%loop164556164592%_ - (lambda (_%hd164554164595%_ - _%body164560164597%_ - _%hd164561164599%_) + (gx#stx-null? _%tl164592164626%_)) + (letrec ((_%loop164593164629%_ + (lambda (_%hd164591164632%_ + _%body164597164634%_ + _%hd164598164636%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164554164595%_)) - (let ((_%e164557164602%_ + _%hd164591164632%_)) + (let ((_%e164594164639%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd164554164595%_)))) - (let ((_%lp-hd164558164605%_ + (gx#stx-e _%hd164591164632%_)))) + (let ((_%lp-hd164595164642%_ (let () (declare (not safe)) - (##car _%e164557164602%_))) - (_%lp-tl164559164607%_ + (##car _%e164594164639%_))) + (_%lp-tl164596164644%_ (let () (declare (not safe)) - (##cdr _%e164557164602%_)))) + (##cdr _%e164594164639%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164558164605%_)) - (let ((_%e164564164610%_ + (gx#stx-pair? _%lp-hd164595164642%_)) + (let ((_%e164601164647%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164558164605%_)))) - (let ((_%hd164565164613%_ + (gx#stx-e _%lp-hd164595164642%_)))) + (let ((_%hd164602164650%_ (let () (declare (not safe)) - (##car _%e164564164610%_))) - (_%tl164566164615%_ + (##car _%e164601164647%_))) + (_%tl164603164652%_ (let () (declare (not safe)) - (##cdr _%e164564164610%_)))) + (##cdr _%e164601164647%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164566164615%_)) - (let ((_%e164567164618%_ + (gx#stx-pair? _%tl164603164652%_)) + (let ((_%e164604164655%_ (let () (declare (not safe)) - (gx#stx-e _%tl164566164615%_)))) - (let ((_%hd164568164621%_ + (gx#stx-e _%tl164603164652%_)))) + (let ((_%hd164605164658%_ (let () (declare (not safe)) - (##car _%e164567164618%_))) - (_%tl164569164623%_ + (##car _%e164604164655%_))) + (_%tl164606164660%_ (let () (declare (not safe)) - (##cdr _%e164567164618%_)))) + (##cdr _%e164604164655%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164569164623%_)) - (_%loop164556164592%_ - _%lp-tl164559164607%_ - (cons _%hd164568164621%_ - _%body164560164597%_) - (cons _%hd164565164613%_ - _%hd164561164599%_)) - (_%g164546164574%_ - _%g164547164577%_)))) - (_%g164546164574%_ _%g164547164577%_)))) - (_%g164546164574%_ _%g164547164577%_)))) - (let ((_%body164562164626%_ (reverse _%body164560164597%_)) - (_%hd164563164628%_ (reverse _%hd164561164599%_))) - ((lambda (_%L164631%_ _%L164632%_) + (gx#stx-null? _%tl164606164660%_)) + (_%loop164593164629%_ + _%lp-tl164596164644%_ + (cons _%hd164605164658%_ + _%body164597164634%_) + (cons _%hd164602164650%_ + _%hd164598164636%_)) + (_%g164583164611%_ + _%g164584164614%_)))) + (_%g164583164611%_ _%g164584164614%_)))) + (_%g164583164611%_ _%g164584164614%_)))) + (let ((_%body164599164663%_ (reverse _%body164597164634%_)) + (_%hd164600164665%_ (reverse _%hd164598164636%_))) + ((lambda (_%L164668%_ _%L164669%_) (for-each - (lambda (_%clause164647%_) - (let* ((_%g164649164663%_ - (lambda (_%g164650164660%_) + (lambda (_%clause164684%_) + (let* ((_%g164686164700%_ + (lambda (_%g164687164697%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164650164660%_)))) - (_%g164648164700%_ - (lambda (_%g164650164666%_) + _%g164687164697%_)))) + (_%g164685164737%_ + (lambda (_%g164687164703%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164650164666%_)) - (let ((_%e164653164668%_ + (gx#stx-pair? _%g164687164703%_)) + (let ((_%e164690164705%_ (let () (declare (not safe)) - (gx#stx-e _%g164650164666%_)))) - (let ((_%hd164654164671%_ + (gx#stx-e _%g164687164703%_)))) + (let ((_%hd164691164708%_ (let () (declare (not safe)) - (##car _%e164653164668%_))) - (_%tl164655164673%_ + (##car _%e164690164705%_))) + (_%tl164692164710%_ (let () (declare (not safe)) - (##cdr _%e164653164668%_)))) + (##cdr _%e164690164705%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164655164673%_)) - (let ((_%e164656164676%_ + _%tl164692164710%_)) + (let ((_%e164693164713%_ (let () (declare (not safe)) (gx#stx-e - _%tl164655164673%_)))) - (let ((_%hd164657164679%_ + _%tl164692164710%_)))) + (let ((_%hd164694164716%_ (let () (declare (not safe)) - (##car _%e164656164676%_))) - (_%tl164658164681%_ + (##car _%e164693164713%_))) + (_%tl164695164718%_ (let () (declare (not safe)) - (##cdr _%e164656164676%_)))) + (##cdr _%e164693164713%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164658164681%_)) - ((lambda (_%L164684%_ - _%L164685%_) - (let ((__tmp171138 + _%tl164695164718%_)) + ((lambda (_%L164721%_ + _%L164722%_) + (let ((__tmp171175 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self164543%_ - _%stx164544%_)))) - (__tmp171137 + _%self164580%_ + _%stx164581%_)))) + (__tmp171174 (let () (declare (not safe)) - (gxc#xform-let-locals _%L164685%_)))) + (gxc#xform-let-locals _%L164722%_)))) (declare (not safe)) (__call-with-parameters - __tmp171138 + __tmp171175 gxc#current-compile-local-env - __tmp171137))) - _%hd164657164679%_ - _%hd164654164671%_) - (_%g164649164663%_ _%g164650164666%_)))) + __tmp171174))) + _%hd164694164716%_ + _%hd164691164708%_) + (_%g164686164700%_ _%g164687164703%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164649164663%_ - _%g164650164666%_)))) - (_%g164649164663%_ _%g164650164666%_))))) - (_%g164648164700%_ _%clause164647%_))) + (_%g164686164700%_ + _%g164687164703%_)))) + (_%g164686164700%_ _%g164687164703%_))))) + (_%g164685164737%_ _%clause164684%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L164631%_ - _%L164632%_)) - (let ((__tmp171139 - (lambda (_%g164702164706%_ - _%g164703164708%_ - _%g164704164710%_) - (cons (cons _%g164703164708%_ - (cons _%g164702164706%_ '())) - _%g164704164710%_)))) + _%L164668%_ + _%L164669%_)) + (let ((__tmp171176 + (lambda (_%g164739164743%_ + _%g164740164745%_ + _%g164741164747%_) + (cons (cons _%g164740164745%_ + (cons _%g164739164743%_ '())) + _%g164741164747%_)))) (declare (not safe)) (__foldr2 - __tmp171139 + __tmp171176 '() - _%L164631%_ - _%L164632%_))))) - _%body164562164626%_ - _%hd164563164628%_)))))) + _%L164668%_ + _%L164669%_))))) + _%body164599164663%_ + _%hd164600164665%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164556164592%_ - _%target164553164587%_ + (_%loop164593164629%_ + _%target164590164624%_ '() '())) - (_%g164546164574%_ - _%g164547164577%_))))) - (_%g164546164574%_ _%g164547164577%_)))) - (_%g164546164574%_ _%g164547164577%_))))) - (_%g164545164713%_ _%stx164544%_)))) + (_%g164583164611%_ + _%g164584164614%_))))) + (_%g164583164611%_ _%g164584164614%_)))) + (_%g164583164611%_ _%g164584164614%_))))) + (_%g164582164750%_ _%stx164581%_)))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_%self164421%_ _%stx164422%_) - (let* ((_%g164424164441%_ - (lambda (_%g164425164438%_) + (lambda (_%self164458%_ _%stx164459%_) + (let* ((_%g164461164478%_ + (lambda (_%g164462164475%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164425164438%_)))) - (_%g164423164540%_ - (lambda (_%g164425164444%_) + _%g164462164475%_)))) + (_%g164460164577%_ + (lambda (_%g164462164481%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164425164444%_)) - (let ((_%e164428164446%_ + (gx#stx-pair? _%g164462164481%_)) + (let ((_%e164465164483%_ (let () (declare (not safe)) - (gx#stx-e _%g164425164444%_)))) - (let ((_%hd164429164449%_ + (gx#stx-e _%g164462164481%_)))) + (let ((_%hd164466164486%_ (let () (declare (not safe)) - (##car _%e164428164446%_))) - (_%tl164430164451%_ + (##car _%e164465164483%_))) + (_%tl164467164488%_ (let () (declare (not safe)) - (##cdr _%e164428164446%_)))) + (##cdr _%e164465164483%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164430164451%_)) - (let ((_%e164431164454%_ + (gx#stx-pair? _%tl164467164488%_)) + (let ((_%e164468164491%_ (let () (declare (not safe)) - (gx#stx-e _%tl164430164451%_)))) - (let ((_%hd164432164457%_ + (gx#stx-e _%tl164467164488%_)))) + (let ((_%hd164469164494%_ (let () (declare (not safe)) - (##car _%e164431164454%_))) - (_%tl164433164459%_ + (##car _%e164468164491%_))) + (_%tl164470164496%_ (let () (declare (not safe)) - (##cdr _%e164431164454%_)))) + (##cdr _%e164468164491%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164433164459%_)) - (let ((_%e164434164462%_ + (gx#stx-pair? _%tl164470164496%_)) + (let ((_%e164471164499%_ (let () (declare (not safe)) - (gx#stx-e _%tl164433164459%_)))) - (let ((_%hd164435164465%_ + (gx#stx-e _%tl164470164496%_)))) + (let ((_%hd164472164502%_ (let () (declare (not safe)) - (##car _%e164434164462%_))) - (_%tl164436164467%_ + (##car _%e164471164499%_))) + (_%tl164473164504%_ (let () (declare (not safe)) - (##cdr _%e164434164462%_)))) + (##cdr _%e164471164499%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164436164467%_)) - ((lambda (_%L164470%_ - _%L164471%_) - (let* ((_%__stx168809168810%_ - _%L164471%_) - (_%g164487164498%_ + _%tl164473164504%_)) + ((lambda (_%L164507%_ + _%L164508%_) + (let* ((_%__stx168846168847%_ + _%L164508%_) + (_%g164524164535%_ (lambda () (let () (declare @@ -7887,325 +7887,325 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168809168810%_))))) - (let ((_%__kont168811168812%_ - (lambda (_%L164518%_ + _%__stx168846168847%_))))) + (let ((_%__kont168848168849%_ + (lambda (_%L164555%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L164519%_) - (let ((_%$e164531%_ - (let ((__tmp171140 + _%L164556%_) + (let ((_%$e164568%_ + (let ((__tmp171177 (let () (declare (not safe)) - (gx#stx-e _%L164519%_)))) + (gx#stx-e _%L164556%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-annotations - __tmp171140)))) - (if _%$e164531%_ - ((lambda (_%type-e164534%_) - (_%type-e164534%_ _%stx164422%_ _%L164471%_)) - _%$e164531%_) + __tmp171177)))) + (if _%$e164568%_ + ((lambda (_%type-e164571%_) + (_%type-e164571%_ _%stx164459%_ _%L164508%_)) + _%$e164568%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self164421%_ _%L164470%_)))))) - (_%__kont168813168814%_ + (gxc#compile-e__1 _%self164458%_ _%L164507%_)))))) + (_%__kont168850168851%_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self164421%_ _%L164470%_))))) + (gxc#compile-e__1 _%self164458%_ _%L164507%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match168820168821%_ - (lambda (_%e164491164510%_ + (let ((_%__match168857168858%_ + (lambda (_%e164528164547%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd164492164513%_ - _%tl164493164515%_) - (let ((_%L164518%_ _%tl164493164515%_) - (_%L164519%_ _%hd164492164513%_)) + _%hd164529164550%_ + _%tl164530164552%_) + (let ((_%L164555%_ _%tl164530164552%_) + (_%L164556%_ _%hd164529164550%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L164519%_)) - (_%__kont168811168812%_ _%L164518%_ _%L164519%_) - (_%__kont168813168814%_)))))) + (gx#identifier? _%L164556%_)) + (_%__kont168848168849%_ _%L164555%_ _%L164556%_) + (_%__kont168850168851%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168809168810%_)) - (let ((_%e164491164510%_ + (gx#stx-pair? _%__stx168846168847%_)) + (let ((_%e164528164547%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168809168810%_)))) - (let ((_%tl164493164515%_ + (gx#stx-e _%__stx168846168847%_)))) + (let ((_%tl164530164552%_ (let () (declare (not safe)) - (##cdr _%e164491164510%_))) - (_%hd164492164513%_ + (##cdr _%e164528164547%_))) + (_%hd164529164550%_ (let () (declare (not safe)) - (##car _%e164491164510%_)))) - (_%__match168820168821%_ - _%e164491164510%_ - _%hd164492164513%_ - _%tl164493164515%_))) - (_%__kont168813168814%_)))))) + (##car _%e164528164547%_)))) + (_%__match168857168858%_ + _%e164528164547%_ + _%hd164529164550%_ + _%tl164530164552%_))) + (_%__kont168850168851%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd164435164465%_ - _%hd164432164457%_) - (_%g164424164441%_ - _%g164425164444%_)))) - (_%g164424164441%_ _%g164425164444%_)))) - (_%g164424164441%_ _%g164425164444%_)))) - (_%g164424164441%_ _%g164425164444%_))))) - (_%g164423164540%_ _%stx164422%_)))) + _%hd164472164502%_ + _%hd164469164494%_) + (_%g164461164478%_ + _%g164462164481%_)))) + (_%g164461164478%_ _%g164462164481%_)))) + (_%g164461164478%_ _%g164462164481%_)))) + (_%g164461164478%_ _%g164462164481%_))))) + (_%g164460164577%_ _%stx164459%_)))) (define gxc#basic-expression-type-annotation-typedecl - (lambda (_%stx164369%_ _%ann164370%_) - (let* ((_%g164372164385%_ - (lambda (_%g164373164382%_) + (lambda (_%stx164406%_ _%ann164407%_) + (let* ((_%g164409164422%_ + (lambda (_%g164410164419%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164373164382%_)))) - (_%g164371164418%_ - (lambda (_%g164373164388%_) + _%g164410164419%_)))) + (_%g164408164455%_ + (lambda (_%g164410164425%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164373164388%_)) - (let ((_%e164375164390%_ + (gx#stx-pair? _%g164410164425%_)) + (let ((_%e164412164427%_ (let () (declare (not safe)) - (gx#stx-e _%g164373164388%_)))) - (let ((_%hd164376164393%_ + (gx#stx-e _%g164410164425%_)))) + (let ((_%hd164413164430%_ (let () (declare (not safe)) - (##car _%e164375164390%_))) - (_%tl164377164395%_ + (##car _%e164412164427%_))) + (_%tl164414164432%_ (let () (declare (not safe)) - (##cdr _%e164375164390%_)))) + (##cdr _%e164412164427%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164377164395%_)) - (let ((_%e164378164398%_ + (gx#stx-pair? _%tl164414164432%_)) + (let ((_%e164415164435%_ (let () (declare (not safe)) - (gx#stx-e _%tl164377164395%_)))) - (let ((_%hd164379164401%_ + (gx#stx-e _%tl164414164432%_)))) + (let ((_%hd164416164438%_ (let () (declare (not safe)) - (##car _%e164378164398%_))) - (_%tl164380164403%_ + (##car _%e164415164435%_))) + (_%tl164417164440%_ (let () (declare (not safe)) - (##cdr _%e164378164398%_)))) + (##cdr _%e164415164435%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164380164403%_)) - ((lambda (_%L164406%_) - (let ((__tmp171141 + (gx#stx-null? _%tl164417164440%_)) + ((lambda (_%L164443%_) + (let ((__tmp171178 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164406%_)))) + _%L164443%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx164369%_ - __tmp171141))) - _%hd164379164401%_) - (_%g164372164385%_ _%g164373164388%_)))) - (_%g164372164385%_ _%g164373164388%_)))) - (_%g164372164385%_ _%g164373164388%_))))) - (_%g164371164418%_ _%ann164370%_)))) + _%stx164406%_ + __tmp171178))) + _%hd164416164438%_) + (_%g164409164422%_ _%g164410164425%_)))) + (_%g164409164422%_ _%g164410164425%_)))) + (_%g164409164422%_ _%g164410164425%_))))) + (_%g164408164455%_ _%ann164407%_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_%stx164213%_ _%ann164214%_) - (let* ((_%g164216164253%_ - (lambda (_%g164217164250%_) + (lambda (_%stx164250%_ _%ann164251%_) + (let* ((_%g164253164290%_ + (lambda (_%g164254164287%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164217164250%_)))) - (_%g164215164366%_ - (lambda (_%g164217164256%_) + _%g164254164287%_)))) + (_%g164252164403%_ + (lambda (_%g164254164293%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164217164256%_)) - (let ((_%e164225164258%_ + (gx#stx-pair? _%g164254164293%_)) + (let ((_%e164262164295%_ (let () (declare (not safe)) - (gx#stx-e _%g164217164256%_)))) - (let ((_%hd164226164261%_ + (gx#stx-e _%g164254164293%_)))) + (let ((_%hd164263164298%_ (let () (declare (not safe)) - (##car _%e164225164258%_))) - (_%tl164227164263%_ + (##car _%e164262164295%_))) + (_%tl164264164300%_ (let () (declare (not safe)) - (##cdr _%e164225164258%_)))) + (##cdr _%e164262164295%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164227164263%_)) - (let ((_%e164228164266%_ + (gx#stx-pair? _%tl164264164300%_)) + (let ((_%e164265164303%_ (let () (declare (not safe)) - (gx#stx-e _%tl164227164263%_)))) - (let ((_%hd164229164269%_ + (gx#stx-e _%tl164264164300%_)))) + (let ((_%hd164266164306%_ (let () (declare (not safe)) - (##car _%e164228164266%_))) - (_%tl164230164271%_ + (##car _%e164265164303%_))) + (_%tl164267164308%_ (let () (declare (not safe)) - (##cdr _%e164228164266%_)))) + (##cdr _%e164265164303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164230164271%_)) - (let ((_%e164231164274%_ + (gx#stx-pair? _%tl164267164308%_)) + (let ((_%e164268164311%_ (let () (declare (not safe)) - (gx#stx-e _%tl164230164271%_)))) - (let ((_%hd164232164277%_ + (gx#stx-e _%tl164267164308%_)))) + (let ((_%hd164269164314%_ (let () (declare (not safe)) - (##car _%e164231164274%_))) - (_%tl164233164279%_ + (##car _%e164268164311%_))) + (_%tl164270164316%_ (let () (declare (not safe)) - (##cdr _%e164231164274%_)))) + (##cdr _%e164268164311%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164233164279%_)) - (let ((_%e164234164282%_ + _%tl164270164316%_)) + (let ((_%e164271164319%_ (let () (declare (not safe)) (gx#stx-e - _%tl164233164279%_)))) - (let ((_%hd164235164285%_ + _%tl164270164316%_)))) + (let ((_%hd164272164322%_ (let () (declare (not safe)) - (##car _%e164234164282%_))) - (_%tl164236164287%_ + (##car _%e164271164319%_))) + (_%tl164273164324%_ (let () (declare (not safe)) - (##cdr _%e164234164282%_)))) + (##cdr _%e164271164319%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164236164287%_)) - (let ((_%e164237164290%_ + _%tl164273164324%_)) + (let ((_%e164274164327%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164236164287%_)))) - (let ((_%hd164238164293%_ - (let () (declare (not safe)) (##car _%e164237164290%_))) - (_%tl164239164295%_ + (gx#stx-e _%tl164273164324%_)))) + (let ((_%hd164275164330%_ + (let () (declare (not safe)) (##car _%e164274164327%_))) + (_%tl164276164332%_ (let () (declare (not safe)) - (##cdr _%e164237164290%_)))) + (##cdr _%e164274164327%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164239164295%_)) - (let ((_%e164240164298%_ + (gx#stx-pair? _%tl164276164332%_)) + (let ((_%e164277164335%_ (let () (declare (not safe)) - (gx#stx-e _%tl164239164295%_)))) - (let ((_%hd164241164301%_ + (gx#stx-e _%tl164276164332%_)))) + (let ((_%hd164278164338%_ (let () (declare (not safe)) - (##car _%e164240164298%_))) - (_%tl164242164303%_ + (##car _%e164277164335%_))) + (_%tl164279164340%_ (let () (declare (not safe)) - (##cdr _%e164240164298%_)))) + (##cdr _%e164277164335%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164242164303%_)) - (let ((_%e164243164306%_ + (gx#stx-pair? _%tl164279164340%_)) + (let ((_%e164280164343%_ (let () (declare (not safe)) - (gx#stx-e _%tl164242164303%_)))) - (let ((_%hd164244164309%_ + (gx#stx-e _%tl164279164340%_)))) + (let ((_%hd164281164346%_ (let () (declare (not safe)) - (##car _%e164243164306%_))) - (_%tl164245164311%_ + (##car _%e164280164343%_))) + (_%tl164282164348%_ (let () (declare (not safe)) - (##cdr _%e164243164306%_)))) + (##cdr _%e164280164343%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164245164311%_)) - (let ((_%e164246164314%_ + (gx#stx-pair? _%tl164282164348%_)) + (let ((_%e164283164351%_ (let () (declare (not safe)) - (gx#stx-e _%tl164245164311%_)))) - (let ((_%hd164247164317%_ + (gx#stx-e _%tl164282164348%_)))) + (let ((_%hd164284164354%_ (let () (declare (not safe)) - (##car _%e164246164314%_))) - (_%tl164248164319%_ + (##car _%e164283164351%_))) + (_%tl164285164356%_ (let () (declare (not safe)) - (##cdr _%e164246164314%_)))) + (##cdr _%e164283164351%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164248164319%_)) - ((lambda (_%L164322%_ - _%L164323%_ - _%L164324%_ - _%L164325%_ - _%L164326%_ - _%L164327%_ - _%L164328%_) - (let ((_%type-id164358%_ + _%tl164285164356%_)) + ((lambda (_%L164359%_ + _%L164360%_ + _%L164361%_ + _%L164362%_ + _%L164363%_ + _%L164364%_ + _%L164365%_) + (let ((_%type-id164395%_ (let () (declare (not safe)) (gx#stx-e - _%L164328%_))) - (_%super164359%_ + _%L164365%_))) + (_%super164396%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L164327%_))) - (_%slots164360%_ + _%L164364%_))) + (_%slots164397%_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L164326%_))) - (_%ctor-method164361%_ + _%L164363%_))) + (_%ctor-method164398%_ (let () (declare (not safe)) (gx#stx-e - _%L164325%_))) - (_%struct?164362%_ + _%L164362%_))) + (_%struct?164399%_ (let () (declare (not safe)) (gx#stx-e - _%L164324%_))) - (_%final?164363%_ + _%L164361%_))) + (_%final?164400%_ (let () (declare (not safe)) (gx#stx-e - _%L164323%_))) - (_%metaclass164364%_ + _%L164360%_))) + (_%metaclass164401%_ (if (let () (declare (not safe)) (gx#stx-e - _%L164322%_)) + _%L164359%_)) (let () (declare (not safe)) (gxc#identifier-symbol - _%L164322%_)) + _%L164359%_)) '#f))) - (let ((__obj170977 + (let ((__obj171014 (let () (declare (not safe)) @@ -8213,8 +8213,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp171142 - (let ((__obj170976 + (let ((__tmp171179 + (let ((__obj171013 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8234,115 +8234,115 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj170976 - _%type-id164358%_ - _%super164359%_ - _%slots164360%_ - _%ctor-method164361%_ - _%struct?164362%_ - _%final?164363%_ + __obj171013 + _%type-id164395%_ + _%super164396%_ + _%slots164397%_ + _%ctor-method164398%_ + _%struct?164399%_ + _%final?164400%_ '#f - _%metaclass164364%_)) - __obj170976))) + _%metaclass164401%_)) + __obj171013))) (declare (not safe)) - (gxc#!class-meta:::init! __obj170977 __tmp171142)) + (gxc#!class-meta:::init! __obj171014 __tmp171179)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj170977))) - _%hd164247164317%_ - _%hd164244164309%_ - _%hd164241164301%_ - _%hd164238164293%_ - _%hd164235164285%_ - _%hd164232164277%_ - _%hd164229164269%_) - (_%g164216164253%_ - _%g164217164256%_)))) - (_%g164216164253%_ _%g164217164256%_)))) - (_%g164216164253%_ _%g164217164256%_)))) - (_%g164216164253%_ _%g164217164256%_)))) - (_%g164216164253%_ _%g164217164256%_)))) + __obj171014))) + _%hd164284164354%_ + _%hd164281164346%_ + _%hd164278164338%_ + _%hd164275164330%_ + _%hd164272164322%_ + _%hd164269164314%_ + _%hd164266164306%_) + (_%g164253164290%_ + _%g164254164293%_)))) + (_%g164253164290%_ _%g164254164293%_)))) + (_%g164253164290%_ _%g164254164293%_)))) + (_%g164253164290%_ _%g164254164293%_)))) + (_%g164253164290%_ _%g164254164293%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164216164253%_ - _%g164217164256%_)))) - (_%g164216164253%_ _%g164217164256%_)))) - (_%g164216164253%_ _%g164217164256%_)))) - (_%g164216164253%_ _%g164217164256%_))))) - (_%g164215164366%_ _%ann164214%_)))) + (_%g164253164290%_ + _%g164254164293%_)))) + (_%g164253164290%_ _%g164254164293%_)))) + (_%g164253164290%_ _%g164254164293%_)))) + (_%g164253164290%_ _%g164254164293%_))))) + (_%g164252164403%_ _%ann164251%_)))) (define gxc#basic-expression-type-annotation-mop.system - (lambda (_%stx164142%_ _%ann164143%_) - (let* ((_%g164145164162%_ - (lambda (_%g164146164159%_) + (lambda (_%stx164179%_ _%ann164180%_) + (let* ((_%g164182164199%_ + (lambda (_%g164183164196%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164146164159%_)))) - (_%g164144164210%_ - (lambda (_%g164146164165%_) + _%g164183164196%_)))) + (_%g164181164247%_ + (lambda (_%g164183164202%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164146164165%_)) - (let ((_%e164149164167%_ + (gx#stx-pair? _%g164183164202%_)) + (let ((_%e164186164204%_ (let () (declare (not safe)) - (gx#stx-e _%g164146164165%_)))) - (let ((_%hd164150164170%_ + (gx#stx-e _%g164183164202%_)))) + (let ((_%hd164187164207%_ (let () (declare (not safe)) - (##car _%e164149164167%_))) - (_%tl164151164172%_ + (##car _%e164186164204%_))) + (_%tl164188164209%_ (let () (declare (not safe)) - (##cdr _%e164149164167%_)))) + (##cdr _%e164186164204%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164151164172%_)) - (let ((_%e164152164175%_ + (gx#stx-pair? _%tl164188164209%_)) + (let ((_%e164189164212%_ (let () (declare (not safe)) - (gx#stx-e _%tl164151164172%_)))) - (let ((_%hd164153164178%_ + (gx#stx-e _%tl164188164209%_)))) + (let ((_%hd164190164215%_ (let () (declare (not safe)) - (##car _%e164152164175%_))) - (_%tl164154164180%_ + (##car _%e164189164212%_))) + (_%tl164191164217%_ (let () (declare (not safe)) - (##cdr _%e164152164175%_)))) + (##cdr _%e164189164212%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164154164180%_)) - (let ((_%e164155164183%_ + (gx#stx-pair? _%tl164191164217%_)) + (let ((_%e164192164220%_ (let () (declare (not safe)) - (gx#stx-e _%tl164154164180%_)))) - (let ((_%hd164156164186%_ + (gx#stx-e _%tl164191164217%_)))) + (let ((_%hd164193164223%_ (let () (declare (not safe)) - (##car _%e164155164183%_))) - (_%tl164157164188%_ + (##car _%e164192164220%_))) + (_%tl164194164225%_ (let () (declare (not safe)) - (##cdr _%e164155164183%_)))) + (##cdr _%e164192164220%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164157164188%_)) - ((lambda (_%L164191%_ - _%L164192%_) - (let ((_%type-id164207%_ + _%tl164194164225%_)) + ((lambda (_%L164228%_ + _%L164229%_) + (let ((_%type-id164244%_ (let () (declare (not safe)) (gx#stx-e - _%L164192%_))) - (_%super164208%_ + _%L164229%_))) + (_%super164245%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L164191%_)))) - (let ((__obj170979 + _%L164228%_)))) + (let ((__obj171016 (let () (declare (not safe)) @@ -8350,8 +8350,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp171143 - (let ((__obj170978 + (let ((__tmp171180 + (let ((__obj171015 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8371,589 +8371,589 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj170978 - _%type-id164207%_ - _%super164208%_ + __obj171015 + _%type-id164244%_ + _%super164245%_ '() '#f '#f '#f '#t '#f)) - __obj170978))) + __obj171015))) (declare (not safe)) - (gxc#!class-meta:::init! __obj170979 __tmp171143)) + (gxc#!class-meta:::init! __obj171016 __tmp171180)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj170979))) - _%hd164156164186%_ - _%hd164153164178%_) - (_%g164145164162%_ - _%g164146164165%_)))) - (_%g164145164162%_ _%g164146164165%_)))) - (_%g164145164162%_ _%g164146164165%_)))) - (_%g164145164162%_ _%g164146164165%_))))) - (_%g164144164210%_ _%ann164143%_)))) + __obj171016))) + _%hd164193164223%_ + _%hd164190164215%_) + (_%g164182164199%_ + _%g164183164202%_)))) + (_%g164182164199%_ _%g164183164202%_)))) + (_%g164182164199%_ _%g164183164202%_)))) + (_%g164182164199%_ _%g164183164202%_))))) + (_%g164181164247%_ _%ann164180%_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_%stx164090%_ _%ann164091%_) - (let* ((_%g164093164106%_ - (lambda (_%g164094164103%_) + (lambda (_%stx164127%_ _%ann164128%_) + (let* ((_%g164130164143%_ + (lambda (_%g164131164140%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164094164103%_)))) - (_%g164092164139%_ - (lambda (_%g164094164109%_) + _%g164131164140%_)))) + (_%g164129164176%_ + (lambda (_%g164131164146%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164094164109%_)) - (let ((_%e164096164111%_ + (gx#stx-pair? _%g164131164146%_)) + (let ((_%e164133164148%_ (let () (declare (not safe)) - (gx#stx-e _%g164094164109%_)))) - (let ((_%hd164097164114%_ + (gx#stx-e _%g164131164146%_)))) + (let ((_%hd164134164151%_ (let () (declare (not safe)) - (##car _%e164096164111%_))) - (_%tl164098164116%_ + (##car _%e164133164148%_))) + (_%tl164135164153%_ (let () (declare (not safe)) - (##cdr _%e164096164111%_)))) + (##cdr _%e164133164148%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164098164116%_)) - (let ((_%e164099164119%_ + (gx#stx-pair? _%tl164135164153%_)) + (let ((_%e164136164156%_ (let () (declare (not safe)) - (gx#stx-e _%tl164098164116%_)))) - (let ((_%hd164100164122%_ + (gx#stx-e _%tl164135164153%_)))) + (let ((_%hd164137164159%_ (let () (declare (not safe)) - (##car _%e164099164119%_))) - (_%tl164101164124%_ + (##car _%e164136164156%_))) + (_%tl164138164161%_ (let () (declare (not safe)) - (##cdr _%e164099164119%_)))) + (##cdr _%e164136164156%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164101164124%_)) - ((lambda (_%L164127%_) - (let ((__obj170980 + (gx#stx-null? _%tl164138164161%_)) + ((lambda (_%L164164%_) + (let ((__obj171017 (let () (declare (not safe)) (##structure gxc#!constructor::t '#f '#f)))) - (let ((__tmp171144 + (let ((__tmp171181 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164127%_)))) + _%L164164%_)))) (declare (not safe)) (gxc#!constructor:::init! - __obj170980 - __tmp171144)) - __obj170980)) - _%hd164100164122%_) - (_%g164093164106%_ _%g164094164109%_)))) - (_%g164093164106%_ _%g164094164109%_)))) - (_%g164093164106%_ _%g164094164109%_))))) - (_%g164092164139%_ _%ann164091%_)))) + __obj171017 + __tmp171181)) + __obj171017)) + _%hd164137164159%_) + (_%g164130164143%_ _%g164131164146%_)))) + (_%g164130164143%_ _%g164131164146%_)))) + (_%g164130164143%_ _%g164131164146%_))))) + (_%g164129164176%_ _%ann164128%_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_%stx164038%_ _%ann164039%_) - (let* ((_%g164041164054%_ - (lambda (_%g164042164051%_) + (lambda (_%stx164075%_ _%ann164076%_) + (let* ((_%g164078164091%_ + (lambda (_%g164079164088%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164042164051%_)))) - (_%g164040164087%_ - (lambda (_%g164042164057%_) + _%g164079164088%_)))) + (_%g164077164124%_ + (lambda (_%g164079164094%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164042164057%_)) - (let ((_%e164044164059%_ + (gx#stx-pair? _%g164079164094%_)) + (let ((_%e164081164096%_ (let () (declare (not safe)) - (gx#stx-e _%g164042164057%_)))) - (let ((_%hd164045164062%_ + (gx#stx-e _%g164079164094%_)))) + (let ((_%hd164082164099%_ (let () (declare (not safe)) - (##car _%e164044164059%_))) - (_%tl164046164064%_ + (##car _%e164081164096%_))) + (_%tl164083164101%_ (let () (declare (not safe)) - (##cdr _%e164044164059%_)))) + (##cdr _%e164081164096%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164046164064%_)) - (let ((_%e164047164067%_ + (gx#stx-pair? _%tl164083164101%_)) + (let ((_%e164084164104%_ (let () (declare (not safe)) - (gx#stx-e _%tl164046164064%_)))) - (let ((_%hd164048164070%_ + (gx#stx-e _%tl164083164101%_)))) + (let ((_%hd164085164107%_ (let () (declare (not safe)) - (##car _%e164047164067%_))) - (_%tl164049164072%_ + (##car _%e164084164104%_))) + (_%tl164086164109%_ (let () (declare (not safe)) - (##cdr _%e164047164067%_)))) + (##cdr _%e164084164104%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164049164072%_)) - ((lambda (_%L164075%_) - (let ((__obj170981 + (gx#stx-null? _%tl164086164109%_)) + ((lambda (_%L164112%_) + (let ((__obj171018 (let () (declare (not safe)) (##structure gxc#!predicate::t '#f '#f)))) - (let ((__tmp171145 + (let ((__tmp171182 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164075%_)))) + _%L164112%_)))) (declare (not safe)) (gxc#!predicate:::init! - __obj170981 - __tmp171145)) - __obj170981)) - _%hd164048164070%_) - (_%g164041164054%_ _%g164042164057%_)))) - (_%g164041164054%_ _%g164042164057%_)))) - (_%g164041164054%_ _%g164042164057%_))))) - (_%g164040164087%_ _%ann164039%_)))) + __obj171018 + __tmp171182)) + __obj171018)) + _%hd164085164107%_) + (_%g164078164091%_ _%g164079164094%_)))) + (_%g164078164091%_ _%g164079164094%_)))) + (_%g164078164091%_ _%g164079164094%_))))) + (_%g164077164124%_ _%ann164076%_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_%stx163954%_ _%ann163955%_) - (let* ((_%g163957163978%_ - (lambda (_%g163958163975%_) + (lambda (_%stx163991%_ _%ann163992%_) + (let* ((_%g163994164015%_ + (lambda (_%g163995164012%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163958163975%_)))) - (_%g163956164035%_ - (lambda (_%g163958163981%_) + _%g163995164012%_)))) + (_%g163993164072%_ + (lambda (_%g163995164018%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163958163981%_)) - (let ((_%e163962163983%_ + (gx#stx-pair? _%g163995164018%_)) + (let ((_%e163999164020%_ (let () (declare (not safe)) - (gx#stx-e _%g163958163981%_)))) - (let ((_%hd163963163986%_ + (gx#stx-e _%g163995164018%_)))) + (let ((_%hd164000164023%_ (let () (declare (not safe)) - (##car _%e163962163983%_))) - (_%tl163964163988%_ + (##car _%e163999164020%_))) + (_%tl164001164025%_ (let () (declare (not safe)) - (##cdr _%e163962163983%_)))) + (##cdr _%e163999164020%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163964163988%_)) - (let ((_%e163965163991%_ + (gx#stx-pair? _%tl164001164025%_)) + (let ((_%e164002164028%_ (let () (declare (not safe)) - (gx#stx-e _%tl163964163988%_)))) - (let ((_%hd163966163994%_ + (gx#stx-e _%tl164001164025%_)))) + (let ((_%hd164003164031%_ (let () (declare (not safe)) - (##car _%e163965163991%_))) - (_%tl163967163996%_ + (##car _%e164002164028%_))) + (_%tl164004164033%_ (let () (declare (not safe)) - (##cdr _%e163965163991%_)))) + (##cdr _%e164002164028%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163967163996%_)) - (let ((_%e163968163999%_ + (gx#stx-pair? _%tl164004164033%_)) + (let ((_%e164005164036%_ (let () (declare (not safe)) - (gx#stx-e _%tl163967163996%_)))) - (let ((_%hd163969164002%_ + (gx#stx-e _%tl164004164033%_)))) + (let ((_%hd164006164039%_ (let () (declare (not safe)) - (##car _%e163968163999%_))) - (_%tl163970164004%_ + (##car _%e164005164036%_))) + (_%tl164007164041%_ (let () (declare (not safe)) - (##cdr _%e163968163999%_)))) + (##cdr _%e164005164036%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163970164004%_)) - (let ((_%e163971164007%_ + _%tl164007164041%_)) + (let ((_%e164008164044%_ (let () (declare (not safe)) (gx#stx-e - _%tl163970164004%_)))) - (let ((_%hd163972164010%_ + _%tl164007164041%_)))) + (let ((_%hd164009164047%_ (let () (declare (not safe)) - (##car _%e163971164007%_))) - (_%tl163973164012%_ + (##car _%e164008164044%_))) + (_%tl164010164049%_ (let () (declare (not safe)) - (##cdr _%e163971164007%_)))) + (##cdr _%e164008164044%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163973164012%_)) - ((lambda (_%L164015%_ - _%L164016%_ - _%L164017%_) - (let ((__obj170982 + _%tl164010164049%_)) + ((lambda (_%L164052%_ + _%L164053%_ + _%L164054%_) + (let ((__obj171019 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!accessor::t '#f '#f '#f '#f)))) - (let ((__tmp171148 + (let ((__tmp171185 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164017%_))) - (__tmp171147 - (let () (declare (not safe)) (gx#stx-e _%L164016%_))) - (__tmp171146 + (gxc#identifier-symbol _%L164054%_))) + (__tmp171184 + (let () (declare (not safe)) (gx#stx-e _%L164053%_))) + (__tmp171183 (let () (declare (not safe)) - (gx#stx-e _%L164015%_)))) + (gx#stx-e _%L164052%_)))) (declare (not safe)) (gxc#!accessor:::init! - __obj170982 - __tmp171148 - __tmp171147 - __tmp171146)) - __obj170982)) - _%hd163972164010%_ - _%hd163969164002%_ - _%hd163966163994%_) - (_%g163957163978%_ _%g163958163981%_)))) + __obj171019 + __tmp171185 + __tmp171184 + __tmp171183)) + __obj171019)) + _%hd164009164047%_ + _%hd164006164039%_ + _%hd164003164031%_) + (_%g163994164015%_ _%g163995164018%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163957163978%_ - _%g163958163981%_)))) - (_%g163957163978%_ _%g163958163981%_)))) - (_%g163957163978%_ _%g163958163981%_)))) - (_%g163957163978%_ _%g163958163981%_))))) - (_%g163956164035%_ _%ann163955%_)))) + (_%g163994164015%_ + _%g163995164018%_)))) + (_%g163994164015%_ _%g163995164018%_)))) + (_%g163994164015%_ _%g163995164018%_)))) + (_%g163994164015%_ _%g163995164018%_))))) + (_%g163993164072%_ _%ann163992%_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_%stx163870%_ _%ann163871%_) - (let* ((_%g163873163894%_ - (lambda (_%g163874163891%_) + (lambda (_%stx163907%_ _%ann163908%_) + (let* ((_%g163910163931%_ + (lambda (_%g163911163928%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163874163891%_)))) - (_%g163872163951%_ - (lambda (_%g163874163897%_) + _%g163911163928%_)))) + (_%g163909163988%_ + (lambda (_%g163911163934%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163874163897%_)) - (let ((_%e163878163899%_ + (gx#stx-pair? _%g163911163934%_)) + (let ((_%e163915163936%_ (let () (declare (not safe)) - (gx#stx-e _%g163874163897%_)))) - (let ((_%hd163879163902%_ + (gx#stx-e _%g163911163934%_)))) + (let ((_%hd163916163939%_ (let () (declare (not safe)) - (##car _%e163878163899%_))) - (_%tl163880163904%_ + (##car _%e163915163936%_))) + (_%tl163917163941%_ (let () (declare (not safe)) - (##cdr _%e163878163899%_)))) + (##cdr _%e163915163936%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163880163904%_)) - (let ((_%e163881163907%_ + (gx#stx-pair? _%tl163917163941%_)) + (let ((_%e163918163944%_ (let () (declare (not safe)) - (gx#stx-e _%tl163880163904%_)))) - (let ((_%hd163882163910%_ + (gx#stx-e _%tl163917163941%_)))) + (let ((_%hd163919163947%_ (let () (declare (not safe)) - (##car _%e163881163907%_))) - (_%tl163883163912%_ + (##car _%e163918163944%_))) + (_%tl163920163949%_ (let () (declare (not safe)) - (##cdr _%e163881163907%_)))) + (##cdr _%e163918163944%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163883163912%_)) - (let ((_%e163884163915%_ + (gx#stx-pair? _%tl163920163949%_)) + (let ((_%e163921163952%_ (let () (declare (not safe)) - (gx#stx-e _%tl163883163912%_)))) - (let ((_%hd163885163918%_ + (gx#stx-e _%tl163920163949%_)))) + (let ((_%hd163922163955%_ (let () (declare (not safe)) - (##car _%e163884163915%_))) - (_%tl163886163920%_ + (##car _%e163921163952%_))) + (_%tl163923163957%_ (let () (declare (not safe)) - (##cdr _%e163884163915%_)))) + (##cdr _%e163921163952%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163886163920%_)) - (let ((_%e163887163923%_ + _%tl163923163957%_)) + (let ((_%e163924163960%_ (let () (declare (not safe)) (gx#stx-e - _%tl163886163920%_)))) - (let ((_%hd163888163926%_ + _%tl163923163957%_)))) + (let ((_%hd163925163963%_ (let () (declare (not safe)) - (##car _%e163887163923%_))) - (_%tl163889163928%_ + (##car _%e163924163960%_))) + (_%tl163926163965%_ (let () (declare (not safe)) - (##cdr _%e163887163923%_)))) + (##cdr _%e163924163960%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163889163928%_)) - ((lambda (_%L163931%_ - _%L163932%_ - _%L163933%_) - (let ((__obj170983 + _%tl163926163965%_)) + ((lambda (_%L163968%_ + _%L163969%_ + _%L163970%_) + (let ((__obj171020 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!mutator::t '#f '#f '#f '#f)))) - (let ((__tmp171151 + (let ((__tmp171188 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163933%_))) - (__tmp171150 - (let () (declare (not safe)) (gx#stx-e _%L163932%_))) - (__tmp171149 + (gxc#identifier-symbol _%L163970%_))) + (__tmp171187 + (let () (declare (not safe)) (gx#stx-e _%L163969%_))) + (__tmp171186 (let () (declare (not safe)) - (gx#stx-e _%L163931%_)))) + (gx#stx-e _%L163968%_)))) (declare (not safe)) (gxc#!mutator:::init! - __obj170983 - __tmp171151 - __tmp171150 - __tmp171149)) - __obj170983)) - _%hd163888163926%_ - _%hd163885163918%_ - _%hd163882163910%_) - (_%g163873163894%_ _%g163874163897%_)))) + __obj171020 + __tmp171188 + __tmp171187 + __tmp171186)) + __obj171020)) + _%hd163925163963%_ + _%hd163922163955%_ + _%hd163919163947%_) + (_%g163910163931%_ _%g163911163934%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163873163894%_ - _%g163874163897%_)))) - (_%g163873163894%_ _%g163874163897%_)))) - (_%g163873163894%_ _%g163874163897%_)))) - (_%g163873163894%_ _%g163874163897%_))))) - (_%g163872163951%_ _%ann163871%_)))) + (_%g163910163931%_ + _%g163911163934%_)))) + (_%g163910163931%_ _%g163911163934%_)))) + (_%g163910163931%_ _%g163911163934%_)))) + (_%g163910163931%_ _%g163911163934%_))))) + (_%g163909163988%_ _%ann163908%_)))) (define gxc#basic-expression-type-annotation-interface - (lambda (_%stx163802%_ _%ann163803%_) - (let* ((_%g163805163822%_ - (lambda (_%g163806163819%_) + (lambda (_%stx163839%_ _%ann163840%_) + (let* ((_%g163842163859%_ + (lambda (_%g163843163856%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163806163819%_)))) - (_%g163804163867%_ - (lambda (_%g163806163825%_) + _%g163843163856%_)))) + (_%g163841163904%_ + (lambda (_%g163843163862%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163806163825%_)) - (let ((_%e163809163827%_ + (gx#stx-pair? _%g163843163862%_)) + (let ((_%e163846163864%_ (let () (declare (not safe)) - (gx#stx-e _%g163806163825%_)))) - (let ((_%hd163810163830%_ + (gx#stx-e _%g163843163862%_)))) + (let ((_%hd163847163867%_ (let () (declare (not safe)) - (##car _%e163809163827%_))) - (_%tl163811163832%_ + (##car _%e163846163864%_))) + (_%tl163848163869%_ (let () (declare (not safe)) - (##cdr _%e163809163827%_)))) + (##cdr _%e163846163864%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163811163832%_)) - (let ((_%e163812163835%_ + (gx#stx-pair? _%tl163848163869%_)) + (let ((_%e163849163872%_ (let () (declare (not safe)) - (gx#stx-e _%tl163811163832%_)))) - (let ((_%hd163813163838%_ + (gx#stx-e _%tl163848163869%_)))) + (let ((_%hd163850163875%_ (let () (declare (not safe)) - (##car _%e163812163835%_))) - (_%tl163814163840%_ + (##car _%e163849163872%_))) + (_%tl163851163877%_ (let () (declare (not safe)) - (##cdr _%e163812163835%_)))) + (##cdr _%e163849163872%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163814163840%_)) - (let ((_%e163815163843%_ + (gx#stx-pair? _%tl163851163877%_)) + (let ((_%e163852163880%_ (let () (declare (not safe)) - (gx#stx-e _%tl163814163840%_)))) - (let ((_%hd163816163846%_ + (gx#stx-e _%tl163851163877%_)))) + (let ((_%hd163853163883%_ (let () (declare (not safe)) - (##car _%e163815163843%_))) - (_%tl163817163848%_ + (##car _%e163852163880%_))) + (_%tl163854163885%_ (let () (declare (not safe)) - (##cdr _%e163815163843%_)))) + (##cdr _%e163852163880%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163817163848%_)) - ((lambda (_%L163851%_ - _%L163852%_) - (let ((__tmp171153 + _%tl163854163885%_)) + ((lambda (_%L163888%_ + _%L163889%_) + (let ((__tmp171190 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163852%_))) - (__tmp171152 + _%L163889%_))) + (__tmp171189 (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L163851%_)))) + _%L163888%_)))) (declare (not safe)) (##structure gxc#!interface::t - __tmp171153 - __tmp171152))) - _%hd163816163846%_ - _%hd163813163838%_) - (_%g163805163822%_ - _%g163806163825%_)))) - (_%g163805163822%_ _%g163806163825%_)))) - (_%g163805163822%_ _%g163806163825%_)))) - (_%g163805163822%_ _%g163806163825%_))))) - (_%g163804163867%_ _%ann163803%_)))) + __tmp171190 + __tmp171189))) + _%hd163853163883%_ + _%hd163850163875%_) + (_%g163842163859%_ + _%g163843163862%_)))) + (_%g163842163859%_ _%g163843163862%_)))) + (_%g163842163859%_ _%g163843163862%_)))) + (_%g163842163859%_ _%g163843163862%_))))) + (_%g163841163904%_ _%ann163840%_)))) (define gxc#basic-expression-type-annotation-predicate - (lambda (_%stx163750%_ _%ann163751%_) - (let* ((_%g163753163766%_ - (lambda (_%g163754163763%_) + (lambda (_%stx163787%_ _%ann163788%_) + (let* ((_%g163790163803%_ + (lambda (_%g163791163800%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163754163763%_)))) - (_%g163752163799%_ - (lambda (_%g163754163769%_) + _%g163791163800%_)))) + (_%g163789163836%_ + (lambda (_%g163791163806%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163754163769%_)) - (let ((_%e163756163771%_ + (gx#stx-pair? _%g163791163806%_)) + (let ((_%e163793163808%_ (let () (declare (not safe)) - (gx#stx-e _%g163754163769%_)))) - (let ((_%hd163757163774%_ + (gx#stx-e _%g163791163806%_)))) + (let ((_%hd163794163811%_ (let () (declare (not safe)) - (##car _%e163756163771%_))) - (_%tl163758163776%_ + (##car _%e163793163808%_))) + (_%tl163795163813%_ (let () (declare (not safe)) - (##cdr _%e163756163771%_)))) + (##cdr _%e163793163808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163758163776%_)) - (let ((_%e163759163779%_ + (gx#stx-pair? _%tl163795163813%_)) + (let ((_%e163796163816%_ (let () (declare (not safe)) - (gx#stx-e _%tl163758163776%_)))) - (let ((_%hd163760163782%_ + (gx#stx-e _%tl163795163813%_)))) + (let ((_%hd163797163819%_ (let () (declare (not safe)) - (##car _%e163759163779%_))) - (_%tl163761163784%_ + (##car _%e163796163816%_))) + (_%tl163798163821%_ (let () (declare (not safe)) - (##cdr _%e163759163779%_)))) + (##cdr _%e163796163816%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163761163784%_)) - ((lambda (_%L163787%_) - (let ((__obj170984 + (gx#stx-null? _%tl163798163821%_)) + ((lambda (_%L163824%_) + (let ((__obj171021 (let () (declare (not safe)) (##structure gxc#!primitive-predicate::t '#f '#f)))) - (let ((__tmp171154 + (let ((__tmp171191 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163787%_)))) + _%L163824%_)))) (declare (not safe)) (gxc#!primitive-predicate:::init! - __obj170984 - __tmp171154)) - __obj170984)) - _%hd163760163782%_) - (_%g163753163766%_ _%g163754163769%_)))) - (_%g163753163766%_ _%g163754163769%_)))) - (_%g163753163766%_ _%g163754163769%_))))) - (_%g163752163799%_ _%ann163751%_)))) + __obj171021 + __tmp171191)) + __obj171021)) + _%hd163797163819%_) + (_%g163790163803%_ _%g163791163806%_)))) + (_%g163790163803%_ _%g163791163806%_)))) + (_%g163790163803%_ _%g163791163806%_))))) + (_%g163789163836%_ _%ann163788%_)))) (define gxc#basic-expression-type-annotation-abort - (lambda (_%stx163720%_ _%ann163721%_) - (let* ((_%g163723163732%_ - (lambda (_%g163724163729%_) + (lambda (_%stx163757%_ _%ann163758%_) + (let* ((_%g163760163769%_ + (lambda (_%g163761163766%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163724163729%_)))) - (_%g163722163747%_ - (lambda (_%g163724163735%_) + _%g163761163766%_)))) + (_%g163759163784%_ + (lambda (_%g163761163772%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163724163735%_)) - (let ((_%e163725163737%_ + (gx#stx-pair? _%g163761163772%_)) + (let ((_%e163762163774%_ (let () (declare (not safe)) - (gx#stx-e _%g163724163735%_)))) - (let ((_%hd163726163740%_ + (gx#stx-e _%g163761163772%_)))) + (let ((_%hd163763163777%_ (let () (declare (not safe)) - (##car _%e163725163737%_))) - (_%tl163727163742%_ + (##car _%e163762163774%_))) + (_%tl163764163779%_ (let () (declare (not safe)) - (##cdr _%e163725163737%_)))) + (##cdr _%e163762163774%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163727163742%_)) + (gx#stx-null? _%tl163764163779%_)) ((lambda () - (let ((__obj170985 + (let ((__obj171022 (let () (declare (not safe)) (##structure gxc#!abort::t '#f)))) (let () (declare (not safe)) - (gxc#!abort:::init! __obj170985)) - __obj170985))) - (_%g163723163732%_ _%g163724163735%_)))) - (_%g163723163732%_ _%g163724163735%_))))) - (_%g163722163747%_ _%ann163721%_)))) + (gxc#!abort:::init! __obj171022)) + __obj171022))) + (_%g163760163769%_ _%g163761163772%_)))) + (_%g163760163769%_ _%g163761163772%_))))) + (_%g163759163784%_ _%ann163758%_)))) (let () (declare (not safe)) (__hash-put! @@ -9015,19 +9015,19 @@ '@abort gxc#basic-expression-type-annotation-abort)) (define gxc#raw-expression-type-lambda% - (lambda (_%self163652%_ _%stx163653%_) - (let* ((_%__stx168823168824%_ _%stx163653%_) - (_%g163656163670%_ + (lambda (_%self163689%_ _%stx163690%_) + (let* ((_%__stx168860168861%_ _%stx163690%_) + (_%g163693163707%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168823168824%_))))) - (let ((_%__kont168825168826%_ - (lambda (_%L163708%_) - (let ((__obj170986 + _%__stx168860168861%_))))) + (let ((_%__kont168862168863%_ + (lambda (_%L163745%_) + (let ((__obj171023 (let () (declare (not safe)) (##structure @@ -9038,22 +9038,22 @@ '#f '#f '#f)))) - (let ((__tmp171156 (gxc#lambda-form-arity _%L163708%_)) - (__tmp171155 - (gxc#dispatch-lambda-form-delegate _%L163708%_))) + (let ((__tmp171193 (gxc#lambda-form-arity _%L163745%_)) + (__tmp171192 + (gxc#dispatch-lambda-form-delegate _%L163745%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj170986 - __tmp171156 - __tmp171155)) - __obj170986))) - (_%__kont168827168828%_ - (lambda (_%L163683%_) - (let* ((_%signature163693%_ - (gxc#lambda-form-infer-signature _%L163683%_)) - (__obj170987 + __obj171023 + __tmp171193 + __tmp171192)) + __obj171023))) + (_%__kont168864168865%_ + (lambda (_%L163720%_) + (let* ((_%signature163730%_ + (gxc#lambda-form-infer-signature _%L163720%_)) + (__obj171024 (let () (declare (not safe)) (##structure @@ -9064,98 +9064,98 @@ '#f '#f '#f)))) - (let ((__tmp171157 (gxc#lambda-form-arity _%L163683%_))) + (let ((__tmp171194 (gxc#lambda-form-arity _%L163720%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature163693%_ - __obj170987 - __tmp171157 + _%signature163730%_ + __obj171024 + __tmp171194 '#f)) - __obj170987)))) - (let ((_%__match168834168835%_ - (lambda (_%e163659163700%_ - _%hd163660163703%_ - _%tl163661163705%_) - (let ((_%L163708%_ _%tl163661163705%_)) - (if (gxc#dispatch-lambda-form? _%L163708%_) - (_%__kont168825168826%_ _%L163708%_) - (_%__kont168827168828%_ _%tl163661163705%_)))))) + __obj171024)))) + (let ((_%__match168871168872%_ + (lambda (_%e163696163737%_ + _%hd163697163740%_ + _%tl163698163742%_) + (let ((_%L163745%_ _%tl163698163742%_)) + (if (gxc#dispatch-lambda-form? _%L163745%_) + (_%__kont168862168863%_ _%L163745%_) + (_%__kont168864168865%_ _%tl163698163742%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168823168824%_)) - (let ((_%e163659163700%_ + (gx#stx-pair? _%__stx168860168861%_)) + (let ((_%e163696163737%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168823168824%_)))) - (let ((_%tl163661163705%_ + (gx#stx-e _%__stx168860168861%_)))) + (let ((_%tl163698163742%_ (let () (declare (not safe)) - (##cdr _%e163659163700%_))) - (_%hd163660163703%_ + (##cdr _%e163696163737%_))) + (_%hd163697163740%_ (let () (declare (not safe)) - (##car _%e163659163700%_)))) - (_%__match168834168835%_ - _%e163659163700%_ - _%hd163660163703%_ - _%tl163661163705%_))) - (let () (declare (not safe)) (_%g163656163670%_)))))))) + (##car _%e163696163737%_)))) + (_%__match168871168872%_ + _%e163696163737%_ + _%hd163697163740%_ + _%tl163698163742%_))) + (let () (declare (not safe)) (_%g163693163707%_)))))))) (define gxc#basic-expression-type-lambda% - (lambda (_%self162796%_ _%stx162797%_) - (let* ((_%__stx168843168844%_ _%stx162797%_) - (_%g162802162994%_ + (lambda (_%self162833%_ _%stx162834%_) + (let* ((_%__stx168880168881%_ _%stx162834%_) + (_%g162839163031%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168843168844%_))))) - (let ((_%__kont168845168846%_ - (lambda (_%L163589%_ - _%L163590%_ - _%L163591%_ - _%L163592%_ - _%L163593%_ - _%L163594%_) - (let* ((_%tab163644%_ + _%__stx168880168881%_))))) + (let ((_%__kont168882168883%_ + (lambda (_%L163626%_ + _%L163627%_ + _%L163628%_ + _%L163629%_ + _%L163630%_ + _%L163631%_) + (let* ((_%tab163681%_ (let () (declare (not safe)) - (gx#stx-e _%L163591%_))) - (_%keys163646%_ - (if _%tab163644%_ - (let ((__tmp171158 - (vector->list _%tab163644%_))) + (gx#stx-e _%L163628%_))) + (_%keys163683%_ + (if _%tab163681%_ + (let ((__tmp171195 + (vector->list _%tab163681%_))) (declare (not safe)) - (##filter identity __tmp171158)) + (##filter identity __tmp171195)) '#f)) - (__obj170988 + (__obj171025 (let () (declare (not safe)) (##structure gxc#!kw-lambda::t '#f '#f '#f '#f)))) - (let ((__tmp171159 + (let ((__tmp171196 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163590%_)))) + (gxc#identifier-symbol _%L163627%_)))) (declare (not safe)) (gxc#!kw-lambda:::init! - __obj170988 - _%keys163646%_ - __tmp171159)) - __obj170988))) - (_%__kont168847168848%_ - (lambda (_%L163322%_ - _%L163323%_ - _%L163324%_ - _%L163325%_ - _%L163326%_ - _%L163327%_ - _%L163328%_ - _%L163329%_ - _%L163330%_ - _%L163331%_) - (let ((__obj170989 + __obj171025 + _%keys163683%_ + __tmp171196)) + __obj171025))) + (_%__kont168884168885%_ + (lambda (_%L163359%_ + _%L163360%_ + _%L163361%_ + _%L163362%_ + _%L163363%_ + _%L163364%_ + _%L163365%_ + _%L163366%_ + _%L163367%_ + _%L163368%_) + (let ((__obj171026 (let () (declare (not safe)) (##structure @@ -9164,28 +9164,28 @@ '#f '#f '#f)))) - (let ((__tmp171161 + (let ((__tmp171198 (map gx#stx-e - (let ((__tmp171162 - (lambda (_%g163424163427%_ - _%g163425163429%_) - (cons _%g163424163427%_ - _%g163425163429%_)))) + (let ((__tmp171199 + (lambda (_%g163461163464%_ + _%g163462163466%_) + (cons _%g163461163464%_ + _%g163462163466%_)))) (declare (not safe)) - (__foldr1 __tmp171162 '() _%L163324%_)))) - (__tmp171160 + (__foldr1 __tmp171199 '() _%L163361%_)))) + (__tmp171197 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163328%_)))) + (gxc#identifier-symbol _%L163365%_)))) (declare (not safe)) (gxc#!kw-lambda-primary:::init! - __obj170989 - __tmp171161 - __tmp171160)) - __obj170989))) - (_%__kont168851168852%_ - (lambda (_%L163032%_) - (let ((__obj170990 + __obj171026 + __tmp171198 + __tmp171197)) + __obj171026))) + (_%__kont168888168889%_ + (lambda (_%L163069%_) + (let ((__obj171027 (let () (declare (not safe)) (##structure @@ -9196,22 +9196,22 @@ '#f '#f '#f)))) - (let ((__tmp171164 (gxc#lambda-form-arity _%L163032%_)) - (__tmp171163 - (gxc#dispatch-lambda-form-delegate _%L163032%_))) + (let ((__tmp171201 (gxc#lambda-form-arity _%L163069%_)) + (__tmp171200 + (gxc#dispatch-lambda-form-delegate _%L163069%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj170990 - __tmp171164 - __tmp171163)) - __obj170990))) - (_%__kont168853168854%_ - (lambda (_%L163007%_) - (let* ((_%signature163017%_ - (gxc#lambda-form-infer-signature _%L163007%_)) - (__obj170991 + __obj171027 + __tmp171201 + __tmp171200)) + __obj171027))) + (_%__kont168890168891%_ + (lambda (_%L163044%_) + (let* ((_%signature163054%_ + (gxc#lambda-form-infer-signature _%L163044%_)) + (__obj171028 (let () (declare (not safe)) (##structure @@ -9222,1937 +9222,1937 @@ '#f '#f '#f)))) - (let ((__tmp171165 (gxc#lambda-form-arity _%L163007%_))) + (let ((__tmp171202 (gxc#lambda-form-arity _%L163044%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature163017%_ - __obj170991 - __tmp171165 + _%signature163054%_ + __obj171028 + __tmp171202 '#f)) - __obj170991)))) - (let* ((_%__match169152169153%_ - (lambda (_%e162983163024%_ - _%hd162984163027%_ - _%tl162985163029%_) - (let ((_%L163032%_ _%tl162985163029%_)) - (if (gxc#dispatch-lambda-form? _%L163032%_) - (_%__kont168851168852%_ _%L163032%_) - (_%__kont168853168854%_ _%tl162985163029%_))))) - (_%__match169146169147%_ - (lambda (_%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_ - _%e162880163054%_ - _%hd162881163057%_ - _%tl162882163059%_ - _%e162883163062%_ - _%hd162884163065%_ - _%tl162885163067%_ - _%e162886163070%_ - _%hd162887163073%_ - _%tl162888163075%_ - _%e162889163078%_ - _%hd162890163081%_ - _%tl162891163083%_ - _%e162892163086%_ - _%hd162893163089%_ - _%tl162894163091%_ - _%e162895163094%_ - _%hd162896163097%_ - _%tl162897163099%_ - _%e162898163102%_ - _%hd162899163105%_ - _%tl162900163107%_ - _%e162901163110%_ - _%hd162902163113%_ - _%tl162903163115%_ - _%e162904163118%_ - _%hd162905163121%_ - _%tl162906163123%_ - _%e162907163126%_ - _%hd162908163129%_ - _%tl162909163131%_ - _%e162910163134%_ - _%hd162911163137%_ - _%tl162912163139%_ - _%e162913163142%_ - _%hd162914163145%_ - _%tl162915163147%_ - _%e162916163150%_ - _%hd162917163153%_ - _%tl162918163155%_ - _%__splice168849168850%_ - _%target162919163158%_ - _%tl162921163160%_ - _%e162934163163%_ - _%hd162935163166%_ - _%tl162936163168%_ - _%e162937163171%_ - _%hd162938163174%_ - _%tl162939163176%_ - _%e162940163179%_ - _%hd162941163182%_ - _%tl162942163184%_) - (letrec ((_%loop162922163187%_ - (lambda (_%hd162920163190%_ - _%-absent-value162926163192%_ - _%key162927163194%_ - _%-xkwvar162928163196%_ - _%-hash-ref162929163198%_) + __obj171028)))) + (let* ((_%__match169189169190%_ + (lambda (_%e163020163061%_ + _%hd163021163064%_ + _%tl163022163066%_) + (let ((_%L163069%_ _%tl163022163066%_)) + (if (gxc#dispatch-lambda-form? _%L163069%_) + (_%__kont168888168889%_ _%L163069%_) + (_%__kont168890168891%_ _%tl163022163066%_))))) + (_%__match169183169184%_ + (lambda (_%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_ + _%e162917163091%_ + _%hd162918163094%_ + _%tl162919163096%_ + _%e162920163099%_ + _%hd162921163102%_ + _%tl162922163104%_ + _%e162923163107%_ + _%hd162924163110%_ + _%tl162925163112%_ + _%e162926163115%_ + _%hd162927163118%_ + _%tl162928163120%_ + _%e162929163123%_ + _%hd162930163126%_ + _%tl162931163128%_ + _%e162932163131%_ + _%hd162933163134%_ + _%tl162934163136%_ + _%e162935163139%_ + _%hd162936163142%_ + _%tl162937163144%_ + _%e162938163147%_ + _%hd162939163150%_ + _%tl162940163152%_ + _%e162941163155%_ + _%hd162942163158%_ + _%tl162943163160%_ + _%e162944163163%_ + _%hd162945163166%_ + _%tl162946163168%_ + _%e162947163171%_ + _%hd162948163174%_ + _%tl162949163176%_ + _%e162950163179%_ + _%hd162951163182%_ + _%tl162952163184%_ + _%e162953163187%_ + _%hd162954163190%_ + _%tl162955163192%_ + _%__splice168886168887%_ + _%target162956163195%_ + _%tl162958163197%_ + _%e162971163200%_ + _%hd162972163203%_ + _%tl162973163205%_ + _%e162974163208%_ + _%hd162975163211%_ + _%tl162976163213%_ + _%e162977163216%_ + _%hd162978163219%_ + _%tl162979163221%_) + (letrec ((_%loop162959163224%_ + (lambda (_%hd162957163227%_ + _%-absent-value162963163229%_ + _%key162964163231%_ + _%-xkwvar162965163233%_ + _%-hash-ref162966163235%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162920163190%_)) - (let ((_%e162923163201%_ + (gx#stx-pair? _%hd162957163227%_)) + (let ((_%e162960163238%_ (let () (declare (not safe)) - (gx#stx-e _%hd162920163190%_)))) - (let ((_%lp-tl162925163206%_ + (gx#stx-e _%hd162957163227%_)))) + (let ((_%lp-tl162962163243%_ (let () (declare (not safe)) - (##cdr _%e162923163201%_))) - (_%lp-hd162924163204%_ + (##cdr _%e162960163238%_))) + (_%lp-hd162961163241%_ (let () (declare (not safe)) - (##car _%e162923163201%_)))) + (##car _%e162960163238%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd162924163204%_)) - (let ((_%e162943163209%_ + _%lp-hd162961163241%_)) + (let ((_%e162980163246%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd162924163204%_)))) - (let ((_%tl162945163214%_ + _%lp-hd162961163241%_)))) + (let ((_%tl162982163251%_ (let () (declare (not safe)) - (##cdr _%e162943163209%_))) - (_%hd162944163212%_ + (##cdr _%e162980163246%_))) + (_%hd162981163249%_ (let () (declare (not safe)) - (##car _%e162943163209%_)))) + (##car _%e162980163246%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162944163212%_)) + _%hd162981163249%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162944163212%_)) + _%hd162981163249%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl162945163214%_)) - (let ((_%e162946163217%_ + (gx#stx-pair? _%tl162982163251%_)) + (let ((_%e162983163254%_ (let () (declare (not safe)) - (gx#stx-e _%tl162945163214%_)))) - (let ((_%tl162948163222%_ + (gx#stx-e _%tl162982163251%_)))) + (let ((_%tl162985163259%_ (let () (declare (not safe)) - (##cdr _%e162946163217%_))) - (_%hd162947163220%_ + (##cdr _%e162983163254%_))) + (_%hd162984163257%_ (let () (declare (not safe)) - (##car _%e162946163217%_)))) + (##car _%e162983163254%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162947163220%_)) - (let ((_%e162949163225%_ + (gx#stx-pair? _%hd162984163257%_)) + (let ((_%e162986163262%_ (let () (declare (not safe)) - (gx#stx-e _%hd162947163220%_)))) - (let ((_%tl162951163230%_ + (gx#stx-e _%hd162984163257%_)))) + (let ((_%tl162988163267%_ (let () (declare (not safe)) - (##cdr _%e162949163225%_))) - (_%hd162950163228%_ + (##cdr _%e162986163262%_))) + (_%hd162987163265%_ (let () (declare (not safe)) - (##car _%e162949163225%_)))) + (##car _%e162986163262%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162950163228%_)) + (gx#identifier? _%hd162987163265%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd162950163228%_)) + _%hd162987163265%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162951163230%_)) - (let ((_%e162952163233%_ + _%tl162988163267%_)) + (let ((_%e162989163270%_ (let () (declare (not safe)) (gx#stx-e - _%tl162951163230%_)))) - (let ((_%tl162954163238%_ + _%tl162988163267%_)))) + (let ((_%tl162991163275%_ (let () (declare (not safe)) - (##cdr _%e162952163233%_))) - (_%hd162953163236%_ + (##cdr _%e162989163270%_))) + (_%hd162990163273%_ (let () (declare (not safe)) - (##car _%e162952163233%_)))) + (##car _%e162989163270%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162954163238%_)) + _%tl162991163275%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162948163222%_)) - (let ((_%e162955163241%_ + _%tl162985163259%_)) + (let ((_%e162992163278%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162948163222%_)))) - (let ((_%tl162957163246%_ + (gx#stx-e _%tl162985163259%_)))) + (let ((_%tl162994163283%_ (let () (declare (not safe)) - (##cdr _%e162955163241%_))) - (_%hd162956163244%_ + (##cdr _%e162992163278%_))) + (_%hd162993163281%_ (let () (declare (not safe)) - (##car _%e162955163241%_)))) + (##car _%e162992163278%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162956163244%_)) - (let ((_%e162958163249%_ + (gx#stx-pair? _%hd162993163281%_)) + (let ((_%e162995163286%_ (let () (declare (not safe)) - (gx#stx-e _%hd162956163244%_)))) - (let ((_%tl162960163254%_ + (gx#stx-e _%hd162993163281%_)))) + (let ((_%tl162997163291%_ (let () (declare (not safe)) - (##cdr _%e162958163249%_))) - (_%hd162959163252%_ + (##cdr _%e162995163286%_))) + (_%hd162996163289%_ (let () (declare (not safe)) - (##car _%e162958163249%_)))) + (##car _%e162995163286%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162959163252%_)) + (gx#identifier? _%hd162996163289%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162959163252%_)) + (gx#stx-eq? '%#ref _%hd162996163289%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162960163254%_)) - (let ((_%e162961163257%_ + (gx#stx-pair? _%tl162997163291%_)) + (let ((_%e162998163294%_ (let () (declare (not safe)) (gx#stx-e - _%tl162960163254%_)))) - (let ((_%tl162963163262%_ + _%tl162997163291%_)))) + (let ((_%tl163000163299%_ (let () (declare (not safe)) - (##cdr _%e162961163257%_))) - (_%hd162962163260%_ + (##cdr _%e162998163294%_))) + (_%hd162999163297%_ (let () (declare (not safe)) - (##car _%e162961163257%_)))) + (##car _%e162998163294%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162963163262%_)) + _%tl163000163299%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162957163246%_)) - (let ((_%e162964163265%_ + _%tl162994163283%_)) + (let ((_%e163001163302%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162957163246%_)))) - (let ((_%tl162966163270%_ - (let () (declare (not safe)) (##cdr _%e162964163265%_))) - (_%hd162965163268%_ + (gx#stx-e _%tl162994163283%_)))) + (let ((_%tl163003163307%_ + (let () (declare (not safe)) (##cdr _%e163001163302%_))) + (_%hd163002163305%_ (let () (declare (not safe)) - (##car _%e162964163265%_)))) + (##car _%e163001163302%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162965163268%_)) - (let ((_%e162967163273%_ + (gx#stx-pair? _%hd163002163305%_)) + (let ((_%e163004163310%_ (let () (declare (not safe)) - (gx#stx-e _%hd162965163268%_)))) - (let ((_%tl162969163278%_ + (gx#stx-e _%hd163002163305%_)))) + (let ((_%tl163006163315%_ (let () (declare (not safe)) - (##cdr _%e162967163273%_))) - (_%hd162968163276%_ + (##cdr _%e163004163310%_))) + (_%hd163005163313%_ (let () (declare (not safe)) - (##car _%e162967163273%_)))) + (##car _%e163004163310%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162968163276%_)) + (gx#identifier? _%hd163005163313%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd162968163276%_)) + (gx#stx-eq? '%#quote _%hd163005163313%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162969163278%_)) - (let ((_%e162970163281%_ + (gx#stx-pair? _%tl163006163315%_)) + (let ((_%e163007163318%_ (let () (declare (not safe)) - (gx#stx-e _%tl162969163278%_)))) - (let ((_%tl162972163286%_ + (gx#stx-e _%tl163006163315%_)))) + (let ((_%tl163009163323%_ (let () (declare (not safe)) - (##cdr _%e162970163281%_))) - (_%hd162971163284%_ + (##cdr _%e163007163318%_))) + (_%hd163008163321%_ (let () (declare (not safe)) - (##car _%e162970163281%_)))) + (##car _%e163007163318%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162972163286%_)) + _%tl163009163323%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162966163270%_)) - (let ((_%e162973163289%_ + _%tl163003163307%_)) + (let ((_%e163010163326%_ (let () (declare (not safe)) (gx#stx-e - _%tl162966163270%_)))) - (let ((_%tl162975163294%_ + _%tl163003163307%_)))) + (let ((_%tl163012163331%_ (let () (declare (not safe)) - (##cdr _%e162973163289%_))) - (_%hd162974163292%_ + (##cdr _%e163010163326%_))) + (_%hd163011163329%_ (let () (declare (not safe)) - (##car _%e162973163289%_)))) + (##car _%e163010163326%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162974163292%_)) - (let ((_%e162976163297%_ + _%hd163011163329%_)) + (let ((_%e163013163334%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162974163292%_)))) - (let ((_%tl162978163302%_ + (gx#stx-e _%hd163011163329%_)))) + (let ((_%tl163015163339%_ (let () (declare (not safe)) - (##cdr _%e162976163297%_))) - (_%hd162977163300%_ + (##cdr _%e163013163334%_))) + (_%hd163014163337%_ (let () (declare (not safe)) - (##car _%e162976163297%_)))) + (##car _%e163013163334%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162977163300%_)) + (gx#identifier? _%hd163014163337%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162977163300%_)) + (gx#stx-eq? '%#ref _%hd163014163337%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162978163302%_)) - (let ((_%e162979163305%_ + (gx#stx-pair? _%tl163015163339%_)) + (let ((_%e163016163342%_ (let () (declare (not safe)) - (gx#stx-e _%tl162978163302%_)))) - (let ((_%tl162981163310%_ + (gx#stx-e _%tl163015163339%_)))) + (let ((_%tl163018163347%_ (let () (declare (not safe)) - (##cdr _%e162979163305%_))) - (_%hd162980163308%_ + (##cdr _%e163016163342%_))) + (_%hd163017163345%_ (let () (declare (not safe)) - (##car _%e162979163305%_)))) + (##car _%e163016163342%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162981163310%_)) + (gx#stx-null? _%tl163018163347%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162975163294%_)) - (_%loop162922163187%_ - _%lp-tl162925163206%_ - (cons _%hd162980163308%_ - _%-absent-value162926163192%_) - (cons _%hd162971163284%_ - _%key162927163194%_) - (cons _%hd162962163260%_ - _%-xkwvar162928163196%_) - (cons _%hd162953163236%_ - _%-hash-ref162929163198%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) + _%tl163012163331%_)) + (_%loop162959163224%_ + _%lp-tl162962163243%_ + (cons _%hd163017163345%_ + _%-absent-value162963163229%_) + (cons _%hd163008163321%_ + _%key162964163231%_) + (cons _%hd162999163297%_ + _%-xkwvar162965163233%_) + (cons _%hd162990163273%_ + _%-hash-ref162966163235%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (let ((_%-hash-ref162933163319%_ - (reverse _%-hash-ref162929163198%_)) - (_%-xkwvar162932163317%_ - (reverse _%-xkwvar162928163196%_)) - (_%key162931163315%_ - (reverse _%key162927163194%_)) - (_%-absent-value162930163313%_ - (reverse _%-absent-value162926163192%_))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (let ((_%-hash-ref162970163356%_ + (reverse _%-hash-ref162966163235%_)) + (_%-xkwvar162969163354%_ + (reverse _%-xkwvar162965163233%_)) + (_%key162968163352%_ + (reverse _%key162964163231%_)) + (_%-absent-value162967163350%_ + (reverse _%-absent-value162963163229%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162888163075%_)) - (let ((_%L163322%_ - _%hd162941163182%_) - (_%L163323%_ - _%-absent-value162930163313%_) - (_%L163324%_ - _%key162931163315%_) - (_%L163325%_ - _%-xkwvar162932163317%_) - (_%L163326%_ - _%-hash-ref162933163319%_) - (_%L163327%_ - _%hd162917163153%_) - (_%L163328%_ - _%hd162908163129%_) - (_%L163329%_ - _%hd162899163105%_) - (_%L163330%_ - _%tl162885163067%_) - (_%L163331%_ - _%hd162884163065%_)) + _%tl162925163112%_)) + (let ((_%L163359%_ + _%hd162978163219%_) + (_%L163360%_ + _%-absent-value162967163350%_) + (_%L163361%_ + _%key162968163352%_) + (_%L163362%_ + _%-xkwvar162969163354%_) + (_%L163363%_ + _%-hash-ref162970163356%_) + (_%L163364%_ + _%hd162954163190%_) + (_%L163365%_ + _%hd162945163166%_) + (_%L163366%_ + _%hd162936163142%_) + (_%L163367%_ + _%tl162922163104%_) + (_%L163368%_ + _%hd162921163102%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L163331%_)) + _%L163368%_)) (let () (declare (not safe)) (gx#identifier? - _%L163330%_)) + _%L163367%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163329%_ + _%L163366%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L163331%_ - _%L163327%_)) - (let ((__tmp171166 - (let ((__tmp171167 + _%L163368%_ + _%L163364%_)) + (let ((__tmp171203 + (let ((__tmp171204 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g163384163387%_ _%g163385163389%_) - (cons _%g163384163387%_ _%g163385163389%_)))) + (lambda (_%g163421163424%_ _%g163422163426%_) + (cons _%g163421163424%_ _%g163422163426%_)))) (declare (not safe)) - (__foldr1 __tmp171167 '() _%L163324%_)))) + (__foldr1 __tmp171204 '() _%L163361%_)))) (declare (not safe)) - (__andmap1 gx#stx-keyword? __tmp171166)) - (let ((__tmp171170 - (lambda (_%g163391163393%_) + (__andmap1 gx#stx-keyword? __tmp171203)) + (let ((__tmp171207 + (lambda (_%g163428163430%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g163391163393%_ + _%g163428163430%_ 'symbolic-table-ref)))) - (__tmp171168 - (let ((__tmp171169 - (lambda (_%g163395163398%_ _%g163396163400%_) - (cons _%g163395163398%_ _%g163396163400%_)))) + (__tmp171205 + (let ((__tmp171206 + (lambda (_%g163432163435%_ _%g163433163437%_) + (cons _%g163432163435%_ _%g163433163437%_)))) (declare (not safe)) - (__foldr1 __tmp171169 '() _%L163326%_)))) + (__foldr1 __tmp171206 '() _%L163363%_)))) (declare (not safe)) - (__andmap1 __tmp171170 __tmp171168)) - (let ((__tmp171173 - (lambda (_%g163402163404%_) + (__andmap1 __tmp171207 __tmp171205)) + (let ((__tmp171210 + (lambda (_%g163439163441%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g163402163404%_ + _%g163439163441%_ 'absent-value)))) - (__tmp171171 - (let ((__tmp171172 - (lambda (_%g163406163409%_ _%g163407163411%_) - (cons _%g163406163409%_ _%g163407163411%_)))) + (__tmp171208 + (let ((__tmp171209 + (lambda (_%g163443163446%_ _%g163444163448%_) + (cons _%g163443163446%_ _%g163444163448%_)))) (declare (not safe)) - (__foldr1 __tmp171172 '() _%L163323%_)))) + (__foldr1 __tmp171209 '() _%L163360%_)))) (declare (not safe)) - (__andmap1 __tmp171173 __tmp171171)) - (let ((__tmp171176 - (lambda (_%g163413163415%_) + (__andmap1 __tmp171210 __tmp171208)) + (let ((__tmp171213 + (lambda (_%g163450163452%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g163413163415%_ - _%L163331%_)))) - (__tmp171174 - (let ((__tmp171175 - (lambda (_%g163417163420%_ _%g163418163422%_) - (cons _%g163417163420%_ _%g163418163422%_)))) + _%g163450163452%_ + _%L163368%_)))) + (__tmp171211 + (let ((__tmp171212 + (lambda (_%g163454163457%_ _%g163455163459%_) + (cons _%g163454163457%_ _%g163455163459%_)))) (declare (not safe)) - (__foldr1 __tmp171175 '() _%L163325%_)))) + (__foldr1 __tmp171212 '() _%L163362%_)))) (declare (not safe)) - (__andmap1 __tmp171176 __tmp171174))) + (__andmap1 __tmp171213 __tmp171211))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168847168848%_ - _%L163322%_ - _%L163323%_ - _%L163324%_ - _%L163325%_ - _%L163326%_ - _%L163327%_ - _%L163328%_ - _%L163329%_ - _%L163330%_ - _%L163331%_) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_))))))) - (_%loop162922163187%_ - _%target162919163158%_ + (_%__kont168884168885%_ + _%L163359%_ + _%L163360%_ + _%L163361%_ + _%L163362%_ + _%L163363%_ + _%L163364%_ + _%L163365%_ + _%L163366%_ + _%L163367%_ + _%L163368%_) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_))))))) + (_%loop162959163224%_ + _%target162956163195%_ '() '() '() '())))) - (_%__match169018169019%_ - (lambda (_%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_ - _%e162880163054%_ - _%hd162881163057%_ - _%tl162882163059%_) + (_%__match169055169056%_ + (lambda (_%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_ + _%e162917163091%_ + _%hd162918163094%_ + _%tl162919163096%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162881163057%_)) - (let ((_%e162883163062%_ + (gx#stx-pair? _%hd162918163094%_)) + (let ((_%e162920163099%_ (let () (declare (not safe)) - (gx#stx-e _%hd162881163057%_)))) - (let ((_%tl162885163067%_ + (gx#stx-e _%hd162918163094%_)))) + (let ((_%tl162922163104%_ (let () (declare (not safe)) - (##cdr _%e162883163062%_))) - (_%hd162884163065%_ + (##cdr _%e162920163099%_))) + (_%hd162921163102%_ (let () (declare (not safe)) - (##car _%e162883163062%_)))) + (##car _%e162920163099%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162882163059%_)) - (let ((_%e162886163070%_ + (gx#stx-pair? _%tl162919163096%_)) + (let ((_%e162923163107%_ (let () (declare (not safe)) - (gx#stx-e _%tl162882163059%_)))) - (let ((_%tl162888163075%_ + (gx#stx-e _%tl162919163096%_)))) + (let ((_%tl162925163112%_ (let () (declare (not safe)) - (##cdr _%e162886163070%_))) - (_%hd162887163073%_ + (##cdr _%e162923163107%_))) + (_%hd162924163110%_ (let () (declare (not safe)) - (##car _%e162886163070%_)))) + (##car _%e162923163107%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162887163073%_)) - (let ((_%e162889163078%_ + (gx#stx-pair? _%hd162924163110%_)) + (let ((_%e162926163115%_ (let () (declare (not safe)) (gx#stx-e - _%hd162887163073%_)))) - (let ((_%tl162891163083%_ + _%hd162924163110%_)))) + (let ((_%tl162928163120%_ (let () (declare (not safe)) - (##cdr _%e162889163078%_))) - (_%hd162890163081%_ + (##cdr _%e162926163115%_))) + (_%hd162927163118%_ (let () (declare (not safe)) - (##car _%e162889163078%_)))) + (##car _%e162926163115%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162890163081%_)) + _%hd162927163118%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162890163081%_)) + _%hd162927163118%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162891163083%_)) - (let ((_%e162892163086%_ + _%tl162928163120%_)) + (let ((_%e162929163123%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162891163083%_)))) - (let ((_%tl162894163091%_ + (gx#stx-e _%tl162928163120%_)))) + (let ((_%tl162931163128%_ (let () (declare (not safe)) - (##cdr _%e162892163086%_))) - (_%hd162893163089%_ + (##cdr _%e162929163123%_))) + (_%hd162930163126%_ (let () (declare (not safe)) - (##car _%e162892163086%_)))) + (##car _%e162929163123%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162893163089%_)) - (let ((_%e162895163094%_ + (gx#stx-pair? _%hd162930163126%_)) + (let ((_%e162932163131%_ (let () (declare (not safe)) - (gx#stx-e _%hd162893163089%_)))) - (let ((_%tl162897163099%_ + (gx#stx-e _%hd162930163126%_)))) + (let ((_%tl162934163136%_ (let () (declare (not safe)) - (##cdr _%e162895163094%_))) - (_%hd162896163097%_ + (##cdr _%e162932163131%_))) + (_%hd162933163134%_ (let () (declare (not safe)) - (##car _%e162895163094%_)))) + (##car _%e162932163131%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162896163097%_)) + (gx#identifier? _%hd162933163134%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162896163097%_)) + (gx#stx-eq? '%#ref _%hd162933163134%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162897163099%_)) - (let ((_%e162898163102%_ + (gx#stx-pair? _%tl162934163136%_)) + (let ((_%e162935163139%_ (let () (declare (not safe)) (gx#stx-e - _%tl162897163099%_)))) - (let ((_%tl162900163107%_ + _%tl162934163136%_)))) + (let ((_%tl162937163144%_ (let () (declare (not safe)) - (##cdr _%e162898163102%_))) - (_%hd162899163105%_ + (##cdr _%e162935163139%_))) + (_%hd162936163142%_ (let () (declare (not safe)) - (##car _%e162898163102%_)))) + (##car _%e162935163139%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162900163107%_)) + _%tl162937163144%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162894163091%_)) - (let ((_%e162901163110%_ + _%tl162931163128%_)) + (let ((_%e162938163147%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162894163091%_)))) - (let ((_%tl162903163115%_ - (let () (declare (not safe)) (##cdr _%e162901163110%_))) - (_%hd162902163113%_ + (gx#stx-e _%tl162931163128%_)))) + (let ((_%tl162940163152%_ + (let () (declare (not safe)) (##cdr _%e162938163147%_))) + (_%hd162939163150%_ (let () (declare (not safe)) - (##car _%e162901163110%_)))) + (##car _%e162938163147%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162902163113%_)) - (let ((_%e162904163118%_ + (gx#stx-pair? _%hd162939163150%_)) + (let ((_%e162941163155%_ (let () (declare (not safe)) - (gx#stx-e _%hd162902163113%_)))) - (let ((_%tl162906163123%_ + (gx#stx-e _%hd162939163150%_)))) + (let ((_%tl162943163160%_ (let () (declare (not safe)) - (##cdr _%e162904163118%_))) - (_%hd162905163121%_ + (##cdr _%e162941163155%_))) + (_%hd162942163158%_ (let () (declare (not safe)) - (##car _%e162904163118%_)))) + (##car _%e162941163155%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162905163121%_)) + (gx#identifier? _%hd162942163158%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162905163121%_)) + (gx#stx-eq? '%#ref _%hd162942163158%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162906163123%_)) - (let ((_%e162907163126%_ + (gx#stx-pair? _%tl162943163160%_)) + (let ((_%e162944163163%_ (let () (declare (not safe)) - (gx#stx-e _%tl162906163123%_)))) - (let ((_%tl162909163131%_ + (gx#stx-e _%tl162943163160%_)))) + (let ((_%tl162946163168%_ (let () (declare (not safe)) - (##cdr _%e162907163126%_))) - (_%hd162908163129%_ + (##cdr _%e162944163163%_))) + (_%hd162945163166%_ (let () (declare (not safe)) - (##car _%e162907163126%_)))) + (##car _%e162944163163%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162909163131%_)) + _%tl162946163168%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162903163115%_)) - (let ((_%e162910163134%_ + _%tl162940163152%_)) + (let ((_%e162947163171%_ (let () (declare (not safe)) (gx#stx-e - _%tl162903163115%_)))) - (let ((_%tl162912163139%_ + _%tl162940163152%_)))) + (let ((_%tl162949163176%_ (let () (declare (not safe)) - (##cdr _%e162910163134%_))) - (_%hd162911163137%_ + (##cdr _%e162947163171%_))) + (_%hd162948163174%_ (let () (declare (not safe)) - (##car _%e162910163134%_)))) + (##car _%e162947163171%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162911163137%_)) - (let ((_%e162913163142%_ + _%hd162948163174%_)) + (let ((_%e162950163179%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162911163137%_)))) - (let ((_%tl162915163147%_ + (gx#stx-e _%hd162948163174%_)))) + (let ((_%tl162952163184%_ (let () (declare (not safe)) - (##cdr _%e162913163142%_))) - (_%hd162914163145%_ + (##cdr _%e162950163179%_))) + (_%hd162951163182%_ (let () (declare (not safe)) - (##car _%e162913163142%_)))) + (##car _%e162950163179%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162914163145%_)) + (gx#identifier? _%hd162951163182%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162914163145%_)) + (gx#stx-eq? '%#ref _%hd162951163182%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162915163147%_)) - (let ((_%e162916163150%_ + (gx#stx-pair? _%tl162952163184%_)) + (let ((_%e162953163187%_ (let () (declare (not safe)) - (gx#stx-e _%tl162915163147%_)))) - (let ((_%tl162918163155%_ + (gx#stx-e _%tl162952163184%_)))) + (let ((_%tl162955163192%_ (let () (declare (not safe)) - (##cdr _%e162916163150%_))) - (_%hd162917163153%_ + (##cdr _%e162953163187%_))) + (_%hd162954163190%_ (let () (declare (not safe)) - (##car _%e162916163150%_)))) + (##car _%e162953163187%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162918163155%_)) + (gx#stx-null? _%tl162955163192%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl162912163139%_)) - (if (let ((__tmp171177 + _%tl162949163176%_)) + (if (let ((__tmp171214 (let () (declare (not safe)) (gx#stx-length - _%tl162912163139%_)))) + _%tl162949163176%_)))) (declare (not safe)) - (##fx>= __tmp171177 '1)) - (let ((_%__splice168849168850%_ + (##fx>= __tmp171214 '1)) + (let ((_%__splice168886168887%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl162912163139%_ + _%tl162949163176%_ '1)))) - (let ((_%tl162921163160%_ + (let ((_%tl162958163197%_ (let () (declare (not safe)) (##vector-ref - _%__splice168849168850%_ + _%__splice168886168887%_ '1))) - (_%target162919163158%_ + (_%target162956163195%_ (let () (declare (not safe)) (##vector-ref - _%__splice168849168850%_ + _%__splice168886168887%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162921163160%_)) - (let ((_%e162934163163%_ + _%tl162958163197%_)) + (let ((_%e162971163200%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162921163160%_)))) - (let ((_%tl162936163168%_ + (gx#stx-e _%tl162958163197%_)))) + (let ((_%tl162973163205%_ (let () (declare (not safe)) - (##cdr _%e162934163163%_))) - (_%hd162935163166%_ + (##cdr _%e162971163200%_))) + (_%hd162972163203%_ (let () (declare (not safe)) - (##car _%e162934163163%_)))) + (##car _%e162971163200%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162935163166%_)) - (let ((_%e162937163171%_ + (gx#stx-pair? _%hd162972163203%_)) + (let ((_%e162974163208%_ (let () (declare (not safe)) - (gx#stx-e _%hd162935163166%_)))) - (let ((_%tl162939163176%_ + (gx#stx-e _%hd162972163203%_)))) + (let ((_%tl162976163213%_ (let () (declare (not safe)) - (##cdr _%e162937163171%_))) - (_%hd162938163174%_ + (##cdr _%e162974163208%_))) + (_%hd162975163211%_ (let () (declare (not safe)) - (##car _%e162937163171%_)))) + (##car _%e162974163208%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162938163174%_)) + (gx#identifier? _%hd162975163211%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162938163174%_)) + (gx#stx-eq? '%#ref _%hd162975163211%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162939163176%_)) - (let ((_%e162940163179%_ + (gx#stx-pair? _%tl162976163213%_)) + (let ((_%e162977163216%_ (let () (declare (not safe)) (gx#stx-e - _%tl162939163176%_)))) - (let ((_%tl162942163184%_ + _%tl162976163213%_)))) + (let ((_%tl162979163221%_ (let () (declare (not safe)) - (##cdr _%e162940163179%_))) - (_%hd162941163182%_ + (##cdr _%e162977163216%_))) + (_%hd162978163219%_ (let () (declare (not safe)) - (##car _%e162940163179%_)))) + (##car _%e162977163216%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162942163184%_)) + _%tl162979163221%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162936163168%_)) - (_%__match169146169147%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_ - _%e162880163054%_ - _%hd162881163057%_ - _%tl162882163059%_ - _%e162883163062%_ - _%hd162884163065%_ - _%tl162885163067%_ - _%e162886163070%_ - _%hd162887163073%_ - _%tl162888163075%_ - _%e162889163078%_ - _%hd162890163081%_ - _%tl162891163083%_ - _%e162892163086%_ - _%hd162893163089%_ - _%tl162894163091%_ - _%e162895163094%_ - _%hd162896163097%_ - _%tl162897163099%_ - _%e162898163102%_ - _%hd162899163105%_ - _%tl162900163107%_ - _%e162901163110%_ - _%hd162902163113%_ - _%tl162903163115%_ - _%e162904163118%_ - _%hd162905163121%_ - _%tl162906163123%_ - _%e162907163126%_ - _%hd162908163129%_ - _%tl162909163131%_ - _%e162910163134%_ - _%hd162911163137%_ - _%tl162912163139%_ - _%e162913163142%_ - _%hd162914163145%_ - _%tl162915163147%_ - _%e162916163150%_ - _%hd162917163153%_ - _%tl162918163155%_ - _%__splice168849168850%_ - _%target162919163158%_ - _%tl162921163160%_ - _%e162934163163%_ - _%hd162935163166%_ - _%tl162936163168%_ - _%e162937163171%_ - _%hd162938163174%_ - _%tl162939163176%_ - _%e162940163179%_ - _%hd162941163182%_ - _%tl162942163184%_) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) + _%tl162973163205%_)) + (_%__match169183169184%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_ + _%e162917163091%_ + _%hd162918163094%_ + _%tl162919163096%_ + _%e162920163099%_ + _%hd162921163102%_ + _%tl162922163104%_ + _%e162923163107%_ + _%hd162924163110%_ + _%tl162925163112%_ + _%e162926163115%_ + _%hd162927163118%_ + _%tl162928163120%_ + _%e162929163123%_ + _%hd162930163126%_ + _%tl162931163128%_ + _%e162932163131%_ + _%hd162933163134%_ + _%tl162934163136%_ + _%e162935163139%_ + _%hd162936163142%_ + _%tl162937163144%_ + _%e162938163147%_ + _%hd162939163150%_ + _%tl162940163152%_ + _%e162941163155%_ + _%hd162942163158%_ + _%tl162943163160%_ + _%e162944163163%_ + _%hd162945163166%_ + _%tl162946163168%_ + _%e162947163171%_ + _%hd162948163174%_ + _%tl162949163176%_ + _%e162950163179%_ + _%hd162951163182%_ + _%tl162952163184%_ + _%e162953163187%_ + _%hd162954163190%_ + _%tl162955163192%_ + _%__splice168886168887%_ + _%target162956163195%_ + _%tl162958163197%_ + _%e162971163200%_ + _%hd162972163203%_ + _%tl162973163205%_ + _%e162974163208%_ + _%hd162975163211%_ + _%tl162976163213%_ + _%e162977163216%_ + _%hd162978163219%_ + _%tl162979163221%_) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169152169153%_ - _%e162877163046%_ - _%hd162878163049%_ - _%tl162879163051%_)))) - (_%__match169006169007%_ - (lambda (_%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_ - _%e162816163453%_ - _%hd162817163456%_ - _%tl162818163458%_ - _%e162819163461%_ - _%hd162820163464%_ - _%tl162821163466%_ - _%e162822163469%_ - _%hd162823163472%_ - _%tl162824163474%_ - _%e162825163477%_ - _%hd162826163480%_ - _%tl162827163482%_ - _%e162828163485%_ - _%hd162829163488%_ - _%tl162830163490%_ - _%e162831163493%_ - _%hd162832163496%_ - _%tl162833163498%_ - _%e162834163501%_ - _%hd162835163504%_ - _%tl162836163506%_ - _%e162837163509%_ - _%hd162838163512%_ - _%tl162839163514%_ - _%e162840163517%_ - _%hd162841163520%_ - _%tl162842163522%_ - _%e162843163525%_ - _%hd162844163528%_ - _%tl162845163530%_ - _%e162846163533%_ - _%hd162847163536%_ - _%tl162848163538%_ - _%e162849163541%_ - _%hd162850163544%_ - _%tl162851163546%_ - _%e162852163549%_ - _%hd162853163552%_ - _%tl162854163554%_ - _%e162855163557%_ - _%hd162856163560%_ - _%tl162857163562%_ - _%e162858163565%_ - _%hd162859163568%_ - _%tl162860163570%_ - _%e162861163573%_ - _%hd162862163576%_ - _%tl162863163578%_ - _%e162864163581%_ - _%hd162865163584%_ - _%tl162866163586%_) - (let ((_%L163589%_ _%hd162865163584%_) - (_%L163590%_ _%hd162856163560%_) - (_%L163591%_ _%hd162847163536%_) - (_%L163592%_ _%hd162838163512%_) - (_%L163593%_ _%hd162829163488%_) - (_%L163594%_ _%hd162814163448%_)) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169189169190%_ + _%e162914163083%_ + _%hd162915163086%_ + _%tl162916163088%_)))) + (_%__match169043169044%_ + (lambda (_%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_ + _%e162853163490%_ + _%hd162854163493%_ + _%tl162855163495%_ + _%e162856163498%_ + _%hd162857163501%_ + _%tl162858163503%_ + _%e162859163506%_ + _%hd162860163509%_ + _%tl162861163511%_ + _%e162862163514%_ + _%hd162863163517%_ + _%tl162864163519%_ + _%e162865163522%_ + _%hd162866163525%_ + _%tl162867163527%_ + _%e162868163530%_ + _%hd162869163533%_ + _%tl162870163535%_ + _%e162871163538%_ + _%hd162872163541%_ + _%tl162873163543%_ + _%e162874163546%_ + _%hd162875163549%_ + _%tl162876163551%_ + _%e162877163554%_ + _%hd162878163557%_ + _%tl162879163559%_ + _%e162880163562%_ + _%hd162881163565%_ + _%tl162882163567%_ + _%e162883163570%_ + _%hd162884163573%_ + _%tl162885163575%_ + _%e162886163578%_ + _%hd162887163581%_ + _%tl162888163583%_ + _%e162889163586%_ + _%hd162890163589%_ + _%tl162891163591%_ + _%e162892163594%_ + _%hd162893163597%_ + _%tl162894163599%_ + _%e162895163602%_ + _%hd162896163605%_ + _%tl162897163607%_ + _%e162898163610%_ + _%hd162899163613%_ + _%tl162900163615%_ + _%e162901163618%_ + _%hd162902163621%_ + _%tl162903163623%_) + (let ((_%L163626%_ _%hd162902163621%_) + (_%L163627%_ _%hd162893163597%_) + (_%L163628%_ _%hd162884163573%_) + (_%L163629%_ _%hd162875163549%_) + (_%L163630%_ _%hd162866163525%_) + (_%L163631%_ _%hd162851163485%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L163594%_)) + (gx#identifier? _%L163631%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163593%_ + _%L163630%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163592%_ + _%L163629%_ 'keyword-dispatch)) (let () (declare (not safe)) (gx#free-identifier=? - _%L163594%_ - _%L163589%_))) - (_%__kont168845168846%_ - _%L163589%_ - _%L163590%_ - _%L163591%_ - _%L163592%_ - _%L163593%_ - _%L163594%_) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))))) + _%L163631%_ + _%L163626%_))) + (_%__kont168882168883%_ + _%L163626%_ + _%L163627%_ + _%L163628%_ + _%L163629%_ + _%L163630%_ + _%L163631%_) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168843168844%_)) - (let ((_%e162810163437%_ + (gx#stx-pair? _%__stx168880168881%_)) + (let ((_%e162847163474%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168843168844%_)))) - (let ((_%tl162812163442%_ + (gx#stx-e _%__stx168880168881%_)))) + (let ((_%tl162849163479%_ (let () (declare (not safe)) - (##cdr _%e162810163437%_))) - (_%hd162811163440%_ + (##cdr _%e162847163474%_))) + (_%hd162848163477%_ (let () (declare (not safe)) - (##car _%e162810163437%_)))) + (##car _%e162847163474%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162812163442%_)) - (let ((_%e162813163445%_ + (gx#stx-pair? _%tl162849163479%_)) + (let ((_%e162850163482%_ (let () (declare (not safe)) - (gx#stx-e _%tl162812163442%_)))) - (let ((_%tl162815163450%_ + (gx#stx-e _%tl162849163479%_)))) + (let ((_%tl162852163487%_ (let () (declare (not safe)) - (##cdr _%e162813163445%_))) - (_%hd162814163448%_ + (##cdr _%e162850163482%_))) + (_%hd162851163485%_ (let () (declare (not safe)) - (##car _%e162813163445%_)))) + (##car _%e162850163482%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162815163450%_)) - (let ((_%e162816163453%_ + (gx#stx-pair? _%tl162852163487%_)) + (let ((_%e162853163490%_ (let () (declare (not safe)) - (gx#stx-e _%tl162815163450%_)))) - (let ((_%tl162818163458%_ + (gx#stx-e _%tl162852163487%_)))) + (let ((_%tl162855163495%_ (let () (declare (not safe)) - (##cdr _%e162816163453%_))) - (_%hd162817163456%_ + (##cdr _%e162853163490%_))) + (_%hd162854163493%_ (let () (declare (not safe)) - (##car _%e162816163453%_)))) + (##car _%e162853163490%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162817163456%_)) - (let ((_%e162819163461%_ + (gx#stx-pair? _%hd162854163493%_)) + (let ((_%e162856163498%_ (let () (declare (not safe)) (gx#stx-e - _%hd162817163456%_)))) - (let ((_%tl162821163466%_ + _%hd162854163493%_)))) + (let ((_%tl162858163503%_ (let () (declare (not safe)) - (##cdr _%e162819163461%_))) - (_%hd162820163464%_ + (##cdr _%e162856163498%_))) + (_%hd162857163501%_ (let () (declare (not safe)) - (##car _%e162819163461%_)))) + (##car _%e162856163498%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162820163464%_)) + _%hd162857163501%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162820163464%_)) + _%hd162857163501%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162821163466%_)) - (let ((_%e162822163469%_ + _%tl162858163503%_)) + (let ((_%e162859163506%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162821163466%_)))) - (let ((_%tl162824163474%_ + (gx#stx-e _%tl162858163503%_)))) + (let ((_%tl162861163511%_ (let () (declare (not safe)) - (##cdr _%e162822163469%_))) - (_%hd162823163472%_ + (##cdr _%e162859163506%_))) + (_%hd162860163509%_ (let () (declare (not safe)) - (##car _%e162822163469%_)))) + (##car _%e162859163506%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162823163472%_)) - (let ((_%e162825163477%_ + (gx#stx-pair? _%hd162860163509%_)) + (let ((_%e162862163514%_ (let () (declare (not safe)) - (gx#stx-e _%hd162823163472%_)))) - (let ((_%tl162827163482%_ + (gx#stx-e _%hd162860163509%_)))) + (let ((_%tl162864163519%_ (let () (declare (not safe)) - (##cdr _%e162825163477%_))) - (_%hd162826163480%_ + (##cdr _%e162862163514%_))) + (_%hd162863163517%_ (let () (declare (not safe)) - (##car _%e162825163477%_)))) + (##car _%e162862163514%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162826163480%_)) + (gx#identifier? _%hd162863163517%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162826163480%_)) + (gx#stx-eq? '%#ref _%hd162863163517%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162827163482%_)) - (let ((_%e162828163485%_ + (gx#stx-pair? _%tl162864163519%_)) + (let ((_%e162865163522%_ (let () (declare (not safe)) (gx#stx-e - _%tl162827163482%_)))) - (let ((_%tl162830163490%_ + _%tl162864163519%_)))) + (let ((_%tl162867163527%_ (let () (declare (not safe)) - (##cdr _%e162828163485%_))) - (_%hd162829163488%_ + (##cdr _%e162865163522%_))) + (_%hd162866163525%_ (let () (declare (not safe)) - (##car _%e162828163485%_)))) + (##car _%e162865163522%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162830163490%_)) + _%tl162867163527%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162824163474%_)) - (let ((_%e162831163493%_ + _%tl162861163511%_)) + (let ((_%e162868163530%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162824163474%_)))) - (let ((_%tl162833163498%_ - (let () (declare (not safe)) (##cdr _%e162831163493%_))) - (_%hd162832163496%_ + (gx#stx-e _%tl162861163511%_)))) + (let ((_%tl162870163535%_ + (let () (declare (not safe)) (##cdr _%e162868163530%_))) + (_%hd162869163533%_ (let () (declare (not safe)) - (##car _%e162831163493%_)))) + (##car _%e162868163530%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162832163496%_)) - (let ((_%e162834163501%_ + (gx#stx-pair? _%hd162869163533%_)) + (let ((_%e162871163538%_ (let () (declare (not safe)) - (gx#stx-e _%hd162832163496%_)))) - (let ((_%tl162836163506%_ + (gx#stx-e _%hd162869163533%_)))) + (let ((_%tl162873163543%_ (let () (declare (not safe)) - (##cdr _%e162834163501%_))) - (_%hd162835163504%_ + (##cdr _%e162871163538%_))) + (_%hd162872163541%_ (let () (declare (not safe)) - (##car _%e162834163501%_)))) + (##car _%e162871163538%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162835163504%_)) + (gx#identifier? _%hd162872163541%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162835163504%_)) + (gx#stx-eq? '%#ref _%hd162872163541%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162836163506%_)) - (let ((_%e162837163509%_ + (gx#stx-pair? _%tl162873163543%_)) + (let ((_%e162874163546%_ (let () (declare (not safe)) - (gx#stx-e _%tl162836163506%_)))) - (let ((_%tl162839163514%_ + (gx#stx-e _%tl162873163543%_)))) + (let ((_%tl162876163551%_ (let () (declare (not safe)) - (##cdr _%e162837163509%_))) - (_%hd162838163512%_ + (##cdr _%e162874163546%_))) + (_%hd162875163549%_ (let () (declare (not safe)) - (##car _%e162837163509%_)))) + (##car _%e162874163546%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162839163514%_)) + _%tl162876163551%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162833163498%_)) - (let ((_%e162840163517%_ + _%tl162870163535%_)) + (let ((_%e162877163554%_ (let () (declare (not safe)) (gx#stx-e - _%tl162833163498%_)))) - (let ((_%tl162842163522%_ + _%tl162870163535%_)))) + (let ((_%tl162879163559%_ (let () (declare (not safe)) - (##cdr _%e162840163517%_))) - (_%hd162841163520%_ + (##cdr _%e162877163554%_))) + (_%hd162878163557%_ (let () (declare (not safe)) - (##car _%e162840163517%_)))) + (##car _%e162877163554%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162841163520%_)) - (let ((_%e162843163525%_ + _%hd162878163557%_)) + (let ((_%e162880163562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162841163520%_)))) - (let ((_%tl162845163530%_ + (gx#stx-e _%hd162878163557%_)))) + (let ((_%tl162882163567%_ (let () (declare (not safe)) - (##cdr _%e162843163525%_))) - (_%hd162844163528%_ + (##cdr _%e162880163562%_))) + (_%hd162881163565%_ (let () (declare (not safe)) - (##car _%e162843163525%_)))) + (##car _%e162880163562%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162844163528%_)) + (gx#identifier? _%hd162881163565%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd162844163528%_)) + (gx#stx-eq? '%#quote _%hd162881163565%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162845163530%_)) - (let ((_%e162846163533%_ + (gx#stx-pair? _%tl162882163567%_)) + (let ((_%e162883163570%_ (let () (declare (not safe)) - (gx#stx-e _%tl162845163530%_)))) - (let ((_%tl162848163538%_ + (gx#stx-e _%tl162882163567%_)))) + (let ((_%tl162885163575%_ (let () (declare (not safe)) - (##cdr _%e162846163533%_))) - (_%hd162847163536%_ + (##cdr _%e162883163570%_))) + (_%hd162884163573%_ (let () (declare (not safe)) - (##car _%e162846163533%_)))) + (##car _%e162883163570%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162848163538%_)) + (gx#stx-null? _%tl162885163575%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162842163522%_)) - (let ((_%e162849163541%_ + _%tl162879163559%_)) + (let ((_%e162886163578%_ (let () (declare (not safe)) (gx#stx-e - _%tl162842163522%_)))) - (let ((_%tl162851163546%_ + _%tl162879163559%_)))) + (let ((_%tl162888163583%_ (let () (declare (not safe)) - (##cdr _%e162849163541%_))) - (_%hd162850163544%_ + (##cdr _%e162886163578%_))) + (_%hd162887163581%_ (let () (declare (not safe)) - (##car _%e162849163541%_)))) + (##car _%e162886163578%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162850163544%_)) - (let ((_%e162852163549%_ + _%hd162887163581%_)) + (let ((_%e162889163586%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd162850163544%_)))) - (let ((_%tl162854163554%_ - (let () (declare (not safe)) (##cdr _%e162852163549%_))) - (_%hd162853163552%_ + (gx#stx-e _%hd162887163581%_)))) + (let ((_%tl162891163591%_ + (let () (declare (not safe)) (##cdr _%e162889163586%_))) + (_%hd162890163589%_ (let () (declare (not safe)) - (##car _%e162852163549%_)))) + (##car _%e162889163586%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162853163552%_)) + (gx#identifier? _%hd162890163589%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162853163552%_)) + (gx#stx-eq? '%#ref _%hd162890163589%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162854163554%_)) - (let ((_%e162855163557%_ + (gx#stx-pair? _%tl162891163591%_)) + (let ((_%e162892163594%_ (let () (declare (not safe)) - (gx#stx-e _%tl162854163554%_)))) - (let ((_%tl162857163562%_ + (gx#stx-e _%tl162891163591%_)))) + (let ((_%tl162894163599%_ (let () (declare (not safe)) - (##cdr _%e162855163557%_))) - (_%hd162856163560%_ + (##cdr _%e162892163594%_))) + (_%hd162893163597%_ (let () (declare (not safe)) - (##car _%e162855163557%_)))) + (##car _%e162892163594%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162857163562%_)) + (gx#stx-null? _%tl162894163599%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162851163546%_)) - (let ((_%e162858163565%_ + (gx#stx-pair? _%tl162888163583%_)) + (let ((_%e162895163602%_ (let () (declare (not safe)) (gx#stx-e - _%tl162851163546%_)))) - (let ((_%tl162860163570%_ + _%tl162888163583%_)))) + (let ((_%tl162897163607%_ (let () (declare (not safe)) - (##cdr _%e162858163565%_))) - (_%hd162859163568%_ + (##cdr _%e162895163602%_))) + (_%hd162896163605%_ (let () (declare (not safe)) - (##car _%e162858163565%_)))) + (##car _%e162895163602%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162859163568%_)) - (let ((_%e162861163573%_ + _%hd162896163605%_)) + (let ((_%e162898163610%_ (let () (declare (not safe)) (gx#stx-e - _%hd162859163568%_)))) - (let ((_%tl162863163578%_ + _%hd162896163605%_)))) + (let ((_%tl162900163615%_ (let () (declare (not safe)) - (##cdr _%e162861163573%_))) - (_%hd162862163576%_ + (##cdr _%e162898163610%_))) + (_%hd162899163613%_ (let () (declare (not safe)) - (##car _%e162861163573%_)))) + (##car _%e162898163610%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162862163576%_)) + _%hd162899163613%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd162862163576%_)) + (gx#stx-eq? '%#ref _%hd162899163613%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162863163578%_)) - (let ((_%e162864163581%_ + (gx#stx-pair? _%tl162900163615%_)) + (let ((_%e162901163618%_ (let () (declare (not safe)) - (gx#stx-e _%tl162863163578%_)))) - (let ((_%tl162866163586%_ + (gx#stx-e _%tl162900163615%_)))) + (let ((_%tl162903163623%_ (let () (declare (not safe)) - (##cdr _%e162864163581%_))) - (_%hd162865163584%_ + (##cdr _%e162901163618%_))) + (_%hd162902163621%_ (let () (declare (not safe)) - (##car _%e162864163581%_)))) + (##car _%e162901163618%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162866163586%_)) + (gx#stx-null? _%tl162903163623%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162860163570%_)) + (gx#stx-null? _%tl162897163607%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162818163458%_)) - (_%__match169006169007%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_ - _%e162816163453%_ - _%hd162817163456%_ - _%tl162818163458%_ - _%e162819163461%_ - _%hd162820163464%_ - _%tl162821163466%_ - _%e162822163469%_ - _%hd162823163472%_ - _%tl162824163474%_ - _%e162825163477%_ - _%hd162826163480%_ - _%tl162827163482%_ - _%e162828163485%_ - _%hd162829163488%_ - _%tl162830163490%_ - _%e162831163493%_ - _%hd162832163496%_ - _%tl162833163498%_ - _%e162834163501%_ - _%hd162835163504%_ - _%tl162836163506%_ - _%e162837163509%_ - _%hd162838163512%_ - _%tl162839163514%_ - _%e162840163517%_ - _%hd162841163520%_ - _%tl162842163522%_ - _%e162843163525%_ - _%hd162844163528%_ - _%tl162845163530%_ - _%e162846163533%_ - _%hd162847163536%_ - _%tl162848163538%_ - _%e162849163541%_ - _%hd162850163544%_ - _%tl162851163546%_ - _%e162852163549%_ - _%hd162853163552%_ - _%tl162854163554%_ - _%e162855163557%_ - _%hd162856163560%_ - _%tl162857163562%_ - _%e162858163565%_ - _%hd162859163568%_ - _%tl162860163570%_ - _%e162861163573%_ - _%hd162862163576%_ - _%tl162863163578%_ - _%e162864163581%_ - _%hd162865163584%_ - _%tl162866163586%_) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) + (gx#stx-null? _%tl162855163495%_)) + (_%__match169043169044%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_ + _%e162853163490%_ + _%hd162854163493%_ + _%tl162855163495%_ + _%e162856163498%_ + _%hd162857163501%_ + _%tl162858163503%_ + _%e162859163506%_ + _%hd162860163509%_ + _%tl162861163511%_ + _%e162862163514%_ + _%hd162863163517%_ + _%tl162864163519%_ + _%e162865163522%_ + _%hd162866163525%_ + _%tl162867163527%_ + _%e162868163530%_ + _%hd162869163533%_ + _%tl162870163535%_ + _%e162871163538%_ + _%hd162872163541%_ + _%tl162873163543%_ + _%e162874163546%_ + _%hd162875163549%_ + _%tl162876163551%_ + _%e162877163554%_ + _%hd162878163557%_ + _%tl162879163559%_ + _%e162880163562%_ + _%hd162881163565%_ + _%tl162882163567%_ + _%e162883163570%_ + _%hd162884163573%_ + _%tl162885163575%_ + _%e162886163578%_ + _%hd162887163581%_ + _%tl162888163583%_ + _%e162889163586%_ + _%hd162890163589%_ + _%tl162891163591%_ + _%e162892163594%_ + _%hd162893163597%_ + _%tl162894163599%_ + _%e162895163602%_ + _%hd162896163605%_ + _%tl162897163607%_ + _%e162898163610%_ + _%hd162899163613%_ + _%tl162900163615%_ + _%e162901163618%_ + _%hd162902163621%_ + _%tl162903163623%_) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169018169019%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_ - _%e162813163445%_ - _%hd162814163448%_ - _%tl162815163450%_)))) - (_%__match169152169153%_ - _%e162810163437%_ - _%hd162811163440%_ - _%tl162812163442%_)))) - (let () (declare (not safe)) (_%g162802162994%_)))))))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169055169056%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_ + _%e162850163482%_ + _%hd162851163485%_ + _%tl162852163487%_)))) + (_%__match169189169190%_ + _%e162847163474%_ + _%hd162848163477%_ + _%tl162849163479%_)))) + (let () (declare (not safe)) (_%g162839163031%_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_%self162666%_ _%stx162667%_) - (letrec ((_%clause-e162669%_ - (lambda (_%form162792%_) - (let* ((_%signature162794%_ - (gxc#lambda-form-infer-signature _%form162792%_)) - (__obj170992 + (lambda (_%self162703%_ _%stx162704%_) + (letrec ((_%clause-e162706%_ + (lambda (_%form162829%_) + (let* ((_%signature162831%_ + (gxc#lambda-form-infer-signature _%form162829%_)) + (__obj171029 (let () (declare (not safe)) (##structure @@ -11163,126 +11163,126 @@ '#f '#f '#f)))) - (let ((__tmp171179 - (gxc#lambda-form-arity _%form162792%_)) - (__tmp171178 - (if (gxc#dispatch-lambda-form? _%form162792%_) + (let ((__tmp171216 + (gxc#lambda-form-arity _%form162829%_)) + (__tmp171215 + (if (gxc#dispatch-lambda-form? _%form162829%_) (gxc#dispatch-lambda-form-delegate - _%form162792%_) + _%form162829%_) '#f))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature162794%_ - __obj170992 - __tmp171179 - __tmp171178)) - __obj170992))) - (_%return-type-e162670%_ - (lambda (_%clauses162720%_) - (let _%loop162722%_ ((_%rest162724%_ _%clauses162720%_) - (_%result162725%_ '#f)) - (let* ((_%rest162726162734%_ _%rest162724%_) - (_%else162728162742%_ - (lambda () _%result162725%_)) - (_%K162730162780%_ - (lambda (_%rest162745%_ _%clause162746%_) - (let* ((_%clause162748%_ _%clause162746%_) - (_%return162772%_ - (let* ((_%signature162761%_ + _%signature162831%_ + __obj171029 + __tmp171216 + __tmp171215)) + __obj171029))) + (_%return-type-e162707%_ + (lambda (_%clauses162757%_) + (let _%loop162759%_ ((_%rest162761%_ _%clauses162757%_) + (_%result162762%_ '#f)) + (let* ((_%rest162763162771%_ _%rest162761%_) + (_%else162765162779%_ + (lambda () _%result162762%_)) + (_%K162767162817%_ + (lambda (_%rest162782%_ _%clause162783%_) + (let* ((_%clause162785%_ _%clause162783%_) + (_%return162809%_ + (let* ((_%signature162798%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%clause162748%_ + _%clause162785%_ '2 '#f '#f))) - (_%signature162763%_ - _%signature162761%_)) - (if _%signature162763%_ + (_%signature162800%_ + _%signature162798%_)) + (if _%signature162800%_ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%signature162763%_ + _%signature162800%_ '1 '#f '#f)) - (let ((__tmp171180 + (let ((__tmp171217 (let () (declare (not safe)) (##unchecked-structure-ref - _%signature162763%_ + _%signature162800%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx162667%_ - __tmp171180)) + _%stx162704%_ + __tmp171217)) '#f) '#f))) - (_%result162777%_ - (if (and _%result162725%_ - _%return162772%_) + (_%result162814%_ + (if (and _%result162762%_ + _%return162809%_) (gxc#greatest-common-type - _%stx162667%_ - _%result162725%_ - _%return162772%_) - (let ((_%$e162774%_ - _%result162725%_)) - (if _%$e162774%_ - _%$e162774%_ - _%return162772%_))))) - (_%loop162722%_ - _%rest162745%_ - _%result162777%_))))) - (if (pair? _%rest162726162734%_) - (let ((_%hd162731162783%_ + _%stx162704%_ + _%result162762%_ + _%return162809%_) + (let ((_%$e162811%_ + _%result162762%_)) + (if _%$e162811%_ + _%$e162811%_ + _%return162809%_))))) + (_%loop162759%_ + _%rest162782%_ + _%result162814%_))))) + (if (pair? _%rest162763162771%_) + (let ((_%hd162768162820%_ (let () (declare (not safe)) - (##car _%rest162726162734%_))) - (_%tl162732162785%_ + (##car _%rest162763162771%_))) + (_%tl162769162822%_ (let () (declare (not safe)) - (##cdr _%rest162726162734%_)))) - (let* ((_%clause162788%_ _%hd162731162783%_) - (_%rest162790%_ _%tl162732162785%_)) - (_%K162730162780%_ - _%rest162790%_ - _%clause162788%_))) - (_%else162728162742%_))))))) - (let* ((_%g162672162682%_ - (lambda (_%g162673162679%_) + (##cdr _%rest162763162771%_)))) + (let* ((_%clause162825%_ _%hd162768162820%_) + (_%rest162827%_ _%tl162769162822%_)) + (_%K162767162817%_ + _%rest162827%_ + _%clause162825%_))) + (_%else162765162779%_))))))) + (let* ((_%g162709162719%_ + (lambda (_%g162710162716%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162673162679%_)))) - (_%g162671162717%_ - (lambda (_%g162673162685%_) + _%g162710162716%_)))) + (_%g162708162754%_ + (lambda (_%g162710162722%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162673162685%_)) - (let ((_%e162675162687%_ + (gx#stx-pair? _%g162710162722%_)) + (let ((_%e162712162724%_ (let () (declare (not safe)) - (gx#stx-e _%g162673162685%_)))) - (let ((_%hd162676162690%_ + (gx#stx-e _%g162710162722%_)))) + (let ((_%hd162713162727%_ (let () (declare (not safe)) - (##car _%e162675162687%_))) - (_%tl162677162692%_ + (##car _%e162712162724%_))) + (_%tl162714162729%_ (let () (declare (not safe)) - (##cdr _%e162675162687%_)))) - ((lambda (_%L162695%_) - (let* ((_%clauses162706%_ - (map _%clause-e162669%_ _%L162695%_)) - (_%return162708%_ - (_%return-type-e162670%_ - _%clauses162706%_)) - (__obj170994 + (##cdr _%e162712162724%_)))) + ((lambda (_%L162732%_) + (let* ((_%clauses162743%_ + (map _%clause-e162706%_ _%L162732%_)) + (_%return162745%_ + (_%return-type-e162707%_ + _%clauses162743%_)) + (__obj171031 (let () (declare (not safe)) (##structure @@ -11290,17 +11290,17 @@ '#f '#f '#f)))) - (let ((__tmp171181 - (if _%return162708%_ - (let ((_%return-type162710162712%_ + (let ((__tmp171218 + (if _%return162745%_ + (let ((_%return-type162747162749%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return162708%_)))) - (if _%return-type162710162712%_ - (let* ((_%return-type162715%_ - _%return-type162710162712%_) - (__obj170993 + _%return162745%_)))) + (if _%return-type162747162749%_ + (let* ((_%return-type162752%_ + _%return-type162747162749%_) + (__obj171030 (let () (declare (not safe)) @@ -11314,216 +11314,216 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170993 - _%return-type162715%_ + __obj171030 + _%return-type162752%_ '1 '#f '#f)) - __obj170993) + __obj171030) '#f)) '#f))) (declare (not safe)) (gxc#!case-lambda:::init!__% '#f - __tmp171181 - __obj170994 - _%clauses162706%_)) - __obj170994)) - _%tl162677162692%_))) - (_%g162672162682%_ _%g162673162685%_))))) - (_%g162671162717%_ _%stx162667%_))))) + __tmp171218 + __obj171031 + _%clauses162743%_)) + __obj171031)) + _%tl162714162729%_))) + (_%g162709162719%_ _%g162710162722%_))))) + (_%g162708162754%_ _%stx162704%_))))) (define gxc#basic-expression-type-special (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_%self162526%_ _%stx162527%_) - (letrec ((_%type-e162529%_ - (lambda (_%rator162659%_ _%rator-type162660%_ _%args162661%_) - (if (not _%rator-type162660%_) + (lambda (_%self162563%_ _%stx162564%_) + (letrec ((_%type-e162566%_ + (lambda (_%rator162696%_ _%rator-type162697%_ _%args162698%_) + (if (not _%rator-type162697%_) '#f (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type162660%_ + _%rator-type162697%_ 'gxc#!procedure::t)) - (let ((__method170995 + (let ((__method171032 (let () (declare (not safe)) (__method-ref - _%rator-type162660%_ + _%rator-type162697%_ 'return-type)))) - (if __method170995 + (if __method171032 (let () (declare (not safe)) - (__method170995 - _%rator-type162660%_ - _%self162526%_ - _%stx162527%_ - _%args162661%_)) + (__method171032 + _%rator-type162697%_ + _%self162563%_ + _%stx162564%_ + _%args162698%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type162660%_ + _%rator-type162697%_ 'return-type)) '#!void))) '#f))))) - (let* ((_%__stx169161169162%_ _%stx162527%_) - (_%g162532162560%_ + (let* ((_%__stx169198169199%_ _%stx162564%_) + (_%g162569162597%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169161169162%_))))) - (let ((_%__kont169163169164%_ - (lambda (_%L162633%_ _%L162634%_) - (let ((_%$e162650%_ - (let ((__tmp171182 + _%__stx169198169199%_))))) + (let ((_%__kont169200169201%_ + (lambda (_%L162670%_ _%L162671%_) + (let ((_%$e162687%_ + (let ((__tmp171219 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162634%_)))) + (gxc#identifier-symbol _%L162671%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-special - __tmp171182)))) - (if _%$e162650%_ - ((lambda (_%type-e162653%_) - (_%type-e162653%_ _%self162526%_ _%stx162527%_)) - _%$e162650%_) - (_%type-e162529%_ - _%L162634%_ - (let ((__tmp171183 + __tmp171219)))) + (if _%$e162687%_ + ((lambda (_%type-e162690%_) + (_%type-e162690%_ _%self162563%_ _%stx162564%_)) + _%$e162687%_) + (_%type-e162566%_ + _%L162671%_ + (let ((__tmp171220 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162634%_)))) + (gxc#identifier-symbol _%L162671%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp171183)) - _%L162633%_))))) - (_%__kont169165169166%_ - (lambda (_%L162581%_ _%L162582%_) - (_%type-e162529%_ - _%L162582%_ - (gxc#apply-basic-expression-type _%L162582%_) - _%L162581%_)))) + (gxc#optimizer-resolve-type __tmp171220)) + _%L162670%_))))) + (_%__kont169202169203%_ + (lambda (_%L162618%_ _%L162619%_) + (_%type-e162566%_ + _%L162619%_ + (gxc#apply-basic-expression-type _%L162619%_) + _%L162618%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169161169162%_)) - (let ((_%e162536162601%_ + (gx#stx-pair? _%__stx169198169199%_)) + (let ((_%e162573162638%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169161169162%_)))) - (let ((_%tl162538162606%_ + (gx#stx-e _%__stx169198169199%_)))) + (let ((_%tl162575162643%_ (let () (declare (not safe)) - (##cdr _%e162536162601%_))) - (_%hd162537162604%_ + (##cdr _%e162573162638%_))) + (_%hd162574162641%_ (let () (declare (not safe)) - (##car _%e162536162601%_)))) + (##car _%e162573162638%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162538162606%_)) - (let ((_%e162539162609%_ + (gx#stx-pair? _%tl162575162643%_)) + (let ((_%e162576162646%_ (let () (declare (not safe)) - (gx#stx-e _%tl162538162606%_)))) - (let ((_%tl162541162614%_ + (gx#stx-e _%tl162575162643%_)))) + (let ((_%tl162578162651%_ (let () (declare (not safe)) - (##cdr _%e162539162609%_))) - (_%hd162540162612%_ + (##cdr _%e162576162646%_))) + (_%hd162577162649%_ (let () (declare (not safe)) - (##car _%e162539162609%_)))) + (##car _%e162576162646%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162540162612%_)) - (let ((_%e162542162617%_ + (gx#stx-pair? _%hd162577162649%_)) + (let ((_%e162579162654%_ (let () (declare (not safe)) - (gx#stx-e _%hd162540162612%_)))) - (let ((_%tl162544162622%_ + (gx#stx-e _%hd162577162649%_)))) + (let ((_%tl162581162659%_ (let () (declare (not safe)) - (##cdr _%e162542162617%_))) - (_%hd162543162620%_ + (##cdr _%e162579162654%_))) + (_%hd162580162657%_ (let () (declare (not safe)) - (##car _%e162542162617%_)))) + (##car _%e162579162654%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162543162620%_)) + _%hd162580162657%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd162543162620%_)) + _%hd162580162657%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162544162622%_)) - (let ((_%e162545162625%_ + _%tl162581162659%_)) + (let ((_%e162582162662%_ (let () (declare (not safe)) (gx#stx-e - _%tl162544162622%_)))) - (let ((_%tl162547162630%_ + _%tl162581162659%_)))) + (let ((_%tl162584162667%_ (let () (declare (not safe)) - (##cdr _%e162545162625%_))) - (_%hd162546162628%_ + (##cdr _%e162582162662%_))) + (_%hd162583162665%_ (let () (declare (not safe)) - (##car _%e162545162625%_)))) + (##car _%e162582162662%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162547162630%_)) - (_%__kont169163169164%_ - _%tl162541162614%_ - _%hd162546162628%_) - (_%__kont169165169166%_ - _%tl162541162614%_ - _%hd162540162612%_)))) - (_%__kont169165169166%_ - _%tl162541162614%_ - _%hd162540162612%_)) - (_%__kont169165169166%_ - _%tl162541162614%_ - _%hd162540162612%_)) - (_%__kont169165169166%_ - _%tl162541162614%_ - _%hd162540162612%_)))) - (_%__kont169165169166%_ - _%tl162541162614%_ - _%hd162540162612%_)))) - (let () (declare (not safe)) (_%g162532162560%_))))) - (let () (declare (not safe)) (_%g162532162560%_)))))))) + _%tl162584162667%_)) + (_%__kont169200169201%_ + _%tl162578162651%_ + _%hd162583162665%_) + (_%__kont169202169203%_ + _%tl162578162651%_ + _%hd162577162649%_)))) + (_%__kont169202169203%_ + _%tl162578162651%_ + _%hd162577162649%_)) + (_%__kont169202169203%_ + _%tl162578162651%_ + _%hd162577162649%_)) + (_%__kont169202169203%_ + _%tl162578162651%_ + _%hd162577162649%_)))) + (_%__kont169202169203%_ + _%tl162578162651%_ + _%hd162577162649%_)))) + (let () (declare (not safe)) (_%g162569162597%_))))) + (let () (declare (not safe)) (_%g162569162597%_)))))))) (define gxc#!procedure::return-type - (lambda (_%self154269162508%_ _%ctx162510%_ _%stx162511%_ _%args162512%_) - (let* ((_%self162514%_ _%self154269162508%_) - (_%self162516%_ _%self162514%_)) + (lambda (_%self154306162545%_ _%ctx162547%_ _%stx162548%_ _%args162549%_) + (let* ((_%self162551%_ _%self154306162545%_) + (_%self162553%_ _%self162551%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self162516%_ '2 '#f '#f)) - (let ((__tmp171184 - (let ((__tmp171185 + (##unchecked-structure-ref _%self162553%_ '2 '#f '#f)) + (let ((__tmp171221 + (let ((__tmp171222 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162516%_ + _%self162553%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp171185 '1 '#f '#f)))) + (##unchecked-structure-ref __tmp171222 '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx162511%_ __tmp171184)) + (gxc#optimizer-resolve-class _%stx162548%_ __tmp171221)) '#f)))) (let () (declare (not safe)) @@ -11541,59 +11541,59 @@ gxc#!procedure::apply-return-type '#f)) (define gxc#!lambda::return-type - (lambda (_%self154270162240%_ _%ctx162242%_ _%stx162243%_ _%args162244%_) - (let* ((_%self162246%_ _%self154270162240%_) - (_%self162248%_ _%self162246%_)) + (lambda (_%self154307162277%_ _%ctx162279%_ _%stx162280%_ _%args162281%_) + (let* ((_%self162283%_ _%self154307162277%_) + (_%self162285%_ _%self162283%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self162248%_ '4 '#f '#f)) - (let ((_%dispatch-type162257162259%_ - (let ((__tmp171186 + (##unchecked-structure-ref _%self162285%_ '4 '#f '#f)) + (let ((_%dispatch-type162294162296%_ + (let ((__tmp171223 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162248%_ + _%self162285%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171186)))) - (if _%dispatch-type162257162259%_ - (let ((_%dispatch-type162262%_ - _%dispatch-type162257162259%_)) + (gxc#optimizer-lookup-type __tmp171223)))) + (if _%dispatch-type162294162296%_ + (let ((_%dispatch-type162299%_ + _%dispatch-type162294162296%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%dispatch-type162262%_ + _%dispatch-type162299%_ 'gxc#!procedure::t)) - (let ((__method170996 + (let ((__method171033 (let () (declare (not safe)) (__method-ref - _%dispatch-type162262%_ + _%dispatch-type162299%_ 'return-type)))) - (if __method170996 + (if __method171033 (let () (declare (not safe)) - (__method170996 - _%dispatch-type162262%_ - _%ctx162242%_ - _%stx162243%_ - _%args162244%_)) + (__method171033 + _%dispatch-type162299%_ + _%ctx162279%_ + _%stx162280%_ + _%args162281%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%dispatch-type162262%_ + _%dispatch-type162299%_ 'return-type)) '#!void))) '#f)) '#f)) (gxc#!procedure::return-type - _%self162248%_ - _%ctx162242%_ - _%stx162243%_ - _%args162244%_))))) + _%self162285%_ + _%ctx162279%_ + _%stx162280%_ + _%args162281%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11610,52 +11610,52 @@ gxc#!lambda::apply-return-type '#f)) (define gxc#!case-lambda::return-type - (lambda (_%self154271161968%_ _%ctx161970%_ _%stx161971%_ _%args161972%_) - (let* ((_%self161974%_ _%self154271161968%_) - (_%self161976%_ _%self161974%_) - (_%$e161990%_ - (let ((__tmp171188 - (lambda (_%g161985161987%_) + (lambda (_%self154308162005%_ _%ctx162007%_ _%stx162008%_ _%args162009%_) + (let* ((_%self162011%_ _%self154308162005%_) + (_%self162013%_ _%self162011%_) + (_%$e162027%_ + (let ((__tmp171225 + (lambda (_%g162022162024%_) (gxc#!lambda-arity-match? - _%g161985161987%_ - _%args161972%_))) - (__tmp171187 + _%g162022162024%_ + _%args162009%_))) + (__tmp171224 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161976%_ + _%self162013%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp171188 __tmp171187)))) - (if _%$e161990%_ - ((lambda (_%clause161993%_) - (let ((__method170997 + (__find __tmp171225 __tmp171224)))) + (if _%$e162027%_ + ((lambda (_%clause162030%_) + (let ((__method171034 (let () (declare (not safe)) - (__method-ref _%clause161993%_ 'return-type)))) - (if __method170997 + (__method-ref _%clause162030%_ 'return-type)))) + (if __method171034 (let () (declare (not safe)) - (__method170997 - _%clause161993%_ - _%ctx161970%_ - _%stx161971%_ - _%args161972%_)) + (__method171034 + _%clause162030%_ + _%ctx162007%_ + _%stx162008%_ + _%args162009%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause161993%_ + _%clause162030%_ 'return-type)) '#!void)))) - _%$e161990%_) + _%$e162027%_) (gxc#!procedure::return-type - _%self161976%_ - _%ctx161970%_ - _%stx161971%_ - _%args161972%_))))) + _%self162013%_ + _%ctx162007%_ + _%stx162008%_ + _%args162009%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11664,73 +11664,73 @@ gxc#!case-lambda::return-type '#f)) (define gxc#!case-lambda::apply-return-type - (lambda (_%self154272161814%_ _%ctx161816%_ _%stx161817%_ _%args161818%_) - (let* ((_%self161820%_ _%self154272161814%_) - (_%self161822%_ _%self161820%_) - (_%candidates161836%_ - (filter (lambda (_%g161831161833%_) + (lambda (_%self154309161851%_ _%ctx161853%_ _%stx161854%_ _%args161855%_) + (let* ((_%self161857%_ _%self154309161851%_) + (_%self161859%_ _%self161857%_) + (_%candidates161873%_ + (filter (lambda (_%g161868161870%_) (gxc#!lambda-arity-match-apply? - _%g161831161833%_ - _%args161818%_)) + _%g161868161870%_ + _%args161855%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%self161822%_ + _%self161859%_ '3 '#f '#f)))) - (_%candidate-types161840%_ - (let ((__tmp171189 - (lambda (_%candidate161838%_) - (let ((__method170998 + (_%candidate-types161877%_ + (let ((__tmp171226 + (lambda (_%candidate161875%_) + (let ((__method171035 (let () (declare (not safe)) (__method-ref - _%candidate161838%_ + _%candidate161875%_ 'apply-return-type)))) - (if __method170998 + (if __method171035 (let () (declare (not safe)) - (__method170998 - _%candidate161838%_ - _%ctx161816%_ - _%stx161817%_ - _%args161818%_)) + (__method171035 + _%candidate161875%_ + _%ctx161853%_ + _%stx161854%_ + _%args161855%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%candidate161838%_ + _%candidate161875%_ 'apply-return-type)) '#!void)))))) (declare (not safe)) - (##map __tmp171189 _%candidates161836%_)))) - (if (pair? _%candidate-types161840%_) - (let ((__tmp171192 - (lambda (_%candidate-type161843%_ _%ret161844%_) - (if _%ret161844%_ - (if _%candidate-type161843%_ + (##map __tmp171226 _%candidates161873%_)))) + (if (pair? _%candidate-types161877%_) + (let ((__tmp171229 + (lambda (_%candidate-type161880%_ _%ret161881%_) + (if _%ret161881%_ + (if _%candidate-type161880%_ (gxc#greatest-common-type - _%stx161817%_ - _%candidate-type161843%_ - _%ret161844%_) + _%stx161854%_ + _%candidate-type161880%_ + _%ret161881%_) '#f) '#f))) - (__tmp171191 + (__tmp171228 (let () (declare (not safe)) - (##car _%candidate-types161840%_))) - (__tmp171190 + (##car _%candidate-types161877%_))) + (__tmp171227 (let () (declare (not safe)) - (##cdr _%candidate-types161840%_)))) + (##cdr _%candidate-types161877%_)))) (declare (not safe)) - (__foldl1 __tmp171192 __tmp171191 __tmp171190)) + (__foldl1 __tmp171229 __tmp171228 __tmp171227)) (gxc#!procedure::return-type - _%self161822%_ - _%ctx161816%_ - _%stx161817%_ - _%args161818%_))))) + _%self161859%_ + _%ctx161853%_ + _%stx161854%_ + _%args161855%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11739,135 +11739,135 @@ gxc#!case-lambda::apply-return-type '#f)) (define gxc#!kw-lambda::return-type - (lambda (_%self154273161618%_ _%ctx161620%_ _%stx161621%_ _%args161622%_) - (let* ((_%self161624%_ _%self154273161618%_) - (_%self161626%_ _%self161624%_) - (_%g161635161646%_ - (let ((__tmp171193 + (lambda (_%self154310161655%_ _%ctx161657%_ _%stx161658%_ _%args161659%_) + (let* ((_%self161661%_ _%self154310161655%_) + (_%self161663%_ _%self161661%_) + (_%g161672161683%_ + (let ((__tmp171230 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161626%_ + _%self161663%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171193))) - (_%E161638161650%_ + (gxc#optimizer-lookup-type __tmp171230))) + (_%E161675161687%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g161635161646%_ + _%g161672161683%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K161640161673%_ - (lambda (_%main161664%_ _%keys161665%_) - (let ((_%main-type161666161668%_ + (let ((_%K161677161710%_ + (lambda (_%main161701%_ _%keys161702%_) + (let ((_%main-type161703161705%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main161664%_)))) - (if _%main-type161666161668%_ - (let* ((_%main-type161671%_ _%main-type161666161668%_) - (__method170999 + (gxc#optimizer-lookup-type _%main161701%_)))) + (if _%main-type161703161705%_ + (let* ((_%main-type161708%_ _%main-type161703161705%_) + (__method171036 (let () (declare (not safe)) (__method-ref - _%main-type161671%_ + _%main-type161708%_ 'return-type)))) - (if __method170999 - (let ((__tmp171194 + (if __method171036 + (let ((__tmp171231 (gxc#extract-keyword-args - _%args161622%_))) + _%args161659%_))) (declare (not safe)) - (__method170999 - _%main-type161671%_ - _%ctx161620%_ - _%stx161621%_ - __tmp171194)) + (__method171036 + _%main-type161708%_ + _%ctx161657%_ + _%stx161658%_ + __tmp171231)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type161671%_ + _%main-type161708%_ 'return-type)) '#!void))) '#f)))) - (_%K161639161656%_ - (lambda (_%proc161654%_) - (let ((__method171000 + (_%K161676161693%_ + (lambda (_%proc161691%_) + (let ((__method171037 (let () (declare (not safe)) - (__method-ref _%proc161654%_ 'return-type)))) - (if __method171000 - (let ((__tmp171195 - (gxc#extract-keyword-args _%args161622%_))) + (__method-ref _%proc161691%_ 'return-type)))) + (if __method171037 + (let ((__tmp171232 + (gxc#extract-keyword-args _%args161659%_))) (declare (not safe)) - (__method171000 - _%proc161654%_ - _%proc161654%_ - _%ctx161620%_ - _%stx161621%_ - __tmp171195)) + (__method171037 + _%proc161691%_ + _%proc161691%_ + _%ctx161657%_ + _%stx161658%_ + __tmp171232)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc161654%_ + _%proc161691%_ 'return-type)) '#!void)))))) - (let ((_%try-match161637161661%_ + (let ((_%try-match161674161698%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g161635161646%_ + _%g161672161683%_ 'gxc#!procedure::t)) - (let ((_%proc161659%_ _%g161635161646%_)) - (_%K161639161656%_ _%proc161659%_)) - (_%E161638161650%_))))) + (let ((_%proc161696%_ _%g161672161683%_)) + (_%K161676161693%_ _%proc161696%_)) + (_%E161675161687%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g161635161646%_ + _%g161672161683%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e161641161676%_ + (let* ((_%e161678161713%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161635161646%_ + _%g161672161683%_ '1 '#f '#f))) - (_%e161642161679%_ + (_%e161679161716%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161635161646%_ + _%g161672161683%_ '2 '#f '#f))) - (_%e161643161682%_ + (_%e161680161719%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161635161646%_ + _%g161672161683%_ '3 '#f '#f))) - (_%e161644161687%_ + (_%e161681161724%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161635161646%_ + _%g161672161683%_ '4 '#f '#f)))) - (let ((_%keys161685%_ _%e161643161682%_) - (_%main161690%_ _%e161644161687%_)) - (_%K161640161673%_ _%main161690%_ _%keys161685%_))) - (_%try-match161637161661%_))))))) + (let ((_%keys161722%_ _%e161680161719%_) + (_%main161727%_ _%e161681161724%_)) + (_%K161677161710%_ _%main161727%_ _%keys161722%_))) + (_%try-match161674161698%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -11876,135 +11876,135 @@ gxc#!kw-lambda::return-type '#f)) (define gxc#!kw-lambda::apply-return-type - (lambda (_%self154274161422%_ _%ctx161424%_ _%stx161425%_ _%args161426%_) - (let* ((_%self161428%_ _%self154274161422%_) - (_%self161430%_ _%self161428%_) - (_%g161439161450%_ - (let ((__tmp171196 + (lambda (_%self154311161459%_ _%ctx161461%_ _%stx161462%_ _%args161463%_) + (let* ((_%self161465%_ _%self154311161459%_) + (_%self161467%_ _%self161465%_) + (_%g161476161487%_ + (let ((__tmp171233 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161430%_ + _%self161467%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171196))) - (_%E161442161454%_ + (gxc#optimizer-lookup-type __tmp171233))) + (_%E161479161491%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g161439161450%_ + _%g161476161487%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K161444161477%_ - (lambda (_%main161468%_ _%keys161469%_) - (let ((_%main-type161470161472%_ + (let ((_%K161481161514%_ + (lambda (_%main161505%_ _%keys161506%_) + (let ((_%main-type161507161509%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main161468%_)))) - (if _%main-type161470161472%_ - (let* ((_%main-type161475%_ _%main-type161470161472%_) - (__method171001 + (gxc#optimizer-lookup-type _%main161505%_)))) + (if _%main-type161507161509%_ + (let* ((_%main-type161512%_ _%main-type161507161509%_) + (__method171038 (let () (declare (not safe)) (__method-ref - _%main-type161475%_ + _%main-type161512%_ 'apply-return-type)))) - (if __method171001 - (let ((__tmp171197 + (if __method171038 + (let ((__tmp171234 (gxc#extract-keyword-args - _%args161426%_))) + _%args161463%_))) (declare (not safe)) - (__method171001 - _%main-type161475%_ - _%ctx161424%_ - _%stx161425%_ - __tmp171197)) + (__method171038 + _%main-type161512%_ + _%ctx161461%_ + _%stx161462%_ + __tmp171234)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type161475%_ + _%main-type161512%_ 'apply-return-type)) '#!void))) '#f)))) - (_%K161443161460%_ - (lambda (_%proc161458%_) - (let ((__method171002 + (_%K161480161497%_ + (lambda (_%proc161495%_) + (let ((__method171039 (let () (declare (not safe)) - (__method-ref _%proc161458%_ 'apply-return-type)))) - (if __method171002 - (let ((__tmp171198 - (gxc#extract-keyword-args _%args161426%_))) + (__method-ref _%proc161495%_ 'apply-return-type)))) + (if __method171039 + (let ((__tmp171235 + (gxc#extract-keyword-args _%args161463%_))) (declare (not safe)) - (__method171002 - _%proc161458%_ - _%proc161458%_ - _%ctx161424%_ - _%stx161425%_ - __tmp171198)) + (__method171039 + _%proc161495%_ + _%proc161495%_ + _%ctx161461%_ + _%stx161462%_ + __tmp171235)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc161458%_ + _%proc161495%_ 'apply-return-type)) '#!void)))))) - (let ((_%try-match161441161465%_ + (let ((_%try-match161478161502%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g161439161450%_ + _%g161476161487%_ 'gxc#!procedure::t)) - (let ((_%proc161463%_ _%g161439161450%_)) - (_%K161443161460%_ _%proc161463%_)) - (_%E161442161454%_))))) + (let ((_%proc161500%_ _%g161476161487%_)) + (_%K161480161497%_ _%proc161500%_)) + (_%E161479161491%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g161439161450%_ + _%g161476161487%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e161445161480%_ + (let* ((_%e161482161517%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161439161450%_ + _%g161476161487%_ '1 '#f '#f))) - (_%e161446161483%_ + (_%e161483161520%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161439161450%_ + _%g161476161487%_ '2 '#f '#f))) - (_%e161447161486%_ + (_%e161484161523%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161439161450%_ + _%g161476161487%_ '3 '#f '#f))) - (_%e161448161491%_ + (_%e161485161528%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161439161450%_ + _%g161476161487%_ '4 '#f '#f)))) - (let ((_%keys161489%_ _%e161447161486%_) - (_%main161494%_ _%e161448161491%_)) - (_%K161444161477%_ _%main161494%_ _%keys161489%_))) - (_%try-match161441161465%_))))))) + (let ((_%keys161526%_ _%e161484161523%_) + (_%main161531%_ _%e161485161528%_)) + (_%K161481161514%_ _%main161531%_ _%keys161526%_))) + (_%try-match161478161502%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -12013,788 +12013,788 @@ gxc#!kw-lambda::apply-return-type '#f)) (define gxc#extract-keyword-args - (lambda (_%args161171%_) - (let _%loop161173%_ ((_%rest161175%_ _%args161171%_) - (_%result161176%_ '())) - (let* ((_%__stx169241169242%_ _%rest161175%_) - (_%g161180161206%_ + (lambda (_%args161208%_) + (let _%loop161210%_ ((_%rest161212%_ _%args161208%_) + (_%result161213%_ '())) + (let* ((_%__stx169278169279%_ _%rest161212%_) + (_%g161217161243%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169241169242%_))))) - (let ((_%__kont169243169244%_ - (lambda (_%L161278%_ _%L161279%_ _%L161280%_) - (_%loop161173%_ - _%L161278%_ - (cons _%L161279%_ _%result161176%_)))) - (_%__kont169245169246%_ - (lambda (_%L161226%_ _%L161227%_) - (_%loop161173%_ - _%L161226%_ - (cons _%L161227%_ _%result161176%_)))) - (_%__kont169247169248%_ - (lambda () (reverse! _%result161176%_)))) - (let ((_%__match169278169279%_ - (lambda (_%e161185161246%_ - _%hd161186161249%_ - _%tl161187161251%_ - _%e161188161254%_ - _%hd161189161257%_ - _%tl161190161259%_ - _%e161191161262%_ - _%hd161192161265%_ - _%tl161193161267%_ - _%e161194161270%_ - _%hd161195161273%_ - _%tl161196161275%_) - (let ((_%L161278%_ _%tl161196161275%_) - (_%L161279%_ _%hd161195161273%_) - (_%L161280%_ _%hd161192161265%_)) + _%__stx169278169279%_))))) + (let ((_%__kont169280169281%_ + (lambda (_%L161315%_ _%L161316%_ _%L161317%_) + (_%loop161210%_ + _%L161315%_ + (cons _%L161316%_ _%result161213%_)))) + (_%__kont169282169283%_ + (lambda (_%L161263%_ _%L161264%_) + (_%loop161210%_ + _%L161263%_ + (cons _%L161264%_ _%result161213%_)))) + (_%__kont169284169285%_ + (lambda () (reverse! _%result161213%_)))) + (let ((_%__match169315169316%_ + (lambda (_%e161222161283%_ + _%hd161223161286%_ + _%tl161224161288%_ + _%e161225161291%_ + _%hd161226161294%_ + _%tl161227161296%_ + _%e161228161299%_ + _%hd161229161302%_ + _%tl161230161304%_ + _%e161231161307%_ + _%hd161232161310%_ + _%tl161233161312%_) + (let ((_%L161315%_ _%tl161233161312%_) + (_%L161316%_ _%hd161232161310%_) + (_%L161317%_ _%hd161229161302%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L161280%_)) - (_%__kont169243169244%_ - _%L161278%_ - _%L161279%_ - _%L161280%_) - (_%__kont169245169246%_ - _%tl161187161251%_ - _%hd161186161249%_)))))) + (gx#stx-keyword? _%L161317%_)) + (_%__kont169280169281%_ + _%L161315%_ + _%L161316%_ + _%L161317%_) + (_%__kont169282169283%_ + _%tl161224161288%_ + _%hd161223161286%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169241169242%_)) - (let ((_%e161185161246%_ + (gx#stx-pair? _%__stx169278169279%_)) + (let ((_%e161222161283%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169241169242%_)))) - (let ((_%tl161187161251%_ + (gx#stx-e _%__stx169278169279%_)))) + (let ((_%tl161224161288%_ (let () (declare (not safe)) - (##cdr _%e161185161246%_))) - (_%hd161186161249%_ + (##cdr _%e161222161283%_))) + (_%hd161223161286%_ (let () (declare (not safe)) - (##car _%e161185161246%_)))) + (##car _%e161222161283%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161186161249%_)) - (let ((_%e161188161254%_ + (gx#stx-pair? _%hd161223161286%_)) + (let ((_%e161225161291%_ (let () (declare (not safe)) - (gx#stx-e _%hd161186161249%_)))) - (let ((_%tl161190161259%_ + (gx#stx-e _%hd161223161286%_)))) + (let ((_%tl161227161296%_ (let () (declare (not safe)) - (##cdr _%e161188161254%_))) - (_%hd161189161257%_ + (##cdr _%e161225161291%_))) + (_%hd161226161294%_ (let () (declare (not safe)) - (##car _%e161188161254%_)))) + (##car _%e161225161291%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161189161257%_)) + (gx#identifier? _%hd161226161294%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd161189161257%_)) + _%hd161226161294%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161190161259%_)) - (let ((_%e161191161262%_ + _%tl161227161296%_)) + (let ((_%e161228161299%_ (let () (declare (not safe)) (gx#stx-e - _%tl161190161259%_)))) - (let ((_%tl161193161267%_ + _%tl161227161296%_)))) + (let ((_%tl161230161304%_ (let () (declare (not safe)) - (##cdr _%e161191161262%_))) - (_%hd161192161265%_ + (##cdr _%e161228161299%_))) + (_%hd161229161302%_ (let () (declare (not safe)) - (##car _%e161191161262%_)))) + (##car _%e161228161299%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161193161267%_)) + _%tl161230161304%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161187161251%_)) - (let ((_%e161194161270%_ + _%tl161224161288%_)) + (let ((_%e161231161307%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl161187161251%_)))) - (let ((_%tl161196161275%_ + (gx#stx-e _%tl161224161288%_)))) + (let ((_%tl161233161312%_ (let () (declare (not safe)) - (##cdr _%e161194161270%_))) - (_%hd161195161273%_ + (##cdr _%e161231161307%_))) + (_%hd161232161310%_ (let () (declare (not safe)) - (##car _%e161194161270%_)))) - (_%__match169278169279%_ - _%e161185161246%_ - _%hd161186161249%_ - _%tl161187161251%_ - _%e161188161254%_ - _%hd161189161257%_ - _%tl161190161259%_ - _%e161191161262%_ - _%hd161192161265%_ - _%tl161193161267%_ - _%e161194161270%_ - _%hd161195161273%_ - _%tl161196161275%_))) - (_%__kont169245169246%_ _%tl161187161251%_ _%hd161186161249%_)) + (##car _%e161231161307%_)))) + (_%__match169315169316%_ + _%e161222161283%_ + _%hd161223161286%_ + _%tl161224161288%_ + _%e161225161291%_ + _%hd161226161294%_ + _%tl161227161296%_ + _%e161228161299%_ + _%hd161229161302%_ + _%tl161230161304%_ + _%e161231161307%_ + _%hd161232161310%_ + _%tl161233161312%_))) + (_%__kont169282169283%_ _%tl161224161288%_ _%hd161223161286%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169245169246%_ - _%tl161187161251%_ - _%hd161186161249%_)))) - (_%__kont169245169246%_ - _%tl161187161251%_ - _%hd161186161249%_)) - (_%__kont169245169246%_ - _%tl161187161251%_ - _%hd161186161249%_)) - (_%__kont169245169246%_ - _%tl161187161251%_ - _%hd161186161249%_)))) - (_%__kont169245169246%_ - _%tl161187161251%_ - _%hd161186161249%_)))) - (_%__kont169247169248%_)))))))) + (_%__kont169282169283%_ + _%tl161224161288%_ + _%hd161223161286%_)))) + (_%__kont169282169283%_ + _%tl161224161288%_ + _%hd161223161286%_)) + (_%__kont169282169283%_ + _%tl161224161288%_ + _%hd161223161286%_)) + (_%__kont169282169283%_ + _%tl161224161288%_ + _%hd161223161286%_)))) + (_%__kont169282169283%_ + _%tl161224161288%_ + _%hd161223161286%_)))) + (_%__kont169284169285%_)))))))) (define gxc#!lambda-arity-match? - (lambda (_%self161103%_ _%args161104%_) - (let* ((_%self161105161113%_ _%self161103%_) - (_%E161107161117%_ + (lambda (_%self161140%_ _%args161141%_) + (let* ((_%self161142161150%_ _%self161140%_) + (_%E161144161154%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self161105161113%_ + _%self161142161150%_ '((!lambda _ _ arity)))) '#!void)) - (_%K161108161157%_ - (lambda (_%arity161120%_) - (let* ((_%arity161121161130%_ _%arity161120%_) - (_%E161124161134%_ + (_%K161145161194%_ + (lambda (_%arity161157%_) + (let* ((_%arity161158161167%_ _%arity161157%_) + (_%E161161161171%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity161121161130%_ + _%arity161158161167%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K161128161154%_ + (let ((_%K161165161191%_ (lambda () - (fx= (length _%args161104%_) _%arity161120%_))) - (_%K161125161140%_ - (lambda (_%arity161138%_) - (fx>= (length _%args161104%_) _%arity161138%_)))) - (let* ((_%__match169297169298%_ - (lambda (_%hd161126161143%_ _%tl161127161145%_) - (let ((_%arity161148%_ _%hd161126161143%_)) - (_%E161124161134%_)))) - (_%try-match161123161150%_ + (fx= (length _%args161141%_) _%arity161157%_))) + (_%K161162161177%_ + (lambda (_%arity161175%_) + (fx>= (length _%args161141%_) _%arity161175%_)))) + (let* ((_%__match169334169335%_ + (lambda (_%hd161163161180%_ _%tl161164161182%_) + (let ((_%arity161185%_ _%hd161163161180%_)) + (_%E161161161171%_)))) + (_%try-match161160161187%_ (lambda () - (if (pair? _%arity161121161130%_) - (let ((_%tl161127161145%_ + (if (pair? _%arity161158161167%_) + (let ((_%tl161164161182%_ (let () (declare (not safe)) - (##cdr _%arity161121161130%_))) - (_%hd161126161143%_ + (##cdr _%arity161158161167%_))) + (_%hd161163161180%_ (let () (declare (not safe)) - (##car _%arity161121161130%_)))) - (if (null? _%tl161127161145%_) - (let ((_%arity161148%_ - _%hd161126161143%_)) - (_%K161125161140%_ - _%arity161148%_)) - (_%__match169297169298%_ - _%hd161126161143%_ - _%tl161127161145%_))) - (_%E161124161134%_))))) - (if (fixnum? _%arity161121161130%_) - (_%K161128161154%_) - (_%try-match161123161150%_)))))))) + (##car _%arity161158161167%_)))) + (if (null? _%tl161164161182%_) + (let ((_%arity161185%_ + _%hd161163161180%_)) + (_%K161162161177%_ + _%arity161185%_)) + (_%__match169334169335%_ + _%hd161163161180%_ + _%tl161164161182%_))) + (_%E161161161171%_))))) + (if (fixnum? _%arity161158161167%_) + (_%K161165161191%_) + (_%try-match161160161187%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self161105161113%_ + _%self161142161150%_ 'gxc#!lambda::t)) - (let* ((_%e161109161160%_ + (let* ((_%e161146161197%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161105161113%_ + _%self161142161150%_ '1 '#f '#f))) - (_%e161110161163%_ + (_%e161147161200%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161105161113%_ + _%self161142161150%_ '2 '#f '#f))) - (_%e161111161166%_ + (_%e161148161203%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161105161113%_ + _%self161142161150%_ '3 '#f '#f))) - (_%arity161169%_ _%e161111161166%_)) - (_%K161108161157%_ _%arity161169%_)) - (_%E161107161117%_))))) + (_%arity161206%_ _%e161148161203%_)) + (_%K161145161194%_ _%arity161206%_)) + (_%E161144161154%_))))) (define gxc#!lambda-arity-match-apply? - (lambda (_%self161035%_ _%args161036%_) - (let* ((_%self161037161045%_ _%self161035%_) - (_%E161039161049%_ + (lambda (_%self161072%_ _%args161073%_) + (let* ((_%self161074161082%_ _%self161072%_) + (_%E161076161086%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self161037161045%_ + _%self161074161082%_ '((!lambda _ _ arity)))) '#!void)) - (_%K161040161089%_ - (lambda (_%arity161052%_) - (let* ((_%arity161053161062%_ _%arity161052%_) - (_%E161056161066%_ + (_%K161077161126%_ + (lambda (_%arity161089%_) + (let* ((_%arity161090161099%_ _%arity161089%_) + (_%E161093161103%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity161053161062%_ + _%arity161090161099%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K161060161086%_ + (let ((_%K161097161123%_ (lambda () - (let ((__tmp171199 (length _%args161036%_))) + (let ((__tmp171236 (length _%args161073%_))) (declare (not safe)) - (##fx>= _%arity161052%_ __tmp171199)))) - (_%K161057161072%_ (lambda (_%arity161070%_) '#t))) - (let* ((_%__match169310169311%_ - (lambda (_%hd161058161075%_ _%tl161059161077%_) - (let ((_%arity161080%_ _%hd161058161075%_)) - (_%E161056161066%_)))) - (_%try-match161055161082%_ + (##fx>= _%arity161089%_ __tmp171236)))) + (_%K161094161109%_ (lambda (_%arity161107%_) '#t))) + (let* ((_%__match169347169348%_ + (lambda (_%hd161095161112%_ _%tl161096161114%_) + (let ((_%arity161117%_ _%hd161095161112%_)) + (_%E161093161103%_)))) + (_%try-match161092161119%_ (lambda () - (if (pair? _%arity161053161062%_) - (let ((_%tl161059161077%_ + (if (pair? _%arity161090161099%_) + (let ((_%tl161096161114%_ (let () (declare (not safe)) - (##cdr _%arity161053161062%_))) - (_%hd161058161075%_ + (##cdr _%arity161090161099%_))) + (_%hd161095161112%_ (let () (declare (not safe)) - (##car _%arity161053161062%_)))) - (if (null? _%tl161059161077%_) - (let ((_%arity161080%_ - _%hd161058161075%_)) - (_%K161057161072%_ - _%arity161080%_)) - (_%__match169310169311%_ - _%hd161058161075%_ - _%tl161059161077%_))) - (_%E161056161066%_))))) - (if (fixnum? _%arity161053161062%_) - (_%K161060161086%_) - (_%try-match161055161082%_)))))))) + (##car _%arity161090161099%_)))) + (if (null? _%tl161096161114%_) + (let ((_%arity161117%_ + _%hd161095161112%_)) + (_%K161094161109%_ + _%arity161117%_)) + (_%__match169347169348%_ + _%hd161095161112%_ + _%tl161096161114%_))) + (_%E161093161103%_))))) + (if (fixnum? _%arity161090161099%_) + (_%K161097161123%_) + (_%try-match161092161119%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self161037161045%_ + _%self161074161082%_ 'gxc#!lambda::t)) - (let* ((_%e161041161092%_ + (let* ((_%e161078161129%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161037161045%_ + _%self161074161082%_ '1 '#f '#f))) - (_%e161042161095%_ + (_%e161079161132%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161037161045%_ + _%self161074161082%_ '2 '#f '#f))) - (_%e161043161098%_ + (_%e161080161135%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161037161045%_ + _%self161074161082%_ '3 '#f '#f))) - (_%arity161101%_ _%e161043161098%_)) - (_%K161040161089%_ _%arity161101%_)) - (_%E161039161049%_))))) + (_%arity161138%_ _%e161080161135%_)) + (_%K161077161126%_ _%arity161138%_)) + (_%E161076161086%_))))) (define gxc#basic-expression-type-special-cast - (lambda (_%ctx160922%_ _%stx160923%_) - (let* ((_%g160925160951%_ - (lambda (_%g160926160948%_) + (lambda (_%ctx160959%_ _%stx160960%_) + (let* ((_%g160962160988%_ + (lambda (_%g160963160985%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160926160948%_)))) - (_%g160924161032%_ - (lambda (_%g160926160954%_) + _%g160963160985%_)))) + (_%g160961161069%_ + (lambda (_%g160963160991%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160926160954%_)) - (let ((_%e160929160956%_ + (gx#stx-pair? _%g160963160991%_)) + (let ((_%e160966160993%_ (let () (declare (not safe)) - (gx#stx-e _%g160926160954%_)))) - (let ((_%hd160930160959%_ + (gx#stx-e _%g160963160991%_)))) + (let ((_%hd160967160996%_ (let () (declare (not safe)) - (##car _%e160929160956%_))) - (_%tl160931160961%_ + (##car _%e160966160993%_))) + (_%tl160968160998%_ (let () (declare (not safe)) - (##cdr _%e160929160956%_)))) + (##cdr _%e160966160993%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160931160961%_)) - (let ((_%e160932160964%_ + (gx#stx-pair? _%tl160968160998%_)) + (let ((_%e160969161001%_ (let () (declare (not safe)) - (gx#stx-e _%tl160931160961%_)))) - (let ((_%hd160933160967%_ + (gx#stx-e _%tl160968160998%_)))) + (let ((_%hd160970161004%_ (let () (declare (not safe)) - (##car _%e160932160964%_))) - (_%tl160934160969%_ + (##car _%e160969161001%_))) + (_%tl160971161006%_ (let () (declare (not safe)) - (##cdr _%e160932160964%_)))) + (##cdr _%e160969161001%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160934160969%_)) - (let ((_%e160935160972%_ + (gx#stx-pair? _%tl160971161006%_)) + (let ((_%e160972161009%_ (let () (declare (not safe)) - (gx#stx-e _%tl160934160969%_)))) - (let ((_%hd160936160975%_ + (gx#stx-e _%tl160971161006%_)))) + (let ((_%hd160973161012%_ (let () (declare (not safe)) - (##car _%e160935160972%_))) - (_%tl160937160977%_ + (##car _%e160972161009%_))) + (_%tl160974161014%_ (let () (declare (not safe)) - (##cdr _%e160935160972%_)))) + (##cdr _%e160972161009%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160936160975%_)) - (let ((_%e160938160980%_ + _%hd160973161012%_)) + (let ((_%e160975161017%_ (let () (declare (not safe)) (gx#stx-e - _%hd160936160975%_)))) - (let ((_%hd160939160983%_ + _%hd160973161012%_)))) + (let ((_%hd160976161020%_ (let () (declare (not safe)) - (##car _%e160938160980%_))) - (_%tl160940160985%_ + (##car _%e160975161017%_))) + (_%tl160977161022%_ (let () (declare (not safe)) - (##cdr _%e160938160980%_)))) + (##cdr _%e160975161017%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160939160983%_)) + _%hd160976161020%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd160939160983%_)) + _%hd160976161020%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl160940160985%_)) - (let ((_%e160941160988%_ + (gx#stx-pair? _%tl160977161022%_)) + (let ((_%e160978161025%_ (let () (declare (not safe)) - (gx#stx-e _%tl160940160985%_)))) - (let ((_%hd160942160991%_ + (gx#stx-e _%tl160977161022%_)))) + (let ((_%hd160979161028%_ (let () (declare (not safe)) - (##car _%e160941160988%_))) - (_%tl160943160993%_ + (##car _%e160978161025%_))) + (_%tl160980161030%_ (let () (declare (not safe)) - (##cdr _%e160941160988%_)))) + (##cdr _%e160978161025%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160943160993%_)) + (gx#stx-null? _%tl160980161030%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160937160977%_)) - (let ((_%e160944160996%_ + (gx#stx-pair? _%tl160974161014%_)) + (let ((_%e160981161033%_ (let () (declare (not safe)) - (gx#stx-e _%tl160937160977%_)))) - (let ((_%hd160945160999%_ + (gx#stx-e _%tl160974161014%_)))) + (let ((_%hd160982161036%_ (let () (declare (not safe)) - (##car _%e160944160996%_))) - (_%tl160946161001%_ + (##car _%e160981161033%_))) + (_%tl160983161038%_ (let () (declare (not safe)) - (##cdr _%e160944160996%_)))) + (##cdr _%e160981161033%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160946161001%_)) - ((lambda (_%L161004%_ _%L161005%_) - (let ((_%interface-type161025161027%_ - (let ((__tmp171200 + (gx#stx-null? _%tl160983161038%_)) + ((lambda (_%L161041%_ _%L161042%_) + (let ((_%interface-type161062161064%_ + (let ((__tmp171237 (let () (declare (not safe)) (gxc#identifier-symbol - _%L161005%_)))) + _%L161042%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp171200)))) - (if _%interface-type161025161027%_ - (let ((_%interface-type161030%_ - _%interface-type161025161027%_)) + __tmp171237)))) + (if _%interface-type161062161064%_ + (let ((_%interface-type161067%_ + _%interface-type161062161064%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%interface-type161030%_ + _%interface-type161067%_ 'gxc#!interface::t)) - (let ((__tmp171201 + (let ((__tmp171238 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%interface-type161030%_ + _%interface-type161067%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160923%_ __tmp171201)) + (gxc#optimizer-resolve-class _%stx160960%_ __tmp171238)) (let () (declare (not safe)) (gxc#raise-compile-error '"cast to non interface" - _%stx160923%_ - _%L161005%_ - _%interface-type161030%_)))) + _%stx160960%_ + _%L161042%_ + _%interface-type161067%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#f))) - _%hd160945160999%_ - _%hd160942160991%_) - (_%g160925160951%_ - _%g160926160954%_)))) - (_%g160925160951%_ _%g160926160954%_)) - (_%g160925160951%_ _%g160926160954%_)))) - (_%g160925160951%_ _%g160926160954%_)) - (_%g160925160951%_ _%g160926160954%_)) - (_%g160925160951%_ _%g160926160954%_)))) + _%hd160982161036%_ + _%hd160979161028%_) + (_%g160962160988%_ + _%g160963160991%_)))) + (_%g160962160988%_ _%g160963160991%_)) + (_%g160962160988%_ _%g160963160991%_)))) + (_%g160962160988%_ _%g160963160991%_)) + (_%g160962160988%_ _%g160963160991%_)) + (_%g160962160988%_ _%g160963160991%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g160925160951%_ - _%g160926160954%_)))) - (_%g160925160951%_ _%g160926160954%_)))) - (_%g160925160951%_ _%g160926160954%_)))) - (_%g160925160951%_ _%g160926160954%_))))) - (_%g160924161032%_ _%stx160923%_)))) + (_%g160962160988%_ + _%g160963160991%_)))) + (_%g160962160988%_ _%g160963160991%_)))) + (_%g160962160988%_ _%g160963160991%_)))) + (_%g160962160988%_ _%g160963160991%_))))) + (_%g160961161069%_ _%stx160960%_)))) (define gxc#basic-expression-type-special-apply - (lambda (_%ctx160712%_ _%stx160713%_) - (letrec ((_%type-e160715%_ - (lambda (_%rator160918%_ _%rator-type160919%_ _%args160920%_) + (lambda (_%ctx160749%_ _%stx160750%_) + (letrec ((_%type-e160752%_ + (lambda (_%rator160955%_ _%rator-type160956%_ _%args160957%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type160919%_ + _%rator-type160956%_ 'gxc#!procedure::t)) - (let ((__method171003 + (let ((__method171040 (let () (declare (not safe)) (__method-ref - _%rator-type160919%_ + _%rator-type160956%_ 'apply-return-type)))) - (if __method171003 + (if __method171040 (let () (declare (not safe)) - (__method171003 - _%rator-type160919%_ - _%ctx160712%_ - _%stx160713%_ - _%args160920%_)) + (__method171040 + _%rator-type160956%_ + _%ctx160749%_ + _%stx160750%_ + _%args160957%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type160919%_ + _%rator-type160956%_ 'apply-return-type)) '#!void))) '#f)))) - (let* ((_%__stx169313169314%_ _%stx160713%_) - (_%g160719160761%_ + (let* ((_%__stx169350169351%_ _%stx160750%_) + (_%g160756160798%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169313169314%_))))) - (let ((_%__kont169315169316%_ - (lambda (_%L160882%_ _%L160883%_ _%L160884%_ _%L160885%_) - (let ((_%rator-type160908160910%_ - (gxc#apply-basic-expression-type _%L160883%_))) - (if _%rator-type160908160910%_ - (let ((_%rator-type160913%_ - _%rator-type160908160910%_)) - (_%type-e160715%_ - _%L160883%_ - _%rator-type160913%_ - (cons _%L160884%_ _%L160882%_))) + _%__stx169350169351%_))))) + (let ((_%__kont169352169353%_ + (lambda (_%L160919%_ _%L160920%_ _%L160921%_ _%L160922%_) + (let ((_%rator-type160945160947%_ + (gxc#apply-basic-expression-type _%L160920%_))) + (if _%rator-type160945160947%_ + (let ((_%rator-type160950%_ + _%rator-type160945160947%_)) + (_%type-e160752%_ + _%L160920%_ + _%rator-type160950%_ + (cons _%L160921%_ _%L160919%_))) '#f)))) - (_%__kont169317169318%_ - (lambda (_%L160797%_ _%L160798%_) - (let ((_%rator-type160814160816%_ - (gxc#apply-basic-expression-type _%L160798%_))) - (if _%rator-type160814160816%_ - (let ((_%rator-type160819%_ - _%rator-type160814160816%_)) - (_%type-e160715%_ - _%L160798%_ - _%rator-type160819%_ - _%L160797%_)) + (_%__kont169354169355%_ + (lambda (_%L160834%_ _%L160835%_) + (let ((_%rator-type160851160853%_ + (gxc#apply-basic-expression-type _%L160835%_))) + (if _%rator-type160851160853%_ + (let ((_%rator-type160856%_ + _%rator-type160851160853%_)) + (_%type-e160752%_ + _%L160835%_ + _%rator-type160856%_ + _%L160834%_)) '#f)))) - (_%__kont169319169320%_ (lambda () '#f))) - (let ((_%__match169368169369%_ - (lambda (_%e160725160826%_ - _%hd160726160829%_ - _%tl160727160831%_ - _%e160728160834%_ - _%hd160729160837%_ - _%tl160730160839%_ - _%e160731160842%_ - _%hd160732160845%_ - _%tl160733160847%_ - _%e160734160850%_ - _%hd160735160853%_ - _%tl160736160855%_ - _%e160737160858%_ - _%hd160738160861%_ - _%tl160739160863%_ - _%e160740160866%_ - _%hd160741160869%_ - _%tl160742160871%_ - _%e160743160874%_ - _%hd160744160877%_ - _%tl160745160879%_) - (let ((_%L160882%_ _%tl160745160879%_) - (_%L160883%_ _%hd160744160877%_) - (_%L160884%_ _%hd160741160869%_) - (_%L160885%_ _%hd160738160861%_)) + (_%__kont169356169357%_ (lambda () '#f))) + (let ((_%__match169405169406%_ + (lambda (_%e160762160863%_ + _%hd160763160866%_ + _%tl160764160868%_ + _%e160765160871%_ + _%hd160766160874%_ + _%tl160767160876%_ + _%e160768160879%_ + _%hd160769160882%_ + _%tl160770160884%_ + _%e160771160887%_ + _%hd160772160890%_ + _%tl160773160892%_ + _%e160774160895%_ + _%hd160775160898%_ + _%tl160776160900%_ + _%e160777160903%_ + _%hd160778160906%_ + _%tl160779160908%_ + _%e160780160911%_ + _%hd160781160914%_ + _%tl160782160916%_) + (let ((_%L160919%_ _%tl160782160916%_) + (_%L160920%_ _%hd160781160914%_) + (_%L160921%_ _%hd160778160906%_) + (_%L160922%_ _%hd160775160898%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L160885%_ + _%L160922%_ 'keyword-dispatch)) - (_%__kont169315169316%_ - _%L160882%_ - _%L160883%_ - _%L160884%_ - _%L160885%_) - (_%__kont169317169318%_ - _%tl160733160847%_ - _%hd160732160845%_)))))) + (_%__kont169352169353%_ + _%L160919%_ + _%L160920%_ + _%L160921%_ + _%L160922%_) + (_%__kont169354169355%_ + _%tl160770160884%_ + _%hd160769160882%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169313169314%_)) - (let ((_%e160725160826%_ + (gx#stx-pair? _%__stx169350169351%_)) + (let ((_%e160762160863%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169313169314%_)))) - (let ((_%tl160727160831%_ + (gx#stx-e _%__stx169350169351%_)))) + (let ((_%tl160764160868%_ (let () (declare (not safe)) - (##cdr _%e160725160826%_))) - (_%hd160726160829%_ + (##cdr _%e160762160863%_))) + (_%hd160763160866%_ (let () (declare (not safe)) - (##car _%e160725160826%_)))) + (##car _%e160762160863%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160727160831%_)) - (let ((_%e160728160834%_ + (gx#stx-pair? _%tl160764160868%_)) + (let ((_%e160765160871%_ (let () (declare (not safe)) - (gx#stx-e _%tl160727160831%_)))) - (let ((_%tl160730160839%_ + (gx#stx-e _%tl160764160868%_)))) + (let ((_%tl160767160876%_ (let () (declare (not safe)) - (##cdr _%e160728160834%_))) - (_%hd160729160837%_ + (##cdr _%e160765160871%_))) + (_%hd160766160874%_ (let () (declare (not safe)) - (##car _%e160728160834%_)))) + (##car _%e160765160871%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160730160839%_)) - (let ((_%e160731160842%_ + (gx#stx-pair? _%tl160767160876%_)) + (let ((_%e160768160879%_ (let () (declare (not safe)) - (gx#stx-e _%tl160730160839%_)))) - (let ((_%tl160733160847%_ + (gx#stx-e _%tl160767160876%_)))) + (let ((_%tl160770160884%_ (let () (declare (not safe)) - (##cdr _%e160731160842%_))) - (_%hd160732160845%_ + (##cdr _%e160768160879%_))) + (_%hd160769160882%_ (let () (declare (not safe)) - (##car _%e160731160842%_)))) + (##car _%e160768160879%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160732160845%_)) - (let ((_%e160734160850%_ + _%hd160769160882%_)) + (let ((_%e160771160887%_ (let () (declare (not safe)) (gx#stx-e - _%hd160732160845%_)))) - (let ((_%tl160736160855%_ + _%hd160769160882%_)))) + (let ((_%tl160773160892%_ (let () (declare (not safe)) - (##cdr _%e160734160850%_))) - (_%hd160735160853%_ + (##cdr _%e160771160887%_))) + (_%hd160772160890%_ (let () (declare (not safe)) - (##car _%e160734160850%_)))) + (##car _%e160771160887%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160735160853%_)) + _%hd160772160890%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd160735160853%_)) + _%hd160772160890%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160736160855%_)) - (let ((_%e160737160858%_ + _%tl160773160892%_)) + (let ((_%e160774160895%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl160736160855%_)))) - (let ((_%tl160739160863%_ + (gx#stx-e _%tl160773160892%_)))) + (let ((_%tl160776160900%_ (let () (declare (not safe)) - (##cdr _%e160737160858%_))) - (_%hd160738160861%_ + (##cdr _%e160774160895%_))) + (_%hd160775160898%_ (let () (declare (not safe)) - (##car _%e160737160858%_)))) + (##car _%e160774160895%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160739160863%_)) + (gx#stx-null? _%tl160776160900%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160733160847%_)) - (let ((_%e160740160866%_ + (gx#stx-pair? _%tl160770160884%_)) + (let ((_%e160777160903%_ (let () (declare (not safe)) - (gx#stx-e _%tl160733160847%_)))) - (let ((_%tl160742160871%_ + (gx#stx-e _%tl160770160884%_)))) + (let ((_%tl160779160908%_ (let () (declare (not safe)) - (##cdr _%e160740160866%_))) - (_%hd160741160869%_ + (##cdr _%e160777160903%_))) + (_%hd160778160906%_ (let () (declare (not safe)) - (##car _%e160740160866%_)))) + (##car _%e160777160903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160742160871%_)) - (let ((_%e160743160874%_ + (gx#stx-pair? _%tl160779160908%_)) + (let ((_%e160780160911%_ (let () (declare (not safe)) (gx#stx-e - _%tl160742160871%_)))) - (let ((_%tl160745160879%_ + _%tl160779160908%_)))) + (let ((_%tl160782160916%_ (let () (declare (not safe)) - (##cdr _%e160743160874%_))) - (_%hd160744160877%_ + (##cdr _%e160780160911%_))) + (_%hd160781160914%_ (let () (declare (not safe)) - (##car _%e160743160874%_)))) - (_%__match169368169369%_ - _%e160725160826%_ - _%hd160726160829%_ - _%tl160727160831%_ - _%e160728160834%_ - _%hd160729160837%_ - _%tl160730160839%_ - _%e160731160842%_ - _%hd160732160845%_ - _%tl160733160847%_ - _%e160734160850%_ - _%hd160735160853%_ - _%tl160736160855%_ - _%e160737160858%_ - _%hd160738160861%_ - _%tl160739160863%_ - _%e160740160866%_ - _%hd160741160869%_ - _%tl160742160871%_ - _%e160743160874%_ - _%hd160744160877%_ - _%tl160745160879%_))) - (_%__kont169317169318%_ - _%tl160733160847%_ - _%hd160732160845%_)))) - (_%__kont169317169318%_ - _%tl160733160847%_ - _%hd160732160845%_)) - (_%__kont169317169318%_ - _%tl160733160847%_ - _%hd160732160845%_)))) - (_%__kont169317169318%_ - _%tl160733160847%_ - _%hd160732160845%_)) - (_%__kont169317169318%_ _%tl160733160847%_ _%hd160732160845%_)) + (##car _%e160780160911%_)))) + (_%__match169405169406%_ + _%e160762160863%_ + _%hd160763160866%_ + _%tl160764160868%_ + _%e160765160871%_ + _%hd160766160874%_ + _%tl160767160876%_ + _%e160768160879%_ + _%hd160769160882%_ + _%tl160770160884%_ + _%e160771160887%_ + _%hd160772160890%_ + _%tl160773160892%_ + _%e160774160895%_ + _%hd160775160898%_ + _%tl160776160900%_ + _%e160777160903%_ + _%hd160778160906%_ + _%tl160779160908%_ + _%e160780160911%_ + _%hd160781160914%_ + _%tl160782160916%_))) + (_%__kont169354169355%_ + _%tl160770160884%_ + _%hd160769160882%_)))) + (_%__kont169354169355%_ + _%tl160770160884%_ + _%hd160769160882%_)) + (_%__kont169354169355%_ + _%tl160770160884%_ + _%hd160769160882%_)))) + (_%__kont169354169355%_ + _%tl160770160884%_ + _%hd160769160882%_)) + (_%__kont169354169355%_ _%tl160770160884%_ _%hd160769160882%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169317169318%_ - _%tl160733160847%_ - _%hd160732160845%_)))) - (_%__kont169317169318%_ - _%tl160733160847%_ - _%hd160732160845%_)))) - (_%__kont169319169320%_)))) - (_%__kont169319169320%_)))) - (_%__kont169319169320%_)))))))) + (_%__kont169354169355%_ + _%tl160770160884%_ + _%hd160769160882%_)))) + (_%__kont169354169355%_ + _%tl160770160884%_ + _%hd160769160882%_)))) + (_%__kont169356169357%_)))) + (_%__kont169356169357%_)))) + (_%__kont169356169357%_)))))))) (let () (declare (not safe)) (__hash-put! @@ -12814,1758 +12814,1758 @@ '##apply gxc#basic-expression-type-special-apply)) (define gxc#basic-expression-type-ref% - (lambda (_%self160660%_ _%stx160661%_) - (let* ((_%g160663160676%_ - (lambda (_%g160664160673%_) + (lambda (_%self160697%_ _%stx160698%_) + (let* ((_%g160700160713%_ + (lambda (_%g160701160710%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160664160673%_)))) - (_%g160662160709%_ - (lambda (_%g160664160679%_) + _%g160701160710%_)))) + (_%g160699160746%_ + (lambda (_%g160701160716%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160664160679%_)) - (let ((_%e160666160681%_ + (gx#stx-pair? _%g160701160716%_)) + (let ((_%e160703160718%_ (let () (declare (not safe)) - (gx#stx-e _%g160664160679%_)))) - (let ((_%hd160667160684%_ + (gx#stx-e _%g160701160716%_)))) + (let ((_%hd160704160721%_ (let () (declare (not safe)) - (##car _%e160666160681%_))) - (_%tl160668160686%_ + (##car _%e160703160718%_))) + (_%tl160705160723%_ (let () (declare (not safe)) - (##cdr _%e160666160681%_)))) + (##cdr _%e160703160718%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160668160686%_)) - (let ((_%e160669160689%_ + (gx#stx-pair? _%tl160705160723%_)) + (let ((_%e160706160726%_ (let () (declare (not safe)) - (gx#stx-e _%tl160668160686%_)))) - (let ((_%hd160670160692%_ + (gx#stx-e _%tl160705160723%_)))) + (let ((_%hd160707160729%_ (let () (declare (not safe)) - (##car _%e160669160689%_))) - (_%tl160671160694%_ + (##car _%e160706160726%_))) + (_%tl160708160731%_ (let () (declare (not safe)) - (##cdr _%e160669160689%_)))) + (##cdr _%e160706160726%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160671160694%_)) - ((lambda (_%L160697%_) - (let ((__tmp171202 + (gx#stx-null? _%tl160708160731%_)) + ((lambda (_%L160734%_) + (let ((__tmp171239 (let () (declare (not safe)) (gxc#identifier-symbol - _%L160697%_)))) + _%L160734%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp171202))) - _%hd160670160692%_) - (_%g160663160676%_ _%g160664160679%_)))) - (_%g160663160676%_ _%g160664160679%_)))) - (_%g160663160676%_ _%g160664160679%_))))) - (_%g160662160709%_ _%stx160661%_)))) + __tmp171239))) + _%hd160707160729%_) + (_%g160700160713%_ _%g160701160716%_)))) + (_%g160700160713%_ _%g160701160716%_)))) + (_%g160700160713%_ _%g160701160716%_))))) + (_%g160699160746%_ _%stx160698%_)))) (define gxc#basic-expression-type-if% - (lambda (_%self160239%_ _%stx160240%_) - (letrec ((_%type-e160242%_ - (lambda (_%type-K160654%_ _%type-E160655%_) + (lambda (_%self160276%_ _%stx160277%_) + (letrec ((_%type-e160279%_ + (lambda (_%type-K160691%_ _%type-E160692%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-E160655%_ + _%type-E160692%_ 'gxc#!abort::t)) - _%type-K160654%_ + _%type-K160691%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-K160654%_ + _%type-K160691%_ 'gxc#!abort::t)) - _%type-E160655%_ + _%type-E160692%_ (gxc#greatest-common-type - _%stx160240%_ - _%type-K160654%_ - _%type-E160655%_))))) - (_%basic-type-e160243%_ - (lambda (_%K160648%_ _%E160649%_) - (let ((_%type-K160651%_ - (gxc#apply-basic-expression-type _%K160648%_)) - (_%type-E160652%_ - (gxc#apply-basic-expression-type _%E160649%_))) - (_%type-e160242%_ _%type-K160651%_ _%type-E160652%_))))) - (let* ((_%__stx169389169390%_ _%stx160240%_) - (_%g160247160336%_ + _%stx160277%_ + _%type-K160691%_ + _%type-E160692%_))))) + (_%basic-type-e160280%_ + (lambda (_%K160685%_ _%E160686%_) + (let ((_%type-K160688%_ + (gxc#apply-basic-expression-type _%K160685%_)) + (_%type-E160689%_ + (gxc#apply-basic-expression-type _%E160686%_))) + (_%type-e160279%_ _%type-K160688%_ _%type-E160689%_))))) + (let* ((_%__stx169426169427%_ _%stx160277%_) + (_%g160284160373%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169389169390%_))))) - (let ((_%__kont169391169392%_ - (lambda (_%L160595%_ _%L160596%_ _%L160597%_ _%L160598%_) - (let ((_%$e160630%_ - (let ((__tmp171203 + _%__stx169426169427%_))))) + (let ((_%__kont169428169429%_ + (lambda (_%L160632%_ _%L160633%_ _%L160634%_ _%L160635%_) + (let ((_%$e160667%_ + (let ((__tmp171240 (let () (declare (not safe)) - (gxc#identifier-symbol _%L160598%_)))) + (gxc#identifier-symbol _%L160635%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171203)))) - (if _%$e160630%_ - ((lambda (_%pred-type160633%_) + (gxc#optimizer-lookup-type __tmp171240)))) + (if _%$e160667%_ + ((lambda (_%pred-type160670%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type160633%_ + _%pred-type160670%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type160633%_ + _%pred-type160670%_ 'gxc#!primitive-predicate::t))) - (let* ((_%type-K160639%_ - (let ((__tmp171206 + (let* ((_%type-K160676%_ + (let ((__tmp171243 (lambda () (gxc#apply-basic-expression-type - _%L160596%_))) - (__tmp171204 + _%L160633%_))) + (__tmp171241 (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#identifier-symbol _%L160597%_)) - (let ((__tmp171205 + (gxc#identifier-symbol _%L160634%_)) + (let ((__tmp171242 (##structure-ref - _%pred-type160633%_ + _%pred-type160670%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160240%_ - __tmp171205))) + _%stx160277%_ + __tmp171242))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp171206 + __tmp171243 gxc#current-compile-path-type - __tmp171204))) - (_%type-E160641%_ + __tmp171241))) + (_%type-E160678%_ (gxc#apply-basic-expression-type - _%L160595%_))) - (_%type-e160242%_ - _%type-K160639%_ - _%type-E160641%_)) - (_%basic-type-e160243%_ - _%L160596%_ - _%L160595%_))) - _%$e160630%_) - (_%basic-type-e160243%_ _%L160596%_ _%L160595%_))))) - (_%__kont169393169394%_ - (lambda (_%L160471%_ _%L160472%_ _%L160473%_ _%L160474%_) + _%L160632%_))) + (_%type-e160279%_ + _%type-K160676%_ + _%type-E160678%_)) + (_%basic-type-e160280%_ + _%L160633%_ + _%L160632%_))) + _%$e160667%_) + (_%basic-type-e160280%_ _%L160633%_ _%L160632%_))))) + (_%__kont169430169431%_ + (lambda (_%L160508%_ _%L160509%_ _%L160510%_ _%L160511%_) (gxc#basic-expression-type-if% - _%self160239%_ - (let ((__tmp171207 + _%self160276%_ + (let ((__tmp171244 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L160473%_ - (cons _%L160471%_ - (cons _%L160472%_ '())))))) + (cons _%L160510%_ + (cons _%L160508%_ + (cons _%L160509%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171207 _%stx160240%_))))) - (_%__kont169395169396%_ - (lambda (_%L160373%_ _%L160374%_ _%L160375%_) - (_%basic-type-e160243%_ _%L160374%_ _%L160373%_)))) - (let ((_%__match169550169551%_ - (lambda (_%e160290160399%_ - _%hd160291160402%_ - _%tl160292160404%_ - _%e160293160407%_ - _%hd160294160410%_ - _%tl160295160412%_ - _%e160296160415%_ - _%hd160297160418%_ - _%tl160298160420%_ - _%e160299160423%_ - _%hd160300160426%_ - _%tl160301160428%_ - _%e160302160431%_ - _%hd160303160434%_ - _%tl160304160436%_ - _%e160305160439%_ - _%hd160306160442%_ - _%tl160307160444%_ - _%e160308160447%_ - _%hd160309160450%_ - _%tl160310160452%_ - _%e160311160455%_ - _%hd160312160458%_ - _%tl160313160460%_ - _%e160314160463%_ - _%hd160315160466%_ - _%tl160316160468%_) - (let ((_%L160471%_ _%hd160315160466%_) - (_%L160472%_ _%hd160312160458%_) - (_%L160473%_ _%hd160309160450%_) - (_%L160474%_ _%hd160306160442%_)) + (gxc#xform-wrap-source __tmp171244 _%stx160277%_))))) + (_%__kont169432169433%_ + (lambda (_%L160410%_ _%L160411%_ _%L160412%_) + (_%basic-type-e160280%_ _%L160411%_ _%L160410%_)))) + (let ((_%__match169587169588%_ + (lambda (_%e160327160436%_ + _%hd160328160439%_ + _%tl160329160441%_ + _%e160330160444%_ + _%hd160331160447%_ + _%tl160332160449%_ + _%e160333160452%_ + _%hd160334160455%_ + _%tl160335160457%_ + _%e160336160460%_ + _%hd160337160463%_ + _%tl160338160465%_ + _%e160339160468%_ + _%hd160340160471%_ + _%tl160341160473%_ + _%e160342160476%_ + _%hd160343160479%_ + _%tl160344160481%_ + _%e160345160484%_ + _%hd160346160487%_ + _%tl160347160489%_ + _%e160348160492%_ + _%hd160349160495%_ + _%tl160350160497%_ + _%e160351160500%_ + _%hd160352160503%_ + _%tl160353160505%_) + (let ((_%L160508%_ _%hd160352160503%_) + (_%L160509%_ _%hd160349160495%_) + (_%L160510%_ _%hd160346160487%_) + (_%L160511%_ _%hd160343160479%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L160474%_ 'not)) - (_%__kont169393169394%_ - _%L160471%_ - _%L160472%_ - _%L160473%_ - _%L160474%_) - (_%__kont169395169396%_ - _%hd160315160466%_ - _%hd160312160458%_ - _%hd160294160410%_)))))) + (gxc#runtime-identifier=? _%L160511%_ 'not)) + (_%__kont169430169431%_ + _%L160508%_ + _%L160509%_ + _%L160510%_ + _%L160511%_) + (_%__kont169432169433%_ + _%hd160352160503%_ + _%hd160349160495%_ + _%hd160331160447%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169389169390%_)) - (let ((_%e160253160507%_ + (gx#stx-pair? _%__stx169426169427%_)) + (let ((_%e160290160544%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169389169390%_)))) - (let ((_%tl160255160512%_ + (gx#stx-e _%__stx169426169427%_)))) + (let ((_%tl160292160549%_ (let () (declare (not safe)) - (##cdr _%e160253160507%_))) - (_%hd160254160510%_ + (##cdr _%e160290160544%_))) + (_%hd160291160547%_ (let () (declare (not safe)) - (##car _%e160253160507%_)))) + (##car _%e160290160544%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160255160512%_)) - (let ((_%e160256160515%_ + (gx#stx-pair? _%tl160292160549%_)) + (let ((_%e160293160552%_ (let () (declare (not safe)) - (gx#stx-e _%tl160255160512%_)))) - (let ((_%tl160258160520%_ + (gx#stx-e _%tl160292160549%_)))) + (let ((_%tl160295160557%_ (let () (declare (not safe)) - (##cdr _%e160256160515%_))) - (_%hd160257160518%_ + (##cdr _%e160293160552%_))) + (_%hd160294160555%_ (let () (declare (not safe)) - (##car _%e160256160515%_)))) + (##car _%e160293160552%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd160257160518%_)) - (let ((_%e160259160523%_ + (gx#stx-pair? _%hd160294160555%_)) + (let ((_%e160296160560%_ (let () (declare (not safe)) - (gx#stx-e _%hd160257160518%_)))) - (let ((_%tl160261160528%_ + (gx#stx-e _%hd160294160555%_)))) + (let ((_%tl160298160565%_ (let () (declare (not safe)) - (##cdr _%e160259160523%_))) - (_%hd160260160526%_ + (##cdr _%e160296160560%_))) + (_%hd160297160563%_ (let () (declare (not safe)) - (##car _%e160259160523%_)))) + (##car _%e160296160560%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160260160526%_)) + _%hd160297160563%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd160260160526%_)) + _%hd160297160563%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160261160528%_)) - (let ((_%e160262160531%_ + _%tl160298160565%_)) + (let ((_%e160299160568%_ (let () (declare (not safe)) (gx#stx-e - _%tl160261160528%_)))) - (let ((_%tl160264160536%_ + _%tl160298160565%_)))) + (let ((_%tl160301160573%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160262160531%_))) - (_%hd160263160534%_ - (let () (declare (not safe)) (##car _%e160262160531%_)))) + (##cdr _%e160299160568%_))) + (_%hd160300160571%_ + (let () (declare (not safe)) (##car _%e160299160568%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd160263160534%_)) - (let ((_%e160265160539%_ + (gx#stx-pair? _%hd160300160571%_)) + (let ((_%e160302160576%_ (let () (declare (not safe)) - (gx#stx-e _%hd160263160534%_)))) - (let ((_%tl160267160544%_ + (gx#stx-e _%hd160300160571%_)))) + (let ((_%tl160304160581%_ (let () (declare (not safe)) - (##cdr _%e160265160539%_))) - (_%hd160266160542%_ + (##cdr _%e160302160576%_))) + (_%hd160303160579%_ (let () (declare (not safe)) - (##car _%e160265160539%_)))) + (##car _%e160302160576%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd160266160542%_)) + (gx#identifier? _%hd160303160579%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd160266160542%_)) + (gx#stx-eq? '%#ref _%hd160303160579%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160267160544%_)) - (let ((_%e160268160547%_ + (gx#stx-pair? _%tl160304160581%_)) + (let ((_%e160305160584%_ (let () (declare (not safe)) - (gx#stx-e _%tl160267160544%_)))) - (let ((_%tl160270160552%_ + (gx#stx-e _%tl160304160581%_)))) + (let ((_%tl160307160589%_ (let () (declare (not safe)) - (##cdr _%e160268160547%_))) - (_%hd160269160550%_ + (##cdr _%e160305160584%_))) + (_%hd160306160587%_ (let () (declare (not safe)) - (##car _%e160268160547%_)))) + (##car _%e160305160584%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160270160552%_)) + _%tl160307160589%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160264160536%_)) - (let ((_%e160271160555%_ + _%tl160301160573%_)) + (let ((_%e160308160592%_ (let () (declare (not safe)) (gx#stx-e - _%tl160264160536%_)))) - (let ((_%tl160273160560%_ + _%tl160301160573%_)))) + (let ((_%tl160310160597%_ (let () (declare (not safe)) - (##cdr _%e160271160555%_))) - (_%hd160272160558%_ + (##cdr _%e160308160592%_))) + (_%hd160309160595%_ (let () (declare (not safe)) - (##car _%e160271160555%_)))) + (##car _%e160308160592%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160272160558%_)) - (let ((_%e160274160563%_ + _%hd160309160595%_)) + (let ((_%e160311160600%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd160272160558%_)))) - (let ((_%tl160276160568%_ + (gx#stx-e _%hd160309160595%_)))) + (let ((_%tl160313160605%_ (let () (declare (not safe)) - (##cdr _%e160274160563%_))) - (_%hd160275160566%_ + (##cdr _%e160311160600%_))) + (_%hd160312160603%_ (let () (declare (not safe)) - (##car _%e160274160563%_)))) + (##car _%e160311160600%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd160275160566%_)) + (gx#identifier? _%hd160312160603%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd160275160566%_)) + (gx#stx-eq? '%#ref _%hd160312160603%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160276160568%_)) - (let ((_%e160277160571%_ + (gx#stx-pair? _%tl160313160605%_)) + (let ((_%e160314160608%_ (let () (declare (not safe)) - (gx#stx-e _%tl160276160568%_)))) - (let ((_%tl160279160576%_ + (gx#stx-e _%tl160313160605%_)))) + (let ((_%tl160316160613%_ (let () (declare (not safe)) - (##cdr _%e160277160571%_))) - (_%hd160278160574%_ + (##cdr _%e160314160608%_))) + (_%hd160315160611%_ (let () (declare (not safe)) - (##car _%e160277160571%_)))) + (##car _%e160314160608%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160279160576%_)) + (gx#stx-null? _%tl160316160613%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160273160560%_)) + _%tl160310160597%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160258160520%_)) - (let ((_%e160280160579%_ + _%tl160295160557%_)) + (let ((_%e160317160616%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160282160584%_ + _%tl160295160557%_)))) + (let ((_%tl160319160621%_ (let () (declare (not safe)) - (##cdr _%e160280160579%_))) - (_%hd160281160582%_ + (##cdr _%e160317160616%_))) + (_%hd160318160619%_ (let () (declare (not safe)) - (##car _%e160280160579%_)))) + (##car _%e160317160616%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160282160584%_)) - (let ((_%e160283160587%_ + _%tl160319160621%_)) + (let ((_%e160320160624%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160282160584%_)))) - (let ((_%tl160285160592%_ + (gx#stx-e _%tl160319160621%_)))) + (let ((_%tl160322160629%_ (let () (declare (not safe)) - (##cdr _%e160283160587%_))) - (_%hd160284160590%_ + (##cdr _%e160320160624%_))) + (_%hd160321160627%_ (let () (declare (not safe)) - (##car _%e160283160587%_)))) + (##car _%e160320160624%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160285160592%_)) - (_%__kont169391169392%_ - _%hd160284160590%_ - _%hd160281160582%_ - _%hd160278160574%_ - _%hd160269160550%_) - (let () (declare (not safe)) (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))))) + (gx#stx-null? _%tl160322160629%_)) + (_%__kont169428169429%_ + _%hd160321160627%_ + _%hd160318160619%_ + _%hd160315160611%_ + _%hd160306160587%_) + (let () (declare (not safe)) (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160247160336%_))) + (_%g160284160373%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160258160520%_)) - (let ((_%e160326160357%_ + _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160328160362%_)) - (let ((_%e160329160365%_ + _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + (gx#stx-e _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) - (let () (declare (not safe)) (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))))) + (gx#stx-null? _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) + (let () (declare (not safe)) (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160247160336%_)))) + (_%g160284160373%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160273160560%_)) + _%tl160310160597%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160258160520%_)) - (let ((_%e160311160455%_ + _%tl160295160557%_)) + (let ((_%e160348160492%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160313160460%_ + _%tl160295160557%_)))) + (let ((_%tl160350160497%_ (let () (declare (not safe)) - (##cdr _%e160311160455%_))) - (_%hd160312160458%_ + (##cdr _%e160348160492%_))) + (_%hd160349160495%_ (let () (declare (not safe)) - (##car _%e160311160455%_)))) + (##car _%e160348160492%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160313160460%_)) - (let ((_%e160314160463%_ + _%tl160350160497%_)) + (let ((_%e160351160500%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160313160460%_)))) - (let ((_%tl160316160468%_ + (gx#stx-e _%tl160350160497%_)))) + (let ((_%tl160353160505%_ (let () (declare (not safe)) - (##cdr _%e160314160463%_))) - (_%hd160315160466%_ + (##cdr _%e160351160500%_))) + (_%hd160352160503%_ (let () (declare (not safe)) - (##car _%e160314160463%_)))) + (##car _%e160351160500%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160316160468%_)) - (_%__match169550169551%_ - _%e160253160507%_ - _%hd160254160510%_ - _%tl160255160512%_ - _%e160256160515%_ - _%hd160257160518%_ - _%tl160258160520%_ - _%e160259160523%_ - _%hd160260160526%_ - _%tl160261160528%_ - _%e160262160531%_ - _%hd160263160534%_ - _%tl160264160536%_ - _%e160265160539%_ - _%hd160266160542%_ - _%tl160267160544%_ - _%e160268160547%_ - _%hd160269160550%_ - _%tl160270160552%_ - _%e160271160555%_ - _%hd160272160558%_ - _%tl160273160560%_ - _%e160311160455%_ - _%hd160312160458%_ - _%tl160313160460%_ - _%e160314160463%_ - _%hd160315160466%_ - _%tl160316160468%_) - (let () (declare (not safe)) (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))))) + (gx#stx-null? _%tl160353160505%_)) + (_%__match169587169588%_ + _%e160290160544%_ + _%hd160291160547%_ + _%tl160292160549%_ + _%e160293160552%_ + _%hd160294160555%_ + _%tl160295160557%_ + _%e160296160560%_ + _%hd160297160563%_ + _%tl160298160565%_ + _%e160299160568%_ + _%hd160300160571%_ + _%tl160301160573%_ + _%e160302160576%_ + _%hd160303160579%_ + _%tl160304160581%_ + _%e160305160584%_ + _%hd160306160587%_ + _%tl160307160589%_ + _%e160308160592%_ + _%hd160309160595%_ + _%tl160310160597%_ + _%e160348160492%_ + _%hd160349160495%_ + _%tl160350160497%_ + _%e160351160500%_ + _%hd160352160503%_ + _%tl160353160505%_) + (let () (declare (not safe)) (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160247160336%_))) + (_%g160284160373%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160258160520%_)) - (let ((_%e160326160357%_ + _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160328160362%_)) - (let ((_%e160329160365%_ + _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + (gx#stx-e _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) - (let () (declare (not safe)) (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))))) + (gx#stx-null? _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) + (let () (declare (not safe)) (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160247160336%_))))))) + (_%g160284160373%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160273160560%_)) + (gx#stx-null? _%tl160310160597%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160311160455%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160348160492%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160313160460%_ + _%tl160295160557%_)))) + (let ((_%tl160350160497%_ (let () (declare (not safe)) - (##cdr _%e160311160455%_))) - (_%hd160312160458%_ + (##cdr _%e160348160492%_))) + (_%hd160349160495%_ (let () (declare (not safe)) - (##car _%e160311160455%_)))) + (##car _%e160348160492%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160313160460%_)) - (let ((_%e160314160463%_ + _%tl160350160497%_)) + (let ((_%e160351160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160313160460%_)))) - (let ((_%tl160316160468%_ + _%tl160350160497%_)))) + (let ((_%tl160353160505%_ (let () (declare (not safe)) - (##cdr _%e160314160463%_))) - (_%hd160315160466%_ + (##cdr _%e160351160500%_))) + (_%hd160352160503%_ (let () (declare (not safe)) - (##car _%e160314160463%_)))) + (##car _%e160351160500%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160316160468%_)) - (_%__match169550169551%_ - _%e160253160507%_ - _%hd160254160510%_ - _%tl160255160512%_ - _%e160256160515%_ - _%hd160257160518%_ - _%tl160258160520%_ - _%e160259160523%_ - _%hd160260160526%_ - _%tl160261160528%_ - _%e160262160531%_ - _%hd160263160534%_ - _%tl160264160536%_ - _%e160265160539%_ - _%hd160266160542%_ - _%tl160267160544%_ - _%e160268160547%_ - _%hd160269160550%_ - _%tl160270160552%_ - _%e160271160555%_ - _%hd160272160558%_ - _%tl160273160560%_ - _%e160311160455%_ - _%hd160312160458%_ - _%tl160313160460%_ - _%e160314160463%_ - _%hd160315160466%_ - _%tl160316160468%_) + _%tl160353160505%_)) + (_%__match169587169588%_ + _%e160290160544%_ + _%hd160291160547%_ + _%tl160292160549%_ + _%e160293160552%_ + _%hd160294160555%_ + _%tl160295160557%_ + _%e160296160560%_ + _%hd160297160563%_ + _%tl160298160565%_ + _%e160299160568%_ + _%hd160300160571%_ + _%tl160301160573%_ + _%e160302160576%_ + _%hd160303160579%_ + _%tl160304160581%_ + _%e160305160584%_ + _%hd160306160587%_ + _%tl160307160589%_ + _%e160308160592%_ + _%hd160309160595%_ + _%tl160310160597%_ + _%e160348160492%_ + _%hd160349160495%_ + _%tl160350160497%_ + _%e160351160500%_ + _%hd160352160503%_ + _%tl160353160505%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))) + (_%g160284160373%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160326160357%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160328160362%_)) - (let ((_%e160329160365%_ + _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) (gx#stx-e - _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160273160560%_)) + (gx#stx-null? _%tl160310160597%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160311160455%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160348160492%_ (let () (declare (not safe)) - (gx#stx-e _%tl160258160520%_)))) - (let ((_%tl160313160460%_ + (gx#stx-e _%tl160295160557%_)))) + (let ((_%tl160350160497%_ (let () (declare (not safe)) - (##cdr _%e160311160455%_))) - (_%hd160312160458%_ + (##cdr _%e160348160492%_))) + (_%hd160349160495%_ (let () (declare (not safe)) - (##car _%e160311160455%_)))) + (##car _%e160348160492%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160313160460%_)) - (let ((_%e160314160463%_ + _%tl160350160497%_)) + (let ((_%e160351160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160313160460%_)))) - (let ((_%tl160316160468%_ + _%tl160350160497%_)))) + (let ((_%tl160353160505%_ (let () (declare (not safe)) - (##cdr _%e160314160463%_))) - (_%hd160315160466%_ + (##cdr _%e160351160500%_))) + (_%hd160352160503%_ (let () (declare (not safe)) - (##car _%e160314160463%_)))) + (##car _%e160351160500%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160316160468%_)) - (_%__match169550169551%_ - _%e160253160507%_ - _%hd160254160510%_ - _%tl160255160512%_ - _%e160256160515%_ - _%hd160257160518%_ - _%tl160258160520%_ - _%e160259160523%_ - _%hd160260160526%_ - _%tl160261160528%_ - _%e160262160531%_ - _%hd160263160534%_ - _%tl160264160536%_ - _%e160265160539%_ - _%hd160266160542%_ - _%tl160267160544%_ - _%e160268160547%_ - _%hd160269160550%_ - _%tl160270160552%_ - _%e160271160555%_ - _%hd160272160558%_ - _%tl160273160560%_ - _%e160311160455%_ - _%hd160312160458%_ - _%tl160313160460%_ - _%e160314160463%_ - _%hd160315160466%_ - _%tl160316160468%_) + _%tl160353160505%_)) + (_%__match169587169588%_ + _%e160290160544%_ + _%hd160291160547%_ + _%tl160292160549%_ + _%e160293160552%_ + _%hd160294160555%_ + _%tl160295160557%_ + _%e160296160560%_ + _%hd160297160563%_ + _%tl160298160565%_ + _%e160299160568%_ + _%hd160300160571%_ + _%tl160301160573%_ + _%e160302160576%_ + _%hd160303160579%_ + _%tl160304160581%_ + _%e160305160584%_ + _%hd160306160587%_ + _%tl160307160589%_ + _%e160308160592%_ + _%hd160309160595%_ + _%tl160310160597%_ + _%e160348160492%_ + _%hd160349160495%_ + _%tl160350160497%_ + _%e160351160500%_ + _%hd160352160503%_ + _%tl160353160505%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))) + (_%g160284160373%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160326160357%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) - (gx#stx-e _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + (gx#stx-e _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160328160362%_)) - (let ((_%e160329160365%_ + _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) (gx#stx-e - _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160273160560%_)) + (gx#stx-null? _%tl160310160597%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160311160455%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160348160492%_ (let () (declare (not safe)) - (gx#stx-e _%tl160258160520%_)))) - (let ((_%tl160313160460%_ + (gx#stx-e _%tl160295160557%_)))) + (let ((_%tl160350160497%_ (let () (declare (not safe)) - (##cdr _%e160311160455%_))) - (_%hd160312160458%_ + (##cdr _%e160348160492%_))) + (_%hd160349160495%_ (let () (declare (not safe)) - (##car _%e160311160455%_)))) + (##car _%e160348160492%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160313160460%_)) - (let ((_%e160314160463%_ + (gx#stx-pair? _%tl160350160497%_)) + (let ((_%e160351160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160313160460%_)))) - (let ((_%tl160316160468%_ + _%tl160350160497%_)))) + (let ((_%tl160353160505%_ (let () (declare (not safe)) - (##cdr _%e160314160463%_))) - (_%hd160315160466%_ + (##cdr _%e160351160500%_))) + (_%hd160352160503%_ (let () (declare (not safe)) - (##car _%e160314160463%_)))) + (##car _%e160351160500%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160316160468%_)) - (_%__match169550169551%_ - _%e160253160507%_ - _%hd160254160510%_ - _%tl160255160512%_ - _%e160256160515%_ - _%hd160257160518%_ - _%tl160258160520%_ - _%e160259160523%_ - _%hd160260160526%_ - _%tl160261160528%_ - _%e160262160531%_ - _%hd160263160534%_ - _%tl160264160536%_ - _%e160265160539%_ - _%hd160266160542%_ - _%tl160267160544%_ - _%e160268160547%_ - _%hd160269160550%_ - _%tl160270160552%_ - _%e160271160555%_ - _%hd160272160558%_ - _%tl160273160560%_ - _%e160311160455%_ - _%hd160312160458%_ - _%tl160313160460%_ - _%e160314160463%_ - _%hd160315160466%_ - _%tl160316160468%_) + _%tl160353160505%_)) + (_%__match169587169588%_ + _%e160290160544%_ + _%hd160291160547%_ + _%tl160292160549%_ + _%e160293160552%_ + _%hd160294160555%_ + _%tl160295160557%_ + _%e160296160560%_ + _%hd160297160563%_ + _%tl160298160565%_ + _%e160299160568%_ + _%hd160300160571%_ + _%tl160301160573%_ + _%e160302160576%_ + _%hd160303160579%_ + _%tl160304160581%_ + _%e160305160584%_ + _%hd160306160587%_ + _%tl160307160589%_ + _%e160308160592%_ + _%hd160309160595%_ + _%tl160310160597%_ + _%e160348160492%_ + _%hd160349160495%_ + _%tl160350160497%_ + _%e160351160500%_ + _%hd160352160503%_ + _%tl160353160505%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))) + (_%g160284160373%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160326160357%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) - (gx#stx-e _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + (gx#stx-e _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160328160362%_)) - (let ((_%e160329160365%_ + (gx#stx-pair? _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) (gx#stx-e - _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))))) + (_%g160284160373%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160273160560%_)) + (gx#stx-null? _%tl160310160597%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160311160455%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160348160492%_ (let () (declare (not safe)) - (gx#stx-e _%tl160258160520%_)))) - (let ((_%tl160313160460%_ + (gx#stx-e _%tl160295160557%_)))) + (let ((_%tl160350160497%_ (let () (declare (not safe)) - (##cdr _%e160311160455%_))) - (_%hd160312160458%_ + (##cdr _%e160348160492%_))) + (_%hd160349160495%_ (let () (declare (not safe)) - (##car _%e160311160455%_)))) + (##car _%e160348160492%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160313160460%_)) - (let ((_%e160314160463%_ + (gx#stx-pair? _%tl160350160497%_)) + (let ((_%e160351160500%_ (let () (declare (not safe)) - (gx#stx-e _%tl160313160460%_)))) - (let ((_%tl160316160468%_ + (gx#stx-e _%tl160350160497%_)))) + (let ((_%tl160353160505%_ (let () (declare (not safe)) - (##cdr _%e160314160463%_))) - (_%hd160315160466%_ + (##cdr _%e160351160500%_))) + (_%hd160352160503%_ (let () (declare (not safe)) - (##car _%e160314160463%_)))) + (##car _%e160351160500%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160316160468%_)) - (_%__match169550169551%_ - _%e160253160507%_ - _%hd160254160510%_ - _%tl160255160512%_ - _%e160256160515%_ - _%hd160257160518%_ - _%tl160258160520%_ - _%e160259160523%_ - _%hd160260160526%_ - _%tl160261160528%_ - _%e160262160531%_ - _%hd160263160534%_ - _%tl160264160536%_ - _%e160265160539%_ - _%hd160266160542%_ - _%tl160267160544%_ - _%e160268160547%_ - _%hd160269160550%_ - _%tl160270160552%_ - _%e160271160555%_ - _%hd160272160558%_ - _%tl160273160560%_ - _%e160311160455%_ - _%hd160312160458%_ - _%tl160313160460%_ - _%e160314160463%_ - _%hd160315160466%_ - _%tl160316160468%_) + (gx#stx-null? _%tl160353160505%_)) + (_%__match169587169588%_ + _%e160290160544%_ + _%hd160291160547%_ + _%tl160292160549%_ + _%e160293160552%_ + _%hd160294160555%_ + _%tl160295160557%_ + _%e160296160560%_ + _%hd160297160563%_ + _%tl160298160565%_ + _%e160299160568%_ + _%hd160300160571%_ + _%tl160301160573%_ + _%e160302160576%_ + _%hd160303160579%_ + _%tl160304160581%_ + _%e160305160584%_ + _%hd160306160587%_ + _%tl160307160589%_ + _%e160308160592%_ + _%hd160309160595%_ + _%tl160310160597%_ + _%e160348160492%_ + _%hd160349160495%_ + _%tl160350160497%_ + _%e160351160500%_ + _%hd160352160503%_ + _%tl160353160505%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))) + (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160326160357%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) - (gx#stx-e _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + (gx#stx-e _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160328160362%_)) - (let ((_%e160329160365%_ + (gx#stx-pair? _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) - (gx#stx-e _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + (gx#stx-e _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + (gx#stx-null? _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))))))) + (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160258160520%_)) - (let ((_%e160326160357%_ + _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ - (let () (declare (not safe)) (##car _%e160326160357%_)))) + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ + (let () (declare (not safe)) (##car _%e160363160394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160328160362%_)) - (let ((_%e160329160365%_ + (gx#stx-pair? _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) - (gx#stx-e _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + (gx#stx-e _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + (gx#stx-null? _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))))) + (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160247160336%_)))) + (_%g160284160373%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160258160520%_)) - (let ((_%e160326160357%_ + _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160328160362%_)) - (let ((_%e160329160365%_ + _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + (gx#stx-e _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) - (let () (declare (not safe)) (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))))) + (gx#stx-null? _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) + (let () (declare (not safe)) (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160247160336%_)))))) + (_%g160284160373%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160326160357%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160328160362%_)) - (let ((_%e160329160365%_ + _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) (gx#stx-e - _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_)))) + (_%g160284160373%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160326160357%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) - (gx#stx-e _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + (gx#stx-e _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160328160362%_)) - (let ((_%e160329160365%_ + _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) (gx#stx-e - _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_)))) + (_%g160284160373%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160326160357%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) - (gx#stx-e _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + (gx#stx-e _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160328160362%_)) - (let ((_%e160329160365%_ + (gx#stx-pair? _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) (gx#stx-e - _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_)))))) + (_%g160284160373%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160326160357%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) - (gx#stx-e _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + (gx#stx-e _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160328160362%_)) - (let ((_%e160329160365%_ + (gx#stx-pair? _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) - (gx#stx-e _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + (gx#stx-e _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + (gx#stx-null? _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_)))))) + (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160258160520%_)) - (let ((_%e160326160357%_ + _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + (gx#stx-e _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160328160362%_)) - (let ((_%e160329160365%_ + (gx#stx-pair? _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) - (gx#stx-e _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + (gx#stx-e _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + (gx#stx-null? _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_)))) + (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160258160520%_)) - (let ((_%e160326160357%_ + _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ - (let () (declare (not safe)) (##car _%e160326160357%_)))) + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ + (let () (declare (not safe)) (##car _%e160363160394%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160328160362%_)) - (let ((_%e160329160365%_ + (gx#stx-pair? _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) - (gx#stx-e _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + (gx#stx-e _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + (gx#stx-null? _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))))) + (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160247160336%_)))) + (_%g160284160373%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160258160520%_)) - (let ((_%e160326160357%_ + _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160328160362%_)) - (let ((_%e160329160365%_ + _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + (gx#stx-e _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) - (let () (declare (not safe)) (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))))) + (gx#stx-null? _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) + (let () (declare (not safe)) (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160247160336%_)))))) + (_%g160284160373%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160258160520%_)) - (let ((_%e160326160357%_ + (gx#stx-pair? _%tl160295160557%_)) + (let ((_%e160363160394%_ (let () (declare (not safe)) (gx#stx-e - _%tl160258160520%_)))) - (let ((_%tl160328160362%_ + _%tl160295160557%_)))) + (let ((_%tl160365160399%_ (let () (declare (not safe)) - (##cdr _%e160326160357%_))) - (_%hd160327160360%_ + (##cdr _%e160363160394%_))) + (_%hd160364160397%_ (let () (declare (not safe)) - (##car _%e160326160357%_)))) + (##car _%e160363160394%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160328160362%_)) - (let ((_%e160329160365%_ + _%tl160365160399%_)) + (let ((_%e160366160402%_ (let () (declare (not safe)) (gx#stx-e - _%tl160328160362%_)))) - (let ((_%tl160331160370%_ + _%tl160365160399%_)))) + (let ((_%tl160368160407%_ (let () (declare (not safe)) - (##cdr _%e160329160365%_))) - (_%hd160330160368%_ + (##cdr _%e160366160402%_))) + (_%hd160367160405%_ (let () (declare (not safe)) - (##car _%e160329160365%_)))) + (##car _%e160366160402%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160331160370%_)) - (_%__kont169395169396%_ - _%hd160330160368%_ - _%hd160327160360%_ - _%hd160257160518%_) + _%tl160368160407%_)) + (_%__kont169432169433%_ + _%hd160367160405%_ + _%hd160364160397%_ + _%hd160294160555%_) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_))))) + (_%g160284160373%_))))) (let () (declare (not safe)) - (_%g160247160336%_)))))) + (_%g160284160373%_)))))) (let () (declare (not safe)) - (_%g160247160336%_))))) - (let () (declare (not safe)) (_%g160247160336%_))))))))) + (_%g160284160373%_))))) + (let () (declare (not safe)) (_%g160284160373%_))))))))) (define gxc#greatest-common-type - (lambda (_%stx160095%_ _%type-a160096%_ _%type-b160097%_) - (letrec ((_%common-e160099%_ - (lambda (_%left160199%_ _%right160200%_) - (let _%loop160202%_ ((_%rest160204%_ _%left160199%_)) - (let* ((_%rest160205160213%_ _%rest160204%_) - (_%else160207160221%_ + (lambda (_%stx160132%_ _%type-a160133%_ _%type-b160134%_) + (letrec ((_%common-e160136%_ + (lambda (_%left160236%_ _%right160237%_) + (let _%loop160239%_ ((_%rest160241%_ _%left160236%_)) + (let* ((_%rest160242160250%_ _%rest160241%_) + (_%else160244160258%_ (lambda () (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160095%_ + _%stx160132%_ 't::t)))) - (_%K160209160227%_ - (lambda (_%rest160224%_ _%klass-name160225%_) - (if (memq _%klass-name160225%_ _%right160200%_) + (_%K160246160264%_ + (lambda (_%rest160261%_ _%klass-name160262%_) + (if (memq _%klass-name160262%_ _%right160237%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160095%_ - _%klass-name160225%_)) - (_%loop160202%_ _%rest160224%_))))) - (if (pair? _%rest160205160213%_) - (let ((_%hd160210160230%_ + _%stx160132%_ + _%klass-name160262%_)) + (_%loop160239%_ _%rest160261%_))))) + (if (pair? _%rest160242160250%_) + (let ((_%hd160247160267%_ (let () (declare (not safe)) - (##car _%rest160205160213%_))) - (_%tl160211160232%_ + (##car _%rest160242160250%_))) + (_%tl160248160269%_ (let () (declare (not safe)) - (##cdr _%rest160205160213%_)))) - (let* ((_%klass-name160235%_ _%hd160210160230%_) - (_%rest160237%_ _%tl160211160232%_)) - (_%K160209160227%_ - _%rest160237%_ - _%klass-name160235%_))) - (_%else160207160221%_)))))) - (_%common-tail160100%_ - (lambda (_%precedence-list-a160119%_ - _%precedence-list-b160120%_) - (let* ((_%rev-precedence-list-a160122%_ - (reverse _%precedence-list-a160119%_)) - (_%rev-precedence-list-b160124%_ - (reverse _%precedence-list-b160120%_))) - (let _%loop160127%_ ((_%rest-a160129%_ - _%rev-precedence-list-a160122%_) - (_%rest-b160130%_ - _%rev-precedence-list-b160124%_) - (_%result160131%_ '#f)) - (let* ((_%rest-a160132160140%_ _%rest-a160129%_) - (_%else160134160148%_ + (##cdr _%rest160242160250%_)))) + (let* ((_%klass-name160272%_ _%hd160247160267%_) + (_%rest160274%_ _%tl160248160269%_)) + (_%K160246160264%_ + _%rest160274%_ + _%klass-name160272%_))) + (_%else160244160258%_)))))) + (_%common-tail160137%_ + (lambda (_%precedence-list-a160156%_ + _%precedence-list-b160157%_) + (let* ((_%rev-precedence-list-a160159%_ + (reverse _%precedence-list-a160156%_)) + (_%rev-precedence-list-b160161%_ + (reverse _%precedence-list-b160157%_))) + (let _%loop160164%_ ((_%rest-a160166%_ + _%rev-precedence-list-a160159%_) + (_%rest-b160167%_ + _%rev-precedence-list-b160161%_) + (_%result160168%_ '#f)) + (let* ((_%rest-a160169160177%_ _%rest-a160166%_) + (_%else160171160185%_ (lambda () - (if _%result160131%_ + (if _%result160168%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160095%_ - _%result160131%_)) + _%stx160132%_ + _%result160168%_)) '#f))) - (_%K160136160187%_ - (lambda (_%rest-a160151%_ _%super-a160152%_) - (let* ((_%rest-b160153160161%_ - _%rest-b160130%_) - (_%else160155160169%_ + (_%K160173160224%_ + (lambda (_%rest-a160188%_ _%super-a160189%_) + (let* ((_%rest-b160190160198%_ + _%rest-b160167%_) + (_%else160192160206%_ (lambda () - (if _%result160131%_ + (if _%result160168%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160095%_ - _%result160131%_)) + _%stx160132%_ + _%result160168%_)) '#f))) - (_%K160157160175%_ - (lambda (_%rest-b160172%_ - _%super-b160173%_) - (if (eq? _%super-a160152%_ - _%super-b160173%_) - (_%loop160127%_ - _%rest-a160151%_ - _%rest-b160172%_ - _%super-a160152%_) - (if _%result160131%_ + (_%K160194160212%_ + (lambda (_%rest-b160209%_ + _%super-b160210%_) + (if (eq? _%super-a160189%_ + _%super-b160210%_) + (_%loop160164%_ + _%rest-a160188%_ + _%rest-b160209%_ + _%super-a160189%_) + (if _%result160168%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160095%_ - _%result160131%_)) + _%stx160132%_ + _%result160168%_)) '#f))))) - (if (pair? _%rest-b160153160161%_) - (let ((_%hd160158160178%_ + (if (pair? _%rest-b160190160198%_) + (let ((_%hd160195160215%_ (let () (declare (not safe)) - (##car _%rest-b160153160161%_))) - (_%tl160159160180%_ + (##car _%rest-b160190160198%_))) + (_%tl160196160217%_ (let () (declare (not safe)) - (##cdr _%rest-b160153160161%_)))) - (let* ((_%super-b160183%_ - _%hd160158160178%_) - (_%rest-b160185%_ - _%tl160159160180%_)) - (_%K160157160175%_ - _%rest-b160185%_ - _%super-b160183%_))) - (_%else160155160169%_)))))) - (if (pair? _%rest-a160132160140%_) - (let ((_%hd160137160190%_ + (##cdr _%rest-b160190160198%_)))) + (let* ((_%super-b160220%_ + _%hd160195160215%_) + (_%rest-b160222%_ + _%tl160196160217%_)) + (_%K160194160212%_ + _%rest-b160222%_ + _%super-b160220%_))) + (_%else160192160206%_)))))) + (if (pair? _%rest-a160169160177%_) + (let ((_%hd160174160227%_ (let () (declare (not safe)) - (##car _%rest-a160132160140%_))) - (_%tl160138160192%_ + (##car _%rest-a160169160177%_))) + (_%tl160175160229%_ (let () (declare (not safe)) - (##cdr _%rest-a160132160140%_)))) - (let* ((_%super-a160195%_ _%hd160137160190%_) - (_%rest-a160197%_ _%tl160138160192%_)) - (_%K160136160187%_ - _%rest-a160197%_ - _%super-a160195%_))) - (_%else160134160148%_)))))))) - (if (or (not _%type-a160096%_) (not _%type-b160097%_)) + (##cdr _%rest-a160169160177%_)))) + (let* ((_%super-a160232%_ _%hd160174160227%_) + (_%rest-a160234%_ _%tl160175160229%_)) + (_%K160173160224%_ + _%rest-a160234%_ + _%super-a160232%_))) + (_%else160171160185%_)))))))) + (if (or (not _%type-a160133%_) (not _%type-b160134%_)) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160095%_ 't::t)) + (gxc#optimizer-resolve-class _%stx160132%_ 't::t)) (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-a160096%_ _%type-b160097%_)) - _%type-b160097%_ + (gxc#!type-subtype? _%type-a160133%_ _%type-b160134%_)) + _%type-b160134%_ (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-b160097%_ _%type-a160096%_)) - _%type-a160096%_ + (gxc#!type-subtype? _%type-b160134%_ _%type-a160133%_)) + _%type-a160133%_ (if (and (let () (declare (not safe)) (##structure-instance-of? - _%type-a160096%_ + _%type-a160133%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%type-b160097%_ + _%type-b160134%_ 'gxc#!class::t))) - (let* ((_%precedence-list-a160109%_ + (let* ((_%precedence-list-a160146%_ (##structure-ref - _%type-a160096%_ + _%type-a160133%_ '3 gxc#!class::t '#f)) - (_%precedence-list-b160111%_ + (_%precedence-list-b160148%_ (##structure-ref - _%type-b160097%_ + _%type-b160134%_ '3 gxc#!class::t '#f))) - (if (> (length _%precedence-list-a160109%_) - (length _%precedence-list-b160111%_)) - (_%common-e160099%_ - _%precedence-list-b160111%_ - _%precedence-list-a160109%_) - (if (< (length _%precedence-list-a160109%_) - (length _%precedence-list-b160111%_)) - (_%common-e160099%_ - _%precedence-list-a160109%_ - _%precedence-list-b160111%_) - (_%common-tail160100%_ - _%precedence-list-a160109%_ - _%precedence-list-b160111%_)))) + (if (> (length _%precedence-list-a160146%_) + (length _%precedence-list-b160148%_)) + (_%common-e160136%_ + _%precedence-list-b160148%_ + _%precedence-list-a160146%_) + (if (< (length _%precedence-list-a160146%_) + (length _%precedence-list-b160148%_)) + (_%common-e160136%_ + _%precedence-list-a160146%_ + _%precedence-list-b160148%_) + (_%common-tail160137%_ + _%precedence-list-a160146%_ + _%precedence-list-b160148%_)))) (if (and (eq? (##structure-ref - _%type-a160096%_ + _%type-a160133%_ '1 gxc#!type::t '#f) 'procedure) (eq? (##structure-ref - _%type-b160097%_ + _%type-b160134%_ '1 gxc#!type::t '#f) @@ -14573,3419 +14573,3419 @@ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160095%_ + _%stx160132%_ 'procedure::t)) '#f)))))))) (define gxc#basic-expression-type-quote% - (lambda (_%self160007%_ _%stx160008%_) - (let* ((_%g160010160023%_ - (lambda (_%g160011160020%_) + (lambda (_%self160044%_ _%stx160045%_) + (let* ((_%g160047160060%_ + (lambda (_%g160048160057%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160011160020%_)))) - (_%g160009160092%_ - (lambda (_%g160011160026%_) + _%g160048160057%_)))) + (_%g160046160129%_ + (lambda (_%g160048160063%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160011160026%_)) - (let ((_%e160013160028%_ + (gx#stx-pair? _%g160048160063%_)) + (let ((_%e160050160065%_ (let () (declare (not safe)) - (gx#stx-e _%g160011160026%_)))) - (let ((_%hd160014160031%_ + (gx#stx-e _%g160048160063%_)))) + (let ((_%hd160051160068%_ (let () (declare (not safe)) - (##car _%e160013160028%_))) - (_%tl160015160033%_ + (##car _%e160050160065%_))) + (_%tl160052160070%_ (let () (declare (not safe)) - (##cdr _%e160013160028%_)))) + (##cdr _%e160050160065%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160015160033%_)) - (let ((_%e160016160036%_ + (gx#stx-pair? _%tl160052160070%_)) + (let ((_%e160053160073%_ (let () (declare (not safe)) - (gx#stx-e _%tl160015160033%_)))) - (let ((_%hd160017160039%_ + (gx#stx-e _%tl160052160070%_)))) + (let ((_%hd160054160076%_ (let () (declare (not safe)) - (##car _%e160016160036%_))) - (_%tl160018160041%_ + (##car _%e160053160073%_))) + (_%tl160055160078%_ (let () (declare (not safe)) - (##cdr _%e160016160036%_)))) + (##cdr _%e160053160073%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160018160041%_)) - ((lambda (_%L160044%_) - (let ((_%obj160056%_ + (gx#stx-null? _%tl160055160078%_)) + ((lambda (_%L160081%_) + (let ((_%obj160093%_ (let () (declare (not safe)) - (gx#stx-e _%L160044%_)))) + (gx#stx-e _%L160081%_)))) (if (let () (declare (not safe)) - (immediate? _%obj160056%_)) - (if (char? _%obj160056%_) + (immediate? _%obj160093%_)) + (if (char? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'char::t)) - (if (eq? _%obj160056%_ '#t) + (if (eq? _%obj160093%_ '#t) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'true::t)) - (if (not _%obj160056%_) + (if (not _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'false::t)) - (if (eq? _%obj160056%_ + (if (eq? _%obj160093%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160008%_ 'void::t)) - (if (eof-object? _%obj160056%_) + (gxc#optimizer-resolve-class _%stx160045%_ 'void::t)) + (if (eof-object? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'eof::t)) - (if (fixnum? _%obj160056%_) + (if (fixnum? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'fixnum::t)) - (if (null? _%obj160056%_) + (if (null? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'null::t)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'special::t))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (number? _%obj160056%_) - (if (flonum? _%obj160056%_) + (if (number? _%obj160093%_) + (if (flonum? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'flonum::t)) (if (let () (declare (not safe)) (##bignum? - _%obj160056%_)) + _%obj160093%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'bignum::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##ratnum? _%obj160056%_)) + (##ratnum? _%obj160093%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'ratnum::t)) (if (let () (declare (not safe)) - (##cpxnum? _%obj160056%_)) + (##cpxnum? _%obj160093%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'cpxnum::t)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (symbol? _%obj160056%_) + (if (symbol? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'symbol::t)) (if (keyword? - _%obj160056%_) + _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'keyword::t)) - (if (pair? _%obj160056%_) + (if (pair? _%obj160093%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160008%_ 'pair::t)) - (if (sequence? _%obj160056%_) - (if (vector? _%obj160056%_) + (gxc#optimizer-resolve-class _%stx160045%_ 'pair::t)) + (if (sequence? _%obj160093%_) + (if (vector? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'vector::t)) - (if (string? _%obj160056%_) + (if (string? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'string::t)) - (if (u8vector? _%obj160056%_) + (if (u8vector? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'u8vector::t)) - (if (s8vector? _%obj160056%_) + (if (s8vector? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 's8vector::t)) - (if (u16vector? _%obj160056%_) + (if (u16vector? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'u16vector::t)) - (if (s16vector? _%obj160056%_) + (if (s16vector? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 's16vector::t)) (if (u32vector? - _%obj160056%_) + _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'u32vector::t)) (if (s32vector? - _%obj160056%_) + _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 's32vector::t)) (if (u64vector? - _%obj160056%_) + _%obj160093%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'u64vector::t)) - (if (s64vector? _%obj160056%_) + (if (s64vector? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 's64vector::t)) - (if (f32vector? _%obj160056%_) + (if (f32vector? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'f32vector::t)) - (if (f64vector? _%obj160056%_) + (if (f64vector? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'f64vector::t)) '#f)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (box? _%obj160056%_) + (if (box? _%obj160093%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160008%_ + _%stx160045%_ 'box::t)) '#f))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd160017160039%_) - (_%g160010160023%_ _%g160011160026%_)))) - (_%g160010160023%_ _%g160011160026%_)))) - (_%g160010160023%_ _%g160011160026%_))))) - (_%g160009160092%_ _%stx160008%_)))) + _%hd160054160076%_) + (_%g160047160060%_ _%g160048160063%_)))) + (_%g160047160060%_ _%g160048160063%_)))) + (_%g160047160060%_ _%g160048160063%_))))) + (_%g160046160129%_ _%stx160045%_)))) (define gxc#dispatch-lambda-form? - (lambda (_%form159241%_) - (let* ((_%__stx169579169580%_ _%form159241%_) - (_%g159246159403%_ + (lambda (_%form159278%_) + (let* ((_%__stx169616169617%_ _%form159278%_) + (_%g159283159440%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169579169580%_))))) - (let ((_%__kont169581169582%_ - (lambda (_%L159927%_ _%L159928%_ _%L159929%_) '#t)) - (_%__kont169587169588%_ - (lambda (_%L159715%_ - _%L159716%_ - _%L159717%_ - _%L159718%_ - _%L159719%_ - _%L159720%_) + _%__stx169616169617%_))))) + (let ((_%__kont169618169619%_ + (lambda (_%L159964%_ _%L159965%_ _%L159966%_) '#t)) + (_%__kont169624169625%_ + (lambda (_%L159752%_ + _%L159753%_ + _%L159754%_ + _%L159755%_ + _%L159756%_ + _%L159757%_) '#t)) - (_%__kont169593169594%_ - (lambda (_%L159511%_ _%L159512%_ _%L159513%_ _%L159514%_) + (_%__kont169630169631%_ + (lambda (_%L159548%_ _%L159549%_ _%L159550%_ _%L159551%_) '#t)) - (_%__kont169595169596%_ (lambda () '#f))) - (let* ((_%__match169720169721%_ - (lambda (_%e159363159415%_ - _%hd159364159418%_ - _%tl159365159420%_ - _%e159366159423%_ - _%hd159367159426%_ - _%tl159368159428%_ - _%e159369159431%_ - _%hd159370159434%_ - _%tl159371159436%_ - _%e159372159439%_ - _%hd159373159442%_ - _%tl159374159444%_ - _%e159375159447%_ - _%hd159376159450%_ - _%tl159377159452%_ - _%e159378159455%_ - _%hd159379159458%_ - _%tl159380159460%_ - _%e159381159463%_ - _%hd159382159466%_ - _%tl159383159468%_ - _%e159384159471%_ - _%hd159385159474%_ - _%tl159386159476%_ - _%e159387159479%_ - _%hd159388159482%_ - _%tl159389159484%_ - _%e159390159487%_ - _%hd159391159490%_ - _%tl159392159492%_ - _%e159393159495%_ - _%hd159394159498%_ - _%tl159395159500%_ - _%e159396159503%_ - _%hd159397159506%_ - _%tl159398159508%_) - (let ((_%L159511%_ _%hd159397159506%_) - (_%L159512%_ _%hd159388159482%_) - (_%L159513%_ _%hd159379159458%_) - (_%L159514%_ _%hd159364159418%_)) + (_%__kont169632169633%_ (lambda () '#f))) + (let* ((_%__match169757169758%_ + (lambda (_%e159400159452%_ + _%hd159401159455%_ + _%tl159402159457%_ + _%e159403159460%_ + _%hd159404159463%_ + _%tl159405159465%_ + _%e159406159468%_ + _%hd159407159471%_ + _%tl159408159473%_ + _%e159409159476%_ + _%hd159410159479%_ + _%tl159411159481%_ + _%e159412159484%_ + _%hd159413159487%_ + _%tl159414159489%_ + _%e159415159492%_ + _%hd159416159495%_ + _%tl159417159497%_ + _%e159418159500%_ + _%hd159419159503%_ + _%tl159420159505%_ + _%e159421159508%_ + _%hd159422159511%_ + _%tl159423159513%_ + _%e159424159516%_ + _%hd159425159519%_ + _%tl159426159521%_ + _%e159427159524%_ + _%hd159428159527%_ + _%tl159429159529%_ + _%e159430159532%_ + _%hd159431159535%_ + _%tl159432159537%_ + _%e159433159540%_ + _%hd159434159543%_ + _%tl159435159545%_) + (let ((_%L159548%_ _%hd159434159543%_) + (_%L159549%_ _%hd159425159519%_) + (_%L159550%_ _%hd159416159495%_) + (_%L159551%_ _%hd159401159455%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L159514%_)) + (gx#identifier? _%L159551%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L159513%_ + _%L159550%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L159514%_ - _%L159511%_)) + _%L159551%_ + _%L159548%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L159512%_ - _%L159514%_)))) - (_%__kont169593169594%_ - _%L159511%_ - _%L159512%_ - _%L159513%_ - _%L159514%_) - (_%__kont169595169596%_))))) - (_%__match169692169693%_ - (lambda (_%e159363159415%_ - _%hd159364159418%_ - _%tl159365159420%_ - _%e159366159423%_ - _%hd159367159426%_ - _%tl159368159428%_ - _%e159369159431%_ - _%hd159370159434%_ - _%tl159371159436%_ - _%e159372159439%_ - _%hd159373159442%_ - _%tl159374159444%_ - _%e159375159447%_ - _%hd159376159450%_ - _%tl159377159452%_ - _%e159378159455%_ - _%hd159379159458%_ - _%tl159380159460%_ - _%e159381159463%_ - _%hd159382159466%_ - _%tl159383159468%_ - _%e159384159471%_ - _%hd159385159474%_ - _%tl159386159476%_ - _%e159387159479%_ - _%hd159388159482%_ - _%tl159389159484%_) + _%L159549%_ + _%L159551%_)))) + (_%__kont169630169631%_ + _%L159548%_ + _%L159549%_ + _%L159550%_ + _%L159551%_) + (_%__kont169632169633%_))))) + (_%__match169729169730%_ + (lambda (_%e159400159452%_ + _%hd159401159455%_ + _%tl159402159457%_ + _%e159403159460%_ + _%hd159404159463%_ + _%tl159405159465%_ + _%e159406159468%_ + _%hd159407159471%_ + _%tl159408159473%_ + _%e159409159476%_ + _%hd159410159479%_ + _%tl159411159481%_ + _%e159412159484%_ + _%hd159413159487%_ + _%tl159414159489%_ + _%e159415159492%_ + _%hd159416159495%_ + _%tl159417159497%_ + _%e159418159500%_ + _%hd159419159503%_ + _%tl159420159505%_ + _%e159421159508%_ + _%hd159422159511%_ + _%tl159423159513%_ + _%e159424159516%_ + _%hd159425159519%_ + _%tl159426159521%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159383159468%_)) - (let ((_%e159390159487%_ + (gx#stx-pair? _%tl159420159505%_)) + (let ((_%e159427159524%_ (let () (declare (not safe)) - (gx#stx-e _%tl159383159468%_)))) - (let ((_%tl159392159492%_ + (gx#stx-e _%tl159420159505%_)))) + (let ((_%tl159429159529%_ (let () (declare (not safe)) - (##cdr _%e159390159487%_))) - (_%hd159391159490%_ + (##cdr _%e159427159524%_))) + (_%hd159428159527%_ (let () (declare (not safe)) - (##car _%e159390159487%_)))) + (##car _%e159427159524%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159391159490%_)) - (let ((_%e159393159495%_ + (gx#stx-pair? _%hd159428159527%_)) + (let ((_%e159430159532%_ (let () (declare (not safe)) - (gx#stx-e _%hd159391159490%_)))) - (let ((_%tl159395159500%_ + (gx#stx-e _%hd159428159527%_)))) + (let ((_%tl159432159537%_ (let () (declare (not safe)) - (##cdr _%e159393159495%_))) - (_%hd159394159498%_ + (##cdr _%e159430159532%_))) + (_%hd159431159535%_ (let () (declare (not safe)) - (##car _%e159393159495%_)))) + (##car _%e159430159532%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159394159498%_)) + _%hd159431159535%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159394159498%_)) + _%hd159431159535%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159395159500%_)) - (let ((_%e159396159503%_ + _%tl159432159537%_)) + (let ((_%e159433159540%_ (let () (declare (not safe)) (gx#stx-e - _%tl159395159500%_)))) - (let ((_%tl159398159508%_ + _%tl159432159537%_)))) + (let ((_%tl159435159545%_ (let () (declare (not safe)) - (##cdr _%e159396159503%_))) - (_%hd159397159506%_ + (##cdr _%e159433159540%_))) + (_%hd159434159543%_ (let () (declare (not safe)) - (##car _%e159396159503%_)))) + (##car _%e159433159540%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159398159508%_)) + _%tl159435159545%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl159392159492%_)) + (gx#stx-null? _%tl159429159529%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159368159428%_)) - (_%__match169720169721%_ - _%e159363159415%_ - _%hd159364159418%_ - _%tl159365159420%_ - _%e159366159423%_ - _%hd159367159426%_ - _%tl159368159428%_ - _%e159369159431%_ - _%hd159370159434%_ - _%tl159371159436%_ - _%e159372159439%_ - _%hd159373159442%_ - _%tl159374159444%_ - _%e159375159447%_ - _%hd159376159450%_ - _%tl159377159452%_ - _%e159378159455%_ - _%hd159379159458%_ - _%tl159380159460%_ - _%e159381159463%_ - _%hd159382159466%_ - _%tl159383159468%_ - _%e159384159471%_ - _%hd159385159474%_ - _%tl159386159476%_ - _%e159387159479%_ - _%hd159388159482%_ - _%tl159389159484%_ - _%e159390159487%_ - _%hd159391159490%_ - _%tl159392159492%_ - _%e159393159495%_ - _%hd159394159498%_ - _%tl159395159500%_ - _%e159396159503%_ - _%hd159397159506%_ - _%tl159398159508%_) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) + (gx#stx-null? _%tl159405159465%_)) + (_%__match169757169758%_ + _%e159400159452%_ + _%hd159401159455%_ + _%tl159402159457%_ + _%e159403159460%_ + _%hd159404159463%_ + _%tl159405159465%_ + _%e159406159468%_ + _%hd159407159471%_ + _%tl159408159473%_ + _%e159409159476%_ + _%hd159410159479%_ + _%tl159411159481%_ + _%e159412159484%_ + _%hd159413159487%_ + _%tl159414159489%_ + _%e159415159492%_ + _%hd159416159495%_ + _%tl159417159497%_ + _%e159418159500%_ + _%hd159419159503%_ + _%tl159420159505%_ + _%e159421159508%_ + _%hd159422159511%_ + _%tl159423159513%_ + _%e159424159516%_ + _%hd159425159519%_ + _%tl159426159521%_ + _%e159427159524%_ + _%hd159428159527%_ + _%tl159429159529%_ + _%e159430159532%_ + _%hd159431159535%_ + _%tl159432159537%_ + _%e159433159540%_ + _%hd159434159543%_ + _%tl159435159545%_) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169595169596%_)) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)))) - (_%__match169622169623%_ - (lambda (_%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%__splice169589169590%_ - _%target159302159563%_ - _%tl159304159565%_) - (letrec ((_%loop159305159568%_ - (lambda (_%hd159303159571%_ - _%arg159309159573%_) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)))) + (_%__match169659169660%_ + (lambda (_%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%__splice169626169627%_ + _%target159339159600%_ + _%tl159341159602%_) + (letrec ((_%loop159342159605%_ + (lambda (_%hd159340159608%_ + _%arg159346159610%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159303159571%_)) - (let ((_%e159306159576%_ + (gx#stx-pair? _%hd159340159608%_)) + (let ((_%e159343159613%_ (let () (declare (not safe)) - (gx#stx-e _%hd159303159571%_)))) - (let ((_%lp-tl159308159581%_ + (gx#stx-e _%hd159340159608%_)))) + (let ((_%lp-tl159345159618%_ (let () (declare (not safe)) - (##cdr _%e159306159576%_))) - (_%lp-hd159307159579%_ + (##cdr _%e159343159613%_))) + (_%lp-hd159344159616%_ (let () (declare (not safe)) - (##car _%e159306159576%_)))) - (_%loop159305159568%_ - _%lp-tl159308159581%_ - (cons _%lp-hd159307159579%_ - _%arg159309159573%_)))) - (let ((_%arg159310159584%_ - (reverse _%arg159309159573%_))) + (##car _%e159343159613%_)))) + (_%loop159342159605%_ + _%lp-tl159345159618%_ + (cons _%lp-hd159344159616%_ + _%arg159346159610%_)))) + (let ((_%arg159347159621%_ + (reverse _%arg159346159610%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159301159560%_)) - (let ((_%e159311159587%_ + _%tl159338159597%_)) + (let ((_%e159348159624%_ (let () (declare (not safe)) (gx#stx-e - _%tl159301159560%_)))) - (let ((_%tl159313159592%_ + _%tl159338159597%_)))) + (let ((_%tl159350159629%_ (let () (declare (not safe)) - (##cdr _%e159311159587%_))) - (_%hd159312159590%_ + (##cdr _%e159348159624%_))) + (_%hd159349159627%_ (let () (declare (not safe)) - (##car _%e159311159587%_)))) + (##car _%e159348159624%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159312159590%_)) - (let ((_%e159314159595%_ + _%hd159349159627%_)) + (let ((_%e159351159632%_ (let () (declare (not safe)) (gx#stx-e - _%hd159312159590%_)))) - (let ((_%tl159316159600%_ + _%hd159349159627%_)))) + (let ((_%tl159353159637%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159314159595%_))) - (_%hd159315159598%_ - (let () (declare (not safe)) (##car _%e159314159595%_)))) + (##cdr _%e159351159632%_))) + (_%hd159352159635%_ + (let () (declare (not safe)) (##car _%e159351159632%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159315159598%_)) + (gx#identifier? _%hd159352159635%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd159315159598%_)) + (gx#stx-eq? '%#call _%hd159352159635%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159316159600%_)) - (let ((_%e159317159603%_ + (gx#stx-pair? _%tl159353159637%_)) + (let ((_%e159354159640%_ (let () (declare (not safe)) - (gx#stx-e _%tl159316159600%_)))) - (let ((_%tl159319159608%_ + (gx#stx-e _%tl159353159637%_)))) + (let ((_%tl159356159645%_ (let () (declare (not safe)) - (##cdr _%e159317159603%_))) - (_%hd159318159606%_ + (##cdr _%e159354159640%_))) + (_%hd159355159643%_ (let () (declare (not safe)) - (##car _%e159317159603%_)))) + (##car _%e159354159640%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159318159606%_)) - (let ((_%e159320159611%_ + (gx#stx-pair? _%hd159355159643%_)) + (let ((_%e159357159648%_ (let () (declare (not safe)) - (gx#stx-e _%hd159318159606%_)))) - (let ((_%tl159322159616%_ + (gx#stx-e _%hd159355159643%_)))) + (let ((_%tl159359159653%_ (let () (declare (not safe)) - (##cdr _%e159320159611%_))) - (_%hd159321159614%_ + (##cdr _%e159357159648%_))) + (_%hd159358159651%_ (let () (declare (not safe)) - (##car _%e159320159611%_)))) + (##car _%e159357159648%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159321159614%_)) + _%hd159358159651%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159321159614%_)) + _%hd159358159651%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159322159616%_)) - (let ((_%e159323159619%_ + _%tl159359159653%_)) + (let ((_%e159360159656%_ (let () (declare (not safe)) (gx#stx-e - _%tl159322159616%_)))) - (let ((_%tl159325159624%_ + _%tl159359159653%_)))) + (let ((_%tl159362159661%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159323159619%_))) - (_%hd159324159622%_ - (let () (declare (not safe)) (##car _%e159323159619%_)))) + (##cdr _%e159360159656%_))) + (_%hd159361159659%_ + (let () (declare (not safe)) (##car _%e159360159656%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159325159624%_)) + (gx#stx-null? _%tl159362159661%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159319159608%_)) - (let ((_%e159326159627%_ + (gx#stx-pair? _%tl159356159645%_)) + (let ((_%e159363159664%_ (let () (declare (not safe)) - (gx#stx-e _%tl159319159608%_)))) - (let ((_%tl159328159632%_ + (gx#stx-e _%tl159356159645%_)))) + (let ((_%tl159365159669%_ (let () (declare (not safe)) - (##cdr _%e159326159627%_))) - (_%hd159327159630%_ + (##cdr _%e159363159664%_))) + (_%hd159364159667%_ (let () (declare (not safe)) - (##car _%e159326159627%_)))) + (##car _%e159363159664%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159327159630%_)) - (let ((_%e159329159635%_ + (gx#stx-pair? _%hd159364159667%_)) + (let ((_%e159366159672%_ (let () (declare (not safe)) - (gx#stx-e _%hd159327159630%_)))) - (let ((_%tl159331159640%_ + (gx#stx-e _%hd159364159667%_)))) + (let ((_%tl159368159677%_ (let () (declare (not safe)) - (##cdr _%e159329159635%_))) - (_%hd159330159638%_ + (##cdr _%e159366159672%_))) + (_%hd159367159675%_ (let () (declare (not safe)) - (##car _%e159329159635%_)))) + (##car _%e159366159672%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159330159638%_)) + (gx#identifier? _%hd159367159675%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159330159638%_)) + _%hd159367159675%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159331159640%_)) - (let ((_%e159332159643%_ + _%tl159368159677%_)) + (let ((_%e159369159680%_ (let () (declare (not safe)) (gx#stx-e - _%tl159331159640%_)))) - (let ((_%tl159334159648%_ + _%tl159368159677%_)))) + (let ((_%tl159371159685%_ (let () (declare (not safe)) - (##cdr _%e159332159643%_))) - (_%hd159333159646%_ + (##cdr _%e159369159680%_))) + (_%hd159370159683%_ (let () (declare (not safe)) - (##car _%e159332159643%_)))) + (##car _%e159369159680%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159334159648%_)) + _%tl159371159685%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl159328159632%_)) - (if (let ((__tmp171208 + _%tl159365159669%_)) + (if (let ((__tmp171245 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-length _%tl159328159632%_)))) + (gx#stx-length _%tl159365159669%_)))) (declare (not safe)) - (##fx>= __tmp171208 '1)) - (let ((_%__splice169591169592%_ + (##fx>= __tmp171245 '1)) + (let ((_%__splice169628169629%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl159328159632%_ + _%tl159365159669%_ '1)))) - (let ((_%tl159337159653%_ + (let ((_%tl159374159690%_ (let () (declare (not safe)) - (##vector-ref _%__splice169591169592%_ '1))) - (_%target159335159651%_ + (##vector-ref _%__splice169628169629%_ '1))) + (_%target159372159688%_ (let () (declare (not safe)) (##vector-ref - _%__splice169591169592%_ + _%__splice169628169629%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159337159653%_)) - (let ((_%e159344159656%_ + (gx#stx-pair? _%tl159374159690%_)) + (let ((_%e159381159693%_ (let () (declare (not safe)) - (gx#stx-e _%tl159337159653%_)))) - (let ((_%tl159346159661%_ + (gx#stx-e _%tl159374159690%_)))) + (let ((_%tl159383159698%_ (let () (declare (not safe)) - (##cdr _%e159344159656%_))) - (_%hd159345159659%_ + (##cdr _%e159381159693%_))) + (_%hd159382159696%_ (let () (declare (not safe)) - (##car _%e159344159656%_)))) + (##car _%e159381159693%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159345159659%_)) - (let ((_%e159347159664%_ + (gx#stx-pair? _%hd159382159696%_)) + (let ((_%e159384159701%_ (let () (declare (not safe)) (gx#stx-e - _%hd159345159659%_)))) - (let ((_%tl159349159669%_ + _%hd159382159696%_)))) + (let ((_%tl159386159706%_ (let () (declare (not safe)) - (##cdr _%e159347159664%_))) - (_%hd159348159667%_ + (##cdr _%e159384159701%_))) + (_%hd159385159704%_ (let () (declare (not safe)) - (##car _%e159347159664%_)))) + (##car _%e159384159701%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159348159667%_)) + _%hd159385159704%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159348159667%_)) + _%hd159385159704%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159349159669%_)) - (let ((_%e159350159672%_ + _%tl159386159706%_)) + (let ((_%e159387159709%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159349159669%_)))) - (let ((_%tl159352159677%_ + (gx#stx-e _%tl159386159706%_)))) + (let ((_%tl159389159714%_ (let () (declare (not safe)) - (##cdr _%e159350159672%_))) - (_%hd159351159675%_ + (##cdr _%e159387159709%_))) + (_%hd159388159712%_ (let () (declare (not safe)) - (##car _%e159350159672%_)))) + (##car _%e159387159709%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159352159677%_)) + (gx#stx-null? _%tl159389159714%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159346159661%_)) - (letrec ((_%loop159338159680%_ - (lambda (_%hd159336159683%_ - _%xarg159342159685%_) + (gx#stx-null? _%tl159383159698%_)) + (letrec ((_%loop159375159717%_ + (lambda (_%hd159373159720%_ + _%xarg159379159722%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159336159683%_)) - (let ((_%e159339159688%_ + _%hd159373159720%_)) + (let ((_%e159376159725%_ (let () (declare (not safe)) (gx#stx-e - _%hd159336159683%_)))) - (let ((_%lp-tl159341159693%_ + _%hd159373159720%_)))) + (let ((_%lp-tl159378159730%_ (let () (declare (not safe)) - (##cdr _%e159339159688%_))) - (_%lp-hd159340159691%_ + (##cdr _%e159376159725%_))) + (_%lp-hd159377159728%_ (let () (declare (not safe)) - (##car _%e159339159688%_)))) + (##car _%e159376159725%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd159340159691%_)) - (let ((_%e159353159696%_ + _%lp-hd159377159728%_)) + (let ((_%e159390159733%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd159340159691%_)))) - (let ((_%tl159355159701%_ + _%lp-hd159377159728%_)))) + (let ((_%tl159392159738%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159353159696%_))) - (_%hd159354159699%_ - (let () (declare (not safe)) (##car _%e159353159696%_)))) + (##cdr _%e159390159733%_))) + (_%hd159391159736%_ + (let () (declare (not safe)) (##car _%e159390159733%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159354159699%_)) + (gx#identifier? _%hd159391159736%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159354159699%_)) + (gx#stx-eq? '%#ref _%hd159391159736%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159355159701%_)) - (let ((_%e159356159704%_ + (gx#stx-pair? _%tl159392159738%_)) + (let ((_%e159393159741%_ (let () (declare (not safe)) - (gx#stx-e _%tl159355159701%_)))) - (let ((_%tl159358159709%_ + (gx#stx-e _%tl159392159738%_)))) + (let ((_%tl159395159746%_ (let () (declare (not safe)) - (##cdr _%e159356159704%_))) - (_%hd159357159707%_ + (##cdr _%e159393159741%_))) + (_%hd159394159744%_ (let () (declare (not safe)) - (##car _%e159356159704%_)))) + (##car _%e159393159741%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159358159709%_)) - (_%loop159338159680%_ - _%lp-tl159341159693%_ - (cons _%hd159357159707%_ - _%xarg159342159685%_)) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)))) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)))) + (gx#stx-null? _%tl159395159746%_)) + (_%loop159375159717%_ + _%lp-tl159378159730%_ + (cons _%hd159394159744%_ + _%xarg159379159722%_)) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)))) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)))) - (let ((_%xarg159343159712%_ - (reverse _%xarg159342159685%_))) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)))) + (let ((_%xarg159380159749%_ + (reverse _%xarg159379159722%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159313159592%_)) - (let ((_%L159715%_ - _%hd159351159675%_) - (_%L159716%_ - _%xarg159343159712%_) - (_%L159717%_ - _%hd159333159646%_) - (_%L159718%_ - _%hd159324159622%_) - (_%L159719%_ - _%tl159304159565%_) - (_%L159720%_ - _%arg159310159584%_)) - (if (and (let ((__tmp171209 + _%tl159350159629%_)) + (let ((_%L159752%_ + _%hd159388159712%_) + (_%L159753%_ + _%xarg159380159749%_) + (_%L159754%_ + _%hd159370159683%_) + (_%L159755%_ + _%hd159361159659%_) + (_%L159756%_ + _%tl159341159602%_) + (_%L159757%_ + _%arg159347159621%_)) + (if (and (let ((__tmp171246 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171210 - (lambda (_%g159763159766%_ - _%g159764159768%_) - (cons _%g159763159766%_ - _%g159764159768%_)))) + (let ((__tmp171247 + (lambda (_%g159800159803%_ + _%g159801159805%_) + (cons _%g159800159803%_ + _%g159801159805%_)))) (declare (not safe)) - (__foldr1 __tmp171210 '() _%L159720%_)))) + (__foldr1 __tmp171247 '() _%L159757%_)))) (declare (not safe)) - (gx#identifier-list? __tmp171209)) - (let () (declare (not safe)) (gx#identifier? _%L159719%_)) + (gx#identifier-list? __tmp171246)) + (let () (declare (not safe)) (gx#identifier? _%L159756%_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L159718%_ 'apply)) - (let ((__tmp171213 - (length (let ((__tmp171214 - (lambda (_%g159770159773%_ - _%g159771159775%_) - (cons _%g159770159773%_ - _%g159771159775%_)))) + (gxc#runtime-identifier=? _%L159755%_ 'apply)) + (let ((__tmp171250 + (length (let ((__tmp171251 + (lambda (_%g159807159810%_ + _%g159808159812%_) + (cons _%g159807159810%_ + _%g159808159812%_)))) (declare (not safe)) - (__foldr1 __tmp171214 '() _%L159720%_)))) - (__tmp171211 - (length (let ((__tmp171212 - (lambda (_%g159777159780%_ - _%g159778159782%_) - (cons _%g159777159780%_ - _%g159778159782%_)))) + (__foldr1 __tmp171251 '() _%L159757%_)))) + (__tmp171248 + (length (let ((__tmp171249 + (lambda (_%g159814159817%_ + _%g159815159819%_) + (cons _%g159814159817%_ + _%g159815159819%_)))) (declare (not safe)) (__foldr1 - __tmp171212 + __tmp171249 '() - _%L159716%_))))) + _%L159753%_))))) (declare (not safe)) - (##fx= __tmp171213 __tmp171211)) - (let ((__tmp171217 - (let ((__tmp171218 - (lambda (_%g159784159787%_ - _%g159785159789%_) - (cons _%g159784159787%_ - _%g159785159789%_)))) + (##fx= __tmp171250 __tmp171248)) + (let ((__tmp171254 + (let ((__tmp171255 + (lambda (_%g159821159824%_ + _%g159822159826%_) + (cons _%g159821159824%_ + _%g159822159826%_)))) (declare (not safe)) - (__foldr1 __tmp171218 '() _%L159720%_))) - (__tmp171215 - (let ((__tmp171216 - (lambda (_%g159791159794%_ - _%g159792159796%_) - (cons _%g159791159794%_ - _%g159792159796%_)))) + (__foldr1 __tmp171255 '() _%L159757%_))) + (__tmp171252 + (let ((__tmp171253 + (lambda (_%g159828159831%_ + _%g159829159833%_) + (cons _%g159828159831%_ + _%g159829159833%_)))) (declare (not safe)) - (__foldr1 __tmp171216 '() _%L159716%_)))) + (__foldr1 __tmp171253 '() _%L159753%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp171217 - __tmp171215)) + __tmp171254 + __tmp171252)) (let () (declare (not safe)) - (gx#free-identifier=? _%L159719%_ _%L159715%_)) - (not (let ((__tmp171222 - (lambda (_%g159798159800%_) + (gx#free-identifier=? _%L159756%_ _%L159752%_)) + (not (let ((__tmp171259 + (lambda (_%g159835159837%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g159798159800%_ - _%L159717%_)))) - (__tmp171219 - (let ((__tmp171221 - (lambda (_%g159802159805%_ - _%g159803159807%_) - (cons _%g159802159805%_ - _%g159803159807%_))) - (__tmp171220 (cons _%L159719%_ '()))) + _%g159835159837%_ + _%L159754%_)))) + (__tmp171256 + (let ((__tmp171258 + (lambda (_%g159839159842%_ + _%g159840159844%_) + (cons _%g159839159842%_ + _%g159840159844%_))) + (__tmp171257 (cons _%L159756%_ '()))) (declare (not safe)) (__foldr1 - __tmp171221 - __tmp171220 - _%L159720%_)))) + __tmp171258 + __tmp171257 + _%L159757%_)))) (declare (not safe)) - (__find __tmp171222 __tmp171219)))) - (_%__kont169587169588%_ - _%L159715%_ - _%L159716%_ - _%L159717%_ - _%L159718%_ - _%L159719%_ - _%L159720%_) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_))) + (__find __tmp171259 __tmp171256)))) + (_%__kont169624169625%_ + _%L159752%_ + _%L159753%_ + _%L159754%_ + _%L159755%_ + _%L159756%_ + _%L159757%_) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_))))))) - (_%loop159338159680%_ - _%target159335159651%_ + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_))))))) + (_%loop159375159717%_ + _%target159372159688%_ '())) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)))) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)))) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)))) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)))) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)))) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)) - (_%__match169692169693%_ - _%e159299159555%_ - _%hd159300159558%_ - _%tl159301159560%_ - _%e159311159587%_ - _%hd159312159590%_ - _%tl159313159592%_ - _%e159314159595%_ - _%hd159315159598%_ - _%tl159316159600%_ - _%e159317159603%_ - _%hd159318159606%_ - _%tl159319159608%_ - _%e159320159611%_ - _%hd159321159614%_ - _%tl159322159616%_ - _%e159323159619%_ - _%hd159324159622%_ - _%tl159325159624%_ - _%e159326159627%_ - _%hd159327159630%_ - _%tl159328159632%_ - _%e159329159635%_ - _%hd159330159638%_ - _%tl159331159640%_ - _%e159332159643%_ - _%hd159333159646%_ - _%tl159334159648%_)) - (_%__kont169595169596%_)))) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)))) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)))) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)))) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)) + (_%__match169729169730%_ + _%e159336159592%_ + _%hd159337159595%_ + _%tl159338159597%_ + _%e159348159624%_ + _%hd159349159627%_ + _%tl159350159629%_ + _%e159351159632%_ + _%hd159352159635%_ + _%tl159353159637%_ + _%e159354159640%_ + _%hd159355159643%_ + _%tl159356159645%_ + _%e159357159648%_ + _%hd159358159651%_ + _%tl159359159653%_ + _%e159360159656%_ + _%hd159361159659%_ + _%tl159362159661%_ + _%e159363159664%_ + _%hd159364159667%_ + _%tl159365159669%_ + _%e159366159672%_ + _%hd159367159675%_ + _%tl159368159677%_ + _%e159369159680%_ + _%hd159370159683%_ + _%tl159371159685%_)) + (_%__kont169632169633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169595169596%_)) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169595169596%_)) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169595169596%_)))) - (_%__kont169595169596%_))))))) - (_%loop159305159568%_ _%target159302159563%_ '())))) - (_%__match169610169611%_ - (lambda (_%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_) - (letrec ((_%loop159257159828%_ - (lambda (_%hd159255159831%_ - _%arg159261159833%_) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_))))))) + (_%loop159342159605%_ _%target159339159600%_ '())))) + (_%__match169647169648%_ + (lambda (_%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_) + (letrec ((_%loop159294159865%_ + (lambda (_%hd159292159868%_ + _%arg159298159870%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159255159831%_)) - (let ((_%e159258159836%_ + (gx#stx-pair? _%hd159292159868%_)) + (let ((_%e159295159873%_ (let () (declare (not safe)) - (gx#stx-e _%hd159255159831%_)))) - (let ((_%lp-tl159260159841%_ + (gx#stx-e _%hd159292159868%_)))) + (let ((_%lp-tl159297159878%_ (let () (declare (not safe)) - (##cdr _%e159258159836%_))) - (_%lp-hd159259159839%_ + (##cdr _%e159295159873%_))) + (_%lp-hd159296159876%_ (let () (declare (not safe)) - (##car _%e159258159836%_)))) - (_%loop159257159828%_ - _%lp-tl159260159841%_ - (cons _%lp-hd159259159839%_ - _%arg159261159833%_)))) - (let ((_%arg159262159844%_ - (reverse _%arg159261159833%_))) + (##car _%e159295159873%_)))) + (_%loop159294159865%_ + _%lp-tl159297159878%_ + (cons _%lp-hd159296159876%_ + _%arg159298159870%_)))) + (let ((_%arg159299159881%_ + (reverse _%arg159298159870%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159253159820%_)) - (let ((_%e159263159847%_ + _%tl159290159857%_)) + (let ((_%e159300159884%_ (let () (declare (not safe)) (gx#stx-e - _%tl159253159820%_)))) - (let ((_%tl159265159852%_ + _%tl159290159857%_)))) + (let ((_%tl159302159889%_ (let () (declare (not safe)) - (##cdr _%e159263159847%_))) - (_%hd159264159850%_ + (##cdr _%e159300159884%_))) + (_%hd159301159887%_ (let () (declare (not safe)) - (##car _%e159263159847%_)))) + (##car _%e159300159884%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159264159850%_)) - (let ((_%e159266159855%_ + _%hd159301159887%_)) + (let ((_%e159303159892%_ (let () (declare (not safe)) (gx#stx-e - _%hd159264159850%_)))) - (let ((_%tl159268159860%_ + _%hd159301159887%_)))) + (let ((_%tl159305159897%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159266159855%_))) - (_%hd159267159858%_ - (let () (declare (not safe)) (##car _%e159266159855%_)))) + (##cdr _%e159303159892%_))) + (_%hd159304159895%_ + (let () (declare (not safe)) (##car _%e159303159892%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159267159858%_)) + (gx#identifier? _%hd159304159895%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd159267159858%_)) + (gx#stx-eq? '%#call _%hd159304159895%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159268159860%_)) - (let ((_%e159269159863%_ + (gx#stx-pair? _%tl159305159897%_)) + (let ((_%e159306159900%_ (let () (declare (not safe)) - (gx#stx-e _%tl159268159860%_)))) - (let ((_%tl159271159868%_ + (gx#stx-e _%tl159305159897%_)))) + (let ((_%tl159308159905%_ (let () (declare (not safe)) - (##cdr _%e159269159863%_))) - (_%hd159270159866%_ + (##cdr _%e159306159900%_))) + (_%hd159307159903%_ (let () (declare (not safe)) - (##car _%e159269159863%_)))) + (##car _%e159306159900%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159270159866%_)) - (let ((_%e159272159871%_ + (gx#stx-pair? _%hd159307159903%_)) + (let ((_%e159309159908%_ (let () (declare (not safe)) - (gx#stx-e _%hd159270159866%_)))) - (let ((_%tl159274159876%_ + (gx#stx-e _%hd159307159903%_)))) + (let ((_%tl159311159913%_ (let () (declare (not safe)) - (##cdr _%e159272159871%_))) - (_%hd159273159874%_ + (##cdr _%e159309159908%_))) + (_%hd159310159911%_ (let () (declare (not safe)) - (##car _%e159272159871%_)))) + (##car _%e159309159908%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159273159874%_)) + _%hd159310159911%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159273159874%_)) + _%hd159310159911%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159274159876%_)) - (let ((_%e159275159879%_ + _%tl159311159913%_)) + (let ((_%e159312159916%_ (let () (declare (not safe)) (gx#stx-e - _%tl159274159876%_)))) - (let ((_%tl159277159884%_ + _%tl159311159913%_)))) + (let ((_%tl159314159921%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159275159879%_))) - (_%hd159276159882%_ - (let () (declare (not safe)) (##car _%e159275159879%_)))) + (##cdr _%e159312159916%_))) + (_%hd159313159919%_ + (let () (declare (not safe)) (##car _%e159312159916%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159277159884%_)) + (gx#stx-null? _%tl159314159921%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl159271159868%_)) - (let ((_%__splice169585169586%_ + (gx#stx-pair/null? _%tl159308159905%_)) + (let ((_%__splice169622169623%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl159271159868%_ + _%tl159308159905%_ '0)))) - (let ((_%tl159280159889%_ + (let ((_%tl159317159926%_ (let () (declare (not safe)) - (##vector-ref _%__splice169585169586%_ '1))) - (_%target159278159887%_ + (##vector-ref _%__splice169622169623%_ '1))) + (_%target159315159924%_ (let () (declare (not safe)) (##vector-ref - _%__splice169585169586%_ + _%__splice169622169623%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159280159889%_)) - (letrec ((_%loop159281159892%_ - (lambda (_%hd159279159895%_ - _%xarg159285159897%_) + (gx#stx-null? _%tl159317159926%_)) + (letrec ((_%loop159318159929%_ + (lambda (_%hd159316159932%_ + _%xarg159322159934%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159279159895%_)) - (let ((_%e159282159900%_ + _%hd159316159932%_)) + (let ((_%e159319159937%_ (let () (declare (not safe)) (gx#stx-e - _%hd159279159895%_)))) - (let ((_%lp-tl159284159905%_ + _%hd159316159932%_)))) + (let ((_%lp-tl159321159942%_ (let () (declare (not safe)) - (##cdr _%e159282159900%_))) - (_%lp-hd159283159903%_ + (##cdr _%e159319159937%_))) + (_%lp-hd159320159940%_ (let () (declare (not safe)) - (##car _%e159282159900%_)))) + (##car _%e159319159937%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd159283159903%_)) - (let ((_%e159287159908%_ + _%lp-hd159320159940%_)) + (let ((_%e159324159945%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd159283159903%_)))) - (let ((_%tl159289159913%_ + (gx#stx-e _%lp-hd159320159940%_)))) + (let ((_%tl159326159950%_ (let () (declare (not safe)) - (##cdr _%e159287159908%_))) - (_%hd159288159911%_ + (##cdr _%e159324159945%_))) + (_%hd159325159948%_ (let () (declare (not safe)) - (##car _%e159287159908%_)))) + (##car _%e159324159945%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159288159911%_)) + (gx#identifier? _%hd159325159948%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159288159911%_)) + (gx#stx-eq? '%#ref _%hd159325159948%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159289159913%_)) - (let ((_%e159290159916%_ + (gx#stx-pair? _%tl159326159950%_)) + (let ((_%e159327159953%_ (let () (declare (not safe)) - (gx#stx-e _%tl159289159913%_)))) - (let ((_%tl159292159921%_ + (gx#stx-e _%tl159326159950%_)))) + (let ((_%tl159329159958%_ (let () (declare (not safe)) - (##cdr _%e159290159916%_))) - (_%hd159291159919%_ + (##cdr _%e159327159953%_))) + (_%hd159328159956%_ (let () (declare (not safe)) - (##car _%e159290159916%_)))) + (##car _%e159327159953%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159292159921%_)) - (_%loop159281159892%_ - _%lp-tl159284159905%_ - (cons _%hd159291159919%_ - _%xarg159285159897%_)) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)))) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)))) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)))) + (gx#stx-null? _%tl159329159958%_)) + (_%loop159318159929%_ + _%lp-tl159321159942%_ + (cons _%hd159328159956%_ + _%xarg159322159934%_)) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)))) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)))) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg159286159924%_ - (reverse _%xarg159285159897%_))) + (let ((_%xarg159323159961%_ + (reverse _%xarg159322159934%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159265159852%_)) - (let ((_%L159927%_ - _%xarg159286159924%_) - (_%L159928%_ - _%hd159276159882%_) - (_%L159929%_ - _%arg159262159844%_)) - (if (and (let ((__tmp171223 + _%tl159302159889%_)) + (let ((_%L159964%_ + _%xarg159323159961%_) + (_%L159965%_ + _%hd159313159919%_) + (_%L159966%_ + _%arg159299159881%_)) + (if (and (let ((__tmp171260 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171224 - (lambda (_%g159957159960%_ - _%g159958159962%_) - (cons _%g159957159960%_ - _%g159958159962%_)))) + (let ((__tmp171261 + (lambda (_%g159994159997%_ + _%g159995159999%_) + (cons _%g159994159997%_ + _%g159995159999%_)))) (declare (not safe)) - (__foldr1 __tmp171224 '() _%L159929%_)))) + (__foldr1 __tmp171261 '() _%L159966%_)))) (declare (not safe)) - (gx#identifier-list? __tmp171223)) - (let ((__tmp171227 - (length (let ((__tmp171228 - (lambda (_%g159964159967%_ - _%g159965159969%_) - (cons _%g159964159967%_ - _%g159965159969%_)))) + (gx#identifier-list? __tmp171260)) + (let ((__tmp171264 + (length (let ((__tmp171265 + (lambda (_%g160001160004%_ + _%g160002160006%_) + (cons _%g160001160004%_ + _%g160002160006%_)))) (declare (not safe)) (__foldr1 - __tmp171228 + __tmp171265 '() - _%L159929%_)))) - (__tmp171225 - (length (let ((__tmp171226 - (lambda (_%g159971159974%_ - _%g159972159976%_) - (cons _%g159971159974%_ - _%g159972159976%_)))) + _%L159966%_)))) + (__tmp171262 + (length (let ((__tmp171263 + (lambda (_%g160008160011%_ + _%g160009160013%_) + (cons _%g160008160011%_ + _%g160009160013%_)))) (declare (not safe)) (__foldr1 - __tmp171226 + __tmp171263 '() - _%L159927%_))))) + _%L159964%_))))) (declare (not safe)) - (##fx= __tmp171227 __tmp171225)) - (let ((__tmp171231 - (let ((__tmp171232 - (lambda (_%g159978159981%_ - _%g159979159983%_) - (cons _%g159978159981%_ - _%g159979159983%_)))) + (##fx= __tmp171264 __tmp171262)) + (let ((__tmp171268 + (let ((__tmp171269 + (lambda (_%g160015160018%_ + _%g160016160020%_) + (cons _%g160015160018%_ + _%g160016160020%_)))) (declare (not safe)) - (__foldr1 __tmp171232 '() _%L159929%_))) - (__tmp171229 - (let ((__tmp171230 - (lambda (_%g159985159988%_ - _%g159986159990%_) - (cons _%g159985159988%_ - _%g159986159990%_)))) + (__foldr1 __tmp171269 '() _%L159966%_))) + (__tmp171266 + (let ((__tmp171267 + (lambda (_%g160022160025%_ + _%g160023160027%_) + (cons _%g160022160025%_ + _%g160023160027%_)))) (declare (not safe)) - (__foldr1 __tmp171230 '() _%L159927%_)))) + (__foldr1 __tmp171267 '() _%L159964%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp171231 - __tmp171229)) - (not (let ((__tmp171235 - (lambda (_%g159992159994%_) + __tmp171268 + __tmp171266)) + (not (let ((__tmp171272 + (lambda (_%g160029160031%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g159992159994%_ - _%L159928%_)))) - (__tmp171233 - (let ((__tmp171234 - (lambda (_%g159996159999%_ - _%g159997160001%_) - (cons _%g159996159999%_ - _%g159997160001%_)))) + _%g160029160031%_ + _%L159965%_)))) + (__tmp171270 + (let ((__tmp171271 + (lambda (_%g160033160036%_ + _%g160034160038%_) + (cons _%g160033160036%_ + _%g160034160038%_)))) (declare (not safe)) (__foldr1 - __tmp171234 + __tmp171271 '() - _%L159929%_)))) + _%L159966%_)))) (declare (not safe)) - (__find __tmp171235 __tmp171233)))) - (_%__kont169581169582%_ - _%L159927%_ - _%L159928%_ - _%L159929%_) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_))) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_))))))) + (__find __tmp171272 __tmp171270)))) + (_%__kont169618169619%_ + _%L159964%_ + _%L159965%_ + _%L159966%_) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_))) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop159281159892%_ - _%target159278159887%_ + (_%loop159318159929%_ + _%target159315159924%_ '())) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)))) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)))) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)))) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)))) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)))) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)))) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)))) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)))) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)))) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_))))))) - (_%loop159257159828%_ _%target159254159823%_ '()))))) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)))) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_))))))) + (_%loop159294159865%_ _%target159291159860%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169579169580%_)) - (let ((_%e159251159815%_ + (gx#stx-pair? _%__stx169616169617%_)) + (let ((_%e159288159852%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169579169580%_)))) - (let ((_%tl159253159820%_ + (gx#stx-e _%__stx169616169617%_)))) + (let ((_%tl159290159857%_ (let () (declare (not safe)) - (##cdr _%e159251159815%_))) - (_%hd159252159818%_ + (##cdr _%e159288159852%_))) + (_%hd159289159855%_ (let () (declare (not safe)) - (##car _%e159251159815%_)))) + (##car _%e159288159852%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd159252159818%_)) - (let ((_%__splice169583169584%_ + (gx#stx-pair/null? _%hd159289159855%_)) + (let ((_%__splice169620169621%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd159252159818%_ + _%hd159289159855%_ '0)))) - (let ((_%tl159256159825%_ + (let ((_%tl159293159862%_ (let () (declare (not safe)) (##vector-ref - _%__splice169583169584%_ + _%__splice169620169621%_ '1))) - (_%target159254159823%_ + (_%target159291159860%_ (let () (declare (not safe)) (##vector-ref - _%__splice169583169584%_ + _%__splice169620169621%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159256159825%_)) - (_%__match169610169611%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_) - (_%__match169622169623%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%__splice169583169584%_ - _%target159254159823%_ - _%tl159256159825%_)))) + (gx#stx-null? _%tl159293159862%_)) + (_%__match169647169648%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_) + (_%__match169659169660%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%__splice169620169621%_ + _%target159291159860%_ + _%tl159293159862%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159253159820%_)) - (let ((_%e159366159423%_ + (gx#stx-pair? _%tl159290159857%_)) + (let ((_%e159403159460%_ (let () (declare (not safe)) - (gx#stx-e _%tl159253159820%_)))) - (let ((_%tl159368159428%_ + (gx#stx-e _%tl159290159857%_)))) + (let ((_%tl159405159465%_ (let () (declare (not safe)) - (##cdr _%e159366159423%_))) - (_%hd159367159426%_ + (##cdr _%e159403159460%_))) + (_%hd159404159463%_ (let () (declare (not safe)) - (##car _%e159366159423%_)))) + (##car _%e159403159460%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159367159426%_)) - (let ((_%e159369159431%_ + (gx#stx-pair? _%hd159404159463%_)) + (let ((_%e159406159468%_ (let () (declare (not safe)) - (gx#stx-e _%hd159367159426%_)))) - (let ((_%tl159371159436%_ + (gx#stx-e _%hd159404159463%_)))) + (let ((_%tl159408159473%_ (let () (declare (not safe)) - (##cdr _%e159369159431%_))) - (_%hd159370159434%_ + (##cdr _%e159406159468%_))) + (_%hd159407159471%_ (let () (declare (not safe)) - (##car _%e159369159431%_)))) + (##car _%e159406159468%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159370159434%_)) + _%hd159407159471%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd159370159434%_)) + _%hd159407159471%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159371159436%_)) - (let ((_%e159372159439%_ + _%tl159408159473%_)) + (let ((_%e159409159476%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl159371159436%_)))) - (let ((_%tl159374159444%_ - (let () (declare (not safe)) (##cdr _%e159372159439%_))) - (_%hd159373159442%_ + (gx#stx-e _%tl159408159473%_)))) + (let ((_%tl159411159481%_ + (let () (declare (not safe)) (##cdr _%e159409159476%_))) + (_%hd159410159479%_ (let () (declare (not safe)) - (##car _%e159372159439%_)))) + (##car _%e159409159476%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159373159442%_)) - (let ((_%e159375159447%_ + (gx#stx-pair? _%hd159410159479%_)) + (let ((_%e159412159484%_ (let () (declare (not safe)) - (gx#stx-e _%hd159373159442%_)))) - (let ((_%tl159377159452%_ + (gx#stx-e _%hd159410159479%_)))) + (let ((_%tl159414159489%_ (let () (declare (not safe)) - (##cdr _%e159375159447%_))) - (_%hd159376159450%_ + (##cdr _%e159412159484%_))) + (_%hd159413159487%_ (let () (declare (not safe)) - (##car _%e159375159447%_)))) + (##car _%e159412159484%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159376159450%_)) + (gx#identifier? _%hd159413159487%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159376159450%_)) + (gx#stx-eq? '%#ref _%hd159413159487%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159377159452%_)) - (let ((_%e159378159455%_ + (gx#stx-pair? _%tl159414159489%_)) + (let ((_%e159415159492%_ (let () (declare (not safe)) - (gx#stx-e _%tl159377159452%_)))) - (let ((_%tl159380159460%_ + (gx#stx-e _%tl159414159489%_)))) + (let ((_%tl159417159497%_ (let () (declare (not safe)) - (##cdr _%e159378159455%_))) - (_%hd159379159458%_ + (##cdr _%e159415159492%_))) + (_%hd159416159495%_ (let () (declare (not safe)) - (##car _%e159378159455%_)))) + (##car _%e159415159492%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159380159460%_)) + _%tl159417159497%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159374159444%_)) - (let ((_%e159381159463%_ + _%tl159411159481%_)) + (let ((_%e159418159500%_ (let () (declare (not safe)) (gx#stx-e - _%tl159374159444%_)))) - (let ((_%tl159383159468%_ + _%tl159411159481%_)))) + (let ((_%tl159420159505%_ (let () (declare (not safe)) - (##cdr _%e159381159463%_))) - (_%hd159382159466%_ + (##cdr _%e159418159500%_))) + (_%hd159419159503%_ (let () (declare (not safe)) - (##car _%e159381159463%_)))) + (##car _%e159418159500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159382159466%_)) - (let ((_%e159384159471%_ + _%hd159419159503%_)) + (let ((_%e159421159508%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd159382159466%_)))) - (let ((_%tl159386159476%_ + (gx#stx-e _%hd159419159503%_)))) + (let ((_%tl159423159513%_ (let () (declare (not safe)) - (##cdr _%e159384159471%_))) - (_%hd159385159474%_ + (##cdr _%e159421159508%_))) + (_%hd159422159511%_ (let () (declare (not safe)) - (##car _%e159384159471%_)))) + (##car _%e159421159508%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159385159474%_)) + (gx#identifier? _%hd159422159511%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159385159474%_)) + (gx#stx-eq? '%#ref _%hd159422159511%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159386159476%_)) - (let ((_%e159387159479%_ + (gx#stx-pair? _%tl159423159513%_)) + (let ((_%e159424159516%_ (let () (declare (not safe)) - (gx#stx-e _%tl159386159476%_)))) - (let ((_%tl159389159484%_ + (gx#stx-e _%tl159423159513%_)))) + (let ((_%tl159426159521%_ (let () (declare (not safe)) - (##cdr _%e159387159479%_))) - (_%hd159388159482%_ + (##cdr _%e159424159516%_))) + (_%hd159425159519%_ (let () (declare (not safe)) - (##car _%e159387159479%_)))) + (##car _%e159424159516%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159389159484%_)) + (gx#stx-null? _%tl159426159521%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159383159468%_)) - (let ((_%e159390159487%_ + _%tl159420159505%_)) + (let ((_%e159427159524%_ (let () (declare (not safe)) (gx#stx-e - _%tl159383159468%_)))) - (let ((_%tl159392159492%_ + _%tl159420159505%_)))) + (let ((_%tl159429159529%_ (let () (declare (not safe)) - (##cdr _%e159390159487%_))) - (_%hd159391159490%_ + (##cdr _%e159427159524%_))) + (_%hd159428159527%_ (let () (declare (not safe)) - (##car _%e159390159487%_)))) + (##car _%e159427159524%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159391159490%_)) - (let ((_%e159393159495%_ + _%hd159428159527%_)) + (let ((_%e159430159532%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd159391159490%_)))) - (let ((_%tl159395159500%_ - (let () (declare (not safe)) (##cdr _%e159393159495%_))) - (_%hd159394159498%_ + (gx#stx-e _%hd159428159527%_)))) + (let ((_%tl159432159537%_ + (let () (declare (not safe)) (##cdr _%e159430159532%_))) + (_%hd159431159535%_ (let () (declare (not safe)) - (##car _%e159393159495%_)))) + (##car _%e159430159532%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159394159498%_)) + (gx#identifier? _%hd159431159535%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159394159498%_)) + (gx#stx-eq? '%#ref _%hd159431159535%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159395159500%_)) - (let ((_%e159396159503%_ + (gx#stx-pair? _%tl159432159537%_)) + (let ((_%e159433159540%_ (let () (declare (not safe)) - (gx#stx-e _%tl159395159500%_)))) - (let ((_%tl159398159508%_ + (gx#stx-e _%tl159432159537%_)))) + (let ((_%tl159435159545%_ (let () (declare (not safe)) - (##cdr _%e159396159503%_))) - (_%hd159397159506%_ + (##cdr _%e159433159540%_))) + (_%hd159434159543%_ (let () (declare (not safe)) - (##car _%e159396159503%_)))) + (##car _%e159433159540%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159398159508%_)) + (gx#stx-null? _%tl159435159545%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159392159492%_)) + (gx#stx-null? _%tl159429159529%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159368159428%_)) - (_%__match169720169721%_ - _%e159251159815%_ - _%hd159252159818%_ - _%tl159253159820%_ - _%e159366159423%_ - _%hd159367159426%_ - _%tl159368159428%_ - _%e159369159431%_ - _%hd159370159434%_ - _%tl159371159436%_ - _%e159372159439%_ - _%hd159373159442%_ - _%tl159374159444%_ - _%e159375159447%_ - _%hd159376159450%_ - _%tl159377159452%_ - _%e159378159455%_ - _%hd159379159458%_ - _%tl159380159460%_ - _%e159381159463%_ - _%hd159382159466%_ - _%tl159383159468%_ - _%e159384159471%_ - _%hd159385159474%_ - _%tl159386159476%_ - _%e159387159479%_ - _%hd159388159482%_ - _%tl159389159484%_ - _%e159390159487%_ - _%hd159391159490%_ - _%tl159392159492%_ - _%e159393159495%_ - _%hd159394159498%_ - _%tl159395159500%_ - _%e159396159503%_ - _%hd159397159506%_ - _%tl159398159508%_) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)))) + _%tl159405159465%_)) + (_%__match169757169758%_ + _%e159288159852%_ + _%hd159289159855%_ + _%tl159290159857%_ + _%e159403159460%_ + _%hd159404159463%_ + _%tl159405159465%_ + _%e159406159468%_ + _%hd159407159471%_ + _%tl159408159473%_ + _%e159409159476%_ + _%hd159410159479%_ + _%tl159411159481%_ + _%e159412159484%_ + _%hd159413159487%_ + _%tl159414159489%_ + _%e159415159492%_ + _%hd159416159495%_ + _%tl159417159497%_ + _%e159418159500%_ + _%hd159419159503%_ + _%tl159420159505%_ + _%e159421159508%_ + _%hd159422159511%_ + _%tl159423159513%_ + _%e159424159516%_ + _%hd159425159519%_ + _%tl159426159521%_ + _%e159427159524%_ + _%hd159428159527%_ + _%tl159429159529%_ + _%e159430159532%_ + _%hd159431159535%_ + _%tl159432159537%_ + _%e159433159540%_ + _%hd159434159543%_ + _%tl159435159545%_) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)))) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169595169596%_)) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_)))) - (_%__kont169595169596%_))))) - (_%__kont169595169596%_))))))) + (_%__kont169632169633%_)) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_)))) + (_%__kont169632169633%_))))) + (_%__kont169632169633%_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_%form158709%_) - (let* ((_%__stx169723169724%_ _%form158709%_) - (_%g158713158837%_ + (lambda (_%form158746%_) + (let* ((_%__stx169760169761%_ _%form158746%_) + (_%g158750158874%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169723169724%_))))) - (let ((_%__kont169725169726%_ - (lambda (_%L159207%_ _%L159208%_ _%L159209%_) + _%__stx169760169761%_))))) + (let ((_%__kont169762169763%_ + (lambda (_%L159244%_ _%L159245%_ _%L159246%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L159208%_)))) - (_%__kont169731169732%_ - (lambda (_%L159055%_ _%L159056%_ _%L159057%_ _%L159058%_) + (gxc#identifier-symbol _%L159245%_)))) + (_%__kont169768169769%_ + (lambda (_%L159092%_ _%L159093%_ _%L159094%_ _%L159095%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L159055%_)))) - (_%__kont169735169736%_ - (lambda (_%L158922%_ _%L158923%_ _%L158924%_) + (gxc#identifier-symbol _%L159092%_)))) + (_%__kont169772169773%_ + (lambda (_%L158959%_ _%L158960%_ _%L158961%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L158922%_))))) - (let* ((_%__match169832169833%_ - (lambda (_%e158803158842%_ - _%hd158804158845%_ - _%tl158805158847%_ - _%e158806158850%_ - _%hd158807158853%_ - _%tl158808158855%_ - _%e158809158858%_ - _%hd158810158861%_ - _%tl158811158863%_ - _%e158812158866%_ - _%hd158813158869%_ - _%tl158814158871%_ - _%e158815158874%_ - _%hd158816158877%_ - _%tl158817158879%_ - _%e158818158882%_ - _%hd158819158885%_ - _%tl158820158887%_ - _%e158821158890%_ - _%hd158822158893%_ - _%tl158823158895%_ - _%e158824158898%_ - _%hd158825158901%_ - _%tl158826158903%_ - _%e158827158906%_ - _%hd158828158909%_ - _%tl158829158911%_) + (gxc#identifier-symbol _%L158959%_))))) + (let* ((_%__match169869169870%_ + (lambda (_%e158840158879%_ + _%hd158841158882%_ + _%tl158842158884%_ + _%e158843158887%_ + _%hd158844158890%_ + _%tl158845158892%_ + _%e158846158895%_ + _%hd158847158898%_ + _%tl158848158900%_ + _%e158849158903%_ + _%hd158850158906%_ + _%tl158851158908%_ + _%e158852158911%_ + _%hd158853158914%_ + _%tl158854158916%_ + _%e158855158919%_ + _%hd158856158922%_ + _%tl158857158924%_ + _%e158858158927%_ + _%hd158859158930%_ + _%tl158860158932%_ + _%e158861158935%_ + _%hd158862158938%_ + _%tl158863158940%_ + _%e158864158943%_ + _%hd158865158946%_ + _%tl158866158948%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158823158895%_)) - (let ((_%e158830158914%_ + (gx#stx-pair? _%tl158860158932%_)) + (let ((_%e158867158951%_ (let () (declare (not safe)) - (gx#stx-e _%tl158823158895%_)))) - (let ((_%tl158832158919%_ + (gx#stx-e _%tl158860158932%_)))) + (let ((_%tl158869158956%_ (let () (declare (not safe)) - (##cdr _%e158830158914%_))) - (_%hd158831158917%_ + (##cdr _%e158867158951%_))) + (_%hd158868158954%_ (let () (declare (not safe)) - (##car _%e158830158914%_)))) + (##car _%e158867158951%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158832158919%_)) + (gx#stx-null? _%tl158869158956%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158808158855%_)) - (_%__kont169735169736%_ - _%hd158828158909%_ - _%hd158819158885%_ - _%hd158804158845%_) + (gx#stx-null? _%tl158845158892%_)) + (_%__kont169772169773%_ + _%hd158865158946%_ + _%hd158856158922%_ + _%hd158841158882%_) (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))))) - (let () (declare (not safe)) (_%g158713158837%_))))) - (_%__match169762169763%_ - (lambda (_%e158764158959%_ - _%hd158765158962%_ - _%tl158766158964%_ - _%__splice169733169734%_ - _%target158767158967%_ - _%tl158769158969%_) - (letrec ((_%loop158770158972%_ - (lambda (_%hd158768158975%_ - _%arg158774158977%_) + (_%g158750158874%_))))) + (let () (declare (not safe)) (_%g158750158874%_))))) + (_%__match169799169800%_ + (lambda (_%e158801158996%_ + _%hd158802158999%_ + _%tl158803159001%_ + _%__splice169770169771%_ + _%target158804159004%_ + _%tl158806159006%_) + (letrec ((_%loop158807159009%_ + (lambda (_%hd158805159012%_ + _%arg158811159014%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158768158975%_)) - (let ((_%e158771158980%_ + (gx#stx-pair? _%hd158805159012%_)) + (let ((_%e158808159017%_ (let () (declare (not safe)) - (gx#stx-e _%hd158768158975%_)))) - (let ((_%lp-tl158773158985%_ + (gx#stx-e _%hd158805159012%_)))) + (let ((_%lp-tl158810159022%_ (let () (declare (not safe)) - (##cdr _%e158771158980%_))) - (_%lp-hd158772158983%_ + (##cdr _%e158808159017%_))) + (_%lp-hd158809159020%_ (let () (declare (not safe)) - (##car _%e158771158980%_)))) - (_%loop158770158972%_ - _%lp-tl158773158985%_ - (cons _%lp-hd158772158983%_ - _%arg158774158977%_)))) - (let ((_%arg158775158988%_ - (reverse _%arg158774158977%_))) + (##car _%e158808159017%_)))) + (_%loop158807159009%_ + _%lp-tl158810159022%_ + (cons _%lp-hd158809159020%_ + _%arg158811159014%_)))) + (let ((_%arg158812159025%_ + (reverse _%arg158811159014%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158766158964%_)) - (let ((_%e158776158991%_ + _%tl158803159001%_)) + (let ((_%e158813159028%_ (let () (declare (not safe)) (gx#stx-e - _%tl158766158964%_)))) - (let ((_%tl158778158996%_ + _%tl158803159001%_)))) + (let ((_%tl158815159033%_ (let () (declare (not safe)) - (##cdr _%e158776158991%_))) - (_%hd158777158994%_ + (##cdr _%e158813159028%_))) + (_%hd158814159031%_ (let () (declare (not safe)) - (##car _%e158776158991%_)))) + (##car _%e158813159028%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158777158994%_)) - (let ((_%e158779158999%_ + _%hd158814159031%_)) + (let ((_%e158816159036%_ (let () (declare (not safe)) (gx#stx-e - _%hd158777158994%_)))) - (let ((_%tl158781159004%_ + _%hd158814159031%_)))) + (let ((_%tl158818159041%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158779158999%_))) - (_%hd158780159002%_ - (let () (declare (not safe)) (##car _%e158779158999%_)))) + (##cdr _%e158816159036%_))) + (_%hd158817159039%_ + (let () (declare (not safe)) (##car _%e158816159036%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158780159002%_)) + (gx#identifier? _%hd158817159039%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd158780159002%_)) + (gx#stx-eq? '%#call _%hd158817159039%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158781159004%_)) - (let ((_%e158782159007%_ + (gx#stx-pair? _%tl158818159041%_)) + (let ((_%e158819159044%_ (let () (declare (not safe)) - (gx#stx-e _%tl158781159004%_)))) - (let ((_%tl158784159012%_ + (gx#stx-e _%tl158818159041%_)))) + (let ((_%tl158821159049%_ (let () (declare (not safe)) - (##cdr _%e158782159007%_))) - (_%hd158783159010%_ + (##cdr _%e158819159044%_))) + (_%hd158820159047%_ (let () (declare (not safe)) - (##car _%e158782159007%_)))) + (##car _%e158819159044%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158783159010%_)) - (let ((_%e158785159015%_ + (gx#stx-pair? _%hd158820159047%_)) + (let ((_%e158822159052%_ (let () (declare (not safe)) - (gx#stx-e _%hd158783159010%_)))) - (let ((_%tl158787159020%_ + (gx#stx-e _%hd158820159047%_)))) + (let ((_%tl158824159057%_ (let () (declare (not safe)) - (##cdr _%e158785159015%_))) - (_%hd158786159018%_ + (##cdr _%e158822159052%_))) + (_%hd158823159055%_ (let () (declare (not safe)) - (##car _%e158785159015%_)))) + (##car _%e158822159052%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158786159018%_)) + _%hd158823159055%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158786159018%_)) + _%hd158823159055%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158787159020%_)) - (let ((_%e158788159023%_ + _%tl158824159057%_)) + (let ((_%e158825159060%_ (let () (declare (not safe)) (gx#stx-e - _%tl158787159020%_)))) - (let ((_%tl158790159028%_ + _%tl158824159057%_)))) + (let ((_%tl158827159065%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158788159023%_))) - (_%hd158789159026%_ - (let () (declare (not safe)) (##car _%e158788159023%_)))) + (##cdr _%e158825159060%_))) + (_%hd158826159063%_ + (let () (declare (not safe)) (##car _%e158825159060%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158790159028%_)) + (gx#stx-null? _%tl158827159065%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158784159012%_)) - (let ((_%e158791159031%_ + (gx#stx-pair? _%tl158821159049%_)) + (let ((_%e158828159068%_ (let () (declare (not safe)) - (gx#stx-e _%tl158784159012%_)))) - (let ((_%tl158793159036%_ + (gx#stx-e _%tl158821159049%_)))) + (let ((_%tl158830159073%_ (let () (declare (not safe)) - (##cdr _%e158791159031%_))) - (_%hd158792159034%_ + (##cdr _%e158828159068%_))) + (_%hd158829159071%_ (let () (declare (not safe)) - (##car _%e158791159031%_)))) + (##car _%e158828159068%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158792159034%_)) - (let ((_%e158794159039%_ + (gx#stx-pair? _%hd158829159071%_)) + (let ((_%e158831159076%_ (let () (declare (not safe)) - (gx#stx-e _%hd158792159034%_)))) - (let ((_%tl158796159044%_ + (gx#stx-e _%hd158829159071%_)))) + (let ((_%tl158833159081%_ (let () (declare (not safe)) - (##cdr _%e158794159039%_))) - (_%hd158795159042%_ + (##cdr _%e158831159076%_))) + (_%hd158832159079%_ (let () (declare (not safe)) - (##car _%e158794159039%_)))) + (##car _%e158831159076%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158795159042%_)) + (gx#identifier? _%hd158832159079%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158795159042%_)) + _%hd158832159079%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158796159044%_)) - (let ((_%e158797159047%_ + _%tl158833159081%_)) + (let ((_%e158834159084%_ (let () (declare (not safe)) (gx#stx-e - _%tl158796159044%_)))) - (let ((_%tl158799159052%_ + _%tl158833159081%_)))) + (let ((_%tl158836159089%_ (let () (declare (not safe)) - (##cdr _%e158797159047%_))) - (_%hd158798159050%_ + (##cdr _%e158834159084%_))) + (_%hd158835159087%_ (let () (declare (not safe)) - (##car _%e158797159047%_)))) + (##car _%e158834159084%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158799159052%_)) + _%tl158836159089%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158778158996%_)) - (_%__kont169731169732%_ - _%hd158798159050%_ - _%hd158789159026%_ - _%tl158769158969%_ - _%arg158775158988%_) - (_%__match169832169833%_ - _%e158764158959%_ - _%hd158765158962%_ - _%tl158766158964%_ - _%e158776158991%_ - _%hd158777158994%_ - _%tl158778158996%_ - _%e158779158999%_ - _%hd158780159002%_ - _%tl158781159004%_ - _%e158782159007%_ - _%hd158783159010%_ - _%tl158784159012%_ - _%e158785159015%_ - _%hd158786159018%_ - _%tl158787159020%_ - _%e158788159023%_ - _%hd158789159026%_ - _%tl158790159028%_ - _%e158791159031%_ - _%hd158792159034%_ - _%tl158793159036%_ - _%e158794159039%_ - _%hd158795159042%_ - _%tl158796159044%_ - _%e158797159047%_ - _%hd158798159050%_ - _%tl158799159052%_)) + _%tl158815159033%_)) + (_%__kont169768169769%_ + _%hd158835159087%_ + _%hd158826159063%_ + _%tl158806159006%_ + _%arg158812159025%_) + (_%__match169869169870%_ + _%e158801158996%_ + _%hd158802158999%_ + _%tl158803159001%_ + _%e158813159028%_ + _%hd158814159031%_ + _%tl158815159033%_ + _%e158816159036%_ + _%hd158817159039%_ + _%tl158818159041%_ + _%e158819159044%_ + _%hd158820159047%_ + _%tl158821159049%_ + _%e158822159052%_ + _%hd158823159055%_ + _%tl158824159057%_ + _%e158825159060%_ + _%hd158826159063%_ + _%tl158827159065%_ + _%e158828159068%_ + _%hd158829159071%_ + _%tl158830159073%_ + _%e158831159076%_ + _%hd158832159079%_ + _%tl158833159081%_ + _%e158834159084%_ + _%hd158835159087%_ + _%tl158836159089%_)) (let () (declare (not safe)) - (_%g158713158837%_))))) + (_%g158750158874%_))))) (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))))) + (_%g158750158874%_))))) (let () (declare (not safe)) - (_%g158713158837%_))))) - (let () (declare (not safe)) (_%g158713158837%_))) - (let () (declare (not safe)) (_%g158713158837%_))))) + (_%g158750158874%_))))) + (let () (declare (not safe)) (_%g158750158874%_))) + (let () (declare (not safe)) (_%g158750158874%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))))) + (_%g158750158874%_))))) (let () (declare (not safe)) - (_%g158713158837%_))))) - (let () (declare (not safe)) (_%g158713158837%_))) - (let () (declare (not safe)) (_%g158713158837%_))) - (let () (declare (not safe)) (_%g158713158837%_))))) + (_%g158750158874%_))))) + (let () (declare (not safe)) (_%g158750158874%_))) + (let () (declare (not safe)) (_%g158750158874%_))) + (let () (declare (not safe)) (_%g158750158874%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158713158837%_))))) + (_%g158750158874%_))))) (let () (declare (not safe)) - (_%g158713158837%_)))))))) - (_%loop158770158972%_ _%target158767158967%_ '())))) - (_%__match169750169751%_ - (lambda (_%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_) - (letrec ((_%loop158724159108%_ - (lambda (_%hd158722159111%_ - _%arg158728159113%_) + (_%g158750158874%_)))))))) + (_%loop158807159009%_ _%target158804159004%_ '())))) + (_%__match169787169788%_ + (lambda (_%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_) + (letrec ((_%loop158761159145%_ + (lambda (_%hd158759159148%_ + _%arg158765159150%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158722159111%_)) - (let ((_%e158725159116%_ + (gx#stx-pair? _%hd158759159148%_)) + (let ((_%e158762159153%_ (let () (declare (not safe)) - (gx#stx-e _%hd158722159111%_)))) - (let ((_%lp-tl158727159121%_ + (gx#stx-e _%hd158759159148%_)))) + (let ((_%lp-tl158764159158%_ (let () (declare (not safe)) - (##cdr _%e158725159116%_))) - (_%lp-hd158726159119%_ + (##cdr _%e158762159153%_))) + (_%lp-hd158763159156%_ (let () (declare (not safe)) - (##car _%e158725159116%_)))) - (_%loop158724159108%_ - _%lp-tl158727159121%_ - (cons _%lp-hd158726159119%_ - _%arg158728159113%_)))) - (let ((_%arg158729159124%_ - (reverse _%arg158728159113%_))) + (##car _%e158762159153%_)))) + (_%loop158761159145%_ + _%lp-tl158764159158%_ + (cons _%lp-hd158763159156%_ + _%arg158765159150%_)))) + (let ((_%arg158766159161%_ + (reverse _%arg158765159150%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158720159100%_)) - (let ((_%e158730159127%_ + _%tl158757159137%_)) + (let ((_%e158767159164%_ (let () (declare (not safe)) (gx#stx-e - _%tl158720159100%_)))) - (let ((_%tl158732159132%_ + _%tl158757159137%_)))) + (let ((_%tl158769159169%_ (let () (declare (not safe)) - (##cdr _%e158730159127%_))) - (_%hd158731159130%_ + (##cdr _%e158767159164%_))) + (_%hd158768159167%_ (let () (declare (not safe)) - (##car _%e158730159127%_)))) + (##car _%e158767159164%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158731159130%_)) - (let ((_%e158733159135%_ + _%hd158768159167%_)) + (let ((_%e158770159172%_ (let () (declare (not safe)) (gx#stx-e - _%hd158731159130%_)))) - (let ((_%tl158735159140%_ + _%hd158768159167%_)))) + (let ((_%tl158772159177%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158733159135%_))) - (_%hd158734159138%_ - (let () (declare (not safe)) (##car _%e158733159135%_)))) + (##cdr _%e158770159172%_))) + (_%hd158771159175%_ + (let () (declare (not safe)) (##car _%e158770159172%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158734159138%_)) + (gx#identifier? _%hd158771159175%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd158734159138%_)) + (gx#stx-eq? '%#call _%hd158771159175%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158735159140%_)) - (let ((_%e158736159143%_ + (gx#stx-pair? _%tl158772159177%_)) + (let ((_%e158773159180%_ (let () (declare (not safe)) - (gx#stx-e _%tl158735159140%_)))) - (let ((_%tl158738159148%_ + (gx#stx-e _%tl158772159177%_)))) + (let ((_%tl158775159185%_ (let () (declare (not safe)) - (##cdr _%e158736159143%_))) - (_%hd158737159146%_ + (##cdr _%e158773159180%_))) + (_%hd158774159183%_ (let () (declare (not safe)) - (##car _%e158736159143%_)))) + (##car _%e158773159180%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158737159146%_)) - (let ((_%e158739159151%_ + (gx#stx-pair? _%hd158774159183%_)) + (let ((_%e158776159188%_ (let () (declare (not safe)) - (gx#stx-e _%hd158737159146%_)))) - (let ((_%tl158741159156%_ + (gx#stx-e _%hd158774159183%_)))) + (let ((_%tl158778159193%_ (let () (declare (not safe)) - (##cdr _%e158739159151%_))) - (_%hd158740159154%_ + (##cdr _%e158776159188%_))) + (_%hd158777159191%_ (let () (declare (not safe)) - (##car _%e158739159151%_)))) + (##car _%e158776159188%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158740159154%_)) + _%hd158777159191%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158740159154%_)) + _%hd158777159191%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158741159156%_)) - (let ((_%e158742159159%_ + _%tl158778159193%_)) + (let ((_%e158779159196%_ (let () (declare (not safe)) (gx#stx-e - _%tl158741159156%_)))) - (let ((_%tl158744159164%_ + _%tl158778159193%_)))) + (let ((_%tl158781159201%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158742159159%_))) - (_%hd158743159162%_ - (let () (declare (not safe)) (##car _%e158742159159%_)))) + (##cdr _%e158779159196%_))) + (_%hd158780159199%_ + (let () (declare (not safe)) (##car _%e158779159196%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158744159164%_)) + (gx#stx-null? _%tl158781159201%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl158738159148%_)) - (let ((_%__splice169729169730%_ + (gx#stx-pair/null? _%tl158775159185%_)) + (let ((_%__splice169766169767%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl158738159148%_ + _%tl158775159185%_ '0)))) - (let ((_%tl158747159169%_ + (let ((_%tl158784159206%_ (let () (declare (not safe)) - (##vector-ref _%__splice169729169730%_ '1))) - (_%target158745159167%_ + (##vector-ref _%__splice169766169767%_ '1))) + (_%target158782159204%_ (let () (declare (not safe)) (##vector-ref - _%__splice169729169730%_ + _%__splice169766169767%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158747159169%_)) - (letrec ((_%loop158748159172%_ - (lambda (_%hd158746159175%_ - _%xarg158752159177%_) + (gx#stx-null? _%tl158784159206%_)) + (letrec ((_%loop158785159209%_ + (lambda (_%hd158783159212%_ + _%xarg158789159214%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158746159175%_)) - (let ((_%e158749159180%_ + _%hd158783159212%_)) + (let ((_%e158786159217%_ (let () (declare (not safe)) (gx#stx-e - _%hd158746159175%_)))) - (let ((_%lp-tl158751159185%_ + _%hd158783159212%_)))) + (let ((_%lp-tl158788159222%_ (let () (declare (not safe)) - (##cdr _%e158749159180%_))) - (_%lp-hd158750159183%_ + (##cdr _%e158786159217%_))) + (_%lp-hd158787159220%_ (let () (declare (not safe)) - (##car _%e158749159180%_)))) + (##car _%e158786159217%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd158750159183%_)) - (let ((_%e158754159188%_ + _%lp-hd158787159220%_)) + (let ((_%e158791159225%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd158750159183%_)))) - (let ((_%tl158756159193%_ + (gx#stx-e _%lp-hd158787159220%_)))) + (let ((_%tl158793159230%_ (let () (declare (not safe)) - (##cdr _%e158754159188%_))) - (_%hd158755159191%_ + (##cdr _%e158791159225%_))) + (_%hd158792159228%_ (let () (declare (not safe)) - (##car _%e158754159188%_)))) + (##car _%e158791159225%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158755159191%_)) + (gx#identifier? _%hd158792159228%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158755159191%_)) + (gx#stx-eq? '%#ref _%hd158792159228%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158756159193%_)) - (let ((_%e158757159196%_ + (gx#stx-pair? _%tl158793159230%_)) + (let ((_%e158794159233%_ (let () (declare (not safe)) - (gx#stx-e _%tl158756159193%_)))) - (let ((_%tl158759159201%_ + (gx#stx-e _%tl158793159230%_)))) + (let ((_%tl158796159238%_ (let () (declare (not safe)) - (##cdr _%e158757159196%_))) - (_%hd158758159199%_ + (##cdr _%e158794159233%_))) + (_%hd158795159236%_ (let () (declare (not safe)) - (##car _%e158757159196%_)))) + (##car _%e158794159233%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158759159201%_)) - (_%loop158748159172%_ - _%lp-tl158751159185%_ - (cons _%hd158758159199%_ - _%xarg158752159177%_)) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)))) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)))) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)))) + (gx#stx-null? _%tl158796159238%_)) + (_%loop158785159209%_ + _%lp-tl158788159222%_ + (cons _%hd158795159236%_ + _%xarg158789159214%_)) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)))) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)))) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg158753159204%_ - (reverse _%xarg158752159177%_))) + (let ((_%xarg158790159241%_ + (reverse _%xarg158789159214%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158732159132%_)) - (_%__kont169725169726%_ - _%xarg158753159204%_ - _%hd158743159162%_ - _%arg158729159124%_) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_))))))) - (_%loop158748159172%_ - _%target158745159167%_ + _%tl158769159169%_)) + (_%__kont169762169763%_ + _%xarg158790159241%_ + _%hd158780159199%_ + _%arg158766159161%_) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_))))))) + (_%loop158785159209%_ + _%target158782159204%_ '())) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)))) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)))) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)))) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)))) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)))) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)))) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)))) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)))) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)))) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_))))))) - (_%loop158724159108%_ _%target158721159103%_ '()))))) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)))) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_))))))) + (_%loop158761159145%_ _%target158758159140%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169723169724%_)) - (let ((_%e158718159095%_ + (gx#stx-pair? _%__stx169760169761%_)) + (let ((_%e158755159132%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169723169724%_)))) - (let ((_%tl158720159100%_ + (gx#stx-e _%__stx169760169761%_)))) + (let ((_%tl158757159137%_ (let () (declare (not safe)) - (##cdr _%e158718159095%_))) - (_%hd158719159098%_ + (##cdr _%e158755159132%_))) + (_%hd158756159135%_ (let () (declare (not safe)) - (##car _%e158718159095%_)))) + (##car _%e158755159132%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd158719159098%_)) - (let ((_%__splice169727169728%_ + (gx#stx-pair/null? _%hd158756159135%_)) + (let ((_%__splice169764169765%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd158719159098%_ + _%hd158756159135%_ '0)))) - (let ((_%tl158723159105%_ + (let ((_%tl158760159142%_ (let () (declare (not safe)) (##vector-ref - _%__splice169727169728%_ + _%__splice169764169765%_ '1))) - (_%target158721159103%_ + (_%target158758159140%_ (let () (declare (not safe)) (##vector-ref - _%__splice169727169728%_ + _%__splice169764169765%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158723159105%_)) - (_%__match169750169751%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_) - (_%__match169762169763%_ - _%e158718159095%_ - _%hd158719159098%_ - _%tl158720159100%_ - _%__splice169727169728%_ - _%target158721159103%_ - _%tl158723159105%_)))) + (gx#stx-null? _%tl158760159142%_)) + (_%__match169787169788%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_) + (_%__match169799169800%_ + _%e158755159132%_ + _%hd158756159135%_ + _%tl158757159137%_ + _%__splice169764169765%_ + _%target158758159140%_ + _%tl158760159142%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158720159100%_)) - (let ((_%e158806158850%_ + (gx#stx-pair? _%tl158757159137%_)) + (let ((_%e158843158887%_ (let () (declare (not safe)) - (gx#stx-e _%tl158720159100%_)))) - (let ((_%tl158808158855%_ + (gx#stx-e _%tl158757159137%_)))) + (let ((_%tl158845158892%_ (let () (declare (not safe)) - (##cdr _%e158806158850%_))) - (_%hd158807158853%_ + (##cdr _%e158843158887%_))) + (_%hd158844158890%_ (let () (declare (not safe)) - (##car _%e158806158850%_)))) + (##car _%e158843158887%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158807158853%_)) - (let ((_%e158809158858%_ + (gx#stx-pair? _%hd158844158890%_)) + (let ((_%e158846158895%_ (let () (declare (not safe)) - (gx#stx-e _%hd158807158853%_)))) - (let ((_%tl158811158863%_ + (gx#stx-e _%hd158844158890%_)))) + (let ((_%tl158848158900%_ (let () (declare (not safe)) - (##cdr _%e158809158858%_))) - (_%hd158810158861%_ + (##cdr _%e158846158895%_))) + (_%hd158847158898%_ (let () (declare (not safe)) - (##car _%e158809158858%_)))) + (##car _%e158846158895%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158810158861%_)) + _%hd158847158898%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd158810158861%_)) + _%hd158847158898%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158811158863%_)) - (let ((_%e158812158866%_ + _%tl158848158900%_)) + (let ((_%e158849158903%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl158811158863%_)))) - (let ((_%tl158814158871%_ - (let () (declare (not safe)) (##cdr _%e158812158866%_))) - (_%hd158813158869%_ + (gx#stx-e _%tl158848158900%_)))) + (let ((_%tl158851158908%_ + (let () (declare (not safe)) (##cdr _%e158849158903%_))) + (_%hd158850158906%_ (let () (declare (not safe)) - (##car _%e158812158866%_)))) + (##car _%e158849158903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158813158869%_)) - (let ((_%e158815158874%_ + (gx#stx-pair? _%hd158850158906%_)) + (let ((_%e158852158911%_ (let () (declare (not safe)) - (gx#stx-e _%hd158813158869%_)))) - (let ((_%tl158817158879%_ + (gx#stx-e _%hd158850158906%_)))) + (let ((_%tl158854158916%_ (let () (declare (not safe)) - (##cdr _%e158815158874%_))) - (_%hd158816158877%_ + (##cdr _%e158852158911%_))) + (_%hd158853158914%_ (let () (declare (not safe)) - (##car _%e158815158874%_)))) + (##car _%e158852158911%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158816158877%_)) + (gx#identifier? _%hd158853158914%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158816158877%_)) + (gx#stx-eq? '%#ref _%hd158853158914%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158817158879%_)) - (let ((_%e158818158882%_ + (gx#stx-pair? _%tl158854158916%_)) + (let ((_%e158855158919%_ (let () (declare (not safe)) - (gx#stx-e _%tl158817158879%_)))) - (let ((_%tl158820158887%_ + (gx#stx-e _%tl158854158916%_)))) + (let ((_%tl158857158924%_ (let () (declare (not safe)) - (##cdr _%e158818158882%_))) - (_%hd158819158885%_ + (##cdr _%e158855158919%_))) + (_%hd158856158922%_ (let () (declare (not safe)) - (##car _%e158818158882%_)))) + (##car _%e158855158919%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158820158887%_)) + _%tl158857158924%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158814158871%_)) - (let ((_%e158821158890%_ + _%tl158851158908%_)) + (let ((_%e158858158927%_ (let () (declare (not safe)) (gx#stx-e - _%tl158814158871%_)))) - (let ((_%tl158823158895%_ + _%tl158851158908%_)))) + (let ((_%tl158860158932%_ (let () (declare (not safe)) - (##cdr _%e158821158890%_))) - (_%hd158822158893%_ + (##cdr _%e158858158927%_))) + (_%hd158859158930%_ (let () (declare (not safe)) - (##car _%e158821158890%_)))) + (##car _%e158858158927%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158822158893%_)) - (let ((_%e158824158898%_ + _%hd158859158930%_)) + (let ((_%e158861158935%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd158822158893%_)))) - (let ((_%tl158826158903%_ + (gx#stx-e _%hd158859158930%_)))) + (let ((_%tl158863158940%_ (let () (declare (not safe)) - (##cdr _%e158824158898%_))) - (_%hd158825158901%_ + (##cdr _%e158861158935%_))) + (_%hd158862158938%_ (let () (declare (not safe)) - (##car _%e158824158898%_)))) + (##car _%e158861158935%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158825158901%_)) + (gx#identifier? _%hd158862158938%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158825158901%_)) + (gx#stx-eq? '%#ref _%hd158862158938%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158826158903%_)) - (let ((_%e158827158906%_ + (gx#stx-pair? _%tl158863158940%_)) + (let ((_%e158864158943%_ (let () (declare (not safe)) - (gx#stx-e _%tl158826158903%_)))) - (let ((_%tl158829158911%_ + (gx#stx-e _%tl158863158940%_)))) + (let ((_%tl158866158948%_ (let () (declare (not safe)) - (##cdr _%e158827158906%_))) - (_%hd158828158909%_ + (##cdr _%e158864158943%_))) + (_%hd158865158946%_ (let () (declare (not safe)) - (##car _%e158827158906%_)))) + (##car _%e158864158943%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158829158911%_)) + (gx#stx-null? _%tl158866158948%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158823158895%_)) - (let ((_%e158830158914%_ + _%tl158860158932%_)) + (let ((_%e158867158951%_ (let () (declare (not safe)) (gx#stx-e - _%tl158823158895%_)))) - (let ((_%tl158832158919%_ + _%tl158860158932%_)))) + (let ((_%tl158869158956%_ (let () (declare (not safe)) - (##cdr _%e158830158914%_))) - (_%hd158831158917%_ + (##cdr _%e158867158951%_))) + (_%hd158868158954%_ (let () (declare (not safe)) - (##car _%e158830158914%_)))) + (##car _%e158867158951%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158832158919%_)) + _%tl158869158956%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158808158855%_)) - (_%__kont169735169736%_ - _%hd158828158909%_ - _%hd158819158885%_ - _%hd158719159098%_) + _%tl158845158892%_)) + (_%__kont169772169773%_ + _%hd158865158946%_ + _%hd158856158922%_ + _%hd158756159135%_) (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))))) + (_%g158750158874%_))))) (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))))) + (_%g158750158874%_))))) (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))) - (let () (declare (not safe)) (_%g158713158837%_))))) - (let () (declare (not safe)) (_%g158713158837%_))))) + (_%g158750158874%_))) + (let () (declare (not safe)) (_%g158750158874%_))))) + (let () (declare (not safe)) (_%g158750158874%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))))) + (_%g158750158874%_))))) (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))))) - (let () (declare (not safe)) (_%g158713158837%_))))) - (let () (declare (not safe)) (_%g158713158837%_))) + (_%g158750158874%_))))) + (let () (declare (not safe)) (_%g158750158874%_))))) + (let () (declare (not safe)) (_%g158750158874%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158713158837%_))) + (_%g158750158874%_))) (let () (declare (not safe)) - (_%g158713158837%_))))) + (_%g158750158874%_))))) (let () (declare (not safe)) - (_%g158713158837%_))))) + (_%g158750158874%_))))) (let () (declare (not safe)) - (_%g158713158837%_)))))) - (let () (declare (not safe)) (_%g158713158837%_)))))))) + (_%g158750158874%_)))))) + (let () (declare (not safe)) (_%g158750158874%_)))))))) (define gxc#lambda-form-arity - (lambda (_%form158513%_) - (let* ((_%g158515158529%_ - (lambda (_%g158516158526%_) + (lambda (_%form158550%_) + (let* ((_%g158552158566%_ + (lambda (_%g158553158563%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158516158526%_)))) - (_%g158514158706%_ - (lambda (_%g158516158532%_) + _%g158553158563%_)))) + (_%g158551158743%_ + (lambda (_%g158553158569%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158516158532%_)) - (let ((_%e158519158534%_ + (gx#stx-pair? _%g158553158569%_)) + (let ((_%e158556158571%_ (let () (declare (not safe)) - (gx#stx-e _%g158516158532%_)))) - (let ((_%hd158520158537%_ + (gx#stx-e _%g158553158569%_)))) + (let ((_%hd158557158574%_ (let () (declare (not safe)) - (##car _%e158519158534%_))) - (_%tl158521158539%_ + (##car _%e158556158571%_))) + (_%tl158558158576%_ (let () (declare (not safe)) - (##cdr _%e158519158534%_)))) + (##cdr _%e158556158571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158521158539%_)) - (let ((_%e158522158542%_ + (gx#stx-pair? _%tl158558158576%_)) + (let ((_%e158559158579%_ (let () (declare (not safe)) - (gx#stx-e _%tl158521158539%_)))) - (let ((_%hd158523158545%_ + (gx#stx-e _%tl158558158576%_)))) + (let ((_%hd158560158582%_ (let () (declare (not safe)) - (##car _%e158522158542%_))) - (_%tl158524158547%_ + (##car _%e158559158579%_))) + (_%tl158561158584%_ (let () (declare (not safe)) - (##cdr _%e158522158542%_)))) + (##cdr _%e158559158579%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158524158547%_)) - ((lambda (_%L158550%_ _%L158551%_) - (let* ((_%__stx169845169846%_ - _%L158551%_) - (_%g158566158594%_ + (gx#stx-null? _%tl158561158584%_)) + ((lambda (_%L158587%_ _%L158588%_) + (let* ((_%__stx169882169883%_ + _%L158588%_) + (_%g158603158631%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169845169846%_))))) - (let ((_%__kont169847169848%_ - (lambda (_%L158685%_) - (length (let ((__tmp171236 + _%__stx169882169883%_))))) + (let ((_%__kont169884169885%_ + (lambda (_%L158722%_) + (length (let ((__tmp171273 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g158695158698%_ _%g158696158700%_) - (cons _%g158695158698%_ _%g158696158700%_)))) + (lambda (_%g158732158735%_ _%g158733158737%_) + (cons _%g158732158735%_ _%g158733158737%_)))) (declare (not safe)) - (__foldr1 __tmp171236 '() _%L158685%_))))) + (__foldr1 __tmp171273 '() _%L158722%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169851169852%_ - (lambda (_%L158636%_ - _%L158637%_) - (cons (length (let ((__tmp171237 + (_%__kont169888169889%_ + (lambda (_%L158673%_ + _%L158674%_) + (cons (length (let ((__tmp171274 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g158648158651%_ _%g158649158653%_) - (cons _%g158648158651%_ - _%g158649158653%_)))) + (lambda (_%g158685158688%_ _%g158686158690%_) + (cons _%g158685158688%_ + _%g158686158690%_)))) (declare (not safe)) - (__foldr1 __tmp171237 '() _%L158637%_))) + (__foldr1 __tmp171274 '() _%L158674%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169855169856%_ - (lambda (_%L158599%_) + (_%__kont169892169893%_ + (lambda (_%L158636%_) (cons '0 '())))) - (let* ((_%__match169870169871%_ - (lambda (_%__splice169853169854%_ - _%target158580158612%_ - _%tl158582158614%_) - (letrec ((_%loop158583158617%_ + (let* ((_%__match169907169908%_ + (lambda (_%__splice169890169891%_ + _%target158617158649%_ + _%tl158619158651%_) + (letrec ((_%loop158620158654%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd158581158620%_ _%arg158587158622%_) + (lambda (_%hd158618158657%_ _%arg158624158659%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158581158620%_)) - (let ((_%e158584158625%_ + (gx#stx-pair? _%hd158618158657%_)) + (let ((_%e158621158662%_ (let () (declare (not safe)) - (gx#stx-e _%hd158581158620%_)))) - (let ((_%lp-tl158586158630%_ + (gx#stx-e _%hd158618158657%_)))) + (let ((_%lp-tl158623158667%_ (let () (declare (not safe)) - (##cdr _%e158584158625%_))) - (_%lp-hd158585158628%_ + (##cdr _%e158621158662%_))) + (_%lp-hd158622158665%_ (let () (declare (not safe)) - (##car _%e158584158625%_)))) - (_%loop158583158617%_ - _%lp-tl158586158630%_ - (cons _%lp-hd158585158628%_ - _%arg158587158622%_)))) - (let ((_%arg158588158633%_ - (reverse _%arg158587158622%_))) - (_%__kont169851169852%_ - _%tl158582158614%_ - _%arg158588158633%_)))))) - (_%loop158583158617%_ _%target158580158612%_ '())))) + (##car _%e158621158662%_)))) + (_%loop158620158654%_ + _%lp-tl158623158667%_ + (cons _%lp-hd158622158665%_ + _%arg158624158659%_)))) + (let ((_%arg158625158670%_ + (reverse _%arg158624158659%_))) + (_%__kont169888169889%_ + _%tl158619158651%_ + _%arg158625158670%_)))))) + (_%loop158620158654%_ _%target158617158649%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169864169865%_ - (lambda (_%__splice169849169850%_ - _%target158569158661%_ - _%tl158571158663%_) - (letrec ((_%loop158572158666%_ + (_%__match169901169902%_ + (lambda (_%__splice169886169887%_ + _%target158606158698%_ + _%tl158608158700%_) + (letrec ((_%loop158609158703%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd158570158669%_ _%arg158576158671%_) + (lambda (_%hd158607158706%_ _%arg158613158708%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158570158669%_)) - (let ((_%e158573158674%_ + (gx#stx-pair? _%hd158607158706%_)) + (let ((_%e158610158711%_ (let () (declare (not safe)) - (gx#stx-e _%hd158570158669%_)))) - (let ((_%lp-tl158575158679%_ + (gx#stx-e _%hd158607158706%_)))) + (let ((_%lp-tl158612158716%_ (let () (declare (not safe)) - (##cdr _%e158573158674%_))) - (_%lp-hd158574158677%_ + (##cdr _%e158610158711%_))) + (_%lp-hd158611158714%_ (let () (declare (not safe)) - (##car _%e158573158674%_)))) - (_%loop158572158666%_ - _%lp-tl158575158679%_ - (cons _%lp-hd158574158677%_ - _%arg158576158671%_)))) - (let ((_%arg158577158682%_ - (reverse _%arg158576158671%_))) - (_%__kont169847169848%_ - _%arg158577158682%_)))))) - (_%loop158572158666%_ _%target158569158661%_ '()))))) + (##car _%e158610158711%_)))) + (_%loop158609158703%_ + _%lp-tl158612158716%_ + (cons _%lp-hd158611158714%_ + _%arg158613158708%_)))) + (let ((_%arg158614158719%_ + (reverse _%arg158613158708%_))) + (_%__kont169884169885%_ + _%arg158614158719%_)))))) + (_%loop158609158703%_ _%target158606158698%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%__stx169845169846%_)) - (let ((_%__splice169849169850%_ + _%__stx169882169883%_)) + (let ((_%__splice169886169887%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx169845169846%_ + _%__stx169882169883%_ '0)))) - (let ((_%tl158571158663%_ + (let ((_%tl158608158700%_ (let () (declare (not safe)) (##vector-ref - _%__splice169849169850%_ + _%__splice169886169887%_ '1))) - (_%target158569158661%_ + (_%target158606158698%_ (let () (declare (not safe)) (##vector-ref - _%__splice169849169850%_ + _%__splice169886169887%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158571158663%_)) - (_%__match169864169865%_ - _%__splice169849169850%_ - _%target158569158661%_ - _%tl158571158663%_) - (_%__match169870169871%_ - _%__splice169849169850%_ - _%target158569158661%_ - _%tl158571158663%_)))) - (_%__kont169855169856%_ - _%__stx169845169846%_)))))) - _%hd158523158545%_ - _%hd158520158537%_) - (_%g158515158529%_ _%g158516158532%_)))) - (_%g158515158529%_ _%g158516158532%_)))) - (_%g158515158529%_ _%g158516158532%_))))) - (_%g158514158706%_ _%form158513%_)))) + _%tl158608158700%_)) + (_%__match169901169902%_ + _%__splice169886169887%_ + _%target158606158698%_ + _%tl158608158700%_) + (_%__match169907169908%_ + _%__splice169886169887%_ + _%target158606158698%_ + _%tl158608158700%_)))) + (_%__kont169892169893%_ + _%__stx169882169883%_)))))) + _%hd158560158582%_ + _%hd158557158574%_) + (_%g158552158566%_ _%g158553158569%_)))) + (_%g158552158566%_ _%g158553158569%_)))) + (_%g158552158566%_ _%g158553158569%_))))) + (_%g158551158743%_ _%form158550%_)))) (define gxc#lambda-form-infer-signature - (lambda (_%form158439%_) - (letrec ((_%default-signature158441%_ + (lambda (_%form158476%_) + (letrec ((_%default-signature158478%_ (lambda () - (let ((__obj171004 + (let ((__obj171041 (let () (declare (not safe)) (##structure @@ -17998,12 +17998,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171004 + __obj171041 't::t '1 '#f '#f)) - (let ((__tmp171238 + (let ((__tmp171275 (##structure-ref (let () (declare (not safe)) @@ -18013,74 +18013,74 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj171004 - __tmp171238 + __obj171041 + __tmp171275 '5 '#f '#f)) - __obj171004)))) - (let* ((_%g158443158457%_ - (lambda (_%g158444158454%_) + __obj171041)))) + (let* ((_%g158480158494%_ + (lambda (_%g158481158491%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158444158454%_)))) - (_%g158442158509%_ - (lambda (_%g158444158460%_) + _%g158481158491%_)))) + (_%g158479158546%_ + (lambda (_%g158481158497%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158444158460%_)) - (let ((_%e158447158462%_ + (gx#stx-pair? _%g158481158497%_)) + (let ((_%e158484158499%_ (let () (declare (not safe)) - (gx#stx-e _%g158444158460%_)))) - (let ((_%hd158448158465%_ + (gx#stx-e _%g158481158497%_)))) + (let ((_%hd158485158502%_ (let () (declare (not safe)) - (##car _%e158447158462%_))) - (_%tl158449158467%_ + (##car _%e158484158499%_))) + (_%tl158486158504%_ (let () (declare (not safe)) - (##cdr _%e158447158462%_)))) + (##cdr _%e158484158499%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158449158467%_)) - (let ((_%e158450158470%_ + (gx#stx-pair? _%tl158486158504%_)) + (let ((_%e158487158507%_ (let () (declare (not safe)) - (gx#stx-e _%tl158449158467%_)))) - (let ((_%hd158451158473%_ + (gx#stx-e _%tl158486158504%_)))) + (let ((_%hd158488158510%_ (let () (declare (not safe)) - (##car _%e158450158470%_))) - (_%tl158452158475%_ + (##car _%e158487158507%_))) + (_%tl158489158512%_ (let () (declare (not safe)) - (##cdr _%e158450158470%_)))) + (##cdr _%e158487158507%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158452158475%_)) - ((lambda (_%L158478%_ _%L158479%_) - (let ((_%$e158493%_ + (gx#stx-null? _%tl158489158512%_)) + ((lambda (_%L158515%_ _%L158516%_) + (let ((_%$e158530%_ (gxc#apply-extract-lambda-signature - _%L158478%_))) - (if _%$e158493%_ - _%$e158493%_ - (let ((_%$e158496%_ + _%L158515%_))) + (if _%$e158530%_ + _%$e158530%_ + (let ((_%$e158533%_ (gxc#apply-basic-expression-type - _%L158478%_))) - (if _%$e158496%_ - ((lambda (_%return-type158499%_) + _%L158515%_))) + (if _%$e158533%_ + ((lambda (_%return-type158536%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-instance-of? - _%return-type158499%_ + _%return-type158536%_ 'gxc#!procedure::t)) - (let ((__obj171006 + (let ((__obj171043 (let () (declare (not safe)) (##structure @@ -18093,12 +18093,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171006 + __obj171043 'procedure::t '1 '#f '#f)) - (let ((__tmp171239 + (let ((__tmp171276 (##structure-ref (let () (declare (not safe)) @@ -18108,20 +18108,20 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj171006 - __tmp171239 + __obj171043 + __tmp171276 '5 '#f '#f)) - __obj171006) - (let ((_%$e158502%_ + __obj171043) + (let ((_%$e158539%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return-type158499%_)))) - (if _%$e158502%_ - ((lambda (_%return-type-name158505%_) - (let ((__obj171005 + _%return-type158536%_)))) + (if _%$e158539%_ + ((lambda (_%return-type-name158542%_) + (let ((__obj171042 (let () (declare (not safe)) (##structure @@ -18134,12 +18134,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171005 - _%return-type-name158505%_ + __obj171042 + _%return-type-name158542%_ '1 '#f '#f)) - (let ((__tmp171240 + (let ((__tmp171277 (##structure-ref (let () (declare (not safe)) @@ -18149,124 +18149,124 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj171005 - __tmp171240 + __obj171042 + __tmp171277 '5 '#f '#f)) - __obj171005)) - _%$e158502%_) - (_%default-signature158441%_))))) - _%$e158496%_) - (_%default-signature158441%_)))))) + __obj171042)) + _%$e158539%_) + (_%default-signature158478%_))))) + _%$e158533%_) + (_%default-signature158478%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd158451158473%_ - _%hd158448158465%_) - (_%g158443158457%_ - _%g158444158460%_)))) - (_%g158443158457%_ _%g158444158460%_)))) - (_%g158443158457%_ _%g158444158460%_))))) - (_%g158442158509%_ _%form158439%_))))) + _%hd158488158510%_ + _%hd158485158502%_) + (_%g158480158494%_ + _%g158481158497%_)))) + (_%g158480158494%_ _%g158481158497%_)))) + (_%g158480158494%_ _%g158481158497%_))))) + (_%g158479158546%_ _%form158476%_))))) (define gxc#extract-lambda-signature-begin-annotation% - (lambda (_%self158178%_ _%stx158179%_) - (let* ((_%__stx169886169887%_ _%stx158179%_) - (_%g158182158222%_ + (lambda (_%self158215%_ _%stx158216%_) + (let* ((_%__stx169923169924%_ _%stx158216%_) + (_%g158219158259%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169886169887%_))))) - (let ((_%__kont169888169889%_ - (lambda (_%L158328%_ _%L158329%_) - (let _%loop158349%_ ((_%rest158351%_ - (let ((__tmp171245 - (lambda (_%g158428158431%_ - _%g158429158433%_) - (cons _%g158428158431%_ - _%g158429158433%_)))) + _%__stx169923169924%_))))) + (let ((_%__kont169925169926%_ + (lambda (_%L158365%_ _%L158366%_) + (let _%loop158386%_ ((_%rest158388%_ + (let ((__tmp171282 + (lambda (_%g158465158468%_ + _%g158466158470%_) + (cons _%g158465158468%_ + _%g158466158470%_)))) (declare (not safe)) (__foldr1 - __tmp171245 + __tmp171282 '() - _%L158329%_))) - (_%result158352%_ '())) - (let* ((_%rest158353158366%_ _%rest158351%_) - (_%E158357158370%_ + _%L158366%_))) + (_%result158389%_ '())) + (let* ((_%rest158390158403%_ _%rest158388%_) + (_%E158394158407%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest158353158366%_ + _%rest158390158403%_ '([(? stx-keyword? key) arg . rest]) '([]) '(_))) '#!void))) - (let ((_%K158360158410%_ - (lambda (_%rest158396%_ - _%arg158397%_ - _%key158398%_) - (let ((_%$e158400%_ + (let ((_%K158397158447%_ + (lambda (_%rest158433%_ + _%arg158434%_ + _%key158435%_) + (let ((_%$e158437%_ (let () (declare (not safe)) - (gx#stx-e _%key158398%_)))) - (if (eq? 'return: _%$e158400%_) - (_%loop158349%_ - _%rest158396%_ + (gx#stx-e _%key158435%_)))) + (if (eq? 'return: _%$e158437%_) + (_%loop158386%_ + _%rest158433%_ (cons 'return: (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%arg158397%_)) - _%result158352%_))) - (if (eq? 'effect: _%$e158400%_) - (_%loop158349%_ - _%rest158396%_ + _%arg158434%_)) + _%result158389%_))) + (if (eq? 'effect: _%$e158437%_) + (_%loop158386%_ + _%rest158433%_ (cons 'effect: - (cons (if _%arg158397%_ + (cons (if _%arg158434%_ (map gx#stx-e - _%arg158397%_) + _%arg158434%_) '#f) - _%result158352%_))) - (if (eq? 'arguments: _%$e158400%_) - (_%loop158349%_ - _%rest158396%_ + _%result158389%_))) + (if (eq? 'arguments: _%$e158437%_) + (_%loop158386%_ + _%rest158433%_ (cons 'arguments: (cons (let () (declare (not safe)) (gxc#map* gxc#identifier-symbol - _%arg158397%_)) - _%result158352%_))) + _%arg158434%_)) + _%result158389%_))) (if (eq? 'unchecked: - _%$e158400%_) - (_%loop158349%_ - _%rest158396%_ + _%$e158437%_) + (_%loop158386%_ + _%rest158433%_ (cons 'unchecked: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%arg158397%_)) - _%result158352%_))) + (gxc#identifier-symbol _%arg158434%_)) + _%result158389%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171241 - (let ((__tmp171242 - (lambda (_%g158402158405%_ + (let ((__tmp171278 + (let ((__tmp171279 + (lambda (_%g158439158442%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g158403158407%_) - (cons _%g158402158405%_ _%g158403158407%_)))) + _%g158440158444%_) + (cons _%g158439158442%_ _%g158440158444%_)))) (declare (not safe)) - (__foldr1 __tmp171242 '() _%L158329%_)))) + (__foldr1 __tmp171279 '() _%L158366%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx158179%_ - __tmp171241 - _%key158398%_))))))))) - (_%K158359158390%_ + _%stx158216%_ + __tmp171278 + _%key158435%_))))))))) + (_%K158396158427%_ (lambda () (apply gxc#make-!signature 'origin: @@ -18277,1824 +18277,1824 @@ '1 gx#expander-context::t '#f) - _%result158352%_))) - (_%K158358158382%_ + _%result158389%_))) + (_%K158395158419%_ (lambda () - (let ((__tmp171243 - (let ((__tmp171244 - (lambda (_%g158374158377%_ - _%g158375158379%_) - (cons _%g158374158377%_ - _%g158375158379%_)))) + (let ((__tmp171280 + (let ((__tmp171281 + (lambda (_%g158411158414%_ + _%g158412158416%_) + (cons _%g158411158414%_ + _%g158412158416%_)))) (declare (not safe)) (__foldr1 - __tmp171244 + __tmp171281 '() - _%L158329%_)))) + _%L158366%_)))) (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx158179%_ - __tmp171243))))) - (let ((_%try-match158355158393%_ + _%stx158216%_ + __tmp171280))))) + (let ((_%try-match158392158430%_ (lambda () - (if (null? _%rest158353158366%_) - (_%K158359158390%_) - (_%K158358158382%_))))) - (if (pair? _%rest158353158366%_) - (let ((_%tl158362158415%_ + (if (null? _%rest158390158403%_) + (_%K158396158427%_) + (_%K158395158419%_))))) + (if (pair? _%rest158390158403%_) + (let ((_%tl158399158452%_ (let () (declare (not safe)) - (##cdr _%rest158353158366%_))) - (_%hd158361158413%_ + (##cdr _%rest158390158403%_))) + (_%hd158398158450%_ (let () (declare (not safe)) - (##car _%rest158353158366%_)))) + (##car _%rest158390158403%_)))) (if (let () (declare (not safe)) - (gx#stx-keyword? _%hd158361158413%_)) - (if (pair? _%tl158362158415%_) - (let ((_%tl158364158422%_ + (gx#stx-keyword? _%hd158398158450%_)) + (if (pair? _%tl158399158452%_) + (let ((_%tl158401158459%_ (let () (declare (not safe)) - (##cdr _%tl158362158415%_))) - (_%hd158363158420%_ + (##cdr _%tl158399158452%_))) + (_%hd158400158457%_ (let () (declare (not safe)) - (##car _%tl158362158415%_)))) - (let ((_%key158418%_ - _%hd158361158413%_) - (_%arg158425%_ - _%hd158363158420%_) - (_%rest158427%_ - _%tl158364158422%_)) - (_%K158360158410%_ - _%rest158427%_ - _%arg158425%_ - _%key158418%_))) - (_%K158358158382%_)) - (_%K158358158382%_))) - (_%try-match158355158393%_)))))))) - (_%__kont169892169893%_ - (lambda (_%L158251%_ _%L158252%_) + (##car _%tl158399158452%_)))) + (let ((_%key158455%_ + _%hd158398158450%_) + (_%arg158462%_ + _%hd158400158457%_) + (_%rest158464%_ + _%tl158401158459%_)) + (_%K158397158447%_ + _%rest158464%_ + _%arg158462%_ + _%key158455%_))) + (_%K158395158419%_)) + (_%K158395158419%_))) + (_%try-match158392158430%_)))))))) + (_%__kont169929169930%_ + (lambda (_%L158288%_ _%L158289%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self158178%_ _%L158251%_))))) - (let ((_%__match169923169924%_ - (lambda (_%e158186158272%_ - _%hd158187158275%_ - _%tl158188158277%_ - _%e158189158280%_ - _%hd158190158283%_ - _%tl158191158285%_ - _%e158192158288%_ - _%hd158193158291%_ - _%tl158194158293%_ - _%__splice169890169891%_ - _%target158195158296%_ - _%tl158197158298%_) - (letrec ((_%loop158198158301%_ - (lambda (_%hd158196158304%_ - _%signature158202158306%_) + (gxc#compile-e__1 _%self158215%_ _%L158288%_))))) + (let ((_%__match169960169961%_ + (lambda (_%e158223158309%_ + _%hd158224158312%_ + _%tl158225158314%_ + _%e158226158317%_ + _%hd158227158320%_ + _%tl158228158322%_ + _%e158229158325%_ + _%hd158230158328%_ + _%tl158231158330%_ + _%__splice169927169928%_ + _%target158232158333%_ + _%tl158234158335%_) + (letrec ((_%loop158235158338%_ + (lambda (_%hd158233158341%_ + _%signature158239158343%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158196158304%_)) - (let ((_%e158199158309%_ + (gx#stx-pair? _%hd158233158341%_)) + (let ((_%e158236158346%_ (let () (declare (not safe)) - (gx#stx-e _%hd158196158304%_)))) - (let ((_%lp-tl158201158314%_ + (gx#stx-e _%hd158233158341%_)))) + (let ((_%lp-tl158238158351%_ (let () (declare (not safe)) - (##cdr _%e158199158309%_))) - (_%lp-hd158200158312%_ + (##cdr _%e158236158346%_))) + (_%lp-hd158237158349%_ (let () (declare (not safe)) - (##car _%e158199158309%_)))) - (_%loop158198158301%_ - _%lp-tl158201158314%_ - (cons _%lp-hd158200158312%_ - _%signature158202158306%_)))) - (let ((_%signature158203158317%_ - (reverse _%signature158202158306%_))) + (##car _%e158236158346%_)))) + (_%loop158235158338%_ + _%lp-tl158238158351%_ + (cons _%lp-hd158237158349%_ + _%signature158239158343%_)))) + (let ((_%signature158240158354%_ + (reverse _%signature158239158343%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158191158285%_)) - (let ((_%e158204158320%_ + (gx#stx-pair? _%tl158228158322%_)) + (let ((_%e158241158357%_ (let () (declare (not safe)) (gx#stx-e - _%tl158191158285%_)))) - (let ((_%tl158206158325%_ + _%tl158228158322%_)))) + (let ((_%tl158243158362%_ (let () (declare (not safe)) - (##cdr _%e158204158320%_))) - (_%hd158205158323%_ + (##cdr _%e158241158357%_))) + (_%hd158242158360%_ (let () (declare (not safe)) - (##car _%e158204158320%_)))) + (##car _%e158241158357%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158206158325%_)) - (_%__kont169888169889%_ - _%hd158205158323%_ - _%signature158203158317%_) + _%tl158243158362%_)) + (_%__kont169925169926%_ + _%hd158242158360%_ + _%signature158240158354%_) (let () (declare (not safe)) - (_%g158182158222%_))))) + (_%g158219158259%_))))) (let () (declare (not safe)) - (_%g158182158222%_)))))))) - (_%loop158198158301%_ _%target158195158296%_ '()))))) + (_%g158219158259%_)))))))) + (_%loop158235158338%_ _%target158232158333%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169886169887%_)) - (let ((_%e158186158272%_ + (gx#stx-pair? _%__stx169923169924%_)) + (let ((_%e158223158309%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169886169887%_)))) - (let ((_%tl158188158277%_ + (gx#stx-e _%__stx169923169924%_)))) + (let ((_%tl158225158314%_ (let () (declare (not safe)) - (##cdr _%e158186158272%_))) - (_%hd158187158275%_ + (##cdr _%e158223158309%_))) + (_%hd158224158312%_ (let () (declare (not safe)) - (##car _%e158186158272%_)))) + (##car _%e158223158309%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158188158277%_)) - (let ((_%e158189158280%_ + (gx#stx-pair? _%tl158225158314%_)) + (let ((_%e158226158317%_ (let () (declare (not safe)) - (gx#stx-e _%tl158188158277%_)))) - (let ((_%tl158191158285%_ + (gx#stx-e _%tl158225158314%_)))) + (let ((_%tl158228158322%_ (let () (declare (not safe)) - (##cdr _%e158189158280%_))) - (_%hd158190158283%_ + (##cdr _%e158226158317%_))) + (_%hd158227158320%_ (let () (declare (not safe)) - (##car _%e158189158280%_)))) + (##car _%e158226158317%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158190158283%_)) - (let ((_%e158192158288%_ + (gx#stx-pair? _%hd158227158320%_)) + (let ((_%e158229158325%_ (let () (declare (not safe)) - (gx#stx-e _%hd158190158283%_)))) - (let ((_%tl158194158293%_ + (gx#stx-e _%hd158227158320%_)))) + (let ((_%tl158231158330%_ (let () (declare (not safe)) - (##cdr _%e158192158288%_))) - (_%hd158193158291%_ + (##cdr _%e158229158325%_))) + (_%hd158230158328%_ (let () (declare (not safe)) - (##car _%e158192158288%_)))) + (##car _%e158229158325%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158193158291%_)) + _%hd158230158328%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd158193158291%_)) + _%hd158230158328%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl158194158293%_)) - (let ((_%__splice169890169891%_ + _%tl158231158330%_)) + (let ((_%__splice169927169928%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl158194158293%_ + _%tl158231158330%_ '0)))) - (let ((_%tl158197158298%_ + (let ((_%tl158234158335%_ (let () (declare (not safe)) (##vector-ref - _%__splice169890169891%_ + _%__splice169927169928%_ '1))) - (_%target158195158296%_ + (_%target158232158333%_ (let () (declare (not safe)) (##vector-ref - _%__splice169890169891%_ + _%__splice169927169928%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158197158298%_)) - (_%__match169923169924%_ - _%e158186158272%_ - _%hd158187158275%_ - _%tl158188158277%_ - _%e158189158280%_ - _%hd158190158283%_ - _%tl158191158285%_ - _%e158192158288%_ - _%hd158193158291%_ - _%tl158194158293%_ - _%__splice169890169891%_ - _%target158195158296%_ - _%tl158197158298%_) + _%tl158234158335%_)) + (_%__match169960169961%_ + _%e158223158309%_ + _%hd158224158312%_ + _%tl158225158314%_ + _%e158226158317%_ + _%hd158227158320%_ + _%tl158228158322%_ + _%e158229158325%_ + _%hd158230158328%_ + _%tl158231158330%_ + _%__splice169927169928%_ + _%target158232158333%_ + _%tl158234158335%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl158191158285%_)) - (let ((_%e158215158243%_ + (gx#stx-pair? _%tl158228158322%_)) + (let ((_%e158252158280%_ (let () (declare (not safe)) - (gx#stx-e _%tl158191158285%_)))) - (let ((_%tl158217158248%_ + (gx#stx-e _%tl158228158322%_)))) + (let ((_%tl158254158285%_ (let () (declare (not safe)) - (##cdr _%e158215158243%_))) - (_%hd158216158246%_ + (##cdr _%e158252158280%_))) + (_%hd158253158283%_ (let () (declare (not safe)) - (##car _%e158215158243%_)))) + (##car _%e158252158280%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158217158248%_)) - (_%__kont169892169893%_ - _%hd158216158246%_ - _%hd158190158283%_) + (gx#stx-null? _%tl158254158285%_)) + (_%__kont169929169930%_ + _%hd158253158283%_ + _%hd158227158320%_) (let () (declare (not safe)) - (_%g158182158222%_))))) - (let () (declare (not safe)) (_%g158182158222%_)))))) + (_%g158219158259%_))))) + (let () (declare (not safe)) (_%g158219158259%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158191158285%_)) - (let ((_%e158215158243%_ + _%tl158228158322%_)) + (let ((_%e158252158280%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl158191158285%_)))) - (let ((_%tl158217158248%_ - (let () (declare (not safe)) (##cdr _%e158215158243%_))) - (_%hd158216158246%_ + (gx#stx-e _%tl158228158322%_)))) + (let ((_%tl158254158285%_ + (let () (declare (not safe)) (##cdr _%e158252158280%_))) + (_%hd158253158283%_ (let () (declare (not safe)) - (##car _%e158215158243%_)))) + (##car _%e158252158280%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158217158248%_)) - (_%__kont169892169893%_ - _%hd158216158246%_ - _%hd158190158283%_) - (let () (declare (not safe)) (_%g158182158222%_))))) - (let () (declare (not safe)) (_%g158182158222%_)))) + (gx#stx-null? _%tl158254158285%_)) + (_%__kont169929169930%_ + _%hd158253158283%_ + _%hd158227158320%_) + (let () (declare (not safe)) (_%g158219158259%_))))) + (let () (declare (not safe)) (_%g158219158259%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158191158285%_)) - (let ((_%e158215158243%_ + _%tl158228158322%_)) + (let ((_%e158252158280%_ (let () (declare (not safe)) (gx#stx-e - _%tl158191158285%_)))) - (let ((_%tl158217158248%_ + _%tl158228158322%_)))) + (let ((_%tl158254158285%_ (let () (declare (not safe)) - (##cdr _%e158215158243%_))) - (_%hd158216158246%_ + (##cdr _%e158252158280%_))) + (_%hd158253158283%_ (let () (declare (not safe)) - (##car _%e158215158243%_)))) + (##car _%e158252158280%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158217158248%_)) - (_%__kont169892169893%_ - _%hd158216158246%_ - _%hd158190158283%_) + _%tl158254158285%_)) + (_%__kont169929169930%_ + _%hd158253158283%_ + _%hd158227158320%_) (let () (declare (not safe)) - (_%g158182158222%_))))) + (_%g158219158259%_))))) (let () (declare (not safe)) - (_%g158182158222%_)))) + (_%g158219158259%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158191158285%_)) - (let ((_%e158215158243%_ + _%tl158228158322%_)) + (let ((_%e158252158280%_ (let () (declare (not safe)) (gx#stx-e - _%tl158191158285%_)))) - (let ((_%tl158217158248%_ + _%tl158228158322%_)))) + (let ((_%tl158254158285%_ (let () (declare (not safe)) - (##cdr _%e158215158243%_))) - (_%hd158216158246%_ + (##cdr _%e158252158280%_))) + (_%hd158253158283%_ (let () (declare (not safe)) - (##car _%e158215158243%_)))) + (##car _%e158252158280%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158217158248%_)) - (_%__kont169892169893%_ - _%hd158216158246%_ - _%hd158190158283%_) + _%tl158254158285%_)) + (_%__kont169929169930%_ + _%hd158253158283%_ + _%hd158227158320%_) (let () (declare (not safe)) - (_%g158182158222%_))))) + (_%g158219158259%_))))) (let () (declare (not safe)) - (_%g158182158222%_)))))) + (_%g158219158259%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158191158285%_)) - (let ((_%e158215158243%_ + (gx#stx-pair? _%tl158228158322%_)) + (let ((_%e158252158280%_ (let () (declare (not safe)) - (gx#stx-e _%tl158191158285%_)))) - (let ((_%tl158217158248%_ + (gx#stx-e _%tl158228158322%_)))) + (let ((_%tl158254158285%_ (let () (declare (not safe)) - (##cdr _%e158215158243%_))) - (_%hd158216158246%_ + (##cdr _%e158252158280%_))) + (_%hd158253158283%_ (let () (declare (not safe)) - (##car _%e158215158243%_)))) + (##car _%e158252158280%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158217158248%_)) - (_%__kont169892169893%_ - _%hd158216158246%_ - _%hd158190158283%_) + _%tl158254158285%_)) + (_%__kont169929169930%_ + _%hd158253158283%_ + _%hd158227158320%_) (let () (declare (not safe)) - (_%g158182158222%_))))) + (_%g158219158259%_))))) (let () (declare (not safe)) - (_%g158182158222%_)))))) - (let () (declare (not safe)) (_%g158182158222%_))))) - (let () (declare (not safe)) (_%g158182158222%_)))))))) + (_%g158219158259%_)))))) + (let () (declare (not safe)) (_%g158219158259%_))))) + (let () (declare (not safe)) (_%g158219158259%_)))))))) (define gxc#lambda-expr? - (lambda (_%expr158131%_) - (let* ((_%__stx169946169947%_ _%expr158131%_) - (_%g158134158144%_ + (lambda (_%expr158168%_) + (let* ((_%__stx169983169984%_ _%expr158168%_) + (_%g158171158181%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169946169947%_))))) - (let ((_%__kont169948169949%_ (lambda (_%L158164%_) '#t)) - (_%__kont169950169951%_ (lambda () '#f))) + _%__stx169983169984%_))))) + (let ((_%__kont169985169986%_ (lambda (_%L158201%_) '#t)) + (_%__kont169987169988%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169946169947%_)) - (let ((_%e158137158156%_ + (gx#stx-pair? _%__stx169983169984%_)) + (let ((_%e158174158193%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169946169947%_)))) - (let ((_%tl158139158161%_ + (gx#stx-e _%__stx169983169984%_)))) + (let ((_%tl158176158198%_ (let () (declare (not safe)) - (##cdr _%e158137158156%_))) - (_%hd158138158159%_ + (##cdr _%e158174158193%_))) + (_%hd158175158196%_ (let () (declare (not safe)) - (##car _%e158137158156%_)))) + (##car _%e158174158193%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158138158159%_)) + (gx#identifier? _%hd158175158196%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd158138158159%_)) - (_%__kont169948169949%_ _%tl158139158161%_) - (_%__kont169950169951%_)) - (_%__kont169950169951%_)))) - (_%__kont169950169951%_)))))) + (gx#stx-eq? '%#lambda _%hd158175158196%_)) + (_%__kont169985169986%_ _%tl158176158198%_) + (_%__kont169987169988%_)) + (_%__kont169987169988%_)))) + (_%__kont169987169988%_)))))) (define gxc#case-lambda-expr? - (lambda (_%expr158084%_) - (let* ((_%__stx169964169965%_ _%expr158084%_) - (_%g158087158097%_ + (lambda (_%expr158121%_) + (let* ((_%__stx170001170002%_ _%expr158121%_) + (_%g158124158134%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169964169965%_))))) - (let ((_%__kont169966169967%_ (lambda (_%L158117%_) '#t)) - (_%__kont169968169969%_ (lambda () '#f))) + _%__stx170001170002%_))))) + (let ((_%__kont170003170004%_ (lambda (_%L158154%_) '#t)) + (_%__kont170005170006%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169964169965%_)) - (let ((_%e158090158109%_ + (gx#stx-pair? _%__stx170001170002%_)) + (let ((_%e158127158146%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169964169965%_)))) - (let ((_%tl158092158114%_ + (gx#stx-e _%__stx170001170002%_)))) + (let ((_%tl158129158151%_ (let () (declare (not safe)) - (##cdr _%e158090158109%_))) - (_%hd158091158112%_ + (##cdr _%e158127158146%_))) + (_%hd158128158149%_ (let () (declare (not safe)) - (##car _%e158090158109%_)))) + (##car _%e158127158146%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158091158112%_)) + (gx#identifier? _%hd158128158149%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _%hd158091158112%_)) - (_%__kont169966169967%_ _%tl158092158114%_) - (_%__kont169968169969%_)) - (_%__kont169968169969%_)))) - (_%__kont169968169969%_)))))) + (gx#stx-eq? '%#case-lambda _%hd158128158149%_)) + (_%__kont170003170004%_ _%tl158129158151%_) + (_%__kont170005170006%_)) + (_%__kont170005170006%_)))) + (_%__kont170005170006%_)))))) (define gxc#opt-lambda-expr? - (lambda (_%expr157953%_) - (let* ((_%__stx169982169983%_ _%expr157953%_) - (_%g157956157986%_ + (lambda (_%expr157990%_) + (let* ((_%__stx170019170020%_ _%expr157990%_) + (_%g157993158023%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169982169983%_))))) - (let ((_%__kont169984169985%_ - (lambda (_%L158054%_ _%L158055%_ _%L158056%_) + _%__stx170019170020%_))))) + (let ((_%__kont170021170022%_ + (lambda (_%L158091%_ _%L158092%_ _%L158093%_) (if (let () (declare (not safe)) - (gx#identifier? _%L158056%_)) - (if (gxc#lambda-expr? _%L158055%_) - (gxc#case-lambda-expr? _%L158054%_) + (gx#identifier? _%L158093%_)) + (if (gxc#lambda-expr? _%L158092%_) + (gxc#case-lambda-expr? _%L158091%_) '#f) '#f))) - (_%__kont169986169987%_ (lambda () '#f))) + (_%__kont170023170024%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169982169983%_)) - (let ((_%e157961157998%_ + (gx#stx-pair? _%__stx170019170020%_)) + (let ((_%e157998158035%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169982169983%_)))) - (let ((_%tl157963158003%_ + (gx#stx-e _%__stx170019170020%_)))) + (let ((_%tl158000158040%_ (let () (declare (not safe)) - (##cdr _%e157961157998%_))) - (_%hd157962158001%_ + (##cdr _%e157998158035%_))) + (_%hd157999158038%_ (let () (declare (not safe)) - (##car _%e157961157998%_)))) + (##car _%e157998158035%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157962158001%_)) + (gx#identifier? _%hd157999158038%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd157962158001%_)) + (gx#stx-eq? '%#let-values _%hd157999158038%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157963158003%_)) - (let ((_%e157964158006%_ + (gx#stx-pair? _%tl158000158040%_)) + (let ((_%e158001158043%_ (let () (declare (not safe)) - (gx#stx-e _%tl157963158003%_)))) - (let ((_%tl157966158011%_ + (gx#stx-e _%tl158000158040%_)))) + (let ((_%tl158003158048%_ (let () (declare (not safe)) - (##cdr _%e157964158006%_))) - (_%hd157965158009%_ + (##cdr _%e158001158043%_))) + (_%hd158002158046%_ (let () (declare (not safe)) - (##car _%e157964158006%_)))) + (##car _%e158001158043%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157965158009%_)) - (let ((_%e157967158014%_ + (gx#stx-pair? _%hd158002158046%_)) + (let ((_%e158004158051%_ (let () (declare (not safe)) (gx#stx-e - _%hd157965158009%_)))) - (let ((_%tl157969158019%_ + _%hd158002158046%_)))) + (let ((_%tl158006158056%_ (let () (declare (not safe)) - (##cdr _%e157967158014%_))) - (_%hd157968158017%_ + (##cdr _%e158004158051%_))) + (_%hd158005158054%_ (let () (declare (not safe)) - (##car _%e157967158014%_)))) + (##car _%e158004158051%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157968158017%_)) - (let ((_%e157970158022%_ + _%hd158005158054%_)) + (let ((_%e158007158059%_ (let () (declare (not safe)) (gx#stx-e - _%hd157968158017%_)))) - (let ((_%tl157972158027%_ + _%hd158005158054%_)))) + (let ((_%tl158009158064%_ (let () (declare (not safe)) - (##cdr _%e157970158022%_))) - (_%hd157971158025%_ + (##cdr _%e158007158059%_))) + (_%hd158008158062%_ (let () (declare (not safe)) - (##car _%e157970158022%_)))) + (##car _%e158007158059%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157971158025%_)) - (let ((_%e157973158030%_ + _%hd158008158062%_)) + (let ((_%e158010158067%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157971158025%_)))) - (let ((_%tl157975158035%_ + (gx#stx-e _%hd158008158062%_)))) + (let ((_%tl158012158072%_ (let () (declare (not safe)) - (##cdr _%e157973158030%_))) - (_%hd157974158033%_ + (##cdr _%e158010158067%_))) + (_%hd158011158070%_ (let () (declare (not safe)) - (##car _%e157973158030%_)))) + (##car _%e158010158067%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157975158035%_)) + (gx#stx-null? _%tl158012158072%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157972158027%_)) - (let ((_%e157976158038%_ + (gx#stx-pair? _%tl158009158064%_)) + (let ((_%e158013158075%_ (let () (declare (not safe)) - (gx#stx-e _%tl157972158027%_)))) - (let ((_%tl157978158043%_ + (gx#stx-e _%tl158009158064%_)))) + (let ((_%tl158015158080%_ (let () (declare (not safe)) - (##cdr _%e157976158038%_))) - (_%hd157977158041%_ + (##cdr _%e158013158075%_))) + (_%hd158014158078%_ (let () (declare (not safe)) - (##car _%e157976158038%_)))) + (##car _%e158013158075%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157978158043%_)) + (gx#stx-null? _%tl158015158080%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157969158019%_)) + (gx#stx-null? _%tl158006158056%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157966158011%_)) - (let ((_%e157979158046%_ + _%tl158003158048%_)) + (let ((_%e158016158083%_ (let () (declare (not safe)) (gx#stx-e - _%tl157966158011%_)))) - (let ((_%tl157981158051%_ + _%tl158003158048%_)))) + (let ((_%tl158018158088%_ (let () (declare (not safe)) - (##cdr _%e157979158046%_))) - (_%hd157980158049%_ + (##cdr _%e158016158083%_))) + (_%hd158017158086%_ (let () (declare (not safe)) - (##car _%e157979158046%_)))) + (##car _%e158016158083%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157981158051%_)) - (_%__kont169984169985%_ - _%hd157980158049%_ - _%hd157977158041%_ - _%hd157974158033%_) - (_%__kont169986169987%_)))) - (_%__kont169986169987%_)) - (_%__kont169986169987%_)) - (_%__kont169986169987%_)))) - (_%__kont169986169987%_)) - (_%__kont169986169987%_)))) - (_%__kont169986169987%_)))) + _%tl158018158088%_)) + (_%__kont170021170022%_ + _%hd158017158086%_ + _%hd158014158078%_ + _%hd158011158070%_) + (_%__kont170023170024%_)))) + (_%__kont170023170024%_)) + (_%__kont170023170024%_)) + (_%__kont170023170024%_)))) + (_%__kont170023170024%_)) + (_%__kont170023170024%_)))) + (_%__kont170023170024%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169986169987%_)))) - (_%__kont169986169987%_)))) - (_%__kont169986169987%_)) - (_%__kont169986169987%_)) - (_%__kont169986169987%_)))) - (_%__kont169986169987%_)))))) + (_%__kont170023170024%_)))) + (_%__kont170023170024%_)))) + (_%__kont170023170024%_)) + (_%__kont170023170024%_)) + (_%__kont170023170024%_)))) + (_%__kont170023170024%_)))))) (define gxc#kw-lambda-expr? - (lambda (_%expr157278%_) - (let* ((_%__stx170044170045%_ _%expr157278%_) - (_%g157281157439%_ + (lambda (_%expr157315%_) + (let* ((_%__stx170081170082%_ _%expr157315%_) + (_%g157318157476%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170044170045%_))))) - (let ((_%__kont170046170047%_ - (lambda (_%L157827%_ - _%L157828%_ - _%L157829%_ - _%L157830%_ - _%L157831%_ - _%L157832%_ - _%L157833%_ - _%L157834%_ - _%L157835%_ - _%L157836%_ - _%L157837%_) + _%__stx170081170082%_))))) + (let ((_%__kont170083170084%_ + (lambda (_%L157864%_ + _%L157865%_ + _%L157866%_ + _%L157867%_ + _%L157868%_ + _%L157869%_ + _%L157870%_ + _%L157871%_ + _%L157872%_ + _%L157873%_ + _%L157874%_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L157834%_ 'apply)) + (gxc#runtime-identifier=? _%L157871%_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L157830%_ 'apply)) + (gxc#runtime-identifier=? _%L157867%_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L157829%_ + _%L157866%_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157837%_ - _%L157828%_)) + _%L157874%_ + _%L157865%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157836%_ - _%L157833%_)) + _%L157873%_ + _%L157870%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157831%_ - _%L157827%_)) + _%L157868%_ + _%L157864%_)) (let () (declare (not safe)) (gx#free-identifier=? - _%L157835%_ - _%L157832%_)) + _%L157872%_ + _%L157869%_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (_%__kont170048170049%_ (lambda () '#f))) + (_%__kont170085170086%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170044170045%_)) - (let ((_%e157294157451%_ + (gx#stx-pair? _%__stx170081170082%_)) + (let ((_%e157331157488%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170044170045%_)))) - (let ((_%tl157296157456%_ + (gx#stx-e _%__stx170081170082%_)))) + (let ((_%tl157333157493%_ (let () (declare (not safe)) - (##cdr _%e157294157451%_))) - (_%hd157295157454%_ + (##cdr _%e157331157488%_))) + (_%hd157332157491%_ (let () (declare (not safe)) - (##car _%e157294157451%_)))) + (##car _%e157331157488%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157295157454%_)) + (gx#identifier? _%hd157332157491%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd157295157454%_)) + (gx#stx-eq? '%#let-values _%hd157332157491%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157296157456%_)) - (let ((_%e157297157459%_ + (gx#stx-pair? _%tl157333157493%_)) + (let ((_%e157334157496%_ (let () (declare (not safe)) - (gx#stx-e _%tl157296157456%_)))) - (let ((_%tl157299157464%_ + (gx#stx-e _%tl157333157493%_)))) + (let ((_%tl157336157501%_ (let () (declare (not safe)) - (##cdr _%e157297157459%_))) - (_%hd157298157462%_ + (##cdr _%e157334157496%_))) + (_%hd157335157499%_ (let () (declare (not safe)) - (##car _%e157297157459%_)))) + (##car _%e157334157496%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157298157462%_)) - (let ((_%e157300157467%_ + (gx#stx-pair? _%hd157335157499%_)) + (let ((_%e157337157504%_ (let () (declare (not safe)) (gx#stx-e - _%hd157298157462%_)))) - (let ((_%tl157302157472%_ + _%hd157335157499%_)))) + (let ((_%tl157339157509%_ (let () (declare (not safe)) - (##cdr _%e157300157467%_))) - (_%hd157301157470%_ + (##cdr _%e157337157504%_))) + (_%hd157338157507%_ (let () (declare (not safe)) - (##car _%e157300157467%_)))) + (##car _%e157337157504%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157301157470%_)) - (let ((_%e157303157475%_ + _%hd157338157507%_)) + (let ((_%e157340157512%_ (let () (declare (not safe)) (gx#stx-e - _%hd157301157470%_)))) - (let ((_%tl157305157480%_ + _%hd157338157507%_)))) + (let ((_%tl157342157517%_ (let () (declare (not safe)) - (##cdr _%e157303157475%_))) - (_%hd157304157478%_ + (##cdr _%e157340157512%_))) + (_%hd157341157515%_ (let () (declare (not safe)) - (##car _%e157303157475%_)))) + (##car _%e157340157512%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157304157478%_)) - (let ((_%e157306157483%_ + _%hd157341157515%_)) + (let ((_%e157343157520%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157304157478%_)))) - (let ((_%tl157308157488%_ + (gx#stx-e _%hd157341157515%_)))) + (let ((_%tl157345157525%_ (let () (declare (not safe)) - (##cdr _%e157306157483%_))) - (_%hd157307157486%_ + (##cdr _%e157343157520%_))) + (_%hd157344157523%_ (let () (declare (not safe)) - (##car _%e157306157483%_)))) + (##car _%e157343157520%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157308157488%_)) + (gx#stx-null? _%tl157345157525%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157305157480%_)) - (let ((_%e157309157491%_ + (gx#stx-pair? _%tl157342157517%_)) + (let ((_%e157346157528%_ (let () (declare (not safe)) - (gx#stx-e _%tl157305157480%_)))) - (let ((_%tl157311157496%_ + (gx#stx-e _%tl157342157517%_)))) + (let ((_%tl157348157533%_ (let () (declare (not safe)) - (##cdr _%e157309157491%_))) - (_%hd157310157494%_ + (##cdr _%e157346157528%_))) + (_%hd157347157531%_ (let () (declare (not safe)) - (##car _%e157309157491%_)))) + (##car _%e157346157528%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157310157494%_)) - (let ((_%e157312157499%_ + (gx#stx-pair? _%hd157347157531%_)) + (let ((_%e157349157536%_ (let () (declare (not safe)) - (gx#stx-e _%hd157310157494%_)))) - (let ((_%tl157314157504%_ + (gx#stx-e _%hd157347157531%_)))) + (let ((_%tl157351157541%_ (let () (declare (not safe)) - (##cdr _%e157312157499%_))) - (_%hd157313157502%_ + (##cdr _%e157349157536%_))) + (_%hd157350157539%_ (let () (declare (not safe)) - (##car _%e157312157499%_)))) + (##car _%e157349157536%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157313157502%_)) + _%hd157350157539%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd157313157502%_)) + _%hd157350157539%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157314157504%_)) - (let ((_%e157315157507%_ + _%tl157351157541%_)) + (let ((_%e157352157544%_ (let () (declare (not safe)) (gx#stx-e - _%tl157314157504%_)))) - (let ((_%tl157317157512%_ + _%tl157351157541%_)))) + (let ((_%tl157354157549%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157315157507%_))) - (_%hd157316157510%_ - (let () (declare (not safe)) (##car _%e157315157507%_)))) + (##cdr _%e157352157544%_))) + (_%hd157353157547%_ + (let () (declare (not safe)) (##car _%e157352157544%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157316157510%_)) - (let ((_%e157318157515%_ + (gx#stx-pair? _%hd157353157547%_)) + (let ((_%e157355157552%_ (let () (declare (not safe)) - (gx#stx-e _%hd157316157510%_)))) - (let ((_%tl157320157520%_ + (gx#stx-e _%hd157353157547%_)))) + (let ((_%tl157357157557%_ (let () (declare (not safe)) - (##cdr _%e157318157515%_))) - (_%hd157319157518%_ + (##cdr _%e157355157552%_))) + (_%hd157356157555%_ (let () (declare (not safe)) - (##car _%e157318157515%_)))) + (##car _%e157355157552%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157319157518%_)) - (let ((_%e157321157523%_ + (gx#stx-pair? _%hd157356157555%_)) + (let ((_%e157358157560%_ (let () (declare (not safe)) - (gx#stx-e _%hd157319157518%_)))) - (let ((_%tl157323157528%_ + (gx#stx-e _%hd157356157555%_)))) + (let ((_%tl157360157565%_ (let () (declare (not safe)) - (##cdr _%e157321157523%_))) - (_%hd157322157526%_ + (##cdr _%e157358157560%_))) + (_%hd157359157563%_ (let () (declare (not safe)) - (##car _%e157321157523%_)))) + (##car _%e157358157560%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157322157526%_)) - (let ((_%e157324157531%_ + (gx#stx-pair? _%hd157359157563%_)) + (let ((_%e157361157568%_ (let () (declare (not safe)) - (gx#stx-e _%hd157322157526%_)))) - (let ((_%tl157326157536%_ + (gx#stx-e _%hd157359157563%_)))) + (let ((_%tl157363157573%_ (let () (declare (not safe)) - (##cdr _%e157324157531%_))) - (_%hd157325157534%_ + (##cdr _%e157361157568%_))) + (_%hd157362157571%_ (let () (declare (not safe)) - (##car _%e157324157531%_)))) + (##car _%e157361157568%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157326157536%_)) + _%tl157363157573%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157323157528%_)) - (let ((_%e157327157539%_ + _%tl157360157565%_)) + (let ((_%e157364157576%_ (let () (declare (not safe)) (gx#stx-e - _%tl157323157528%_)))) - (let ((_%tl157329157544%_ + _%tl157360157565%_)))) + (let ((_%tl157366157581%_ (let () (declare (not safe)) - (##cdr _%e157327157539%_))) - (_%hd157328157542%_ + (##cdr _%e157364157576%_))) + (_%hd157365157579%_ (let () (declare (not safe)) - (##car _%e157327157539%_)))) + (##car _%e157364157576%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157329157544%_)) + _%tl157366157581%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157320157520%_)) + _%tl157357157557%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl157317157512%_)) - (let ((_%e157330157547%_ + (gx#stx-pair? _%tl157354157549%_)) + (let ((_%e157367157584%_ (let () (declare (not safe)) - (gx#stx-e _%tl157317157512%_)))) - (let ((_%tl157332157552%_ + (gx#stx-e _%tl157354157549%_)))) + (let ((_%tl157369157589%_ (let () (declare (not safe)) - (##cdr _%e157330157547%_))) - (_%hd157331157550%_ + (##cdr _%e157367157584%_))) + (_%hd157368157587%_ (let () (declare (not safe)) - (##car _%e157330157547%_)))) + (##car _%e157367157584%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157331157550%_)) - (let ((_%e157333157555%_ + (gx#stx-pair? _%hd157368157587%_)) + (let ((_%e157370157592%_ (let () (declare (not safe)) - (gx#stx-e _%hd157331157550%_)))) - (let ((_%tl157335157560%_ + (gx#stx-e _%hd157368157587%_)))) + (let ((_%tl157372157597%_ (let () (declare (not safe)) - (##cdr _%e157333157555%_))) - (_%hd157334157558%_ + (##cdr _%e157370157592%_))) + (_%hd157371157595%_ (let () (declare (not safe)) - (##car _%e157333157555%_)))) + (##car _%e157370157592%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157334157558%_)) + (gx#identifier? _%hd157371157595%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd157334157558%_)) + _%hd157371157595%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157335157560%_)) - (let ((_%e157336157563%_ + _%tl157372157597%_)) + (let ((_%e157373157600%_ (let () (declare (not safe)) (gx#stx-e - _%tl157335157560%_)))) - (let ((_%tl157338157568%_ + _%tl157372157597%_)))) + (let ((_%tl157375157605%_ (let () (declare (not safe)) - (##cdr _%e157336157563%_))) - (_%hd157337157566%_ + (##cdr _%e157373157600%_))) + (_%hd157374157603%_ (let () (declare (not safe)) - (##car _%e157336157563%_)))) + (##car _%e157373157600%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157337157566%_)) - (let ((_%e157339157571%_ + _%hd157374157603%_)) + (let ((_%e157376157608%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157337157566%_)))) - (let ((_%tl157341157576%_ + (gx#stx-e _%hd157374157603%_)))) + (let ((_%tl157378157613%_ (let () (declare (not safe)) - (##cdr _%e157339157571%_))) - (_%hd157340157574%_ + (##cdr _%e157376157608%_))) + (_%hd157377157611%_ (let () (declare (not safe)) - (##car _%e157339157571%_)))) + (##car _%e157376157608%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157338157568%_)) - (let ((_%e157342157579%_ + (gx#stx-pair? _%tl157375157605%_)) + (let ((_%e157379157616%_ (let () (declare (not safe)) - (gx#stx-e _%tl157338157568%_)))) - (let ((_%tl157344157584%_ + (gx#stx-e _%tl157375157605%_)))) + (let ((_%tl157381157621%_ (let () (declare (not safe)) - (##cdr _%e157342157579%_))) - (_%hd157343157582%_ + (##cdr _%e157379157616%_))) + (_%hd157380157619%_ (let () (declare (not safe)) - (##car _%e157342157579%_)))) + (##car _%e157379157616%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157343157582%_)) - (let ((_%e157345157587%_ + (gx#stx-pair? _%hd157380157619%_)) + (let ((_%e157382157624%_ (let () (declare (not safe)) - (gx#stx-e _%hd157343157582%_)))) - (let ((_%tl157347157592%_ + (gx#stx-e _%hd157380157619%_)))) + (let ((_%tl157384157629%_ (let () (declare (not safe)) - (##cdr _%e157345157587%_))) - (_%hd157346157590%_ + (##cdr _%e157382157624%_))) + (_%hd157383157627%_ (let () (declare (not safe)) - (##car _%e157345157587%_)))) + (##car _%e157382157624%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157346157590%_)) + (gx#identifier? _%hd157383157627%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd157346157590%_)) + _%hd157383157627%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157347157592%_)) - (let ((_%e157348157595%_ + _%tl157384157629%_)) + (let ((_%e157385157632%_ (let () (declare (not safe)) (gx#stx-e - _%tl157347157592%_)))) - (let ((_%tl157350157600%_ + _%tl157384157629%_)))) + (let ((_%tl157387157637%_ (let () (declare (not safe)) - (##cdr _%e157348157595%_))) - (_%hd157349157598%_ + (##cdr _%e157385157632%_))) + (_%hd157386157635%_ (let () (declare (not safe)) - (##car _%e157348157595%_)))) + (##car _%e157385157632%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157349157598%_)) - (let ((_%e157351157603%_ + _%hd157386157635%_)) + (let ((_%e157388157640%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157349157598%_)))) - (let ((_%tl157353157608%_ + (gx#stx-e _%hd157386157635%_)))) + (let ((_%tl157390157645%_ (let () (declare (not safe)) - (##cdr _%e157351157603%_))) - (_%hd157352157606%_ + (##cdr _%e157388157640%_))) + (_%hd157389157643%_ (let () (declare (not safe)) - (##car _%e157351157603%_)))) + (##car _%e157388157640%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157352157606%_)) + (gx#identifier? _%hd157389157643%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157352157606%_)) + (gx#stx-eq? '%#ref _%hd157389157643%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157353157608%_)) - (let ((_%e157354157611%_ + (gx#stx-pair? _%tl157390157645%_)) + (let ((_%e157391157648%_ (let () (declare (not safe)) - (gx#stx-e _%tl157353157608%_)))) - (let ((_%tl157356157616%_ + (gx#stx-e _%tl157390157645%_)))) + (let ((_%tl157393157653%_ (let () (declare (not safe)) - (##cdr _%e157354157611%_))) - (_%hd157355157614%_ + (##cdr _%e157391157648%_))) + (_%hd157392157651%_ (let () (declare (not safe)) - (##car _%e157354157611%_)))) + (##car _%e157391157648%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157356157616%_)) + (gx#stx-null? _%tl157393157653%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157350157600%_)) - (let ((_%e157357157619%_ + _%tl157387157637%_)) + (let ((_%e157394157656%_ (let () (declare (not safe)) (gx#stx-e - _%tl157350157600%_)))) - (let ((_%tl157359157624%_ + _%tl157387157637%_)))) + (let ((_%tl157396157661%_ (let () (declare (not safe)) - (##cdr _%e157357157619%_))) - (_%hd157358157622%_ + (##cdr _%e157394157656%_))) + (_%hd157395157659%_ (let () (declare (not safe)) - (##car _%e157357157619%_)))) + (##car _%e157394157656%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157358157622%_)) - (let ((_%e157360157627%_ + _%hd157395157659%_)) + (let ((_%e157397157664%_ (let () (declare (not safe)) (gx#stx-e - _%hd157358157622%_)))) - (let ((_%tl157362157632%_ + _%hd157395157659%_)))) + (let ((_%tl157399157669%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157360157627%_))) - (_%hd157361157630%_ - (let () (declare (not safe)) (##car _%e157360157627%_)))) + (##cdr _%e157397157664%_))) + (_%hd157398157667%_ + (let () (declare (not safe)) (##car _%e157397157664%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157361157630%_)) + (gx#identifier? _%hd157398157667%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157361157630%_)) + (gx#stx-eq? '%#ref _%hd157398157667%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157362157632%_)) - (let ((_%e157363157635%_ + (gx#stx-pair? _%tl157399157669%_)) + (let ((_%e157400157672%_ (let () (declare (not safe)) - (gx#stx-e _%tl157362157632%_)))) - (let ((_%tl157365157640%_ + (gx#stx-e _%tl157399157669%_)))) + (let ((_%tl157402157677%_ (let () (declare (not safe)) - (##cdr _%e157363157635%_))) - (_%hd157364157638%_ + (##cdr _%e157400157672%_))) + (_%hd157401157675%_ (let () (declare (not safe)) - (##car _%e157363157635%_)))) + (##car _%e157400157672%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157365157640%_)) + (gx#stx-null? _%tl157402157677%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157359157624%_)) - (let ((_%e157366157643%_ + (gx#stx-pair? _%tl157396157661%_)) + (let ((_%e157403157680%_ (let () (declare (not safe)) (gx#stx-e - _%tl157359157624%_)))) - (let ((_%tl157368157648%_ + _%tl157396157661%_)))) + (let ((_%tl157405157685%_ (let () (declare (not safe)) - (##cdr _%e157366157643%_))) - (_%hd157367157646%_ + (##cdr _%e157403157680%_))) + (_%hd157404157683%_ (let () (declare (not safe)) - (##car _%e157366157643%_)))) + (##car _%e157403157680%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157367157646%_)) - (let ((_%e157369157651%_ + _%hd157404157683%_)) + (let ((_%e157406157688%_ (let () (declare (not safe)) (gx#stx-e - _%hd157367157646%_)))) - (let ((_%tl157371157656%_ + _%hd157404157683%_)))) + (let ((_%tl157408157693%_ (let () (declare (not safe)) - (##cdr _%e157369157651%_))) - (_%hd157370157654%_ + (##cdr _%e157406157688%_))) + (_%hd157407157691%_ (let () (declare (not safe)) - (##car _%e157369157651%_)))) + (##car _%e157406157688%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157370157654%_)) + _%hd157407157691%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157370157654%_)) + _%hd157407157691%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl157371157656%_)) - (let ((_%e157372157659%_ + (gx#stx-pair? _%tl157408157693%_)) + (let ((_%e157409157696%_ (let () (declare (not safe)) - (gx#stx-e _%tl157371157656%_)))) - (let ((_%tl157374157664%_ + (gx#stx-e _%tl157408157693%_)))) + (let ((_%tl157411157701%_ (let () (declare (not safe)) - (##cdr _%e157372157659%_))) - (_%hd157373157662%_ + (##cdr _%e157409157696%_))) + (_%hd157410157699%_ (let () (declare (not safe)) - (##car _%e157372157659%_)))) + (##car _%e157409157696%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157374157664%_)) + (gx#stx-null? _%tl157411157701%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157344157584%_)) + (gx#stx-null? _%tl157381157621%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157332157552%_)) + (gx#stx-null? _%tl157369157589%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157311157496%_)) + _%tl157348157533%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157302157472%_)) + _%tl157339157509%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157299157464%_)) - (let ((_%e157375157667%_ + _%tl157336157501%_)) + (let ((_%e157412157704%_ (let () (declare (not safe)) (gx#stx-e - _%tl157299157464%_)))) - (let ((_%tl157377157672%_ + _%tl157336157501%_)))) + (let ((_%tl157414157709%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157375157667%_))) - (_%hd157376157670%_ - (let () (declare (not safe)) (##car _%e157375157667%_)))) + (##cdr _%e157412157704%_))) + (_%hd157413157707%_ + (let () (declare (not safe)) (##car _%e157412157704%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157376157670%_)) - (let ((_%e157378157675%_ + (gx#stx-pair? _%hd157413157707%_)) + (let ((_%e157415157712%_ (let () (declare (not safe)) - (gx#stx-e _%hd157376157670%_)))) - (let ((_%tl157380157680%_ + (gx#stx-e _%hd157413157707%_)))) + (let ((_%tl157417157717%_ (let () (declare (not safe)) - (##cdr _%e157378157675%_))) - (_%hd157379157678%_ + (##cdr _%e157415157712%_))) + (_%hd157416157715%_ (let () (declare (not safe)) - (##car _%e157378157675%_)))) + (##car _%e157415157712%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157379157678%_)) + (gx#identifier? _%hd157416157715%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd157379157678%_)) + (gx#stx-eq? '%#lambda _%hd157416157715%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157380157680%_)) - (let ((_%e157381157683%_ + (gx#stx-pair? _%tl157417157717%_)) + (let ((_%e157418157720%_ (let () (declare (not safe)) - (gx#stx-e _%tl157380157680%_)))) - (let ((_%tl157383157688%_ + (gx#stx-e _%tl157417157717%_)))) + (let ((_%tl157420157725%_ (let () (declare (not safe)) - (##cdr _%e157381157683%_))) - (_%hd157382157686%_ + (##cdr _%e157418157720%_))) + (_%hd157419157723%_ (let () (declare (not safe)) - (##car _%e157381157683%_)))) + (##car _%e157418157720%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157383157688%_)) - (let ((_%e157384157691%_ + _%tl157420157725%_)) + (let ((_%e157421157728%_ (let () (declare (not safe)) (gx#stx-e - _%tl157383157688%_)))) - (let ((_%tl157386157696%_ + _%tl157420157725%_)))) + (let ((_%tl157423157733%_ (let () (declare (not safe)) - (##cdr _%e157384157691%_))) - (_%hd157385157694%_ + (##cdr _%e157421157728%_))) + (_%hd157422157731%_ (let () (declare (not safe)) - (##car _%e157384157691%_)))) + (##car _%e157421157728%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157385157694%_)) - (let ((_%e157387157699%_ + _%hd157422157731%_)) + (let ((_%e157424157736%_ (let () (declare (not safe)) (gx#stx-e - _%hd157385157694%_)))) - (let ((_%tl157389157704%_ + _%hd157422157731%_)))) + (let ((_%tl157426157741%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157387157699%_))) - (_%hd157388157702%_ - (let () (declare (not safe)) (##car _%e157387157699%_)))) + (##cdr _%e157424157736%_))) + (_%hd157425157739%_ + (let () (declare (not safe)) (##car _%e157424157736%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157388157702%_)) + (gx#identifier? _%hd157425157739%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157388157702%_)) + (gx#stx-eq? '%#call _%hd157425157739%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157389157704%_)) - (let ((_%e157390157707%_ + (gx#stx-pair? _%tl157426157741%_)) + (let ((_%e157427157744%_ (let () (declare (not safe)) - (gx#stx-e _%tl157389157704%_)))) - (let ((_%tl157392157712%_ + (gx#stx-e _%tl157426157741%_)))) + (let ((_%tl157429157749%_ (let () (declare (not safe)) - (##cdr _%e157390157707%_))) - (_%hd157391157710%_ + (##cdr _%e157427157744%_))) + (_%hd157428157747%_ (let () (declare (not safe)) - (##car _%e157390157707%_)))) + (##car _%e157427157744%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157391157710%_)) - (let ((_%e157393157715%_ + (gx#stx-pair? _%hd157428157747%_)) + (let ((_%e157430157752%_ (let () (declare (not safe)) - (gx#stx-e _%hd157391157710%_)))) - (let ((_%tl157395157720%_ + (gx#stx-e _%hd157428157747%_)))) + (let ((_%tl157432157757%_ (let () (declare (not safe)) - (##cdr _%e157393157715%_))) - (_%hd157394157718%_ + (##cdr _%e157430157752%_))) + (_%hd157431157755%_ (let () (declare (not safe)) - (##car _%e157393157715%_)))) + (##car _%e157430157752%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157394157718%_)) + _%hd157431157755%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157394157718%_)) + _%hd157431157755%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157395157720%_)) - (let ((_%e157396157723%_ + _%tl157432157757%_)) + (let ((_%e157433157760%_ (let () (declare (not safe)) (gx#stx-e - _%tl157395157720%_)))) - (let ((_%tl157398157728%_ + _%tl157432157757%_)))) + (let ((_%tl157435157765%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157396157723%_))) - (_%hd157397157726%_ - (let () (declare (not safe)) (##car _%e157396157723%_)))) + (##cdr _%e157433157760%_))) + (_%hd157434157763%_ + (let () (declare (not safe)) (##car _%e157433157760%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157398157728%_)) + (gx#stx-null? _%tl157435157765%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157392157712%_)) - (let ((_%e157399157731%_ + (gx#stx-pair? _%tl157429157749%_)) + (let ((_%e157436157768%_ (let () (declare (not safe)) - (gx#stx-e _%tl157392157712%_)))) - (let ((_%tl157401157736%_ + (gx#stx-e _%tl157429157749%_)))) + (let ((_%tl157438157773%_ (let () (declare (not safe)) - (##cdr _%e157399157731%_))) - (_%hd157400157734%_ + (##cdr _%e157436157768%_))) + (_%hd157437157771%_ (let () (declare (not safe)) - (##car _%e157399157731%_)))) + (##car _%e157436157768%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157400157734%_)) - (let ((_%e157402157739%_ + (gx#stx-pair? _%hd157437157771%_)) + (let ((_%e157439157776%_ (let () (declare (not safe)) - (gx#stx-e _%hd157400157734%_)))) - (let ((_%tl157404157744%_ + (gx#stx-e _%hd157437157771%_)))) + (let ((_%tl157441157781%_ (let () (declare (not safe)) - (##cdr _%e157402157739%_))) - (_%hd157403157742%_ + (##cdr _%e157439157776%_))) + (_%hd157440157779%_ (let () (declare (not safe)) - (##car _%e157402157739%_)))) + (##car _%e157439157776%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157403157742%_)) + (gx#identifier? _%hd157440157779%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157403157742%_)) + _%hd157440157779%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157404157744%_)) - (let ((_%e157405157747%_ + _%tl157441157781%_)) + (let ((_%e157442157784%_ (let () (declare (not safe)) (gx#stx-e - _%tl157404157744%_)))) - (let ((_%tl157407157752%_ + _%tl157441157781%_)))) + (let ((_%tl157444157789%_ (let () (declare (not safe)) - (##cdr _%e157405157747%_))) - (_%hd157406157750%_ + (##cdr _%e157442157784%_))) + (_%hd157443157787%_ (let () (declare (not safe)) - (##car _%e157405157747%_)))) + (##car _%e157442157784%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157407157752%_)) + _%tl157444157789%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157401157736%_)) - (let ((_%e157408157755%_ + _%tl157438157773%_)) + (let ((_%e157445157792%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl157401157736%_)))) - (let ((_%tl157410157760%_ + (gx#stx-e _%tl157438157773%_)))) + (let ((_%tl157447157797%_ (let () (declare (not safe)) - (##cdr _%e157408157755%_))) - (_%hd157409157758%_ + (##cdr _%e157445157792%_))) + (_%hd157446157795%_ (let () (declare (not safe)) - (##car _%e157408157755%_)))) + (##car _%e157445157792%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157409157758%_)) - (let ((_%e157411157763%_ + (gx#stx-pair? _%hd157446157795%_)) + (let ((_%e157448157800%_ (let () (declare (not safe)) - (gx#stx-e _%hd157409157758%_)))) - (let ((_%tl157413157768%_ + (gx#stx-e _%hd157446157795%_)))) + (let ((_%tl157450157805%_ (let () (declare (not safe)) - (##cdr _%e157411157763%_))) - (_%hd157412157766%_ + (##cdr _%e157448157800%_))) + (_%hd157449157803%_ (let () (declare (not safe)) - (##car _%e157411157763%_)))) + (##car _%e157448157800%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157412157766%_)) + (gx#identifier? _%hd157449157803%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd157412157766%_)) + _%hd157449157803%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157413157768%_)) - (let ((_%e157414157771%_ + _%tl157450157805%_)) + (let ((_%e157451157808%_ (let () (declare (not safe)) (gx#stx-e - _%tl157413157768%_)))) - (let ((_%tl157416157776%_ + _%tl157450157805%_)))) + (let ((_%tl157453157813%_ (let () (declare (not safe)) - (##cdr _%e157414157771%_))) - (_%hd157415157774%_ + (##cdr _%e157451157808%_))) + (_%hd157452157811%_ (let () (declare (not safe)) - (##car _%e157414157771%_)))) + (##car _%e157451157808%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157416157776%_)) + _%tl157453157813%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157410157760%_)) - (let ((_%e157417157779%_ + _%tl157447157797%_)) + (let ((_%e157454157816%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl157410157760%_)))) - (let ((_%tl157419157784%_ + (gx#stx-e _%tl157447157797%_)))) + (let ((_%tl157456157821%_ (let () (declare (not safe)) - (##cdr _%e157417157779%_))) - (_%hd157418157782%_ + (##cdr _%e157454157816%_))) + (_%hd157455157819%_ (let () (declare (not safe)) - (##car _%e157417157779%_)))) + (##car _%e157454157816%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157418157782%_)) - (let ((_%e157420157787%_ + (gx#stx-pair? _%hd157455157819%_)) + (let ((_%e157457157824%_ (let () (declare (not safe)) - (gx#stx-e _%hd157418157782%_)))) - (let ((_%tl157422157792%_ + (gx#stx-e _%hd157455157819%_)))) + (let ((_%tl157459157829%_ (let () (declare (not safe)) - (##cdr _%e157420157787%_))) - (_%hd157421157790%_ + (##cdr _%e157457157824%_))) + (_%hd157458157827%_ (let () (declare (not safe)) - (##car _%e157420157787%_)))) + (##car _%e157457157824%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157421157790%_)) + (gx#identifier? _%hd157458157827%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157421157790%_)) + (gx#stx-eq? '%#ref _%hd157458157827%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157422157792%_)) - (let ((_%e157423157795%_ + (gx#stx-pair? _%tl157459157829%_)) + (let ((_%e157460157832%_ (let () (declare (not safe)) (gx#stx-e - _%tl157422157792%_)))) - (let ((_%tl157425157800%_ + _%tl157459157829%_)))) + (let ((_%tl157462157837%_ (let () (declare (not safe)) - (##cdr _%e157423157795%_))) - (_%hd157424157798%_ + (##cdr _%e157460157832%_))) + (_%hd157461157835%_ (let () (declare (not safe)) - (##car _%e157423157795%_)))) + (##car _%e157460157832%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157425157800%_)) + _%tl157462157837%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157419157784%_)) - (let ((_%e157426157803%_ + _%tl157456157821%_)) + (let ((_%e157463157840%_ (let () (declare (not safe)) (gx#stx-e - _%tl157419157784%_)))) - (let ((_%tl157428157808%_ + _%tl157456157821%_)))) + (let ((_%tl157465157845%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157426157803%_))) - (_%hd157427157806%_ - (let () (declare (not safe)) (##car _%e157426157803%_)))) + (##cdr _%e157463157840%_))) + (_%hd157464157843%_ + (let () (declare (not safe)) (##car _%e157463157840%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157427157806%_)) - (let ((_%e157429157811%_ + (gx#stx-pair? _%hd157464157843%_)) + (let ((_%e157466157848%_ (let () (declare (not safe)) - (gx#stx-e _%hd157427157806%_)))) - (let ((_%tl157431157816%_ + (gx#stx-e _%hd157464157843%_)))) + (let ((_%tl157468157853%_ (let () (declare (not safe)) - (##cdr _%e157429157811%_))) - (_%hd157430157814%_ + (##cdr _%e157466157848%_))) + (_%hd157467157851%_ (let () (declare (not safe)) - (##car _%e157429157811%_)))) + (##car _%e157466157848%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157430157814%_)) + (gx#identifier? _%hd157467157851%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157430157814%_)) + (gx#stx-eq? '%#ref _%hd157467157851%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157431157816%_)) - (let ((_%e157432157819%_ + (gx#stx-pair? _%tl157468157853%_)) + (let ((_%e157469157856%_ (let () (declare (not safe)) - (gx#stx-e _%tl157431157816%_)))) - (let ((_%tl157434157824%_ + (gx#stx-e _%tl157468157853%_)))) + (let ((_%tl157471157861%_ (let () (declare (not safe)) - (##cdr _%e157432157819%_))) - (_%hd157433157822%_ + (##cdr _%e157469157856%_))) + (_%hd157470157859%_ (let () (declare (not safe)) - (##car _%e157432157819%_)))) + (##car _%e157469157856%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157434157824%_)) + _%tl157471157861%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157428157808%_)) + _%tl157465157845%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157386157696%_)) + _%tl157423157733%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157377157672%_)) - (_%__kont170046170047%_ - _%hd157433157822%_ - _%hd157424157798%_ - _%hd157406157750%_ - _%hd157397157726%_ - _%hd157382157686%_ - _%hd157373157662%_ - _%hd157364157638%_ - _%hd157355157614%_ - _%hd157340157574%_ - _%hd157325157534%_ - _%hd157307157486%_) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) + _%tl157414157709%_)) + (_%__kont170083170084%_ + _%hd157470157859%_ + _%hd157461157835%_ + _%hd157443157787%_ + _%hd157434157763%_ + _%hd157419157723%_ + _%hd157410157699%_ + _%hd157401157675%_ + _%hd157392157651%_ + _%hd157377157611%_ + _%hd157362157571%_ + _%hd157344157523%_) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)) - (_%__kont170048170049%_)))) - (_%__kont170048170049%_)))))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)) + (_%__kont170085170086%_)))) + (_%__kont170085170086%_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_%stx157020%_ _%id157021%_ _%clauses157022%_ _%gensym?157023%_) - (let _%lp157025%_ ((_%rest157027%_ _%clauses157022%_) - (_%ids157028%_ '()) - (_%impls157029%_ '()) - (_%clauses157030%_ '())) - (let* ((_%rest157031157039%_ _%rest157027%_) - (_%else157033157047%_ + (lambda (_%stx157057%_ _%id157058%_ _%clauses157059%_ _%gensym?157060%_) + (let _%lp157062%_ ((_%rest157064%_ _%clauses157059%_) + (_%ids157065%_ '()) + (_%impls157066%_ '()) + (_%clauses157067%_ '())) + (let* ((_%rest157068157076%_ _%rest157064%_) + (_%else157070157084%_ (lambda () - (values (reverse _%ids157028%_) - (reverse _%impls157029%_) - (reverse _%clauses157030%_)))) - (_%K157035157252%_ - (lambda (_%rest157050%_ _%clause157051%_) - (if (gxc#dispatch-lambda-form? _%clause157051%_) - (_%lp157025%_ - _%rest157050%_ - _%ids157028%_ - _%impls157029%_ - (cons _%clause157051%_ _%clauses157030%_)) - (let* ((_%g157053157064%_ - (lambda (_%g157054157061%_) + (values (reverse _%ids157065%_) + (reverse _%impls157066%_) + (reverse _%clauses157067%_)))) + (_%K157072157289%_ + (lambda (_%rest157087%_ _%clause157088%_) + (if (gxc#dispatch-lambda-form? _%clause157088%_) + (_%lp157062%_ + _%rest157087%_ + _%ids157065%_ + _%impls157066%_ + (cons _%clause157088%_ _%clauses157067%_)) + (let* ((_%g157090157101%_ + (lambda (_%g157091157098%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g157054157061%_)))) - (_%g157052157249%_ - (lambda (_%g157054157067%_) + _%g157091157098%_)))) + (_%g157089157286%_ + (lambda (_%g157091157104%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g157054157067%_)) - (let ((_%e157057157069%_ + (gx#stx-pair? _%g157091157104%_)) + (let ((_%e157094157106%_ (let () (declare (not safe)) - (gx#stx-e _%g157054157067%_)))) - (let ((_%hd157058157072%_ + (gx#stx-e _%g157091157104%_)))) + (let ((_%hd157095157109%_ (let () (declare (not safe)) - (##car _%e157057157069%_))) - (_%tl157059157074%_ + (##car _%e157094157106%_))) + (_%tl157096157111%_ (let () (declare (not safe)) - (##cdr _%e157057157069%_)))) - ((lambda (_%L157077%_ _%L157078%_) - (let* ((_%id157095%_ - (let ((__tmp171248 + (##cdr _%e157094157106%_)))) + ((lambda (_%L157114%_ _%L157115%_) + (let* ((_%id157132%_ + (let ((__tmp171285 (let () (declare (not safe)) (gx#stx-e - _%id157021%_))) - (__tmp171247 - (length _%clauses157030%_)) - (__tmp171246 - (if _%gensym?157023%_ + _%id157058%_))) + (__tmp171284 + (length _%clauses157067%_)) + (__tmp171283 + (if _%gensym?157060%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##gensym '__)) '""))) (declare (not safe)) - (make-symbol__1 __tmp171248 '"__" __tmp171247 __tmp171246))) + (make-symbol__1 __tmp171285 '"__" __tmp171284 __tmp171283))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%id157097%_ - (let ((__tmp171249 + (_%id157134%_ + (let ((__tmp171286 (let () (declare (not safe)) (gx#stx-source - _%stx157020%_)))) + _%stx157057%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id157095%_ - __tmp171249))) - (_%impl157099%_ - (let ((__tmp171250 + _%id157132%_ + __tmp171286))) + (_%impl157136%_ + (let ((__tmp171287 (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons _%L157078%_ _%L157077%_)))) + (cons _%L157115%_ _%L157114%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171250 _%stx157020%_))) + (gxc#xform-wrap-source __tmp171287 _%stx157057%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%clause157246%_ - (let* ((_%__stx170428170429%_ - _%L157078%_) - (_%g157103157131%_ + (_%clause157283%_ + (let* ((_%__stx170465170466%_ + _%L157115%_) + (_%g157140157168%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -20102,353 +20102,353 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170428170429%_))))) - (let ((_%__kont170430170431%_ - (lambda (_%L157225%_) - (cons _%L157078%_ - (cons (let ((__tmp171251 + _%__stx170465170466%_))))) + (let ((_%__kont170467170468%_ + (lambda (_%L157262%_) + (cons _%L157115%_ + (cons (let ((__tmp171288 (cons '%#call (cons (cons '%#ref - (cons _%id157097%_ + (cons _%id157134%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp171252 - (lambda (_%g157235157238%_ _%g157236157240%_) + (let ((__tmp171289 + (lambda (_%g157272157275%_ _%g157273157277%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g157235157238%_ '())) - _%g157236157240%_)))) + (cons _%g157272157275%_ '())) + _%g157273157277%_)))) (declare (not safe)) - (__foldr1 __tmp171252 '() _%L157225%_)))))) + (__foldr1 __tmp171289 '() _%L157262%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171251 - _%stx157020%_)) + __tmp171288 + _%stx157057%_)) '())))) - (_%__kont170434170435%_ - (lambda (_%L157176%_ _%L157177%_) - (cons _%L157078%_ - (cons (let ((__tmp171253 + (_%__kont170471170472%_ + (lambda (_%L157213%_ _%L157214%_) + (cons _%L157115%_ + (cons (let ((__tmp171290 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id157097%_ '())) - (let ((__tmp171256 + (cons _%id157134%_ '())) + (let ((__tmp171293 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L157176%_ '())) + (cons _%L157213%_ '())) '())) - (__tmp171254 - (let ((__tmp171255 - (lambda (_%g157188157191%_ - _%g157189157193%_) + (__tmp171291 + (let ((__tmp171292 + (lambda (_%g157225157228%_ + _%g157226157230%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g157188157191%_ '())) - _%g157189157193%_)))) + (cons _%g157225157228%_ '())) + _%g157226157230%_)))) (declare (not safe)) - (__foldr1 __tmp171255 '() _%L157177%_)))) + (__foldr1 __tmp171292 '() _%L157214%_)))) (declare (not safe)) - (__foldr1 cons __tmp171256 __tmp171254))))))) + (__foldr1 cons __tmp171293 __tmp171291))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171253 - _%stx157020%_)) + __tmp171290 + _%stx157057%_)) '())))) - (_%__kont170438170439%_ - (lambda (_%L157136%_) - (cons _%L157078%_ - (cons (let ((__tmp171257 + (_%__kont170475170476%_ + (lambda (_%L157173%_) + (cons _%L157115%_ + (cons (let ((__tmp171294 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id157097%_ '())) + (cons _%id157134%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L157136%_ '())) + (cons _%L157173%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171257 - _%stx157020%_)) + __tmp171294 + _%stx157057%_)) '()))))) - (let* ((_%__match170453170454%_ - (lambda (_%__splice170436170437%_ - _%target157117157152%_ - _%tl157119157154%_) - (letrec ((_%loop157120157157%_ - (lambda (_%hd157118157160%_ - _%arg157124157162%_) + (let* ((_%__match170490170491%_ + (lambda (_%__splice170473170474%_ + _%target157154157189%_ + _%tl157156157191%_) + (letrec ((_%loop157157157194%_ + (lambda (_%hd157155157197%_ + _%arg157161157199%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157118157160%_)) - (let ((_%e157121157165%_ + (gx#stx-pair? _%hd157155157197%_)) + (let ((_%e157158157202%_ (let () (declare (not safe)) (gx#stx-e - _%hd157118157160%_)))) - (let ((_%lp-tl157123157170%_ + _%hd157155157197%_)))) + (let ((_%lp-tl157160157207%_ (let () (declare (not safe)) - (##cdr _%e157121157165%_))) - (_%lp-hd157122157168%_ + (##cdr _%e157158157202%_))) + (_%lp-hd157159157205%_ (let () (declare (not safe)) - (##car _%e157121157165%_)))) - (_%loop157120157157%_ - _%lp-tl157123157170%_ - (cons _%lp-hd157122157168%_ - _%arg157124157162%_)))) - (let ((_%arg157125157173%_ - (reverse _%arg157124157162%_))) - (_%__kont170434170435%_ - _%tl157119157154%_ - _%arg157125157173%_)))))) - (_%loop157120157157%_ - _%target157117157152%_ + (##car _%e157158157202%_)))) + (_%loop157157157194%_ + _%lp-tl157160157207%_ + (cons _%lp-hd157159157205%_ + _%arg157161157199%_)))) + (let ((_%arg157162157210%_ + (reverse _%arg157161157199%_))) + (_%__kont170471170472%_ + _%tl157156157191%_ + _%arg157162157210%_)))))) + (_%loop157157157194%_ + _%target157154157189%_ '())))) - (_%__match170447170448%_ - (lambda (_%__splice170432170433%_ - _%target157106157201%_ - _%tl157108157203%_) - (letrec ((_%loop157109157206%_ - (lambda (_%hd157107157209%_ - _%arg157113157211%_) + (_%__match170484170485%_ + (lambda (_%__splice170469170470%_ + _%target157143157238%_ + _%tl157145157240%_) + (letrec ((_%loop157146157243%_ + (lambda (_%hd157144157246%_ + _%arg157150157248%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157107157209%_)) - (let ((_%e157110157214%_ + (gx#stx-pair? _%hd157144157246%_)) + (let ((_%e157147157251%_ (let () (declare (not safe)) (gx#stx-e - _%hd157107157209%_)))) - (let ((_%lp-tl157112157219%_ + _%hd157144157246%_)))) + (let ((_%lp-tl157149157256%_ (let () (declare (not safe)) - (##cdr _%e157110157214%_))) - (_%lp-hd157111157217%_ + (##cdr _%e157147157251%_))) + (_%lp-hd157148157254%_ (let () (declare (not safe)) - (##car _%e157110157214%_)))) - (_%loop157109157206%_ - _%lp-tl157112157219%_ - (cons _%lp-hd157111157217%_ - _%arg157113157211%_)))) - (let ((_%arg157114157222%_ - (reverse _%arg157113157211%_))) - (_%__kont170430170431%_ - _%arg157114157222%_)))))) - (_%loop157109157206%_ - _%target157106157201%_ + (##car _%e157147157251%_)))) + (_%loop157146157243%_ + _%lp-tl157149157256%_ + (cons _%lp-hd157148157254%_ + _%arg157150157248%_)))) + (let ((_%arg157151157259%_ + (reverse _%arg157150157248%_))) + (_%__kont170467170468%_ + _%arg157151157259%_)))))) + (_%loop157146157243%_ + _%target157143157238%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%__stx170428170429%_)) - (let ((_%__splice170432170433%_ + (gx#stx-pair/null? _%__stx170465170466%_)) + (let ((_%__splice170469170470%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx170428170429%_ + _%__stx170465170466%_ '0)))) - (let ((_%tl157108157203%_ + (let ((_%tl157145157240%_ (let () (declare (not safe)) - (##vector-ref _%__splice170432170433%_ '1))) - (_%target157106157201%_ + (##vector-ref _%__splice170469170470%_ '1))) + (_%target157143157238%_ (let () (declare (not safe)) - (##vector-ref _%__splice170432170433%_ '0)))) + (##vector-ref _%__splice170469170470%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157108157203%_)) - (_%__match170447170448%_ - _%__splice170432170433%_ - _%target157106157201%_ - _%tl157108157203%_) - (_%__match170453170454%_ - _%__splice170432170433%_ - _%target157106157201%_ - _%tl157108157203%_)))) - (_%__kont170438170439%_ _%__stx170428170429%_))))))) + (gx#stx-null? _%tl157145157240%_)) + (_%__match170484170485%_ + _%__splice170469170470%_ + _%target157143157238%_ + _%tl157145157240%_) + (_%__match170490170491%_ + _%__splice170469170470%_ + _%target157143157238%_ + _%tl157145157240%_)))) + (_%__kont170475170476%_ _%__stx170465170466%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp157025%_ - _%rest157050%_ - (cons _%id157097%_ - _%ids157028%_) - (cons _%impl157099%_ - _%impls157029%_) - (cons _%clause157246%_ - _%clauses157030%_)))) - _%tl157059157074%_ - _%hd157058157072%_))) - (_%g157053157064%_ _%g157054157067%_))))) - (_%g157052157249%_ _%clause157051%_)))))) - (if (pair? _%rest157031157039%_) - (let ((_%hd157036157255%_ + (_%lp157062%_ + _%rest157087%_ + (cons _%id157134%_ + _%ids157065%_) + (cons _%impl157136%_ + _%impls157066%_) + (cons _%clause157283%_ + _%clauses157067%_)))) + _%tl157096157111%_ + _%hd157095157109%_))) + (_%g157090157101%_ _%g157091157104%_))))) + (_%g157089157286%_ _%clause157088%_)))))) + (if (pair? _%rest157068157076%_) + (let ((_%hd157073157292%_ (let () (declare (not safe)) - (##car _%rest157031157039%_))) - (_%tl157037157257%_ + (##car _%rest157068157076%_))) + (_%tl157074157294%_ (let () (declare (not safe)) - (##cdr _%rest157031157039%_)))) - (let* ((_%clause157260%_ _%hd157036157255%_) - (_%rest157262%_ _%tl157037157257%_)) - (_%K157035157252%_ _%rest157262%_ _%clause157260%_))) - (_%else157033157047%_)))))) + (##cdr _%rest157068157076%_)))) + (let* ((_%clause157297%_ _%hd157073157292%_) + (_%rest157299%_ _%tl157074157294%_)) + (_%K157072157289%_ _%rest157299%_ _%clause157297%_))) + (_%else157070157084%_)))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_%stx157267%_ _%id157268%_ _%clauses157269%_) - (let ((_%gensym?157271%_ '#f)) + (lambda (_%stx157304%_ _%id157305%_ _%clauses157306%_) + (let ((_%gensym?157308%_ '#f)) (gxc#lift-case-lambda-clauses__% - _%stx157267%_ - _%id157268%_ - _%clauses157269%_ - _%gensym?157271%_)))) + _%stx157304%_ + _%id157305%_ + _%clauses157306%_ + _%gensym?157308%_)))) (define gxc#lift-case-lambda-clauses - (lambda _g171259_ - (let ((_g171258_ (let () (declare (not safe)) (##length _g171259_)))) - (cond ((let () (declare (not safe)) (##fx= _g171258_ 3)) - (apply gxc#lift-case-lambda-clauses__0 _g171259_)) - ((let () (declare (not safe)) (##fx= _g171258_ 4)) - (apply gxc#lift-case-lambda-clauses__% _g171259_)) + (lambda _g171296_ + (let ((_g171295_ (let () (declare (not safe)) (##length _g171296_)))) + (cond ((let () (declare (not safe)) (##fx= _g171295_ 3)) + (apply gxc#lift-case-lambda-clauses__0 _g171296_)) + ((let () (declare (not safe)) (##fx= _g171295_ 4)) + (apply gxc#lift-case-lambda-clauses__% _g171296_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g171259_)))))) + _g171296_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_%self156292%_ _%stx156293%_) - (letrec ((_%case-lambda-clause-def156295%_ - (lambda (_%id157016%_ _%impl157017%_) - (let ((__tmp171260 + (lambda (_%self156329%_ _%stx156330%_) + (letrec ((_%case-lambda-clause-def156332%_ + (lambda (_%id157053%_ _%impl157054%_) + (let ((__tmp171297 (cons '%#define-values - (cons (cons _%id157016%_ '()) + (cons (cons _%id157053%_ '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156292%_ - _%impl157017%_)) + _%self156329%_ + _%impl157054%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171260 _%stx156293%_)))) - (_%opt-lambda-dispatch-name156296%_ - (lambda (_%id157012%_) - (if (uninterned-symbol? _%id157012%_) - (let ((_%str157014%_ (symbol->string _%id157012%_))) + (gxc#xform-wrap-source __tmp171297 _%stx156330%_)))) + (_%opt-lambda-dispatch-name156333%_ + (lambda (_%id157049%_) + (if (uninterned-symbol? _%id157049%_) + (let ((_%str157051%_ (symbol->string _%id157049%_))) (if (let () (declare (not safe)) - (##string-prefix? '"opt-lambda" _%str157014%_)) + (##string-prefix? '"opt-lambda" _%str157051%_)) '"%" - _%id157012%_)) - _%id157012%_))) - (_%kw-lambda-dispatch-name156297%_ - (lambda (_%id157007%_ _%name157008%_) - (if (uninterned-symbol? _%id157007%_) - (let ((_%str157010%_ (symbol->string _%id157007%_))) + _%id157049%_)) + _%id157049%_))) + (_%kw-lambda-dispatch-name156334%_ + (lambda (_%id157044%_ _%name157045%_) + (if (uninterned-symbol? _%id157044%_) + (let ((_%str157047%_ (symbol->string _%id157044%_))) (if (let () (declare (not safe)) - (##string-prefix? '"kw-lambda" _%str157010%_)) - _%name157008%_ - _%id157007%_)) - _%id157007%_)))) - (let* ((_%__stx170476170477%_ _%stx156293%_) - (_%g156302156361%_ + (##string-prefix? '"kw-lambda" _%str157047%_)) + _%name157045%_ + _%id157044%_)) + _%id157044%_)))) + (let* ((_%__stx170513170514%_ _%stx156330%_) + (_%g156339156398%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170476170477%_))))) - (let ((_%__kont170478170479%_ - (lambda (_%L156915%_ _%L156916%_) - (let* ((_%__stx170456170457%_ _%L156915%_) - (_%g156933156947%_ + _%__stx170513170514%_))))) + (let ((_%__kont170515170516%_ + (lambda (_%L156952%_ _%L156953%_) + (let* ((_%__stx170493170494%_ _%L156952%_) + (_%g156970156984%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170456170457%_))))) - (let ((_%__kont170458170459%_ - (lambda (_%L156992%_) _%stx156293%_)) - (_%__kont170460170461%_ - (lambda (_%L156960%_) - (let ((_g171261_ + _%__stx170493170494%_))))) + (let ((_%__kont170495170496%_ + (lambda (_%L157029%_) _%stx156330%_)) + (_%__kont170497170498%_ + (lambda (_%L156997%_) + (let ((_g171298_ (gxc#lift-case-lambda-clauses__0 - _%stx156293%_ - _%L156916%_ - _%L156960%_))) + _%stx156330%_ + _%L156953%_ + _%L156997%_))) (begin - (let ((_g171262_ + (let ((_g171299_ (let () (declare (not safe)) - (if (##values? _g171261_) - (##vector-length _g171261_) + (if (##values? _g171298_) + (##vector-length _g171298_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171262_ 3))) + (##fx= _g171299_ 3))) (error "Context expects 3 values" - _g171262_))) - (let ((_%ids156970%_ + _g171299_))) + (let ((_%ids157007%_ (let () (declare (not safe)) - (##vector-ref _g171261_ 0))) - (_%impls156971%_ + (##vector-ref _g171298_ 0))) + (_%impls157008%_ (let () (declare (not safe)) - (##vector-ref _g171261_ 1))) - (_%clauses156972%_ + (##vector-ref _g171298_ 1))) + (_%clauses157009%_ (let () (declare (not safe)) - (##vector-ref _g171261_ 2)))) - (let* ((_%_156974%_ + (##vector-ref _g171298_ 2)))) + (let* ((_%_157011%_ (for-each gx#core-bind-runtime! - _%ids156970%_)) - (_%defs156976%_ - (map _%case-lambda-clause-def156295%_ - _%ids156970%_ - _%impls156971%_))) - (let ((__tmp171264 + _%ids157007%_)) + (_%defs157013%_ + (map _%case-lambda-clause-def156332%_ + _%ids157007%_ + _%impls157008%_))) + (let ((__tmp171301 (let () (declare (not safe)) (gxc#identifier-symbol - _%L156916%_))) - (__tmp171263 + _%L156953%_))) + (__tmp171300 (map gxc#identifier-symbol - _%ids156970%_))) + _%ids157007%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171264 + __tmp171301 '" => " - __tmp171263)) - (let ((__tmp171265 + __tmp171300)) + (let ((__tmp171302 (cons '%#begin - (let ((__tmp171266 - (cons (let ((__tmp171267 + (let ((__tmp171303 + (cons (let ((__tmp171304 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#define-values - (cons (cons _%L156916%_ '()) - (cons (let ((__tmp171269 + (cons (cons _%L156953%_ '()) + (cons (let ((__tmp171306 (cons '%#case-lambda - _%clauses156972%_)) - (__tmp171268 + _%clauses157009%_)) + (__tmp171305 (let () (declare (not safe)) @@ -20457,1128 +20457,1128 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171269 - __tmp171268)) + __tmp171306 + __tmp171305)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171267 _%stx156293%_)) + (gxc#xform-wrap-source __tmp171304 _%stx156330%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp171266 _%defs156976%_))))) + (__foldr1 cons __tmp171303 _%defs157013%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171265 - _%stx156293%_))))))))) - (let ((_%__match170467170468%_ - (lambda (_%e156936156984%_ - _%hd156937156987%_ - _%tl156938156989%_) - (let ((_%L156992%_ _%tl156938156989%_)) + __tmp171302 + _%stx156330%_))))))))) + (let ((_%__match170504170505%_ + (lambda (_%e156973157021%_ + _%hd156974157024%_ + _%tl156975157026%_) + (let ((_%L157029%_ _%tl156975157026%_)) (if (let () (declare (not safe)) (__andmap1 gxc#dispatch-lambda-form? - _%L156992%_)) - (_%__kont170458170459%_ _%L156992%_) - (_%__kont170460170461%_ - _%tl156938156989%_)))))) + _%L157029%_)) + (_%__kont170495170496%_ _%L157029%_) + (_%__kont170497170498%_ + _%tl156975157026%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170456170457%_)) - (let ((_%e156936156984%_ + (gx#stx-pair? _%__stx170493170494%_)) + (let ((_%e156973157021%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170456170457%_)))) - (let ((_%tl156938156989%_ + (gx#stx-e _%__stx170493170494%_)))) + (let ((_%tl156975157026%_ (let () (declare (not safe)) - (##cdr _%e156936156984%_))) - (_%hd156937156987%_ + (##cdr _%e156973157021%_))) + (_%hd156974157024%_ (let () (declare (not safe)) - (##car _%e156936156984%_)))) - (_%__match170467170468%_ - _%e156936156984%_ - _%hd156937156987%_ - _%tl156938156989%_))) + (##car _%e156973157021%_)))) + (_%__match170504170505%_ + _%e156973157021%_ + _%hd156974157024%_ + _%tl156975157026%_))) (let () (declare (not safe)) - (_%g156933156947%_)))))))) - (_%__kont170480170481%_ - (lambda (_%L156732%_ _%L156733%_) - (let* ((_%g156749156779%_ - (lambda (_%g156750156776%_) + (_%g156970156984%_)))))))) + (_%__kont170517170518%_ + (lambda (_%L156769%_ _%L156770%_) + (let* ((_%g156786156816%_ + (lambda (_%g156787156813%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156750156776%_)))) - (_%g156748156875%_ - (lambda (_%g156750156782%_) + _%g156787156813%_)))) + (_%g156785156912%_ + (lambda (_%g156787156819%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156750156782%_)) - (let ((_%e156754156784%_ + (gx#stx-pair? _%g156787156819%_)) + (let ((_%e156791156821%_ (let () (declare (not safe)) - (gx#stx-e _%g156750156782%_)))) - (let ((_%hd156755156787%_ + (gx#stx-e _%g156787156819%_)))) + (let ((_%hd156792156824%_ (let () (declare (not safe)) - (##car _%e156754156784%_))) - (_%tl156756156789%_ + (##car _%e156791156821%_))) + (_%tl156793156826%_ (let () (declare (not safe)) - (##cdr _%e156754156784%_)))) + (##cdr _%e156791156821%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156756156789%_)) - (let ((_%e156757156792%_ + (gx#stx-pair? _%tl156793156826%_)) + (let ((_%e156794156829%_ (let () (declare (not safe)) (gx#stx-e - _%tl156756156789%_)))) - (let ((_%hd156758156795%_ + _%tl156793156826%_)))) + (let ((_%hd156795156832%_ (let () (declare (not safe)) - (##car _%e156757156792%_))) - (_%tl156759156797%_ + (##car _%e156794156829%_))) + (_%tl156796156834%_ (let () (declare (not safe)) - (##cdr _%e156757156792%_)))) + (##cdr _%e156794156829%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156758156795%_)) - (let ((_%e156760156800%_ + _%hd156795156832%_)) + (let ((_%e156797156837%_ (let () (declare (not safe)) (gx#stx-e - _%hd156758156795%_)))) - (let ((_%hd156761156803%_ + _%hd156795156832%_)))) + (let ((_%hd156798156840%_ (let () (declare (not safe)) - (##car _%e156760156800%_))) - (_%tl156762156805%_ + (##car _%e156797156837%_))) + (_%tl156799156842%_ (let () (declare (not safe)) - (##cdr _%e156760156800%_)))) + (##cdr _%e156797156837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156761156803%_)) - (let ((_%e156763156808%_ + _%hd156798156840%_)) + (let ((_%e156800156845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156761156803%_)))) - (let ((_%hd156764156811%_ + (gx#stx-e _%hd156798156840%_)))) + (let ((_%hd156801156848%_ (let () (declare (not safe)) - (##car _%e156763156808%_))) - (_%tl156765156813%_ + (##car _%e156800156845%_))) + (_%tl156802156850%_ (let () (declare (not safe)) - (##cdr _%e156763156808%_)))) + (##cdr _%e156800156845%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156764156811%_)) - (let ((_%e156766156816%_ + (gx#stx-pair? _%hd156801156848%_)) + (let ((_%e156803156853%_ (let () (declare (not safe)) - (gx#stx-e _%hd156764156811%_)))) - (let ((_%hd156767156819%_ + (gx#stx-e _%hd156801156848%_)))) + (let ((_%hd156804156856%_ (let () (declare (not safe)) - (##car _%e156766156816%_))) - (_%tl156768156821%_ + (##car _%e156803156853%_))) + (_%tl156805156858%_ (let () (declare (not safe)) - (##cdr _%e156766156816%_)))) + (##cdr _%e156803156853%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156768156821%_)) + (gx#stx-null? _%tl156805156858%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156765156813%_)) - (let ((_%e156769156824%_ + (gx#stx-pair? _%tl156802156850%_)) + (let ((_%e156806156861%_ (let () (declare (not safe)) (gx#stx-e - _%tl156765156813%_)))) - (let ((_%hd156770156827%_ + _%tl156802156850%_)))) + (let ((_%hd156807156864%_ (let () (declare (not safe)) - (##car _%e156769156824%_))) - (_%tl156771156829%_ + (##car _%e156806156861%_))) + (_%tl156808156866%_ (let () (declare (not safe)) - (##cdr _%e156769156824%_)))) + (##cdr _%e156806156861%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156771156829%_)) + _%tl156808156866%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156762156805%_)) + _%tl156799156842%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156759156797%_)) - (let ((_%e156772156832%_ + _%tl156796156834%_)) + (let ((_%e156809156869%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156759156797%_)))) - (let ((_%hd156773156835%_ + (gx#stx-e _%tl156796156834%_)))) + (let ((_%hd156810156872%_ (let () (declare (not safe)) - (##car _%e156772156832%_))) - (_%tl156774156837%_ + (##car _%e156809156869%_))) + (_%tl156811156874%_ (let () (declare (not safe)) - (##cdr _%e156772156832%_)))) + (##cdr _%e156809156869%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156774156837%_)) - ((lambda (_%L156840%_ _%L156841%_ _%L156842%_) - (let* ((_%lambda-id156866%_ - (let ((__tmp171271 + (gx#stx-null? _%tl156811156874%_)) + ((lambda (_%L156877%_ _%L156878%_ _%L156879%_) + (let* ((_%lambda-id156903%_ + (let ((__tmp171308 (let () (declare (not safe)) - (gx#stx-e _%L156733%_))) - (__tmp171270 - (_%opt-lambda-dispatch-name156296%_ + (gx#stx-e _%L156770%_))) + (__tmp171307 + (_%opt-lambda-dispatch-name156333%_ (let () (declare (not safe)) - (gx#stx-e _%L156842%_))))) + (gx#stx-e _%L156879%_))))) (declare (not safe)) (make-symbol__1 - __tmp171271 + __tmp171308 '"__" - __tmp171270))) - (_%lambda-id156868%_ - (let ((__tmp171272 + __tmp171307))) + (_%lambda-id156905%_ + (let ((__tmp171309 (let () (declare (not safe)) - (gx#stx-source _%stx156293%_)))) + (gx#stx-source _%stx156330%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%lambda-id156866%_ - __tmp171272))) - (_%_156870%_ + _%lambda-id156903%_ + __tmp171309))) + (_%_156907%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%lambda-id156868%_))) - (_%new-case-lambda-expr156872%_ + _%lambda-id156905%_))) + (_%new-case-lambda-expr156909%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156842%_ - _%lambda-id156868%_ - _%L156840%_)))) - (let ((__tmp171274 + _%L156879%_ + _%lambda-id156905%_ + _%L156877%_)))) + (let ((__tmp171311 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156733%_))) - (__tmp171273 + (gxc#identifier-symbol _%L156770%_))) + (__tmp171310 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id156868%_)))) + _%lambda-id156905%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171274 + __tmp171311 '" => " - __tmp171273)) - (let ((__tmp171275 + __tmp171310)) + (let ((__tmp171312 (cons '%#begin - (cons (let ((__tmp171276 + (cons (let ((__tmp171313 (cons '%#define-values - (cons (cons _%lambda-id156868%_ + (cons (cons _%lambda-id156905%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156292%_ - _%L156841%_)) + _%self156329%_ + _%L156878%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171276 - _%stx156293%_)) + __tmp171313 + _%stx156330%_)) (cons (gxc#lift-top-lambda-define-values% - _%self156292%_ - (let ((__tmp171277 + _%self156329%_ + (let ((__tmp171314 (cons '%#define-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L156733%_ '()) - (cons _%new-case-lambda-expr156872%_ '()))))) + (cons (cons _%L156770%_ '()) + (cons _%new-case-lambda-expr156909%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171277 _%stx156293%_))) + (gxc#xform-wrap-source __tmp171314 _%stx156330%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171275 - _%stx156293%_)))) - _%hd156773156835%_ - _%hd156770156827%_ - _%hd156767156819%_) - (_%g156749156779%_ _%g156750156782%_)))) - (_%g156749156779%_ _%g156750156782%_)) + __tmp171312 + _%stx156330%_)))) + _%hd156810156872%_ + _%hd156807156864%_ + _%hd156804156856%_) + (_%g156786156816%_ _%g156787156819%_)))) + (_%g156786156816%_ _%g156787156819%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156749156779%_ - _%g156750156782%_)) - (_%g156749156779%_ - _%g156750156782%_)))) - (_%g156749156779%_ _%g156750156782%_)) - (_%g156749156779%_ _%g156750156782%_)))) - (_%g156749156779%_ _%g156750156782%_)))) - (_%g156749156779%_ _%g156750156782%_)))) + (_%g156786156816%_ + _%g156787156819%_)) + (_%g156786156816%_ + _%g156787156819%_)))) + (_%g156786156816%_ _%g156787156819%_)) + (_%g156786156816%_ _%g156787156819%_)))) + (_%g156786156816%_ _%g156787156819%_)))) + (_%g156786156816%_ _%g156787156819%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156749156779%_ - _%g156750156782%_)))) - (_%g156749156779%_ - _%g156750156782%_)))) - (_%g156749156779%_ _%g156750156782%_))))) - (_%g156748156875%_ _%L156732%_)))) - (_%__kont170482170483%_ - (lambda (_%L156444%_ _%L156445%_) - (let* ((_%g156461156514%_ - (lambda (_%g156462156511%_) + (_%g156786156816%_ + _%g156787156819%_)))) + (_%g156786156816%_ + _%g156787156819%_)))) + (_%g156786156816%_ _%g156787156819%_))))) + (_%g156785156912%_ _%L156769%_)))) + (_%__kont170519170520%_ + (lambda (_%L156481%_ _%L156482%_) + (let* ((_%g156498156551%_ + (lambda (_%g156499156548%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156462156511%_)))) - (_%g156460156692%_ - (lambda (_%g156462156517%_) + _%g156499156548%_)))) + (_%g156497156729%_ + (lambda (_%g156499156554%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156462156517%_)) - (let ((_%e156468156519%_ + (gx#stx-pair? _%g156499156554%_)) + (let ((_%e156505156556%_ (let () (declare (not safe)) - (gx#stx-e _%g156462156517%_)))) - (let ((_%hd156469156522%_ + (gx#stx-e _%g156499156554%_)))) + (let ((_%hd156506156559%_ (let () (declare (not safe)) - (##car _%e156468156519%_))) - (_%tl156470156524%_ + (##car _%e156505156556%_))) + (_%tl156507156561%_ (let () (declare (not safe)) - (##cdr _%e156468156519%_)))) + (##cdr _%e156505156556%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156470156524%_)) - (let ((_%e156471156527%_ + (gx#stx-pair? _%tl156507156561%_)) + (let ((_%e156508156564%_ (let () (declare (not safe)) (gx#stx-e - _%tl156470156524%_)))) - (let ((_%hd156472156530%_ + _%tl156507156561%_)))) + (let ((_%hd156509156567%_ (let () (declare (not safe)) - (##car _%e156471156527%_))) - (_%tl156473156532%_ + (##car _%e156508156564%_))) + (_%tl156510156569%_ (let () (declare (not safe)) - (##cdr _%e156471156527%_)))) + (##cdr _%e156508156564%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156472156530%_)) - (let ((_%e156474156535%_ + _%hd156509156567%_)) + (let ((_%e156511156572%_ (let () (declare (not safe)) (gx#stx-e - _%hd156472156530%_)))) - (let ((_%hd156475156538%_ + _%hd156509156567%_)))) + (let ((_%hd156512156575%_ (let () (declare (not safe)) - (##car _%e156474156535%_))) - (_%tl156476156540%_ + (##car _%e156511156572%_))) + (_%tl156513156577%_ (let () (declare (not safe)) - (##cdr _%e156474156535%_)))) + (##cdr _%e156511156572%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156475156538%_)) - (let ((_%e156477156543%_ + _%hd156512156575%_)) + (let ((_%e156514156580%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156475156538%_)))) - (let ((_%hd156478156546%_ + (gx#stx-e _%hd156512156575%_)))) + (let ((_%hd156515156583%_ (let () (declare (not safe)) - (##car _%e156477156543%_))) - (_%tl156479156548%_ + (##car _%e156514156580%_))) + (_%tl156516156585%_ (let () (declare (not safe)) - (##cdr _%e156477156543%_)))) + (##cdr _%e156514156580%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156478156546%_)) - (let ((_%e156480156551%_ + (gx#stx-pair? _%hd156515156583%_)) + (let ((_%e156517156588%_ (let () (declare (not safe)) - (gx#stx-e _%hd156478156546%_)))) - (let ((_%hd156481156554%_ + (gx#stx-e _%hd156515156583%_)))) + (let ((_%hd156518156591%_ (let () (declare (not safe)) - (##car _%e156480156551%_))) - (_%tl156482156556%_ + (##car _%e156517156588%_))) + (_%tl156519156593%_ (let () (declare (not safe)) - (##cdr _%e156480156551%_)))) + (##cdr _%e156517156588%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156482156556%_)) + (gx#stx-null? _%tl156519156593%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156479156548%_)) - (let ((_%e156483156559%_ + (gx#stx-pair? _%tl156516156585%_)) + (let ((_%e156520156596%_ (let () (declare (not safe)) (gx#stx-e - _%tl156479156548%_)))) - (let ((_%hd156484156562%_ + _%tl156516156585%_)))) + (let ((_%hd156521156599%_ (let () (declare (not safe)) - (##car _%e156483156559%_))) - (_%tl156485156564%_ + (##car _%e156520156596%_))) + (_%tl156522156601%_ (let () (declare (not safe)) - (##cdr _%e156483156559%_)))) + (##cdr _%e156520156596%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156484156562%_)) - (let ((_%e156486156567%_ + _%hd156521156599%_)) + (let ((_%e156523156604%_ (let () (declare (not safe)) (gx#stx-e - _%hd156484156562%_)))) - (let ((_%hd156487156570%_ + _%hd156521156599%_)))) + (let ((_%hd156524156607%_ (let () (declare (not safe)) - (##car _%e156486156567%_))) - (_%tl156488156572%_ + (##car _%e156523156604%_))) + (_%tl156525156609%_ (let () (declare (not safe)) - (##cdr _%e156486156567%_)))) + (##cdr _%e156523156604%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156488156572%_)) - (let ((_%e156489156575%_ + _%tl156525156609%_)) + (let ((_%e156526156612%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156488156572%_)))) - (let ((_%hd156490156578%_ + (gx#stx-e _%tl156525156609%_)))) + (let ((_%hd156527156615%_ (let () (declare (not safe)) - (##car _%e156489156575%_))) - (_%tl156491156580%_ + (##car _%e156526156612%_))) + (_%tl156528156617%_ (let () (declare (not safe)) - (##cdr _%e156489156575%_)))) + (##cdr _%e156526156612%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156490156578%_)) - (let ((_%e156492156583%_ + (gx#stx-pair? _%hd156527156615%_)) + (let ((_%e156529156620%_ (let () (declare (not safe)) - (gx#stx-e _%hd156490156578%_)))) - (let ((_%hd156493156586%_ + (gx#stx-e _%hd156527156615%_)))) + (let ((_%hd156530156623%_ (let () (declare (not safe)) - (##car _%e156492156583%_))) - (_%tl156494156588%_ + (##car _%e156529156620%_))) + (_%tl156531156625%_ (let () (declare (not safe)) - (##cdr _%e156492156583%_)))) + (##cdr _%e156529156620%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156493156586%_)) - (let ((_%e156495156591%_ + (gx#stx-pair? _%hd156530156623%_)) + (let ((_%e156532156628%_ (let () (declare (not safe)) - (gx#stx-e _%hd156493156586%_)))) - (let ((_%hd156496156594%_ + (gx#stx-e _%hd156530156623%_)))) + (let ((_%hd156533156631%_ (let () (declare (not safe)) - (##car _%e156495156591%_))) - (_%tl156497156596%_ + (##car _%e156532156628%_))) + (_%tl156534156633%_ (let () (declare (not safe)) - (##cdr _%e156495156591%_)))) + (##cdr _%e156532156628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156496156594%_)) - (let ((_%e156498156599%_ + (gx#stx-pair? _%hd156533156631%_)) + (let ((_%e156535156636%_ (let () (declare (not safe)) (gx#stx-e - _%hd156496156594%_)))) - (let ((_%hd156499156602%_ + _%hd156533156631%_)))) + (let ((_%hd156536156639%_ (let () (declare (not safe)) - (##car _%e156498156599%_))) - (_%tl156500156604%_ + (##car _%e156535156636%_))) + (_%tl156537156641%_ (let () (declare (not safe)) - (##cdr _%e156498156599%_)))) + (##cdr _%e156535156636%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156500156604%_)) + _%tl156537156641%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156497156596%_)) - (let ((_%e156501156607%_ + _%tl156534156633%_)) + (let ((_%e156538156644%_ (let () (declare (not safe)) (gx#stx-e - _%tl156497156596%_)))) - (let ((_%hd156502156610%_ + _%tl156534156633%_)))) + (let ((_%hd156539156647%_ (let () (declare (not safe)) - (##car _%e156501156607%_))) - (_%tl156503156612%_ + (##car _%e156538156644%_))) + (_%tl156540156649%_ (let () (declare (not safe)) - (##cdr _%e156501156607%_)))) + (##cdr _%e156538156644%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156503156612%_)) + _%tl156540156649%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _%tl156494156588%_)) + (gx#stx-null? _%tl156531156625%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156491156580%_)) - (let ((_%e156504156615%_ + (gx#stx-pair? _%tl156528156617%_)) + (let ((_%e156541156652%_ (let () (declare (not safe)) - (gx#stx-e _%tl156491156580%_)))) - (let ((_%hd156505156618%_ + (gx#stx-e _%tl156528156617%_)))) + (let ((_%hd156542156655%_ (let () (declare (not safe)) - (##car _%e156504156615%_))) - (_%tl156506156620%_ + (##car _%e156541156652%_))) + (_%tl156543156657%_ (let () (declare (not safe)) - (##cdr _%e156504156615%_)))) + (##cdr _%e156541156652%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156506156620%_)) + (gx#stx-null? _%tl156543156657%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156485156564%_)) + (gx#stx-null? _%tl156522156601%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156476156540%_)) + (gx#stx-null? _%tl156513156577%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156473156532%_)) - (let ((_%e156507156623%_ + _%tl156510156569%_)) + (let ((_%e156544156660%_ (let () (declare (not safe)) (gx#stx-e - _%tl156473156532%_)))) - (let ((_%hd156508156626%_ + _%tl156510156569%_)))) + (let ((_%hd156545156663%_ (let () (declare (not safe)) - (##car _%e156507156623%_))) - (_%tl156509156628%_ + (##car _%e156544156660%_))) + (_%tl156546156665%_ (let () (declare (not safe)) - (##cdr _%e156507156623%_)))) + (##cdr _%e156544156660%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156509156628%_)) - ((lambda (_%L156631%_ + _%tl156546156665%_)) + ((lambda (_%L156668%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L156632%_ - _%L156633%_ - _%L156634%_ - _%L156635%_) - (let* ((_%get-kws-id156675%_ - (let ((__tmp171279 + _%L156669%_ + _%L156670%_ + _%L156671%_ + _%L156672%_) + (let* ((_%get-kws-id156712%_ + (let ((__tmp171316 (let () (declare (not safe)) - (gx#stx-e _%L156445%_))) - (__tmp171278 - (_%kw-lambda-dispatch-name156297%_ + (gx#stx-e _%L156482%_))) + (__tmp171315 + (_%kw-lambda-dispatch-name156334%_ (let () (declare (not safe)) - (gx#stx-e _%L156635%_)) + (gx#stx-e _%L156672%_)) '"@"))) (declare (not safe)) - (make-symbol__1 __tmp171279 '"__" __tmp171278))) - (_%get-kws-id156677%_ - (let ((__tmp171280 + (make-symbol__1 __tmp171316 '"__" __tmp171315))) + (_%get-kws-id156714%_ + (let ((__tmp171317 (let () (declare (not safe)) - (gx#stx-source _%stx156293%_)))) + (gx#stx-source _%stx156330%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id156675%_ - __tmp171280))) - (_%main-id156679%_ - (let ((__tmp171282 + _%get-kws-id156712%_ + __tmp171317))) + (_%main-id156716%_ + (let ((__tmp171319 (let () (declare (not safe)) - (gx#stx-e _%L156445%_))) - (__tmp171281 - (_%kw-lambda-dispatch-name156297%_ + (gx#stx-e _%L156482%_))) + (__tmp171318 + (_%kw-lambda-dispatch-name156334%_ (let () (declare (not safe)) - (gx#stx-e _%L156634%_)) + (gx#stx-e _%L156671%_)) '"%"))) (declare (not safe)) - (make-symbol__1 __tmp171282 '"__" __tmp171281))) - (_%main-id156681%_ - (let ((__tmp171283 + (make-symbol__1 __tmp171319 '"__" __tmp171318))) + (_%main-id156718%_ + (let ((__tmp171320 (let () (declare (not safe)) - (gx#stx-source _%stx156293%_)))) + (gx#stx-source _%stx156330%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id156679%_ - __tmp171283))) - (_%_156683%_ + _%main-id156716%_ + __tmp171320))) + (_%_156720%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%get-kws-id156677%_))) - (_%_156685%_ + (gx#core-bind-runtime!__0 _%get-kws-id156714%_))) + (_%_156722%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%main-id156681%_))) - (_%new-kw-dispatch156687%_ + (gx#core-bind-runtime!__0 _%main-id156718%_))) + (_%new-kw-dispatch156724%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156635%_ - _%get-kws-id156677%_ - _%L156631%_))) - (_%new-get-kws156689%_ + _%L156672%_ + _%get-kws-id156714%_ + _%L156668%_))) + (_%new-get-kws156726%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156634%_ - _%main-id156681%_ - _%L156632%_)))) - (let ((__tmp171286 + _%L156671%_ + _%main-id156718%_ + _%L156669%_)))) + (let ((__tmp171323 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156445%_))) - (__tmp171285 + (gxc#identifier-symbol _%L156482%_))) + (__tmp171322 (let () (declare (not safe)) - (gxc#identifier-symbol _%get-kws-id156677%_))) - (__tmp171284 + (gxc#identifier-symbol _%get-kws-id156714%_))) + (__tmp171321 (let () (declare (not safe)) - (gxc#identifier-symbol _%main-id156681%_)))) + (gxc#identifier-symbol _%main-id156718%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171286 + __tmp171323 '" => " - __tmp171285 + __tmp171322 '" => " - __tmp171284)) - (let ((__tmp171287 + __tmp171321)) + (let ((__tmp171324 (cons '%#begin (cons (gxc#lift-top-lambda-define-values% - _%self156292%_ - (let ((__tmp171288 + _%self156329%_ + (let ((__tmp171325 (cons '%#define-values - (cons (cons _%main-id156681%_ + (cons (cons _%main-id156718%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L156633%_ '()))))) + (cons _%L156670%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171288 - _%stx156293%_))) - (cons (let ((__tmp171289 + __tmp171325 + _%stx156330%_))) + (cons (let ((__tmp171326 (cons '%#define-values - (cons (cons _%get-kws-id156677%_ + (cons (cons _%get-kws-id156714%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-get-kws156689%_ '()))))) + (cons _%new-get-kws156726%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171289 - _%stx156293%_)) - (cons (let ((__tmp171290 + __tmp171326 + _%stx156330%_)) + (cons (let ((__tmp171327 (cons '%#define-values - (cons (cons _%L156445%_ + (cons (cons _%L156482%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-kw-dispatch156687%_ '()))))) + (cons _%new-kw-dispatch156724%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171290 - _%stx156293%_)) + __tmp171327 + _%stx156330%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171287 _%stx156293%_)))) - _%hd156508156626%_ - _%hd156505156618%_ - _%hd156502156610%_ - _%hd156499156602%_ - _%hd156481156554%_) - (_%g156461156514%_ _%g156462156517%_)))) + (gxc#xform-wrap-source __tmp171324 _%stx156330%_)))) + _%hd156545156663%_ + _%hd156542156655%_ + _%hd156539156647%_ + _%hd156536156639%_ + _%hd156518156591%_) + (_%g156498156551%_ _%g156499156554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156461156514%_ - _%g156462156517%_)) - (_%g156461156514%_ - _%g156462156517%_)) - (_%g156461156514%_ _%g156462156517%_)) - (_%g156461156514%_ _%g156462156517%_)))) - (_%g156461156514%_ _%g156462156517%_)) - (_%g156461156514%_ _%g156462156517%_)) - (_%g156461156514%_ _%g156462156517%_)))) + (_%g156498156551%_ + _%g156499156554%_)) + (_%g156498156551%_ + _%g156499156554%_)) + (_%g156498156551%_ _%g156499156554%_)) + (_%g156498156551%_ _%g156499156554%_)))) + (_%g156498156551%_ _%g156499156554%_)) + (_%g156498156551%_ _%g156499156554%_)) + (_%g156498156551%_ _%g156499156554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156461156514%_ - _%g156462156517%_)) - (_%g156461156514%_ - _%g156462156517%_)))) - (_%g156461156514%_ _%g156462156517%_)))) - (_%g156461156514%_ _%g156462156517%_)))) - (_%g156461156514%_ _%g156462156517%_)))) - (_%g156461156514%_ _%g156462156517%_)))) + (_%g156498156551%_ + _%g156499156554%_)) + (_%g156498156551%_ + _%g156499156554%_)))) + (_%g156498156551%_ _%g156499156554%_)))) + (_%g156498156551%_ _%g156499156554%_)))) + (_%g156498156551%_ _%g156499156554%_)))) + (_%g156498156551%_ _%g156499156554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156461156514%_ - _%g156462156517%_)))) - (_%g156461156514%_ _%g156462156517%_)) - (_%g156461156514%_ _%g156462156517%_)))) - (_%g156461156514%_ _%g156462156517%_)))) - (_%g156461156514%_ _%g156462156517%_)))) + (_%g156498156551%_ + _%g156499156554%_)))) + (_%g156498156551%_ _%g156499156554%_)) + (_%g156498156551%_ _%g156499156554%_)))) + (_%g156498156551%_ _%g156499156554%_)))) + (_%g156498156551%_ _%g156499156554%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156461156514%_ - _%g156462156517%_)))) - (_%g156461156514%_ - _%g156462156517%_)))) - (_%g156461156514%_ _%g156462156517%_))))) - (_%g156460156692%_ _%L156444%_)))) - (_%__kont170484170485%_ - (lambda (_%L156390%_ _%L156391%_) - (let ((__tmp171291 + (_%g156498156551%_ + _%g156499156554%_)))) + (_%g156498156551%_ + _%g156499156554%_)))) + (_%g156498156551%_ _%g156499156554%_))))) + (_%g156497156729%_ _%L156481%_)))) + (_%__kont170521170522%_ + (lambda (_%L156427%_ _%L156428%_) + (let ((__tmp171328 (cons '%#define-values - (cons _%L156391%_ + (cons _%L156428%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156292%_ - _%L156390%_)) + _%self156329%_ + _%L156427%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171291 _%stx156293%_))))) - (let* ((_%__match170569170570%_ - (lambda (_%e156334156412%_ - _%hd156335156415%_ - _%tl156336156417%_ - _%e156337156420%_ - _%hd156338156423%_ - _%tl156339156425%_ - _%e156340156428%_ - _%hd156341156431%_ - _%tl156342156433%_ - _%e156343156436%_ - _%hd156344156439%_ - _%tl156345156441%_) - (let ((_%L156444%_ _%hd156344156439%_) - (_%L156445%_ _%hd156341156431%_)) + (gxc#xform-wrap-source __tmp171328 _%stx156330%_))))) + (let* ((_%__match170606170607%_ + (lambda (_%e156371156449%_ + _%hd156372156452%_ + _%tl156373156454%_ + _%e156374156457%_ + _%hd156375156460%_ + _%tl156376156462%_ + _%e156377156465%_ + _%hd156378156468%_ + _%tl156379156470%_ + _%e156380156473%_ + _%hd156381156476%_ + _%tl156382156478%_) + (let ((_%L156481%_ _%hd156381156476%_) + (_%L156482%_ _%hd156378156468%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156445%_)) - (gxc#kw-lambda-expr? _%L156444%_)) - (_%__kont170482170483%_ _%L156444%_ _%L156445%_) - (_%__kont170484170485%_ - _%hd156344156439%_ - _%hd156338156423%_))))) - (_%__match170541170542%_ - (lambda (_%e156320156700%_ - _%hd156321156703%_ - _%tl156322156705%_ - _%e156323156708%_ - _%hd156324156711%_ - _%tl156325156713%_ - _%e156326156716%_ - _%hd156327156719%_ - _%tl156328156721%_ - _%e156329156724%_ - _%hd156330156727%_ - _%tl156331156729%_) - (let ((_%L156732%_ _%hd156330156727%_) - (_%L156733%_ _%hd156327156719%_)) + (gx#identifier? _%L156482%_)) + (gxc#kw-lambda-expr? _%L156481%_)) + (_%__kont170519170520%_ _%L156481%_ _%L156482%_) + (_%__kont170521170522%_ + _%hd156381156476%_ + _%hd156375156460%_))))) + (_%__match170578170579%_ + (lambda (_%e156357156737%_ + _%hd156358156740%_ + _%tl156359156742%_ + _%e156360156745%_ + _%hd156361156748%_ + _%tl156362156750%_ + _%e156363156753%_ + _%hd156364156756%_ + _%tl156365156758%_ + _%e156366156761%_ + _%hd156367156764%_ + _%tl156368156766%_) + (let ((_%L156769%_ _%hd156367156764%_) + (_%L156770%_ _%hd156364156756%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156733%_)) - (gxc#opt-lambda-expr? _%L156732%_)) - (_%__kont170480170481%_ _%L156732%_ _%L156733%_) - (_%__match170569170570%_ - _%e156320156700%_ - _%hd156321156703%_ - _%tl156322156705%_ - _%e156323156708%_ - _%hd156324156711%_ - _%tl156325156713%_ - _%e156326156716%_ - _%hd156327156719%_ - _%tl156328156721%_ - _%e156329156724%_ - _%hd156330156727%_ - _%tl156331156729%_))))) - (_%__match170513170514%_ - (lambda (_%e156306156883%_ - _%hd156307156886%_ - _%tl156308156888%_ - _%e156309156891%_ - _%hd156310156894%_ - _%tl156311156896%_ - _%e156312156899%_ - _%hd156313156902%_ - _%tl156314156904%_ - _%e156315156907%_ - _%hd156316156910%_ - _%tl156317156912%_) - (let ((_%L156915%_ _%hd156316156910%_) - (_%L156916%_ _%hd156313156902%_)) + (gx#identifier? _%L156770%_)) + (gxc#opt-lambda-expr? _%L156769%_)) + (_%__kont170517170518%_ _%L156769%_ _%L156770%_) + (_%__match170606170607%_ + _%e156357156737%_ + _%hd156358156740%_ + _%tl156359156742%_ + _%e156360156745%_ + _%hd156361156748%_ + _%tl156362156750%_ + _%e156363156753%_ + _%hd156364156756%_ + _%tl156365156758%_ + _%e156366156761%_ + _%hd156367156764%_ + _%tl156368156766%_))))) + (_%__match170550170551%_ + (lambda (_%e156343156920%_ + _%hd156344156923%_ + _%tl156345156925%_ + _%e156346156928%_ + _%hd156347156931%_ + _%tl156348156933%_ + _%e156349156936%_ + _%hd156350156939%_ + _%tl156351156941%_ + _%e156352156944%_ + _%hd156353156947%_ + _%tl156354156949%_) + (let ((_%L156952%_ _%hd156353156947%_) + (_%L156953%_ _%hd156350156939%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156916%_)) - (gxc#case-lambda-expr? _%L156915%_)) - (_%__kont170478170479%_ _%L156915%_ _%L156916%_) - (_%__match170541170542%_ - _%e156306156883%_ - _%hd156307156886%_ - _%tl156308156888%_ - _%e156309156891%_ - _%hd156310156894%_ - _%tl156311156896%_ - _%e156312156899%_ - _%hd156313156902%_ - _%tl156314156904%_ - _%e156315156907%_ - _%hd156316156910%_ - _%tl156317156912%_)))))) + (gx#identifier? _%L156953%_)) + (gxc#case-lambda-expr? _%L156952%_)) + (_%__kont170515170516%_ _%L156952%_ _%L156953%_) + (_%__match170578170579%_ + _%e156343156920%_ + _%hd156344156923%_ + _%tl156345156925%_ + _%e156346156928%_ + _%hd156347156931%_ + _%tl156348156933%_ + _%e156349156936%_ + _%hd156350156939%_ + _%tl156351156941%_ + _%e156352156944%_ + _%hd156353156947%_ + _%tl156354156949%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170476170477%_)) - (let ((_%e156306156883%_ + (gx#stx-pair? _%__stx170513170514%_)) + (let ((_%e156343156920%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170476170477%_)))) - (let ((_%tl156308156888%_ + (gx#stx-e _%__stx170513170514%_)))) + (let ((_%tl156345156925%_ (let () (declare (not safe)) - (##cdr _%e156306156883%_))) - (_%hd156307156886%_ + (##cdr _%e156343156920%_))) + (_%hd156344156923%_ (let () (declare (not safe)) - (##car _%e156306156883%_)))) + (##car _%e156343156920%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156308156888%_)) - (let ((_%e156309156891%_ + (gx#stx-pair? _%tl156345156925%_)) + (let ((_%e156346156928%_ (let () (declare (not safe)) - (gx#stx-e _%tl156308156888%_)))) - (let ((_%tl156311156896%_ + (gx#stx-e _%tl156345156925%_)))) + (let ((_%tl156348156933%_ (let () (declare (not safe)) - (##cdr _%e156309156891%_))) - (_%hd156310156894%_ + (##cdr _%e156346156928%_))) + (_%hd156347156931%_ (let () (declare (not safe)) - (##car _%e156309156891%_)))) + (##car _%e156346156928%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156310156894%_)) - (let ((_%e156312156899%_ + (gx#stx-pair? _%hd156347156931%_)) + (let ((_%e156349156936%_ (let () (declare (not safe)) - (gx#stx-e _%hd156310156894%_)))) - (let ((_%tl156314156904%_ + (gx#stx-e _%hd156347156931%_)))) + (let ((_%tl156351156941%_ (let () (declare (not safe)) - (##cdr _%e156312156899%_))) - (_%hd156313156902%_ + (##cdr _%e156349156936%_))) + (_%hd156350156939%_ (let () (declare (not safe)) - (##car _%e156312156899%_)))) + (##car _%e156349156936%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156314156904%_)) + _%tl156351156941%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156311156896%_)) - (let ((_%e156315156907%_ + _%tl156348156933%_)) + (let ((_%e156352156944%_ (let () (declare (not safe)) (gx#stx-e - _%tl156311156896%_)))) - (let ((_%tl156317156912%_ + _%tl156348156933%_)))) + (let ((_%tl156354156949%_ (let () (declare (not safe)) - (##cdr _%e156315156907%_))) - (_%hd156316156910%_ + (##cdr _%e156352156944%_))) + (_%hd156353156947%_ (let () (declare (not safe)) - (##car _%e156315156907%_)))) + (##car _%e156352156944%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156317156912%_)) - (_%__match170513170514%_ - _%e156306156883%_ - _%hd156307156886%_ - _%tl156308156888%_ - _%e156309156891%_ - _%hd156310156894%_ - _%tl156311156896%_ - _%e156312156899%_ - _%hd156313156902%_ - _%tl156314156904%_ - _%e156315156907%_ - _%hd156316156910%_ - _%tl156317156912%_) + _%tl156354156949%_)) + (_%__match170550170551%_ + _%e156343156920%_ + _%hd156344156923%_ + _%tl156345156925%_ + _%e156346156928%_ + _%hd156347156931%_ + _%tl156348156933%_ + _%e156349156936%_ + _%hd156350156939%_ + _%tl156351156941%_ + _%e156352156944%_ + _%hd156353156947%_ + _%tl156354156949%_) (let () (declare (not safe)) - (_%g156302156361%_))))) + (_%g156339156398%_))))) (let () (declare (not safe)) - (_%g156302156361%_))) + (_%g156339156398%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156311156896%_)) - (let ((_%e156354156382%_ + _%tl156348156933%_)) + (let ((_%e156391156419%_ (let () (declare (not safe)) (gx#stx-e - _%tl156311156896%_)))) - (let ((_%tl156356156387%_ + _%tl156348156933%_)))) + (let ((_%tl156393156424%_ (let () (declare (not safe)) - (##cdr _%e156354156382%_))) - (_%hd156355156385%_ + (##cdr _%e156391156419%_))) + (_%hd156392156422%_ (let () (declare (not safe)) - (##car _%e156354156382%_)))) + (##car _%e156391156419%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156356156387%_)) - (_%__kont170484170485%_ - _%hd156355156385%_ - _%hd156310156894%_) + _%tl156393156424%_)) + (_%__kont170521170522%_ + _%hd156392156422%_ + _%hd156347156931%_) (let () (declare (not safe)) - (_%g156302156361%_))))) + (_%g156339156398%_))))) (let () (declare (not safe)) - (_%g156302156361%_)))))) + (_%g156339156398%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156311156896%_)) - (let ((_%e156354156382%_ + (gx#stx-pair? _%tl156348156933%_)) + (let ((_%e156391156419%_ (let () (declare (not safe)) (gx#stx-e - _%tl156311156896%_)))) - (let ((_%tl156356156387%_ + _%tl156348156933%_)))) + (let ((_%tl156393156424%_ (let () (declare (not safe)) - (##cdr _%e156354156382%_))) - (_%hd156355156385%_ + (##cdr _%e156391156419%_))) + (_%hd156392156422%_ (let () (declare (not safe)) - (##car _%e156354156382%_)))) + (##car _%e156391156419%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156356156387%_)) - (_%__kont170484170485%_ - _%hd156355156385%_ - _%hd156310156894%_) + _%tl156393156424%_)) + (_%__kont170521170522%_ + _%hd156392156422%_ + _%hd156347156931%_) (let () (declare (not safe)) - (_%g156302156361%_))))) + (_%g156339156398%_))))) (let () (declare (not safe)) - (_%g156302156361%_)))))) + (_%g156339156398%_)))))) (let () (declare (not safe)) - (_%g156302156361%_))))) - (let () (declare (not safe)) (_%g156302156361%_))))))))) + (_%g156339156398%_))))) + (let () (declare (not safe)) (_%g156339156398%_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_%self155219%_ _%stx155220%_) - (letrec* ((_%bind-e__167955167956%_ - (lambda (_%id156276%_ _%expr156277%_ _%compile?156278%_) - (cons (cons _%id156276%_ '()) - (cons (if _%compile?156278%_ + (lambda (_%self155256%_ _%stx155257%_) + (letrec* ((_%bind-e__167992167993%_ + (lambda (_%id156313%_ _%expr156314%_ _%compile?156315%_) + (cons (cons _%id156313%_ '()) + (cons (if _%compile?156315%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self155219%_ - _%expr156277%_)) - _%expr156277%_) + _%self155256%_ + _%expr156314%_)) + _%expr156314%_) '())))) - (_%bind-e__0__167957167958%_ - (lambda (_%id156283%_ _%expr156284%_) - (let ((_%compile?156286%_ '#t)) - (_%bind-e__167955167956%_ - _%id156283%_ - _%expr156284%_ - _%compile?156286%_)))) - (_%bind-e155222%_ - (lambda _g171293_ - (let ((_g171292_ + (_%bind-e__0__167994167995%_ + (lambda (_%id156320%_ _%expr156321%_) + (let ((_%compile?156323%_ '#t)) + (_%bind-e__167992167993%_ + _%id156320%_ + _%expr156321%_ + _%compile?156323%_)))) + (_%bind-e155259%_ + (lambda _g171330_ + (let ((_g171329_ (let () (declare (not safe)) - (##length _g171293_)))) - (cond ((let () (declare (not safe)) (##fx= _g171292_ 2)) - (apply _%bind-e__0__167957167958%_ _g171293_)) - ((let () (declare (not safe)) (##fx= _g171292_ 3)) - (apply _%bind-e__167955167956%_ _g171293_)) + (##length _g171330_)))) + (cond ((let () (declare (not safe)) (##fx= _g171329_ 2)) + (apply _%bind-e__0__167994167995%_ _g171330_)) + ((let () (declare (not safe)) (##fx= _g171329_ 3)) + (apply _%bind-e__167992167993%_ _g171330_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g171293_)))))) - (_%compile-bindings155223%_ - (lambda (_%bindings155858%_) - (let _%lp155860%_ ((_%rest155862%_ _%bindings155858%_) - (_%lift1155863%_ '()) - (_%lift2155864%_ '()) - (_%bind155865%_ '())) - (let* ((_%rest155866155874%_ _%rest155862%_) - (_%else155868155882%_ + _g171330_)))))) + (_%compile-bindings155260%_ + (lambda (_%bindings155895%_) + (let _%lp155897%_ ((_%rest155899%_ _%bindings155895%_) + (_%lift1155900%_ '()) + (_%lift2155901%_ '()) + (_%bind155902%_ '())) + (let* ((_%rest155903155911%_ _%rest155899%_) + (_%else155905155919%_ (lambda () - (values (reverse _%lift1155863%_) - (reverse _%lift2155864%_) - (reverse _%bind155865%_)))) - (_%K155870156263%_ - (lambda (_%rest155885%_ _%hd155886%_) - (let* ((_%__stx170612170613%_ _%hd155886%_) - (_%g155890155926%_ + (values (reverse _%lift1155900%_) + (reverse _%lift2155901%_) + (reverse _%bind155902%_)))) + (_%K155907156300%_ + (lambda (_%rest155922%_ _%hd155923%_) + (let* ((_%__stx170649170650%_ _%hd155923%_) + (_%g155927155963%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170612170613%_))))) - (let ((_%__kont170614170615%_ - (lambda (_%L156169%_ _%L156170%_) - (let* ((_%__stx170592170593%_ - _%L156169%_) - (_%g156185156199%_ + _%__stx170649170650%_))))) + (let ((_%__kont170651170652%_ + (lambda (_%L156206%_ _%L156207%_) + (let* ((_%__stx170629170630%_ + _%L156206%_) + (_%g156222156236%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170592170593%_))))) - (let ((_%__kont170594170595%_ - (lambda (_%L156248%_) - (_%lp155860%_ - _%rest155885%_ - _%lift1155863%_ - _%lift2155864%_ - (cons (_%bind-e__167955167956%_ - _%L156170%_ - _%L156169%_ + _%__stx170629170630%_))))) + (let ((_%__kont170631170632%_ + (lambda (_%L156285%_) + (_%lp155897%_ + _%rest155922%_ + _%lift1155900%_ + _%lift2155901%_ + (cons (_%bind-e__167992167993%_ + _%L156207%_ + _%L156206%_ '#f) - _%bind155865%_)))) - (_%__kont170596170597%_ - (lambda (_%L156212%_) - (let ((_g171294_ + _%bind155902%_)))) + (_%__kont170633170634%_ + (lambda (_%L156249%_) + (let ((_g171331_ (gxc#lift-case-lambda-clauses__% - _%stx155220%_ - _%L156170%_ - _%L156212%_ + _%stx155257%_ + _%L156207%_ + _%L156249%_ '#t))) (begin - (let ((_g171295_ + (let ((_g171332_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g171294_) - (##vector-length _g171294_) + (if (##values? _g171331_) + (##vector-length _g171331_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171295_ 3))) - (error "Context expects 3 values" _g171295_))) - (let ((_%ids156222%_ + (##fx= _g171332_ 3))) + (error "Context expects 3 values" _g171332_))) + (let ((_%ids156259%_ (let () (declare (not safe)) - (##vector-ref _g171294_ 0))) - (_%impls156223%_ + (##vector-ref _g171331_ 0))) + (_%impls156260%_ (let () (declare (not safe)) - (##vector-ref _g171294_ 1))) - (_%clauses156224%_ + (##vector-ref _g171331_ 1))) + (_%clauses156261%_ (let () (declare (not safe)) - (##vector-ref _g171294_ 2)))) - (let* ((_%_156226%_ - (for-each gx#core-bind-runtime! _%ids156222%_)) - (_%xbind156228%_ - (map _%bind-e155222%_ - _%ids156222%_ - _%impls156223%_)) - (_%expr*156230%_ - (let ((__tmp171297 - (cons '%#case-lambda _%clauses156224%_)) - (__tmp171296 + (##vector-ref _g171331_ 2)))) + (let* ((_%_156263%_ + (for-each gx#core-bind-runtime! _%ids156259%_)) + (_%xbind156265%_ + (map _%bind-e155259%_ + _%ids156259%_ + _%impls156260%_)) + (_%expr*156267%_ + (let ((__tmp171334 + (cons '%#case-lambda _%clauses156261%_)) + (__tmp171333 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -21586,1408 +21586,1408 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171297 - __tmp171296))) - (_%bind*156232%_ - (_%bind-e__167955167956%_ - _%L156170%_ - _%expr*156230%_ + __tmp171334 + __tmp171333))) + (_%bind*156269%_ + (_%bind-e__167992167993%_ + _%L156207%_ + _%expr*156267%_ '#f))) - (let ((__tmp171299 + (let ((__tmp171336 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156170%_))) - (__tmp171298 - (map gxc#identifier-symbol _%ids156222%_))) + (gxc#identifier-symbol _%L156207%_))) + (__tmp171335 + (map gxc#identifier-symbol _%ids156259%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171299 + __tmp171336 '" => " - __tmp171298)) - (_%lp155860%_ - _%rest155885%_ - _%lift1155863%_ + __tmp171335)) + (_%lp155897%_ + _%rest155922%_ + _%lift1155900%_ (let () (declare (not safe)) - (__foldl1 cons _%lift2155864%_ _%xbind156228%_)) - (cons _%bind*156232%_ _%bind155865%_))))))))) + (__foldl1 cons _%lift2155901%_ _%xbind156265%_)) + (cons _%bind*156269%_ _%bind155902%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match170603170604%_ - (lambda (_%e156188156240%_ - _%hd156189156243%_ - _%tl156190156245%_) - (let ((_%L156248%_ - _%tl156190156245%_)) + (let ((_%__match170640170641%_ + (lambda (_%e156225156277%_ + _%hd156226156280%_ + _%tl156227156282%_) + (let ((_%L156285%_ + _%tl156227156282%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L156248%_)) - (_%__kont170594170595%_ _%L156248%_) - (_%__kont170596170597%_ _%tl156190156245%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L156285%_)) + (_%__kont170631170632%_ _%L156285%_) + (_%__kont170633170634%_ _%tl156227156282%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170592170593%_)) - (let ((_%e156188156240%_ + _%__stx170629170630%_)) + (let ((_%e156225156277%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx170592170593%_)))) - (let ((_%tl156190156245%_ - (let () (declare (not safe)) (##cdr _%e156188156240%_))) - (_%hd156189156243%_ + (gx#stx-e _%__stx170629170630%_)))) + (let ((_%tl156227156282%_ + (let () (declare (not safe)) (##cdr _%e156225156277%_))) + (_%hd156226156280%_ (let () (declare (not safe)) - (##car _%e156188156240%_)))) - (_%__match170603170604%_ - _%e156188156240%_ - _%hd156189156243%_ - _%tl156190156245%_))) - (let () (declare (not safe)) (_%g156185156199%_)))))))) + (##car _%e156225156277%_)))) + (_%__match170640170641%_ + _%e156225156277%_ + _%hd156226156280%_ + _%tl156227156282%_))) + (let () (declare (not safe)) (_%g156222156236%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170616170617%_ - (lambda (_%L155996%_ _%L155997%_) - (let* ((_%g156011156041%_ - (lambda (_%g156012156038%_) + (_%__kont170653170654%_ + (lambda (_%L156033%_ _%L156034%_) + (let* ((_%g156048156078%_ + (lambda (_%g156049156075%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156012156038%_)))) - (_%g156010156137%_ - (lambda (_%g156012156044%_) + _%g156049156075%_)))) + (_%g156047156174%_ + (lambda (_%g156049156081%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g156012156044%_)) - (let ((_%e156016156046%_ + _%g156049156081%_)) + (let ((_%e156053156083%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g156012156044%_)))) - (let ((_%hd156017156049%_ + (gx#stx-e _%g156049156081%_)))) + (let ((_%hd156054156086%_ (let () (declare (not safe)) - (##car _%e156016156046%_))) - (_%tl156018156051%_ + (##car _%e156053156083%_))) + (_%tl156055156088%_ (let () (declare (not safe)) - (##cdr _%e156016156046%_)))) + (##cdr _%e156053156083%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156018156051%_)) - (let ((_%e156019156054%_ + (gx#stx-pair? _%tl156055156088%_)) + (let ((_%e156056156091%_ (let () (declare (not safe)) - (gx#stx-e _%tl156018156051%_)))) - (let ((_%hd156020156057%_ + (gx#stx-e _%tl156055156088%_)))) + (let ((_%hd156057156094%_ (let () (declare (not safe)) - (##car _%e156019156054%_))) - (_%tl156021156059%_ + (##car _%e156056156091%_))) + (_%tl156058156096%_ (let () (declare (not safe)) - (##cdr _%e156019156054%_)))) + (##cdr _%e156056156091%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156020156057%_)) - (let ((_%e156022156062%_ + (gx#stx-pair? _%hd156057156094%_)) + (let ((_%e156059156099%_ (let () (declare (not safe)) - (gx#stx-e _%hd156020156057%_)))) - (let ((_%hd156023156065%_ + (gx#stx-e _%hd156057156094%_)))) + (let ((_%hd156060156102%_ (let () (declare (not safe)) - (##car _%e156022156062%_))) - (_%tl156024156067%_ + (##car _%e156059156099%_))) + (_%tl156061156104%_ (let () (declare (not safe)) - (##cdr _%e156022156062%_)))) + (##cdr _%e156059156099%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156023156065%_)) - (let ((_%e156025156070%_ + (gx#stx-pair? _%hd156060156102%_)) + (let ((_%e156062156107%_ (let () (declare (not safe)) (gx#stx-e - _%hd156023156065%_)))) - (let ((_%hd156026156073%_ + _%hd156060156102%_)))) + (let ((_%hd156063156110%_ (let () (declare (not safe)) - (##car _%e156025156070%_))) - (_%tl156027156075%_ + (##car _%e156062156107%_))) + (_%tl156064156112%_ (let () (declare (not safe)) - (##cdr _%e156025156070%_)))) + (##cdr _%e156062156107%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156026156073%_)) - (let ((_%e156028156078%_ + _%hd156063156110%_)) + (let ((_%e156065156115%_ (let () (declare (not safe)) (gx#stx-e - _%hd156026156073%_)))) - (let ((_%hd156029156081%_ + _%hd156063156110%_)))) + (let ((_%hd156066156118%_ (let () (declare (not safe)) - (##car _%e156028156078%_))) - (_%tl156030156083%_ + (##car _%e156065156115%_))) + (_%tl156067156120%_ (let () (declare (not safe)) - (##cdr _%e156028156078%_)))) + (##cdr _%e156065156115%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156030156083%_)) + _%tl156067156120%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl156027156075%_)) - (let ((_%e156031156086%_ + (gx#stx-pair? _%tl156064156112%_)) + (let ((_%e156068156123%_ (let () (declare (not safe)) - (gx#stx-e _%tl156027156075%_)))) - (let ((_%hd156032156089%_ + (gx#stx-e _%tl156064156112%_)))) + (let ((_%hd156069156126%_ (let () (declare (not safe)) - (##car _%e156031156086%_))) - (_%tl156033156091%_ + (##car _%e156068156123%_))) + (_%tl156070156128%_ (let () (declare (not safe)) - (##cdr _%e156031156086%_)))) + (##cdr _%e156068156123%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156033156091%_)) + (gx#stx-null? _%tl156070156128%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156024156067%_)) + (gx#stx-null? _%tl156061156104%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156021156059%_)) - (let ((_%e156034156094%_ + (gx#stx-pair? _%tl156058156096%_)) + (let ((_%e156071156131%_ (let () (declare (not safe)) - (gx#stx-e _%tl156021156059%_)))) - (let ((_%hd156035156097%_ + (gx#stx-e _%tl156058156096%_)))) + (let ((_%hd156072156134%_ (let () (declare (not safe)) - (##car _%e156034156094%_))) - (_%tl156036156099%_ + (##car _%e156071156131%_))) + (_%tl156073156136%_ (let () (declare (not safe)) - (##cdr _%e156034156094%_)))) + (##cdr _%e156071156131%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156036156099%_)) - ((lambda (_%L156102%_ - _%L156103%_ - _%L156104%_) - (let* ((_%lambda-id156128%_ - (let ((__tmp171301 + _%tl156073156136%_)) + ((lambda (_%L156139%_ + _%L156140%_ + _%L156141%_) + (let* ((_%lambda-id156165%_ + (let ((__tmp171338 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L155997%_))) - (__tmp171300 + (gx#stx-e _%L156034%_))) + (__tmp171337 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp171301 __tmp171300))) - (_%lambda-id156130%_ - (let ((__tmp171302 + (make-symbol__1 __tmp171338 __tmp171337))) + (_%lambda-id156167%_ + (let ((__tmp171339 (let () (declare (not safe)) - (gx#stx-source _%stx155220%_)))) + (gx#stx-source _%stx155257%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id156128%_ __tmp171302))) - (_%_156132%_ + (gx#core-quote-syntax__1 _%lambda-id156165%_ __tmp171339))) + (_%_156169%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id156130%_))) - (_%new-case-lambda-expr156134%_ + (gx#core-bind-runtime!__0 _%lambda-id156167%_))) + (_%new-case-lambda-expr156171%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156104%_ - _%lambda-id156130%_ - _%L156102%_)))) + _%L156141%_ + _%lambda-id156167%_ + _%L156139%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171304 + (let ((__tmp171341 (let () (declare (not safe)) (gxc#identifier-symbol - _%L155997%_))) - (__tmp171303 + _%L156034%_))) + (__tmp171340 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id156130%_)))) + _%lambda-id156167%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171304 + __tmp171341 '" => " - __tmp171303)) - (_%lp155860%_ - (cons (_%bind-e__167955167956%_ - _%L155997%_ - _%new-case-lambda-expr156134%_ + __tmp171340)) + (_%lp155897%_ + (cons (_%bind-e__167992167993%_ + _%L156034%_ + _%new-case-lambda-expr156171%_ '#f) - _%rest155885%_) - (cons (_%bind-e__0__167957167958%_ - _%lambda-id156130%_ - _%L156103%_) - _%lift1155863%_) - _%lift2155864%_ - _%bind155865%_))) - _%hd156035156097%_ - _%hd156032156089%_ - _%hd156029156081%_) - (_%g156011156041%_ - _%g156012156044%_)))) - (_%g156011156041%_ _%g156012156044%_)) - (_%g156011156041%_ _%g156012156044%_)) - (_%g156011156041%_ _%g156012156044%_)))) - (_%g156011156041%_ _%g156012156044%_)) - (_%g156011156041%_ _%g156012156044%_)))) + _%rest155922%_) + (cons (_%bind-e__0__167994167995%_ + _%lambda-id156167%_ + _%L156140%_) + _%lift1155900%_) + _%lift2155901%_ + _%bind155902%_))) + _%hd156072156134%_ + _%hd156069156126%_ + _%hd156066156118%_) + (_%g156048156078%_ + _%g156049156081%_)))) + (_%g156048156078%_ _%g156049156081%_)) + (_%g156048156078%_ _%g156049156081%_)) + (_%g156048156078%_ _%g156049156081%_)))) + (_%g156048156078%_ _%g156049156081%_)) + (_%g156048156078%_ _%g156049156081%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156011156041%_ - _%g156012156044%_)))) - (_%g156011156041%_ - _%g156012156044%_)))) - (_%g156011156041%_ _%g156012156044%_)))) - (_%g156011156041%_ _%g156012156044%_)))) - (_%g156011156041%_ _%g156012156044%_))))) + (_%g156048156078%_ + _%g156049156081%_)))) + (_%g156048156078%_ + _%g156049156081%_)))) + (_%g156048156078%_ _%g156049156081%_)))) + (_%g156048156078%_ _%g156049156081%_)))) + (_%g156048156078%_ _%g156049156081%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156010156137%_ - _%L155996%_)))) - (_%__kont170618170619%_ - (lambda (_%L155947%_ _%L155948%_) - (_%lp155860%_ - _%rest155885%_ - _%lift1155863%_ - _%lift2155864%_ - (cons (cons _%L155948%_ + (_%g156047156174%_ + _%L156033%_)))) + (_%__kont170655170656%_ + (lambda (_%L155984%_ _%L155985%_) + (_%lp155897%_ + _%rest155922%_ + _%lift1155900%_ + _%lift2155901%_ + (cons (cons _%L155985%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self155219%_ _%L155947%_)) + (gxc#compile-e__1 _%self155256%_ _%L155984%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind155865%_))))) - (let* ((_%__match170663170664%_ - (lambda (_%e155905155972%_ - _%hd155906155975%_ - _%tl155907155977%_ - _%e155908155980%_ - _%hd155909155983%_ - _%tl155910155985%_ - _%e155911155988%_ - _%hd155912155991%_ - _%tl155913155993%_) - (let ((_%L155996%_ - _%hd155912155991%_) - (_%L155997%_ - _%hd155909155983%_)) + _%bind155902%_))))) + (let* ((_%__match170700170701%_ + (lambda (_%e155942156009%_ + _%hd155943156012%_ + _%tl155944156014%_ + _%e155945156017%_ + _%hd155946156020%_ + _%tl155947156022%_ + _%e155948156025%_ + _%hd155949156028%_ + _%tl155950156030%_) + (let ((_%L156033%_ + _%hd155949156028%_) + (_%L156034%_ + _%hd155946156020%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L155997%_)) + _%L156034%_)) (gxc#opt-lambda-expr? - _%L155996%_)) - (_%__kont170616170617%_ - _%L155996%_ - _%L155997%_) - (_%__kont170618170619%_ - _%hd155912155991%_ - _%hd155906155975%_))))) - (_%__match170641170642%_ - (lambda (_%e155894156145%_ - _%hd155895156148%_ - _%tl155896156150%_ - _%e155897156153%_ - _%hd155898156156%_ - _%tl155899156158%_ - _%e155900156161%_ - _%hd155901156164%_ - _%tl155902156166%_) - (let ((_%L156169%_ - _%hd155901156164%_) - (_%L156170%_ - _%hd155898156156%_)) + _%L156033%_)) + (_%__kont170653170654%_ + _%L156033%_ + _%L156034%_) + (_%__kont170655170656%_ + _%hd155949156028%_ + _%hd155943156012%_))))) + (_%__match170678170679%_ + (lambda (_%e155931156182%_ + _%hd155932156185%_ + _%tl155933156187%_ + _%e155934156190%_ + _%hd155935156193%_ + _%tl155936156195%_ + _%e155937156198%_ + _%hd155938156201%_ + _%tl155939156203%_) + (let ((_%L156206%_ + _%hd155938156201%_) + (_%L156207%_ + _%hd155935156193%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L156170%_)) + _%L156207%_)) (gxc#case-lambda-expr? - _%L156169%_)) - (_%__kont170614170615%_ - _%L156169%_ - _%L156170%_) - (_%__match170663170664%_ - _%e155894156145%_ - _%hd155895156148%_ - _%tl155896156150%_ - _%e155897156153%_ - _%hd155898156156%_ - _%tl155899156158%_ - _%e155900156161%_ - _%hd155901156164%_ - _%tl155902156166%_)))))) + _%L156206%_)) + (_%__kont170651170652%_ + _%L156206%_ + _%L156207%_) + (_%__match170700170701%_ + _%e155931156182%_ + _%hd155932156185%_ + _%tl155933156187%_ + _%e155934156190%_ + _%hd155935156193%_ + _%tl155936156195%_ + _%e155937156198%_ + _%hd155938156201%_ + _%tl155939156203%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170612170613%_)) - (let ((_%e155894156145%_ + _%__stx170649170650%_)) + (let ((_%e155931156182%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170612170613%_)))) - (let ((_%tl155896156150%_ + _%__stx170649170650%_)))) + (let ((_%tl155933156187%_ (let () (declare (not safe)) - (##cdr _%e155894156145%_))) - (_%hd155895156148%_ + (##cdr _%e155931156182%_))) + (_%hd155932156185%_ (let () (declare (not safe)) - (##car _%e155894156145%_)))) + (##car _%e155931156182%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155895156148%_)) - (let ((_%e155897156153%_ + _%hd155932156185%_)) + (let ((_%e155934156190%_ (let () (declare (not safe)) (gx#stx-e - _%hd155895156148%_)))) - (let ((_%tl155899156158%_ + _%hd155932156185%_)))) + (let ((_%tl155936156195%_ (let () (declare (not safe)) - (##cdr _%e155897156153%_))) - (_%hd155898156156%_ + (##cdr _%e155934156190%_))) + (_%hd155935156193%_ (let () (declare (not safe)) - (##car _%e155897156153%_)))) + (##car _%e155934156190%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155899156158%_)) + _%tl155936156195%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl155896156150%_)) - (let ((_%e155900156161%_ + (gx#stx-pair? _%tl155933156187%_)) + (let ((_%e155937156198%_ (let () (declare (not safe)) - (gx#stx-e _%tl155896156150%_)))) - (let ((_%tl155902156166%_ + (gx#stx-e _%tl155933156187%_)))) + (let ((_%tl155939156203%_ (let () (declare (not safe)) - (##cdr _%e155900156161%_))) - (_%hd155901156164%_ + (##cdr _%e155937156198%_))) + (_%hd155938156201%_ (let () (declare (not safe)) - (##car _%e155900156161%_)))) + (##car _%e155937156198%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155902156166%_)) - (_%__match170641170642%_ - _%e155894156145%_ - _%hd155895156148%_ - _%tl155896156150%_ - _%e155897156153%_ - _%hd155898156156%_ - _%tl155899156158%_ - _%e155900156161%_ - _%hd155901156164%_ - _%tl155902156166%_) + (gx#stx-null? _%tl155939156203%_)) + (_%__match170678170679%_ + _%e155931156182%_ + _%hd155932156185%_ + _%tl155933156187%_ + _%e155934156190%_ + _%hd155935156193%_ + _%tl155936156195%_ + _%e155937156198%_ + _%hd155938156201%_ + _%tl155939156203%_) (let () (declare (not safe)) - (_%g155890155926%_))))) - (let () (declare (not safe)) (_%g155890155926%_))) + (_%g155927155963%_))))) + (let () (declare (not safe)) (_%g155927155963%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155896156150%_)) - (let ((_%e155919155939%_ + (gx#stx-pair? _%tl155933156187%_)) + (let ((_%e155956155976%_ (let () (declare (not safe)) - (gx#stx-e _%tl155896156150%_)))) - (let ((_%tl155921155944%_ + (gx#stx-e _%tl155933156187%_)))) + (let ((_%tl155958155981%_ (let () (declare (not safe)) - (##cdr _%e155919155939%_))) - (_%hd155920155942%_ + (##cdr _%e155956155976%_))) + (_%hd155957155979%_ (let () (declare (not safe)) - (##car _%e155919155939%_)))) + (##car _%e155956155976%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155921155944%_)) - (_%__kont170618170619%_ - _%hd155920155942%_ - _%hd155895156148%_) + (gx#stx-null? _%tl155958155981%_)) + (_%__kont170655170656%_ + _%hd155957155979%_ + _%hd155932156185%_) (let () (declare (not safe)) - (_%g155890155926%_))))) - (let () (declare (not safe)) (_%g155890155926%_)))))) + (_%g155927155963%_))))) + (let () (declare (not safe)) (_%g155927155963%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155896156150%_)) - (let ((_%e155919155939%_ + _%tl155933156187%_)) + (let ((_%e155956155976%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155896156150%_)))) - (let ((_%tl155921155944%_ + (gx#stx-e _%tl155933156187%_)))) + (let ((_%tl155958155981%_ (let () (declare (not safe)) - (##cdr _%e155919155939%_))) - (_%hd155920155942%_ + (##cdr _%e155956155976%_))) + (_%hd155957155979%_ (let () (declare (not safe)) - (##car _%e155919155939%_)))) + (##car _%e155956155976%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155921155944%_)) - (_%__kont170618170619%_ - _%hd155920155942%_ - _%hd155895156148%_) - (let () (declare (not safe)) (_%g155890155926%_))))) - (let () (declare (not safe)) (_%g155890155926%_)))))) + (gx#stx-null? _%tl155958155981%_)) + (_%__kont170655170656%_ + _%hd155957155979%_ + _%hd155932156185%_) + (let () (declare (not safe)) (_%g155927155963%_))))) + (let () (declare (not safe)) (_%g155927155963%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155890155926%_))))))))) - (if (pair? _%rest155866155874%_) - (let ((_%hd155871156266%_ + (_%g155927155963%_))))))))) + (if (pair? _%rest155903155911%_) + (let ((_%hd155908156303%_ (let () (declare (not safe)) - (##car _%rest155866155874%_))) - (_%tl155872156268%_ + (##car _%rest155903155911%_))) + (_%tl155909156305%_ (let () (declare (not safe)) - (##cdr _%rest155866155874%_)))) - (let* ((_%hd156271%_ _%hd155871156266%_) - (_%rest156273%_ _%tl155872156268%_)) - (_%K155870156263%_ - _%rest156273%_ - _%hd156271%_))) - (_%else155868155882%_)))))) - (_%lift-kw-lambda?155224%_ - (lambda (_%bind155782%_) - (let* ((_%__stx170680170681%_ _%bind155782%_) - (_%g155785155802%_ + (##cdr _%rest155903155911%_)))) + (let* ((_%hd156308%_ _%hd155908156303%_) + (_%rest156310%_ _%tl155909156305%_)) + (_%K155907156300%_ + _%rest156310%_ + _%hd156308%_))) + (_%else155905155919%_)))))) + (_%lift-kw-lambda?155261%_ + (lambda (_%bind155819%_) + (let* ((_%__stx170717170718%_ _%bind155819%_) + (_%g155822155839%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170680170681%_))))) - (let ((_%__kont170682170683%_ - (lambda (_%L155838%_ _%L155839%_) + _%__stx170717170718%_))))) + (let ((_%__kont170719170720%_ + (lambda (_%L155875%_ _%L155876%_) (if (let () (declare (not safe)) - (gx#identifier? _%L155839%_)) - (gxc#kw-lambda-expr? _%L155838%_) + (gx#identifier? _%L155876%_)) + (gxc#kw-lambda-expr? _%L155875%_) '#f))) - (_%__kont170684170685%_ (lambda () '#f))) + (_%__kont170721170722%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170680170681%_)) - (let ((_%e155789155814%_ + (gx#stx-pair? _%__stx170717170718%_)) + (let ((_%e155826155851%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170680170681%_)))) - (let ((_%tl155791155819%_ + (gx#stx-e _%__stx170717170718%_)))) + (let ((_%tl155828155856%_ (let () (declare (not safe)) - (##cdr _%e155789155814%_))) - (_%hd155790155817%_ + (##cdr _%e155826155851%_))) + (_%hd155827155854%_ (let () (declare (not safe)) - (##car _%e155789155814%_)))) + (##car _%e155826155851%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155790155817%_)) - (let ((_%e155792155822%_ + (gx#stx-pair? _%hd155827155854%_)) + (let ((_%e155829155859%_ (let () (declare (not safe)) - (gx#stx-e _%hd155790155817%_)))) - (let ((_%tl155794155827%_ + (gx#stx-e _%hd155827155854%_)))) + (let ((_%tl155831155864%_ (let () (declare (not safe)) - (##cdr _%e155792155822%_))) - (_%hd155793155825%_ + (##cdr _%e155829155859%_))) + (_%hd155830155862%_ (let () (declare (not safe)) - (##car _%e155792155822%_)))) + (##car _%e155829155859%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155794155827%_)) + _%tl155831155864%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155791155819%_)) - (let ((_%e155795155830%_ + _%tl155828155856%_)) + (let ((_%e155832155867%_ (let () (declare (not safe)) (gx#stx-e - _%tl155791155819%_)))) - (let ((_%tl155797155835%_ + _%tl155828155856%_)))) + (let ((_%tl155834155872%_ (let () (declare (not safe)) - (##cdr _%e155795155830%_))) - (_%hd155796155833%_ + (##cdr _%e155832155867%_))) + (_%hd155833155870%_ (let () (declare (not safe)) - (##car _%e155795155830%_)))) + (##car _%e155832155867%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155797155835%_)) - (_%__kont170682170683%_ - _%hd155796155833%_ - _%hd155793155825%_) - (_%__kont170684170685%_)))) - (_%__kont170684170685%_)) - (_%__kont170684170685%_)))) - (_%__kont170684170685%_)))) - (_%__kont170684170685%_)))))) - (_%lift-kw-lambda-bindings155225%_ - (lambda (_%bindings155392%_) - (let _%lp155394%_ ((_%rest155396%_ _%bindings155392%_) - (_%lift1155397%_ '()) - (_%lift2155398%_ '()) - (_%bind155399%_ '())) - (let* ((_%rest155400155408%_ _%rest155396%_) - (_%else155402155416%_ + _%tl155834155872%_)) + (_%__kont170719170720%_ + _%hd155833155870%_ + _%hd155830155862%_) + (_%__kont170721170722%_)))) + (_%__kont170721170722%_)) + (_%__kont170721170722%_)))) + (_%__kont170721170722%_)))) + (_%__kont170721170722%_)))))) + (_%lift-kw-lambda-bindings155262%_ + (lambda (_%bindings155429%_) + (let _%lp155431%_ ((_%rest155433%_ _%bindings155429%_) + (_%lift1155434%_ '()) + (_%lift2155435%_ '()) + (_%bind155436%_ '())) + (let* ((_%rest155437155445%_ _%rest155433%_) + (_%else155439155453%_ (lambda () - (values (reverse _%lift1155397%_) - (reverse _%lift2155398%_) - (reverse _%bind155399%_)))) - (_%K155404155770%_ - (lambda (_%rest155419%_ _%hd155420%_) - (let* ((_%__stx170710170711%_ _%hd155420%_) - (_%g155423155448%_ + (values (reverse _%lift1155434%_) + (reverse _%lift2155435%_) + (reverse _%bind155436%_)))) + (_%K155441155807%_ + (lambda (_%rest155456%_ _%hd155457%_) + (let* ((_%__stx170747170748%_ _%hd155457%_) + (_%g155460155485%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170710170711%_))))) - (let ((_%__kont170712170713%_ - (lambda (_%L155518%_ _%L155519%_) - (let* ((_%g155533155586%_ - (lambda (_%g155534155583%_) + _%__stx170747170748%_))))) + (let ((_%__kont170749170750%_ + (lambda (_%L155555%_ _%L155556%_) + (let* ((_%g155570155623%_ + (lambda (_%g155571155620%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155534155583%_)))) - (_%g155532155764%_ - (lambda (_%g155534155589%_) + _%g155571155620%_)))) + (_%g155569155801%_ + (lambda (_%g155571155626%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g155534155589%_)) - (let ((_%e155540155591%_ + _%g155571155626%_)) + (let ((_%e155577155628%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g155534155589%_)))) - (let ((_%hd155541155594%_ + (gx#stx-e _%g155571155626%_)))) + (let ((_%hd155578155631%_ (let () (declare (not safe)) - (##car _%e155540155591%_))) - (_%tl155542155596%_ + (##car _%e155577155628%_))) + (_%tl155579155633%_ (let () (declare (not safe)) - (##cdr _%e155540155591%_)))) + (##cdr _%e155577155628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155542155596%_)) - (let ((_%e155543155599%_ + (gx#stx-pair? _%tl155579155633%_)) + (let ((_%e155580155636%_ (let () (declare (not safe)) - (gx#stx-e _%tl155542155596%_)))) - (let ((_%hd155544155602%_ + (gx#stx-e _%tl155579155633%_)))) + (let ((_%hd155581155639%_ (let () (declare (not safe)) - (##car _%e155543155599%_))) - (_%tl155545155604%_ + (##car _%e155580155636%_))) + (_%tl155582155641%_ (let () (declare (not safe)) - (##cdr _%e155543155599%_)))) + (##cdr _%e155580155636%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155544155602%_)) - (let ((_%e155546155607%_ + (gx#stx-pair? _%hd155581155639%_)) + (let ((_%e155583155644%_ (let () (declare (not safe)) - (gx#stx-e _%hd155544155602%_)))) - (let ((_%hd155547155610%_ + (gx#stx-e _%hd155581155639%_)))) + (let ((_%hd155584155647%_ (let () (declare (not safe)) - (##car _%e155546155607%_))) - (_%tl155548155612%_ + (##car _%e155583155644%_))) + (_%tl155585155649%_ (let () (declare (not safe)) - (##cdr _%e155546155607%_)))) + (##cdr _%e155583155644%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155547155610%_)) - (let ((_%e155549155615%_ + (gx#stx-pair? _%hd155584155647%_)) + (let ((_%e155586155652%_ (let () (declare (not safe)) (gx#stx-e - _%hd155547155610%_)))) - (let ((_%hd155550155618%_ + _%hd155584155647%_)))) + (let ((_%hd155587155655%_ (let () (declare (not safe)) - (##car _%e155549155615%_))) - (_%tl155551155620%_ + (##car _%e155586155652%_))) + (_%tl155588155657%_ (let () (declare (not safe)) - (##cdr _%e155549155615%_)))) + (##cdr _%e155586155652%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155550155618%_)) - (let ((_%e155552155623%_ + _%hd155587155655%_)) + (let ((_%e155589155660%_ (let () (declare (not safe)) (gx#stx-e - _%hd155550155618%_)))) - (let ((_%hd155553155626%_ + _%hd155587155655%_)))) + (let ((_%hd155590155663%_ (let () (declare (not safe)) - (##car _%e155552155623%_))) - (_%tl155554155628%_ + (##car _%e155589155660%_))) + (_%tl155591155665%_ (let () (declare (not safe)) - (##cdr _%e155552155623%_)))) + (##cdr _%e155589155660%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155554155628%_)) + _%tl155591155665%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl155551155620%_)) - (let ((_%e155555155631%_ + (gx#stx-pair? _%tl155588155657%_)) + (let ((_%e155592155668%_ (let () (declare (not safe)) - (gx#stx-e _%tl155551155620%_)))) - (let ((_%hd155556155634%_ + (gx#stx-e _%tl155588155657%_)))) + (let ((_%hd155593155671%_ (let () (declare (not safe)) - (##car _%e155555155631%_))) - (_%tl155557155636%_ + (##car _%e155592155668%_))) + (_%tl155594155673%_ (let () (declare (not safe)) - (##cdr _%e155555155631%_)))) + (##cdr _%e155592155668%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155556155634%_)) - (let ((_%e155558155639%_ + (gx#stx-pair? _%hd155593155671%_)) + (let ((_%e155595155676%_ (let () (declare (not safe)) - (gx#stx-e _%hd155556155634%_)))) - (let ((_%hd155559155642%_ + (gx#stx-e _%hd155593155671%_)))) + (let ((_%hd155596155679%_ (let () (declare (not safe)) - (##car _%e155558155639%_))) - (_%tl155560155644%_ + (##car _%e155595155676%_))) + (_%tl155597155681%_ (let () (declare (not safe)) - (##cdr _%e155558155639%_)))) + (##cdr _%e155595155676%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155560155644%_)) - (let ((_%e155561155647%_ + (gx#stx-pair? _%tl155597155681%_)) + (let ((_%e155598155684%_ (let () (declare (not safe)) - (gx#stx-e _%tl155560155644%_)))) - (let ((_%hd155562155650%_ + (gx#stx-e _%tl155597155681%_)))) + (let ((_%hd155599155687%_ (let () (declare (not safe)) - (##car _%e155561155647%_))) - (_%tl155563155652%_ + (##car _%e155598155684%_))) + (_%tl155600155689%_ (let () (declare (not safe)) - (##cdr _%e155561155647%_)))) + (##cdr _%e155598155684%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155562155650%_)) - (let ((_%e155564155655%_ + _%hd155599155687%_)) + (let ((_%e155601155692%_ (let () (declare (not safe)) (gx#stx-e - _%hd155562155650%_)))) - (let ((_%hd155565155658%_ + _%hd155599155687%_)))) + (let ((_%hd155602155695%_ (let () (declare (not safe)) - (##car _%e155564155655%_))) - (_%tl155566155660%_ + (##car _%e155601155692%_))) + (_%tl155603155697%_ (let () (declare (not safe)) - (##cdr _%e155564155655%_)))) + (##cdr _%e155601155692%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155565155658%_)) - (let ((_%e155567155663%_ + _%hd155602155695%_)) + (let ((_%e155604155700%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd155565155658%_)))) - (let ((_%hd155568155666%_ - (let () (declare (not safe)) (##car _%e155567155663%_))) - (_%tl155569155668%_ + (gx#stx-e _%hd155602155695%_)))) + (let ((_%hd155605155703%_ + (let () (declare (not safe)) (##car _%e155604155700%_))) + (_%tl155606155705%_ (let () (declare (not safe)) - (##cdr _%e155567155663%_)))) + (##cdr _%e155604155700%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155568155666%_)) - (let ((_%e155570155671%_ + (gx#stx-pair? _%hd155605155703%_)) + (let ((_%e155607155708%_ (let () (declare (not safe)) - (gx#stx-e _%hd155568155666%_)))) - (let ((_%hd155571155674%_ + (gx#stx-e _%hd155605155703%_)))) + (let ((_%hd155608155711%_ (let () (declare (not safe)) - (##car _%e155570155671%_))) - (_%tl155572155676%_ + (##car _%e155607155708%_))) + (_%tl155609155713%_ (let () (declare (not safe)) - (##cdr _%e155570155671%_)))) + (##cdr _%e155607155708%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155572155676%_)) + (gx#stx-null? _%tl155609155713%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155569155668%_)) - (let ((_%e155573155679%_ + (gx#stx-pair? _%tl155606155705%_)) + (let ((_%e155610155716%_ (let () (declare (not safe)) - (gx#stx-e _%tl155569155668%_)))) - (let ((_%hd155574155682%_ + (gx#stx-e _%tl155606155705%_)))) + (let ((_%hd155611155719%_ (let () (declare (not safe)) - (##car _%e155573155679%_))) - (_%tl155575155684%_ + (##car _%e155610155716%_))) + (_%tl155612155721%_ (let () (declare (not safe)) - (##cdr _%e155573155679%_)))) + (##cdr _%e155610155716%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155575155684%_)) + (gx#stx-null? _%tl155612155721%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155566155660%_)) + _%tl155603155697%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155563155652%_)) - (let ((_%e155576155687%_ + _%tl155600155689%_)) + (let ((_%e155613155724%_ (let () (declare (not safe)) (gx#stx-e - _%tl155563155652%_)))) - (let ((_%hd155577155690%_ + _%tl155600155689%_)))) + (let ((_%hd155614155727%_ (let () (declare (not safe)) - (##car _%e155576155687%_))) - (_%tl155578155692%_ + (##car _%e155613155724%_))) + (_%tl155615155729%_ (let () (declare (not safe)) - (##cdr _%e155576155687%_)))) + (##cdr _%e155613155724%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155578155692%_)) + _%tl155615155729%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl155557155636%_)) + (gx#stx-null? _%tl155594155673%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155548155612%_)) + (gx#stx-null? _%tl155585155649%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155545155604%_)) - (let ((_%e155579155695%_ + (gx#stx-pair? _%tl155582155641%_)) + (let ((_%e155616155732%_ (let () (declare (not safe)) - (gx#stx-e _%tl155545155604%_)))) - (let ((_%hd155580155698%_ + (gx#stx-e _%tl155582155641%_)))) + (let ((_%hd155617155735%_ (let () (declare (not safe)) - (##car _%e155579155695%_))) - (_%tl155581155700%_ + (##car _%e155616155732%_))) + (_%tl155618155737%_ (let () (declare (not safe)) - (##cdr _%e155579155695%_)))) + (##cdr _%e155616155732%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155581155700%_)) - ((lambda (_%L155703%_ - _%L155704%_ - _%L155705%_ - _%L155706%_ - _%L155707%_) - (let* ((_%get-kws-id155747%_ - (let ((__tmp171306 + (gx#stx-null? _%tl155618155737%_)) + ((lambda (_%L155740%_ + _%L155741%_ + _%L155742%_ + _%L155743%_ + _%L155744%_) + (let* ((_%get-kws-id155784%_ + (let ((__tmp171343 (let () (declare (not safe)) (gx#stx-e - _%L155519%_))) - (__tmp171305 + _%L155556%_))) + (__tmp171342 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171306 - __tmp171305))) - (_%get-kws-id155749%_ - (let ((__tmp171307 + __tmp171343 + __tmp171342))) + (_%get-kws-id155786%_ + (let ((__tmp171344 (let () (declare (not safe)) (gx#stx-source - _%stx155220%_)))) + _%stx155257%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id155747%_ - __tmp171307))) - (_%main-id155751%_ - (let ((__tmp171309 + _%get-kws-id155784%_ + __tmp171344))) + (_%main-id155788%_ + (let ((__tmp171346 (let () (declare (not safe)) (gx#stx-e - _%L155519%_))) - (__tmp171308 + _%L155556%_))) + (__tmp171345 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171309 - __tmp171308))) - (_%main-id155753%_ - (let ((__tmp171310 + __tmp171346 + __tmp171345))) + (_%main-id155790%_ + (let ((__tmp171347 (let () (declare (not safe)) (gx#stx-source - _%stx155220%_)))) + _%stx155257%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id155751%_ - __tmp171310))) - (_%_155755%_ + _%main-id155788%_ + __tmp171347))) + (_%_155792%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id155749%_))) - (_%_155757%_ + _%get-kws-id155786%_))) + (_%_155794%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id155753%_))) - (_%new-kw-dispatch155759%_ + _%main-id155790%_))) + (_%new-kw-dispatch155796%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155707%_ - _%get-kws-id155749%_ - _%L155703%_))) - (_%new-get-kws155761%_ + _%L155744%_ + _%get-kws-id155786%_ + _%L155740%_))) + (_%new-get-kws155798%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155706%_ - _%main-id155753%_ - _%L155704%_)))) - (let ((__tmp171313 + _%L155743%_ + _%main-id155790%_ + _%L155741%_)))) + (let ((__tmp171350 (let () (declare (not safe)) (gxc#identifier-symbol - _%L155519%_))) - (__tmp171312 + _%L155556%_))) + (__tmp171349 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id155749%_))) - (__tmp171311 + _%get-kws-id155786%_))) + (__tmp171348 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id155753%_)))) + _%main-id155790%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171313 + __tmp171350 '" => " - __tmp171312 + __tmp171349 '" => " - __tmp171311)) - (_%lp155394%_ - _%rest155419%_ - (cons (_%bind-e__167955167956%_ - _%main-id155753%_ - _%L155705%_ + __tmp171348)) + (_%lp155431%_ + _%rest155456%_ + (cons (_%bind-e__167992167993%_ + _%main-id155790%_ + _%L155742%_ '#f) - _%lift1155397%_) - (cons (_%bind-e__167955167956%_ - _%get-kws-id155749%_ - _%new-get-kws155761%_ + _%lift1155434%_) + (cons (_%bind-e__167992167993%_ + _%get-kws-id155786%_ + _%new-get-kws155798%_ '#f) - _%lift2155398%_) - (cons (_%bind-e__167955167956%_ - _%L155519%_ - _%new-kw-dispatch155759%_ + _%lift2155435%_) + (cons (_%bind-e__167992167993%_ + _%L155556%_ + _%new-kw-dispatch155796%_ '#f) - _%bind155399%_)))) - _%hd155580155698%_ - _%hd155577155690%_ - _%hd155574155682%_ - _%hd155571155674%_ - _%hd155553155626%_) - (_%g155533155586%_ _%g155534155589%_)))) - (_%g155533155586%_ _%g155534155589%_)) - (_%g155533155586%_ _%g155534155589%_)) - (_%g155533155586%_ _%g155534155589%_)) - (_%g155533155586%_ _%g155534155589%_)))) + _%bind155436%_)))) + _%hd155617155735%_ + _%hd155614155727%_ + _%hd155611155719%_ + _%hd155608155711%_ + _%hd155590155663%_) + (_%g155570155623%_ _%g155571155626%_)))) + (_%g155570155623%_ _%g155571155626%_)) + (_%g155570155623%_ _%g155571155626%_)) + (_%g155570155623%_ _%g155571155626%_)) + (_%g155570155623%_ _%g155571155626%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155533155586%_ - _%g155534155589%_)) - (_%g155533155586%_ - _%g155534155589%_)) - (_%g155533155586%_ - _%g155534155589%_)))) - (_%g155533155586%_ _%g155534155589%_)) - (_%g155533155586%_ _%g155534155589%_)))) - (_%g155533155586%_ _%g155534155589%_)))) - (_%g155533155586%_ _%g155534155589%_)))) + (_%g155570155623%_ + _%g155571155626%_)) + (_%g155570155623%_ + _%g155571155626%_)) + (_%g155570155623%_ + _%g155571155626%_)))) + (_%g155570155623%_ _%g155571155626%_)) + (_%g155570155623%_ _%g155571155626%_)))) + (_%g155570155623%_ _%g155571155626%_)))) + (_%g155570155623%_ _%g155571155626%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155533155586%_ - _%g155534155589%_)))) - (_%g155533155586%_ _%g155534155589%_)))) - (_%g155533155586%_ _%g155534155589%_)))) - (_%g155533155586%_ _%g155534155589%_)) - (_%g155533155586%_ _%g155534155589%_)))) + (_%g155570155623%_ + _%g155571155626%_)))) + (_%g155570155623%_ _%g155571155626%_)))) + (_%g155570155623%_ _%g155571155626%_)))) + (_%g155570155623%_ _%g155571155626%_)) + (_%g155570155623%_ _%g155571155626%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155533155586%_ - _%g155534155589%_)))) - (_%g155533155586%_ - _%g155534155589%_)))) - (_%g155533155586%_ _%g155534155589%_)))) - (_%g155533155586%_ _%g155534155589%_)))) - (_%g155533155586%_ _%g155534155589%_))))) + (_%g155570155623%_ + _%g155571155626%_)))) + (_%g155570155623%_ + _%g155571155626%_)))) + (_%g155570155623%_ _%g155571155626%_)))) + (_%g155570155623%_ _%g155571155626%_)))) + (_%g155570155623%_ _%g155571155626%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155532155764%_ - _%L155518%_)))) - (_%__kont170714170715%_ - (lambda (_%L155469%_ _%L155470%_) - (_%lp155394%_ - _%rest155419%_ - _%lift1155397%_ - _%lift2155398%_ - (cons (cons _%L155470%_ - (cons _%L155469%_ + (_%g155569155801%_ + _%L155555%_)))) + (_%__kont170751170752%_ + (lambda (_%L155506%_ _%L155507%_) + (_%lp155431%_ + _%rest155456%_ + _%lift1155434%_ + _%lift2155435%_ + (cons (cons _%L155507%_ + (cons _%L155506%_ '())) - _%bind155399%_))))) - (let ((_%__match170737170738%_ - (lambda (_%e155427155494%_ - _%hd155428155497%_ - _%tl155429155499%_ - _%e155430155502%_ - _%hd155431155505%_ - _%tl155432155507%_ - _%e155433155510%_ - _%hd155434155513%_ - _%tl155435155515%_) - (let ((_%L155518%_ - _%hd155434155513%_) - (_%L155519%_ - _%hd155431155505%_)) + _%bind155436%_))))) + (let ((_%__match170774170775%_ + (lambda (_%e155464155531%_ + _%hd155465155534%_ + _%tl155466155536%_ + _%e155467155539%_ + _%hd155468155542%_ + _%tl155469155544%_ + _%e155470155547%_ + _%hd155471155550%_ + _%tl155472155552%_) + (let ((_%L155555%_ + _%hd155471155550%_) + (_%L155556%_ + _%hd155468155542%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L155519%_)) + _%L155556%_)) (gxc#kw-lambda-expr? - _%L155518%_)) - (_%__kont170712170713%_ - _%L155518%_ - _%L155519%_) - (_%__kont170714170715%_ - _%hd155434155513%_ - _%hd155428155497%_)))))) + _%L155555%_)) + (_%__kont170749170750%_ + _%L155555%_ + _%L155556%_) + (_%__kont170751170752%_ + _%hd155471155550%_ + _%hd155465155534%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170710170711%_)) - (let ((_%e155427155494%_ + _%__stx170747170748%_)) + (let ((_%e155464155531%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170710170711%_)))) - (let ((_%tl155429155499%_ + _%__stx170747170748%_)))) + (let ((_%tl155466155536%_ (let () (declare (not safe)) - (##cdr _%e155427155494%_))) - (_%hd155428155497%_ + (##cdr _%e155464155531%_))) + (_%hd155465155534%_ (let () (declare (not safe)) - (##car _%e155427155494%_)))) + (##car _%e155464155531%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155428155497%_)) - (let ((_%e155430155502%_ + _%hd155465155534%_)) + (let ((_%e155467155539%_ (let () (declare (not safe)) (gx#stx-e - _%hd155428155497%_)))) - (let ((_%tl155432155507%_ + _%hd155465155534%_)))) + (let ((_%tl155469155544%_ (let () (declare (not safe)) - (##cdr _%e155430155502%_))) - (_%hd155431155505%_ + (##cdr _%e155467155539%_))) + (_%hd155468155542%_ (let () (declare (not safe)) - (##car _%e155430155502%_)))) + (##car _%e155467155539%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155432155507%_)) + _%tl155469155544%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl155429155499%_)) - (let ((_%e155433155510%_ + (gx#stx-pair? _%tl155466155536%_)) + (let ((_%e155470155547%_ (let () (declare (not safe)) - (gx#stx-e _%tl155429155499%_)))) - (let ((_%tl155435155515%_ + (gx#stx-e _%tl155466155536%_)))) + (let ((_%tl155472155552%_ (let () (declare (not safe)) - (##cdr _%e155433155510%_))) - (_%hd155434155513%_ + (##cdr _%e155470155547%_))) + (_%hd155471155550%_ (let () (declare (not safe)) - (##car _%e155433155510%_)))) + (##car _%e155470155547%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155435155515%_)) - (_%__match170737170738%_ - _%e155427155494%_ - _%hd155428155497%_ - _%tl155429155499%_ - _%e155430155502%_ - _%hd155431155505%_ - _%tl155432155507%_ - _%e155433155510%_ - _%hd155434155513%_ - _%tl155435155515%_) + (gx#stx-null? _%tl155472155552%_)) + (_%__match170774170775%_ + _%e155464155531%_ + _%hd155465155534%_ + _%tl155466155536%_ + _%e155467155539%_ + _%hd155468155542%_ + _%tl155469155544%_ + _%e155470155547%_ + _%hd155471155550%_ + _%tl155472155552%_) (let () (declare (not safe)) - (_%g155423155448%_))))) - (let () (declare (not safe)) (_%g155423155448%_))) + (_%g155460155485%_))))) + (let () (declare (not safe)) (_%g155460155485%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155429155499%_)) - (let ((_%e155441155461%_ + (gx#stx-pair? _%tl155466155536%_)) + (let ((_%e155478155498%_ (let () (declare (not safe)) - (gx#stx-e _%tl155429155499%_)))) - (let ((_%tl155443155466%_ + (gx#stx-e _%tl155466155536%_)))) + (let ((_%tl155480155503%_ (let () (declare (not safe)) - (##cdr _%e155441155461%_))) - (_%hd155442155464%_ + (##cdr _%e155478155498%_))) + (_%hd155479155501%_ (let () (declare (not safe)) - (##car _%e155441155461%_)))) + (##car _%e155478155498%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155443155466%_)) - (_%__kont170714170715%_ - _%hd155442155464%_ - _%hd155428155497%_) + (gx#stx-null? _%tl155480155503%_)) + (_%__kont170751170752%_ + _%hd155479155501%_ + _%hd155465155534%_) (let () (declare (not safe)) - (_%g155423155448%_))))) - (let () (declare (not safe)) (_%g155423155448%_)))))) + (_%g155460155485%_))))) + (let () (declare (not safe)) (_%g155460155485%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155429155499%_)) - (let ((_%e155441155461%_ + _%tl155466155536%_)) + (let ((_%e155478155498%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155429155499%_)))) - (let ((_%tl155443155466%_ + (gx#stx-e _%tl155466155536%_)))) + (let ((_%tl155480155503%_ (let () (declare (not safe)) - (##cdr _%e155441155461%_))) - (_%hd155442155464%_ + (##cdr _%e155478155498%_))) + (_%hd155479155501%_ (let () (declare (not safe)) - (##car _%e155441155461%_)))) + (##car _%e155478155498%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155443155466%_)) - (_%__kont170714170715%_ - _%hd155442155464%_ - _%hd155428155497%_) - (let () (declare (not safe)) (_%g155423155448%_))))) - (let () (declare (not safe)) (_%g155423155448%_)))))) + (gx#stx-null? _%tl155480155503%_)) + (_%__kont170751170752%_ + _%hd155479155501%_ + _%hd155465155534%_) + (let () (declare (not safe)) (_%g155460155485%_))))) + (let () (declare (not safe)) (_%g155460155485%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155423155448%_))))))))) - (if (pair? _%rest155400155408%_) - (let ((_%hd155405155773%_ + (_%g155460155485%_))))))))) + (if (pair? _%rest155437155445%_) + (let ((_%hd155442155810%_ (let () (declare (not safe)) - (##car _%rest155400155408%_))) - (_%tl155406155775%_ + (##car _%rest155437155445%_))) + (_%tl155443155812%_ (let () (declare (not safe)) - (##cdr _%rest155400155408%_)))) - (let* ((_%hd155778%_ _%hd155405155773%_) - (_%rest155780%_ _%tl155406155775%_)) - (_%K155404155770%_ - _%rest155780%_ - _%hd155778%_))) - (_%else155402155416%_))))))) - (let* ((_%__stx170754170755%_ _%stx155220%_) - (_%g155228155254%_ + (##cdr _%rest155437155445%_)))) + (let* ((_%hd155815%_ _%hd155442155810%_) + (_%rest155817%_ _%tl155443155812%_)) + (_%K155441155807%_ + _%rest155817%_ + _%hd155815%_))) + (_%else155439155453%_))))))) + (let* ((_%__stx170791170792%_ _%stx155257%_) + (_%g155265155291%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170754170755%_))))) - (let ((_%__kont170756170757%_ - (lambda (_%L155314%_ _%L155315%_) - (let ((__tmp171315 + _%__stx170791170792%_))))) + (let ((_%__kont170793170794%_ + (lambda (_%L155351%_ _%L155352%_) + (let ((__tmp171352 (lambda () - (if (let ((__tmp171316 - (let ((__tmp171317 - (lambda (_%g155343155346%_ - _%g155344155348%_) - (cons _%g155343155346%_ - _%g155344155348%_)))) + (if (let ((__tmp171353 + (let ((__tmp171354 + (lambda (_%g155380155383%_ + _%g155381155385%_) + (cons _%g155380155383%_ + _%g155381155385%_)))) (declare (not safe)) (__foldr1 - __tmp171317 + __tmp171354 '() - _%L155315%_)))) + _%L155352%_)))) (declare (not safe)) (__ormap1 - _%lift-kw-lambda?155224%_ - __tmp171316)) - (let ((_g171318_ - (_%lift-kw-lambda-bindings155225%_ - (let ((__tmp171320 - (lambda (_%g155350155353%_ - _%g155351155355%_) - (cons _%g155350155353%_ - _%g155351155355%_)))) + _%lift-kw-lambda?155261%_ + __tmp171353)) + (let ((_g171355_ + (_%lift-kw-lambda-bindings155262%_ + (let ((__tmp171357 + (lambda (_%g155387155390%_ + _%g155388155392%_) + (cons _%g155387155390%_ + _%g155388155392%_)))) (declare (not safe)) (__foldr1 - __tmp171320 + __tmp171357 '() - _%L155315%_))))) + _%L155352%_))))) (begin - (let ((_g171319_ + (let ((_g171356_ (let () (declare (not safe)) - (if (##values? _g171318_) - (##vector-length _g171318_) + (if (##values? _g171355_) + (##vector-length _g171355_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171319_ 3))) + (##fx= _g171356_ 3))) (error "Context expects 3 values" - _g171319_))) - (let ((_%lift1155358%_ + _g171356_))) + (let ((_%lift1155395%_ (let () (declare (not safe)) - (##vector-ref _g171318_ 0))) - (_%lift2155359%_ + (##vector-ref _g171355_ 0))) + (_%lift2155396%_ (let () (declare (not safe)) - (##vector-ref _g171318_ 1))) - (_%hd155360%_ + (##vector-ref _g171355_ 1))) + (_%hd155397%_ (let () (declare (not safe)) - (##vector-ref _g171318_ 2)))) - (let* ((_%expr155362%_ - (let ((__tmp171321 + (##vector-ref _g171355_ 2)))) + (let* ((_%expr155399%_ + (let ((__tmp171358 (cons '%#let-values - (cons _%hd155360%_ + (cons _%hd155397%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L155314%_ '()))))) + (cons _%L155351%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171321 - _%stx155220%_))) - (_%expr155364%_ - (let ((__tmp171322 + __tmp171358 + _%stx155257%_))) + (_%expr155401%_ + (let ((__tmp171359 (cons '%#let-values - (cons _%lift2155359%_ + (cons _%lift2155396%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr155362%_ '()))))) + (cons _%expr155399%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171322 - _%stx155220%_))) - (_%expr155366%_ - (let ((__tmp171323 + __tmp171359 + _%stx155257%_))) + (_%expr155403%_ + (let ((__tmp171360 (cons '%#let-values - (cons _%lift1155358%_ + (cons _%lift1155395%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr155364%_ '()))))) + (cons _%expr155401%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171323 - _%stx155220%_)))) + __tmp171360 + _%stx155257%_)))) (gxc#lift-top-lambda-let-values% - _%self155219%_ - _%expr155366%_))))) - (let ((_g171324_ - (_%compile-bindings155223%_ - (let ((__tmp171326 - (lambda (_%g155368155371%_ - _%g155369155373%_) - (cons _%g155368155371%_ - _%g155369155373%_)))) + _%self155256%_ + _%expr155403%_))))) + (let ((_g171361_ + (_%compile-bindings155260%_ + (let ((__tmp171363 + (lambda (_%g155405155408%_ + _%g155406155410%_) + (cons _%g155405155408%_ + _%g155406155410%_)))) (declare (not safe)) (__foldr1 - __tmp171326 + __tmp171363 '() - _%L155315%_))))) + _%L155352%_))))) (begin - (let ((_g171325_ + (let ((_g171362_ (let () (declare (not safe)) - (if (##values? _g171324_) - (##vector-length _g171324_) + (if (##values? _g171361_) + (##vector-length _g171361_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171325_ 3))) + (##fx= _g171362_ 3))) (error "Context expects 3 values" - _g171325_))) - (let ((_%lift1155376%_ + _g171362_))) + (let ((_%lift1155413%_ (let () (declare (not safe)) - (##vector-ref _g171324_ 0))) - (_%lift2155377%_ + (##vector-ref _g171361_ 0))) + (_%lift2155414%_ (let () (declare (not safe)) - (##vector-ref _g171324_ 1))) - (_%hd155378%_ + (##vector-ref _g171361_ 1))) + (_%hd155415%_ (let () (declare (not safe)) - (##vector-ref _g171324_ 2)))) - (let* ((_%body155380%_ + (##vector-ref _g171361_ 2)))) + (let* ((_%body155417%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self155219%_ - _%L155314%_))) - (_%expr155382%_ - (let ((__tmp171327 + _%self155256%_ + _%L155351%_))) + (_%expr155419%_ + (let ((__tmp171364 (cons '%#let-values - (cons _%hd155378%_ + (cons _%hd155415%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body155380%_ '()))))) + (cons _%body155417%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171327 - _%stx155220%_))) - (_%expr155384%_ - (if (null? _%lift2155377%_) - _%expr155382%_ - (let ((__tmp171328 + __tmp171364 + _%stx155257%_))) + (_%expr155421%_ + (if (null? _%lift2155414%_) + _%expr155419%_ + (let ((__tmp171365 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift2155377%_ (cons _%expr155382%_ '()))))) + (cons _%lift2155414%_ (cons _%expr155419%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171328 _%stx155220%_)))) + (gxc#xform-wrap-source __tmp171365 _%stx155257%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%expr155386%_ - (if (null? _%lift1155376%_) - _%expr155384%_ - (let ((__tmp171329 + (_%expr155423%_ + (if (null? _%lift1155413%_) + _%expr155421%_ + (let ((__tmp171366 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift1155376%_ (cons _%expr155384%_ '()))))) + (cons _%lift1155413%_ (cons _%expr155421%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171329 _%stx155220%_))))) + (gxc#xform-wrap-source __tmp171366 _%stx155257%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%expr155386%_))))))) - (__tmp171314 - (let ((__obj171007 + _%expr155423%_))))))) + (__tmp171351 + (let ((__obj171044 (let () (declare (not safe)) (##structure @@ -22999,278 +22999,278 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj171007)) - __obj171007))) + (gx#local-context:::init!__0 __obj171044)) + __obj171044))) (declare (not safe)) (__call-with-parameters - __tmp171315 + __tmp171352 gx#current-expander-context - __tmp171314)))) - (_%__kont170760170761%_ + __tmp171351)))) + (_%__kont170797170798%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self155219%_ _%stx155220%_))))) - (let ((_%__match170781170782%_ - (lambda (_%e155232155266%_ - _%hd155233155269%_ - _%tl155234155271%_ - _%e155235155274%_ - _%hd155236155277%_ - _%tl155237155279%_ - _%__splice170758170759%_ - _%target155238155282%_ - _%tl155240155284%_) - (letrec ((_%loop155241155287%_ - (lambda (_%hd155239155290%_ - _%bind155245155292%_) + (gxc#xform-let-values% _%self155256%_ _%stx155257%_))))) + (let ((_%__match170818170819%_ + (lambda (_%e155269155303%_ + _%hd155270155306%_ + _%tl155271155308%_ + _%e155272155311%_ + _%hd155273155314%_ + _%tl155274155316%_ + _%__splice170795170796%_ + _%target155275155319%_ + _%tl155277155321%_) + (letrec ((_%loop155278155324%_ + (lambda (_%hd155276155327%_ + _%bind155282155329%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155239155290%_)) - (let ((_%e155242155295%_ + (gx#stx-pair? _%hd155276155327%_)) + (let ((_%e155279155332%_ (let () (declare (not safe)) (gx#stx-e - _%hd155239155290%_)))) - (let ((_%lp-tl155244155300%_ + _%hd155276155327%_)))) + (let ((_%lp-tl155281155337%_ (let () (declare (not safe)) - (##cdr _%e155242155295%_))) - (_%lp-hd155243155298%_ + (##cdr _%e155279155332%_))) + (_%lp-hd155280155335%_ (let () (declare (not safe)) - (##car _%e155242155295%_)))) - (_%loop155241155287%_ - _%lp-tl155244155300%_ - (cons _%lp-hd155243155298%_ - _%bind155245155292%_)))) - (let ((_%bind155246155303%_ - (reverse _%bind155245155292%_))) + (##car _%e155279155332%_)))) + (_%loop155278155324%_ + _%lp-tl155281155337%_ + (cons _%lp-hd155280155335%_ + _%bind155282155329%_)))) + (let ((_%bind155283155340%_ + (reverse _%bind155282155329%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155237155279%_)) - (let ((_%e155247155306%_ + _%tl155274155316%_)) + (let ((_%e155284155343%_ (let () (declare (not safe)) (gx#stx-e - _%tl155237155279%_)))) - (let ((_%tl155249155311%_ + _%tl155274155316%_)))) + (let ((_%tl155286155348%_ (let () (declare (not safe)) - (##cdr _%e155247155306%_))) - (_%hd155248155309%_ + (##cdr _%e155284155343%_))) + (_%hd155285155346%_ (let () (declare (not safe)) - (##car _%e155247155306%_)))) + (##car _%e155284155343%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155249155311%_)) - (let ((_%L155314%_ - _%hd155248155309%_) - (_%L155315%_ - _%bind155246155303%_)) - (if (let ((__tmp171330 + _%tl155286155348%_)) + (let ((_%L155351%_ + _%hd155285155346%_) + (_%L155352%_ + _%bind155283155340%_)) + (if (let ((__tmp171367 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171331 - (lambda (_%g155335155338%_ _%g155336155340%_) - (cons _%g155335155338%_ - _%g155336155340%_)))) + (let ((__tmp171368 + (lambda (_%g155372155375%_ _%g155373155377%_) + (cons _%g155372155375%_ + _%g155373155377%_)))) (declare (not safe)) - (__foldr1 __tmp171331 '() _%L155315%_)))) + (__foldr1 __tmp171368 '() _%L155352%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp171330)) - (_%__kont170756170757%_ _%L155314%_ _%L155315%_) - (_%__kont170760170761%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp171367)) + (_%__kont170793170794%_ _%L155351%_ _%L155352%_) + (_%__kont170797170798%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170760170761%_)))) - (_%__kont170760170761%_))))))) - (_%loop155241155287%_ _%target155238155282%_ '()))))) + (_%__kont170797170798%_)))) + (_%__kont170797170798%_))))))) + (_%loop155278155324%_ _%target155275155319%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170754170755%_)) - (let ((_%e155232155266%_ + (gx#stx-pair? _%__stx170791170792%_)) + (let ((_%e155269155303%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170754170755%_)))) - (let ((_%tl155234155271%_ + (gx#stx-e _%__stx170791170792%_)))) + (let ((_%tl155271155308%_ (let () (declare (not safe)) - (##cdr _%e155232155266%_))) - (_%hd155233155269%_ + (##cdr _%e155269155303%_))) + (_%hd155270155306%_ (let () (declare (not safe)) - (##car _%e155232155266%_)))) + (##car _%e155269155303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155234155271%_)) - (let ((_%e155235155274%_ + (gx#stx-pair? _%tl155271155308%_)) + (let ((_%e155272155311%_ (let () (declare (not safe)) - (gx#stx-e _%tl155234155271%_)))) - (let ((_%tl155237155279%_ + (gx#stx-e _%tl155271155308%_)))) + (let ((_%tl155274155316%_ (let () (declare (not safe)) - (##cdr _%e155235155274%_))) - (_%hd155236155277%_ + (##cdr _%e155272155311%_))) + (_%hd155273155314%_ (let () (declare (not safe)) - (##car _%e155235155274%_)))) + (##car _%e155272155311%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd155236155277%_)) - (let ((_%__splice170758170759%_ + (gx#stx-pair/null? _%hd155273155314%_)) + (let ((_%__splice170795170796%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd155236155277%_ + _%hd155273155314%_ '0)))) - (let ((_%tl155240155284%_ + (let ((_%tl155277155321%_ (let () (declare (not safe)) (##vector-ref - _%__splice170758170759%_ + _%__splice170795170796%_ '1))) - (_%target155238155282%_ + (_%target155275155319%_ (let () (declare (not safe)) (##vector-ref - _%__splice170758170759%_ + _%__splice170795170796%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155240155284%_)) - (_%__match170781170782%_ - _%e155232155266%_ - _%hd155233155269%_ - _%tl155234155271%_ - _%e155235155274%_ - _%hd155236155277%_ - _%tl155237155279%_ - _%__splice170758170759%_ - _%target155238155282%_ - _%tl155240155284%_) - (_%__kont170760170761%_)))) - (_%__kont170760170761%_)))) - (_%__kont170760170761%_)))) - (_%__kont170760170761%_)))))))) + _%tl155277155321%_)) + (_%__match170818170819%_ + _%e155269155303%_ + _%hd155270155306%_ + _%tl155271155308%_ + _%e155272155311%_ + _%hd155273155314%_ + _%tl155274155316%_ + _%__splice170795170796%_ + _%target155275155319%_ + _%tl155277155321%_) + (_%__kont170797170798%_)))) + (_%__kont170797170798%_)))) + (_%__kont170797170798%_)))) + (_%__kont170797170798%_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_%self154358%_ _%stx154359%_) - (letrec* ((_%bind-e__167960167961%_ - (lambda (_%id155203%_ _%expr155204%_ _%compile?155205%_) - (cons (cons _%id155203%_ '()) - (cons (if _%compile?155205%_ + (lambda (_%self154395%_ _%stx154396%_) + (letrec* ((_%bind-e__167997167998%_ + (lambda (_%id155240%_ _%expr155241%_ _%compile?155242%_) + (cons (cons _%id155240%_ '()) + (cons (if _%compile?155242%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self154358%_ - _%expr155204%_)) - _%expr155204%_) + _%self154395%_ + _%expr155241%_)) + _%expr155241%_) '())))) - (_%bind-e__0__167962167963%_ - (lambda (_%id155210%_ _%expr155211%_) - (let ((_%compile?155213%_ '#t)) - (_%bind-e__167960167961%_ - _%id155210%_ - _%expr155211%_ - _%compile?155213%_)))) - (_%bind-e154361%_ - (lambda _g171333_ - (let ((_g171332_ + (_%bind-e__0__167999168000%_ + (lambda (_%id155247%_ _%expr155248%_) + (let ((_%compile?155250%_ '#t)) + (_%bind-e__167997167998%_ + _%id155247%_ + _%expr155248%_ + _%compile?155250%_)))) + (_%bind-e154398%_ + (lambda _g171370_ + (let ((_g171369_ (let () (declare (not safe)) - (##length _g171333_)))) - (cond ((let () (declare (not safe)) (##fx= _g171332_ 2)) - (apply _%bind-e__0__167962167963%_ _g171333_)) - ((let () (declare (not safe)) (##fx= _g171332_ 3)) - (apply _%bind-e__167960167961%_ _g171333_)) + (##length _g171370_)))) + (cond ((let () (declare (not safe)) (##fx= _g171369_ 2)) + (apply _%bind-e__0__167999168000%_ _g171370_)) + ((let () (declare (not safe)) (##fx= _g171369_ 3)) + (apply _%bind-e__167997167998%_ _g171370_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g171333_)))))) - (_%compile-bindings154362%_ - (lambda (_%rest154497%_) - (let _%lp154499%_ ((_%rest154501%_ _%rest154497%_) - (_%bind154502%_ '())) - (let* ((_%rest154503154511%_ _%rest154501%_) - (_%else154505154519%_ - (lambda () (reverse _%bind154502%_))) - (_%K154507155190%_ - (lambda (_%rest154522%_ _%hd154523%_) - (let* ((_%__stx170804170805%_ _%hd154523%_) - (_%g154528154575%_ + _g171370_)))))) + (_%compile-bindings154399%_ + (lambda (_%rest154534%_) + (let _%lp154536%_ ((_%rest154538%_ _%rest154534%_) + (_%bind154539%_ '())) + (let* ((_%rest154540154548%_ _%rest154538%_) + (_%else154542154556%_ + (lambda () (reverse _%bind154539%_))) + (_%K154544155227%_ + (lambda (_%rest154559%_ _%hd154560%_) + (let* ((_%__stx170841170842%_ _%hd154560%_) + (_%g154565154612%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170804170805%_))))) - (let ((_%__kont170806170807%_ - (lambda (_%L155096%_ _%L155097%_) - (let* ((_%__stx170784170785%_ - _%L155096%_) - (_%g155112155126%_ + _%__stx170841170842%_))))) + (let ((_%__kont170843170844%_ + (lambda (_%L155133%_ _%L155134%_) + (let* ((_%__stx170821170822%_ + _%L155133%_) + (_%g155149155163%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170784170785%_))))) - (let ((_%__kont170786170787%_ - (lambda (_%L155175%_) - (_%lp154499%_ - _%rest154522%_ - (cons (_%bind-e__167960167961%_ - _%L155097%_ - _%L155096%_ + _%__stx170821170822%_))))) + (let ((_%__kont170823170824%_ + (lambda (_%L155212%_) + (_%lp154536%_ + _%rest154559%_ + (cons (_%bind-e__167997167998%_ + _%L155134%_ + _%L155133%_ '#f) - _%bind154502%_)))) - (_%__kont170788170789%_ - (lambda (_%L155139%_) - (let ((_g171334_ + _%bind154539%_)))) + (_%__kont170825170826%_ + (lambda (_%L155176%_) + (let ((_g171371_ (gxc#lift-case-lambda-clauses__% - _%stx154359%_ - _%L155097%_ - _%L155139%_ + _%stx154396%_ + _%L155134%_ + _%L155176%_ '#t))) (begin - (let ((_g171335_ + (let ((_g171372_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g171334_) - (##vector-length _g171334_) + (if (##values? _g171371_) + (##vector-length _g171371_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171335_ 3))) - (error "Context expects 3 values" _g171335_))) - (let ((_%ids155149%_ + (##fx= _g171372_ 3))) + (error "Context expects 3 values" _g171372_))) + (let ((_%ids155186%_ (let () (declare (not safe)) - (##vector-ref _g171334_ 0))) - (_%impls155150%_ + (##vector-ref _g171371_ 0))) + (_%impls155187%_ (let () (declare (not safe)) - (##vector-ref _g171334_ 1))) - (_%clauses155151%_ + (##vector-ref _g171371_ 1))) + (_%clauses155188%_ (let () (declare (not safe)) - (##vector-ref _g171334_ 2)))) - (let* ((_%_155153%_ - (for-each gx#core-bind-runtime! _%ids155149%_)) - (_%xbind155155%_ - (map _%bind-e154361%_ - _%ids155149%_ - _%impls155150%_)) - (_%expr*155157%_ - (let ((__tmp171337 - (cons '%#case-lambda _%clauses155151%_)) - (__tmp171336 + (##vector-ref _g171371_ 2)))) + (let* ((_%_155190%_ + (for-each gx#core-bind-runtime! _%ids155186%_)) + (_%xbind155192%_ + (map _%bind-e154398%_ + _%ids155186%_ + _%impls155187%_)) + (_%expr*155194%_ + (let ((__tmp171374 + (cons '%#case-lambda _%clauses155188%_)) + (__tmp171373 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -23278,1015 +23278,1015 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171337 - __tmp171336))) - (_%bind*155159%_ - (_%bind-e__167960167961%_ - _%L155097%_ - _%expr*155157%_ + __tmp171374 + __tmp171373))) + (_%bind*155196%_ + (_%bind-e__167997167998%_ + _%L155134%_ + _%expr*155194%_ '#f))) - (let ((__tmp171339 + (let ((__tmp171376 (let () (declare (not safe)) - (gxc#identifier-symbol _%L155097%_))) - (__tmp171338 - (map gxc#identifier-symbol _%ids155149%_))) + (gxc#identifier-symbol _%L155134%_))) + (__tmp171375 + (map gxc#identifier-symbol _%ids155186%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171339 + __tmp171376 '" => " - __tmp171338)) - (_%lp154499%_ - _%rest154522%_ - (cons _%bind*155159%_ + __tmp171375)) + (_%lp154536%_ + _%rest154559%_ + (cons _%bind*155196%_ (let () (declare (not safe)) (__foldl1 cons - _%bind154502%_ - _%xbind155155%_))))))))))) + _%bind154539%_ + _%xbind155192%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match170795170796%_ - (lambda (_%e155115155167%_ - _%hd155116155170%_ - _%tl155117155172%_) - (let ((_%L155175%_ - _%tl155117155172%_)) + (let ((_%__match170832170833%_ + (lambda (_%e155152155204%_ + _%hd155153155207%_ + _%tl155154155209%_) + (let ((_%L155212%_ + _%tl155154155209%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L155175%_)) - (_%__kont170786170787%_ _%L155175%_) - (_%__kont170788170789%_ _%tl155117155172%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L155212%_)) + (_%__kont170823170824%_ _%L155212%_) + (_%__kont170825170826%_ _%tl155154155209%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170784170785%_)) - (let ((_%e155115155167%_ + _%__stx170821170822%_)) + (let ((_%e155152155204%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx170784170785%_)))) - (let ((_%tl155117155172%_ - (let () (declare (not safe)) (##cdr _%e155115155167%_))) - (_%hd155116155170%_ + (gx#stx-e _%__stx170821170822%_)))) + (let ((_%tl155154155209%_ + (let () (declare (not safe)) (##cdr _%e155152155204%_))) + (_%hd155153155207%_ (let () (declare (not safe)) - (##car _%e155115155167%_)))) - (_%__match170795170796%_ - _%e155115155167%_ - _%hd155116155170%_ - _%tl155117155172%_))) - (let () (declare (not safe)) (_%g155112155126%_)))))))) + (##car _%e155152155204%_)))) + (_%__match170832170833%_ + _%e155152155204%_ + _%hd155153155207%_ + _%tl155154155209%_))) + (let () (declare (not safe)) (_%g155149155163%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170808170809%_ - (lambda (_%L154923%_ _%L154924%_) - (let* ((_%g154938154968%_ - (lambda (_%g154939154965%_) + (_%__kont170845170846%_ + (lambda (_%L154960%_ _%L154961%_) + (let* ((_%g154975155005%_ + (lambda (_%g154976155002%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154939154965%_)))) - (_%g154937155064%_ - (lambda (_%g154939154971%_) + _%g154976155002%_)))) + (_%g154974155101%_ + (lambda (_%g154976155008%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154939154971%_)) - (let ((_%e154943154973%_ + _%g154976155008%_)) + (let ((_%e154980155010%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154939154971%_)))) - (let ((_%hd154944154976%_ + (gx#stx-e _%g154976155008%_)))) + (let ((_%hd154981155013%_ (let () (declare (not safe)) - (##car _%e154943154973%_))) - (_%tl154945154978%_ + (##car _%e154980155010%_))) + (_%tl154982155015%_ (let () (declare (not safe)) - (##cdr _%e154943154973%_)))) + (##cdr _%e154980155010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154945154978%_)) - (let ((_%e154946154981%_ + (gx#stx-pair? _%tl154982155015%_)) + (let ((_%e154983155018%_ (let () (declare (not safe)) - (gx#stx-e _%tl154945154978%_)))) - (let ((_%hd154947154984%_ + (gx#stx-e _%tl154982155015%_)))) + (let ((_%hd154984155021%_ (let () (declare (not safe)) - (##car _%e154946154981%_))) - (_%tl154948154986%_ + (##car _%e154983155018%_))) + (_%tl154985155023%_ (let () (declare (not safe)) - (##cdr _%e154946154981%_)))) + (##cdr _%e154983155018%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154947154984%_)) - (let ((_%e154949154989%_ + (gx#stx-pair? _%hd154984155021%_)) + (let ((_%e154986155026%_ (let () (declare (not safe)) - (gx#stx-e _%hd154947154984%_)))) - (let ((_%hd154950154992%_ + (gx#stx-e _%hd154984155021%_)))) + (let ((_%hd154987155029%_ (let () (declare (not safe)) - (##car _%e154949154989%_))) - (_%tl154951154994%_ + (##car _%e154986155026%_))) + (_%tl154988155031%_ (let () (declare (not safe)) - (##cdr _%e154949154989%_)))) + (##cdr _%e154986155026%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154950154992%_)) - (let ((_%e154952154997%_ + (gx#stx-pair? _%hd154987155029%_)) + (let ((_%e154989155034%_ (let () (declare (not safe)) (gx#stx-e - _%hd154950154992%_)))) - (let ((_%hd154953155000%_ + _%hd154987155029%_)))) + (let ((_%hd154990155037%_ (let () (declare (not safe)) - (##car _%e154952154997%_))) - (_%tl154954155002%_ + (##car _%e154989155034%_))) + (_%tl154991155039%_ (let () (declare (not safe)) - (##cdr _%e154952154997%_)))) + (##cdr _%e154989155034%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154953155000%_)) - (let ((_%e154955155005%_ + _%hd154990155037%_)) + (let ((_%e154992155042%_ (let () (declare (not safe)) (gx#stx-e - _%hd154953155000%_)))) - (let ((_%hd154956155008%_ + _%hd154990155037%_)))) + (let ((_%hd154993155045%_ (let () (declare (not safe)) - (##car _%e154955155005%_))) - (_%tl154957155010%_ + (##car _%e154992155042%_))) + (_%tl154994155047%_ (let () (declare (not safe)) - (##cdr _%e154955155005%_)))) + (##cdr _%e154992155042%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154957155010%_)) + _%tl154994155047%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154954155002%_)) - (let ((_%e154958155013%_ + (gx#stx-pair? _%tl154991155039%_)) + (let ((_%e154995155050%_ (let () (declare (not safe)) - (gx#stx-e _%tl154954155002%_)))) - (let ((_%hd154959155016%_ + (gx#stx-e _%tl154991155039%_)))) + (let ((_%hd154996155053%_ (let () (declare (not safe)) - (##car _%e154958155013%_))) - (_%tl154960155018%_ + (##car _%e154995155050%_))) + (_%tl154997155055%_ (let () (declare (not safe)) - (##cdr _%e154958155013%_)))) + (##cdr _%e154995155050%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154960155018%_)) + (gx#stx-null? _%tl154997155055%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154951154994%_)) + (gx#stx-null? _%tl154988155031%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154948154986%_)) - (let ((_%e154961155021%_ + (gx#stx-pair? _%tl154985155023%_)) + (let ((_%e154998155058%_ (let () (declare (not safe)) - (gx#stx-e _%tl154948154986%_)))) - (let ((_%hd154962155024%_ + (gx#stx-e _%tl154985155023%_)))) + (let ((_%hd154999155061%_ (let () (declare (not safe)) - (##car _%e154961155021%_))) - (_%tl154963155026%_ + (##car _%e154998155058%_))) + (_%tl155000155063%_ (let () (declare (not safe)) - (##cdr _%e154961155021%_)))) + (##cdr _%e154998155058%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154963155026%_)) - ((lambda (_%L155029%_ - _%L155030%_ - _%L155031%_) - (let* ((_%lambda-id155055%_ - (let ((__tmp171341 + _%tl155000155063%_)) + ((lambda (_%L155066%_ + _%L155067%_ + _%L155068%_) + (let* ((_%lambda-id155092%_ + (let ((__tmp171378 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L154924%_))) - (__tmp171340 + (gx#stx-e _%L154961%_))) + (__tmp171377 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp171341 __tmp171340))) - (_%lambda-id155057%_ - (let ((__tmp171342 + (make-symbol__1 __tmp171378 __tmp171377))) + (_%lambda-id155094%_ + (let ((__tmp171379 (let () (declare (not safe)) - (gx#stx-source _%stx154359%_)))) + (gx#stx-source _%stx154396%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id155055%_ __tmp171342))) - (_%_155059%_ + (gx#core-quote-syntax__1 _%lambda-id155092%_ __tmp171379))) + (_%_155096%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id155057%_))) - (_%new-case-lambda-expr155061%_ + (gx#core-bind-runtime!__0 _%lambda-id155094%_))) + (_%new-case-lambda-expr155098%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155031%_ - _%lambda-id155057%_ - _%L155029%_)))) + _%L155068%_ + _%lambda-id155094%_ + _%L155066%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171344 + (let ((__tmp171381 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154924%_))) - (__tmp171343 + _%L154961%_))) + (__tmp171380 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id155057%_)))) + _%lambda-id155094%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171344 + __tmp171381 '" => " - __tmp171343)) - (_%lp154499%_ - (cons (_%bind-e__167960167961%_ - _%L154924%_ - _%new-case-lambda-expr155061%_ + __tmp171380)) + (_%lp154536%_ + (cons (_%bind-e__167997167998%_ + _%L154961%_ + _%new-case-lambda-expr155098%_ '#f) - _%rest154522%_) - (cons (_%bind-e__0__167962167963%_ - _%lambda-id155057%_ - _%L155030%_) - _%bind154502%_)))) - _%hd154962155024%_ - _%hd154959155016%_ - _%hd154956155008%_) - (_%g154938154968%_ - _%g154939154971%_)))) - (_%g154938154968%_ _%g154939154971%_)) - (_%g154938154968%_ _%g154939154971%_)) - (_%g154938154968%_ _%g154939154971%_)))) - (_%g154938154968%_ _%g154939154971%_)) - (_%g154938154968%_ _%g154939154971%_)))) + _%rest154559%_) + (cons (_%bind-e__0__167999168000%_ + _%lambda-id155094%_ + _%L155067%_) + _%bind154539%_)))) + _%hd154999155061%_ + _%hd154996155053%_ + _%hd154993155045%_) + (_%g154975155005%_ + _%g154976155008%_)))) + (_%g154975155005%_ _%g154976155008%_)) + (_%g154975155005%_ _%g154976155008%_)) + (_%g154975155005%_ _%g154976155008%_)))) + (_%g154975155005%_ _%g154976155008%_)) + (_%g154975155005%_ _%g154976155008%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154938154968%_ - _%g154939154971%_)))) - (_%g154938154968%_ - _%g154939154971%_)))) - (_%g154938154968%_ _%g154939154971%_)))) - (_%g154938154968%_ _%g154939154971%_)))) - (_%g154938154968%_ _%g154939154971%_))))) + (_%g154975155005%_ + _%g154976155008%_)))) + (_%g154975155005%_ + _%g154976155008%_)))) + (_%g154975155005%_ _%g154976155008%_)))) + (_%g154975155005%_ _%g154976155008%_)))) + (_%g154975155005%_ _%g154976155008%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154937155064%_ - _%L154923%_)))) - (_%__kont170810170811%_ - (lambda (_%L154645%_ _%L154646%_) - (let* ((_%g154660154713%_ - (lambda (_%g154661154710%_) + (_%g154974155101%_ + _%L154960%_)))) + (_%__kont170847170848%_ + (lambda (_%L154682%_ _%L154683%_) + (let* ((_%g154697154750%_ + (lambda (_%g154698154747%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154661154710%_)))) - (_%g154659154891%_ - (lambda (_%g154661154716%_) + _%g154698154747%_)))) + (_%g154696154928%_ + (lambda (_%g154698154753%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154661154716%_)) - (let ((_%e154667154718%_ + _%g154698154753%_)) + (let ((_%e154704154755%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154661154716%_)))) - (let ((_%hd154668154721%_ + (gx#stx-e _%g154698154753%_)))) + (let ((_%hd154705154758%_ (let () (declare (not safe)) - (##car _%e154667154718%_))) - (_%tl154669154723%_ + (##car _%e154704154755%_))) + (_%tl154706154760%_ (let () (declare (not safe)) - (##cdr _%e154667154718%_)))) + (##cdr _%e154704154755%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154669154723%_)) - (let ((_%e154670154726%_ + (gx#stx-pair? _%tl154706154760%_)) + (let ((_%e154707154763%_ (let () (declare (not safe)) - (gx#stx-e _%tl154669154723%_)))) - (let ((_%hd154671154729%_ + (gx#stx-e _%tl154706154760%_)))) + (let ((_%hd154708154766%_ (let () (declare (not safe)) - (##car _%e154670154726%_))) - (_%tl154672154731%_ + (##car _%e154707154763%_))) + (_%tl154709154768%_ (let () (declare (not safe)) - (##cdr _%e154670154726%_)))) + (##cdr _%e154707154763%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154671154729%_)) - (let ((_%e154673154734%_ + (gx#stx-pair? _%hd154708154766%_)) + (let ((_%e154710154771%_ (let () (declare (not safe)) - (gx#stx-e _%hd154671154729%_)))) - (let ((_%hd154674154737%_ + (gx#stx-e _%hd154708154766%_)))) + (let ((_%hd154711154774%_ (let () (declare (not safe)) - (##car _%e154673154734%_))) - (_%tl154675154739%_ + (##car _%e154710154771%_))) + (_%tl154712154776%_ (let () (declare (not safe)) - (##cdr _%e154673154734%_)))) + (##cdr _%e154710154771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154674154737%_)) - (let ((_%e154676154742%_ + (gx#stx-pair? _%hd154711154774%_)) + (let ((_%e154713154779%_ (let () (declare (not safe)) (gx#stx-e - _%hd154674154737%_)))) - (let ((_%hd154677154745%_ + _%hd154711154774%_)))) + (let ((_%hd154714154782%_ (let () (declare (not safe)) - (##car _%e154676154742%_))) - (_%tl154678154747%_ + (##car _%e154713154779%_))) + (_%tl154715154784%_ (let () (declare (not safe)) - (##cdr _%e154676154742%_)))) + (##cdr _%e154713154779%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154677154745%_)) - (let ((_%e154679154750%_ + _%hd154714154782%_)) + (let ((_%e154716154787%_ (let () (declare (not safe)) (gx#stx-e - _%hd154677154745%_)))) - (let ((_%hd154680154753%_ + _%hd154714154782%_)))) + (let ((_%hd154717154790%_ (let () (declare (not safe)) - (##car _%e154679154750%_))) - (_%tl154681154755%_ + (##car _%e154716154787%_))) + (_%tl154718154792%_ (let () (declare (not safe)) - (##cdr _%e154679154750%_)))) + (##cdr _%e154716154787%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154681154755%_)) + _%tl154718154792%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154678154747%_)) - (let ((_%e154682154758%_ + (gx#stx-pair? _%tl154715154784%_)) + (let ((_%e154719154795%_ (let () (declare (not safe)) - (gx#stx-e _%tl154678154747%_)))) - (let ((_%hd154683154761%_ + (gx#stx-e _%tl154715154784%_)))) + (let ((_%hd154720154798%_ (let () (declare (not safe)) - (##car _%e154682154758%_))) - (_%tl154684154763%_ + (##car _%e154719154795%_))) + (_%tl154721154800%_ (let () (declare (not safe)) - (##cdr _%e154682154758%_)))) + (##cdr _%e154719154795%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154683154761%_)) - (let ((_%e154685154766%_ + (gx#stx-pair? _%hd154720154798%_)) + (let ((_%e154722154803%_ (let () (declare (not safe)) - (gx#stx-e _%hd154683154761%_)))) - (let ((_%hd154686154769%_ + (gx#stx-e _%hd154720154798%_)))) + (let ((_%hd154723154806%_ (let () (declare (not safe)) - (##car _%e154685154766%_))) - (_%tl154687154771%_ + (##car _%e154722154803%_))) + (_%tl154724154808%_ (let () (declare (not safe)) - (##cdr _%e154685154766%_)))) + (##cdr _%e154722154803%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154687154771%_)) - (let ((_%e154688154774%_ + (gx#stx-pair? _%tl154724154808%_)) + (let ((_%e154725154811%_ (let () (declare (not safe)) - (gx#stx-e _%tl154687154771%_)))) - (let ((_%hd154689154777%_ + (gx#stx-e _%tl154724154808%_)))) + (let ((_%hd154726154814%_ (let () (declare (not safe)) - (##car _%e154688154774%_))) - (_%tl154690154779%_ + (##car _%e154725154811%_))) + (_%tl154727154816%_ (let () (declare (not safe)) - (##cdr _%e154688154774%_)))) + (##cdr _%e154725154811%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154689154777%_)) - (let ((_%e154691154782%_ + _%hd154726154814%_)) + (let ((_%e154728154819%_ (let () (declare (not safe)) (gx#stx-e - _%hd154689154777%_)))) - (let ((_%hd154692154785%_ + _%hd154726154814%_)))) + (let ((_%hd154729154822%_ (let () (declare (not safe)) - (##car _%e154691154782%_))) - (_%tl154693154787%_ + (##car _%e154728154819%_))) + (_%tl154730154824%_ (let () (declare (not safe)) - (##cdr _%e154691154782%_)))) + (##cdr _%e154728154819%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154692154785%_)) - (let ((_%e154694154790%_ + _%hd154729154822%_)) + (let ((_%e154731154827%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd154692154785%_)))) - (let ((_%hd154695154793%_ - (let () (declare (not safe)) (##car _%e154694154790%_))) - (_%tl154696154795%_ + (gx#stx-e _%hd154729154822%_)))) + (let ((_%hd154732154830%_ + (let () (declare (not safe)) (##car _%e154731154827%_))) + (_%tl154733154832%_ (let () (declare (not safe)) - (##cdr _%e154694154790%_)))) + (##cdr _%e154731154827%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154695154793%_)) - (let ((_%e154697154798%_ + (gx#stx-pair? _%hd154732154830%_)) + (let ((_%e154734154835%_ (let () (declare (not safe)) - (gx#stx-e _%hd154695154793%_)))) - (let ((_%hd154698154801%_ + (gx#stx-e _%hd154732154830%_)))) + (let ((_%hd154735154838%_ (let () (declare (not safe)) - (##car _%e154697154798%_))) - (_%tl154699154803%_ + (##car _%e154734154835%_))) + (_%tl154736154840%_ (let () (declare (not safe)) - (##cdr _%e154697154798%_)))) + (##cdr _%e154734154835%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154699154803%_)) + (gx#stx-null? _%tl154736154840%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154696154795%_)) - (let ((_%e154700154806%_ + (gx#stx-pair? _%tl154733154832%_)) + (let ((_%e154737154843%_ (let () (declare (not safe)) - (gx#stx-e _%tl154696154795%_)))) - (let ((_%hd154701154809%_ + (gx#stx-e _%tl154733154832%_)))) + (let ((_%hd154738154846%_ (let () (declare (not safe)) - (##car _%e154700154806%_))) - (_%tl154702154811%_ + (##car _%e154737154843%_))) + (_%tl154739154848%_ (let () (declare (not safe)) - (##cdr _%e154700154806%_)))) + (##cdr _%e154737154843%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154702154811%_)) + (gx#stx-null? _%tl154739154848%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154693154787%_)) + _%tl154730154824%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154690154779%_)) - (let ((_%e154703154814%_ + _%tl154727154816%_)) + (let ((_%e154740154851%_ (let () (declare (not safe)) (gx#stx-e - _%tl154690154779%_)))) - (let ((_%hd154704154817%_ + _%tl154727154816%_)))) + (let ((_%hd154741154854%_ (let () (declare (not safe)) - (##car _%e154703154814%_))) - (_%tl154705154819%_ + (##car _%e154740154851%_))) + (_%tl154742154856%_ (let () (declare (not safe)) - (##cdr _%e154703154814%_)))) + (##cdr _%e154740154851%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154705154819%_)) + _%tl154742154856%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl154684154763%_)) + (gx#stx-null? _%tl154721154800%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154675154739%_)) + (gx#stx-null? _%tl154712154776%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154672154731%_)) - (let ((_%e154706154822%_ + (gx#stx-pair? _%tl154709154768%_)) + (let ((_%e154743154859%_ (let () (declare (not safe)) - (gx#stx-e _%tl154672154731%_)))) - (let ((_%hd154707154825%_ + (gx#stx-e _%tl154709154768%_)))) + (let ((_%hd154744154862%_ (let () (declare (not safe)) - (##car _%e154706154822%_))) - (_%tl154708154827%_ + (##car _%e154743154859%_))) + (_%tl154745154864%_ (let () (declare (not safe)) - (##cdr _%e154706154822%_)))) + (##cdr _%e154743154859%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154708154827%_)) - ((lambda (_%L154830%_ - _%L154831%_ - _%L154832%_ - _%L154833%_ - _%L154834%_) - (let* ((_%get-kws-id154874%_ - (let ((__tmp171346 + (gx#stx-null? _%tl154745154864%_)) + ((lambda (_%L154867%_ + _%L154868%_ + _%L154869%_ + _%L154870%_ + _%L154871%_) + (let* ((_%get-kws-id154911%_ + (let ((__tmp171383 (let () (declare (not safe)) (gx#stx-e - _%L154646%_))) - (__tmp171345 + _%L154683%_))) + (__tmp171382 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171346 - __tmp171345))) - (_%get-kws-id154876%_ - (let ((__tmp171347 + __tmp171383 + __tmp171382))) + (_%get-kws-id154913%_ + (let ((__tmp171384 (let () (declare (not safe)) (gx#stx-source - _%stx154359%_)))) + _%stx154396%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id154874%_ - __tmp171347))) - (_%main-id154878%_ - (let ((__tmp171349 + _%get-kws-id154911%_ + __tmp171384))) + (_%main-id154915%_ + (let ((__tmp171386 (let () (declare (not safe)) (gx#stx-e - _%L154646%_))) - (__tmp171348 + _%L154683%_))) + (__tmp171385 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171349 - __tmp171348))) - (_%main-id154880%_ - (let ((__tmp171350 + __tmp171386 + __tmp171385))) + (_%main-id154917%_ + (let ((__tmp171387 (let () (declare (not safe)) (gx#stx-source - _%stx154359%_)))) + _%stx154396%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id154878%_ - __tmp171350))) - (_%_154882%_ + _%main-id154915%_ + __tmp171387))) + (_%_154919%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id154876%_))) - (_%_154884%_ + _%get-kws-id154913%_))) + (_%_154921%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id154880%_))) - (_%new-kw-dispatch154886%_ + _%main-id154917%_))) + (_%new-kw-dispatch154923%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154834%_ - _%get-kws-id154876%_ - _%L154830%_))) - (_%new-get-kws154888%_ + _%L154871%_ + _%get-kws-id154913%_ + _%L154867%_))) + (_%new-get-kws154925%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154833%_ - _%main-id154880%_ - _%L154831%_)))) - (let ((__tmp171353 + _%L154870%_ + _%main-id154917%_ + _%L154868%_)))) + (let ((__tmp171390 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154646%_))) - (__tmp171352 + _%L154683%_))) + (__tmp171389 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id154876%_))) - (__tmp171351 + _%get-kws-id154913%_))) + (__tmp171388 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id154880%_)))) + _%main-id154917%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171353 + __tmp171390 '" => " - __tmp171352 + __tmp171389 '" => " - __tmp171351)) - (_%lp154499%_ - (cons (_%bind-e__167960167961%_ - _%main-id154880%_ - _%L154832%_ + __tmp171388)) + (_%lp154536%_ + (cons (_%bind-e__167997167998%_ + _%main-id154917%_ + _%L154869%_ '#f) - (cons (_%bind-e__167960167961%_ - _%get-kws-id154876%_ - _%new-get-kws154888%_ + (cons (_%bind-e__167997167998%_ + _%get-kws-id154913%_ + _%new-get-kws154925%_ '#f) - (cons (_%bind-e__167960167961%_ - _%L154646%_ - _%new-kw-dispatch154886%_ + (cons (_%bind-e__167997167998%_ + _%L154683%_ + _%new-kw-dispatch154923%_ '#f) - _%rest154522%_))) - _%bind154502%_))) - _%hd154707154825%_ - _%hd154704154817%_ - _%hd154701154809%_ - _%hd154698154801%_ - _%hd154680154753%_) - (_%g154660154713%_ _%g154661154716%_)))) - (_%g154660154713%_ _%g154661154716%_)) - (_%g154660154713%_ _%g154661154716%_)) - (_%g154660154713%_ _%g154661154716%_)) - (_%g154660154713%_ _%g154661154716%_)))) + _%rest154559%_))) + _%bind154539%_))) + _%hd154744154862%_ + _%hd154741154854%_ + _%hd154738154846%_ + _%hd154735154838%_ + _%hd154717154790%_) + (_%g154697154750%_ _%g154698154753%_)))) + (_%g154697154750%_ _%g154698154753%_)) + (_%g154697154750%_ _%g154698154753%_)) + (_%g154697154750%_ _%g154698154753%_)) + (_%g154697154750%_ _%g154698154753%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154660154713%_ - _%g154661154716%_)) - (_%g154660154713%_ - _%g154661154716%_)) - (_%g154660154713%_ - _%g154661154716%_)))) - (_%g154660154713%_ _%g154661154716%_)) - (_%g154660154713%_ _%g154661154716%_)))) - (_%g154660154713%_ _%g154661154716%_)))) - (_%g154660154713%_ _%g154661154716%_)))) + (_%g154697154750%_ + _%g154698154753%_)) + (_%g154697154750%_ + _%g154698154753%_)) + (_%g154697154750%_ + _%g154698154753%_)))) + (_%g154697154750%_ _%g154698154753%_)) + (_%g154697154750%_ _%g154698154753%_)))) + (_%g154697154750%_ _%g154698154753%_)))) + (_%g154697154750%_ _%g154698154753%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154660154713%_ - _%g154661154716%_)))) - (_%g154660154713%_ _%g154661154716%_)))) - (_%g154660154713%_ _%g154661154716%_)))) - (_%g154660154713%_ _%g154661154716%_)) - (_%g154660154713%_ _%g154661154716%_)))) + (_%g154697154750%_ + _%g154698154753%_)))) + (_%g154697154750%_ _%g154698154753%_)))) + (_%g154697154750%_ _%g154698154753%_)))) + (_%g154697154750%_ _%g154698154753%_)) + (_%g154697154750%_ _%g154698154753%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154660154713%_ - _%g154661154716%_)))) - (_%g154660154713%_ - _%g154661154716%_)))) - (_%g154660154713%_ _%g154661154716%_)))) - (_%g154660154713%_ _%g154661154716%_)))) - (_%g154660154713%_ _%g154661154716%_))))) + (_%g154697154750%_ + _%g154698154753%_)))) + (_%g154697154750%_ + _%g154698154753%_)))) + (_%g154697154750%_ _%g154698154753%_)))) + (_%g154697154750%_ _%g154698154753%_)))) + (_%g154697154750%_ _%g154698154753%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154659154891%_ - _%L154645%_)))) - (_%__kont170812170813%_ - (lambda (_%L154596%_ _%L154597%_) - (_%lp154499%_ - _%rest154522%_ - (cons (cons _%L154597%_ + (_%g154696154928%_ + _%L154682%_)))) + (_%__kont170849170850%_ + (lambda (_%L154633%_ _%L154634%_) + (_%lp154536%_ + _%rest154559%_ + (cons (cons _%L154634%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self154358%_ _%L154596%_)) + (gxc#compile-e__1 _%self154395%_ _%L154633%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind154502%_))))) - (let* ((_%__match170879170880%_ - (lambda (_%e154554154621%_ - _%hd154555154624%_ - _%tl154556154626%_ - _%e154557154629%_ - _%hd154558154632%_ - _%tl154559154634%_ - _%e154560154637%_ - _%hd154561154640%_ - _%tl154562154642%_) - (let ((_%L154645%_ - _%hd154561154640%_) - (_%L154646%_ - _%hd154558154632%_)) + _%bind154539%_))))) + (let* ((_%__match170916170917%_ + (lambda (_%e154591154658%_ + _%hd154592154661%_ + _%tl154593154663%_ + _%e154594154666%_ + _%hd154595154669%_ + _%tl154596154671%_ + _%e154597154674%_ + _%hd154598154677%_ + _%tl154599154679%_) + (let ((_%L154682%_ + _%hd154598154677%_) + (_%L154683%_ + _%hd154595154669%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154646%_)) + _%L154683%_)) (gxc#kw-lambda-expr? - _%L154645%_)) - (_%__kont170810170811%_ - _%L154645%_ - _%L154646%_) - (_%__kont170812170813%_ - _%hd154561154640%_ - _%hd154555154624%_))))) - (_%__match170857170858%_ - (lambda (_%e154543154899%_ - _%hd154544154902%_ - _%tl154545154904%_ - _%e154546154907%_ - _%hd154547154910%_ - _%tl154548154912%_ - _%e154549154915%_ - _%hd154550154918%_ - _%tl154551154920%_) - (let ((_%L154923%_ - _%hd154550154918%_) - (_%L154924%_ - _%hd154547154910%_)) + _%L154682%_)) + (_%__kont170847170848%_ + _%L154682%_ + _%L154683%_) + (_%__kont170849170850%_ + _%hd154598154677%_ + _%hd154592154661%_))))) + (_%__match170894170895%_ + (lambda (_%e154580154936%_ + _%hd154581154939%_ + _%tl154582154941%_ + _%e154583154944%_ + _%hd154584154947%_ + _%tl154585154949%_ + _%e154586154952%_ + _%hd154587154955%_ + _%tl154588154957%_) + (let ((_%L154960%_ + _%hd154587154955%_) + (_%L154961%_ + _%hd154584154947%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154924%_)) + _%L154961%_)) (gxc#opt-lambda-expr? - _%L154923%_)) - (_%__kont170808170809%_ - _%L154923%_ - _%L154924%_) - (_%__match170879170880%_ - _%e154543154899%_ - _%hd154544154902%_ - _%tl154545154904%_ - _%e154546154907%_ - _%hd154547154910%_ - _%tl154548154912%_ - _%e154549154915%_ - _%hd154550154918%_ - _%tl154551154920%_))))) - (_%__match170835170836%_ - (lambda (_%e154532155072%_ - _%hd154533155075%_ - _%tl154534155077%_ - _%e154535155080%_ - _%hd154536155083%_ - _%tl154537155085%_ - _%e154538155088%_ - _%hd154539155091%_ - _%tl154540155093%_) - (let ((_%L155096%_ - _%hd154539155091%_) - (_%L155097%_ - _%hd154536155083%_)) + _%L154960%_)) + (_%__kont170845170846%_ + _%L154960%_ + _%L154961%_) + (_%__match170916170917%_ + _%e154580154936%_ + _%hd154581154939%_ + _%tl154582154941%_ + _%e154583154944%_ + _%hd154584154947%_ + _%tl154585154949%_ + _%e154586154952%_ + _%hd154587154955%_ + _%tl154588154957%_))))) + (_%__match170872170873%_ + (lambda (_%e154569155109%_ + _%hd154570155112%_ + _%tl154571155114%_ + _%e154572155117%_ + _%hd154573155120%_ + _%tl154574155122%_ + _%e154575155125%_ + _%hd154576155128%_ + _%tl154577155130%_) + (let ((_%L155133%_ + _%hd154576155128%_) + (_%L155134%_ + _%hd154573155120%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L155097%_)) + _%L155134%_)) (gxc#case-lambda-expr? - _%L155096%_)) - (_%__kont170806170807%_ - _%L155096%_ - _%L155097%_) - (_%__match170857170858%_ - _%e154532155072%_ - _%hd154533155075%_ - _%tl154534155077%_ - _%e154535155080%_ - _%hd154536155083%_ - _%tl154537155085%_ - _%e154538155088%_ - _%hd154539155091%_ - _%tl154540155093%_)))))) + _%L155133%_)) + (_%__kont170843170844%_ + _%L155133%_ + _%L155134%_) + (_%__match170894170895%_ + _%e154569155109%_ + _%hd154570155112%_ + _%tl154571155114%_ + _%e154572155117%_ + _%hd154573155120%_ + _%tl154574155122%_ + _%e154575155125%_ + _%hd154576155128%_ + _%tl154577155130%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170804170805%_)) - (let ((_%e154532155072%_ + _%__stx170841170842%_)) + (let ((_%e154569155109%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170804170805%_)))) - (let ((_%tl154534155077%_ + _%__stx170841170842%_)))) + (let ((_%tl154571155114%_ (let () (declare (not safe)) - (##cdr _%e154532155072%_))) - (_%hd154533155075%_ + (##cdr _%e154569155109%_))) + (_%hd154570155112%_ (let () (declare (not safe)) - (##car _%e154532155072%_)))) + (##car _%e154569155109%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154533155075%_)) - (let ((_%e154535155080%_ + _%hd154570155112%_)) + (let ((_%e154572155117%_ (let () (declare (not safe)) (gx#stx-e - _%hd154533155075%_)))) - (let ((_%tl154537155085%_ + _%hd154570155112%_)))) + (let ((_%tl154574155122%_ (let () (declare (not safe)) - (##cdr _%e154535155080%_))) - (_%hd154536155083%_ + (##cdr _%e154572155117%_))) + (_%hd154573155120%_ (let () (declare (not safe)) - (##car _%e154535155080%_)))) + (##car _%e154572155117%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154537155085%_)) + _%tl154574155122%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154534155077%_)) - (let ((_%e154538155088%_ + (gx#stx-pair? _%tl154571155114%_)) + (let ((_%e154575155125%_ (let () (declare (not safe)) - (gx#stx-e _%tl154534155077%_)))) - (let ((_%tl154540155093%_ + (gx#stx-e _%tl154571155114%_)))) + (let ((_%tl154577155130%_ (let () (declare (not safe)) - (##cdr _%e154538155088%_))) - (_%hd154539155091%_ + (##cdr _%e154575155125%_))) + (_%hd154576155128%_ (let () (declare (not safe)) - (##car _%e154538155088%_)))) + (##car _%e154575155125%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154540155093%_)) - (_%__match170835170836%_ - _%e154532155072%_ - _%hd154533155075%_ - _%tl154534155077%_ - _%e154535155080%_ - _%hd154536155083%_ - _%tl154537155085%_ - _%e154538155088%_ - _%hd154539155091%_ - _%tl154540155093%_) + (gx#stx-null? _%tl154577155130%_)) + (_%__match170872170873%_ + _%e154569155109%_ + _%hd154570155112%_ + _%tl154571155114%_ + _%e154572155117%_ + _%hd154573155120%_ + _%tl154574155122%_ + _%e154575155125%_ + _%hd154576155128%_ + _%tl154577155130%_) (let () (declare (not safe)) - (_%g154528154575%_))))) - (let () (declare (not safe)) (_%g154528154575%_))) + (_%g154565154612%_))))) + (let () (declare (not safe)) (_%g154565154612%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154534155077%_)) - (let ((_%e154568154588%_ + (gx#stx-pair? _%tl154571155114%_)) + (let ((_%e154605154625%_ (let () (declare (not safe)) - (gx#stx-e _%tl154534155077%_)))) - (let ((_%tl154570154593%_ + (gx#stx-e _%tl154571155114%_)))) + (let ((_%tl154607154630%_ (let () (declare (not safe)) - (##cdr _%e154568154588%_))) - (_%hd154569154591%_ + (##cdr _%e154605154625%_))) + (_%hd154606154628%_ (let () (declare (not safe)) - (##car _%e154568154588%_)))) + (##car _%e154605154625%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154570154593%_)) - (_%__kont170812170813%_ - _%hd154569154591%_ - _%hd154533155075%_) + (gx#stx-null? _%tl154607154630%_)) + (_%__kont170849170850%_ + _%hd154606154628%_ + _%hd154570155112%_) (let () (declare (not safe)) - (_%g154528154575%_))))) - (let () (declare (not safe)) (_%g154528154575%_)))))) + (_%g154565154612%_))))) + (let () (declare (not safe)) (_%g154565154612%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154534155077%_)) - (let ((_%e154568154588%_ + _%tl154571155114%_)) + (let ((_%e154605154625%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl154534155077%_)))) - (let ((_%tl154570154593%_ + (gx#stx-e _%tl154571155114%_)))) + (let ((_%tl154607154630%_ (let () (declare (not safe)) - (##cdr _%e154568154588%_))) - (_%hd154569154591%_ + (##cdr _%e154605154625%_))) + (_%hd154606154628%_ (let () (declare (not safe)) - (##car _%e154568154588%_)))) + (##car _%e154605154625%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154570154593%_)) - (_%__kont170812170813%_ - _%hd154569154591%_ - _%hd154533155075%_) - (let () (declare (not safe)) (_%g154528154575%_))))) - (let () (declare (not safe)) (_%g154528154575%_)))))) + (gx#stx-null? _%tl154607154630%_)) + (_%__kont170849170850%_ + _%hd154606154628%_ + _%hd154570155112%_) + (let () (declare (not safe)) (_%g154565154612%_))))) + (let () (declare (not safe)) (_%g154565154612%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g154528154575%_))))))))) - (if (pair? _%rest154503154511%_) - (let ((_%hd154508155193%_ + (_%g154565154612%_))))))))) + (if (pair? _%rest154540154548%_) + (let ((_%hd154545155230%_ (let () (declare (not safe)) - (##car _%rest154503154511%_))) - (_%tl154509155195%_ + (##car _%rest154540154548%_))) + (_%tl154546155232%_ (let () (declare (not safe)) - (##cdr _%rest154503154511%_)))) - (let* ((_%hd155198%_ _%hd154508155193%_) - (_%rest155200%_ _%tl154509155195%_)) - (_%K154507155190%_ - _%rest155200%_ - _%hd155198%_))) - (_%else154505154519%_))))))) - (let* ((_%__stx170896170897%_ _%stx154359%_) - (_%g154365154392%_ + (##cdr _%rest154540154548%_)))) + (let* ((_%hd155235%_ _%hd154545155230%_) + (_%rest155237%_ _%tl154546155232%_)) + (_%K154544155227%_ + _%rest155237%_ + _%hd155235%_))) + (_%else154542154556%_))))))) + (let* ((_%__stx170933170934%_ _%stx154396%_) + (_%g154402154429%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170896170897%_))))) - (let ((_%__kont170898170899%_ - (lambda (_%L154452%_ _%L154453%_ _%L154454%_) - (let ((__tmp171355 + _%__stx170933170934%_))))) + (let ((_%__kont170935170936%_ + (lambda (_%L154489%_ _%L154490%_ _%L154491%_) + (let ((__tmp171392 (lambda () - (let ((_%hd154491%_ - (_%compile-bindings154362%_ - (let ((__tmp171356 - (lambda (_%g154483154486%_ - _%g154484154488%_) - (cons _%g154483154486%_ - _%g154484154488%_)))) + (let ((_%hd154528%_ + (_%compile-bindings154399%_ + (let ((__tmp171393 + (lambda (_%g154520154523%_ + _%g154521154525%_) + (cons _%g154520154523%_ + _%g154521154525%_)))) (declare (not safe)) (__foldr1 - __tmp171356 + __tmp171393 '() - _%L154453%_)))) - (_%body154492%_ + _%L154490%_)))) + (_%body154529%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self154358%_ - _%L154452%_)))) - (let ((__tmp171357 - (cons _%L154454%_ - (cons _%hd154491%_ - (cons _%body154492%_ + _%self154395%_ + _%L154489%_)))) + (let ((__tmp171394 + (cons _%L154491%_ + (cons _%hd154528%_ + (cons _%body154529%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171357 - _%stx154359%_))))) - (__tmp171354 - (let ((__obj171008 + __tmp171394 + _%stx154396%_))))) + (__tmp171391 + (let ((__obj171045 (let () (declare (not safe)) (##structure @@ -24298,249 +24298,249 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj171008)) - __obj171008))) + (gx#local-context:::init!__0 __obj171045)) + __obj171045))) (declare (not safe)) (__call-with-parameters - __tmp171355 + __tmp171392 gx#current-expander-context - __tmp171354)))) - (_%__kont170902170903%_ + __tmp171391)))) + (_%__kont170939170940%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self154358%_ _%stx154359%_))))) - (let ((_%__match170923170924%_ - (lambda (_%e154370154404%_ - _%hd154371154407%_ - _%tl154372154409%_ - _%e154373154412%_ - _%hd154374154415%_ - _%tl154375154417%_ - _%__splice170900170901%_ - _%target154376154420%_ - _%tl154378154422%_) - (letrec ((_%loop154379154425%_ - (lambda (_%hd154377154428%_ - _%bind154383154430%_) + (gxc#xform-let-values% _%self154395%_ _%stx154396%_))))) + (let ((_%__match170960170961%_ + (lambda (_%e154407154441%_ + _%hd154408154444%_ + _%tl154409154446%_ + _%e154410154449%_ + _%hd154411154452%_ + _%tl154412154454%_ + _%__splice170937170938%_ + _%target154413154457%_ + _%tl154415154459%_) + (letrec ((_%loop154416154462%_ + (lambda (_%hd154414154465%_ + _%bind154420154467%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154377154428%_)) - (let ((_%e154380154433%_ + (gx#stx-pair? _%hd154414154465%_)) + (let ((_%e154417154470%_ (let () (declare (not safe)) (gx#stx-e - _%hd154377154428%_)))) - (let ((_%lp-tl154382154438%_ + _%hd154414154465%_)))) + (let ((_%lp-tl154419154475%_ (let () (declare (not safe)) - (##cdr _%e154380154433%_))) - (_%lp-hd154381154436%_ + (##cdr _%e154417154470%_))) + (_%lp-hd154418154473%_ (let () (declare (not safe)) - (##car _%e154380154433%_)))) - (_%loop154379154425%_ - _%lp-tl154382154438%_ - (cons _%lp-hd154381154436%_ - _%bind154383154430%_)))) - (let ((_%bind154384154441%_ - (reverse _%bind154383154430%_))) + (##car _%e154417154470%_)))) + (_%loop154416154462%_ + _%lp-tl154419154475%_ + (cons _%lp-hd154418154473%_ + _%bind154420154467%_)))) + (let ((_%bind154421154478%_ + (reverse _%bind154420154467%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154375154417%_)) - (let ((_%e154385154444%_ + _%tl154412154454%_)) + (let ((_%e154422154481%_ (let () (declare (not safe)) (gx#stx-e - _%tl154375154417%_)))) - (let ((_%tl154387154449%_ + _%tl154412154454%_)))) + (let ((_%tl154424154486%_ (let () (declare (not safe)) - (##cdr _%e154385154444%_))) - (_%hd154386154447%_ + (##cdr _%e154422154481%_))) + (_%hd154423154484%_ (let () (declare (not safe)) - (##car _%e154385154444%_)))) + (##car _%e154422154481%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154387154449%_)) - (let ((_%L154452%_ - _%hd154386154447%_) - (_%L154453%_ - _%bind154384154441%_) - (_%L154454%_ - _%hd154371154407%_)) - (if (let ((__tmp171358 + _%tl154424154486%_)) + (let ((_%L154489%_ + _%hd154423154484%_) + (_%L154490%_ + _%bind154421154478%_) + (_%L154491%_ + _%hd154408154444%_)) + (if (let ((__tmp171395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171359 - (lambda (_%g154475154478%_ _%g154476154480%_) - (cons _%g154475154478%_ - _%g154476154480%_)))) + (let ((__tmp171396 + (lambda (_%g154512154515%_ _%g154513154517%_) + (cons _%g154512154515%_ + _%g154513154517%_)))) (declare (not safe)) - (__foldr1 __tmp171359 '() _%L154453%_)))) + (__foldr1 __tmp171396 '() _%L154490%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp171358)) - (_%__kont170898170899%_ _%L154452%_ _%L154453%_ _%L154454%_) - (_%__kont170902170903%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp171395)) + (_%__kont170935170936%_ _%L154489%_ _%L154490%_ _%L154491%_) + (_%__kont170939170940%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170902170903%_)))) - (_%__kont170902170903%_))))))) - (_%loop154379154425%_ _%target154376154420%_ '()))))) + (_%__kont170939170940%_)))) + (_%__kont170939170940%_))))))) + (_%loop154416154462%_ _%target154413154457%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170896170897%_)) - (let ((_%e154370154404%_ + (gx#stx-pair? _%__stx170933170934%_)) + (let ((_%e154407154441%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170896170897%_)))) - (let ((_%tl154372154409%_ + (gx#stx-e _%__stx170933170934%_)))) + (let ((_%tl154409154446%_ (let () (declare (not safe)) - (##cdr _%e154370154404%_))) - (_%hd154371154407%_ + (##cdr _%e154407154441%_))) + (_%hd154408154444%_ (let () (declare (not safe)) - (##car _%e154370154404%_)))) + (##car _%e154407154441%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154372154409%_)) - (let ((_%e154373154412%_ + (gx#stx-pair? _%tl154409154446%_)) + (let ((_%e154410154449%_ (let () (declare (not safe)) - (gx#stx-e _%tl154372154409%_)))) - (let ((_%tl154375154417%_ + (gx#stx-e _%tl154409154446%_)))) + (let ((_%tl154412154454%_ (let () (declare (not safe)) - (##cdr _%e154373154412%_))) - (_%hd154374154415%_ + (##cdr _%e154410154449%_))) + (_%hd154411154452%_ (let () (declare (not safe)) - (##car _%e154373154412%_)))) + (##car _%e154410154449%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd154374154415%_)) - (let ((_%__splice170900170901%_ + (gx#stx-pair/null? _%hd154411154452%_)) + (let ((_%__splice170937170938%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd154374154415%_ + _%hd154411154452%_ '0)))) - (let ((_%tl154378154422%_ + (let ((_%tl154415154459%_ (let () (declare (not safe)) (##vector-ref - _%__splice170900170901%_ + _%__splice170937170938%_ '1))) - (_%target154376154420%_ + (_%target154413154457%_ (let () (declare (not safe)) (##vector-ref - _%__splice170900170901%_ + _%__splice170937170938%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154378154422%_)) - (_%__match170923170924%_ - _%e154370154404%_ - _%hd154371154407%_ - _%tl154372154409%_ - _%e154373154412%_ - _%hd154374154415%_ - _%tl154375154417%_ - _%__splice170900170901%_ - _%target154376154420%_ - _%tl154378154422%_) - (_%__kont170902170903%_)))) - (_%__kont170902170903%_)))) - (_%__kont170902170903%_)))) - (_%__kont170902170903%_)))))))) + _%tl154415154459%_)) + (_%__match170960170961%_ + _%e154407154441%_ + _%hd154408154444%_ + _%tl154409154446%_ + _%e154410154449%_ + _%hd154411154452%_ + _%tl154412154454%_ + _%__splice170937170938%_ + _%target154413154457%_ + _%tl154415154459%_) + (_%__kont170939170940%_)))) + (_%__kont170939170940%_)))) + (_%__kont170939170940%_)))) + (_%__kont170939170940%_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_%bind154276%_) - (let* ((_%__stx170926170927%_ _%bind154276%_) - (_%g154279154296%_ + (lambda (_%bind154313%_) + (let* ((_%__stx170963170964%_ _%bind154313%_) + (_%g154316154333%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170926170927%_))))) - (let ((_%__kont170928170929%_ - (lambda (_%L154332%_ _%L154333%_) + _%__stx170963170964%_))))) + (let ((_%__kont170965170966%_ + (lambda (_%L154369%_ _%L154370%_) (if (let () (declare (not safe)) - (gx#identifier? _%L154333%_)) - (let ((_%$e154349%_ - (gxc#case-lambda-expr? _%L154332%_))) - (if _%$e154349%_ - _%$e154349%_ - (let ((_%$e154352%_ - (gxc#opt-lambda-expr? _%L154332%_))) - (if _%$e154352%_ - _%$e154352%_ - (gxc#kw-lambda-expr? _%L154332%_))))) + (gx#identifier? _%L154370%_)) + (let ((_%$e154386%_ + (gxc#case-lambda-expr? _%L154369%_))) + (if _%$e154386%_ + _%$e154386%_ + (let ((_%$e154389%_ + (gxc#opt-lambda-expr? _%L154369%_))) + (if _%$e154389%_ + _%$e154389%_ + (gxc#kw-lambda-expr? _%L154369%_))))) '#f))) - (_%__kont170930170931%_ (lambda () '#f))) + (_%__kont170967170968%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170926170927%_)) - (let ((_%e154283154308%_ + (gx#stx-pair? _%__stx170963170964%_)) + (let ((_%e154320154345%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170926170927%_)))) - (let ((_%tl154285154313%_ + (gx#stx-e _%__stx170963170964%_)))) + (let ((_%tl154322154350%_ (let () (declare (not safe)) - (##cdr _%e154283154308%_))) - (_%hd154284154311%_ + (##cdr _%e154320154345%_))) + (_%hd154321154348%_ (let () (declare (not safe)) - (##car _%e154283154308%_)))) + (##car _%e154320154345%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154284154311%_)) - (let ((_%e154286154316%_ + (gx#stx-pair? _%hd154321154348%_)) + (let ((_%e154323154353%_ (let () (declare (not safe)) - (gx#stx-e _%hd154284154311%_)))) - (let ((_%tl154288154321%_ + (gx#stx-e _%hd154321154348%_)))) + (let ((_%tl154325154358%_ (let () (declare (not safe)) - (##cdr _%e154286154316%_))) - (_%hd154287154319%_ + (##cdr _%e154323154353%_))) + (_%hd154324154356%_ (let () (declare (not safe)) - (##car _%e154286154316%_)))) + (##car _%e154323154353%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154288154321%_)) + (gx#stx-null? _%tl154325154358%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154285154313%_)) - (let ((_%e154289154324%_ + (gx#stx-pair? _%tl154322154350%_)) + (let ((_%e154326154361%_ (let () (declare (not safe)) - (gx#stx-e _%tl154285154313%_)))) - (let ((_%tl154291154329%_ + (gx#stx-e _%tl154322154350%_)))) + (let ((_%tl154328154366%_ (let () (declare (not safe)) - (##cdr _%e154289154324%_))) - (_%hd154290154327%_ + (##cdr _%e154326154361%_))) + (_%hd154327154364%_ (let () (declare (not safe)) - (##car _%e154289154324%_)))) + (##car _%e154326154361%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154291154329%_)) - (_%__kont170928170929%_ - _%hd154290154327%_ - _%hd154287154319%_) - (_%__kont170930170931%_)))) - (_%__kont170930170931%_)) - (_%__kont170930170931%_)))) - (_%__kont170930170931%_)))) - (_%__kont170930170931%_)))))))) + _%tl154328154366%_)) + (_%__kont170965170966%_ + _%hd154327154364%_ + _%hd154324154356%_) + (_%__kont170967170968%_)))) + (_%__kont170967170968%_)) + (_%__kont170967170968%_)))) + (_%__kont170967170968%_)))) + (_%__kont170967170968%_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~1.scm b/src/bootstrap/gerbil/compiler/optimize-top~1.scm index 65376ffca..9bac0d913 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]#_g171361_| + (define |gxc[1]#_g171398_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171363_| + (define |gxc[1]#_g171400_| (##structure gx#syntax-quote::t '::collect-top-level-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171365_| + (define |gxc[1]#_g171402_| (##structure gx#syntax-quote::t 'make-::collect-top-level-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171367_| + (define |gxc[1]#_g171404_| (##structure gx#syntax-quote::t '::collect-top-level-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171370_| + (define |gxc[1]#_g171407_| (##structure gx#syntax-quote::t '::collect-top-level-declarations::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171372_| + (define |gxc[1]#_g171409_| (##structure gx#syntax-quote::t 'make-::collect-top-level-declarations #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171374_| + (define |gxc[1]#_g171411_| (##structure gx#syntax-quote::t '::collect-top-level-declarations? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171376_| + (define |gxc[1]#_g171413_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171378_| + (define |gxc[1]#_g171415_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171380_| + (define |gxc[1]#_g171417_| (##structure gx#syntax-quote::t 'make-::basic-expression-top-level-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171382_| + (define |gxc[1]#_g171419_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171385_| + (define |gxc[1]#_g171422_| (##structure gx#syntax-quote::t '::collect-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171387_| + (define |gxc[1]#_g171424_| (##structure gx#syntax-quote::t 'make-::collect-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171389_| + (define |gxc[1]#_g171426_| (##structure gx#syntax-quote::t '::collect-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171392_| + (define |gxc[1]#_g171429_| (##structure gx#syntax-quote::t '::collect-mutable-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171394_| + (define |gxc[1]#_g171431_| (##structure gx#syntax-quote::t 'make-::collect-mutable-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171396_| + (define |gxc[1]#_g171433_| (##structure gx#syntax-quote::t '::collect-mutable-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171399_| + (define |gxc[1]#_g171436_| (##structure gx#syntax-quote::t '::refine-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171401_| + (define |gxc[1]#_g171438_| (##structure gx#syntax-quote::t 'make-::refine-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171403_| + (define |gxc[1]#_g171440_| (##structure gx#syntax-quote::t '::refine-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171406_| + (define |gxc[1]#_g171443_| (##structure gx#syntax-quote::t '::raw-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171408_| + (define |gxc[1]#_g171445_| (##structure gx#syntax-quote::t 'make-::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171410_| + (define |gxc[1]#_g171447_| (##structure gx#syntax-quote::t '::raw-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171412_| + (define |gxc[1]#_g171449_| (##structure gx#syntax-quote::t '::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171414_| + (define |gxc[1]#_g171451_| (##structure gx#syntax-quote::t '::basic-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171416_| + (define |gxc[1]#_g171453_| (##structure gx#syntax-quote::t 'make-::basic-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171418_| + (define |gxc[1]#_g171455_| (##structure gx#syntax-quote::t '::basic-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171420_| + (define |gxc[1]#_g171457_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171422_| + (define |gxc[1]#_g171459_| (##structure gx#syntax-quote::t '::lift-top-lambdas::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171424_| + (define |gxc[1]#_g171461_| (##structure gx#syntax-quote::t 'make-::lift-top-lambdas #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171426_| + (define |gxc[1]#_g171463_| (##structure gx#syntax-quote::t '::lift-top-lambdas? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171429_| + (define |gxc[1]#_g171466_| (##structure gx#syntax-quote::t '::extract-lambda-signature::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171431_| + (define |gxc[1]#_g171468_| (##structure gx#syntax-quote::t 'make-::extract-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171433_| + (define |gxc[1]#_g171470_| (##structure gx#syntax-quote::t '::extract-lambda-signature? @@ -240,7 +240,7 @@ '())) (begin (define |gxc[:0:]#::collect-top-level-type-info| - (let ((__obj170955 + (let ((__obj170992 (let () (declare (not safe)) (##structure @@ -269,7 +269,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170955 + __obj170992 'gxc#::collect-top-level-type-info::t '1 '#f @@ -277,65 +277,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170955 + __obj170992 '::collect-top-level-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170992 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '() '6 '#f '#f)) - (let ((__tmp171360 (cons |gxc[1]#_g171361_| '()))) + (##unchecked-structure-set! __obj170992 '() '6 '#f '#f)) + (let ((__tmp171397 (cons |gxc[1]#_g171398_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170955 __tmp171360 '3 '#f '#f)) + (##unchecked-structure-set! __obj170992 __tmp171397 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170992 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170992 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170992 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '#f '11 '#f '#f)) - (let ((__tmp171362 |gxc[1]#_g171363_|)) + (##unchecked-structure-set! __obj170992 '#f '11 '#f '#f)) + (let ((__tmp171399 |gxc[1]#_g171400_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170955 __tmp171362 '12 '#f '#f)) - (let ((__tmp171364 |gxc[1]#_g171365_|)) + (##unchecked-structure-set! __obj170992 __tmp171399 '12 '#f '#f)) + (let ((__tmp171401 |gxc[1]#_g171402_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170955 __tmp171364 '13 '#f '#f)) - (let ((__tmp171366 |gxc[1]#_g171367_|)) + (##unchecked-structure-set! __obj170992 __tmp171401 '13 '#f '#f)) + (let ((__tmp171403 |gxc[1]#_g171404_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170955 __tmp171366 '14 '#f '#f)) + (##unchecked-structure-set! __obj170992 __tmp171403 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170992 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170992 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170992 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170992 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170992 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170992 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170955 '() '20 '#f '#f)) - __obj170955)) + (##unchecked-structure-set! __obj170992 '() '20 '#f '#f)) + __obj170992)) (define |gxc[:0:]#::collect-top-level-declarations| - (let ((__obj170957 + (let ((__obj170994 (let () (declare (not safe)) (##structure @@ -364,7 +364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170957 + __obj170994 'gxc#::collect-top-level-declarations::t '1 '#f @@ -372,65 +372,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170957 + __obj170994 '::collect-top-level-declarations '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170994 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '() '6 '#f '#f)) - (let ((__tmp171368 (cons |gxc[1]#_g171361_| '()))) + (##unchecked-structure-set! __obj170994 '() '6 '#f '#f)) + (let ((__tmp171405 (cons |gxc[1]#_g171398_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170957 __tmp171368 '3 '#f '#f)) + (##unchecked-structure-set! __obj170994 __tmp171405 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170994 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170994 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170994 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '#f '11 '#f '#f)) - (let ((__tmp171369 |gxc[1]#_g171370_|)) + (##unchecked-structure-set! __obj170994 '#f '11 '#f '#f)) + (let ((__tmp171406 |gxc[1]#_g171407_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170957 __tmp171369 '12 '#f '#f)) - (let ((__tmp171371 |gxc[1]#_g171372_|)) + (##unchecked-structure-set! __obj170994 __tmp171406 '12 '#f '#f)) + (let ((__tmp171408 |gxc[1]#_g171409_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170957 __tmp171371 '13 '#f '#f)) - (let ((__tmp171373 |gxc[1]#_g171374_|)) + (##unchecked-structure-set! __obj170994 __tmp171408 '13 '#f '#f)) + (let ((__tmp171410 |gxc[1]#_g171411_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170957 __tmp171373 '14 '#f '#f)) + (##unchecked-structure-set! __obj170994 __tmp171410 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170994 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170994 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170994 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170994 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170994 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170994 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170957 '() '20 '#f '#f)) - __obj170957)) + (##unchecked-structure-set! __obj170994 '() '20 '#f '#f)) + __obj170994)) (define |gxc[:0:]#::basic-expression-top-level-type| - (let ((__obj170959 + (let ((__obj170996 (let () (declare (not safe)) (##structure @@ -459,7 +459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170959 + __obj170996 'gxc#::basic-expression-top-level-type::t '1 '#f @@ -467,65 +467,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170959 + __obj170996 '::basic-expression-top-level-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170996 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '() '6 '#f '#f)) - (let ((__tmp171375 (cons |gxc[1]#_g171376_| '()))) + (##unchecked-structure-set! __obj170996 '() '6 '#f '#f)) + (let ((__tmp171412 (cons |gxc[1]#_g171413_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170959 __tmp171375 '3 '#f '#f)) + (##unchecked-structure-set! __obj170996 __tmp171412 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170996 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170996 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170996 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '#f '11 '#f '#f)) - (let ((__tmp171377 |gxc[1]#_g171378_|)) + (##unchecked-structure-set! __obj170996 '#f '11 '#f '#f)) + (let ((__tmp171414 |gxc[1]#_g171415_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170959 __tmp171377 '12 '#f '#f)) - (let ((__tmp171379 |gxc[1]#_g171380_|)) + (##unchecked-structure-set! __obj170996 __tmp171414 '12 '#f '#f)) + (let ((__tmp171416 |gxc[1]#_g171417_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170959 __tmp171379 '13 '#f '#f)) - (let ((__tmp171381 |gxc[1]#_g171382_|)) + (##unchecked-structure-set! __obj170996 __tmp171416 '13 '#f '#f)) + (let ((__tmp171418 |gxc[1]#_g171419_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170959 __tmp171381 '14 '#f '#f)) + (##unchecked-structure-set! __obj170996 __tmp171418 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170996 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170996 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170996 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170996 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170996 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170996 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170959 '() '20 '#f '#f)) - __obj170959)) + (##unchecked-structure-set! __obj170996 '() '20 '#f '#f)) + __obj170996)) (define |gxc[:0:]#::collect-type-info| - (let ((__obj170961 + (let ((__obj170998 (let () (declare (not safe)) (##structure @@ -554,7 +554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170961 + __obj170998 'gxc#::collect-type-info::t '1 '#f @@ -562,65 +562,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170961 + __obj170998 '::collect-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj170998 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '() '6 '#f '#f)) - (let ((__tmp171383 (cons |gxc[1]#_g171361_| '()))) + (##unchecked-structure-set! __obj170998 '() '6 '#f '#f)) + (let ((__tmp171420 (cons |gxc[1]#_g171398_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170961 __tmp171383 '3 '#f '#f)) + (##unchecked-structure-set! __obj170998 __tmp171420 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj170998 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj170998 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj170998 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '#f '11 '#f '#f)) - (let ((__tmp171384 |gxc[1]#_g171385_|)) + (##unchecked-structure-set! __obj170998 '#f '11 '#f '#f)) + (let ((__tmp171421 |gxc[1]#_g171422_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170961 __tmp171384 '12 '#f '#f)) - (let ((__tmp171386 |gxc[1]#_g171387_|)) + (##unchecked-structure-set! __obj170998 __tmp171421 '12 '#f '#f)) + (let ((__tmp171423 |gxc[1]#_g171424_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170961 __tmp171386 '13 '#f '#f)) - (let ((__tmp171388 |gxc[1]#_g171389_|)) + (##unchecked-structure-set! __obj170998 __tmp171423 '13 '#f '#f)) + (let ((__tmp171425 |gxc[1]#_g171426_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170961 __tmp171388 '14 '#f '#f)) + (##unchecked-structure-set! __obj170998 __tmp171425 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj170998 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj170998 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj170998 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj170998 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj170998 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj170998 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170961 '() '20 '#f '#f)) - __obj170961)) + (##unchecked-structure-set! __obj170998 '() '20 '#f '#f)) + __obj170998)) (define |gxc[:0:]#::collect-mutable-type-info| - (let ((__obj170963 + (let ((__obj171000 (let () (declare (not safe)) (##structure @@ -649,7 +649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170963 + __obj171000 'gxc#::collect-mutable-type-info::t '1 '#f @@ -657,65 +657,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170963 + __obj171000 '::collect-mutable-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171000 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '() '6 '#f '#f)) - (let ((__tmp171390 (cons |gxc[1]#_g171361_| '()))) + (##unchecked-structure-set! __obj171000 '() '6 '#f '#f)) + (let ((__tmp171427 (cons |gxc[1]#_g171398_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170963 __tmp171390 '3 '#f '#f)) + (##unchecked-structure-set! __obj171000 __tmp171427 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171000 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171000 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171000 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '#f '11 '#f '#f)) - (let ((__tmp171391 |gxc[1]#_g171392_|)) + (##unchecked-structure-set! __obj171000 '#f '11 '#f '#f)) + (let ((__tmp171428 |gxc[1]#_g171429_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170963 __tmp171391 '12 '#f '#f)) - (let ((__tmp171393 |gxc[1]#_g171394_|)) + (##unchecked-structure-set! __obj171000 __tmp171428 '12 '#f '#f)) + (let ((__tmp171430 |gxc[1]#_g171431_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170963 __tmp171393 '13 '#f '#f)) - (let ((__tmp171395 |gxc[1]#_g171396_|)) + (##unchecked-structure-set! __obj171000 __tmp171430 '13 '#f '#f)) + (let ((__tmp171432 |gxc[1]#_g171433_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170963 __tmp171395 '14 '#f '#f)) + (##unchecked-structure-set! __obj171000 __tmp171432 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171000 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171000 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171000 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171000 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171000 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171000 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170963 '() '20 '#f '#f)) - __obj170963)) + (##unchecked-structure-set! __obj171000 '() '20 '#f '#f)) + __obj171000)) (define |gxc[:0:]#::refine-type-info| - (let ((__obj170965 + (let ((__obj171002 (let () (declare (not safe)) (##structure @@ -744,7 +744,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170965 + __obj171002 'gxc#::refine-type-info::t '1 '#f @@ -752,65 +752,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170965 + __obj171002 '::refine-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171002 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '() '6 '#f '#f)) - (let ((__tmp171397 (cons |gxc[1]#_g171361_| '()))) + (##unchecked-structure-set! __obj171002 '() '6 '#f '#f)) + (let ((__tmp171434 (cons |gxc[1]#_g171398_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170965 __tmp171397 '3 '#f '#f)) + (##unchecked-structure-set! __obj171002 __tmp171434 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171002 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171002 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171002 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '#f '11 '#f '#f)) - (let ((__tmp171398 |gxc[1]#_g171399_|)) + (##unchecked-structure-set! __obj171002 '#f '11 '#f '#f)) + (let ((__tmp171435 |gxc[1]#_g171436_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170965 __tmp171398 '12 '#f '#f)) - (let ((__tmp171400 |gxc[1]#_g171401_|)) + (##unchecked-structure-set! __obj171002 __tmp171435 '12 '#f '#f)) + (let ((__tmp171437 |gxc[1]#_g171438_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170965 __tmp171400 '13 '#f '#f)) - (let ((__tmp171402 |gxc[1]#_g171403_|)) + (##unchecked-structure-set! __obj171002 __tmp171437 '13 '#f '#f)) + (let ((__tmp171439 |gxc[1]#_g171440_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170965 __tmp171402 '14 '#f '#f)) + (##unchecked-structure-set! __obj171002 __tmp171439 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171002 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171002 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171002 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171002 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171002 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171002 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170965 '() '20 '#f '#f)) - __obj170965)) + (##unchecked-structure-set! __obj171002 '() '20 '#f '#f)) + __obj171002)) (define |gxc[:0:]#::raw-expression-type| - (let ((__obj170967 + (let ((__obj171004 (let () (declare (not safe)) (##structure @@ -839,7 +839,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170967 + __obj171004 'gxc#::raw-expression-type::t '1 '#f @@ -847,65 +847,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170967 + __obj171004 '::raw-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171004 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '() '6 '#f '#f)) - (let ((__tmp171404 (cons |gxc[1]#_g171376_| '()))) + (##unchecked-structure-set! __obj171004 '() '6 '#f '#f)) + (let ((__tmp171441 (cons |gxc[1]#_g171413_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170967 __tmp171404 '3 '#f '#f)) + (##unchecked-structure-set! __obj171004 __tmp171441 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171004 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj171004 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171004 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '#f '11 '#f '#f)) - (let ((__tmp171405 |gxc[1]#_g171406_|)) + (##unchecked-structure-set! __obj171004 '#f '11 '#f '#f)) + (let ((__tmp171442 |gxc[1]#_g171443_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170967 __tmp171405 '12 '#f '#f)) - (let ((__tmp171407 |gxc[1]#_g171408_|)) + (##unchecked-structure-set! __obj171004 __tmp171442 '12 '#f '#f)) + (let ((__tmp171444 |gxc[1]#_g171445_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170967 __tmp171407 '13 '#f '#f)) - (let ((__tmp171409 |gxc[1]#_g171410_|)) + (##unchecked-structure-set! __obj171004 __tmp171444 '13 '#f '#f)) + (let ((__tmp171446 |gxc[1]#_g171447_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170967 __tmp171409 '14 '#f '#f)) + (##unchecked-structure-set! __obj171004 __tmp171446 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171004 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171004 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171004 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171004 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171004 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171004 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170967 '() '20 '#f '#f)) - __obj170967)) + (##unchecked-structure-set! __obj171004 '() '20 '#f '#f)) + __obj171004)) (define |gxc[:0:]#::basic-expression-type| - (let ((__obj170969 + (let ((__obj171006 (let () (declare (not safe)) (##structure @@ -934,7 +934,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170969 + __obj171006 'gxc#::basic-expression-type::t '1 '#f @@ -942,66 +942,66 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170969 + __obj171006 '::basic-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171006 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '() '6 '#f '#f)) - (let ((__tmp171411 - (cons |gxc[1]#_g171412_| (cons |gxc[1]#_g171376_| '())))) + (##unchecked-structure-set! __obj171006 '() '6 '#f '#f)) + (let ((__tmp171448 + (cons |gxc[1]#_g171449_| (cons |gxc[1]#_g171413_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj170969 __tmp171411 '3 '#f '#f)) + (##unchecked-structure-set! __obj171006 __tmp171448 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171006 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171006 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171006 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '#f '11 '#f '#f)) - (let ((__tmp171413 |gxc[1]#_g171414_|)) + (##unchecked-structure-set! __obj171006 '#f '11 '#f '#f)) + (let ((__tmp171450 |gxc[1]#_g171451_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170969 __tmp171413 '12 '#f '#f)) - (let ((__tmp171415 |gxc[1]#_g171416_|)) + (##unchecked-structure-set! __obj171006 __tmp171450 '12 '#f '#f)) + (let ((__tmp171452 |gxc[1]#_g171453_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170969 __tmp171415 '13 '#f '#f)) - (let ((__tmp171417 |gxc[1]#_g171418_|)) + (##unchecked-structure-set! __obj171006 __tmp171452 '13 '#f '#f)) + (let ((__tmp171454 |gxc[1]#_g171455_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170969 __tmp171417 '14 '#f '#f)) + (##unchecked-structure-set! __obj171006 __tmp171454 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171006 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171006 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171006 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171006 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171006 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171006 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170969 '() '20 '#f '#f)) - __obj170969)) + (##unchecked-structure-set! __obj171006 '() '20 '#f '#f)) + __obj171006)) (define |gxc[:0:]#::lift-top-lambdas| - (let ((__obj170971 + (let ((__obj171008 (let () (declare (not safe)) (##structure @@ -1030,7 +1030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170971 + __obj171008 'gxc#::lift-top-lambdas::t '1 '#f @@ -1038,65 +1038,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170971 + __obj171008 '::lift-top-lambdas '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171008 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '() '6 '#f '#f)) - (let ((__tmp171419 (cons |gxc[1]#_g171420_| '()))) + (##unchecked-structure-set! __obj171008 '() '6 '#f '#f)) + (let ((__tmp171456 (cons |gxc[1]#_g171457_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170971 __tmp171419 '3 '#f '#f)) + (##unchecked-structure-set! __obj171008 __tmp171456 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171008 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171008 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171008 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '#f '11 '#f '#f)) - (let ((__tmp171421 |gxc[1]#_g171422_|)) + (##unchecked-structure-set! __obj171008 '#f '11 '#f '#f)) + (let ((__tmp171458 |gxc[1]#_g171459_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170971 __tmp171421 '12 '#f '#f)) - (let ((__tmp171423 |gxc[1]#_g171424_|)) + (##unchecked-structure-set! __obj171008 __tmp171458 '12 '#f '#f)) + (let ((__tmp171460 |gxc[1]#_g171461_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170971 __tmp171423 '13 '#f '#f)) - (let ((__tmp171425 |gxc[1]#_g171426_|)) + (##unchecked-structure-set! __obj171008 __tmp171460 '13 '#f '#f)) + (let ((__tmp171462 |gxc[1]#_g171463_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170971 __tmp171425 '14 '#f '#f)) + (##unchecked-structure-set! __obj171008 __tmp171462 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171008 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171008 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171008 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171008 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171008 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171008 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170971 '() '20 '#f '#f)) - __obj170971)) + (##unchecked-structure-set! __obj171008 '() '20 '#f '#f)) + __obj171008)) (define |gxc[:0:]#::extract-lambda-signature| - (let ((__obj170973 + (let ((__obj171010 (let () (declare (not safe)) (##structure @@ -1125,7 +1125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170973 + __obj171010 'gxc#::extract-lambda-signature::t '1 '#f @@ -1133,189 +1133,189 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170973 + __obj171010 '::extract-lambda-signature '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171010 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '() '6 '#f '#f)) - (let ((__tmp171427 (cons |gxc[1]#_g171376_| '()))) + (##unchecked-structure-set! __obj171010 '() '6 '#f '#f)) + (let ((__tmp171464 (cons |gxc[1]#_g171413_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170973 __tmp171427 '3 '#f '#f)) + (##unchecked-structure-set! __obj171010 __tmp171464 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171010 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171010 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171010 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '#f '11 '#f '#f)) - (let ((__tmp171428 |gxc[1]#_g171429_|)) + (##unchecked-structure-set! __obj171010 '#f '11 '#f '#f)) + (let ((__tmp171465 |gxc[1]#_g171466_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170973 __tmp171428 '12 '#f '#f)) - (let ((__tmp171430 |gxc[1]#_g171431_|)) + (##unchecked-structure-set! __obj171010 __tmp171465 '12 '#f '#f)) + (let ((__tmp171467 |gxc[1]#_g171468_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170973 __tmp171430 '13 '#f '#f)) - (let ((__tmp171432 |gxc[1]#_g171433_|)) + (##unchecked-structure-set! __obj171010 __tmp171467 '13 '#f '#f)) + (let ((__tmp171469 |gxc[1]#_g171470_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170973 __tmp171432 '14 '#f '#f)) + (##unchecked-structure-set! __obj171010 __tmp171469 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171010 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171010 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171010 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171010 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171010 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171010 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170973 '() '20 '#f '#f)) - __obj170973)) + (##unchecked-structure-set! __obj171010 '() '20 '#f '#f)) + __obj171010)) (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_%$stx153993%_) - (let* ((_%g153997154026%_ - (lambda (_%g153998154022%_) + (lambda (_%$stx154030%_) + (let* ((_%g154034154063%_ + (lambda (_%g154035154059%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153998154022%_)))) - (_%g153996154127%_ - (lambda (_%g153998154030%_) + _%g154035154059%_)))) + (_%g154033154164%_ + (lambda (_%g154035154067%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153998154030%_)) - (let ((_%e154001154033%_ + (gx#stx-pair? _%g154035154067%_)) + (let ((_%e154038154070%_ (let () (declare (not safe)) - (gx#syntax-e _%g153998154030%_)))) - (let ((_%hd154002154037%_ + (gx#syntax-e _%g154035154067%_)))) + (let ((_%hd154039154074%_ (let () (declare (not safe)) - (##car _%e154001154033%_))) - (_%tl154003154040%_ + (##car _%e154038154070%_))) + (_%tl154040154077%_ (let () (declare (not safe)) - (##cdr _%e154001154033%_)))) + (##cdr _%e154038154070%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl154003154040%_)) - (let ((_g171434_ + (gx#stx-pair/null? _%tl154040154077%_)) + (let ((_g171471_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl154003154040%_ + _%tl154040154077%_ '0)))) (begin - (let ((_g171435_ + (let ((_g171472_ (let () (declare (not safe)) - (if (##values? _g171434_) - (##vector-length _g171434_) + (if (##values? _g171471_) + (##vector-length _g171471_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171435_ 2))) + (##fx= _g171472_ 2))) (error "Context expects 2 values" - _g171435_))) - (let ((_%target154004154043%_ + _g171472_))) + (let ((_%target154041154080%_ (let () (declare (not safe)) - (##vector-ref _g171434_ 0))) - (_%tl154006154046%_ + (##vector-ref _g171471_ 0))) + (_%tl154043154083%_ (let () (declare (not safe)) - (##vector-ref _g171434_ 1)))) + (##vector-ref _g171471_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154006154046%_)) - (letrec ((_%loop154007154049%_ - (lambda (_%hd154005154053%_ - _%type-e154011154056%_ - _%id154012154058%_) + (gx#stx-null? _%tl154043154083%_)) + (letrec ((_%loop154044154086%_ + (lambda (_%hd154042154090%_ + _%type-e154048154093%_ + _%id154049154095%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154005154053%_)) - (let ((_%e154008154061%_ + _%hd154042154090%_)) + (let ((_%e154045154098%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd154005154053%_)))) - (let ((_%lp-hd154009154065%_ + (gx#syntax-e _%hd154042154090%_)))) + (let ((_%lp-hd154046154102%_ (let () (declare (not safe)) - (##car _%e154008154061%_))) - (_%lp-tl154010154068%_ + (##car _%e154045154098%_))) + (_%lp-tl154047154105%_ (let () (declare (not safe)) - (##cdr _%e154008154061%_)))) + (##cdr _%e154045154098%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd154009154065%_)) - (let ((_%e154015154071%_ + (gx#stx-pair? _%lp-hd154046154102%_)) + (let ((_%e154052154108%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd154009154065%_)))) - (let ((_%hd154016154075%_ + (gx#syntax-e _%lp-hd154046154102%_)))) + (let ((_%hd154053154112%_ (let () (declare (not safe)) - (##car _%e154015154071%_))) - (_%tl154017154078%_ + (##car _%e154052154108%_))) + (_%tl154054154115%_ (let () (declare (not safe)) - (##cdr _%e154015154071%_)))) + (##cdr _%e154052154108%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154017154078%_)) - (let ((_%e154018154081%_ + (gx#stx-pair? _%tl154054154115%_)) + (let ((_%e154055154118%_ (let () (declare (not safe)) - (gx#syntax-e _%tl154017154078%_)))) - (let ((_%hd154019154085%_ + (gx#syntax-e _%tl154054154115%_)))) + (let ((_%hd154056154122%_ (let () (declare (not safe)) - (##car _%e154018154081%_))) - (_%tl154020154088%_ + (##car _%e154055154118%_))) + (_%tl154057154125%_ (let () (declare (not safe)) - (##cdr _%e154018154081%_)))) + (##cdr _%e154055154118%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154020154088%_)) - (_%loop154007154049%_ - _%lp-tl154010154068%_ - (cons _%hd154019154085%_ - _%type-e154011154056%_) - (cons _%hd154016154075%_ - _%id154012154058%_)) - (_%g153997154026%_ - _%g153998154030%_)))) - (_%g153997154026%_ _%g153998154030%_)))) - (_%g153997154026%_ _%g153998154030%_)))) - (let ((_%type-e154013154091%_ (reverse _%type-e154011154056%_)) - (_%id154014154094%_ (reverse _%id154012154058%_))) - ((lambda (_%L154097%_ _%L154099%_) + (gx#stx-null? _%tl154057154125%_)) + (_%loop154044154086%_ + _%lp-tl154047154105%_ + (cons _%hd154056154122%_ + _%type-e154048154093%_) + (cons _%hd154053154112%_ + _%id154049154095%_)) + (_%g154034154063%_ + _%g154035154067%_)))) + (_%g154034154063%_ _%g154035154067%_)))) + (_%g154034154063%_ _%g154035154067%_)))) + (let ((_%type-e154050154128%_ (reverse _%type-e154048154093%_)) + (_%id154051154131%_ (reverse _%id154049154095%_))) + ((lambda (_%L154134%_ _%L154136%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1323,12 +1323,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L154097%_ - _%L154099%_)) - (let ((__tmp171436 - (lambda (_%g154115154119%_ - _%g154116154122%_ - _%g154117154124%_) + _%L154134%_ + _%L154136%_)) + (let ((__tmp171473 + (lambda (_%g154152154156%_ + _%g154153154159%_ + _%g154154154161%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1343,154 +1343,154 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g154116154122%_ '())) - (cons _%g154115154119%_ '())))) + (cons _%g154153154159%_ '())) + (cons _%g154152154156%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g154117154124%_)))) + _%g154154154161%_)))) (declare (not safe)) (__foldr2 - __tmp171436 + __tmp171473 '() - _%L154097%_ - _%L154099%_))))) - _%type-e154013154091%_ - _%id154014154094%_)))))) + _%L154134%_ + _%L154136%_))))) + _%type-e154050154128%_ + _%id154051154131%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop154007154049%_ - _%target154004154043%_ + (_%loop154044154086%_ + _%target154041154080%_ '() '())) - (_%g153997154026%_ - _%g153998154030%_))))) - (_%g153997154026%_ _%g153998154030%_)))) - (_%g153997154026%_ _%g153998154030%_))))) - (_%g153996154127%_ _%$stx153993%_)))) + (_%g154034154063%_ + _%g154035154067%_))))) + (_%g154034154063%_ _%g154035154067%_)))) + (_%g154034154063%_ _%g154035154067%_))))) + (_%g154033154164%_ _%$stx154030%_)))) (define |gxc[:0:]#defbasic-expression-type-special| - (lambda (_%$stx154132%_) - (let* ((_%g154136154165%_ - (lambda (_%g154137154161%_) + (lambda (_%$stx154169%_) + (let* ((_%g154173154202%_ + (lambda (_%g154174154198%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154137154161%_)))) - (_%g154135154265%_ - (lambda (_%g154137154169%_) + _%g154174154198%_)))) + (_%g154172154302%_ + (lambda (_%g154174154206%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g154137154169%_)) - (let ((_%e154140154172%_ + (gx#stx-pair? _%g154174154206%_)) + (let ((_%e154177154209%_ (let () (declare (not safe)) - (gx#syntax-e _%g154137154169%_)))) - (let ((_%hd154141154176%_ + (gx#syntax-e _%g154174154206%_)))) + (let ((_%hd154178154213%_ (let () (declare (not safe)) - (##car _%e154140154172%_))) - (_%tl154142154179%_ + (##car _%e154177154209%_))) + (_%tl154179154216%_ (let () (declare (not safe)) - (##cdr _%e154140154172%_)))) + (##cdr _%e154177154209%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl154142154179%_)) - (let ((_g171437_ + (gx#stx-pair/null? _%tl154179154216%_)) + (let ((_g171474_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl154142154179%_ + _%tl154179154216%_ '0)))) (begin - (let ((_g171438_ + (let ((_g171475_ (let () (declare (not safe)) - (if (##values? _g171437_) - (##vector-length _g171437_) + (if (##values? _g171474_) + (##vector-length _g171474_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171438_ 2))) + (##fx= _g171475_ 2))) (error "Context expects 2 values" - _g171438_))) - (let ((_%target154143154182%_ + _g171475_))) + (let ((_%target154180154219%_ (let () (declare (not safe)) - (##vector-ref _g171437_ 0))) - (_%tl154145154185%_ + (##vector-ref _g171474_ 0))) + (_%tl154182154222%_ (let () (declare (not safe)) - (##vector-ref _g171437_ 1)))) + (##vector-ref _g171474_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154145154185%_)) - (letrec ((_%loop154146154188%_ - (lambda (_%hd154144154192%_ - _%type-e154150154195%_ - _%id154151154197%_) + (gx#stx-null? _%tl154182154222%_)) + (letrec ((_%loop154183154225%_ + (lambda (_%hd154181154229%_ + _%type-e154187154232%_ + _%id154188154234%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154144154192%_)) - (let ((_%e154147154200%_ + _%hd154181154229%_)) + (let ((_%e154184154237%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd154144154192%_)))) - (let ((_%lp-hd154148154204%_ + (gx#syntax-e _%hd154181154229%_)))) + (let ((_%lp-hd154185154241%_ (let () (declare (not safe)) - (##car _%e154147154200%_))) - (_%lp-tl154149154207%_ + (##car _%e154184154237%_))) + (_%lp-tl154186154244%_ (let () (declare (not safe)) - (##cdr _%e154147154200%_)))) + (##cdr _%e154184154237%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd154148154204%_)) - (let ((_%e154154154210%_ + (gx#stx-pair? _%lp-hd154185154241%_)) + (let ((_%e154191154247%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd154148154204%_)))) - (let ((_%hd154155154214%_ + (gx#syntax-e _%lp-hd154185154241%_)))) + (let ((_%hd154192154251%_ (let () (declare (not safe)) - (##car _%e154154154210%_))) - (_%tl154156154217%_ + (##car _%e154191154247%_))) + (_%tl154193154254%_ (let () (declare (not safe)) - (##cdr _%e154154154210%_)))) + (##cdr _%e154191154247%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154156154217%_)) - (let ((_%e154157154220%_ + (gx#stx-pair? _%tl154193154254%_)) + (let ((_%e154194154257%_ (let () (declare (not safe)) - (gx#syntax-e _%tl154156154217%_)))) - (let ((_%hd154158154224%_ + (gx#syntax-e _%tl154193154254%_)))) + (let ((_%hd154195154261%_ (let () (declare (not safe)) - (##car _%e154157154220%_))) - (_%tl154159154227%_ + (##car _%e154194154257%_))) + (_%tl154196154264%_ (let () (declare (not safe)) - (##cdr _%e154157154220%_)))) + (##cdr _%e154194154257%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154159154227%_)) - (_%loop154146154188%_ - _%lp-tl154149154207%_ - (cons _%hd154158154224%_ - _%type-e154150154195%_) - (cons _%hd154155154214%_ - _%id154151154197%_)) - (_%g154136154165%_ - _%g154137154169%_)))) - (_%g154136154165%_ _%g154137154169%_)))) - (_%g154136154165%_ _%g154137154169%_)))) - (let ((_%type-e154152154230%_ (reverse _%type-e154150154195%_)) - (_%id154153154233%_ (reverse _%id154151154197%_))) - ((lambda (_%L154236%_ _%L154238%_) + (gx#stx-null? _%tl154196154264%_)) + (_%loop154183154225%_ + _%lp-tl154186154244%_ + (cons _%hd154195154261%_ + _%type-e154187154232%_) + (cons _%hd154192154251%_ + _%id154188154234%_)) + (_%g154173154202%_ + _%g154174154206%_)))) + (_%g154173154202%_ _%g154174154206%_)))) + (_%g154173154202%_ _%g154174154206%_)))) + (let ((_%type-e154189154267%_ (reverse _%type-e154187154232%_)) + (_%id154190154270%_ (reverse _%id154188154234%_))) + ((lambda (_%L154273%_ _%L154275%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1498,12 +1498,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L154236%_ - _%L154238%_)) - (let ((__tmp171439 - (lambda (_%g154253154257%_ - _%g154254154260%_ - _%g154255154262%_) + _%L154273%_ + _%L154275%_)) + (let ((__tmp171476 + (lambda (_%g154290154294%_ + _%g154291154297%_ + _%g154292154299%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1518,25 +1518,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g154254154260%_ '())) - (cons _%g154253154257%_ '())))) + (cons _%g154291154297%_ '())) + (cons _%g154290154294%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g154255154262%_)))) + _%g154292154299%_)))) (declare (not safe)) (__foldr2 - __tmp171439 + __tmp171476 '() - _%L154236%_ - _%L154238%_))))) - _%type-e154152154230%_ - _%id154153154233%_)))))) + _%L154273%_ + _%L154275%_))))) + _%type-e154189154267%_ + _%id154190154270%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop154146154188%_ - _%target154143154182%_ + (_%loop154183154225%_ + _%target154180154219%_ '() '())) - (_%g154136154165%_ - _%g154137154169%_))))) - (_%g154136154165%_ _%g154137154169%_)))) - (_%g154136154165%_ _%g154137154169%_))))) - (_%g154135154265%_ _%$stx154132%_)))))) + (_%g154173154202%_ + _%g154174154206%_))))) + (_%g154173154202%_ _%g154174154206%_)))) + (_%g154173154202%_ _%g154174154206%_))))) + (_%g154172154302%_ _%$stx154169%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm index 3c3cb9ee9..c8fec99b7 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 1733687561) + (define gerbil/compiler/optimize-xform::timestamp 1733870076) (begin (define gxc#::collect-mutators::t - (let ((__tmp153858 (list gxc#::void::t)) - (__tmp153857 (cons (cons 'final: '#t) '()))) + (let ((__tmp153895 (list gxc#::void::t)) + (__tmp153894 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutators::t '::collect-mutators - __tmp153858 + __tmp153895 '() - __tmp153857 + __tmp153894 '#f))) (define gxc#::collect-mutators? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutators::t))) (define gxc#make-::collect-mutators - (lambda _%$args153844%_ - (apply make-instance gxc#::collect-mutators::t _%$args153844%_))) + (lambda _%$args153881%_ + (apply make-instance gxc#::collect-mutators::t _%$args153881%_))) (define gxc#::collect-mutators-bind-methods! - (let ((__tmp153859 + (let ((__tmp153896 (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 __tmp153859))) + (__make-promise __tmp153896))) (define gxc#apply-collect-mutators - (lambda (_%stx153836%_) + (lambda (_%stx153873%_) (force gxc#::collect-mutators-bind-methods!) - (let* ((_%self153839%_ - (let ((__obj153847 + (let* ((_%self153876%_ + (let ((__obj153884 (let () (declare (not safe)) (##structure gxc#::collect-mutators::t)))) - __obj153847)) - (__tmp153860 + __obj153884)) + (__tmp153897 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153839%_ _%stx153836%_))))) + (gxc#compile-e__1 _%self153876%_ _%stx153873%_))))) (declare (not safe)) (__call-with-parameters - __tmp153860 + __tmp153897 gxc#current-compile-method - _%self153839%_)))) + _%self153876%_)))) (define gxc#::expression-subst::t - (let ((__tmp153862 (list gxc#::basic-xform-expression::t)) - (__tmp153861 (cons (cons 'final: '#t) '()))) + (let ((__tmp153899 (list gxc#::basic-xform-expression::t)) + (__tmp153898 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst::t '::expression-subst - __tmp153862 + __tmp153899 '(id new-id) - __tmp153861 + __tmp153898 '#f))) (define gxc#::expression-subst? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst::t))) (define gxc#make-::expression-subst - (lambda _%$args153833%_ - (apply make-instance gxc#::expression-subst::t _%$args153833%_))) + (lambda _%$args153870%_ + (apply make-instance gxc#::expression-subst::t _%$args153870%_))) (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 ((__tmp153863 + (let ((__tmp153900 (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 __tmp153863))) + (__make-promise __tmp153900))) (define gxc#apply-expression-subst__% - (lambda (_%@@keywords153803%_ - _%id153799153804%_ - _%new-id153800153806%_ - _%stx153808%_) - (let* ((_%id153811%_ - (if (eq? _%id153799153804%_ absent-value) + (lambda (_%@@keywords153840%_ + _%id153836153841%_ + _%new-id153837153843%_ + _%stx153845%_) + (let* ((_%id153848%_ + (if (eq? _%id153836153841%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'id:)) - _%id153799153804%_)) - (_%new-id153813%_ - (if (eq? _%new-id153800153806%_ absent-value) + _%id153836153841%_)) + (_%new-id153850%_ + (if (eq? _%new-id153837153843%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'new-id:)) - _%new-id153800153806%_))) + _%new-id153837153843%_))) (force gxc#::expression-subst-bind-methods!) - (let* ((_%self153815%_ - (let ((__obj153849 + (let* ((_%self153852%_ + (let ((__obj153886 (let () (declare (not safe)) (##structure gxc#::expression-subst::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153849 - _%id153811%_ + __obj153886 + _%id153848%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153849 - _%new-id153813%_ + __obj153886 + _%new-id153850%_ '2 '#f '#f)) - __obj153849)) - (__tmp153864 + __obj153886)) + (__tmp153901 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153815%_ _%stx153808%_))))) + (gxc#compile-e__1 _%self153852%_ _%stx153845%_))))) (declare (not safe)) (__call-with-parameters - __tmp153864 + __tmp153901 gxc#current-compile-method - _%self153815%_))))) + _%self153852%_))))) (define gxc#apply-expression-subst__@ - (lambda (_%@@keywords153822%_ . _%args153823%_) + (lambda (_%@@keywords153859%_ . _%args153860%_) (apply gxc#apply-expression-subst__% - _%@@keywords153822%_ + _%@@keywords153859%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords153822%_ 'id: absent-value)) + (symbolic-table-ref _%@@keywords153859%_ 'id: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153822%_ + _%@@keywords153859%_ 'new-id: absent-value)) - _%args153823%_))) + _%args153860%_))) (define gxc#apply-expression-subst - (lambda _%args153801153829%_ + (lambda _%args153838153866%_ (apply keyword-dispatch '#(id: new-id:) gxc#apply-expression-subst__@ - _%args153801153829%_))) + _%args153838153866%_))) (define gxc#::expression-subst*::t - (let ((__tmp153866 (list gxc#::basic-xform-expression::t)) - (__tmp153865 (cons (cons 'final: '#t) '()))) + (let ((__tmp153903 (list gxc#::basic-xform-expression::t)) + (__tmp153902 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst*::t '::expression-subst* - __tmp153866 + __tmp153903 '(subst) - __tmp153865 + __tmp153902 '#f))) (define gxc#::expression-subst*? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst*::t))) (define gxc#make-::expression-subst* - (lambda _%$args153795%_ - (apply make-instance gxc#::expression-subst*::t _%$args153795%_))) + (lambda _%$args153832%_ + (apply make-instance gxc#::expression-subst*::t _%$args153832%_))) (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 ((__tmp153867 + (let ((__tmp153904 (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 __tmp153867))) + (__make-promise __tmp153904))) (define gxc#apply-expression-subst*__% - (lambda (_%@@keywords153769%_ _%subst153766153770%_ _%stx153772%_) - (let ((_%subst153775%_ - (if (eq? _%subst153766153770%_ absent-value) + (lambda (_%@@keywords153806%_ _%subst153803153807%_ _%stx153809%_) + (let ((_%subst153812%_ + (if (eq? _%subst153803153807%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'subst:)) - _%subst153766153770%_))) + _%subst153803153807%_))) (force gxc#::expression-subst*-bind-methods!) - (let* ((_%self153777%_ - (let ((__obj153851 + (let* ((_%self153814%_ + (let ((__obj153888 (let () (declare (not safe)) (##structure gxc#::expression-subst*::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153851 - _%subst153775%_ + __obj153888 + _%subst153812%_ '1 '#f '#f)) - __obj153851)) - (__tmp153868 + __obj153888)) + (__tmp153905 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153777%_ _%stx153772%_))))) + (gxc#compile-e__1 _%self153814%_ _%stx153809%_))))) (declare (not safe)) (__call-with-parameters - __tmp153868 + __tmp153905 gxc#current-compile-method - _%self153777%_))))) + _%self153814%_))))) (define gxc#apply-expression-subst*__@ - (lambda (_%@@keywords153784%_ . _%args153785%_) + (lambda (_%@@keywords153821%_ . _%args153822%_) (apply gxc#apply-expression-subst*__% - _%@@keywords153784%_ + _%@@keywords153821%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153784%_ + _%@@keywords153821%_ 'subst: absent-value)) - _%args153785%_))) + _%args153822%_))) (define gxc#apply-expression-subst* - (lambda _%args153767153791%_ + (lambda _%args153804153828%_ (apply keyword-dispatch '#(subst:) gxc#apply-expression-subst*__@ - _%args153767153791%_))) + _%args153804153828%_))) (define gxc#::find-expression::t - (let ((__tmp153869 (list gxc#::false-expression::t))) + (let ((__tmp153906 (list gxc#::false-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::find-expression::t '::find-expression - __tmp153869 + __tmp153906 '() '() '#f))) @@ -467,10 +467,10 @@ (declare (not safe)) (__make-class-predicate gxc#::find-expression::t))) (define gxc#make-::find-expression - (lambda _%$args153762%_ - (apply make-instance gxc#::find-expression::t _%$args153762%_))) + (lambda _%$args153799%_ + (apply make-instance gxc#::find-expression::t _%$args153799%_))) (define gxc#::find-expression-bind-methods! - (let ((__tmp153870 + (let ((__tmp153907 (lambda () (force gxc#::false-expression-bind-methods!) (let () @@ -588,25 +588,25 @@ '%#struct-unchecked-set! gxc#find-body%))))) (declare (not safe)) - (__make-promise __tmp153870))) + (__make-promise __tmp153907))) (define gxc#::find-var-refs::t - (let ((__tmp153872 (list gxc#::find-expression::t)) - (__tmp153871 (cons (cons 'final: '#t) '()))) + (let ((__tmp153909 (list gxc#::find-expression::t)) + (__tmp153908 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-var-refs::t '::find-var-refs - __tmp153872 + __tmp153909 '(ids) - __tmp153871 + __tmp153908 '#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 _%$args153758%_ - (apply make-instance gxc#::find-var-refs::t _%$args153758%_))) + (lambda _%$args153795%_ + (apply make-instance gxc#::find-var-refs::t _%$args153795%_))) (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 ((__tmp153873 + (let ((__tmp153910 (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 __tmp153873))) + (__make-promise __tmp153910))) (define gxc#apply-find-var-refs__% - (lambda (_%@@keywords153732%_ _%ids153729153733%_ _%stx153735%_) - (let ((_%ids153738%_ - (if (eq? _%ids153729153733%_ absent-value) + (lambda (_%@@keywords153769%_ _%ids153766153770%_ _%stx153772%_) + (let ((_%ids153775%_ + (if (eq? _%ids153766153770%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'ids:)) - _%ids153729153733%_))) + _%ids153766153770%_))) (force gxc#::find-var-refs-bind-methods!) - (let* ((_%self153740%_ - (let ((__obj153854 + (let* ((_%self153777%_ + (let ((__obj153891 (let () (declare (not safe)) (##structure gxc#::find-var-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153854 - _%ids153738%_ + __obj153891 + _%ids153775%_ '1 '#f '#f)) - __obj153854)) - (__tmp153874 + __obj153891)) + (__tmp153911 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153740%_ _%stx153735%_))))) + (gxc#compile-e__1 _%self153777%_ _%stx153772%_))))) (declare (not safe)) (__call-with-parameters - __tmp153874 + __tmp153911 gxc#current-compile-method - _%self153740%_))))) + _%self153777%_))))) (define gxc#apply-find-var-refs__@ - (lambda (_%@@keywords153747%_ . _%args153748%_) + (lambda (_%@@keywords153784%_ . _%args153785%_) (apply gxc#apply-find-var-refs__% - _%@@keywords153747%_ + _%@@keywords153784%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords153747%_ 'ids: absent-value)) - _%args153748%_))) + (symbolic-table-ref _%@@keywords153784%_ 'ids: absent-value)) + _%args153785%_))) (define gxc#apply-find-var-refs - (lambda _%args153730153754%_ + (lambda _%args153767153791%_ (apply keyword-dispatch '#(ids:) gxc#apply-find-var-refs__@ - _%args153730153754%_))) + _%args153767153791%_))) (define gxc#::collect-runtime-refs::t - (let ((__tmp153876 (list gxc#::collect-expression-refs::t)) - (__tmp153875 (cons (cons 'final: '#t) '()))) + (let ((__tmp153913 (list gxc#::collect-expression-refs::t)) + (__tmp153912 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-runtime-refs::t '::collect-runtime-refs - __tmp153876 + __tmp153913 '() - __tmp153875 + __tmp153912 '#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 _%$args153725%_ - (apply make-instance gxc#::collect-runtime-refs::t _%$args153725%_))) + (lambda _%$args153762%_ + (apply make-instance gxc#::collect-runtime-refs::t _%$args153762%_))) (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 ((__tmp153877 + (let ((__tmp153914 (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 __tmp153877))) + (__make-promise __tmp153914))) (define gxc#apply-collect-runtime-refs__% - (lambda (_%@@keywords153699%_ _%table153696153700%_ _%stx153702%_) - (let ((_%table153705%_ - (if (eq? _%table153696153700%_ absent-value) + (lambda (_%@@keywords153736%_ _%table153733153737%_ _%stx153739%_) + (let ((_%table153742%_ + (if (eq? _%table153733153737%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table153696153700%_))) + _%table153733153737%_))) (force gxc#::collect-runtime-refs-bind-methods!) - (let* ((_%self153707%_ - (let ((__obj153856 + (let* ((_%self153744%_ + (let ((__obj153893 (let () (declare (not safe)) (##structure gxc#::collect-runtime-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153856 - _%table153705%_ + __obj153893 + _%table153742%_ '1 '#f '#f)) - __obj153856)) - (__tmp153878 + __obj153893)) + (__tmp153915 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153707%_ _%stx153702%_))))) + (gxc#compile-e__1 _%self153744%_ _%stx153739%_))))) (declare (not safe)) (__call-with-parameters - __tmp153878 + __tmp153915 gxc#current-compile-method - _%self153707%_))))) + _%self153744%_))))) (define gxc#apply-collect-runtime-refs__@ - (lambda (_%@@keywords153714%_ . _%args153715%_) + (lambda (_%@@keywords153751%_ . _%args153752%_) (apply gxc#apply-collect-runtime-refs__% - _%@@keywords153714%_ + _%@@keywords153751%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153714%_ + _%@@keywords153751%_ 'table: absent-value)) - _%args153715%_))) + _%args153752%_))) (define gxc#apply-collect-runtime-refs - (lambda _%args153697153721%_ + (lambda _%args153734153758%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-runtime-refs__@ - _%args153697153721%_))) + _%args153734153758%_))) (define gxc#collect-mutators-setq% - (lambda (_%self153625%_ _%stx153626%_) - (let* ((_%g153628153645%_ - (lambda (_%g153629153642%_) + (lambda (_%self153662%_ _%stx153663%_) + (let* ((_%g153665153682%_ + (lambda (_%g153666153679%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153629153642%_)))) - (_%g153627153692%_ - (lambda (_%g153629153648%_) + _%g153666153679%_)))) + (_%g153664153729%_ + (lambda (_%g153666153685%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153629153648%_)) - (let ((_%e153632153650%_ + (gx#stx-pair? _%g153666153685%_)) + (let ((_%e153669153687%_ (let () (declare (not safe)) - (gx#stx-e _%g153629153648%_)))) - (let ((_%hd153633153653%_ + (gx#stx-e _%g153666153685%_)))) + (let ((_%hd153670153690%_ (let () (declare (not safe)) - (##car _%e153632153650%_))) - (_%tl153634153655%_ + (##car _%e153669153687%_))) + (_%tl153671153692%_ (let () (declare (not safe)) - (##cdr _%e153632153650%_)))) + (##cdr _%e153669153687%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153634153655%_)) - (let ((_%e153635153658%_ + (gx#stx-pair? _%tl153671153692%_)) + (let ((_%e153672153695%_ (let () (declare (not safe)) - (gx#stx-e _%tl153634153655%_)))) - (let ((_%hd153636153661%_ + (gx#stx-e _%tl153671153692%_)))) + (let ((_%hd153673153698%_ (let () (declare (not safe)) - (##car _%e153635153658%_))) - (_%tl153637153663%_ + (##car _%e153672153695%_))) + (_%tl153674153700%_ (let () (declare (not safe)) - (##cdr _%e153635153658%_)))) + (##cdr _%e153672153695%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153637153663%_)) - (let ((_%e153638153666%_ + (gx#stx-pair? _%tl153674153700%_)) + (let ((_%e153675153703%_ (let () (declare (not safe)) - (gx#stx-e _%tl153637153663%_)))) - (let ((_%hd153639153669%_ + (gx#stx-e _%tl153674153700%_)))) + (let ((_%hd153676153706%_ (let () (declare (not safe)) - (##car _%e153638153666%_))) - (_%tl153640153671%_ + (##car _%e153675153703%_))) + (_%tl153677153708%_ (let () (declare (not safe)) - (##cdr _%e153638153666%_)))) + (##cdr _%e153675153703%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153640153671%_)) - ((lambda (_%L153674%_ - _%L153675%_) - (let ((_%sym153690%_ + _%tl153677153708%_)) + ((lambda (_%L153711%_ + _%L153712%_) + (let ((_%sym153727%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153675%_)))) + _%L153712%_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _%sym153690%_)) - (let ((__tmp153879 + _%sym153727%_)) + (let ((__tmp153916 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) (hash-put! - __tmp153879 - _%sym153690%_ + __tmp153916 + _%sym153727%_ '#t)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153625%_ - _%L153674%_)))) - _%hd153639153669%_ - _%hd153636153661%_) - (_%g153628153645%_ - _%g153629153648%_)))) - (_%g153628153645%_ _%g153629153648%_)))) - (_%g153628153645%_ _%g153629153648%_)))) - (_%g153628153645%_ _%g153629153648%_))))) - (_%g153627153692%_ _%stx153626%_)))) + _%self153662%_ + _%L153711%_)))) + _%hd153676153706%_ + _%hd153673153698%_) + (_%g153665153682%_ + _%g153666153685%_)))) + (_%g153665153682%_ _%g153666153685%_)))) + (_%g153665153682%_ _%g153666153685%_)))) + (_%g153665153682%_ _%g153666153685%_))))) + (_%g153664153729%_ _%stx153663%_)))) (define gxc#expression-subst-ref% - (lambda (_%self153573%_ _%stx153574%_) - (let* ((_%g153576153589%_ - (lambda (_%g153577153586%_) + (lambda (_%self153610%_ _%stx153611%_) + (let* ((_%g153613153626%_ + (lambda (_%g153614153623%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153577153586%_)))) - (_%g153575153622%_ - (lambda (_%g153577153592%_) + _%g153614153623%_)))) + (_%g153612153659%_ + (lambda (_%g153614153629%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153577153592%_)) - (let ((_%e153579153594%_ + (gx#stx-pair? _%g153614153629%_)) + (let ((_%e153616153631%_ (let () (declare (not safe)) - (gx#stx-e _%g153577153592%_)))) - (let ((_%hd153580153597%_ + (gx#stx-e _%g153614153629%_)))) + (let ((_%hd153617153634%_ (let () (declare (not safe)) - (##car _%e153579153594%_))) - (_%tl153581153599%_ + (##car _%e153616153631%_))) + (_%tl153618153636%_ (let () (declare (not safe)) - (##cdr _%e153579153594%_)))) + (##cdr _%e153616153631%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153581153599%_)) - (let ((_%e153582153602%_ + (gx#stx-pair? _%tl153618153636%_)) + (let ((_%e153619153639%_ (let () (declare (not safe)) - (gx#stx-e _%tl153581153599%_)))) - (let ((_%hd153583153605%_ + (gx#stx-e _%tl153618153636%_)))) + (let ((_%hd153620153642%_ (let () (declare (not safe)) - (##car _%e153582153602%_))) - (_%tl153584153607%_ + (##car _%e153619153639%_))) + (_%tl153621153644%_ (let () (declare (not safe)) - (##cdr _%e153582153602%_)))) + (##cdr _%e153619153639%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153584153607%_)) - ((lambda (_%L153610%_) - (if (let ((__tmp153880 + (gx#stx-null? _%tl153621153644%_)) + ((lambda (_%L153647%_) + (if (let ((__tmp153917 (let () (declare (not safe)) (slot-ref__0 - _%self153573%_ + _%self153610%_ 'id)))) (declare (not safe)) (gx#free-identifier=? - _%L153610%_ - __tmp153880)) - (let ((__tmp153881 + _%L153647%_ + __tmp153917)) + (let ((__tmp153918 (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self153573%_ 'new-id)) + (slot-ref__0 _%self153610%_ 'new-id)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153881 - _%stx153574%_)) - _%stx153574%_)) - _%hd153583153605%_) - (_%g153576153589%_ _%g153577153592%_)))) - (_%g153576153589%_ _%g153577153592%_)))) - (_%g153576153589%_ _%g153577153592%_))))) - (_%g153575153622%_ _%stx153574%_)))) + __tmp153918 + _%stx153611%_)) + _%stx153611%_)) + _%hd153620153642%_) + (_%g153613153626%_ _%g153614153629%_)))) + (_%g153613153626%_ _%g153614153629%_)))) + (_%g153613153626%_ _%g153614153629%_))))) + (_%g153612153659%_ _%stx153611%_)))) (define gxc#expression-subst*-ref% - (lambda (_%self153513%_ _%stx153514%_) - (let* ((_%g153516153529%_ - (lambda (_%g153517153526%_) + (lambda (_%self153550%_ _%stx153551%_) + (let* ((_%g153553153566%_ + (lambda (_%g153554153563%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153517153526%_)))) - (_%g153515153570%_ - (lambda (_%g153517153532%_) + _%g153554153563%_)))) + (_%g153552153607%_ + (lambda (_%g153554153569%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153517153532%_)) - (let ((_%e153519153534%_ + (gx#stx-pair? _%g153554153569%_)) + (let ((_%e153556153571%_ (let () (declare (not safe)) - (gx#stx-e _%g153517153532%_)))) - (let ((_%hd153520153537%_ + (gx#stx-e _%g153554153569%_)))) + (let ((_%hd153557153574%_ (let () (declare (not safe)) - (##car _%e153519153534%_))) - (_%tl153521153539%_ + (##car _%e153556153571%_))) + (_%tl153558153576%_ (let () (declare (not safe)) - (##cdr _%e153519153534%_)))) + (##cdr _%e153556153571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153521153539%_)) - (let ((_%e153522153542%_ + (gx#stx-pair? _%tl153558153576%_)) + (let ((_%e153559153579%_ (let () (declare (not safe)) - (gx#stx-e _%tl153521153539%_)))) - (let ((_%hd153523153545%_ + (gx#stx-e _%tl153558153576%_)))) + (let ((_%hd153560153582%_ (let () (declare (not safe)) - (##car _%e153522153542%_))) - (_%tl153524153547%_ + (##car _%e153559153579%_))) + (_%tl153561153584%_ (let () (declare (not safe)) - (##cdr _%e153522153542%_)))) + (##cdr _%e153559153579%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153524153547%_)) - ((lambda (_%L153550%_) - (let ((_%$e153564%_ - (let ((__tmp153883 - (lambda (_%sub153562%_) - (let ((__tmp153884 - (car _%sub153562%_))) + (gx#stx-null? _%tl153561153584%_)) + ((lambda (_%L153587%_) + (let ((_%$e153601%_ + (let ((__tmp153920 + (lambda (_%sub153599%_) + (let ((__tmp153921 + (car _%sub153599%_))) (declare (not safe)) (gx#free-identifier=? - _%L153550%_ - __tmp153884)))) - (__tmp153882 + _%L153587%_ + __tmp153921)))) + (__tmp153919 (let () (declare (not safe)) (slot-ref__0 - _%self153513%_ + _%self153550%_ 'subst)))) (declare (not safe)) - (__find __tmp153883 - __tmp153882)))) - (if _%$e153564%_ - ((lambda (_%sub153567%_) - (let ((__tmp153885 + (__find __tmp153920 + __tmp153919)))) + (if _%$e153601%_ + ((lambda (_%sub153604%_) + (let ((__tmp153922 (cons '%#ref - (cons (cdr _%sub153567%_) + (cons (cdr _%sub153604%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153885 - _%stx153514%_))) - _%$e153564%_) - _%stx153514%_))) - _%hd153523153545%_) - (_%g153516153529%_ _%g153517153532%_)))) - (_%g153516153529%_ _%g153517153532%_)))) - (_%g153516153529%_ _%g153517153532%_))))) - (_%g153515153570%_ _%stx153514%_)))) + __tmp153922 + _%stx153551%_))) + _%$e153601%_) + _%stx153551%_))) + _%hd153560153582%_) + (_%g153553153566%_ _%g153554153569%_)))) + (_%g153553153566%_ _%g153554153569%_)))) + (_%g153553153566%_ _%g153554153569%_))))) + (_%g153552153607%_ _%stx153551%_)))) (define gxc#expression-subst-setq% - (lambda (_%self153442%_ _%stx153443%_) - (let* ((_%g153445153462%_ - (lambda (_%g153446153459%_) + (lambda (_%self153479%_ _%stx153480%_) + (let* ((_%g153482153499%_ + (lambda (_%g153483153496%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153446153459%_)))) - (_%g153444153510%_ - (lambda (_%g153446153465%_) + _%g153483153496%_)))) + (_%g153481153547%_ + (lambda (_%g153483153502%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153446153465%_)) - (let ((_%e153449153467%_ + (gx#stx-pair? _%g153483153502%_)) + (let ((_%e153486153504%_ (let () (declare (not safe)) - (gx#stx-e _%g153446153465%_)))) - (let ((_%hd153450153470%_ + (gx#stx-e _%g153483153502%_)))) + (let ((_%hd153487153507%_ (let () (declare (not safe)) - (##car _%e153449153467%_))) - (_%tl153451153472%_ + (##car _%e153486153504%_))) + (_%tl153488153509%_ (let () (declare (not safe)) - (##cdr _%e153449153467%_)))) + (##cdr _%e153486153504%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153451153472%_)) - (let ((_%e153452153475%_ + (gx#stx-pair? _%tl153488153509%_)) + (let ((_%e153489153512%_ (let () (declare (not safe)) - (gx#stx-e _%tl153451153472%_)))) - (let ((_%hd153453153478%_ + (gx#stx-e _%tl153488153509%_)))) + (let ((_%hd153490153515%_ (let () (declare (not safe)) - (##car _%e153452153475%_))) - (_%tl153454153480%_ + (##car _%e153489153512%_))) + (_%tl153491153517%_ (let () (declare (not safe)) - (##cdr _%e153452153475%_)))) + (##cdr _%e153489153512%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153454153480%_)) - (let ((_%e153455153483%_ + (gx#stx-pair? _%tl153491153517%_)) + (let ((_%e153492153520%_ (let () (declare (not safe)) - (gx#stx-e _%tl153454153480%_)))) - (let ((_%hd153456153486%_ + (gx#stx-e _%tl153491153517%_)))) + (let ((_%hd153493153523%_ (let () (declare (not safe)) - (##car _%e153455153483%_))) - (_%tl153457153488%_ + (##car _%e153492153520%_))) + (_%tl153494153525%_ (let () (declare (not safe)) - (##cdr _%e153455153483%_)))) + (##cdr _%e153492153520%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153457153488%_)) - ((lambda (_%L153491%_ - _%L153492%_) - (let ((_%new-expr153507%_ + _%tl153494153525%_)) + ((lambda (_%L153528%_ + _%L153529%_) + (let ((_%new-expr153544%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153442%_ - _%L153491%_))) - (_%new-xid153508%_ - (if (let ((__tmp153886 + _%self153479%_ + _%L153528%_))) + (_%new-xid153545%_ + (if (let ((__tmp153923 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _%self153442%_ 'id)))) + (slot-ref__0 _%self153479%_ 'id)))) (declare (not safe)) - (gx#free-identifier=? _%L153492%_ __tmp153886)) + (gx#free-identifier=? _%L153529%_ __tmp153923)) (let () (declare (not safe)) - (slot-ref__0 _%self153442%_ 'new-id)) - _%L153492%_))) + (slot-ref__0 _%self153479%_ 'new-id)) + _%L153529%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp153887 + (let ((__tmp153924 (cons '%#set! - (cons _%new-xid153508%_ + (cons _%new-xid153545%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr153507%_ '()))))) + (cons _%new-expr153544%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153887 - _%stx153443%_)))) - _%hd153456153486%_ - _%hd153453153478%_) - (_%g153445153462%_ - _%g153446153465%_)))) - (_%g153445153462%_ _%g153446153465%_)))) - (_%g153445153462%_ _%g153446153465%_)))) - (_%g153445153462%_ _%g153446153465%_))))) - (_%g153444153510%_ _%stx153443%_)))) + __tmp153924 + _%stx153480%_)))) + _%hd153493153523%_ + _%hd153490153515%_) + (_%g153482153499%_ + _%g153483153502%_)))) + (_%g153482153499%_ _%g153483153502%_)))) + (_%g153482153499%_ _%g153483153502%_)))) + (_%g153482153499%_ _%g153483153502%_))))) + (_%g153481153547%_ _%stx153480%_)))) (define gxc#expression-subst*-setq% - (lambda (_%self153365%_ _%stx153366%_) - (let* ((_%g153368153385%_ - (lambda (_%g153369153382%_) + (lambda (_%self153402%_ _%stx153403%_) + (let* ((_%g153405153422%_ + (lambda (_%g153406153419%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153369153382%_)))) - (_%g153367153439%_ - (lambda (_%g153369153388%_) + _%g153406153419%_)))) + (_%g153404153476%_ + (lambda (_%g153406153425%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153369153388%_)) - (let ((_%e153372153390%_ + (gx#stx-pair? _%g153406153425%_)) + (let ((_%e153409153427%_ (let () (declare (not safe)) - (gx#stx-e _%g153369153388%_)))) - (let ((_%hd153373153393%_ + (gx#stx-e _%g153406153425%_)))) + (let ((_%hd153410153430%_ (let () (declare (not safe)) - (##car _%e153372153390%_))) - (_%tl153374153395%_ + (##car _%e153409153427%_))) + (_%tl153411153432%_ (let () (declare (not safe)) - (##cdr _%e153372153390%_)))) + (##cdr _%e153409153427%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153374153395%_)) - (let ((_%e153375153398%_ + (gx#stx-pair? _%tl153411153432%_)) + (let ((_%e153412153435%_ (let () (declare (not safe)) - (gx#stx-e _%tl153374153395%_)))) - (let ((_%hd153376153401%_ + (gx#stx-e _%tl153411153432%_)))) + (let ((_%hd153413153438%_ (let () (declare (not safe)) - (##car _%e153375153398%_))) - (_%tl153377153403%_ + (##car _%e153412153435%_))) + (_%tl153414153440%_ (let () (declare (not safe)) - (##cdr _%e153375153398%_)))) + (##cdr _%e153412153435%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153377153403%_)) - (let ((_%e153378153406%_ + (gx#stx-pair? _%tl153414153440%_)) + (let ((_%e153415153443%_ (let () (declare (not safe)) - (gx#stx-e _%tl153377153403%_)))) - (let ((_%hd153379153409%_ + (gx#stx-e _%tl153414153440%_)))) + (let ((_%hd153416153446%_ (let () (declare (not safe)) - (##car _%e153378153406%_))) - (_%tl153380153411%_ + (##car _%e153415153443%_))) + (_%tl153417153448%_ (let () (declare (not safe)) - (##cdr _%e153378153406%_)))) + (##cdr _%e153415153443%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153380153411%_)) - ((lambda (_%L153414%_ - _%L153415%_) - (let ((_%new-expr153436%_ + _%tl153417153448%_)) + ((lambda (_%L153451%_ + _%L153452%_) + (let ((_%new-expr153473%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153365%_ - _%L153414%_))) - (_%new-xid153437%_ - (let ((_%$e153432%_ - (let ((__tmp153889 + _%self153402%_ + _%L153451%_))) + (_%new-xid153474%_ + (let ((_%$e153469%_ + (let ((__tmp153926 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%sub153430%_) - (let ((__tmp153890 (car _%sub153430%_))) + (lambda (_%sub153467%_) + (let ((__tmp153927 (car _%sub153467%_))) (declare (not safe)) (gx#free-identifier=? - _%L153415%_ - __tmp153890)))) - (__tmp153888 + _%L153452%_ + __tmp153927)))) + (__tmp153925 (let () (declare (not safe)) - (slot-ref__0 _%self153365%_ 'subst)))) + (slot-ref__0 _%self153402%_ 'subst)))) (declare (not safe)) - (__find __tmp153889 __tmp153888)))) - (if _%$e153432%_ (cdr _%$e153432%_) _%L153415%_)))) + (__find __tmp153926 __tmp153925)))) + (if _%$e153469%_ (cdr _%$e153469%_) _%L153452%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp153891 + (let ((__tmp153928 (cons '%#set! - (cons _%new-xid153437%_ + (cons _%new-xid153474%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr153436%_ '()))))) + (cons _%new-expr153473%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153891 - _%stx153366%_)))) - _%hd153379153409%_ - _%hd153376153401%_) - (_%g153368153385%_ - _%g153369153388%_)))) - (_%g153368153385%_ _%g153369153388%_)))) - (_%g153368153385%_ _%g153369153388%_)))) - (_%g153368153385%_ _%g153369153388%_))))) - (_%g153367153439%_ _%stx153366%_)))) + __tmp153928 + _%stx153403%_)))) + _%hd153416153446%_ + _%hd153413153438%_) + (_%g153405153422%_ + _%g153406153425%_)))) + (_%g153405153422%_ _%g153406153425%_)))) + (_%g153405153422%_ _%g153406153425%_)))) + (_%g153405153422%_ _%g153406153425%_))))) + (_%g153404153476%_ _%stx153403%_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_%self153311%_ _%stx153312%_) - (let* ((_%g153314153327%_ - (lambda (_%g153315153324%_) + (lambda (_%self153348%_ _%stx153349%_) + (let* ((_%g153351153364%_ + (lambda (_%g153352153361%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153315153324%_)))) - (_%g153313153362%_ - (lambda (_%g153315153330%_) + _%g153352153361%_)))) + (_%g153350153399%_ + (lambda (_%g153352153367%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153315153330%_)) - (let ((_%e153317153332%_ + (gx#stx-pair? _%g153352153367%_)) + (let ((_%e153354153369%_ (let () (declare (not safe)) - (gx#stx-e _%g153315153330%_)))) - (let ((_%hd153318153335%_ + (gx#stx-e _%g153352153367%_)))) + (let ((_%hd153355153372%_ (let () (declare (not safe)) - (##car _%e153317153332%_))) - (_%tl153319153337%_ + (##car _%e153354153369%_))) + (_%tl153356153374%_ (let () (declare (not safe)) - (##cdr _%e153317153332%_)))) + (##cdr _%e153354153369%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153319153337%_)) - (let ((_%e153320153340%_ + (gx#stx-pair? _%tl153356153374%_)) + (let ((_%e153357153377%_ (let () (declare (not safe)) - (gx#stx-e _%tl153319153337%_)))) - (let ((_%hd153321153343%_ + (gx#stx-e _%tl153356153374%_)))) + (let ((_%hd153358153380%_ (let () (declare (not safe)) - (##car _%e153320153340%_))) - (_%tl153322153345%_ + (##car _%e153357153377%_))) + (_%tl153359153382%_ (let () (declare (not safe)) - (##cdr _%e153320153340%_)))) + (##cdr _%e153357153377%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153322153345%_)) - ((lambda (_%L153348%_) - (let* ((_%eid153360%_ + (gx#stx-null? _%tl153359153382%_)) + ((lambda (_%L153385%_) + (let* ((_%eid153397%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153348%_))) - (__tmp153892 + _%L153385%_))) + (__tmp153929 (let () (declare (not safe)) (slot-ref__0 - _%self153311%_ + _%self153348%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp153892 - _%eid153360%_ + __tmp153929 + _%eid153397%_ 1+ '0))) - _%hd153321153343%_) - (_%g153314153327%_ _%g153315153330%_)))) - (_%g153314153327%_ _%g153315153330%_)))) - (_%g153314153327%_ _%g153315153330%_))))) - (_%g153313153362%_ _%stx153312%_)))) + _%hd153358153380%_) + (_%g153351153364%_ _%g153352153367%_)))) + (_%g153351153364%_ _%g153352153367%_)))) + (_%g153351153364%_ _%g153352153367%_))))) + (_%g153350153399%_ _%stx153349%_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_%self153241%_ _%stx153242%_) - (let* ((_%g153244153261%_ - (lambda (_%g153245153258%_) + (lambda (_%self153278%_ _%stx153279%_) + (let* ((_%g153281153298%_ + (lambda (_%g153282153295%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153245153258%_)))) - (_%g153243153308%_ - (lambda (_%g153245153264%_) + _%g153282153295%_)))) + (_%g153280153345%_ + (lambda (_%g153282153301%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153245153264%_)) - (let ((_%e153248153266%_ + (gx#stx-pair? _%g153282153301%_)) + (let ((_%e153285153303%_ (let () (declare (not safe)) - (gx#stx-e _%g153245153264%_)))) - (let ((_%hd153249153269%_ + (gx#stx-e _%g153282153301%_)))) + (let ((_%hd153286153306%_ (let () (declare (not safe)) - (##car _%e153248153266%_))) - (_%tl153250153271%_ + (##car _%e153285153303%_))) + (_%tl153287153308%_ (let () (declare (not safe)) - (##cdr _%e153248153266%_)))) + (##cdr _%e153285153303%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153250153271%_)) - (let ((_%e153251153274%_ + (gx#stx-pair? _%tl153287153308%_)) + (let ((_%e153288153311%_ (let () (declare (not safe)) - (gx#stx-e _%tl153250153271%_)))) - (let ((_%hd153252153277%_ + (gx#stx-e _%tl153287153308%_)))) + (let ((_%hd153289153314%_ (let () (declare (not safe)) - (##car _%e153251153274%_))) - (_%tl153253153279%_ + (##car _%e153288153311%_))) + (_%tl153290153316%_ (let () (declare (not safe)) - (##cdr _%e153251153274%_)))) + (##cdr _%e153288153311%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153253153279%_)) - (let ((_%e153254153282%_ + (gx#stx-pair? _%tl153290153316%_)) + (let ((_%e153291153319%_ (let () (declare (not safe)) - (gx#stx-e _%tl153253153279%_)))) - (let ((_%hd153255153285%_ + (gx#stx-e _%tl153290153316%_)))) + (let ((_%hd153292153322%_ (let () (declare (not safe)) - (##car _%e153254153282%_))) - (_%tl153256153287%_ + (##car _%e153291153319%_))) + (_%tl153293153324%_ (let () (declare (not safe)) - (##cdr _%e153254153282%_)))) + (##cdr _%e153291153319%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153256153287%_)) - ((lambda (_%L153290%_ - _%L153291%_) - (let ((_%eid153306%_ + _%tl153293153324%_)) + ((lambda (_%L153327%_ + _%L153328%_) + (let ((_%eid153343%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153291%_)))) - (let ((__tmp153893 + _%L153328%_)))) + (let ((__tmp153930 (let () (declare (not safe)) (slot-ref__0 - _%self153241%_ + _%self153278%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp153893 - _%eid153306%_ + __tmp153930 + _%eid153343%_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153241%_ - _%L153290%_)))) - _%hd153255153285%_ - _%hd153252153277%_) - (_%g153244153261%_ - _%g153245153264%_)))) - (_%g153244153261%_ _%g153245153264%_)))) - (_%g153244153261%_ _%g153245153264%_)))) - (_%g153244153261%_ _%g153245153264%_))))) - (_%g153243153308%_ _%stx153242%_)))) + _%self153278%_ + _%L153327%_)))) + _%hd153292153322%_ + _%hd153289153314%_) + (_%g153281153298%_ + _%g153282153301%_)))) + (_%g153281153298%_ _%g153282153301%_)))) + (_%g153281153298%_ _%g153282153301%_)))) + (_%g153281153298%_ _%g153282153301%_))))) + (_%g153280153345%_ _%stx153279%_)))) (define gxc#find-body% - (lambda (_%self153154%_ _%stx153155%_) - (let* ((_%g153157153176%_ - (lambda (_%g153158153173%_) + (lambda (_%self153191%_ _%stx153192%_) + (let* ((_%g153194153213%_ + (lambda (_%g153195153210%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153158153173%_)))) - (_%g153156153238%_ - (lambda (_%g153158153179%_) + _%g153195153210%_)))) + (_%g153193153275%_ + (lambda (_%g153195153216%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153158153179%_)) - (let ((_%e153160153181%_ + (gx#stx-pair? _%g153195153216%_)) + (let ((_%e153197153218%_ (let () (declare (not safe)) - (gx#stx-e _%g153158153179%_)))) - (let ((_%hd153161153184%_ + (gx#stx-e _%g153195153216%_)))) + (let ((_%hd153198153221%_ (let () (declare (not safe)) - (##car _%e153160153181%_))) - (_%tl153162153186%_ + (##car _%e153197153218%_))) + (_%tl153199153223%_ (let () (declare (not safe)) - (##cdr _%e153160153181%_)))) + (##cdr _%e153197153218%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl153162153186%_)) - (let ((_g153894_ + (gx#stx-pair/null? _%tl153199153223%_)) + (let ((_g153931_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl153162153186%_ + _%tl153199153223%_ '0)))) (begin - (let ((_g153895_ + (let ((_g153932_ (let () (declare (not safe)) - (if (##values? _g153894_) - (##vector-length _g153894_) + (if (##values? _g153931_) + (##vector-length _g153931_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g153895_ 2))) + (##fx= _g153932_ 2))) (error "Context expects 2 values" - _g153895_))) - (let ((_%target153163153189%_ + _g153932_))) + (let ((_%target153200153226%_ (let () (declare (not safe)) - (##vector-ref _g153894_ 0))) - (_%tl153165153191%_ + (##vector-ref _g153931_ 0))) + (_%tl153202153228%_ (let () (declare (not safe)) - (##vector-ref _g153894_ 1)))) + (##vector-ref _g153931_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153165153191%_)) - (letrec ((_%loop153166153194%_ - (lambda (_%hd153164153197%_ - _%expr153170153199%_) + (gx#stx-null? _%tl153202153228%_)) + (letrec ((_%loop153203153231%_ + (lambda (_%hd153201153234%_ + _%expr153207153236%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153164153197%_)) - (let ((_%e153167153202%_ + _%hd153201153234%_)) + (let ((_%e153204153239%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd153164153197%_)))) - (let ((_%lp-hd153168153205%_ + (gx#stx-e _%hd153201153234%_)))) + (let ((_%lp-hd153205153242%_ (let () (declare (not safe)) - (##car _%e153167153202%_))) - (_%lp-tl153169153207%_ + (##car _%e153204153239%_))) + (_%lp-tl153206153244%_ (let () (declare (not safe)) - (##cdr _%e153167153202%_)))) - (_%loop153166153194%_ - _%lp-tl153169153207%_ - (cons _%lp-hd153168153205%_ _%expr153170153199%_)))) - (let ((_%expr153171153210%_ (reverse _%expr153170153199%_))) - ((lambda (_%L153213%_) - (let ((__tmp153898 - (lambda (_%g153226153228%_) + (##cdr _%e153204153239%_)))) + (_%loop153203153231%_ + _%lp-tl153206153244%_ + (cons _%lp-hd153205153242%_ _%expr153207153236%_)))) + (let ((_%expr153208153247%_ (reverse _%expr153207153236%_))) + ((lambda (_%L153250%_) + (let ((__tmp153935 + (lambda (_%g153263153265%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153154%_ - _%g153226153228%_)))) - (__tmp153896 - (let ((__tmp153897 - (lambda (_%g153230153233%_ - _%g153231153235%_) - (cons _%g153230153233%_ - _%g153231153235%_)))) + _%self153191%_ + _%g153263153265%_)))) + (__tmp153933 + (let ((__tmp153934 + (lambda (_%g153267153270%_ + _%g153268153272%_) + (cons _%g153267153270%_ + _%g153268153272%_)))) (declare (not safe)) - (__foldr1 __tmp153897 '() _%L153213%_)))) + (__foldr1 __tmp153934 '() _%L153250%_)))) (declare (not safe)) - (__ormap1 __tmp153898 __tmp153896))) - _%expr153171153210%_)))))) + (__ormap1 __tmp153935 __tmp153933))) + _%expr153208153247%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153166153194%_ - _%target153163153189%_ + (_%loop153203153231%_ + _%target153200153226%_ '())) - (_%g153157153176%_ - _%g153158153179%_))))) - (_%g153157153176%_ _%g153158153179%_)))) - (_%g153157153176%_ _%g153158153179%_))))) - (_%g153156153238%_ _%stx153155%_)))) + (_%g153194153213%_ + _%g153195153216%_))))) + (_%g153194153213%_ _%g153195153216%_)))) + (_%g153194153213%_ _%g153195153216%_))))) + (_%g153193153275%_ _%stx153192%_)))) (define gxc#find-let-values% - (lambda (_%self153004%_ _%stx153005%_) - (let* ((_%g153007153042%_ - (lambda (_%g153008153039%_) + (lambda (_%self153041%_ _%stx153042%_) + (let* ((_%g153044153079%_ + (lambda (_%g153045153076%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153008153039%_)))) - (_%g153006153151%_ - (lambda (_%g153008153045%_) + _%g153045153076%_)))) + (_%g153043153188%_ + (lambda (_%g153045153082%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153008153045%_)) - (let ((_%e153012153047%_ + (gx#stx-pair? _%g153045153082%_)) + (let ((_%e153049153084%_ (let () (declare (not safe)) - (gx#stx-e _%g153008153045%_)))) - (let ((_%hd153013153050%_ + (gx#stx-e _%g153045153082%_)))) + (let ((_%hd153050153087%_ (let () (declare (not safe)) - (##car _%e153012153047%_))) - (_%tl153014153052%_ + (##car _%e153049153084%_))) + (_%tl153051153089%_ (let () (declare (not safe)) - (##cdr _%e153012153047%_)))) + (##cdr _%e153049153084%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153014153052%_)) - (let ((_%e153015153055%_ + (gx#stx-pair? _%tl153051153089%_)) + (let ((_%e153052153092%_ (let () (declare (not safe)) - (gx#stx-e _%tl153014153052%_)))) - (let ((_%hd153016153058%_ + (gx#stx-e _%tl153051153089%_)))) + (let ((_%hd153053153095%_ (let () (declare (not safe)) - (##car _%e153015153055%_))) - (_%tl153017153060%_ + (##car _%e153052153092%_))) + (_%tl153054153097%_ (let () (declare (not safe)) - (##cdr _%e153015153055%_)))) + (##cdr _%e153052153092%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd153016153058%_)) - (let ((_g153899_ + (gx#stx-pair/null? _%hd153053153095%_)) + (let ((_g153936_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd153016153058%_ + _%hd153053153095%_ '0)))) (begin - (let ((_g153900_ + (let ((_g153937_ (let () (declare (not safe)) - (if (##values? _g153899_) + (if (##values? _g153936_) (##vector-length - _g153899_) + _g153936_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g153900_ 2))) + (##fx= _g153937_ 2))) (error "Context expects 2 values" - _g153900_))) - (let ((_%target153018153063%_ + _g153937_))) + (let ((_%target153055153100%_ (let () (declare (not safe)) - (##vector-ref _g153899_ 0))) - (_%tl153020153065%_ + (##vector-ref _g153936_ 0))) + (_%tl153057153102%_ (let () (declare (not safe)) (##vector-ref - _g153899_ + _g153936_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153020153065%_)) - (letrec ((_%loop153021153068%_ - (lambda (_%hd153019153071%_ + _%tl153057153102%_)) + (letrec ((_%loop153058153105%_ + (lambda (_%hd153056153108%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr153025153073%_ - _%bind153026153075%_) + _%expr153062153110%_ + _%bind153063153112%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153019153071%_)) - (let ((_%e153022153078%_ + (gx#stx-pair? _%hd153056153108%_)) + (let ((_%e153059153115%_ (let () (declare (not safe)) - (gx#stx-e _%hd153019153071%_)))) - (let ((_%lp-hd153023153081%_ + (gx#stx-e _%hd153056153108%_)))) + (let ((_%lp-hd153060153118%_ (let () (declare (not safe)) - (##car _%e153022153078%_))) - (_%lp-tl153024153083%_ + (##car _%e153059153115%_))) + (_%lp-tl153061153120%_ (let () (declare (not safe)) - (##cdr _%e153022153078%_)))) + (##cdr _%e153059153115%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd153023153081%_)) - (let ((_%e153032153086%_ + (gx#stx-pair? _%lp-hd153060153118%_)) + (let ((_%e153069153123%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd153023153081%_)))) - (let ((_%hd153033153089%_ + (gx#stx-e _%lp-hd153060153118%_)))) + (let ((_%hd153070153126%_ (let () (declare (not safe)) - (##car _%e153032153086%_))) - (_%tl153034153091%_ + (##car _%e153069153123%_))) + (_%tl153071153128%_ (let () (declare (not safe)) - (##cdr _%e153032153086%_)))) + (##cdr _%e153069153123%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153034153091%_)) - (let ((_%e153035153094%_ + (gx#stx-pair? _%tl153071153128%_)) + (let ((_%e153072153131%_ (let () (declare (not safe)) (gx#stx-e - _%tl153034153091%_)))) - (let ((_%hd153036153097%_ + _%tl153071153128%_)))) + (let ((_%hd153073153134%_ (let () (declare (not safe)) - (##car _%e153035153094%_))) - (_%tl153037153099%_ + (##car _%e153072153131%_))) + (_%tl153074153136%_ (let () (declare (not safe)) - (##cdr _%e153035153094%_)))) + (##cdr _%e153072153131%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153037153099%_)) - (_%loop153021153068%_ - _%lp-tl153024153083%_ - (cons _%hd153036153097%_ - _%expr153025153073%_) - (cons _%hd153033153089%_ - _%bind153026153075%_)) - (_%g153007153042%_ - _%g153008153045%_)))) - (_%g153007153042%_ - _%g153008153045%_)))) - (_%g153007153042%_ _%g153008153045%_)))) - (let ((_%expr153027153102%_ - (reverse _%expr153025153073%_)) - (_%bind153028153104%_ - (reverse _%bind153026153075%_))) + _%tl153074153136%_)) + (_%loop153058153105%_ + _%lp-tl153061153120%_ + (cons _%hd153073153134%_ + _%expr153062153110%_) + (cons _%hd153070153126%_ + _%bind153063153112%_)) + (_%g153044153079%_ + _%g153045153082%_)))) + (_%g153044153079%_ + _%g153045153082%_)))) + (_%g153044153079%_ _%g153045153082%_)))) + (let ((_%expr153064153139%_ + (reverse _%expr153062153110%_)) + (_%bind153065153141%_ + (reverse _%bind153063153112%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153017153060%_)) - (let ((_%e153029153107%_ + (gx#stx-pair? _%tl153054153097%_)) + (let ((_%e153066153144%_ (let () (declare (not safe)) - (gx#stx-e _%tl153017153060%_)))) - (let ((_%hd153030153110%_ + (gx#stx-e _%tl153054153097%_)))) + (let ((_%hd153067153147%_ (let () (declare (not safe)) - (##car _%e153029153107%_))) - (_%tl153031153112%_ + (##car _%e153066153144%_))) + (_%tl153068153149%_ (let () (declare (not safe)) - (##cdr _%e153029153107%_)))) + (##cdr _%e153066153144%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153031153112%_)) - ((lambda (_%L153115%_ - _%L153116%_ - _%L153117%_) - (let ((_%$e153148%_ - (let ((__tmp153903 - (lambda (_%g153136153138%_) + (gx#stx-null? _%tl153068153149%_)) + ((lambda (_%L153152%_ + _%L153153%_ + _%L153154%_) + (let ((_%$e153185%_ + (let ((__tmp153940 + (lambda (_%g153173153175%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153004%_ - _%g153136153138%_)))) - (__tmp153901 - (let ((__tmp153902 - (lambda (_%g153140153143%_ + _%self153041%_ + _%g153173153175%_)))) + (__tmp153938 + (let ((__tmp153939 + (lambda (_%g153177153180%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g153141153145%_) - (cons _%g153140153143%_ _%g153141153145%_)))) + _%g153178153182%_) + (cons _%g153177153180%_ _%g153178153182%_)))) (declare (not safe)) - (__foldr1 __tmp153902 '() _%L153116%_)))) + (__foldr1 __tmp153939 '() _%L153153%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__ormap1 - __tmp153903 - __tmp153901)))) - (if _%$e153148%_ - _%$e153148%_ + __tmp153940 + __tmp153938)))) + (if _%$e153185%_ + _%$e153185%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153004%_ - _%L153115%_))))) - _%hd153030153110%_ - _%expr153027153102%_ - _%bind153028153104%_) - (_%g153007153042%_ _%g153008153045%_)))) - (_%g153007153042%_ _%g153008153045%_))))))) + _%self153041%_ + _%L153152%_))))) + _%hd153067153147%_ + _%expr153064153139%_ + _%bind153065153141%_) + (_%g153044153079%_ _%g153045153082%_)))) + (_%g153044153079%_ _%g153045153082%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153021153068%_ - _%target153018153063%_ + (_%loop153058153105%_ + _%target153055153100%_ '() '())) - (_%g153007153042%_ - _%g153008153045%_))))) - (_%g153007153042%_ _%g153008153045%_)))) - (_%g153007153042%_ _%g153008153045%_)))) - (_%g153007153042%_ _%g153008153045%_))))) - (_%g153006153151%_ _%stx153005%_)))) + (_%g153044153079%_ + _%g153045153082%_))))) + (_%g153044153079%_ _%g153045153082%_)))) + (_%g153044153079%_ _%g153045153082%_)))) + (_%g153044153079%_ _%g153045153082%_))))) + (_%g153043153188%_ _%stx153042%_)))) (define gxc#find-var-refs-ref% - (lambda (_%self152948%_ _%stx152949%_) - (let* ((_%g152951152964%_ - (lambda (_%g152952152961%_) + (lambda (_%self152985%_ _%stx152986%_) + (let* ((_%g152988153001%_ + (lambda (_%g152989152998%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152952152961%_)))) - (_%g152950153001%_ - (lambda (_%g152952152967%_) + _%g152989152998%_)))) + (_%g152987153038%_ + (lambda (_%g152989153004%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152952152967%_)) - (let ((_%e152954152969%_ + (gx#stx-pair? _%g152989153004%_)) + (let ((_%e152991153006%_ (let () (declare (not safe)) - (gx#stx-e _%g152952152967%_)))) - (let ((_%hd152955152972%_ + (gx#stx-e _%g152989153004%_)))) + (let ((_%hd152992153009%_ (let () (declare (not safe)) - (##car _%e152954152969%_))) - (_%tl152956152974%_ + (##car _%e152991153006%_))) + (_%tl152993153011%_ (let () (declare (not safe)) - (##cdr _%e152954152969%_)))) + (##cdr _%e152991153006%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152956152974%_)) - (let ((_%e152957152977%_ + (gx#stx-pair? _%tl152993153011%_)) + (let ((_%e152994153014%_ (let () (declare (not safe)) - (gx#stx-e _%tl152956152974%_)))) - (let ((_%hd152958152980%_ + (gx#stx-e _%tl152993153011%_)))) + (let ((_%hd152995153017%_ (let () (declare (not safe)) - (##car _%e152957152977%_))) - (_%tl152959152982%_ + (##car _%e152994153014%_))) + (_%tl152996153019%_ (let () (declare (not safe)) - (##cdr _%e152957152977%_)))) + (##cdr _%e152994153014%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152959152982%_)) - ((lambda (_%L152985%_) - (let ((__tmp153905 - (lambda (_%g152996152998%_) + (gx#stx-null? _%tl152996153019%_)) + ((lambda (_%L153022%_) + (let ((__tmp153942 + (lambda (_%g153033153035%_) (let () (declare (not safe)) (gx#free-identifier=? - _%L152985%_ - _%g152996152998%_)))) - (__tmp153904 + _%L153022%_ + _%g153033153035%_)))) + (__tmp153941 (let () (declare (not safe)) (slot-ref__0 - _%self152948%_ + _%self152985%_ 'ids)))) (declare (not safe)) - (__find __tmp153905 __tmp153904))) - _%hd152958152980%_) - (_%g152951152964%_ _%g152952152967%_)))) - (_%g152951152964%_ _%g152952152967%_)))) - (_%g152951152964%_ _%g152952152967%_))))) - (_%g152950153001%_ _%stx152949%_)))) + (__find __tmp153942 __tmp153941))) + _%hd152995153017%_) + (_%g152988153001%_ _%g152989153004%_)))) + (_%g152988153001%_ _%g152989153004%_)))) + (_%g152988153001%_ _%g152989153004%_))))) + (_%g152987153038%_ _%stx152986%_)))) (define gxc#find-var-refs-setq% - (lambda (_%self152873%_ _%stx152874%_) - (let* ((_%g152876152893%_ - (lambda (_%g152877152890%_) + (lambda (_%self152910%_ _%stx152911%_) + (let* ((_%g152913152930%_ + (lambda (_%g152914152927%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152877152890%_)))) - (_%g152875152945%_ - (lambda (_%g152877152896%_) + _%g152914152927%_)))) + (_%g152912152982%_ + (lambda (_%g152914152933%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152877152896%_)) - (let ((_%e152880152898%_ + (gx#stx-pair? _%g152914152933%_)) + (let ((_%e152917152935%_ (let () (declare (not safe)) - (gx#stx-e _%g152877152896%_)))) - (let ((_%hd152881152901%_ + (gx#stx-e _%g152914152933%_)))) + (let ((_%hd152918152938%_ (let () (declare (not safe)) - (##car _%e152880152898%_))) - (_%tl152882152903%_ + (##car _%e152917152935%_))) + (_%tl152919152940%_ (let () (declare (not safe)) - (##cdr _%e152880152898%_)))) + (##cdr _%e152917152935%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152882152903%_)) - (let ((_%e152883152906%_ + (gx#stx-pair? _%tl152919152940%_)) + (let ((_%e152920152943%_ (let () (declare (not safe)) - (gx#stx-e _%tl152882152903%_)))) - (let ((_%hd152884152909%_ + (gx#stx-e _%tl152919152940%_)))) + (let ((_%hd152921152946%_ (let () (declare (not safe)) - (##car _%e152883152906%_))) - (_%tl152885152911%_ + (##car _%e152920152943%_))) + (_%tl152922152948%_ (let () (declare (not safe)) - (##cdr _%e152883152906%_)))) + (##cdr _%e152920152943%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152885152911%_)) - (let ((_%e152886152914%_ + (gx#stx-pair? _%tl152922152948%_)) + (let ((_%e152923152951%_ (let () (declare (not safe)) - (gx#stx-e _%tl152885152911%_)))) - (let ((_%hd152887152917%_ + (gx#stx-e _%tl152922152948%_)))) + (let ((_%hd152924152954%_ (let () (declare (not safe)) - (##car _%e152886152914%_))) - (_%tl152888152919%_ + (##car _%e152923152951%_))) + (_%tl152925152956%_ (let () (declare (not safe)) - (##cdr _%e152886152914%_)))) + (##cdr _%e152923152951%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152888152919%_)) - ((lambda (_%L152922%_ - _%L152923%_) - (let ((_%$e152942%_ - (let ((__tmp153907 - (lambda (_%g152937152939%_) + _%tl152925152956%_)) + ((lambda (_%L152959%_ + _%L152960%_) + (let ((_%$e152979%_ + (let ((__tmp153944 + (lambda (_%g152974152976%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#free-identifier=? - _%L152923%_ - _%g152937152939%_)))) - (__tmp153906 + _%L152960%_ + _%g152974152976%_)))) + (__tmp153943 (let () (declare (not safe)) - (slot-ref__0 _%self152873%_ 'ids)))) + (slot-ref__0 _%self152910%_ 'ids)))) (declare (not safe)) - (__find __tmp153907 __tmp153906)))) + (__find __tmp153944 __tmp153943)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e152942%_ - _%$e152942%_ + (if _%$e152979%_ + _%$e152979%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152873%_ - _%L152922%_))))) - _%hd152887152917%_ - _%hd152884152909%_) - (_%g152876152893%_ - _%g152877152896%_)))) - (_%g152876152893%_ _%g152877152896%_)))) - (_%g152876152893%_ _%g152877152896%_)))) - (_%g152876152893%_ _%g152877152896%_))))) - (_%g152875152945%_ _%stx152874%_)))))) + _%self152910%_ + _%L152959%_))))) + _%hd152924152954%_ + _%hd152921152946%_) + (_%g152913152930%_ + _%g152914152933%_)))) + (_%g152913152930%_ _%g152914152933%_)))) + (_%g152913152930%_ _%g152914152933%_)))) + (_%g152913152930%_ _%g152914152933%_))))) + (_%g152912152982%_ _%stx152911%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm index 135d2ddc1..359f84728 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]#_g153909_| + (define |gxc[1]#_g153946_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153911_| + (define |gxc[1]#_g153948_| (##structure gx#syntax-quote::t '::collect-mutators::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153913_| + (define |gxc[1]#_g153950_| (##structure gx#syntax-quote::t 'make-::collect-mutators #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153915_| + (define |gxc[1]#_g153952_| (##structure gx#syntax-quote::t '::collect-mutators? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153917_| + (define |gxc[1]#_g153954_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153919_| + (define |gxc[1]#_g153956_| (##structure gx#syntax-quote::t '::expression-subst::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153921_| + (define |gxc[1]#_g153958_| (##structure gx#syntax-quote::t 'make-::expression-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153923_| + (define |gxc[1]#_g153960_| (##structure gx#syntax-quote::t '::expression-subst? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153925_| + (define |gxc[1]#_g153962_| (##structure gx#syntax-quote::t '::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153926_| + (define |gxc[1]#_g153963_| (##structure gx#syntax-quote::t '::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153928_| + (define |gxc[1]#_g153965_| (##structure gx#syntax-quote::t '::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153929_| + (define |gxc[1]#_g153966_| (##structure gx#syntax-quote::t '::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153931_| + (define |gxc[1]#_g153968_| (##structure gx#syntax-quote::t '&::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153932_| + (define |gxc[1]#_g153969_| (##structure gx#syntax-quote::t '&::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153934_| + (define |gxc[1]#_g153971_| (##structure gx#syntax-quote::t '&::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153935_| + (define |gxc[1]#_g153972_| (##structure gx#syntax-quote::t '&::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153938_| + (define |gxc[1]#_g153975_| (##structure gx#syntax-quote::t '::expression-subst*::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153940_| + (define |gxc[1]#_g153977_| (##structure gx#syntax-quote::t 'make-::expression-subst* #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153942_| + (define |gxc[1]#_g153979_| (##structure gx#syntax-quote::t '::expression-subst*? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153944_| + (define |gxc[1]#_g153981_| (##structure gx#syntax-quote::t '::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153946_| + (define |gxc[1]#_g153983_| (##structure gx#syntax-quote::t '::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153948_| + (define |gxc[1]#_g153985_| (##structure gx#syntax-quote::t '&::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153950_| + (define |gxc[1]#_g153987_| (##structure gx#syntax-quote::t '&::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153952_| + (define |gxc[1]#_g153989_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153954_| + (define |gxc[1]#_g153991_| (##structure gx#syntax-quote::t '::find-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153956_| + (define |gxc[1]#_g153993_| (##structure gx#syntax-quote::t 'make-::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153958_| + (define |gxc[1]#_g153995_| (##structure gx#syntax-quote::t '::find-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153960_| + (define |gxc[1]#_g153997_| (##structure gx#syntax-quote::t '::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153962_| + (define |gxc[1]#_g153999_| (##structure gx#syntax-quote::t '::find-var-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153964_| + (define |gxc[1]#_g154001_| (##structure gx#syntax-quote::t 'make-::find-var-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153966_| + (define |gxc[1]#_g154003_| (##structure gx#syntax-quote::t '::find-var-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153968_| + (define |gxc[1]#_g154005_| (##structure gx#syntax-quote::t '::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153970_| + (define |gxc[1]#_g154007_| (##structure gx#syntax-quote::t '::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153972_| + (define |gxc[1]#_g154009_| (##structure gx#syntax-quote::t '&::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153974_| + (define |gxc[1]#_g154011_| (##structure gx#syntax-quote::t '&::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153976_| + (define |gxc[1]#_g154013_| (##structure gx#syntax-quote::t '::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153978_| + (define |gxc[1]#_g154015_| (##structure gx#syntax-quote::t '::collect-runtime-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153980_| + (define |gxc[1]#_g154017_| (##structure gx#syntax-quote::t 'make-::collect-runtime-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153982_| + (define |gxc[1]#_g154019_| (##structure gx#syntax-quote::t '::collect-runtime-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153984_| + (define |gxc[1]#_g154021_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153986_| + (define |gxc[1]#_g154023_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153988_| + (define |gxc[1]#_g154025_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153990_| + (define |gxc[1]#_g154027_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table-set! @@ -303,7 +303,7 @@ '())) (begin (define |gxc[:0:]#::collect-mutators| - (let ((__obj153846 + (let ((__obj153883 (let () (declare (not safe)) (##structure @@ -332,7 +332,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153846 + __obj153883 'gxc#::collect-mutators::t '1 '#f @@ -340,65 +340,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153846 + __obj153883 '::collect-mutators '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153883 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '() '6 '#f '#f)) - (let ((__tmp153908 (cons |gxc[1]#_g153909_| '()))) + (##unchecked-structure-set! __obj153883 '() '6 '#f '#f)) + (let ((__tmp153945 (cons |gxc[1]#_g153946_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153846 __tmp153908 '3 '#f '#f)) + (##unchecked-structure-set! __obj153883 __tmp153945 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153883 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153883 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153883 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '#f '11 '#f '#f)) - (let ((__tmp153910 |gxc[1]#_g153911_|)) + (##unchecked-structure-set! __obj153883 '#f '11 '#f '#f)) + (let ((__tmp153947 |gxc[1]#_g153948_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153846 __tmp153910 '12 '#f '#f)) - (let ((__tmp153912 |gxc[1]#_g153913_|)) + (##unchecked-structure-set! __obj153883 __tmp153947 '12 '#f '#f)) + (let ((__tmp153949 |gxc[1]#_g153950_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153846 __tmp153912 '13 '#f '#f)) - (let ((__tmp153914 |gxc[1]#_g153915_|)) + (##unchecked-structure-set! __obj153883 __tmp153949 '13 '#f '#f)) + (let ((__tmp153951 |gxc[1]#_g153952_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153846 __tmp153914 '14 '#f '#f)) + (##unchecked-structure-set! __obj153883 __tmp153951 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj153883 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj153883 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj153883 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj153883 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153883 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153883 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153846 '() '20 '#f '#f)) - __obj153846)) + (##unchecked-structure-set! __obj153883 '() '20 '#f '#f)) + __obj153883)) (define |gxc[:0:]#::expression-subst| - (let ((__obj153848 + (let ((__obj153885 (let () (declare (not safe)) (##structure @@ -427,7 +427,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153848 + __obj153885 'gxc#::expression-subst::t '1 '#f @@ -435,73 +435,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153848 + __obj153885 '::expression-subst '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153848 '(id new-id) '4 '#f '#f)) + (##unchecked-structure-set! __obj153885 '(id new-id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153848 '(id new-id) '6 '#f '#f)) - (let ((__tmp153916 (cons |gxc[1]#_g153917_| '()))) + (##unchecked-structure-set! __obj153885 '(id new-id) '6 '#f '#f)) + (let ((__tmp153953 (cons |gxc[1]#_g153954_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153848 __tmp153916 '3 '#f '#f)) + (##unchecked-structure-set! __obj153885 __tmp153953 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153848 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153885 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153848 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153885 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153848 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153885 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153848 '#f '11 '#f '#f)) - (let ((__tmp153918 |gxc[1]#_g153919_|)) + (##unchecked-structure-set! __obj153885 '#f '11 '#f '#f)) + (let ((__tmp153955 |gxc[1]#_g153956_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153848 __tmp153918 '12 '#f '#f)) - (let ((__tmp153920 |gxc[1]#_g153921_|)) + (##unchecked-structure-set! __obj153885 __tmp153955 '12 '#f '#f)) + (let ((__tmp153957 |gxc[1]#_g153958_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153848 __tmp153920 '13 '#f '#f)) - (let ((__tmp153922 |gxc[1]#_g153923_|)) + (##unchecked-structure-set! __obj153885 __tmp153957 '13 '#f '#f)) + (let ((__tmp153959 |gxc[1]#_g153960_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153848 __tmp153922 '14 '#f '#f)) - (let ((__tmp153924 - (cons (cons 'id |gxc[1]#_g153925_|) - (cons (cons 'new-id |gxc[1]#_g153926_|) '())))) + (##unchecked-structure-set! __obj153885 __tmp153959 '14 '#f '#f)) + (let ((__tmp153961 + (cons (cons 'id |gxc[1]#_g153962_|) + (cons (cons 'new-id |gxc[1]#_g153963_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153848 __tmp153924 '15 '#f '#f)) - (let ((__tmp153927 - (cons (cons 'id |gxc[1]#_g153928_|) - (cons (cons 'new-id |gxc[1]#_g153929_|) '())))) + (##unchecked-structure-set! __obj153885 __tmp153961 '15 '#f '#f)) + (let ((__tmp153964 + (cons (cons 'id |gxc[1]#_g153965_|) + (cons (cons 'new-id |gxc[1]#_g153966_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153848 __tmp153927 '16 '#f '#f)) - (let ((__tmp153930 - (cons (cons 'id |gxc[1]#_g153931_|) - (cons (cons 'new-id |gxc[1]#_g153932_|) '())))) + (##unchecked-structure-set! __obj153885 __tmp153964 '16 '#f '#f)) + (let ((__tmp153967 + (cons (cons 'id |gxc[1]#_g153968_|) + (cons (cons 'new-id |gxc[1]#_g153969_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153848 __tmp153930 '17 '#f '#f)) - (let ((__tmp153933 - (cons (cons 'id |gxc[1]#_g153934_|) - (cons (cons 'new-id |gxc[1]#_g153935_|) '())))) + (##unchecked-structure-set! __obj153885 __tmp153967 '17 '#f '#f)) + (let ((__tmp153970 + (cons (cons 'id |gxc[1]#_g153971_|) + (cons (cons 'new-id |gxc[1]#_g153972_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153848 __tmp153933 '18 '#f '#f)) + (##unchecked-structure-set! __obj153885 __tmp153970 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153848 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153885 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153848 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153885 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153848 '() '20 '#f '#f)) - __obj153848)) + (##unchecked-structure-set! __obj153885 '() '20 '#f '#f)) + __obj153885)) (define |gxc[:0:]#::expression-subst*| - (let ((__obj153850 + (let ((__obj153887 (let () (declare (not safe)) (##structure @@ -530,7 +530,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153850 + __obj153887 'gxc#::expression-subst*::t '1 '#f @@ -538,65 +538,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153850 + __obj153887 '::expression-subst* '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153850 '(subst) '4 '#f '#f)) + (##unchecked-structure-set! __obj153887 '(subst) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153850 '(subst) '6 '#f '#f)) - (let ((__tmp153936 (cons |gxc[1]#_g153917_| '()))) + (##unchecked-structure-set! __obj153887 '(subst) '6 '#f '#f)) + (let ((__tmp153973 (cons |gxc[1]#_g153954_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153850 __tmp153936 '3 '#f '#f)) + (##unchecked-structure-set! __obj153887 __tmp153973 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153850 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153887 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153850 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153887 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153850 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153887 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153850 '#f '11 '#f '#f)) - (let ((__tmp153937 |gxc[1]#_g153938_|)) + (##unchecked-structure-set! __obj153887 '#f '11 '#f '#f)) + (let ((__tmp153974 |gxc[1]#_g153975_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153850 __tmp153937 '12 '#f '#f)) - (let ((__tmp153939 |gxc[1]#_g153940_|)) + (##unchecked-structure-set! __obj153887 __tmp153974 '12 '#f '#f)) + (let ((__tmp153976 |gxc[1]#_g153977_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153850 __tmp153939 '13 '#f '#f)) - (let ((__tmp153941 |gxc[1]#_g153942_|)) + (##unchecked-structure-set! __obj153887 __tmp153976 '13 '#f '#f)) + (let ((__tmp153978 |gxc[1]#_g153979_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153850 __tmp153941 '14 '#f '#f)) - (let ((__tmp153943 (cons (cons 'subst |gxc[1]#_g153944_|) '()))) + (##unchecked-structure-set! __obj153887 __tmp153978 '14 '#f '#f)) + (let ((__tmp153980 (cons (cons 'subst |gxc[1]#_g153981_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153850 __tmp153943 '15 '#f '#f)) - (let ((__tmp153945 (cons (cons 'subst |gxc[1]#_g153946_|) '()))) + (##unchecked-structure-set! __obj153887 __tmp153980 '15 '#f '#f)) + (let ((__tmp153982 (cons (cons 'subst |gxc[1]#_g153983_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153850 __tmp153945 '16 '#f '#f)) - (let ((__tmp153947 (cons (cons 'subst |gxc[1]#_g153948_|) '()))) + (##unchecked-structure-set! __obj153887 __tmp153982 '16 '#f '#f)) + (let ((__tmp153984 (cons (cons 'subst |gxc[1]#_g153985_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153850 __tmp153947 '17 '#f '#f)) - (let ((__tmp153949 (cons (cons 'subst |gxc[1]#_g153950_|) '()))) + (##unchecked-structure-set! __obj153887 __tmp153984 '17 '#f '#f)) + (let ((__tmp153986 (cons (cons 'subst |gxc[1]#_g153987_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153850 __tmp153949 '18 '#f '#f)) + (##unchecked-structure-set! __obj153887 __tmp153986 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153850 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153887 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153850 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153887 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153850 '() '20 '#f '#f)) - __obj153850)) + (##unchecked-structure-set! __obj153887 '() '20 '#f '#f)) + __obj153887)) (define |gxc[:0:]#::find-expression| - (let ((__obj153852 + (let ((__obj153889 (let () (declare (not safe)) (##structure @@ -625,7 +625,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153852 + __obj153889 'gxc#::find-expression::t '1 '#f @@ -633,65 +633,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153852 + __obj153889 '::find-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153889 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '() '6 '#f '#f)) - (let ((__tmp153951 (cons |gxc[1]#_g153952_| '()))) + (##unchecked-structure-set! __obj153889 '() '6 '#f '#f)) + (let ((__tmp153988 (cons |gxc[1]#_g153989_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153852 __tmp153951 '3 '#f '#f)) + (##unchecked-structure-set! __obj153889 __tmp153988 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153889 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153889 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153889 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '#f '11 '#f '#f)) - (let ((__tmp153953 |gxc[1]#_g153954_|)) + (##unchecked-structure-set! __obj153889 '#f '11 '#f '#f)) + (let ((__tmp153990 |gxc[1]#_g153991_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153852 __tmp153953 '12 '#f '#f)) - (let ((__tmp153955 |gxc[1]#_g153956_|)) + (##unchecked-structure-set! __obj153889 __tmp153990 '12 '#f '#f)) + (let ((__tmp153992 |gxc[1]#_g153993_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153852 __tmp153955 '13 '#f '#f)) - (let ((__tmp153957 |gxc[1]#_g153958_|)) + (##unchecked-structure-set! __obj153889 __tmp153992 '13 '#f '#f)) + (let ((__tmp153994 |gxc[1]#_g153995_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153852 __tmp153957 '14 '#f '#f)) + (##unchecked-structure-set! __obj153889 __tmp153994 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj153889 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj153889 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj153889 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj153889 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153889 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153889 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153852 '() '20 '#f '#f)) - __obj153852)) + (##unchecked-structure-set! __obj153889 '() '20 '#f '#f)) + __obj153889)) (define |gxc[:0:]#::find-var-refs| - (let ((__obj153853 + (let ((__obj153890 (let () (declare (not safe)) (##structure @@ -720,68 +720,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153853 + __obj153890 'gxc#::find-var-refs::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153853 '::find-var-refs '2 '#f '#f)) + (##unchecked-structure-set! __obj153890 '::find-var-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153853 '(ids) '4 '#f '#f)) + (##unchecked-structure-set! __obj153890 '(ids) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153853 '(ids) '6 '#f '#f)) - (let ((__tmp153959 (cons |gxc[1]#_g153960_| '()))) + (##unchecked-structure-set! __obj153890 '(ids) '6 '#f '#f)) + (let ((__tmp153996 (cons |gxc[1]#_g153997_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153853 __tmp153959 '3 '#f '#f)) + (##unchecked-structure-set! __obj153890 __tmp153996 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153853 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153890 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153853 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153890 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153853 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153890 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153853 '#f '11 '#f '#f)) - (let ((__tmp153961 |gxc[1]#_g153962_|)) + (##unchecked-structure-set! __obj153890 '#f '11 '#f '#f)) + (let ((__tmp153998 |gxc[1]#_g153999_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153853 __tmp153961 '12 '#f '#f)) - (let ((__tmp153963 |gxc[1]#_g153964_|)) + (##unchecked-structure-set! __obj153890 __tmp153998 '12 '#f '#f)) + (let ((__tmp154000 |gxc[1]#_g154001_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153853 __tmp153963 '13 '#f '#f)) - (let ((__tmp153965 |gxc[1]#_g153966_|)) + (##unchecked-structure-set! __obj153890 __tmp154000 '13 '#f '#f)) + (let ((__tmp154002 |gxc[1]#_g154003_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153853 __tmp153965 '14 '#f '#f)) - (let ((__tmp153967 (cons (cons 'ids |gxc[1]#_g153968_|) '()))) + (##unchecked-structure-set! __obj153890 __tmp154002 '14 '#f '#f)) + (let ((__tmp154004 (cons (cons 'ids |gxc[1]#_g154005_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153853 __tmp153967 '15 '#f '#f)) - (let ((__tmp153969 (cons (cons 'ids |gxc[1]#_g153970_|) '()))) + (##unchecked-structure-set! __obj153890 __tmp154004 '15 '#f '#f)) + (let ((__tmp154006 (cons (cons 'ids |gxc[1]#_g154007_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153853 __tmp153969 '16 '#f '#f)) - (let ((__tmp153971 (cons (cons 'ids |gxc[1]#_g153972_|) '()))) + (##unchecked-structure-set! __obj153890 __tmp154006 '16 '#f '#f)) + (let ((__tmp154008 (cons (cons 'ids |gxc[1]#_g154009_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153853 __tmp153971 '17 '#f '#f)) - (let ((__tmp153973 (cons (cons 'ids |gxc[1]#_g153974_|) '()))) + (##unchecked-structure-set! __obj153890 __tmp154008 '17 '#f '#f)) + (let ((__tmp154010 (cons (cons 'ids |gxc[1]#_g154011_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153853 __tmp153973 '18 '#f '#f)) + (##unchecked-structure-set! __obj153890 __tmp154010 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153853 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153890 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153853 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153890 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153853 '() '20 '#f '#f)) - __obj153853)) + (##unchecked-structure-set! __obj153890 '() '20 '#f '#f)) + __obj153890)) (define |gxc[:0:]#::collect-runtime-refs| - (let ((__obj153855 + (let ((__obj153892 (let () (declare (not safe)) (##structure @@ -810,7 +810,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153855 + __obj153892 'gxc#::collect-runtime-refs::t '1 '#f @@ -818,60 +818,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153855 + __obj153892 '::collect-runtime-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153855 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153892 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153855 '(table) '6 '#f '#f)) - (let ((__tmp153975 (cons |gxc[1]#_g153976_| '()))) + (##unchecked-structure-set! __obj153892 '(table) '6 '#f '#f)) + (let ((__tmp154012 (cons |gxc[1]#_g154013_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153855 __tmp153975 '3 '#f '#f)) + (##unchecked-structure-set! __obj153892 __tmp154012 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153855 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153892 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153855 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153892 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153855 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153892 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153855 '#f '11 '#f '#f)) - (let ((__tmp153977 |gxc[1]#_g153978_|)) + (##unchecked-structure-set! __obj153892 '#f '11 '#f '#f)) + (let ((__tmp154014 |gxc[1]#_g154015_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153855 __tmp153977 '12 '#f '#f)) - (let ((__tmp153979 |gxc[1]#_g153980_|)) + (##unchecked-structure-set! __obj153892 __tmp154014 '12 '#f '#f)) + (let ((__tmp154016 |gxc[1]#_g154017_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153855 __tmp153979 '13 '#f '#f)) - (let ((__tmp153981 |gxc[1]#_g153982_|)) + (##unchecked-structure-set! __obj153892 __tmp154016 '13 '#f '#f)) + (let ((__tmp154018 |gxc[1]#_g154019_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153855 __tmp153981 '14 '#f '#f)) - (let ((__tmp153983 (cons (cons 'table |gxc[1]#_g153984_|) '()))) + (##unchecked-structure-set! __obj153892 __tmp154018 '14 '#f '#f)) + (let ((__tmp154020 (cons (cons 'table |gxc[1]#_g154021_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153855 __tmp153983 '15 '#f '#f)) - (let ((__tmp153985 (cons (cons 'table |gxc[1]#_g153986_|) '()))) + (##unchecked-structure-set! __obj153892 __tmp154020 '15 '#f '#f)) + (let ((__tmp154022 (cons (cons 'table |gxc[1]#_g154023_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153855 __tmp153985 '16 '#f '#f)) - (let ((__tmp153987 (cons (cons 'table |gxc[1]#_g153988_|) '()))) + (##unchecked-structure-set! __obj153892 __tmp154022 '16 '#f '#f)) + (let ((__tmp154024 (cons (cons 'table |gxc[1]#_g154025_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153855 __tmp153987 '17 '#f '#f)) - (let ((__tmp153989 (cons (cons 'table |gxc[1]#_g153990_|) '()))) + (##unchecked-structure-set! __obj153892 __tmp154024 '17 '#f '#f)) + (let ((__tmp154026 (cons (cons 'table |gxc[1]#_g154027_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153855 __tmp153989 '18 '#f '#f)) + (##unchecked-structure-set! __obj153892 __tmp154026 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153855 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153892 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153855 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153892 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153855 '() '20 '#f '#f)) - __obj153855)))) + (##unchecked-structure-set! __obj153892 '() '20 '#f '#f)) + __obj153892)))) diff --git a/src/bootstrap/gerbil/compiler/optimize~0.scm b/src/bootstrap/gerbil/compiler/optimize~0.scm index ab709d710..152314924 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 1733687567) + (define gerbil/compiler/optimize::timestamp 1733870081) (begin (define gxc#optimizer-info-init! (lambda () (if (let () (declare (not safe)) (gxc#current-compile-optimizer-info)) '#!void - (let ((__tmp200711 - (let ((__obj200705 + (let ((__tmp200748 + (let ((__obj200742 (let () (declare (not safe)) (##structure @@ -18,17 +18,17 @@ '#f)))) (let () (declare (not safe)) - (gxc#optimizer-info:::init! __obj200705)) - __obj200705))) + (gxc#optimizer-info:::init! __obj200742)) + __obj200742))) (declare (not safe)) - (gxc#current-compile-optimizer-info __tmp200711))))) + (gxc#current-compile-optimizer-info __tmp200748))))) (define gxc#optimize! - (lambda (_%ctx200314%_) - (let ((__tmp200714 + (lambda (_%ctx200351%_) + (let ((__tmp200751 (lambda () - (gxc#optimizer-load-builtin-ssxi _%ctx200314%_) - (gxc#optimizer-load-ssxi-deps _%ctx200314%_) - (let ((__tmp200716 + (gxc#optimizer-load-builtin-ssxi _%ctx200351%_) + (gxc#optimizer-load-ssxi-deps _%ctx200351%_) + (let ((__tmp200753 (##structure-ref (let () (declare (not safe)) @@ -36,41 +36,41 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200715 + (__tmp200752 (##structure-ref - _%ctx200314%_ + _%ctx200351%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp200716 __tmp200715 '#t)) - (let ((_%code200317%_ + (hash-put! __tmp200753 __tmp200752 '#t)) + (let ((_%code200354%_ (gxc#optimize-source (##structure-ref - _%ctx200314%_ + _%ctx200351%_ '11 gx#module-context::t '#f)))) (##structure-set! - _%ctx200314%_ - _%code200317%_ + _%ctx200351%_ + _%code200354%_ '11 gx#module-context::t '#f)))) - (__tmp200713 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp200712 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp200750 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp200749 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (__call-with-parameters - __tmp200714 + __tmp200751 gxc#current-compile-mutators - __tmp200713 + __tmp200750 gxc#current-compile-local-type - __tmp200712)))) + __tmp200749)))) (define gxc#optimizer-load-builtin-ssxi - (lambda (_%ctx200300%_) - (letrec ((_%load-it!200302%_ - (lambda (_%id200312%_) - (if (let ((__tmp200717 + (lambda (_%ctx200337%_) + (letrec ((_%load-it!200339%_ + (lambda (_%id200349%_) + (if (let ((__tmp200754 (##structure-ref (let () (declare (not safe)) @@ -79,11 +79,11 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp200717 _%id200312%_)) + (hash-get __tmp200754 _%id200349%_)) '#!void (begin - (gxc#optimizer-import-ssxi-by-id _%id200312%_) - (let ((__tmp200718 + (gxc#optimizer-import-ssxi-by-id _%id200349%_) + (let ((__tmp200755 (##structure-ref (let () (declare (not safe)) @@ -92,29 +92,29 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp200718 _%id200312%_ '#t))))))) - (let* ((_%modid200304%_ + (hash-put! __tmp200755 _%id200349%_ '#t))))))) + (let* ((_%modid200341%_ (##structure-ref - _%ctx200300%_ + _%ctx200337%_ '1 gx#expander-context::t '#f)) - (_%modid-str200306%_ (symbol->string _%modid200304%_))) + (_%modid-str200343%_ (symbol->string _%modid200341%_))) (if (or (let () (declare (not safe)) - (##string-prefix? '"gerbil/runtime" _%modid-str200306%_)) + (##string-prefix? '"gerbil/runtime" _%modid-str200343%_)) (let () (declare (not safe)) - (##string-prefix? '"gerbil/core" _%modid-str200306%_))) + (##string-prefix? '"gerbil/core" _%modid-str200343%_))) (let () (declare (not safe)) (##for-each - _%load-it!200302%_ + _%load-it!200339%_ '(gerbil/builtin gerbil/builtin-inline-rules))) (let () (declare (not safe)) (##for-each - _%load-it!200302%_ + _%load-it!200339%_ '(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 (_%ctx200237%_) - (letrec* ((_%deps200239%_ - (let* ((_%imports200290%_ + (lambda (_%ctx200274%_) + (letrec* ((_%deps200276%_ + (let* ((_%imports200327%_ (##structure-ref - _%ctx200237%_ + _%ctx200274%_ '8 gx#module-context::t '#f)) - (_%$e200292%_ + (_%$e200329%_ (let () (declare (not safe)) - (gx#core-context-prelude__% _%ctx200237%_)))) - (if _%$e200292%_ - ((lambda (_%g200294200296%_) - (cons _%g200294200296%_ _%imports200290%_)) - _%$e200292%_) - _%imports200290%_)))) - (let _%lp200241%_ ((_%rest200243%_ _%deps200239%_)) - (let* ((_%rest200244200252%_ _%rest200243%_) - (_%else200246200260%_ (lambda () '#!void)) - (_%K200248200278%_ - (lambda (_%rest200263%_ _%hd200264%_) + (gx#core-context-prelude__% _%ctx200274%_)))) + (if _%$e200329%_ + ((lambda (_%g200331200333%_) + (cons _%g200331200333%_ _%imports200327%_)) + _%$e200329%_) + _%imports200327%_)))) + (let _%lp200278%_ ((_%rest200280%_ _%deps200276%_)) + (let* ((_%rest200281200289%_ _%rest200280%_) + (_%else200283200297%_ (lambda () '#!void)) + (_%K200285200315%_ + (lambda (_%rest200300%_ _%hd200301%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200264%_ + _%hd200301%_ 'gx#module-context::t)) (let () - (if (let ((__tmp200720 + (if (let ((__tmp200757 (##structure-ref (let () (declare (not safe)) @@ -172,52 +172,52 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200719 + (__tmp200756 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200264%_ + _%hd200301%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp200720 __tmp200719)) + (hash-get __tmp200757 __tmp200756)) '#!void (begin - (let ((_%$e200267%_ + (let ((_%$e200304%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd200264%_)))) - (if _%$e200267%_ - ((lambda (_%pre200270%_) - (_%lp200241%_ - (cons _%pre200270%_ + _%hd200301%_)))) + (if _%$e200304%_ + ((lambda (_%pre200307%_) + (_%lp200278%_ + (cons _%pre200307%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200264%_ + _%hd200301%_ '8 '#f '#f))))) - _%$e200267%_) - (_%lp200241%_ + _%$e200304%_) + (_%lp200278%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200264%_ + _%hd200301%_ '8 '#f '#f))))) - (gxc#optimizer-load-ssxi _%hd200264%_))) - (_%lp200241%_ _%rest200263%_)) + (gxc#optimizer-load-ssxi _%hd200301%_))) + (_%lp200278%_ _%rest200300%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200264%_ + _%hd200301%_ 'gx#prelude-context::t)) (let () - (if (let ((__tmp200722 + (if (let ((__tmp200759 (##structure-ref (let () (declare (not safe)) @@ -225,103 +225,103 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200721 + (__tmp200758 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200264%_ + _%hd200301%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp200722 __tmp200721)) + (hash-get __tmp200759 __tmp200758)) '#!void (begin - (_%lp200241%_ + (_%lp200278%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200264%_ + _%hd200301%_ '7 '#f '#f))) - (gxc#optimizer-load-ssxi _%hd200264%_))) - (_%lp200241%_ _%rest200263%_)) + (gxc#optimizer-load-ssxi _%hd200301%_))) + (_%lp200278%_ _%rest200300%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200264%_ + _%hd200301%_ 'gx#module-import::t)) - (_%lp200241%_ + (_%lp200278%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200264%_ + _%hd200301%_ '1 '#f '#f)) - _%rest200263%_)) + _%rest200300%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200264%_ + _%hd200301%_ 'gx#module-export::t)) - (_%lp200241%_ + (_%lp200278%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200264%_ + _%hd200301%_ '1 '#f '#f)) - _%rest200263%_)) + _%rest200300%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200264%_ + _%hd200301%_ 'gx#import-set::t)) - (_%lp200241%_ + (_%lp200278%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200264%_ + _%hd200301%_ '1 '#f '#f)) - _%rest200263%_)) + _%rest200300%_)) (let () (declare (not safe)) (error '"Unexpected module import" - _%hd200264%_)))))))))) - (if (pair? _%rest200244200252%_) - (let ((_%hd200249200281%_ + _%hd200301%_)))))))))) + (if (pair? _%rest200281200289%_) + (let ((_%hd200286200318%_ (let () (declare (not safe)) - (##car _%rest200244200252%_))) - (_%tl200250200283%_ + (##car _%rest200281200289%_))) + (_%tl200287200320%_ (let () (declare (not safe)) - (##cdr _%rest200244200252%_)))) - (let* ((_%hd200286%_ _%hd200249200281%_) - (_%rest200288%_ _%tl200250200283%_)) - (_%K200248200278%_ _%rest200288%_ _%hd200286%_))) + (##cdr _%rest200281200289%_)))) + (let* ((_%hd200323%_ _%hd200286200318%_) + (_%rest200325%_ _%tl200287200320%_)) + (_%K200285200315%_ _%rest200325%_ _%hd200323%_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_%ctx200217%_) + (lambda (_%ctx200254%_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%ctx200217%_ + _%ctx200254%_ 'gx#module-context::t)) (list? (let () (declare (not safe)) (##unchecked-structure-ref - _%ctx200217%_ + _%ctx200254%_ '7 '#f '#f)))) '#!void - (let* ((_%ht200219%_ + (let* ((_%ht200256%_ (##structure-ref (let () (declare (not safe)) @@ -329,172 +329,172 @@ '3 gxc#optimizer-info::t '#f)) - (_%id200221%_ + (_%id200258%_ (##structure-ref - _%ctx200217%_ + _%ctx200254%_ '1 gx#expander-context::t '#f)) - (_%mod200223%_ + (_%mod200260%_ (let () (declare (not safe)) - (hash-get _%ht200219%_ _%id200221%_))) - (_%$e200226%_ _%mod200223%_)) - (if _%$e200226%_ - _%$e200226%_ - (let* ((_%mod200229%_ - (gxc#optimizer-import-ssxi _%ctx200217%_)) - (_%val200234%_ - (let ((_%$e200231%_ _%mod200229%_)) - (if _%$e200231%_ _%$e200231%_ '#!void)))) + (hash-get _%ht200256%_ _%id200258%_))) + (_%$e200263%_ _%mod200260%_)) + (if _%$e200263%_ + _%$e200263%_ + (let* ((_%mod200266%_ + (gxc#optimizer-import-ssxi _%ctx200254%_)) + (_%val200271%_ + (let ((_%$e200268%_ _%mod200266%_)) + (if _%$e200268%_ _%$e200268%_ '#!void)))) (let () (declare (not safe)) - (hash-put! _%ht200219%_ _%id200221%_ _%val200234%_)) - _%val200234%_)))))) + (hash-put! _%ht200256%_ _%id200258%_ _%val200271%_)) + _%val200271%_)))))) (define gxc#optimizer-import-ssxi - (lambda (_%ctx200215%_) - (if (##structure-ref _%ctx200215%_ '1 gx#expander-context::t '#f) + (lambda (_%ctx200252%_) + (if (##structure-ref _%ctx200252%_ '1 gx#expander-context::t '#f) (gxc#optimizer-import-ssxi-by-id - (##structure-ref _%ctx200215%_ '1 gx#expander-context::t '#f)) + (##structure-ref _%ctx200252%_ '1 gx#expander-context::t '#f)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_%id200192%_) - (letrec ((_%catch-e200194%_ - (lambda (_%exn200213%_) + (lambda (_%id200229%_) + (letrec ((_%catch-e200231%_ + (lambda (_%exn200250%_) (if (equal? (let () (declare (not safe)) - (error-message _%exn200213%_)) + (error-message _%exn200250%_)) '"cannot find library module") '#!void (begin (let () (declare (not safe)) - (display-exception__0 _%exn200213%_)) + (display-exception__0 _%exn200250%_)) (let () (declare (not safe)) (displayln '"*** WARNING Failed to load ssxi module for " - _%id200192%_)))) + _%id200229%_)))) '#f)) - (_%import-e200195%_ + (_%import-e200232%_ (lambda () - (let* ((_%str-id200198%_ - (let ((__tmp200723 + (let* ((_%str-id200235%_ + (let ((__tmp200760 (let () (declare (not safe)) (gxc#module-id->path-string - _%id200192%_)))) + _%id200229%_)))) (declare (not safe)) - (##string-append __tmp200723 '".ssxi"))) - (_%artefact-path200206%_ - (let ((_%odir200199200201%_ + (##string-append __tmp200760 '".ssxi"))) + (_%artefact-path200243%_ + (let ((_%odir200236200238%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%odir200199200201%_ - (let ((_%odir200204%_ _%odir200199200201%_)) + (if _%odir200236200238%_ + (let ((_%odir200241%_ _%odir200236200238%_)) (path-expand (let () (declare (not safe)) (##string-append - _%str-id200198%_ + _%str-id200235%_ '".ss")) - _%odir200204%_)) + _%odir200241%_)) '#f))) - (_%library-path200208%_ - (let ((__tmp200724 + (_%library-path200245%_ + (let ((__tmp200761 (let () (declare (not safe)) (##string-append '":" - _%str-id200198%_ + _%str-id200235%_ '".ss")))) (declare (not safe)) - (##string->symbol __tmp200724))) - (_%ssxi-path200210%_ - (if (and _%artefact-path200206%_ - (file-exists? _%artefact-path200206%_)) - _%artefact-path200206%_ - _%library-path200208%_))) + (##string->symbol __tmp200761))) + (_%ssxi-path200247%_ + (if (and _%artefact-path200243%_ + (file-exists? _%artefact-path200243%_)) + _%artefact-path200243%_ + _%library-path200245%_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _%ssxi-path200210%_)) + _%ssxi-path200247%_)) (let () (declare (not safe)) - (gx#import-module__% _%ssxi-path200210%_ '#t '#t)))))) + (gx#import-module__% _%ssxi-path200247%_ '#t '#t)))))) (let () (declare (not safe)) - (__with-catch _%catch-e200194%_ _%import-e200195%_))))) + (__with-catch _%catch-e200231%_ _%import-e200232%_))))) (define gxc#optimize-source - (lambda (_%stx200177%_) + (lambda (_%stx200214%_) (let () (declare (not safe)) - (gxc#apply-collect-mutators _%stx200177%_)) + (gxc#apply-collect-mutators _%stx200214%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _%stx200177%_)) - (let* ((_%stx200179%_ + (gxc#apply-collect-top-level-type-info _%stx200214%_)) + (let* ((_%stx200216%_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _%stx200177%_))) - (_%stx200181%_ + (gxc#apply-generate-method-specializers _%stx200214%_))) + (_%stx200218%_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _%stx200179%_)))) + (gxc#apply-lift-top-lambdas _%stx200216%_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _%stx200181%_)) + (gxc#apply-collect-type-info _%stx200218%_)) (let () (declare (not safe)) - (gxc#apply-collect-mutable-type-info _%stx200181%_)) - (let _%fixpoint200184%_ ((_%current200186%_ + (gxc#apply-collect-mutable-type-info _%stx200218%_)) + (let _%fixpoint200221%_ ((_%current200223%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) (let () (declare (not safe)) - (gxc#apply-refine-type-info _%stx200181%_)) - (let ((_%refined200188%_ + (gxc#apply-refine-type-info _%stx200218%_)) + (let ((_%refined200225%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) - (if (equal? _%current200186%_ _%refined200188%_) + (if (equal? _%current200223%_ _%refined200225%_) '#!void - (_%fixpoint200184%_ _%refined200188%_)))) + (_%fixpoint200221%_ _%refined200225%_)))) (let () (declare (not safe)) - (gxc#apply-check-return-type _%stx200181%_)) + (gxc#apply-check-return-type _%stx200218%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-declarations _%stx200181%_)) - (let ((_%stx200190%_ + (gxc#apply-collect-top-level-declarations _%stx200218%_)) + (let ((_%stx200227%_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _%stx200181%_)))) + (gxc#apply-optimize-annotated _%stx200218%_)))) (declare (not safe)) - (gxc#apply-optimize-call _%stx200190%_))))) + (gxc#apply-optimize-call _%stx200227%_))))) (define gxc#::generate-ssxi::t - (let ((__tmp200726 (list gxc#::generate-runtime-empty::t)) - (__tmp200725 (cons (cons 'final: '#t) '()))) + (let ((__tmp200763 (list gxc#::generate-runtime-empty::t)) + (__tmp200762 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-ssxi::t '::generate-ssxi - __tmp200726 + __tmp200763 '() - __tmp200725 + __tmp200762 '#f))) (define gxc#::generate-ssxi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-ssxi::t))) (define gxc#make-::generate-ssxi - (lambda _%$args200174%_ - (apply make-instance gxc#::generate-ssxi::t _%$args200174%_))) + (lambda _%$args200211%_ + (apply make-instance gxc#::generate-ssxi::t _%$args200211%_))) (define gxc#::generate-ssxi-bind-methods! - (let ((__tmp200727 + (let ((__tmp200764 (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 __tmp200727))) + (__make-promise __tmp200764))) (define gxc#apply-generate-ssxi - (lambda (_%stx200166%_) + (lambda (_%stx200203%_) (force gxc#::generate-ssxi-bind-methods!) - (let* ((_%self200169%_ - (let ((__obj200707 + (let* ((_%self200206%_ + (let ((__obj200744 (let () (declare (not safe)) (##structure gxc#::generate-ssxi::t)))) - __obj200707)) - (__tmp200728 + __obj200744)) + (__tmp200765 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self200169%_ _%stx200166%_))))) + (gxc#compile-e__1 _%self200206%_ _%stx200203%_))))) (declare (not safe)) (__call-with-parameters - __tmp200728 + __tmp200765 gxc#current-compile-method - _%self200169%_)))) + _%self200206%_)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_%self200126%_ _%stx200127%_) - (let* ((_%g200129200139%_ - (lambda (_%g200130200136%_) + (lambda (_%self200163%_ _%stx200164%_) + (let* ((_%g200166200176%_ + (lambda (_%g200167200173%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200130200136%_)))) - (_%g200128200163%_ - (lambda (_%g200130200142%_) + _%g200167200173%_)))) + (_%g200165200200%_ + (lambda (_%g200167200179%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200130200142%_)) - (let ((_%e200132200144%_ + (gx#stx-pair? _%g200167200179%_)) + (let ((_%e200169200181%_ (let () (declare (not safe)) - (gx#stx-e _%g200130200142%_)))) - (let ((_%hd200133200147%_ + (gx#stx-e _%g200167200179%_)))) + (let ((_%hd200170200184%_ (let () (declare (not safe)) - (##car _%e200132200144%_))) - (_%tl200134200149%_ + (##car _%e200169200181%_))) + (_%tl200171200186%_ (let () (declare (not safe)) - (##cdr _%e200132200144%_)))) - ((lambda (_%L200152%_) - (let ((__tmp200731 + (##cdr _%e200169200181%_)))) + ((lambda (_%L200189%_) + (let ((__tmp200768 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _%self200126%_ - _%stx200127%_)))) - (__tmp200729 - (let ((__tmp200730 + _%self200163%_ + _%stx200164%_)))) + (__tmp200766 + (let ((__tmp200767 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp200730 '1)))) + (##fx+ __tmp200767 '1)))) (declare (not safe)) (__call-with-parameters - __tmp200731 + __tmp200768 gx#current-expander-phi - __tmp200729))) - _%tl200134200149%_))) - (_%g200129200139%_ _%g200130200142%_))))) - (_%g200128200163%_ _%stx200127%_)))) + __tmp200766))) + _%tl200171200186%_))) + (_%g200166200176%_ _%g200167200179%_))))) + (_%g200165200200%_ _%stx200164%_)))) (define gxc#generate-ssxi-module% - (lambda (_%self200065%_ _%stx200066%_) - (let* ((_%g200068200082%_ - (lambda (_%g200069200079%_) + (lambda (_%self200102%_ _%stx200103%_) + (let* ((_%g200105200119%_ + (lambda (_%g200106200116%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200069200079%_)))) - (_%g200067200123%_ - (lambda (_%g200069200085%_) + _%g200106200116%_)))) + (_%g200104200160%_ + (lambda (_%g200106200122%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200069200085%_)) - (let ((_%e200072200087%_ + (gx#stx-pair? _%g200106200122%_)) + (let ((_%e200109200124%_ (let () (declare (not safe)) - (gx#stx-e _%g200069200085%_)))) - (let ((_%hd200073200090%_ + (gx#stx-e _%g200106200122%_)))) + (let ((_%hd200110200127%_ (let () (declare (not safe)) - (##car _%e200072200087%_))) - (_%tl200074200092%_ + (##car _%e200109200124%_))) + (_%tl200111200129%_ (let () (declare (not safe)) - (##cdr _%e200072200087%_)))) + (##cdr _%e200109200124%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200074200092%_)) - (let ((_%e200075200095%_ + (gx#stx-pair? _%tl200111200129%_)) + (let ((_%e200112200132%_ (let () (declare (not safe)) - (gx#stx-e _%tl200074200092%_)))) - (let ((_%hd200076200098%_ + (gx#stx-e _%tl200111200129%_)))) + (let ((_%hd200113200135%_ (let () (declare (not safe)) - (##car _%e200075200095%_))) - (_%tl200077200100%_ + (##car _%e200112200132%_))) + (_%tl200114200137%_ (let () (declare (not safe)) - (##cdr _%e200075200095%_)))) - ((lambda (_%L200103%_ _%L200104%_) - (let* ((_%ctx200117%_ + (##cdr _%e200112200132%_)))) + ((lambda (_%L200140%_ _%L200141%_) + (let* ((_%ctx200154%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L200104%_))) - (_%code200119%_ + _%L200141%_))) + (_%code200156%_ (##structure-ref - _%ctx200117%_ + _%ctx200154%_ '11 gx#module-context::t '#f)) - (__tmp200732 + (__tmp200769 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self200065%_ - _%code200119%_))))) + _%self200102%_ + _%code200156%_))))) (declare (not safe)) (__call-with-parameters - __tmp200732 + __tmp200769 gx#current-expander-context - _%ctx200117%_))) - _%tl200077200100%_ - _%hd200076200098%_))) - (_%g200068200082%_ _%g200069200085%_)))) - (_%g200068200082%_ _%g200069200085%_))))) - (_%g200067200123%_ _%stx200066%_)))) + _%ctx200154%_))) + _%tl200114200137%_ + _%hd200113200135%_))) + (_%g200105200119%_ _%g200106200122%_)))) + (_%g200105200119%_ _%g200106200122%_))))) + (_%g200104200160%_ _%stx200103%_)))) (define gxc#generate-ssxi-define-values% - (lambda (_%self199870%_ _%stx199871%_) - (letrec ((_%generate-e199873%_ - (lambda (_%id200050%_) - (let* ((_%sym200052%_ - (if (let ((__tmp200733 + (lambda (_%self199907%_ _%stx199908%_) + (letrec ((_%generate-e199910%_ + (lambda (_%id200087%_) + (let* ((_%sym200089%_ + (if (let ((__tmp200770 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp200733)) + (gx#identifier? __tmp200770)) (let () (declare (not safe)) - (gxc#identifier-symbol _%id200050%_)) + (gxc#identifier-symbol _%id200087%_)) '#f)) - (_%$e200054%_ + (_%$e200091%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-class _%sym200052%_)))) - (if _%$e200054%_ - ((lambda (_%klass200057%_) + (gxc#optimizer-lookup-class _%sym200089%_)))) + (if _%$e200091%_ + ((lambda (_%klass200094%_) (let () (declare (not safe)) (gxc#verbose '"generate class decl" - _%sym200052%_)) + _%sym200089%_)) (cons 'begin (cons (cons 'declare-class - (cons _%sym200052%_ - (cons (let ((__method200708 + (cons _%sym200089%_ + (cons (let ((__method200745 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__method-ref _%klass200057%_ 'typedecl)))) - (if __method200708 + (__method-ref _%klass200094%_ 'typedecl)))) + (if __method200745 (let () (declare (not safe)) - (__method200708 _%klass200057%_)) + (__method200745 _%klass200094%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%klass200057%_ + _%klass200094%_ 'typedecl)) '#!void))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'declare-type - (cons _%sym200052%_ + (cons _%sym200089%_ (cons (cons 'optimizer-resolve-class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'quote (cons (cons 'typedecl - (cons _%sym200052%_ + (cons _%sym200089%_ '())) '())) (cons (cons 'quote (cons 'class::t '())) @@ -739,1309 +739,1309 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%$e200054%_) - (let ((_%$e200059%_ + _%$e200091%_) + (let ((_%$e200096%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym200052%_)))) - (if _%$e200059%_ - ((lambda (_%type200062%_) + (gxc#optimizer-lookup-type _%sym200089%_)))) + (if _%$e200096%_ + ((lambda (_%type200099%_) (let () (declare (not safe)) (gxc#verbose '"generate typedecl " - _%sym200052%_ + _%sym200089%_ '" " - _%type200062%_)) + _%type200099%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type200062%_ + _%type200099%_ 'gxc#!class::t)) (cons 'declare-type - (cons _%sym200052%_ + (cons _%sym200089%_ (cons (cons 'optimizer-resolve-class (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'typedecl - (cons _%sym200052%_ '())) + (cons _%sym200089%_ '())) '())) (cons (cons 'quote (cons (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%type200062%_)) + _%type200099%_)) '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'declare-type - (cons _%sym200052%_ - (cons (let ((__method200709 + (cons _%sym200089%_ + (cons (let ((__method200746 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__method-ref _%type200062%_ 'typedecl)))) - (if __method200709 + (__method-ref _%type200099%_ 'typedecl)))) + (if __method200746 (let () (declare (not safe)) - (__method200709 _%type200062%_)) + (__method200746 _%type200099%_)) (begin (let () (declare (not safe)) - (error '"Missing method" _%type200062%_ 'typedecl)) + (error '"Missing method" _%type200099%_ 'typedecl)) '#!void))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e200059%_) + _%$e200096%_) '(begin)))))))) - (let* ((_%__stx200320200321%_ _%stx199871%_) - (_%g199876199914%_ + (let* ((_%__stx200357200358%_ _%stx199908%_) + (_%g199913199951%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200320200321%_))))) - (let ((_%__kont200322200323%_ - (lambda (_%L200032%_) (_%generate-e199873%_ _%L200032%_))) - (_%__kont200324200325%_ - (lambda (_%L199967%_) - (let ((_%types199993%_ - (map _%generate-e199873%_ - (let ((__tmp200734 - (lambda (_%g199985199988%_ - _%g199986199990%_) - (cons _%g199985199988%_ - _%g199986199990%_)))) + _%__stx200357200358%_))))) + (let ((_%__kont200359200360%_ + (lambda (_%L200069%_) (_%generate-e199910%_ _%L200069%_))) + (_%__kont200361200362%_ + (lambda (_%L200004%_) + (let ((_%types200030%_ + (map _%generate-e199910%_ + (let ((__tmp200771 + (lambda (_%g200022200025%_ + _%g200023200027%_) + (cons _%g200022200025%_ + _%g200023200027%_)))) (declare (not safe)) - (__foldr1 __tmp200734 '() _%L199967%_))))) - (cons 'begin _%types199993%_))))) - (let ((_%__match200375200376%_ - (lambda (_%e199892199919%_ - _%hd199893199922%_ - _%tl199894199924%_ - _%e199895199927%_ - _%hd199896199930%_ - _%tl199897199932%_ - _%__splice200326200327%_ - _%target199898199935%_ - _%tl199900199937%_) - (letrec ((_%loop199901199940%_ - (lambda (_%hd199899199943%_ - _%id199905199945%_) + (__foldr1 __tmp200771 '() _%L200004%_))))) + (cons 'begin _%types200030%_))))) + (let ((_%__match200412200413%_ + (lambda (_%e199929199956%_ + _%hd199930199959%_ + _%tl199931199961%_ + _%e199932199964%_ + _%hd199933199967%_ + _%tl199934199969%_ + _%__splice200363200364%_ + _%target199935199972%_ + _%tl199937199974%_) + (letrec ((_%loop199938199977%_ + (lambda (_%hd199936199980%_ + _%id199942199982%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199899199943%_)) - (let ((_%e199902199948%_ + (gx#stx-pair? _%hd199936199980%_)) + (let ((_%e199939199985%_ (let () (declare (not safe)) (gx#stx-e - _%hd199899199943%_)))) - (let ((_%lp-tl199904199953%_ + _%hd199936199980%_)))) + (let ((_%lp-tl199941199990%_ (let () (declare (not safe)) - (##cdr _%e199902199948%_))) - (_%lp-hd199903199951%_ + (##cdr _%e199939199985%_))) + (_%lp-hd199940199988%_ (let () (declare (not safe)) - (##car _%e199902199948%_)))) - (_%loop199901199940%_ - _%lp-tl199904199953%_ - (cons _%lp-hd199903199951%_ - _%id199905199945%_)))) - (let ((_%id199906199956%_ - (reverse _%id199905199945%_))) + (##car _%e199939199985%_)))) + (_%loop199938199977%_ + _%lp-tl199941199990%_ + (cons _%lp-hd199940199988%_ + _%id199942199982%_)))) + (let ((_%id199943199993%_ + (reverse _%id199942199982%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199897199932%_)) - (let ((_%e199907199959%_ + _%tl199934199969%_)) + (let ((_%e199944199996%_ (let () (declare (not safe)) (gx#stx-e - _%tl199897199932%_)))) - (let ((_%tl199909199964%_ + _%tl199934199969%_)))) + (let ((_%tl199946200001%_ (let () (declare (not safe)) - (##cdr _%e199907199959%_))) - (_%hd199908199962%_ + (##cdr _%e199944199996%_))) + (_%hd199945199999%_ (let () (declare (not safe)) - (##car _%e199907199959%_)))) + (##car _%e199944199996%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199909199964%_)) - (_%__kont200324200325%_ - _%id199906199956%_) + _%tl199946200001%_)) + (_%__kont200361200362%_ + _%id199943199993%_) (let () (declare (not safe)) - (_%g199876199914%_))))) + (_%g199913199951%_))))) (let () (declare (not safe)) - (_%g199876199914%_)))))))) - (_%loop199901199940%_ _%target199898199935%_ '()))))) + (_%g199913199951%_)))))))) + (_%loop199938199977%_ _%target199935199972%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200320200321%_)) - (let ((_%e199879200000%_ + (gx#stx-pair? _%__stx200357200358%_)) + (let ((_%e199916200037%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200320200321%_)))) - (let ((_%tl199881200005%_ + (gx#stx-e _%__stx200357200358%_)))) + (let ((_%tl199918200042%_ (let () (declare (not safe)) - (##cdr _%e199879200000%_))) - (_%hd199880200003%_ + (##cdr _%e199916200037%_))) + (_%hd199917200040%_ (let () (declare (not safe)) - (##car _%e199879200000%_)))) + (##car _%e199916200037%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199881200005%_)) - (let ((_%e199882200008%_ + (gx#stx-pair? _%tl199918200042%_)) + (let ((_%e199919200045%_ (let () (declare (not safe)) - (gx#stx-e _%tl199881200005%_)))) - (let ((_%tl199884200013%_ + (gx#stx-e _%tl199918200042%_)))) + (let ((_%tl199921200050%_ (let () (declare (not safe)) - (##cdr _%e199882200008%_))) - (_%hd199883200011%_ + (##cdr _%e199919200045%_))) + (_%hd199920200048%_ (let () (declare (not safe)) - (##car _%e199882200008%_)))) + (##car _%e199919200045%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199883200011%_)) - (let ((_%e199885200016%_ + (gx#stx-pair? _%hd199920200048%_)) + (let ((_%e199922200053%_ (let () (declare (not safe)) - (gx#stx-e _%hd199883200011%_)))) - (let ((_%tl199887200021%_ + (gx#stx-e _%hd199920200048%_)))) + (let ((_%tl199924200058%_ (let () (declare (not safe)) - (##cdr _%e199885200016%_))) - (_%hd199886200019%_ + (##cdr _%e199922200053%_))) + (_%hd199923200056%_ (let () (declare (not safe)) - (##car _%e199885200016%_)))) + (##car _%e199922200053%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199887200021%_)) + _%tl199924200058%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199884200013%_)) - (let ((_%e199888200024%_ + _%tl199921200050%_)) + (let ((_%e199925200061%_ (let () (declare (not safe)) (gx#stx-e - _%tl199884200013%_)))) - (let ((_%tl199890200029%_ + _%tl199921200050%_)))) + (let ((_%tl199927200066%_ (let () (declare (not safe)) - (##cdr _%e199888200024%_))) - (_%hd199889200027%_ + (##cdr _%e199925200061%_))) + (_%hd199926200064%_ (let () (declare (not safe)) - (##car _%e199888200024%_)))) + (##car _%e199925200061%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199890200029%_)) - (_%__kont200322200323%_ - _%hd199886200019%_) + _%tl199927200066%_)) + (_%__kont200359200360%_ + _%hd199923200056%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199883200011%_)) - (let ((_%__splice200326200327%_ + _%hd199920200048%_)) + (let ((_%__splice200363200364%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd199883200011%_ '0)))) - (let ((_%tl199900199937%_ + (gx#syntax-split-splice _%hd199920200048%_ '0)))) + (let ((_%tl199937199974%_ (let () (declare (not safe)) - (##vector-ref _%__splice200326200327%_ '1))) - (_%target199898199935%_ + (##vector-ref _%__splice200363200364%_ '1))) + (_%target199935199972%_ (let () (declare (not safe)) - (##vector-ref _%__splice200326200327%_ '0)))) + (##vector-ref _%__splice200363200364%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199900199937%_)) - (_%__match200375200376%_ - _%e199879200000%_ - _%hd199880200003%_ - _%tl199881200005%_ - _%e199882200008%_ - _%hd199883200011%_ - _%tl199884200013%_ - _%__splice200326200327%_ - _%target199898199935%_ - _%tl199900199937%_) + (gx#stx-null? _%tl199937199974%_)) + (_%__match200412200413%_ + _%e199916200037%_ + _%hd199917200040%_ + _%tl199918200042%_ + _%e199919200045%_ + _%hd199920200048%_ + _%tl199921200050%_ + _%__splice200363200364%_ + _%target199935199972%_ + _%tl199937199974%_) (let () (declare (not safe)) - (_%g199876199914%_))))) - (let () (declare (not safe)) (_%g199876199914%_)))))) + (_%g199913199951%_))))) + (let () (declare (not safe)) (_%g199913199951%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199883200011%_)) - (let ((_%__splice200326200327%_ + _%hd199920200048%_)) + (let ((_%__splice200363200364%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199883200011%_ + _%hd199920200048%_ '0)))) - (let ((_%tl199900199937%_ + (let ((_%tl199937199974%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice200326200327%_ '1))) - (_%target199898199935%_ + (##vector-ref _%__splice200363200364%_ '1))) + (_%target199935199972%_ (let () (declare (not safe)) - (##vector-ref _%__splice200326200327%_ '0)))) + (##vector-ref _%__splice200363200364%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199900199937%_)) - (_%__match200375200376%_ - _%e199879200000%_ - _%hd199880200003%_ - _%tl199881200005%_ - _%e199882200008%_ - _%hd199883200011%_ - _%tl199884200013%_ - _%__splice200326200327%_ - _%target199898199935%_ - _%tl199900199937%_) - (let () (declare (not safe)) (_%g199876199914%_))))) + (gx#stx-null? _%tl199937199974%_)) + (_%__match200412200413%_ + _%e199916200037%_ + _%hd199917200040%_ + _%tl199918200042%_ + _%e199919200045%_ + _%hd199920200048%_ + _%tl199921200050%_ + _%__splice200363200364%_ + _%target199935199972%_ + _%tl199937199974%_) + (let () (declare (not safe)) (_%g199913199951%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g199876199914%_)))) + (_%g199913199951%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199883200011%_)) - (let ((_%__splice200326200327%_ + _%hd199920200048%_)) + (let ((_%__splice200363200364%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199883200011%_ + _%hd199920200048%_ '0)))) - (let ((_%tl199900199937%_ + (let ((_%tl199937199974%_ (let () (declare (not safe)) (##vector-ref - _%__splice200326200327%_ + _%__splice200363200364%_ '1))) - (_%target199898199935%_ + (_%target199935199972%_ (let () (declare (not safe)) (##vector-ref - _%__splice200326200327%_ + _%__splice200363200364%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199900199937%_)) - (_%__match200375200376%_ - _%e199879200000%_ - _%hd199880200003%_ - _%tl199881200005%_ - _%e199882200008%_ - _%hd199883200011%_ - _%tl199884200013%_ - _%__splice200326200327%_ - _%target199898199935%_ - _%tl199900199937%_) + _%tl199937199974%_)) + (_%__match200412200413%_ + _%e199916200037%_ + _%hd199917200040%_ + _%tl199918200042%_ + _%e199919200045%_ + _%hd199920200048%_ + _%tl199921200050%_ + _%__splice200363200364%_ + _%target199935199972%_ + _%tl199937199974%_) (let () (declare (not safe)) - (_%g199876199914%_))))) + (_%g199913199951%_))))) (let () (declare (not safe)) - (_%g199876199914%_)))))) + (_%g199913199951%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199883200011%_)) - (let ((_%__splice200326200327%_ + _%hd199920200048%_)) + (let ((_%__splice200363200364%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199883200011%_ + _%hd199920200048%_ '0)))) - (let ((_%tl199900199937%_ + (let ((_%tl199937199974%_ (let () (declare (not safe)) (##vector-ref - _%__splice200326200327%_ + _%__splice200363200364%_ '1))) - (_%target199898199935%_ + (_%target199935199972%_ (let () (declare (not safe)) (##vector-ref - _%__splice200326200327%_ + _%__splice200363200364%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199900199937%_)) - (_%__match200375200376%_ - _%e199879200000%_ - _%hd199880200003%_ - _%tl199881200005%_ - _%e199882200008%_ - _%hd199883200011%_ - _%tl199884200013%_ - _%__splice200326200327%_ - _%target199898199935%_ - _%tl199900199937%_) + _%tl199937199974%_)) + (_%__match200412200413%_ + _%e199916200037%_ + _%hd199917200040%_ + _%tl199918200042%_ + _%e199919200045%_ + _%hd199920200048%_ + _%tl199921200050%_ + _%__splice200363200364%_ + _%target199935199972%_ + _%tl199937199974%_) (let () (declare (not safe)) - (_%g199876199914%_))))) + (_%g199913199951%_))))) (let () (declare (not safe)) - (_%g199876199914%_)))))) + (_%g199913199951%_)))))) (let () (declare (not safe)) - (_%g199876199914%_))))) - (let () (declare (not safe)) (_%g199876199914%_))))))))) + (_%g199913199951%_))))) + (let () (declare (not safe)) (_%g199913199951%_))))))))) (define gxc#generate-ssxi-call% - (lambda (_%self199423%_ _%stx199424%_) - (let* ((_%__stx200378200379%_ _%stx199424%_) - (_%g199428199530%_ + (lambda (_%self199460%_ _%stx199461%_) + (let* ((_%__stx200415200416%_ _%stx199461%_) + (_%g199465199567%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200378200379%_))))) - (let ((_%__kont200380200381%_ - (lambda (_%L199820%_ - _%L199821%_ - _%L199822%_ - _%L199823%_ - _%L199824%_) + _%__stx200415200416%_))))) + (let ((_%__kont200417200418%_ + (lambda (_%L199857%_ + _%L199858%_ + _%L199859%_ + _%L199860%_ + _%L199861%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199823%_)) + (gxc#identifier-symbol _%L199860%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199822%_)) + (gx#stx-e _%L199859%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L199821%_)) + _%L199858%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199820%_)) + (gx#stx-e _%L199857%_)) '()))))))) - (_%__kont200382200383%_ - (lambda (_%L199646%_ _%L199647%_ _%L199648%_ _%L199649%_) + (_%__kont200419200420%_ + (lambda (_%L199683%_ _%L199684%_ _%L199685%_ _%L199686%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199648%_)) + (gxc#identifier-symbol _%L199685%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199647%_)) + (gx#stx-e _%L199684%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L199646%_)) + _%L199683%_)) (cons '#f '()))))))) - (_%__kont200384200385%_ (lambda () '(begin)))) - (let ((_%__match200513200514%_ - (lambda (_%e199435199692%_ - _%hd199436199695%_ - _%tl199437199697%_ - _%e199438199700%_ - _%hd199439199703%_ - _%tl199440199705%_ - _%e199441199708%_ - _%hd199442199711%_ - _%tl199443199713%_ - _%e199444199716%_ - _%hd199445199719%_ - _%tl199446199721%_ - _%e199447199724%_ - _%hd199448199727%_ - _%tl199449199729%_ - _%e199450199732%_ - _%hd199451199735%_ - _%tl199452199737%_ - _%e199453199740%_ - _%hd199454199743%_ - _%tl199455199745%_ - _%e199456199748%_ - _%hd199457199751%_ - _%tl199458199753%_ - _%e199459199756%_ - _%hd199460199759%_ - _%tl199461199761%_ - _%e199462199764%_ - _%hd199463199767%_ - _%tl199464199769%_ - _%e199465199772%_ - _%hd199466199775%_ - _%tl199467199777%_ - _%e199468199780%_ - _%hd199469199783%_ - _%tl199470199785%_ - _%e199471199788%_ - _%hd199472199791%_ - _%tl199473199793%_ - _%e199474199796%_ - _%hd199475199799%_ - _%tl199476199801%_ - _%e199477199804%_ - _%hd199478199807%_ - _%tl199479199809%_ - _%e199480199812%_ - _%hd199481199815%_ - _%tl199482199817%_) - (let ((_%L199820%_ _%hd199481199815%_) - (_%L199821%_ _%hd199472199791%_) - (_%L199822%_ _%hd199463199767%_) - (_%L199823%_ _%hd199454199743%_) - (_%L199824%_ _%hd199445199719%_)) + (_%__kont200421200422%_ (lambda () '(begin)))) + (let ((_%__match200550200551%_ + (lambda (_%e199472199729%_ + _%hd199473199732%_ + _%tl199474199734%_ + _%e199475199737%_ + _%hd199476199740%_ + _%tl199477199742%_ + _%e199478199745%_ + _%hd199479199748%_ + _%tl199480199750%_ + _%e199481199753%_ + _%hd199482199756%_ + _%tl199483199758%_ + _%e199484199761%_ + _%hd199485199764%_ + _%tl199486199766%_ + _%e199487199769%_ + _%hd199488199772%_ + _%tl199489199774%_ + _%e199490199777%_ + _%hd199491199780%_ + _%tl199492199782%_ + _%e199493199785%_ + _%hd199494199788%_ + _%tl199495199790%_ + _%e199496199793%_ + _%hd199497199796%_ + _%tl199498199798%_ + _%e199499199801%_ + _%hd199500199804%_ + _%tl199501199806%_ + _%e199502199809%_ + _%hd199503199812%_ + _%tl199504199814%_ + _%e199505199817%_ + _%hd199506199820%_ + _%tl199507199822%_ + _%e199508199825%_ + _%hd199509199828%_ + _%tl199510199830%_ + _%e199511199833%_ + _%hd199512199836%_ + _%tl199513199838%_ + _%e199514199841%_ + _%hd199515199844%_ + _%tl199516199846%_ + _%e199517199849%_ + _%hd199518199852%_ + _%tl199519199854%_) + (let ((_%L199857%_ _%hd199518199852%_) + (_%L199858%_ _%hd199509199828%_) + (_%L199859%_ _%hd199500199804%_) + (_%L199860%_ _%hd199491199780%_) + (_%L199861%_ _%hd199482199756%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L199824%_ + _%L199861%_ 'bind-method!)) - (_%__kont200380200381%_ - _%L199820%_ - _%L199821%_ - _%L199822%_ - _%L199823%_ - _%L199824%_) - (_%__kont200384200385%_)))))) + (_%__kont200417200418%_ + _%L199857%_ + _%L199858%_ + _%L199859%_ + _%L199860%_ + _%L199861%_) + (_%__kont200421200422%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200378200379%_)) - (let ((_%e199435199692%_ + (gx#stx-pair? _%__stx200415200416%_)) + (let ((_%e199472199729%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200378200379%_)))) - (let ((_%tl199437199697%_ + (gx#stx-e _%__stx200415200416%_)))) + (let ((_%tl199474199734%_ (let () (declare (not safe)) - (##cdr _%e199435199692%_))) - (_%hd199436199695%_ + (##cdr _%e199472199729%_))) + (_%hd199473199732%_ (let () (declare (not safe)) - (##car _%e199435199692%_)))) + (##car _%e199472199729%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199437199697%_)) - (let ((_%e199438199700%_ + (gx#stx-pair? _%tl199474199734%_)) + (let ((_%e199475199737%_ (let () (declare (not safe)) - (gx#stx-e _%tl199437199697%_)))) - (let ((_%tl199440199705%_ + (gx#stx-e _%tl199474199734%_)))) + (let ((_%tl199477199742%_ (let () (declare (not safe)) - (##cdr _%e199438199700%_))) - (_%hd199439199703%_ + (##cdr _%e199475199737%_))) + (_%hd199476199740%_ (let () (declare (not safe)) - (##car _%e199438199700%_)))) + (##car _%e199475199737%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199439199703%_)) - (let ((_%e199441199708%_ + (gx#stx-pair? _%hd199476199740%_)) + (let ((_%e199478199745%_ (let () (declare (not safe)) - (gx#stx-e _%hd199439199703%_)))) - (let ((_%tl199443199713%_ + (gx#stx-e _%hd199476199740%_)))) + (let ((_%tl199480199750%_ (let () (declare (not safe)) - (##cdr _%e199441199708%_))) - (_%hd199442199711%_ + (##cdr _%e199478199745%_))) + (_%hd199479199748%_ (let () (declare (not safe)) - (##car _%e199441199708%_)))) + (##car _%e199478199745%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd199442199711%_)) + _%hd199479199748%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd199442199711%_)) + _%hd199479199748%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199443199713%_)) - (let ((_%e199444199716%_ + _%tl199480199750%_)) + (let ((_%e199481199753%_ (let () (declare (not safe)) (gx#stx-e - _%tl199443199713%_)))) - (let ((_%tl199446199721%_ + _%tl199480199750%_)))) + (let ((_%tl199483199758%_ (let () (declare (not safe)) - (##cdr _%e199444199716%_))) - (_%hd199445199719%_ + (##cdr _%e199481199753%_))) + (_%hd199482199756%_ (let () (declare (not safe)) - (##car _%e199444199716%_)))) + (##car _%e199481199753%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199446199721%_)) + _%tl199483199758%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl199440199705%_)) - (let ((_%e199447199724%_ + (gx#stx-pair? _%tl199477199742%_)) + (let ((_%e199484199761%_ (let () (declare (not safe)) - (gx#stx-e _%tl199440199705%_)))) - (let ((_%tl199449199729%_ + (gx#stx-e _%tl199477199742%_)))) + (let ((_%tl199486199766%_ (let () (declare (not safe)) - (##cdr _%e199447199724%_))) - (_%hd199448199727%_ + (##cdr _%e199484199761%_))) + (_%hd199485199764%_ (let () (declare (not safe)) - (##car _%e199447199724%_)))) + (##car _%e199484199761%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199448199727%_)) - (let ((_%e199450199732%_ + (gx#stx-pair? _%hd199485199764%_)) + (let ((_%e199487199769%_ (let () (declare (not safe)) - (gx#stx-e _%hd199448199727%_)))) - (let ((_%tl199452199737%_ + (gx#stx-e _%hd199485199764%_)))) + (let ((_%tl199489199774%_ (let () (declare (not safe)) - (##cdr _%e199450199732%_))) - (_%hd199451199735%_ + (##cdr _%e199487199769%_))) + (_%hd199488199772%_ (let () (declare (not safe)) - (##car _%e199450199732%_)))) + (##car _%e199487199769%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199451199735%_)) + (gx#identifier? _%hd199488199772%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd199451199735%_)) + _%hd199488199772%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199452199737%_)) - (let ((_%e199453199740%_ + _%tl199489199774%_)) + (let ((_%e199490199777%_ (let () (declare (not safe)) (gx#stx-e - _%tl199452199737%_)))) - (let ((_%tl199455199745%_ + _%tl199489199774%_)))) + (let ((_%tl199492199782%_ (let () (declare (not safe)) - (##cdr _%e199453199740%_))) - (_%hd199454199743%_ + (##cdr _%e199490199777%_))) + (_%hd199491199780%_ (let () (declare (not safe)) - (##car _%e199453199740%_)))) + (##car _%e199490199777%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199455199745%_)) + _%tl199492199782%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199449199729%_)) - (let ((_%e199456199748%_ + _%tl199486199766%_)) + (let ((_%e199493199785%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl199449199729%_)))) - (let ((_%tl199458199753%_ + (gx#stx-e _%tl199486199766%_)))) + (let ((_%tl199495199790%_ (let () (declare (not safe)) - (##cdr _%e199456199748%_))) - (_%hd199457199751%_ + (##cdr _%e199493199785%_))) + (_%hd199494199788%_ (let () (declare (not safe)) - (##car _%e199456199748%_)))) + (##car _%e199493199785%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199457199751%_)) - (let ((_%e199459199756%_ + (gx#stx-pair? _%hd199494199788%_)) + (let ((_%e199496199793%_ (let () (declare (not safe)) - (gx#stx-e _%hd199457199751%_)))) - (let ((_%tl199461199761%_ + (gx#stx-e _%hd199494199788%_)))) + (let ((_%tl199498199798%_ (let () (declare (not safe)) - (##cdr _%e199459199756%_))) - (_%hd199460199759%_ + (##cdr _%e199496199793%_))) + (_%hd199497199796%_ (let () (declare (not safe)) - (##car _%e199459199756%_)))) + (##car _%e199496199793%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199460199759%_)) + (gx#identifier? _%hd199497199796%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd199460199759%_)) + _%hd199497199796%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199461199761%_)) - (let ((_%e199462199764%_ + (gx#stx-pair? _%tl199498199798%_)) + (let ((_%e199499199801%_ (let () (declare (not safe)) (gx#stx-e - _%tl199461199761%_)))) - (let ((_%tl199464199769%_ + _%tl199498199798%_)))) + (let ((_%tl199501199806%_ (let () (declare (not safe)) - (##cdr _%e199462199764%_))) - (_%hd199463199767%_ + (##cdr _%e199499199801%_))) + (_%hd199500199804%_ (let () (declare (not safe)) - (##car _%e199462199764%_)))) + (##car _%e199499199801%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199464199769%_)) + _%tl199501199806%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199458199753%_)) - (let ((_%e199465199772%_ + _%tl199495199790%_)) + (let ((_%e199502199809%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl199458199753%_)))) - (let ((_%tl199467199777%_ - (let () (declare (not safe)) (##cdr _%e199465199772%_))) - (_%hd199466199775%_ + (gx#stx-e _%tl199495199790%_)))) + (let ((_%tl199504199814%_ + (let () (declare (not safe)) (##cdr _%e199502199809%_))) + (_%hd199503199812%_ (let () (declare (not safe)) - (##car _%e199465199772%_)))) + (##car _%e199502199809%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199466199775%_)) - (let ((_%e199468199780%_ + (gx#stx-pair? _%hd199503199812%_)) + (let ((_%e199505199817%_ (let () (declare (not safe)) - (gx#stx-e _%hd199466199775%_)))) - (let ((_%tl199470199785%_ + (gx#stx-e _%hd199503199812%_)))) + (let ((_%tl199507199822%_ (let () (declare (not safe)) - (##cdr _%e199468199780%_))) - (_%hd199469199783%_ + (##cdr _%e199505199817%_))) + (_%hd199506199820%_ (let () (declare (not safe)) - (##car _%e199468199780%_)))) + (##car _%e199505199817%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199469199783%_)) + (gx#identifier? _%hd199506199820%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd199469199783%_)) + (gx#stx-eq? '%#ref _%hd199506199820%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199470199785%_)) - (let ((_%e199471199788%_ + (gx#stx-pair? _%tl199507199822%_)) + (let ((_%e199508199825%_ (let () (declare (not safe)) - (gx#stx-e _%tl199470199785%_)))) - (let ((_%tl199473199793%_ + (gx#stx-e _%tl199507199822%_)))) + (let ((_%tl199510199830%_ (let () (declare (not safe)) - (##cdr _%e199471199788%_))) - (_%hd199472199791%_ + (##cdr _%e199508199825%_))) + (_%hd199509199828%_ (let () (declare (not safe)) - (##car _%e199471199788%_)))) + (##car _%e199508199825%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199473199793%_)) + _%tl199510199830%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199467199777%_)) - (let ((_%e199474199796%_ + _%tl199504199814%_)) + (let ((_%e199511199833%_ (let () (declare (not safe)) (gx#stx-e - _%tl199467199777%_)))) - (let ((_%tl199476199801%_ + _%tl199504199814%_)))) + (let ((_%tl199513199838%_ (let () (declare (not safe)) - (##cdr _%e199474199796%_))) - (_%hd199475199799%_ + (##cdr _%e199511199833%_))) + (_%hd199512199836%_ (let () (declare (not safe)) - (##car _%e199474199796%_)))) + (##car _%e199511199833%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd199475199799%_)) - (let ((_%e199477199804%_ + _%hd199512199836%_)) + (let ((_%e199514199841%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd199475199799%_)))) - (let ((_%tl199479199809%_ + (gx#stx-e _%hd199512199836%_)))) + (let ((_%tl199516199846%_ (let () (declare (not safe)) - (##cdr _%e199477199804%_))) - (_%hd199478199807%_ + (##cdr _%e199514199841%_))) + (_%hd199515199844%_ (let () (declare (not safe)) - (##car _%e199477199804%_)))) + (##car _%e199514199841%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199478199807%_)) + (gx#identifier? _%hd199515199844%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd199478199807%_)) + (gx#stx-eq? '%#quote _%hd199515199844%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199479199809%_)) - (let ((_%e199480199812%_ + (gx#stx-pair? _%tl199516199846%_)) + (let ((_%e199517199849%_ (let () (declare (not safe)) - (gx#stx-e _%tl199479199809%_)))) - (let ((_%tl199482199817%_ + (gx#stx-e _%tl199516199846%_)))) + (let ((_%tl199519199854%_ (let () (declare (not safe)) - (##cdr _%e199480199812%_))) - (_%hd199481199815%_ + (##cdr _%e199517199849%_))) + (_%hd199518199852%_ (let () (declare (not safe)) - (##car _%e199480199812%_)))) + (##car _%e199517199849%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199482199817%_)) + (gx#stx-null? _%tl199519199854%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199476199801%_)) - (_%__match200513200514%_ - _%e199435199692%_ - _%hd199436199695%_ - _%tl199437199697%_ - _%e199438199700%_ - _%hd199439199703%_ - _%tl199440199705%_ - _%e199441199708%_ - _%hd199442199711%_ - _%tl199443199713%_ - _%e199444199716%_ - _%hd199445199719%_ - _%tl199446199721%_ - _%e199447199724%_ - _%hd199448199727%_ - _%tl199449199729%_ - _%e199450199732%_ - _%hd199451199735%_ - _%tl199452199737%_ - _%e199453199740%_ - _%hd199454199743%_ - _%tl199455199745%_ - _%e199456199748%_ - _%hd199457199751%_ - _%tl199458199753%_ - _%e199459199756%_ - _%hd199460199759%_ - _%tl199461199761%_ - _%e199462199764%_ - _%hd199463199767%_ - _%tl199464199769%_ - _%e199465199772%_ - _%hd199466199775%_ - _%tl199467199777%_ - _%e199468199780%_ - _%hd199469199783%_ - _%tl199470199785%_ - _%e199471199788%_ - _%hd199472199791%_ - _%tl199473199793%_ - _%e199474199796%_ - _%hd199475199799%_ - _%tl199476199801%_ - _%e199477199804%_ - _%hd199478199807%_ - _%tl199479199809%_ - _%e199480199812%_ - _%hd199481199815%_ - _%tl199482199817%_) - (_%__kont200384200385%_)) - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)) - (_%__kont200384200385%_)) - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)))) + _%tl199513199838%_)) + (_%__match200550200551%_ + _%e199472199729%_ + _%hd199473199732%_ + _%tl199474199734%_ + _%e199475199737%_ + _%hd199476199740%_ + _%tl199477199742%_ + _%e199478199745%_ + _%hd199479199748%_ + _%tl199480199750%_ + _%e199481199753%_ + _%hd199482199756%_ + _%tl199483199758%_ + _%e199484199761%_ + _%hd199485199764%_ + _%tl199486199766%_ + _%e199487199769%_ + _%hd199488199772%_ + _%tl199489199774%_ + _%e199490199777%_ + _%hd199491199780%_ + _%tl199492199782%_ + _%e199493199785%_ + _%hd199494199788%_ + _%tl199495199790%_ + _%e199496199793%_ + _%hd199497199796%_ + _%tl199498199798%_ + _%e199499199801%_ + _%hd199500199804%_ + _%tl199501199806%_ + _%e199502199809%_ + _%hd199503199812%_ + _%tl199504199814%_ + _%e199505199817%_ + _%hd199506199820%_ + _%tl199507199822%_ + _%e199508199825%_ + _%hd199509199828%_ + _%tl199510199830%_ + _%e199511199833%_ + _%hd199512199836%_ + _%tl199513199838%_ + _%e199514199841%_ + _%hd199515199844%_ + _%tl199516199846%_ + _%e199517199849%_ + _%hd199518199852%_ + _%tl199519199854%_) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl199467199777%_)) - (if (let ((__tmp200735 + _%tl199504199814%_)) + (if (let ((__tmp200772 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp200735 'bind-method!)) - (let ((_%L199646%_ _%hd199472199791%_) - (_%L199647%_ _%hd199463199767%_) - (_%L199648%_ _%hd199454199743%_) - (_%L199649%_ _%hd199445199719%_)) - (_%__kont200382200383%_ - _%L199646%_ - _%L199647%_ - _%L199648%_ - _%L199649%_)) - (_%__kont200384200385%_)) - (_%__kont200384200385%_))) + (gxc#runtime-identifier=? __tmp200772 'bind-method!)) + (let ((_%L199683%_ _%hd199509199828%_) + (_%L199684%_ _%hd199500199804%_) + (_%L199685%_ _%hd199491199780%_) + (_%L199686%_ _%hd199482199756%_)) + (_%__kont200419200420%_ + _%L199683%_ + _%L199684%_ + _%L199685%_ + _%L199686%_)) + (_%__kont200421200422%_)) + (_%__kont200421200422%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)) - (_%__kont200384200385%_)) - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)) - (_%__kont200384200385%_)) - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)) - (_%__kont200384200385%_)))) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200384200385%_)) - (_%__kont200384200385%_)) - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)) - (_%__kont200384200385%_)))) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200384200385%_)) - (_%__kont200384200385%_)) - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)))) - (_%__kont200384200385%_)))) - (_%__kont200384200385%_))))))) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_)))) + (_%__kont200421200422%_))))))) (define gxc#generate-ssxi-begin-annotation% - (lambda (_%self199247%_ _%stx199248%_) - (let* ((_%__stx200622200623%_ _%stx199248%_) - (_%g199251199291%_ + (lambda (_%self199284%_ _%stx199285%_) + (let* ((_%__stx200659200660%_ _%stx199285%_) + (_%g199288199328%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200622200623%_))))) - (let ((_%__kont200624200625%_ - (lambda (_%L199397%_ _%L199398%_) + _%__stx200659200660%_))))) + (let ((_%__kont200661200662%_ + (lambda (_%L199434%_ _%L199435%_) (cons 'declare-inline-rule! (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199398%_)) - (cons _%L199397%_ '()))))) - (_%__kont200626200627%_ - (lambda (_%L199320%_ _%L199321%_) '(begin)))) + (gxc#identifier-symbol _%L199435%_)) + (cons _%L199434%_ '()))))) + (_%__kont200663200664%_ + (lambda (_%L199357%_ _%L199358%_) '(begin)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200622200623%_)) - (let ((_%e199255199341%_ + (gx#stx-pair? _%__stx200659200660%_)) + (let ((_%e199292199378%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200622200623%_)))) - (let ((_%tl199257199346%_ + (gx#stx-e _%__stx200659200660%_)))) + (let ((_%tl199294199383%_ (let () (declare (not safe)) - (##cdr _%e199255199341%_))) - (_%hd199256199344%_ + (##cdr _%e199292199378%_))) + (_%hd199293199381%_ (let () (declare (not safe)) - (##car _%e199255199341%_)))) + (##car _%e199292199378%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199257199346%_)) - (let ((_%e199258199349%_ + (gx#stx-pair? _%tl199294199383%_)) + (let ((_%e199295199386%_ (let () (declare (not safe)) - (gx#stx-e _%tl199257199346%_)))) - (let ((_%tl199260199354%_ + (gx#stx-e _%tl199294199383%_)))) + (let ((_%tl199297199391%_ (let () (declare (not safe)) - (##cdr _%e199258199349%_))) - (_%hd199259199352%_ + (##cdr _%e199295199386%_))) + (_%hd199296199389%_ (let () (declare (not safe)) - (##car _%e199258199349%_)))) + (##car _%e199295199386%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199259199352%_)) - (let ((_%e199261199357%_ + (gx#stx-pair? _%hd199296199389%_)) + (let ((_%e199298199394%_ (let () (declare (not safe)) - (gx#stx-e _%hd199259199352%_)))) - (let ((_%tl199263199362%_ + (gx#stx-e _%hd199296199389%_)))) + (let ((_%tl199300199399%_ (let () (declare (not safe)) - (##cdr _%e199261199357%_))) - (_%hd199262199360%_ + (##cdr _%e199298199394%_))) + (_%hd199299199397%_ (let () (declare (not safe)) - (##car _%e199261199357%_)))) + (##car _%e199298199394%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199262199360%_)) + (gx#identifier? _%hd199299199397%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd199262199360%_)) + _%hd199299199397%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199263199362%_)) - (let ((_%e199264199365%_ + _%tl199300199399%_)) + (let ((_%e199301199402%_ (let () (declare (not safe)) (gx#stx-e - _%tl199263199362%_)))) - (let ((_%tl199266199370%_ + _%tl199300199399%_)))) + (let ((_%tl199303199407%_ (let () (declare (not safe)) - (##cdr _%e199264199365%_))) - (_%hd199265199368%_ + (##cdr _%e199301199402%_))) + (_%hd199302199405%_ (let () (declare (not safe)) - (##car _%e199264199365%_)))) + (##car _%e199301199402%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199266199370%_)) + _%tl199303199407%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199260199354%_)) - (let ((_%e199267199373%_ + _%tl199297199391%_)) + (let ((_%e199304199410%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl199260199354%_)))) - (let ((_%tl199269199378%_ + (gx#stx-e _%tl199297199391%_)))) + (let ((_%tl199306199415%_ (let () (declare (not safe)) - (##cdr _%e199267199373%_))) - (_%hd199268199376%_ + (##cdr _%e199304199410%_))) + (_%hd199305199413%_ (let () (declare (not safe)) - (##car _%e199267199373%_)))) + (##car _%e199304199410%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199268199376%_)) - (let ((_%e199270199381%_ + (gx#stx-pair? _%hd199305199413%_)) + (let ((_%e199307199418%_ (let () (declare (not safe)) - (gx#stx-e _%hd199268199376%_)))) - (let ((_%tl199272199386%_ + (gx#stx-e _%hd199305199413%_)))) + (let ((_%tl199309199423%_ (let () (declare (not safe)) - (##cdr _%e199270199381%_))) - (_%hd199271199384%_ + (##cdr _%e199307199418%_))) + (_%hd199308199421%_ (let () (declare (not safe)) - (##car _%e199270199381%_)))) + (##car _%e199307199418%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199271199384%_)) + (gx#identifier? _%hd199308199421%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd199271199384%_)) + _%hd199308199421%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199272199386%_)) - (let ((_%e199273199389%_ + _%tl199309199423%_)) + (let ((_%e199310199426%_ (let () (declare (not safe)) (gx#stx-e - _%tl199272199386%_)))) - (let ((_%tl199275199394%_ + _%tl199309199423%_)))) + (let ((_%tl199312199431%_ (let () (declare (not safe)) - (##cdr _%e199273199389%_))) - (_%hd199274199392%_ + (##cdr _%e199310199426%_))) + (_%hd199311199429%_ (let () (declare (not safe)) - (##car _%e199273199389%_)))) + (##car _%e199310199426%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199275199394%_)) + _%tl199312199431%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199269199378%_)) - (_%__kont200624200625%_ - _%hd199274199392%_ - _%hd199265199368%_) + _%tl199306199415%_)) + (_%__kont200661200662%_ + _%hd199311199429%_ + _%hd199302199405%_) (let () (declare (not safe)) - (_%g199251199291%_))) + (_%g199288199328%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199269199378%_)) - (_%__kont200626200627%_ - _%hd199268199376%_ - _%hd199259199352%_) + _%tl199306199415%_)) + (_%__kont200663200664%_ + _%hd199305199413%_ + _%hd199296199389%_) (let () (declare (not safe)) - (_%g199251199291%_)))))) + (_%g199288199328%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199269199378%_)) - (_%__kont200626200627%_ - _%hd199268199376%_ - _%hd199259199352%_) + _%tl199306199415%_)) + (_%__kont200663200664%_ + _%hd199305199413%_ + _%hd199296199389%_) (let () (declare (not safe)) - (_%g199251199291%_)))) + (_%g199288199328%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199269199378%_)) - (_%__kont200626200627%_ - _%hd199268199376%_ - _%hd199259199352%_) + _%tl199306199415%_)) + (_%__kont200663200664%_ + _%hd199305199413%_ + _%hd199296199389%_) (let () (declare (not safe)) - (_%g199251199291%_)))) + (_%g199288199328%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199269199378%_)) - (_%__kont200626200627%_ - _%hd199268199376%_ - _%hd199259199352%_) + (gx#stx-null? _%tl199306199415%_)) + (_%__kont200663200664%_ + _%hd199305199413%_ + _%hd199296199389%_) (let () (declare (not safe)) - (_%g199251199291%_)))))) + (_%g199288199328%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199269199378%_)) - (_%__kont200626200627%_ - _%hd199268199376%_ - _%hd199259199352%_) + (gx#stx-null? _%tl199306199415%_)) + (_%__kont200663200664%_ + _%hd199305199413%_ + _%hd199296199389%_) (let () (declare (not safe)) - (_%g199251199291%_)))))) - (let () (declare (not safe)) (_%g199251199291%_))) + (_%g199288199328%_)))))) + (let () (declare (not safe)) (_%g199288199328%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199260199354%_)) - (let ((_%e199284199312%_ + (gx#stx-pair? _%tl199297199391%_)) + (let ((_%e199321199349%_ (let () (declare (not safe)) - (gx#stx-e _%tl199260199354%_)))) - (let ((_%tl199286199317%_ + (gx#stx-e _%tl199297199391%_)))) + (let ((_%tl199323199354%_ (let () (declare (not safe)) - (##cdr _%e199284199312%_))) - (_%hd199285199315%_ + (##cdr _%e199321199349%_))) + (_%hd199322199352%_ (let () (declare (not safe)) - (##car _%e199284199312%_)))) + (##car _%e199321199349%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199286199317%_)) - (_%__kont200626200627%_ - _%hd199285199315%_ - _%hd199259199352%_) + (gx#stx-null? _%tl199323199354%_)) + (_%__kont200663200664%_ + _%hd199322199352%_ + _%hd199296199389%_) (let () (declare (not safe)) - (_%g199251199291%_))))) - (let () (declare (not safe)) (_%g199251199291%_)))))) + (_%g199288199328%_))))) + (let () (declare (not safe)) (_%g199288199328%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199260199354%_)) - (let ((_%e199284199312%_ + _%tl199297199391%_)) + (let ((_%e199321199349%_ (let () (declare (not safe)) (gx#stx-e - _%tl199260199354%_)))) - (let ((_%tl199286199317%_ + _%tl199297199391%_)))) + (let ((_%tl199323199354%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e199284199312%_))) - (_%hd199285199315%_ - (let () (declare (not safe)) (##car _%e199284199312%_)))) + (##cdr _%e199321199349%_))) + (_%hd199322199352%_ + (let () (declare (not safe)) (##car _%e199321199349%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199286199317%_)) - (_%__kont200626200627%_ - _%hd199285199315%_ - _%hd199259199352%_) - (let () (declare (not safe)) (_%g199251199291%_))))) + (gx#stx-null? _%tl199323199354%_)) + (_%__kont200663200664%_ + _%hd199322199352%_ + _%hd199296199389%_) + (let () (declare (not safe)) (_%g199288199328%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g199251199291%_)))) + (_%g199288199328%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199260199354%_)) - (let ((_%e199284199312%_ + _%tl199297199391%_)) + (let ((_%e199321199349%_ (let () (declare (not safe)) (gx#stx-e - _%tl199260199354%_)))) - (let ((_%tl199286199317%_ + _%tl199297199391%_)))) + (let ((_%tl199323199354%_ (let () (declare (not safe)) - (##cdr _%e199284199312%_))) - (_%hd199285199315%_ + (##cdr _%e199321199349%_))) + (_%hd199322199352%_ (let () (declare (not safe)) - (##car _%e199284199312%_)))) + (##car _%e199321199349%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199286199317%_)) - (_%__kont200626200627%_ - _%hd199285199315%_ - _%hd199259199352%_) + _%tl199323199354%_)) + (_%__kont200663200664%_ + _%hd199322199352%_ + _%hd199296199389%_) (let () (declare (not safe)) - (_%g199251199291%_))))) + (_%g199288199328%_))))) (let () (declare (not safe)) - (_%g199251199291%_)))) + (_%g199288199328%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199260199354%_)) - (let ((_%e199284199312%_ + _%tl199297199391%_)) + (let ((_%e199321199349%_ (let () (declare (not safe)) (gx#stx-e - _%tl199260199354%_)))) - (let ((_%tl199286199317%_ + _%tl199297199391%_)))) + (let ((_%tl199323199354%_ (let () (declare (not safe)) - (##cdr _%e199284199312%_))) - (_%hd199285199315%_ + (##cdr _%e199321199349%_))) + (_%hd199322199352%_ (let () (declare (not safe)) - (##car _%e199284199312%_)))) + (##car _%e199321199349%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199286199317%_)) - (_%__kont200626200627%_ - _%hd199285199315%_ - _%hd199259199352%_) + _%tl199323199354%_)) + (_%__kont200663200664%_ + _%hd199322199352%_ + _%hd199296199389%_) (let () (declare (not safe)) - (_%g199251199291%_))))) + (_%g199288199328%_))))) (let () (declare (not safe)) - (_%g199251199291%_)))))) + (_%g199288199328%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199260199354%_)) - (let ((_%e199284199312%_ + (gx#stx-pair? _%tl199297199391%_)) + (let ((_%e199321199349%_ (let () (declare (not safe)) - (gx#stx-e _%tl199260199354%_)))) - (let ((_%tl199286199317%_ + (gx#stx-e _%tl199297199391%_)))) + (let ((_%tl199323199354%_ (let () (declare (not safe)) - (##cdr _%e199284199312%_))) - (_%hd199285199315%_ + (##cdr _%e199321199349%_))) + (_%hd199322199352%_ (let () (declare (not safe)) - (##car _%e199284199312%_)))) + (##car _%e199321199349%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199286199317%_)) - (_%__kont200626200627%_ - _%hd199285199315%_ - _%hd199259199352%_) + _%tl199323199354%_)) + (_%__kont200663200664%_ + _%hd199322199352%_ + _%hd199296199389%_) (let () (declare (not safe)) - (_%g199251199291%_))))) + (_%g199288199328%_))))) (let () (declare (not safe)) - (_%g199251199291%_)))))) - (let () (declare (not safe)) (_%g199251199291%_))))) - (let () (declare (not safe)) (_%g199251199291%_))))))) + (_%g199288199328%_)))))) + (let () (declare (not safe)) (_%g199288199328%_))))) + (let () (declare (not safe)) (_%g199288199328%_))))))) (define gxc#!alias::typedecl - (lambda (_%self197441199232%_) - (let* ((_%self199235%_ _%self197441199232%_) - (_%self199237%_ _%self199235%_)) + (lambda (_%self197478199269%_) + (let* ((_%self199272%_ _%self197478199269%_) + (_%self199274%_ _%self199272%_)) (cons '@alias (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self199237%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199274%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) (__bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_%self197442199003%_) - (let* ((_%self199006%_ _%self197442199003%_) - (_%self199008%_ _%self199006%_) - (_%self199017199033%_ _%self199008%_) - (_%E199019199037%_ + (lambda (_%self197479199040%_) + (let* ((_%self199043%_ _%self197479199040%_) + (_%self199045%_ _%self199043%_) + (_%self199054199070%_ _%self199045%_) + (_%E199056199074%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self199017199033%_ + _%self199054199070%_ '((!class id super precendence-list @@ -2054,124 +2054,124 @@ metaclass methods)))) '#!void)) - (_%K199020199052%_ - (lambda (_%methods199040%_ - _%metaclass199041%_ - _%system?199042%_ - _%final?199043%_ - _%struct?199044%_ - _%constructor199045%_ - _%fields199046%_ - _%slots199047%_ - _%precendence-list199048%_ - _%super199049%_ - _%id199050%_) + (_%K199057199089%_ + (lambda (_%methods199077%_ + _%metaclass199078%_ + _%system?199079%_ + _%final?199080%_ + _%struct?199081%_ + _%constructor199082%_ + _%fields199083%_ + _%slots199084%_ + _%precendence-list199085%_ + _%super199086%_ + _%id199087%_) (cons '@class - (cons _%id199050%_ - (cons _%super199049%_ - (cons _%precendence-list199048%_ - (cons _%slots199047%_ - (cons _%fields199046%_ - (cons _%constructor199045%_ - (cons _%struct?199044%_ + (cons _%id199087%_ + (cons _%super199086%_ + (cons _%precendence-list199085%_ + (cons _%slots199084%_ + (cons _%fields199083%_ + (cons _%constructor199082%_ + (cons _%struct?199081%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%final?199043%_ - (cons _%system?199042%_ - (cons _%metaclass199041%_ - (cons (if _%methods199040%_ + (cons _%final?199080%_ + (cons _%system?199079%_ + (cons _%metaclass199078%_ + (cons (if _%methods199077%_ (let () (declare (not safe)) (hash->list - _%methods199040%_)) + _%methods199077%_)) '#f) '())))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%e199021199055%_ + (_%e199058199092%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199017199033%_ '1 '#f '#f))) - (_%id199058%_ _%e199021199055%_) - (_%e199022199060%_ + (##unchecked-structure-ref _%self199054199070%_ '1 '#f '#f))) + (_%id199095%_ _%e199058199092%_) + (_%e199059199097%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199017199033%_ '2 '#f '#f))) - (_%super199063%_ _%e199022199060%_) - (_%e199023199065%_ + (##unchecked-structure-ref _%self199054199070%_ '2 '#f '#f))) + (_%super199100%_ _%e199059199097%_) + (_%e199060199102%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199017199033%_ '3 '#f '#f))) - (_%precendence-list199068%_ _%e199023199065%_) - (_%e199024199070%_ + (##unchecked-structure-ref _%self199054199070%_ '3 '#f '#f))) + (_%precendence-list199105%_ _%e199060199102%_) + (_%e199061199107%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199017199033%_ '4 '#f '#f))) - (_%slots199073%_ _%e199024199070%_) - (_%e199025199075%_ + (##unchecked-structure-ref _%self199054199070%_ '4 '#f '#f))) + (_%slots199110%_ _%e199061199107%_) + (_%e199062199112%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199017199033%_ '5 '#f '#f))) - (_%fields199078%_ _%e199025199075%_) - (_%e199026199080%_ + (##unchecked-structure-ref _%self199054199070%_ '5 '#f '#f))) + (_%fields199115%_ _%e199062199112%_) + (_%e199063199117%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199017199033%_ '6 '#f '#f))) - (_%constructor199083%_ _%e199026199080%_) - (_%e199027199085%_ + (##unchecked-structure-ref _%self199054199070%_ '6 '#f '#f))) + (_%constructor199120%_ _%e199063199117%_) + (_%e199064199122%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199017199033%_ '7 '#f '#f))) - (_%struct?199088%_ _%e199027199085%_) - (_%e199028199090%_ + (##unchecked-structure-ref _%self199054199070%_ '7 '#f '#f))) + (_%struct?199125%_ _%e199064199122%_) + (_%e199065199127%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199017199033%_ '8 '#f '#f))) - (_%final?199093%_ _%e199028199090%_) - (_%e199029199095%_ + (##unchecked-structure-ref _%self199054199070%_ '8 '#f '#f))) + (_%final?199130%_ _%e199065199127%_) + (_%e199066199132%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199017199033%_ '9 '#f '#f))) - (_%system?199098%_ _%e199029199095%_) - (_%e199030199100%_ + (##unchecked-structure-ref _%self199054199070%_ '9 '#f '#f))) + (_%system?199135%_ _%e199066199132%_) + (_%e199067199137%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self199017199033%_ + _%self199054199070%_ '10 '#f '#f))) - (_%metaclass199103%_ _%e199030199100%_) - (_%e199031199105%_ + (_%metaclass199140%_ _%e199067199137%_) + (_%e199068199142%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self199017199033%_ + _%self199054199070%_ '11 '#f '#f))) - (_%methods199108%_ _%e199031199105%_)) - (_%K199020199052%_ - _%methods199108%_ - _%metaclass199103%_ - _%system?199098%_ - _%final?199093%_ - _%struct?199088%_ - _%constructor199083%_ - _%fields199078%_ - _%slots199073%_ - _%precendence-list199068%_ - _%super199063%_ - _%id199058%_)))) + (_%methods199145%_ _%e199068199142%_)) + (_%K199057199089%_ + _%methods199145%_ + _%metaclass199140%_ + _%system?199135%_ + _%final?199130%_ + _%struct?199125%_ + _%constructor199120%_ + _%fields199115%_ + _%slots199110%_ + _%precendence-list199105%_ + _%super199100%_ + _%id199095%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_%self197443198866%_) - (let* ((_%self198869%_ _%self197443198866%_) - (_%self198871%_ _%self198869%_)) + (lambda (_%self197480198903%_) + (let* ((_%self198906%_ _%self197480198903%_) + (_%self198908%_ _%self198906%_)) (cons '@predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198871%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198908%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2181,13 +2181,13 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_%self197444198729%_) - (let* ((_%self198732%_ _%self197444198729%_) - (_%self198734%_ _%self198732%_)) + (lambda (_%self197481198766%_) + (let* ((_%self198769%_ _%self197481198766%_) + (_%self198771%_ _%self198769%_)) (cons '@constructor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198734%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198771%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2197,24 +2197,24 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_%self197445198592%_) - (let* ((_%self198595%_ _%self197445198592%_) - (_%self198597%_ _%self198595%_)) + (lambda (_%self197482198629%_) + (let* ((_%self198632%_ _%self197482198629%_) + (_%self198634%_ _%self198632%_)) (cons '@accessor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198597%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198634%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198597%_ + _%self198634%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198597%_ + _%self198634%_ '4 '#f '#f)) @@ -2227,24 +2227,24 @@ gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_%self197446198455%_) - (let* ((_%self198458%_ _%self197446198455%_) - (_%self198460%_ _%self198458%_)) + (lambda (_%self197483198492%_) + (let* ((_%self198495%_ _%self197483198492%_) + (_%self198497%_ _%self198495%_)) (cons '@mutator (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198460%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198497%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198460%_ + _%self198497%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198460%_ + _%self198497%_ '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 (_%self197447198318%_) - (let* ((_%self198321%_ _%self197447198318%_) - (_%self198323%_ _%self198321%_)) + (lambda (_%self197484198355%_) + (let* ((_%self198358%_ _%self197484198355%_) + (_%self198360%_ _%self198358%_)) (cons '@interface (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198323%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198360%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198323%_ + _%self198360%_ '2 '#f '#f)) @@ -2276,34 +2276,34 @@ gxc#!interface::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_%self197448198129%_) - (let* ((_%self198132%_ _%self197448198129%_) - (_%self198134%_ _%self198132%_) - (_%self198143198152%_ _%self198134%_) - (_%E198145198156%_ + (lambda (_%self197485198166%_) + (let* ((_%self198169%_ _%self197485198166%_) + (_%self198171%_ _%self198169%_) + (_%self198180198189%_ _%self198171%_) + (_%E198182198193%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self198143198152%_ + _%self198180198189%_ '((!lambda _ signature arity dispatch)))) '#!void)) - (_%K198146198175%_ - (lambda (_%dispatch198159%_ - _%arity198160%_ - _%signature198161%_) - (if _%signature198161%_ - (let ((_%signature198163%_ _%signature198161%_)) + (_%K198183198212%_ + (lambda (_%dispatch198196%_ + _%arity198197%_ + _%signature198198%_) + (if _%signature198198%_ + (let ((_%signature198200%_ _%signature198198%_)) (cons '@lambda - (cons _%arity198160%_ - (cons _%dispatch198159%_ + (cons _%arity198197%_ + (cons _%dispatch198196%_ (cons 'signature: (cons (cons 'return: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%signature198163%_ + _%signature198200%_ '1 '#f '#f)) @@ -2311,7 +2311,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198163%_ + _%signature198200%_ '2 '#f '#f)) @@ -2319,7 +2319,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198163%_ + _%signature198200%_ '3 '#f '#f)) @@ -2329,7 +2329,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%signature198163%_ + _%signature198200%_ '4 '#f '#f)) @@ -2337,7 +2337,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198163%_ + _%signature198200%_ '5 '#f '#f)) @@ -2346,63 +2346,63 @@ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '@lambda - (cons _%arity198160%_ - (cons _%dispatch198159%_ '())))))) - (_%e198147198178%_ + (cons _%arity198197%_ + (cons _%dispatch198196%_ '())))))) + (_%e198184198215%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198143198152%_ '1 '#f '#f))) - (_%e198148198181%_ + (##unchecked-structure-ref _%self198180198189%_ '1 '#f '#f))) + (_%e198185198218%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198143198152%_ '2 '#f '#f))) - (_%signature198184%_ _%e198148198181%_) - (_%e198149198186%_ + (##unchecked-structure-ref _%self198180198189%_ '2 '#f '#f))) + (_%signature198221%_ _%e198185198218%_) + (_%e198186198223%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198143198152%_ '3 '#f '#f))) - (_%arity198189%_ _%e198149198186%_) - (_%e198150198191%_ + (##unchecked-structure-ref _%self198180198189%_ '3 '#f '#f))) + (_%arity198226%_ _%e198186198223%_) + (_%e198187198228%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198143198152%_ '4 '#f '#f))) - (_%dispatch198194%_ _%e198150198191%_)) - (_%K198146198175%_ - _%dispatch198194%_ - _%arity198189%_ - _%signature198184%_)))) + (##unchecked-structure-ref _%self198180198189%_ '4 '#f '#f))) + (_%dispatch198231%_ _%e198187198228%_)) + (_%K198183198212%_ + _%dispatch198231%_ + _%arity198226%_ + _%signature198221%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_%self197449197988%_) - (let* ((_%self197991%_ _%self197449197988%_) - (_%self197993%_ _%self197991%_)) - (letrec ((_%clause-e198003%_ - (lambda (_%clause198005%_) - (cdr (let ((__method200710 + (lambda (_%self197486198025%_) + (let* ((_%self198028%_ _%self197486198025%_) + (_%self198030%_ _%self198028%_)) + (letrec ((_%clause-e198040%_ + (lambda (_%clause198042%_) + (cdr (let ((__method200747 (let () (declare (not safe)) (__method-ref - _%clause198005%_ + _%clause198042%_ 'typedecl)))) - (if __method200710 + (if __method200747 (let () (declare (not safe)) - (__method200710 _%clause198005%_)) + (__method200747 _%clause198042%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause198005%_ + _%clause198042%_ 'typedecl)) '#!void))))))) (cons '@case-lambda - (map _%clause-e198003%_ + (map _%clause-e198040%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self197993%_ + _%self198030%_ '3 '#f '#f)))))))) @@ -2414,17 +2414,17 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_%self197450197851%_) - (let* ((_%self197854%_ _%self197450197851%_) - (_%self197856%_ _%self197854%_)) + (lambda (_%self197487197888%_) + (let* ((_%self197891%_ _%self197487197888%_) + (_%self197893%_ _%self197891%_)) (cons '@kw-lambda (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197856%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self197893%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197856%_ + _%self197893%_ '4 '#f '#f)) @@ -2437,17 +2437,17 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_%self197451197714%_) - (let* ((_%self197717%_ _%self197451197714%_) - (_%self197719%_ _%self197717%_)) + (lambda (_%self197488197751%_) + (let* ((_%self197754%_ _%self197488197751%_) + (_%self197756%_ _%self197754%_)) (cons '@kw-lambda-dispatch (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197719%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self197756%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197719%_ + _%self197756%_ '4 '#f '#f)) @@ -2460,13 +2460,13 @@ gxc#!kw-lambda-primary::typedecl '#f)) (define gxc#!primitive-predicate::typedecl - (lambda (_%self197452197577%_) - (let* ((_%self197580%_ _%self197452197577%_) - (_%self197582%_ _%self197580%_)) + (lambda (_%self197489197614%_) + (let* ((_%self197617%_ _%self197489197614%_) + (_%self197619%_ _%self197617%_)) (cons '@primitive-predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197582%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self197619%_ '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 f57ae87d3..520ae8137 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]#_g200737_| + (define |gxc[1]#_g200774_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200739_| + (define |gxc[1]#_g200776_| (##structure gx#syntax-quote::t '::generate-ssxi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200741_| + (define |gxc[1]#_g200778_| (##structure gx#syntax-quote::t 'make-::generate-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200743_| + (define |gxc[1]#_g200780_| (##structure gx#syntax-quote::t '::generate-ssxi? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::generate-ssxi| - (let ((__obj200706 + (let ((__obj200743 (let () (declare (not safe)) (##structure @@ -58,63 +58,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj200706 + __obj200743 'gxc#::generate-ssxi::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '::generate-ssxi '2 '#f '#f)) + (##unchecked-structure-set! __obj200743 '::generate-ssxi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj200743 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '() '6 '#f '#f)) - (let ((__tmp200736 (cons |gxc[1]#_g200737_| '()))) + (##unchecked-structure-set! __obj200743 '() '6 '#f '#f)) + (let ((__tmp200773 (cons |gxc[1]#_g200774_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj200706 __tmp200736 '3 '#f '#f)) + (##unchecked-structure-set! __obj200743 __tmp200773 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj200743 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj200743 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj200743 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '#f '11 '#f '#f)) - (let ((__tmp200738 |gxc[1]#_g200739_|)) + (##unchecked-structure-set! __obj200743 '#f '11 '#f '#f)) + (let ((__tmp200775 |gxc[1]#_g200776_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200706 __tmp200738 '12 '#f '#f)) - (let ((__tmp200740 |gxc[1]#_g200741_|)) + (##unchecked-structure-set! __obj200743 __tmp200775 '12 '#f '#f)) + (let ((__tmp200777 |gxc[1]#_g200778_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200706 __tmp200740 '13 '#f '#f)) - (let ((__tmp200742 |gxc[1]#_g200743_|)) + (##unchecked-structure-set! __obj200743 __tmp200777 '13 '#f '#f)) + (let ((__tmp200779 |gxc[1]#_g200780_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200706 __tmp200742 '14 '#f '#f)) + (##unchecked-structure-set! __obj200743 __tmp200779 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj200743 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj200743 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj200743 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj200743 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj200743 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj200743 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200706 '() '20 '#f '#f)) - __obj200706))) + (##unchecked-structure-set! __obj200743 '() '20 '#f '#f)) + __obj200743))) diff --git a/src/bootstrap/gerbil/compiler/ssxi~1.scm b/src/bootstrap/gerbil/compiler/ssxi~1.scm index 132cdbff1..f7992939d 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]#_g209224_| + (define |gxc[1]#_g209261_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209231_| + (define |gxc[1]#_g209268_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209233_| + (define |gxc[1]#_g209270_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209235_| + (define |gxc[1]#_g209272_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209237_| + (define |gxc[1]#_g209274_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209239_| + (define |gxc[1]#_g209276_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209251_| + (define |gxc[1]#_g209288_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209253_| + (define |gxc[1]#_g209290_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209255_| + (define |gxc[1]#_g209292_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209257_| + (define |gxc[1]#_g209294_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209259_| + (define |gxc[1]#_g209296_| (##structure gx#syntax-quote::t 'quote @@ -79,73 +79,73 @@ '())) (begin (define |gxc[:0:]#declare-type| - (lambda (_%$stx202642%_) - (let* ((_%g202646202664%_ - (lambda (_%g202647202660%_) + (lambda (_%$stx202679%_) + (let* ((_%g202683202701%_ + (lambda (_%g202684202697%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202647202660%_)))) - (_%g202645202719%_ - (lambda (_%g202647202668%_) + _%g202684202697%_)))) + (_%g202682202756%_ + (lambda (_%g202684202705%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202647202668%_)) - (let ((_%e202650202671%_ + (gx#stx-pair? _%g202684202705%_)) + (let ((_%e202687202708%_ (let () (declare (not safe)) - (gx#syntax-e _%g202647202668%_)))) - (let ((_%hd202651202675%_ + (gx#syntax-e _%g202684202705%_)))) + (let ((_%hd202688202712%_ (let () (declare (not safe)) - (##car _%e202650202671%_))) - (_%tl202652202678%_ + (##car _%e202687202708%_))) + (_%tl202689202715%_ (let () (declare (not safe)) - (##cdr _%e202650202671%_)))) + (##cdr _%e202687202708%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202652202678%_)) - (let ((_%e202653202681%_ + (gx#stx-pair? _%tl202689202715%_)) + (let ((_%e202690202718%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202652202678%_)))) - (let ((_%hd202654202685%_ + (gx#syntax-e _%tl202689202715%_)))) + (let ((_%hd202691202722%_ (let () (declare (not safe)) - (##car _%e202653202681%_))) - (_%tl202655202688%_ + (##car _%e202690202718%_))) + (_%tl202692202725%_ (let () (declare (not safe)) - (##cdr _%e202653202681%_)))) + (##cdr _%e202690202718%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202655202688%_)) - (let ((_%e202656202691%_ + (gx#stx-pair? _%tl202692202725%_)) + (let ((_%e202693202728%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202655202688%_)))) - (let ((_%hd202657202695%_ + _%tl202692202725%_)))) + (let ((_%hd202694202732%_ (let () (declare (not safe)) - (##car _%e202656202691%_))) - (_%tl202658202698%_ + (##car _%e202693202728%_))) + (_%tl202695202735%_ (let () (declare (not safe)) - (##cdr _%e202656202691%_)))) + (##cdr _%e202693202728%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202658202698%_)) - ((lambda (_%L202701%_ - _%L202703%_) + _%tl202695202735%_)) + ((lambda (_%L202738%_ + _%L202740%_) (if (let () (declare (not safe)) (gx#identifier? - _%L202703%_)) + _%L202740%_)) (cons (let () (declare (not safe)) @@ -156,87 +156,87 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202703%_ '())) - (cons _%L202701%_ '()))) + (cons _%L202740%_ '())) + (cons _%L202738%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202646202664%_ - _%g202647202668%_))) - _%hd202657202695%_ - _%hd202654202685%_) - (_%g202646202664%_ - _%g202647202668%_)))) - (_%g202646202664%_ _%g202647202668%_)))) - (_%g202646202664%_ _%g202647202668%_)))) - (_%g202646202664%_ _%g202647202668%_))))) - (_%g202645202719%_ _%$stx202642%_)))) + (_%g202683202701%_ + _%g202684202705%_))) + _%hd202694202732%_ + _%hd202691202722%_) + (_%g202683202701%_ + _%g202684202705%_)))) + (_%g202683202701%_ _%g202684202705%_)))) + (_%g202683202701%_ _%g202684202705%_)))) + (_%g202683202701%_ _%g202684202705%_))))) + (_%g202682202756%_ _%$stx202679%_)))) (define |gxc[:0:]#declare-class| - (lambda (_%$stx202723%_) - (let* ((_%g202727202745%_ - (lambda (_%g202728202741%_) + (lambda (_%$stx202760%_) + (let* ((_%g202764202782%_ + (lambda (_%g202765202778%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202728202741%_)))) - (_%g202726202800%_ - (lambda (_%g202728202749%_) + _%g202765202778%_)))) + (_%g202763202837%_ + (lambda (_%g202765202786%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202728202749%_)) - (let ((_%e202731202752%_ + (gx#stx-pair? _%g202765202786%_)) + (let ((_%e202768202789%_ (let () (declare (not safe)) - (gx#syntax-e _%g202728202749%_)))) - (let ((_%hd202732202756%_ + (gx#syntax-e _%g202765202786%_)))) + (let ((_%hd202769202793%_ (let () (declare (not safe)) - (##car _%e202731202752%_))) - (_%tl202733202759%_ + (##car _%e202768202789%_))) + (_%tl202770202796%_ (let () (declare (not safe)) - (##cdr _%e202731202752%_)))) + (##cdr _%e202768202789%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202733202759%_)) - (let ((_%e202734202762%_ + (gx#stx-pair? _%tl202770202796%_)) + (let ((_%e202771202799%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202733202759%_)))) - (let ((_%hd202735202766%_ + (gx#syntax-e _%tl202770202796%_)))) + (let ((_%hd202772202803%_ (let () (declare (not safe)) - (##car _%e202734202762%_))) - (_%tl202736202769%_ + (##car _%e202771202799%_))) + (_%tl202773202806%_ (let () (declare (not safe)) - (##cdr _%e202734202762%_)))) + (##cdr _%e202771202799%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202736202769%_)) - (let ((_%e202737202772%_ + (gx#stx-pair? _%tl202773202806%_)) + (let ((_%e202774202809%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202736202769%_)))) - (let ((_%hd202738202776%_ + _%tl202773202806%_)))) + (let ((_%hd202775202813%_ (let () (declare (not safe)) - (##car _%e202737202772%_))) - (_%tl202739202779%_ + (##car _%e202774202809%_))) + (_%tl202776202816%_ (let () (declare (not safe)) - (##cdr _%e202737202772%_)))) + (##cdr _%e202774202809%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202739202779%_)) - ((lambda (_%L202782%_ - _%L202784%_) + _%tl202776202816%_)) + ((lambda (_%L202819%_ + _%L202821%_) (if (let () (declare (not safe)) (gx#identifier? - _%L202784%_)) + _%L202821%_)) (cons (let () (declare (not safe)) @@ -247,146 +247,146 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202784%_ '())) - (cons _%L202782%_ '()))) + (cons _%L202821%_ '())) + (cons _%L202819%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202727202745%_ - _%g202728202749%_))) - _%hd202738202776%_ - _%hd202735202766%_) - (_%g202727202745%_ - _%g202728202749%_)))) - (_%g202727202745%_ _%g202728202749%_)))) - (_%g202727202745%_ _%g202728202749%_)))) - (_%g202727202745%_ _%g202728202749%_))))) - (_%g202726202800%_ _%$stx202723%_)))) + (_%g202764202782%_ + _%g202765202786%_))) + _%hd202775202813%_ + _%hd202772202803%_) + (_%g202764202782%_ + _%g202765202786%_)))) + (_%g202764202782%_ _%g202765202786%_)))) + (_%g202764202782%_ _%g202765202786%_)))) + (_%g202764202782%_ _%g202765202786%_))))) + (_%g202763202837%_ _%$stx202760%_)))) (define |gxc[:0:]#declare-type*| - (lambda (_%$stx202804%_) - (let* ((_%g202808202837%_ - (lambda (_%g202809202833%_) + (lambda (_%$stx202841%_) + (let* ((_%g202845202874%_ + (lambda (_%g202846202870%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202809202833%_)))) - (_%g202807202937%_ - (lambda (_%g202809202841%_) + _%g202846202870%_)))) + (_%g202844202974%_ + (lambda (_%g202846202878%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202809202841%_)) - (let ((_%e202812202844%_ + (gx#stx-pair? _%g202846202878%_)) + (let ((_%e202849202881%_ (let () (declare (not safe)) - (gx#syntax-e _%g202809202841%_)))) - (let ((_%hd202813202848%_ + (gx#syntax-e _%g202846202878%_)))) + (let ((_%hd202850202885%_ (let () (declare (not safe)) - (##car _%e202812202844%_))) - (_%tl202814202851%_ + (##car _%e202849202881%_))) + (_%tl202851202888%_ (let () (declare (not safe)) - (##cdr _%e202812202844%_)))) + (##cdr _%e202849202881%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl202814202851%_)) - (let ((_g209202_ + (gx#stx-pair/null? _%tl202851202888%_)) + (let ((_g209239_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl202814202851%_ + _%tl202851202888%_ '0)))) (begin - (let ((_g209203_ + (let ((_g209240_ (let () (declare (not safe)) - (if (##values? _g209202_) - (##vector-length _g209202_) + (if (##values? _g209239_) + (##vector-length _g209239_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209203_ 2))) + (##fx= _g209240_ 2))) (error "Context expects 2 values" - _g209203_))) - (let ((_%target202815202854%_ + _g209240_))) + (let ((_%target202852202891%_ (let () (declare (not safe)) - (##vector-ref _g209202_ 0))) - (_%tl202817202857%_ + (##vector-ref _g209239_ 0))) + (_%tl202854202894%_ (let () (declare (not safe)) - (##vector-ref _g209202_ 1)))) + (##vector-ref _g209239_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202817202857%_)) - (letrec ((_%loop202818202860%_ - (lambda (_%hd202816202864%_ - _%type202822202867%_ - _%symbol202823202869%_) + (gx#stx-null? _%tl202854202894%_)) + (letrec ((_%loop202855202897%_ + (lambda (_%hd202853202901%_ + _%type202859202904%_ + _%symbol202860202906%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd202816202864%_)) - (let ((_%e202819202872%_ + _%hd202853202901%_)) + (let ((_%e202856202909%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd202816202864%_)))) - (let ((_%lp-hd202820202876%_ + (gx#syntax-e _%hd202853202901%_)))) + (let ((_%lp-hd202857202913%_ (let () (declare (not safe)) - (##car _%e202819202872%_))) - (_%lp-tl202821202879%_ + (##car _%e202856202909%_))) + (_%lp-tl202858202916%_ (let () (declare (not safe)) - (##cdr _%e202819202872%_)))) + (##cdr _%e202856202909%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd202820202876%_)) - (let ((_%e202826202882%_ + (gx#stx-pair? _%lp-hd202857202913%_)) + (let ((_%e202863202919%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd202820202876%_)))) - (let ((_%hd202827202886%_ + (gx#syntax-e _%lp-hd202857202913%_)))) + (let ((_%hd202864202923%_ (let () (declare (not safe)) - (##car _%e202826202882%_))) - (_%tl202828202889%_ + (##car _%e202863202919%_))) + (_%tl202865202926%_ (let () (declare (not safe)) - (##cdr _%e202826202882%_)))) + (##cdr _%e202863202919%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202828202889%_)) - (let ((_%e202829202892%_ + (gx#stx-pair? _%tl202865202926%_)) + (let ((_%e202866202929%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202828202889%_)))) - (let ((_%hd202830202896%_ + (gx#syntax-e _%tl202865202926%_)))) + (let ((_%hd202867202933%_ (let () (declare (not safe)) - (##car _%e202829202892%_))) - (_%tl202831202899%_ + (##car _%e202866202929%_))) + (_%tl202868202936%_ (let () (declare (not safe)) - (##cdr _%e202829202892%_)))) + (##cdr _%e202866202929%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202831202899%_)) - (_%loop202818202860%_ - _%lp-tl202821202879%_ - (cons _%hd202830202896%_ - _%type202822202867%_) - (cons _%hd202827202886%_ - _%symbol202823202869%_)) - (_%g202808202837%_ - _%g202809202841%_)))) - (_%g202808202837%_ _%g202809202841%_)))) - (_%g202808202837%_ _%g202809202841%_)))) - (let ((_%type202824202902%_ (reverse _%type202822202867%_)) - (_%symbol202825202905%_ - (reverse _%symbol202823202869%_))) - ((lambda (_%L202908%_ _%L202910%_) + (gx#stx-null? _%tl202868202936%_)) + (_%loop202855202897%_ + _%lp-tl202858202916%_ + (cons _%hd202867202933%_ + _%type202859202904%_) + (cons _%hd202864202923%_ + _%symbol202860202906%_)) + (_%g202845202874%_ + _%g202846202878%_)))) + (_%g202845202874%_ _%g202846202878%_)))) + (_%g202845202874%_ _%g202846202878%_)))) + (let ((_%type202861202939%_ (reverse _%type202859202904%_)) + (_%symbol202862202942%_ + (reverse _%symbol202860202906%_))) + ((lambda (_%L202945%_ _%L202947%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -394,52 +394,52 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L202908%_ - _%L202910%_)) - (let ((__tmp209204 - (lambda (_%g202925202929%_ - _%g202926202932%_ - _%g202927202934%_) + _%L202945%_ + _%L202947%_)) + (let ((__tmp209241 + (lambda (_%g202962202966%_ + _%g202963202969%_ + _%g202964202971%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%g202926202932%_ - (cons _%g202925202929%_ + (cons _%g202963202969%_ + (cons _%g202962202966%_ '()))) - _%g202927202934%_)))) + _%g202964202971%_)))) (declare (not safe)) (__foldr2 - __tmp209204 + __tmp209241 '() - _%L202908%_ - _%L202910%_))))) - _%type202824202902%_ - _%symbol202825202905%_)))))) + _%L202945%_ + _%L202947%_))))) + _%type202861202939%_ + _%symbol202862202942%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop202818202860%_ - _%target202815202854%_ + (_%loop202855202897%_ + _%target202852202891%_ '() '())) - (_%g202808202837%_ - _%g202809202841%_))))) - (_%g202808202837%_ _%g202809202841%_)))) - (_%g202808202837%_ _%g202809202841%_))))) - (_%g202807202937%_ _%$stx202804%_)))) + (_%g202845202874%_ + _%g202846202878%_))))) + (_%g202845202874%_ _%g202846202878%_)))) + (_%g202845202874%_ _%g202846202878%_))))) + (_%g202844202974%_ _%$stx202841%_)))) (define |gxc[:0:]#declare-method| - (lambda (_%$stx202942%_) - (let* ((_%__stx208513208514%_ _%$stx202942%_) - (_%g202947202989%_ + (lambda (_%$stx202979%_) + (let* ((_%__stx208550208551%_ _%$stx202979%_) + (_%g202984203026%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208513208514%_))))) - (let ((_%__kont208516208517%_ - (lambda (_%L203117%_ _%L203119%_ _%L203120%_ _%L203121%_) + _%__stx208550208551%_))))) + (let ((_%__kont208553208554%_ + (lambda (_%L203154%_ _%L203156%_ _%L203157%_ _%L203158%_) (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 _%L203121%_ '())) + (cons _%L203158%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203120%_ '())) + (cons _%L203157%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203119%_ '())) - (cons _%L203117%_ '()))))))) - (_%__kont208518208519%_ - (lambda (_%L203036%_ _%L203038%_ _%L203039%_ _%L203040%_) - (cons _%L203040%_ - (cons _%L203039%_ - (cons _%L203038%_ - (cons _%L203036%_ + (cons _%L203156%_ '())) + (cons _%L203154%_ '()))))))) + (_%__kont208555208556%_ + (lambda (_%L203073%_ _%L203075%_ _%L203076%_ _%L203077%_) + (cons _%L203077%_ + (cons _%L203076%_ + (cons _%L203075%_ + (cons _%L203073%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)) '())))))))) - (let ((_%__match208552208553%_ - (lambda (_%e202953203067%_ - _%hd202954203071%_ - _%tl202955203074%_ - _%e202956203077%_ - _%hd202957203081%_ - _%tl202958203084%_ - _%e202959203087%_ - _%hd202960203091%_ - _%tl202961203094%_ - _%e202962203097%_ - _%hd202963203101%_ - _%tl202964203104%_ - _%e202965203107%_ - _%hd202966203111%_ - _%tl202967203114%_) - (let ((_%L203117%_ _%hd202966203111%_) - (_%L203119%_ _%hd202963203101%_) - (_%L203120%_ _%hd202960203091%_) - (_%L203121%_ _%hd202957203081%_)) + (let ((_%__match208589208590%_ + (lambda (_%e202990203104%_ + _%hd202991203108%_ + _%tl202992203111%_ + _%e202993203114%_ + _%hd202994203118%_ + _%tl202995203121%_ + _%e202996203124%_ + _%hd202997203128%_ + _%tl202998203131%_ + _%e202999203134%_ + _%hd203000203138%_ + _%tl203001203141%_ + _%e203002203144%_ + _%hd203003203148%_ + _%tl203004203151%_) + (let ((_%L203154%_ _%hd203003203148%_) + (_%L203156%_ _%hd203000203138%_) + (_%L203157%_ _%hd202997203128%_) + (_%L203158%_ _%hd202994203118%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L203121%_)) + (gx#identifier? _%L203158%_)) (let () (declare (not safe)) - (gx#identifier? _%L203120%_)) + (gx#identifier? _%L203157%_)) (let () (declare (not safe)) - (gx#identifier? _%L203119%_))) - (_%__kont208516208517%_ - _%L203117%_ - _%L203119%_ - _%L203120%_ - _%L203121%_) + (gx#identifier? _%L203156%_))) + (_%__kont208553208554%_ + _%L203154%_ + _%L203156%_ + _%L203157%_ + _%L203158%_) (let () (declare (not safe)) - (_%g202947202989%_))))))) + (_%g202984203026%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208513208514%_)) - (let ((_%e202953203067%_ + (gx#stx-pair? _%__stx208550208551%_)) + (let ((_%e202990203104%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208513208514%_)))) - (let ((_%tl202955203074%_ + (gx#syntax-e _%__stx208550208551%_)))) + (let ((_%tl202992203111%_ (let () (declare (not safe)) - (##cdr _%e202953203067%_))) - (_%hd202954203071%_ + (##cdr _%e202990203104%_))) + (_%hd202991203108%_ (let () (declare (not safe)) - (##car _%e202953203067%_)))) + (##car _%e202990203104%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202955203074%_)) - (let ((_%e202956203077%_ + (gx#stx-pair? _%tl202992203111%_)) + (let ((_%e202993203114%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202955203074%_)))) - (let ((_%tl202958203084%_ + (gx#syntax-e _%tl202992203111%_)))) + (let ((_%tl202995203121%_ (let () (declare (not safe)) - (##cdr _%e202956203077%_))) - (_%hd202957203081%_ + (##cdr _%e202993203114%_))) + (_%hd202994203118%_ (let () (declare (not safe)) - (##car _%e202956203077%_)))) + (##car _%e202993203114%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202958203084%_)) - (let ((_%e202959203087%_ + (gx#stx-pair? _%tl202995203121%_)) + (let ((_%e202996203124%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202958203084%_)))) - (let ((_%tl202961203094%_ + (gx#syntax-e _%tl202995203121%_)))) + (let ((_%tl202998203131%_ (let () (declare (not safe)) - (##cdr _%e202959203087%_))) - (_%hd202960203091%_ + (##cdr _%e202996203124%_))) + (_%hd202997203128%_ (let () (declare (not safe)) - (##car _%e202959203087%_)))) + (##car _%e202996203124%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202961203094%_)) - (let ((_%e202962203097%_ + (gx#stx-pair? _%tl202998203131%_)) + (let ((_%e202999203134%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202961203094%_)))) - (let ((_%tl202964203104%_ + _%tl202998203131%_)))) + (let ((_%tl203001203141%_ (let () (declare (not safe)) - (##cdr _%e202962203097%_))) - (_%hd202963203101%_ + (##cdr _%e202999203134%_))) + (_%hd203000203138%_ (let () (declare (not safe)) - (##car _%e202962203097%_)))) + (##car _%e202999203134%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl202964203104%_)) - (let ((_%e202965203107%_ + _%tl203001203141%_)) + (let ((_%e203002203144%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202964203104%_)))) - (let ((_%tl202967203114%_ + _%tl203001203141%_)))) + (let ((_%tl203004203151%_ (let () (declare (not safe)) - (##cdr _%e202965203107%_))) - (_%hd202966203111%_ + (##cdr _%e203002203144%_))) + (_%hd203003203148%_ (let () (declare (not safe)) - (##car _%e202965203107%_)))) + (##car _%e203002203144%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202967203114%_)) - (_%__match208552208553%_ - _%e202953203067%_ - _%hd202954203071%_ - _%tl202955203074%_ - _%e202956203077%_ - _%hd202957203081%_ - _%tl202958203084%_ - _%e202959203087%_ - _%hd202960203091%_ - _%tl202961203094%_ - _%e202962203097%_ - _%hd202963203101%_ - _%tl202964203104%_ - _%e202965203107%_ - _%hd202966203111%_ - _%tl202967203114%_) + _%tl203004203151%_)) + (_%__match208589208590%_ + _%e202990203104%_ + _%hd202991203108%_ + _%tl202992203111%_ + _%e202993203114%_ + _%hd202994203118%_ + _%tl202995203121%_ + _%e202996203124%_ + _%hd202997203128%_ + _%tl202998203131%_ + _%e202999203134%_ + _%hd203000203138%_ + _%tl203001203141%_ + _%e203002203144%_ + _%hd203003203148%_ + _%tl203004203151%_) (let () (declare (not safe)) - (_%g202947202989%_))))) + (_%g202984203026%_))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202964203104%_)) - (_%__kont208518208519%_ - _%hd202963203101%_ - _%hd202960203091%_ - _%hd202957203081%_ - _%hd202954203071%_) + _%tl203001203141%_)) + (_%__kont208555208556%_ + _%hd203000203138%_ + _%hd202997203128%_ + _%hd202994203118%_ + _%hd202991203108%_) (let () (declare (not safe)) - (_%g202947202989%_)))))) + (_%g202984203026%_)))))) (let () (declare (not safe)) - (_%g202947202989%_))))) + (_%g202984203026%_))))) (let () (declare (not safe)) - (_%g202947202989%_))))) - (let () (declare (not safe)) (_%g202947202989%_))))) - (let () (declare (not safe)) (_%g202947202989%_)))))))) + (_%g202984203026%_))))) + (let () (declare (not safe)) (_%g202984203026%_))))) + (let () (declare (not safe)) (_%g202984203026%_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_%$stx203146%_) - (let* ((_%g203150203185%_ - (lambda (_%g203151203181%_) + (lambda (_%$stx203183%_) + (let* ((_%g203187203222%_ + (lambda (_%g203188203218%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203151203181%_)))) - (_%g203149203304%_ - (lambda (_%g203151203189%_) + _%g203188203218%_)))) + (_%g203186203341%_ + (lambda (_%g203188203226%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203151203189%_)) - (let ((_%e203155203192%_ + (gx#stx-pair? _%g203188203226%_)) + (let ((_%e203192203229%_ (let () (declare (not safe)) - (gx#syntax-e _%g203151203189%_)))) - (let ((_%hd203156203196%_ + (gx#syntax-e _%g203188203226%_)))) + (let ((_%hd203193203233%_ (let () (declare (not safe)) - (##car _%e203155203192%_))) - (_%tl203157203199%_ + (##car _%e203192203229%_))) + (_%tl203194203236%_ (let () (declare (not safe)) - (##cdr _%e203155203192%_)))) + (##cdr _%e203192203229%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203157203199%_)) - (let ((_g209205_ + (gx#stx-pair/null? _%tl203194203236%_)) + (let ((_g209242_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203157203199%_ + _%tl203194203236%_ '0)))) (begin - (let ((_g209206_ + (let ((_g209243_ (let () (declare (not safe)) - (if (##values? _g209205_) - (##vector-length _g209205_) + (if (##values? _g209242_) + (##vector-length _g209242_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209206_ 2))) + (##fx= _g209243_ 2))) (error "Context expects 2 values" - _g209206_))) - (let ((_%target203158203202%_ + _g209243_))) + (let ((_%target203195203239%_ (let () (declare (not safe)) - (##vector-ref _g209205_ 0))) - (_%tl203160203205%_ + (##vector-ref _g209242_ 0))) + (_%tl203197203242%_ (let () (declare (not safe)) - (##vector-ref _g209205_ 1)))) + (##vector-ref _g209242_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203160203205%_)) - (letrec ((_%loop203161203208%_ - (lambda (_%hd203159203212%_ - _%symbol203165203215%_ - _%method203166203217%_ - _%type-t203167203219%_) + (gx#stx-null? _%tl203197203242%_)) + (letrec ((_%loop203198203245%_ + (lambda (_%hd203196203249%_ + _%symbol203202203252%_ + _%method203203203254%_ + _%type-t203204203256%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203159203212%_)) - (let ((_%e203162203222%_ + _%hd203196203249%_)) + (let ((_%e203199203259%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd203159203212%_)))) - (let ((_%lp-hd203163203226%_ + (gx#syntax-e _%hd203196203249%_)))) + (let ((_%lp-hd203200203263%_ (let () (declare (not safe)) - (##car _%e203162203222%_))) - (_%lp-tl203164203229%_ + (##car _%e203199203259%_))) + (_%lp-tl203201203266%_ (let () (declare (not safe)) - (##cdr _%e203162203222%_)))) + (##cdr _%e203199203259%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203163203226%_)) - (let ((_%e203171203232%_ + (gx#stx-pair? _%lp-hd203200203263%_)) + (let ((_%e203208203269%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203163203226%_)))) - (let ((_%hd203172203236%_ + (gx#syntax-e _%lp-hd203200203263%_)))) + (let ((_%hd203209203273%_ (let () (declare (not safe)) - (##car _%e203171203232%_))) - (_%tl203173203239%_ + (##car _%e203208203269%_))) + (_%tl203210203276%_ (let () (declare (not safe)) - (##cdr _%e203171203232%_)))) + (##cdr _%e203208203269%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203173203239%_)) - (let ((_%e203174203242%_ + (gx#stx-pair? _%tl203210203276%_)) + (let ((_%e203211203279%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203173203239%_)))) - (let ((_%hd203175203246%_ + (gx#syntax-e _%tl203210203276%_)))) + (let ((_%hd203212203283%_ (let () (declare (not safe)) - (##car _%e203174203242%_))) - (_%tl203176203249%_ + (##car _%e203211203279%_))) + (_%tl203213203286%_ (let () (declare (not safe)) - (##cdr _%e203174203242%_)))) + (##cdr _%e203211203279%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203176203249%_)) - (let ((_%e203177203252%_ + (gx#stx-pair? _%tl203213203286%_)) + (let ((_%e203214203289%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203176203249%_)))) - (let ((_%hd203178203256%_ + _%tl203213203286%_)))) + (let ((_%hd203215203293%_ (let () (declare (not safe)) - (##car _%e203177203252%_))) - (_%tl203179203259%_ + (##car _%e203214203289%_))) + (_%tl203216203296%_ (let () (declare (not safe)) - (##cdr _%e203177203252%_)))) + (##cdr _%e203214203289%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203179203259%_)) - (_%loop203161203208%_ - _%lp-tl203164203229%_ - (cons _%hd203178203256%_ - _%symbol203165203215%_) - (cons _%hd203175203246%_ - _%method203166203217%_) - (cons _%hd203172203236%_ - _%type-t203167203219%_)) - (_%g203150203185%_ - _%g203151203189%_)))) - (_%g203150203185%_ - _%g203151203189%_)))) - (_%g203150203185%_ _%g203151203189%_)))) - (_%g203150203185%_ _%g203151203189%_)))) - (let ((_%symbol203168203262%_ (reverse _%symbol203165203215%_)) - (_%method203169203265%_ (reverse _%method203166203217%_)) - (_%type-t203170203267%_ - (reverse _%type-t203167203219%_))) - ((lambda (_%L203270%_ _%L203272%_ _%L203273%_) + _%tl203216203296%_)) + (_%loop203198203245%_ + _%lp-tl203201203266%_ + (cons _%hd203215203293%_ + _%symbol203202203252%_) + (cons _%hd203212203283%_ + _%method203203203254%_) + (cons _%hd203209203273%_ + _%type-t203204203256%_)) + (_%g203187203222%_ + _%g203188203226%_)))) + (_%g203187203222%_ + _%g203188203226%_)))) + (_%g203187203222%_ _%g203188203226%_)))) + (_%g203187203222%_ _%g203188203226%_)))) + (let ((_%symbol203205203299%_ (reverse _%symbol203202203252%_)) + (_%method203206203302%_ (reverse _%method203203203254%_)) + (_%type-t203207203304%_ + (reverse _%type-t203204203256%_))) + ((lambda (_%L203307%_ _%L203309%_ _%L203310%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -791,196 +791,196 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L203270%_ - _%L203272%_ - _%L203273%_)) - (let ((__tmp209207 - (lambda (_%g203289203294%_ - _%g203290203297%_ - _%g203291203299%_ - _%g203292203301%_) + _%L203307%_ + _%L203309%_ + _%L203310%_)) + (let ((__tmp209244 + (lambda (_%g203326203331%_ + _%g203327203334%_ + _%g203328203336%_ + _%g203329203338%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%g203291203299%_ - (cons _%g203290203297%_ - (cons _%g203289203294%_ + (cons _%g203328203336%_ + (cons _%g203327203334%_ + (cons _%g203326203331%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g203292203301%_)))) + _%g203329203338%_)))) (declare (not safe)) (__foldr* - __tmp209207 + __tmp209244 '() - _%L203270%_ - _%L203272%_ - _%L203273%_))))) - _%symbol203168203262%_ - _%method203169203265%_ - _%type-t203170203267%_)))))) + _%L203307%_ + _%L203309%_ + _%L203310%_))))) + _%symbol203205203299%_ + _%method203206203302%_ + _%type-t203207203304%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203161203208%_ - _%target203158203202%_ + (_%loop203198203245%_ + _%target203195203239%_ '() '() '())) - (_%g203150203185%_ - _%g203151203189%_))))) - (_%g203150203185%_ _%g203151203189%_)))) - (_%g203150203185%_ _%g203151203189%_))))) - (_%g203149203304%_ _%$stx203146%_)))) + (_%g203187203222%_ + _%g203188203226%_))))) + (_%g203187203222%_ _%g203188203226%_)))) + (_%g203187203222%_ _%g203188203226%_))))) + (_%g203186203341%_ _%$stx203183%_)))) (define |gxc[:0:]#declare-methods| - (lambda (_%$stx203309%_) - (let* ((_%g203313203346%_ - (lambda (_%g203314203342%_) + (lambda (_%$stx203346%_) + (let* ((_%g203350203383%_ + (lambda (_%g203351203379%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203314203342%_)))) - (_%g203312203460%_ - (lambda (_%g203314203350%_) + _%g203351203379%_)))) + (_%g203349203497%_ + (lambda (_%g203351203387%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203314203350%_)) - (let ((_%e203318203353%_ + (gx#stx-pair? _%g203351203387%_)) + (let ((_%e203355203390%_ (let () (declare (not safe)) - (gx#syntax-e _%g203314203350%_)))) - (let ((_%hd203319203357%_ + (gx#syntax-e _%g203351203387%_)))) + (let ((_%hd203356203394%_ (let () (declare (not safe)) - (##car _%e203318203353%_))) - (_%tl203320203360%_ + (##car _%e203355203390%_))) + (_%tl203357203397%_ (let () (declare (not safe)) - (##cdr _%e203318203353%_)))) + (##cdr _%e203355203390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203320203360%_)) - (let ((_%e203321203363%_ + (gx#stx-pair? _%tl203357203397%_)) + (let ((_%e203358203400%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203320203360%_)))) - (let ((_%hd203322203367%_ + (gx#syntax-e _%tl203357203397%_)))) + (let ((_%hd203359203404%_ (let () (declare (not safe)) - (##car _%e203321203363%_))) - (_%tl203323203370%_ + (##car _%e203358203400%_))) + (_%tl203360203407%_ (let () (declare (not safe)) - (##cdr _%e203321203363%_)))) + (##cdr _%e203358203400%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203323203370%_)) - (let ((_g209208_ + (gx#stx-pair/null? _%tl203360203407%_)) + (let ((_g209245_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203323203370%_ + _%tl203360203407%_ '0)))) (begin - (let ((_g209209_ + (let ((_g209246_ (let () (declare (not safe)) - (if (##values? _g209208_) + (if (##values? _g209245_) (##vector-length - _g209208_) + _g209245_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209209_ 2))) + (##fx= _g209246_ 2))) (error "Context expects 2 values" - _g209209_))) - (let ((_%target203324203373%_ + _g209246_))) + (let ((_%target203361203410%_ (let () (declare (not safe)) - (##vector-ref _g209208_ 0))) - (_%tl203326203376%_ + (##vector-ref _g209245_ 0))) + (_%tl203363203413%_ (let () (declare (not safe)) (##vector-ref - _g209208_ + _g209245_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203326203376%_)) - (letrec ((_%loop203327203379%_ - (lambda (_%hd203325203383%_ + _%tl203363203413%_)) + (letrec ((_%loop203364203416%_ + (lambda (_%hd203362203420%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%symbol203331203386%_ - _%method203332203388%_) + _%symbol203368203423%_ + _%method203369203425%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203325203383%_)) - (let ((_%e203328203391%_ + (gx#stx-pair? _%hd203362203420%_)) + (let ((_%e203365203428%_ (let () (declare (not safe)) - (gx#syntax-e _%hd203325203383%_)))) - (let ((_%lp-hd203329203395%_ + (gx#syntax-e _%hd203362203420%_)))) + (let ((_%lp-hd203366203432%_ (let () (declare (not safe)) - (##car _%e203328203391%_))) - (_%lp-tl203330203398%_ + (##car _%e203365203428%_))) + (_%lp-tl203367203435%_ (let () (declare (not safe)) - (##cdr _%e203328203391%_)))) + (##cdr _%e203365203428%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203329203395%_)) - (let ((_%e203335203401%_ + (gx#stx-pair? _%lp-hd203366203432%_)) + (let ((_%e203372203438%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203329203395%_)))) - (let ((_%hd203336203405%_ + (gx#syntax-e _%lp-hd203366203432%_)))) + (let ((_%hd203373203442%_ (let () (declare (not safe)) - (##car _%e203335203401%_))) - (_%tl203337203408%_ + (##car _%e203372203438%_))) + (_%tl203374203445%_ (let () (declare (not safe)) - (##cdr _%e203335203401%_)))) + (##cdr _%e203372203438%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203337203408%_)) - (let ((_%e203338203411%_ + (gx#stx-pair? _%tl203374203445%_)) + (let ((_%e203375203448%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203337203408%_)))) - (let ((_%hd203339203415%_ + _%tl203374203445%_)))) + (let ((_%hd203376203452%_ (let () (declare (not safe)) - (##car _%e203338203411%_))) - (_%tl203340203418%_ + (##car _%e203375203448%_))) + (_%tl203377203455%_ (let () (declare (not safe)) - (##cdr _%e203338203411%_)))) + (##cdr _%e203375203448%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203340203418%_)) - (_%loop203327203379%_ - _%lp-tl203330203398%_ - (cons _%hd203339203415%_ - _%symbol203331203386%_) - (cons _%hd203336203405%_ - _%method203332203388%_)) - (_%g203313203346%_ - _%g203314203350%_)))) - (_%g203313203346%_ - _%g203314203350%_)))) - (_%g203313203346%_ _%g203314203350%_)))) - (let ((_%symbol203333203421%_ - (reverse _%symbol203331203386%_)) - (_%method203334203424%_ - (reverse _%method203332203388%_))) - ((lambda (_%L203427%_ _%L203429%_ _%L203430%_) + _%tl203377203455%_)) + (_%loop203364203416%_ + _%lp-tl203367203435%_ + (cons _%hd203376203452%_ + _%symbol203368203423%_) + (cons _%hd203373203442%_ + _%method203369203425%_)) + (_%g203350203383%_ + _%g203351203387%_)))) + (_%g203350203383%_ + _%g203351203387%_)))) + (_%g203350203383%_ _%g203351203387%_)))) + (let ((_%symbol203370203458%_ + (reverse _%symbol203368203423%_)) + (_%method203371203461%_ + (reverse _%method203369203425%_))) + ((lambda (_%L203464%_ _%L203466%_ _%L203467%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -988,90 +988,90 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L203427%_ - _%L203429%_)) - (let ((__tmp209210 - (lambda (_%g203448203452%_ - _%g203449203455%_ - _%g203450203457%_) + _%L203464%_ + _%L203466%_)) + (let ((__tmp209247 + (lambda (_%g203485203489%_ + _%g203486203492%_ + _%g203487203494%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%L203430%_ - (cons _%g203449203455%_ + (cons _%L203467%_ + (cons _%g203486203492%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g203448203452%_ '())))) + (cons _%g203485203489%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g203450203457%_)))) + _%g203487203494%_)))) (declare (not safe)) (__foldr2 - __tmp209210 + __tmp209247 '() - _%L203427%_ - _%L203429%_))))) - _%symbol203333203421%_ - _%method203334203424%_ - _%hd203322203367%_)))))) + _%L203464%_ + _%L203466%_))))) + _%symbol203370203458%_ + _%method203371203461%_ + _%hd203359203404%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203327203379%_ - _%target203324203373%_ + (_%loop203364203416%_ + _%target203361203410%_ '() '())) - (_%g203313203346%_ - _%g203314203350%_))))) - (_%g203313203346%_ _%g203314203350%_)))) - (_%g203313203346%_ _%g203314203350%_)))) - (_%g203313203346%_ _%g203314203350%_))))) - (_%g203312203460%_ _%$stx203309%_)))) + (_%g203350203383%_ + _%g203351203387%_))))) + (_%g203350203383%_ _%g203351203387%_)))) + (_%g203350203383%_ _%g203351203387%_)))) + (_%g203350203383%_ _%g203351203387%_))))) + (_%g203349203497%_ _%$stx203346%_)))) (define |gxc[:0:]#@alias| - (lambda (_%$stx203465%_) - (let* ((_%g203469203483%_ - (lambda (_%g203470203479%_) + (lambda (_%$stx203502%_) + (let* ((_%g203506203520%_ + (lambda (_%g203507203516%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203470203479%_)))) - (_%g203468203524%_ - (lambda (_%g203470203487%_) + _%g203507203516%_)))) + (_%g203505203561%_ + (lambda (_%g203507203524%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203470203487%_)) - (let ((_%e203472203490%_ + (gx#stx-pair? _%g203507203524%_)) + (let ((_%e203509203527%_ (let () (declare (not safe)) - (gx#syntax-e _%g203470203487%_)))) - (let ((_%hd203473203494%_ + (gx#syntax-e _%g203507203524%_)))) + (let ((_%hd203510203531%_ (let () (declare (not safe)) - (##car _%e203472203490%_))) - (_%tl203474203497%_ + (##car _%e203509203527%_))) + (_%tl203511203534%_ (let () (declare (not safe)) - (##cdr _%e203472203490%_)))) + (##cdr _%e203509203527%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203474203497%_)) - (let ((_%e203475203500%_ + (gx#stx-pair? _%tl203511203534%_)) + (let ((_%e203512203537%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203474203497%_)))) - (let ((_%hd203476203504%_ + (gx#syntax-e _%tl203511203534%_)))) + (let ((_%hd203513203541%_ (let () (declare (not safe)) - (##car _%e203475203500%_))) - (_%tl203477203507%_ + (##car _%e203512203537%_))) + (_%tl203514203544%_ (let () (declare (not safe)) - (##cdr _%e203475203500%_)))) + (##cdr _%e203512203537%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203477203507%_)) - ((lambda (_%L203510%_) + (gx#stx-null? _%tl203514203544%_)) + ((lambda (_%L203547%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1083,230 +1083,230 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203510%_ + (cons _%L203547%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203476203504%_) - (_%g203469203483%_ _%g203470203487%_)))) - (_%g203469203483%_ _%g203470203487%_)))) - (_%g203469203483%_ _%g203470203487%_))))) - (_%g203468203524%_ _%$stx203465%_)))) + _%hd203513203541%_) + (_%g203506203520%_ _%g203507203524%_)))) + (_%g203506203520%_ _%g203507203524%_)))) + (_%g203506203520%_ _%g203507203524%_))))) + (_%g203505203561%_ _%$stx203502%_)))) (define |gxc[:0:]#@class| - (lambda (_%$stx203528%_) - (let* ((_%g203532203586%_ - (lambda (_%g203533203582%_) + (lambda (_%$stx203565%_) + (let* ((_%g203569203623%_ + (lambda (_%g203570203619%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203533203582%_)))) - (_%g203531203767%_ - (lambda (_%g203533203590%_) + _%g203570203619%_)))) + (_%g203568203804%_ + (lambda (_%g203570203627%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203533203590%_)) - (let ((_%e203545203593%_ + (gx#stx-pair? _%g203570203627%_)) + (let ((_%e203582203630%_ (let () (declare (not safe)) - (gx#syntax-e _%g203533203590%_)))) - (let ((_%hd203546203597%_ + (gx#syntax-e _%g203570203627%_)))) + (let ((_%hd203583203634%_ (let () (declare (not safe)) - (##car _%e203545203593%_))) - (_%tl203547203600%_ + (##car _%e203582203630%_))) + (_%tl203584203637%_ (let () (declare (not safe)) - (##cdr _%e203545203593%_)))) + (##cdr _%e203582203630%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203547203600%_)) - (let ((_%e203548203603%_ + (gx#stx-pair? _%tl203584203637%_)) + (let ((_%e203585203640%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203547203600%_)))) - (let ((_%hd203549203607%_ + (gx#syntax-e _%tl203584203637%_)))) + (let ((_%hd203586203644%_ (let () (declare (not safe)) - (##car _%e203548203603%_))) - (_%tl203550203610%_ + (##car _%e203585203640%_))) + (_%tl203587203647%_ (let () (declare (not safe)) - (##cdr _%e203548203603%_)))) + (##cdr _%e203585203640%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203550203610%_)) - (let ((_%e203551203613%_ + (gx#stx-pair? _%tl203587203647%_)) + (let ((_%e203588203650%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203550203610%_)))) - (let ((_%hd203552203617%_ + _%tl203587203647%_)))) + (let ((_%hd203589203654%_ (let () (declare (not safe)) - (##car _%e203551203613%_))) - (_%tl203553203620%_ + (##car _%e203588203650%_))) + (_%tl203590203657%_ (let () (declare (not safe)) - (##cdr _%e203551203613%_)))) + (##cdr _%e203588203650%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203553203620%_)) - (let ((_%e203554203623%_ + _%tl203590203657%_)) + (let ((_%e203591203660%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203553203620%_)))) - (let ((_%hd203555203627%_ + _%tl203590203657%_)))) + (let ((_%hd203592203664%_ (let () (declare (not safe)) - (##car _%e203554203623%_))) - (_%tl203556203630%_ + (##car _%e203591203660%_))) + (_%tl203593203667%_ (let () (declare (not safe)) - (##cdr _%e203554203623%_)))) + (##cdr _%e203591203660%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203556203630%_)) - (let ((_%e203557203633%_ + _%tl203593203667%_)) + (let ((_%e203594203670%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl203556203630%_)))) - (let ((_%hd203558203637%_ - (let () (declare (not safe)) (##car _%e203557203633%_))) - (_%tl203559203640%_ + (gx#syntax-e _%tl203593203667%_)))) + (let ((_%hd203595203674%_ + (let () (declare (not safe)) (##car _%e203594203670%_))) + (_%tl203596203677%_ (let () (declare (not safe)) - (##cdr _%e203557203633%_)))) + (##cdr _%e203594203670%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203559203640%_)) - (let ((_%e203560203643%_ + (gx#stx-pair? _%tl203596203677%_)) + (let ((_%e203597203680%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203559203640%_)))) - (let ((_%hd203561203647%_ + (gx#syntax-e _%tl203596203677%_)))) + (let ((_%hd203598203684%_ (let () (declare (not safe)) - (##car _%e203560203643%_))) - (_%tl203562203650%_ + (##car _%e203597203680%_))) + (_%tl203599203687%_ (let () (declare (not safe)) - (##cdr _%e203560203643%_)))) + (##cdr _%e203597203680%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203562203650%_)) - (let ((_%e203563203653%_ + (gx#stx-pair? _%tl203599203687%_)) + (let ((_%e203600203690%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203562203650%_)))) - (let ((_%hd203564203657%_ + (gx#syntax-e _%tl203599203687%_)))) + (let ((_%hd203601203694%_ (let () (declare (not safe)) - (##car _%e203563203653%_))) - (_%tl203565203660%_ + (##car _%e203600203690%_))) + (_%tl203602203697%_ (let () (declare (not safe)) - (##cdr _%e203563203653%_)))) + (##cdr _%e203600203690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203565203660%_)) - (let ((_%e203566203663%_ + (gx#stx-pair? _%tl203602203697%_)) + (let ((_%e203603203700%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203565203660%_)))) - (let ((_%hd203567203667%_ + _%tl203602203697%_)))) + (let ((_%hd203604203704%_ (let () (declare (not safe)) - (##car _%e203566203663%_))) - (_%tl203568203670%_ + (##car _%e203603203700%_))) + (_%tl203605203707%_ (let () (declare (not safe)) - (##cdr _%e203566203663%_)))) + (##cdr _%e203603203700%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203568203670%_)) - (let ((_%e203569203673%_ + _%tl203605203707%_)) + (let ((_%e203606203710%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203568203670%_)))) - (let ((_%hd203570203677%_ + _%tl203605203707%_)))) + (let ((_%hd203607203714%_ (let () (declare (not safe)) - (##car _%e203569203673%_))) - (_%tl203571203680%_ + (##car _%e203606203710%_))) + (_%tl203608203717%_ (let () (declare (not safe)) - (##cdr _%e203569203673%_)))) + (##cdr _%e203606203710%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203571203680%_)) - (let ((_%e203572203683%_ + _%tl203608203717%_)) + (let ((_%e203609203720%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl203571203680%_)))) - (let ((_%hd203573203687%_ - (let () (declare (not safe)) (##car _%e203572203683%_))) - (_%tl203574203690%_ + (gx#syntax-e _%tl203608203717%_)))) + (let ((_%hd203610203724%_ + (let () (declare (not safe)) (##car _%e203609203720%_))) + (_%tl203611203727%_ (let () (declare (not safe)) - (##cdr _%e203572203683%_)))) + (##cdr _%e203609203720%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203574203690%_)) - (let ((_%e203575203693%_ + (gx#stx-pair? _%tl203611203727%_)) + (let ((_%e203612203730%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203574203690%_)))) - (let ((_%hd203576203697%_ + (gx#syntax-e _%tl203611203727%_)))) + (let ((_%hd203613203734%_ (let () (declare (not safe)) - (##car _%e203575203693%_))) - (_%tl203577203700%_ + (##car _%e203612203730%_))) + (_%tl203614203737%_ (let () (declare (not safe)) - (##cdr _%e203575203693%_)))) + (##cdr _%e203612203730%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203577203700%_)) - (let ((_%e203578203703%_ + (gx#stx-pair? _%tl203614203737%_)) + (let ((_%e203615203740%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203577203700%_)))) - (let ((_%hd203579203707%_ + (gx#syntax-e _%tl203614203737%_)))) + (let ((_%hd203616203744%_ (let () (declare (not safe)) - (##car _%e203578203703%_))) - (_%tl203580203710%_ + (##car _%e203615203740%_))) + (_%tl203617203747%_ (let () (declare (not safe)) - (##cdr _%e203578203703%_)))) + (##cdr _%e203615203740%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203580203710%_)) - ((lambda (_%L203713%_ - _%L203715%_ - _%L203716%_ - _%L203717%_ - _%L203718%_ - _%L203719%_ - _%L203720%_ - _%L203721%_ - _%L203722%_ - _%L203723%_ - _%L203724%_) + (gx#stx-null? _%tl203617203747%_)) + ((lambda (_%L203750%_ + _%L203752%_ + _%L203753%_ + _%L203754%_ + _%L203755%_ + _%L203756%_ + _%L203757%_ + _%L203758%_ + _%L203759%_ + _%L203760%_ + _%L203761%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1318,7 +1318,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203724%_ + (cons _%L203761%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1326,115 +1326,115 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203723%_ '())) + (cons _%L203760%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203722%_ '())) + (cons _%L203759%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203721%_ '())) + (cons _%L203758%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203720%_ '())) + (cons _%L203757%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203719%_ '())) - (cons _%L203718%_ - (cons _%L203717%_ - (cons _%L203716%_ + (cons _%L203756%_ '())) + (cons _%L203755%_ + (cons _%L203754%_ + (cons _%L203753%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203715%_ '())) + (cons _%L203752%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203713%_ '())) + (cons _%L203750%_ '())) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203579203707%_ - _%hd203576203697%_ - _%hd203573203687%_ - _%hd203570203677%_ - _%hd203567203667%_ - _%hd203564203657%_ - _%hd203561203647%_ - _%hd203558203637%_ - _%hd203555203627%_ - _%hd203552203617%_ - _%hd203549203607%_) - (_%g203532203586%_ _%g203533203590%_)))) - (_%g203532203586%_ _%g203533203590%_)))) - (_%g203532203586%_ _%g203533203590%_)))) - (_%g203532203586%_ _%g203533203590%_)))) + _%hd203616203744%_ + _%hd203613203734%_ + _%hd203610203724%_ + _%hd203607203714%_ + _%hd203604203704%_ + _%hd203601203694%_ + _%hd203598203684%_ + _%hd203595203674%_ + _%hd203592203664%_ + _%hd203589203654%_ + _%hd203586203644%_) + (_%g203569203623%_ _%g203570203627%_)))) + (_%g203569203623%_ _%g203570203627%_)))) + (_%g203569203623%_ _%g203570203627%_)))) + (_%g203569203623%_ _%g203570203627%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203532203586%_ - _%g203533203590%_)))) - (_%g203532203586%_ _%g203533203590%_)))) - (_%g203532203586%_ _%g203533203590%_)))) - (_%g203532203586%_ _%g203533203590%_)))) - (_%g203532203586%_ _%g203533203590%_)))) + (_%g203569203623%_ + _%g203570203627%_)))) + (_%g203569203623%_ _%g203570203627%_)))) + (_%g203569203623%_ _%g203570203627%_)))) + (_%g203569203623%_ _%g203570203627%_)))) + (_%g203569203623%_ _%g203570203627%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203532203586%_ - _%g203533203590%_)))) - (_%g203532203586%_ _%g203533203590%_)))) - (_%g203532203586%_ _%g203533203590%_)))) - (_%g203532203586%_ _%g203533203590%_))))) - (_%g203531203767%_ _%$stx203528%_)))) + (_%g203569203623%_ + _%g203570203627%_)))) + (_%g203569203623%_ _%g203570203627%_)))) + (_%g203569203623%_ _%g203570203627%_)))) + (_%g203569203623%_ _%g203570203627%_))))) + (_%g203568203804%_ _%$stx203565%_)))) (define |gxc[:0:]#@predicate| - (lambda (_%$stx203771%_) - (let* ((_%g203775203789%_ - (lambda (_%g203776203785%_) + (lambda (_%$stx203808%_) + (let* ((_%g203812203826%_ + (lambda (_%g203813203822%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203776203785%_)))) - (_%g203774203830%_ - (lambda (_%g203776203793%_) + _%g203813203822%_)))) + (_%g203811203867%_ + (lambda (_%g203813203830%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203776203793%_)) - (let ((_%e203778203796%_ + (gx#stx-pair? _%g203813203830%_)) + (let ((_%e203815203833%_ (let () (declare (not safe)) - (gx#syntax-e _%g203776203793%_)))) - (let ((_%hd203779203800%_ + (gx#syntax-e _%g203813203830%_)))) + (let ((_%hd203816203837%_ (let () (declare (not safe)) - (##car _%e203778203796%_))) - (_%tl203780203803%_ + (##car _%e203815203833%_))) + (_%tl203817203840%_ (let () (declare (not safe)) - (##cdr _%e203778203796%_)))) + (##cdr _%e203815203833%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203780203803%_)) - (let ((_%e203781203806%_ + (gx#stx-pair? _%tl203817203840%_)) + (let ((_%e203818203843%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203780203803%_)))) - (let ((_%hd203782203810%_ + (gx#syntax-e _%tl203817203840%_)))) + (let ((_%hd203819203847%_ (let () (declare (not safe)) - (##car _%e203781203806%_))) - (_%tl203783203813%_ + (##car _%e203818203843%_))) + (_%tl203820203850%_ (let () (declare (not safe)) - (##cdr _%e203781203806%_)))) + (##cdr _%e203818203843%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203783203813%_)) - ((lambda (_%L203816%_) + (gx#stx-null? _%tl203820203850%_)) + ((lambda (_%L203853%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1446,62 +1446,62 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203816%_ + (cons _%L203853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203782203810%_) - (_%g203775203789%_ _%g203776203793%_)))) - (_%g203775203789%_ _%g203776203793%_)))) - (_%g203775203789%_ _%g203776203793%_))))) - (_%g203774203830%_ _%$stx203771%_)))) + _%hd203819203847%_) + (_%g203812203826%_ _%g203813203830%_)))) + (_%g203812203826%_ _%g203813203830%_)))) + (_%g203812203826%_ _%g203813203830%_))))) + (_%g203811203867%_ _%$stx203808%_)))) (define |gxc[:0:]#@constructor| - (lambda (_%$stx203834%_) - (let* ((_%g203838203852%_ - (lambda (_%g203839203848%_) + (lambda (_%$stx203871%_) + (let* ((_%g203875203889%_ + (lambda (_%g203876203885%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203839203848%_)))) - (_%g203837203893%_ - (lambda (_%g203839203856%_) + _%g203876203885%_)))) + (_%g203874203930%_ + (lambda (_%g203876203893%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203839203856%_)) - (let ((_%e203841203859%_ + (gx#stx-pair? _%g203876203893%_)) + (let ((_%e203878203896%_ (let () (declare (not safe)) - (gx#syntax-e _%g203839203856%_)))) - (let ((_%hd203842203863%_ + (gx#syntax-e _%g203876203893%_)))) + (let ((_%hd203879203900%_ (let () (declare (not safe)) - (##car _%e203841203859%_))) - (_%tl203843203866%_ + (##car _%e203878203896%_))) + (_%tl203880203903%_ (let () (declare (not safe)) - (##cdr _%e203841203859%_)))) + (##cdr _%e203878203896%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203843203866%_)) - (let ((_%e203844203869%_ + (gx#stx-pair? _%tl203880203903%_)) + (let ((_%e203881203906%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203843203866%_)))) - (let ((_%hd203845203873%_ + (gx#syntax-e _%tl203880203903%_)))) + (let ((_%hd203882203910%_ (let () (declare (not safe)) - (##car _%e203844203869%_))) - (_%tl203846203876%_ + (##car _%e203881203906%_))) + (_%tl203883203913%_ (let () (declare (not safe)) - (##cdr _%e203844203869%_)))) + (##cdr _%e203881203906%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203846203876%_)) - ((lambda (_%L203879%_) + (gx#stx-null? _%tl203883203913%_)) + ((lambda (_%L203916%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1513,98 +1513,98 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203879%_ + (cons _%L203916%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203845203873%_) - (_%g203838203852%_ _%g203839203856%_)))) - (_%g203838203852%_ _%g203839203856%_)))) - (_%g203838203852%_ _%g203839203856%_))))) - (_%g203837203893%_ _%$stx203834%_)))) + _%hd203882203910%_) + (_%g203875203889%_ _%g203876203893%_)))) + (_%g203875203889%_ _%g203876203893%_)))) + (_%g203875203889%_ _%g203876203893%_))))) + (_%g203874203930%_ _%$stx203871%_)))) (define |gxc[:0:]#@accessor| - (lambda (_%$stx203897%_) - (let* ((_%g203901203923%_ - (lambda (_%g203902203919%_) + (lambda (_%$stx203934%_) + (let* ((_%g203938203960%_ + (lambda (_%g203939203956%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203902203919%_)))) - (_%g203900203992%_ - (lambda (_%g203902203927%_) + _%g203939203956%_)))) + (_%g203937204029%_ + (lambda (_%g203939203964%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203902203927%_)) - (let ((_%e203906203930%_ + (gx#stx-pair? _%g203939203964%_)) + (let ((_%e203943203967%_ (let () (declare (not safe)) - (gx#syntax-e _%g203902203927%_)))) - (let ((_%hd203907203934%_ + (gx#syntax-e _%g203939203964%_)))) + (let ((_%hd203944203971%_ (let () (declare (not safe)) - (##car _%e203906203930%_))) - (_%tl203908203937%_ + (##car _%e203943203967%_))) + (_%tl203945203974%_ (let () (declare (not safe)) - (##cdr _%e203906203930%_)))) + (##cdr _%e203943203967%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203908203937%_)) - (let ((_%e203909203940%_ + (gx#stx-pair? _%tl203945203974%_)) + (let ((_%e203946203977%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203908203937%_)))) - (let ((_%hd203910203944%_ + (gx#syntax-e _%tl203945203974%_)))) + (let ((_%hd203947203981%_ (let () (declare (not safe)) - (##car _%e203909203940%_))) - (_%tl203911203947%_ + (##car _%e203946203977%_))) + (_%tl203948203984%_ (let () (declare (not safe)) - (##cdr _%e203909203940%_)))) + (##cdr _%e203946203977%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203911203947%_)) - (let ((_%e203912203950%_ + (gx#stx-pair? _%tl203948203984%_)) + (let ((_%e203949203987%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203911203947%_)))) - (let ((_%hd203913203954%_ + _%tl203948203984%_)))) + (let ((_%hd203950203991%_ (let () (declare (not safe)) - (##car _%e203912203950%_))) - (_%tl203914203957%_ + (##car _%e203949203987%_))) + (_%tl203951203994%_ (let () (declare (not safe)) - (##cdr _%e203912203950%_)))) + (##cdr _%e203949203987%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203914203957%_)) - (let ((_%e203915203960%_ + _%tl203951203994%_)) + (let ((_%e203952203997%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203914203957%_)))) - (let ((_%hd203916203964%_ + _%tl203951203994%_)))) + (let ((_%hd203953204001%_ (let () (declare (not safe)) - (##car _%e203915203960%_))) - (_%tl203917203967%_ + (##car _%e203952203997%_))) + (_%tl203954204004%_ (let () (declare (not safe)) - (##cdr _%e203915203960%_)))) + (##cdr _%e203952203997%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203917203967%_)) - ((lambda (_%L203970%_ - _%L203972%_ - _%L203973%_) + _%tl203954204004%_)) + ((lambda (_%L204007%_ + _%L204009%_ + _%L204010%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1612,105 +1612,105 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203973%_ '())) + (cons _%L204010%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203972%_ '())) - (cons _%L203970%_ '()))))) - _%hd203916203964%_ - _%hd203913203954%_ - _%hd203910203944%_) - (_%g203901203923%_ _%g203902203927%_)))) + (cons _%L204009%_ '())) + (cons _%L204007%_ '()))))) + _%hd203953204001%_ + _%hd203950203991%_ + _%hd203947203981%_) + (_%g203938203960%_ _%g203939203964%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203901203923%_ - _%g203902203927%_)))) - (_%g203901203923%_ _%g203902203927%_)))) - (_%g203901203923%_ _%g203902203927%_)))) - (_%g203901203923%_ _%g203902203927%_))))) - (_%g203900203992%_ _%$stx203897%_)))) + (_%g203938203960%_ + _%g203939203964%_)))) + (_%g203938203960%_ _%g203939203964%_)))) + (_%g203938203960%_ _%g203939203964%_)))) + (_%g203938203960%_ _%g203939203964%_))))) + (_%g203937204029%_ _%$stx203934%_)))) (define |gxc[:0:]#@mutator| - (lambda (_%$stx203996%_) - (let* ((_%g204000204022%_ - (lambda (_%g204001204018%_) + (lambda (_%$stx204033%_) + (let* ((_%g204037204059%_ + (lambda (_%g204038204055%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204001204018%_)))) - (_%g203999204091%_ - (lambda (_%g204001204026%_) + _%g204038204055%_)))) + (_%g204036204128%_ + (lambda (_%g204038204063%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204001204026%_)) - (let ((_%e204005204029%_ + (gx#stx-pair? _%g204038204063%_)) + (let ((_%e204042204066%_ (let () (declare (not safe)) - (gx#syntax-e _%g204001204026%_)))) - (let ((_%hd204006204033%_ + (gx#syntax-e _%g204038204063%_)))) + (let ((_%hd204043204070%_ (let () (declare (not safe)) - (##car _%e204005204029%_))) - (_%tl204007204036%_ + (##car _%e204042204066%_))) + (_%tl204044204073%_ (let () (declare (not safe)) - (##cdr _%e204005204029%_)))) + (##cdr _%e204042204066%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204007204036%_)) - (let ((_%e204008204039%_ + (gx#stx-pair? _%tl204044204073%_)) + (let ((_%e204045204076%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204007204036%_)))) - (let ((_%hd204009204043%_ + (gx#syntax-e _%tl204044204073%_)))) + (let ((_%hd204046204080%_ (let () (declare (not safe)) - (##car _%e204008204039%_))) - (_%tl204010204046%_ + (##car _%e204045204076%_))) + (_%tl204047204083%_ (let () (declare (not safe)) - (##cdr _%e204008204039%_)))) + (##cdr _%e204045204076%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204010204046%_)) - (let ((_%e204011204049%_ + (gx#stx-pair? _%tl204047204083%_)) + (let ((_%e204048204086%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204010204046%_)))) - (let ((_%hd204012204053%_ + _%tl204047204083%_)))) + (let ((_%hd204049204090%_ (let () (declare (not safe)) - (##car _%e204011204049%_))) - (_%tl204013204056%_ + (##car _%e204048204086%_))) + (_%tl204050204093%_ (let () (declare (not safe)) - (##cdr _%e204011204049%_)))) + (##cdr _%e204048204086%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204013204056%_)) - (let ((_%e204014204059%_ + _%tl204050204093%_)) + (let ((_%e204051204096%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204013204056%_)))) - (let ((_%hd204015204063%_ + _%tl204050204093%_)))) + (let ((_%hd204052204100%_ (let () (declare (not safe)) - (##car _%e204014204059%_))) - (_%tl204016204066%_ + (##car _%e204051204096%_))) + (_%tl204053204103%_ (let () (declare (not safe)) - (##cdr _%e204014204059%_)))) + (##cdr _%e204051204096%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204016204066%_)) - ((lambda (_%L204069%_ - _%L204071%_ - _%L204072%_) + _%tl204053204103%_)) + ((lambda (_%L204106%_ + _%L204108%_ + _%L204109%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1718,69 +1718,69 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204072%_ '())) + (cons _%L204109%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204071%_ '())) - (cons _%L204069%_ '()))))) - _%hd204015204063%_ - _%hd204012204053%_ - _%hd204009204043%_) - (_%g204000204022%_ _%g204001204026%_)))) + (cons _%L204108%_ '())) + (cons _%L204106%_ '()))))) + _%hd204052204100%_ + _%hd204049204090%_ + _%hd204046204080%_) + (_%g204037204059%_ _%g204038204063%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204000204022%_ - _%g204001204026%_)))) - (_%g204000204022%_ _%g204001204026%_)))) - (_%g204000204022%_ _%g204001204026%_)))) - (_%g204000204022%_ _%g204001204026%_))))) - (_%g203999204091%_ _%$stx203996%_)))) + (_%g204037204059%_ + _%g204038204063%_)))) + (_%g204037204059%_ _%g204038204063%_)))) + (_%g204037204059%_ _%g204038204063%_)))) + (_%g204037204059%_ _%g204038204063%_))))) + (_%g204036204128%_ _%$stx204033%_)))) (define |gxc[:0:]#@primitive-predicate| - (lambda (_%$stx204095%_) - (let* ((_%g204099204113%_ - (lambda (_%g204100204109%_) + (lambda (_%$stx204132%_) + (let* ((_%g204136204150%_ + (lambda (_%g204137204146%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204100204109%_)))) - (_%g204098204154%_ - (lambda (_%g204100204117%_) + _%g204137204146%_)))) + (_%g204135204191%_ + (lambda (_%g204137204154%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204100204117%_)) - (let ((_%e204102204120%_ + (gx#stx-pair? _%g204137204154%_)) + (let ((_%e204139204157%_ (let () (declare (not safe)) - (gx#syntax-e _%g204100204117%_)))) - (let ((_%hd204103204124%_ + (gx#syntax-e _%g204137204154%_)))) + (let ((_%hd204140204161%_ (let () (declare (not safe)) - (##car _%e204102204120%_))) - (_%tl204104204127%_ + (##car _%e204139204157%_))) + (_%tl204141204164%_ (let () (declare (not safe)) - (##cdr _%e204102204120%_)))) + (##cdr _%e204139204157%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204104204127%_)) - (let ((_%e204105204130%_ + (gx#stx-pair? _%tl204141204164%_)) + (let ((_%e204142204167%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204104204127%_)))) - (let ((_%hd204106204134%_ + (gx#syntax-e _%tl204141204164%_)))) + (let ((_%hd204143204171%_ (let () (declare (not safe)) - (##car _%e204105204130%_))) - (_%tl204107204137%_ + (##car _%e204142204167%_))) + (_%tl204144204174%_ (let () (declare (not safe)) - (##cdr _%e204105204130%_)))) + (##cdr _%e204142204167%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204107204137%_)) - ((lambda (_%L204140%_) + (gx#stx-null? _%tl204144204174%_)) + ((lambda (_%L204177%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1792,80 +1792,80 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204140%_ + (cons _%L204177%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd204106204134%_) - (_%g204099204113%_ _%g204100204117%_)))) - (_%g204099204113%_ _%g204100204117%_)))) - (_%g204099204113%_ _%g204100204117%_))))) - (_%g204098204154%_ _%$stx204095%_)))) + _%hd204143204171%_) + (_%g204136204150%_ _%g204137204154%_)))) + (_%g204136204150%_ _%g204137204154%_)))) + (_%g204136204150%_ _%g204137204154%_))))) + (_%g204135204191%_ _%$stx204132%_)))) (define |gxc[:0:]#@interface| - (lambda (_%$stx204158%_) - (let* ((_%g204162204180%_ - (lambda (_%g204163204176%_) + (lambda (_%$stx204195%_) + (let* ((_%g204199204217%_ + (lambda (_%g204200204213%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204163204176%_)))) - (_%g204161204235%_ - (lambda (_%g204163204184%_) + _%g204200204213%_)))) + (_%g204198204272%_ + (lambda (_%g204200204221%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204163204184%_)) - (let ((_%e204166204187%_ + (gx#stx-pair? _%g204200204221%_)) + (let ((_%e204203204224%_ (let () (declare (not safe)) - (gx#syntax-e _%g204163204184%_)))) - (let ((_%hd204167204191%_ + (gx#syntax-e _%g204200204221%_)))) + (let ((_%hd204204204228%_ (let () (declare (not safe)) - (##car _%e204166204187%_))) - (_%tl204168204194%_ + (##car _%e204203204224%_))) + (_%tl204205204231%_ (let () (declare (not safe)) - (##cdr _%e204166204187%_)))) + (##cdr _%e204203204224%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204168204194%_)) - (let ((_%e204169204197%_ + (gx#stx-pair? _%tl204205204231%_)) + (let ((_%e204206204234%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204168204194%_)))) - (let ((_%hd204170204201%_ + (gx#syntax-e _%tl204205204231%_)))) + (let ((_%hd204207204238%_ (let () (declare (not safe)) - (##car _%e204169204197%_))) - (_%tl204171204204%_ + (##car _%e204206204234%_))) + (_%tl204208204241%_ (let () (declare (not safe)) - (##cdr _%e204169204197%_)))) + (##cdr _%e204206204234%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204171204204%_)) - (let ((_%e204172204207%_ + (gx#stx-pair? _%tl204208204241%_)) + (let ((_%e204209204244%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204171204204%_)))) - (let ((_%hd204173204211%_ + _%tl204208204241%_)))) + (let ((_%hd204210204248%_ (let () (declare (not safe)) - (##car _%e204172204207%_))) - (_%tl204174204214%_ + (##car _%e204209204244%_))) + (_%tl204211204251%_ (let () (declare (not safe)) - (##cdr _%e204172204207%_)))) + (##cdr _%e204209204244%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204174204214%_)) - ((lambda (_%L204217%_ - _%L204219%_) + _%tl204211204251%_)) + ((lambda (_%L204254%_ + _%L204256%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1875,59 +1875,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204219%_ '())) + (cons _%L204256%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204217%_ '())) + (cons _%L204254%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204173204211%_ - _%hd204170204201%_) - (_%g204162204180%_ - _%g204163204184%_)))) - (_%g204162204180%_ _%g204163204184%_)))) - (_%g204162204180%_ _%g204163204184%_)))) - (_%g204162204180%_ _%g204163204184%_))))) - (_%g204161204235%_ _%$stx204158%_)))) + _%hd204210204248%_ + _%hd204207204238%_) + (_%g204199204217%_ + _%g204200204221%_)))) + (_%g204199204217%_ _%g204200204221%_)))) + (_%g204199204217%_ _%g204200204221%_)))) + (_%g204199204217%_ _%g204200204221%_))))) + (_%g204198204272%_ _%$stx204195%_)))) (define |gxc[:0:]#@lambda| - (lambda (_%$stx204239%_) - (let* ((_%__stx208581208582%_ _%$stx204239%_) - (_%g204246204307%_ + (lambda (_%$stx204276%_) + (let* ((_%__stx208618208619%_ _%$stx204276%_) + (_%g204283204344%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208581208582%_))))) - (let ((_%__kont208584208585%_ - (lambda (_%L204545%_ _%L204547%_) + _%__stx208618208619%_))))) + (let ((_%__kont208621208622%_ + (lambda (_%L204582%_ _%L204584%_) (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 _%L204547%_ '())) + (cons _%L204584%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204545%_ '())) + (cons _%L204582%_ '())) '()))))) - (_%__kont208586208587%_ - (lambda (_%L204484%_ _%L204486%_ _%L204487%_) + (_%__kont208623208624%_ + (lambda (_%L204521%_ _%L204523%_ _%L204524%_) (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 _%L204487%_ '())) + (cons _%L204524%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204486%_ '())) + (cons _%L204523%_ '())) (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 _%L204484%_ '())) + (cons _%L204521%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont208588208589%_ - (lambda (_%L204408%_ _%L204410%_) - (cons _%L204410%_ (cons _%L204408%_ (cons '#f '()))))) - (_%__kont208590208591%_ - (lambda (_%L204358%_ _%L204360%_ _%L204361%_) - (cons _%L204361%_ - (cons _%L204360%_ + (_%__kont208625208626%_ + (lambda (_%L204445%_ _%L204447%_) + (cons _%L204447%_ (cons _%L204445%_ (cons '#f '()))))) + (_%__kont208627208628%_ + (lambda (_%L204395%_ _%L204397%_ _%L204398%_) + (cons _%L204398%_ + (cons _%L204397%_ (cons '#f (cons 'signature: - (cons _%L204358%_ '())))))))) + (cons _%L204395%_ '())))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208581208582%_)) - (let ((_%e204250204515%_ + (gx#stx-pair? _%__stx208618208619%_)) + (let ((_%e204287204552%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208581208582%_)))) - (let ((_%tl204252204522%_ + (gx#syntax-e _%__stx208618208619%_)))) + (let ((_%tl204289204559%_ (let () (declare (not safe)) - (##cdr _%e204250204515%_))) - (_%hd204251204519%_ + (##cdr _%e204287204552%_))) + (_%hd204288204556%_ (let () (declare (not safe)) - (##car _%e204250204515%_)))) + (##car _%e204287204552%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204252204522%_)) - (let ((_%e204253204525%_ + (gx#stx-pair? _%tl204289204559%_)) + (let ((_%e204290204562%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204252204522%_)))) - (let ((_%tl204255204532%_ + (gx#syntax-e _%tl204289204559%_)))) + (let ((_%tl204292204569%_ (let () (declare (not safe)) - (##cdr _%e204253204525%_))) - (_%hd204254204529%_ + (##cdr _%e204290204562%_))) + (_%hd204291204566%_ (let () (declare (not safe)) - (##car _%e204253204525%_)))) + (##car _%e204290204562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204255204532%_)) - (let ((_%e204256204535%_ + (gx#stx-pair? _%tl204292204569%_)) + (let ((_%e204293204572%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204255204532%_)))) - (let ((_%tl204258204542%_ + (gx#syntax-e _%tl204292204569%_)))) + (let ((_%tl204295204579%_ (let () (declare (not safe)) - (##cdr _%e204256204535%_))) - (_%hd204257204539%_ + (##cdr _%e204293204572%_))) + (_%hd204294204576%_ (let () (declare (not safe)) - (##car _%e204256204535%_)))) + (##car _%e204293204572%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204258204542%_)) - (_%__kont208584208585%_ - _%hd204257204539%_ - _%hd204254204529%_) + (gx#stx-null? _%tl204295204579%_)) + (_%__kont208621208622%_ + _%hd204294204576%_ + _%hd204291204566%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204258204542%_)) - (let ((_%e204271204460%_ + _%tl204295204579%_)) + (let ((_%e204308204497%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204258204542%_)))) - (let ((_%tl204273204467%_ + _%tl204295204579%_)))) + (let ((_%tl204310204504%_ (let () (declare (not safe)) - (##cdr _%e204271204460%_))) - (_%hd204272204464%_ + (##cdr _%e204308204497%_))) + (_%hd204309204501%_ (let () (declare (not safe)) - (##car _%e204271204460%_)))) + (##car _%e204308204497%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204272204464%_)) - (let ((_%e204274204470%_ + _%hd204309204501%_)) + (let ((_%e204311204507%_ (let () (declare (not safe)) (gx#stx-e - _%hd204272204464%_)))) - (if (equal? _%e204274204470%_ + _%hd204309204501%_)))) + (if (equal? _%e204311204507%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'signature:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204273204467%_)) - (let ((_%e204275204474%_ + (gx#stx-pair? _%tl204310204504%_)) + (let ((_%e204312204511%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204273204467%_)))) - (let ((_%tl204277204481%_ + (gx#syntax-e _%tl204310204504%_)))) + (let ((_%tl204314204518%_ (let () (declare (not safe)) - (##cdr _%e204275204474%_))) - (_%hd204276204478%_ + (##cdr _%e204312204511%_))) + (_%hd204313204515%_ (let () (declare (not safe)) - (##car _%e204275204474%_)))) + (##car _%e204312204511%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204277204481%_)) - (_%__kont208586208587%_ - _%hd204276204478%_ - _%hd204257204539%_ - _%hd204254204529%_) + (gx#stx-null? _%tl204314204518%_)) + (_%__kont208623208624%_ + _%hd204313204515%_ + _%hd204294204576%_ + _%hd204291204566%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204257204539%_)) - (let ((_%e204298204344%_ + (gx#stx-datum? _%hd204294204576%_)) + (let ((_%e204335204381%_ (let () (declare (not safe)) - (gx#stx-e _%hd204257204539%_)))) + (gx#stx-e _%hd204294204576%_)))) (declare (not safe)) - (_%g204246204307%_)) + (_%g204283204344%_)) (let () (declare (not safe)) - (_%g204246204307%_)))))) + (_%g204283204344%_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204257204539%_)) - (let ((_%e204298204344%_ + (gx#stx-datum? _%hd204294204576%_)) + (let ((_%e204335204381%_ (let () (declare (not safe)) - (gx#stx-e _%hd204257204539%_)))) - (if (equal? _%e204298204344%_ 'signature:) + (gx#stx-e _%hd204294204576%_)))) + (if (equal? _%e204335204381%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204273204467%_)) - (_%__kont208590208591%_ - _%hd204272204464%_ - _%hd204254204529%_ - _%hd204251204519%_) + (gx#stx-null? _%tl204310204504%_)) + (_%__kont208627208628%_ + _%hd204309204501%_ + _%hd204291204566%_ + _%hd204288204556%_) (let () (declare (not safe)) - (_%g204246204307%_))) + (_%g204283204344%_))) (let () (declare (not safe)) - (_%g204246204307%_)))) - (let () (declare (not safe)) (_%g204246204307%_)))) + (_%g204283204344%_)))) + (let () (declare (not safe)) (_%g204283204344%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204257204539%_)) - (let ((_%e204298204344%_ + (gx#stx-datum? _%hd204294204576%_)) + (let ((_%e204335204381%_ (let () (declare (not safe)) - (gx#stx-e _%hd204257204539%_)))) - (if (equal? _%e204298204344%_ 'signature:) + (gx#stx-e _%hd204294204576%_)))) + (if (equal? _%e204335204381%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204273204467%_)) - (_%__kont208590208591%_ - _%hd204272204464%_ - _%hd204254204529%_ - _%hd204251204519%_) + (gx#stx-null? _%tl204310204504%_)) + (_%__kont208627208628%_ + _%hd204309204501%_ + _%hd204291204566%_ + _%hd204288204556%_) (let () (declare (not safe)) - (_%g204246204307%_))) - (let () (declare (not safe)) (_%g204246204307%_)))) - (let () (declare (not safe)) (_%g204246204307%_))))) + (_%g204283204344%_))) + (let () (declare (not safe)) (_%g204283204344%_)))) + (let () (declare (not safe)) (_%g204283204344%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204257204539%_)) - (let ((_%e204298204344%_ + _%hd204294204576%_)) + (let ((_%e204335204381%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd204257204539%_)))) - (if (equal? _%e204298204344%_ 'signature:) + (gx#stx-e _%hd204294204576%_)))) + (if (equal? _%e204335204381%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204273204467%_)) - (_%__kont208590208591%_ - _%hd204272204464%_ - _%hd204254204529%_ - _%hd204251204519%_) - (let () (declare (not safe)) (_%g204246204307%_))) - (let () (declare (not safe)) (_%g204246204307%_)))) - (let () (declare (not safe)) (_%g204246204307%_)))))) + (gx#stx-null? _%tl204310204504%_)) + (_%__kont208627208628%_ + _%hd204309204501%_ + _%hd204291204566%_ + _%hd204288204556%_) + (let () (declare (not safe)) (_%g204283204344%_))) + (let () (declare (not safe)) (_%g204283204344%_)))) + (let () (declare (not safe)) (_%g204283204344%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204257204539%_)) - (let ((_%e204298204344%_ + _%hd204294204576%_)) + (let ((_%e204335204381%_ (let () (declare (not safe)) (gx#stx-e - _%hd204257204539%_)))) + _%hd204294204576%_)))) (declare (not safe)) - (_%g204246204307%_)) + (_%g204283204344%_)) (let () (declare (not safe)) - (_%g204246204307%_))))))) + (_%g204283204344%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204255204532%_)) - (_%__kont208588208589%_ - _%hd204254204529%_ - _%hd204251204519%_) + (gx#stx-null? _%tl204292204569%_)) + (_%__kont208625208626%_ + _%hd204291204566%_ + _%hd204288204556%_) (let () (declare (not safe)) - (_%g204246204307%_)))))) - (let () (declare (not safe)) (_%g204246204307%_))))) - (let () (declare (not safe)) (_%g204246204307%_))))))) + (_%g204283204344%_)))))) + (let () (declare (not safe)) (_%g204283204344%_))))) + (let () (declare (not safe)) (_%g204283204344%_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_%$stx204566%_) - (let* ((_%g204570204599%_ - (lambda (_%g204571204595%_) + (lambda (_%$stx204603%_) + (let* ((_%g204607204636%_ + (lambda (_%g204608204632%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204571204595%_)))) - (_%g204569204708%_ - (lambda (_%g204571204603%_) + _%g204608204632%_)))) + (_%g204606204745%_ + (lambda (_%g204608204640%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204571204603%_)) - (let ((_%e204573204606%_ + (gx#stx-pair? _%g204608204640%_)) + (let ((_%e204610204643%_ (let () (declare (not safe)) - (gx#syntax-e _%g204571204603%_)))) - (let ((_%hd204574204610%_ + (gx#syntax-e _%g204608204640%_)))) + (let ((_%hd204611204647%_ (let () (declare (not safe)) - (##car _%e204573204606%_))) - (_%tl204575204613%_ + (##car _%e204610204643%_))) + (_%tl204612204650%_ (let () (declare (not safe)) - (##cdr _%e204573204606%_)))) + (##cdr _%e204610204643%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204575204613%_)) - (let ((_g209211_ + (gx#stx-pair/null? _%tl204612204650%_)) + (let ((_g209248_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204575204613%_ + _%tl204612204650%_ '0)))) (begin - (let ((_g209212_ + (let ((_g209249_ (let () (declare (not safe)) - (if (##values? _g209211_) - (##vector-length _g209211_) + (if (##values? _g209248_) + (##vector-length _g209248_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209212_ 2))) + (##fx= _g209249_ 2))) (error "Context expects 2 values" - _g209212_))) - (let ((_%target204576204616%_ + _g209249_))) + (let ((_%target204613204653%_ (let () (declare (not safe)) - (##vector-ref _g209211_ 0))) - (_%tl204578204619%_ + (##vector-ref _g209248_ 0))) + (_%tl204615204656%_ (let () (declare (not safe)) - (##vector-ref _g209211_ 1)))) + (##vector-ref _g209248_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204578204619%_)) - (letrec ((_%loop204579204622%_ - (lambda (_%hd204577204626%_ - _%clause204583204629%_) + (gx#stx-null? _%tl204615204656%_)) + (letrec ((_%loop204616204659%_ + (lambda (_%hd204614204663%_ + _%clause204620204666%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204577204626%_)) - (let ((_%e204580204632%_ + _%hd204614204663%_)) + (let ((_%e204617204669%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd204577204626%_)))) - (let ((_%lp-hd204581204636%_ + (gx#syntax-e _%hd204614204663%_)))) + (let ((_%lp-hd204618204673%_ (let () (declare (not safe)) - (##car _%e204580204632%_))) - (_%lp-tl204582204639%_ + (##car _%e204617204669%_))) + (_%lp-tl204619204676%_ (let () (declare (not safe)) - (##cdr _%e204580204632%_)))) + (##cdr _%e204617204669%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%lp-hd204581204636%_)) - (let ((_g209213_ + (gx#stx-pair/null? _%lp-hd204618204673%_)) + (let ((_g209250_ (let () (declare (not safe)) (gx#syntax-split-splice - _%lp-hd204581204636%_ + _%lp-hd204618204673%_ '0)))) (begin - (let ((_g209214_ + (let ((_g209251_ (let () (declare (not safe)) - (if (##values? _g209213_) - (##vector-length _g209213_) + (if (##values? _g209250_) + (##vector-length _g209250_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209214_ 2))) + (##fx= _g209251_ 2))) (error "Context expects 2 values" - _g209214_))) - (let ((_%target204585204642%_ + _g209251_))) + (let ((_%target204622204679%_ (let () (declare (not safe)) - (##vector-ref _g209213_ 0))) - (_%tl204587204645%_ + (##vector-ref _g209250_ 0))) + (_%tl204624204682%_ (let () (declare (not safe)) - (##vector-ref _g209213_ 1)))) + (##vector-ref _g209250_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204587204645%_)) - (letrec ((_%loop204588204648%_ - (lambda (_%hd204586204652%_ - _%clause204592204655%_) + (gx#stx-null? _%tl204624204682%_)) + (letrec ((_%loop204625204685%_ + (lambda (_%hd204623204689%_ + _%clause204629204692%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204586204652%_)) - (let ((_%e204589204658%_ + _%hd204623204689%_)) + (let ((_%e204626204695%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204586204652%_)))) - (let ((_%lp-hd204590204662%_ + _%hd204623204689%_)))) + (let ((_%lp-hd204627204699%_ (let () (declare (not safe)) - (##car _%e204589204658%_))) - (_%lp-tl204591204665%_ + (##car _%e204626204695%_))) + (_%lp-tl204628204702%_ (let () (declare (not safe)) - (##cdr _%e204589204658%_)))) - (_%loop204588204648%_ - _%lp-tl204591204665%_ - (cons _%lp-hd204590204662%_ - _%clause204592204655%_)))) - (let ((_%clause204593204668%_ - (reverse _%clause204592204655%_))) - (_%loop204579204622%_ - _%lp-tl204582204639%_ - (cons _%clause204593204668%_ - _%clause204583204629%_))))))) - (_%loop204588204648%_ - _%target204585204642%_ + (##cdr _%e204626204695%_)))) + (_%loop204625204685%_ + _%lp-tl204628204702%_ + (cons _%lp-hd204627204699%_ + _%clause204629204692%_)))) + (let ((_%clause204630204705%_ + (reverse _%clause204629204692%_))) + (_%loop204616204659%_ + _%lp-tl204619204676%_ + (cons _%clause204630204705%_ + _%clause204620204666%_))))))) + (_%loop204625204685%_ + _%target204622204679%_ '())) - (_%g204570204599%_ _%g204571204603%_))))) - (_%g204570204599%_ _%g204571204603%_)))) - (let ((_%clause204584204672%_ - (reverse _%clause204583204629%_))) - ((lambda (_%L204676%_) + (_%g204607204636%_ _%g204608204640%_))))) + (_%g204607204636%_ _%g204608204640%_)))) + (let ((_%clause204621204709%_ + (reverse _%clause204620204666%_))) + ((lambda (_%L204713%_) (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 ((__tmp209215 - (lambda (_%g204691204696%_ - _%g204692204699%_) + (let ((__tmp209252 + (lambda (_%g204728204733%_ + _%g204729204736%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda)) - (let ((__tmp209216 + (let ((__tmp209253 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g204693204702%_ _%g204694204705%_) - (cons _%g204693204702%_ _%g204694204705%_)))) + (lambda (_%g204730204739%_ _%g204731204742%_) + (cons _%g204730204739%_ _%g204731204742%_)))) (declare (not safe)) - (__foldr1 __tmp209216 '() _%g204691204696%_))) - _%g204692204699%_)))) + (__foldr1 __tmp209253 '() _%g204728204733%_))) + _%g204729204736%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp209215 + __tmp209252 '() - _%L204676%_))) + _%L204713%_))) '()))) - _%clause204584204672%_)))))) + _%clause204621204709%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop204579204622%_ - _%target204576204616%_ + (_%loop204616204659%_ + _%target204613204653%_ '())) - (_%g204570204599%_ - _%g204571204603%_))))) - (_%g204570204599%_ _%g204571204603%_)))) - (_%g204570204599%_ _%g204571204603%_))))) - (_%g204569204708%_ _%$stx204566%_)))) + (_%g204607204636%_ + _%g204608204640%_))))) + (_%g204607204636%_ _%g204608204640%_)))) + (_%g204607204636%_ _%g204608204640%_))))) + (_%g204606204745%_ _%$stx204603%_)))) (define |gxc[:0:]#@kw-lambda| - (lambda (_%$stx204714%_) - (let* ((_%g204718204736%_ - (lambda (_%g204719204732%_) + (lambda (_%$stx204751%_) + (let* ((_%g204755204773%_ + (lambda (_%g204756204769%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204719204732%_)))) - (_%g204717204791%_ - (lambda (_%g204719204740%_) + _%g204756204769%_)))) + (_%g204754204828%_ + (lambda (_%g204756204777%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204719204740%_)) - (let ((_%e204722204743%_ + (gx#stx-pair? _%g204756204777%_)) + (let ((_%e204759204780%_ (let () (declare (not safe)) - (gx#syntax-e _%g204719204740%_)))) - (let ((_%hd204723204747%_ + (gx#syntax-e _%g204756204777%_)))) + (let ((_%hd204760204784%_ (let () (declare (not safe)) - (##car _%e204722204743%_))) - (_%tl204724204750%_ + (##car _%e204759204780%_))) + (_%tl204761204787%_ (let () (declare (not safe)) - (##cdr _%e204722204743%_)))) + (##cdr _%e204759204780%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204724204750%_)) - (let ((_%e204725204753%_ + (gx#stx-pair? _%tl204761204787%_)) + (let ((_%e204762204790%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204724204750%_)))) - (let ((_%hd204726204757%_ + (gx#syntax-e _%tl204761204787%_)))) + (let ((_%hd204763204794%_ (let () (declare (not safe)) - (##car _%e204725204753%_))) - (_%tl204727204760%_ + (##car _%e204762204790%_))) + (_%tl204764204797%_ (let () (declare (not safe)) - (##cdr _%e204725204753%_)))) + (##cdr _%e204762204790%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204727204760%_)) - (let ((_%e204728204763%_ + (gx#stx-pair? _%tl204764204797%_)) + (let ((_%e204765204800%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204727204760%_)))) - (let ((_%hd204729204767%_ + _%tl204764204797%_)))) + (let ((_%hd204766204804%_ (let () (declare (not safe)) - (##car _%e204728204763%_))) - (_%tl204730204770%_ + (##car _%e204765204800%_))) + (_%tl204767204807%_ (let () (declare (not safe)) - (##cdr _%e204728204763%_)))) + (##cdr _%e204765204800%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204730204770%_)) - ((lambda (_%L204773%_ - _%L204775%_) + _%tl204767204807%_)) + ((lambda (_%L204810%_ + _%L204812%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2423,85 +2423,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204775%_ '())) + (cons _%L204812%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204773%_ '())) + (cons _%L204810%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204729204767%_ - _%hd204726204757%_) - (_%g204718204736%_ - _%g204719204740%_)))) - (_%g204718204736%_ _%g204719204740%_)))) - (_%g204718204736%_ _%g204719204740%_)))) - (_%g204718204736%_ _%g204719204740%_))))) - (_%g204717204791%_ _%$stx204714%_)))) + _%hd204766204804%_ + _%hd204763204794%_) + (_%g204755204773%_ + _%g204756204777%_)))) + (_%g204755204773%_ _%g204756204777%_)))) + (_%g204755204773%_ _%g204756204777%_)))) + (_%g204755204773%_ _%g204756204777%_))))) + (_%g204754204828%_ _%$stx204751%_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_%$stx204795%_) - (let* ((_%g204799204817%_ - (lambda (_%g204800204813%_) + (lambda (_%$stx204832%_) + (let* ((_%g204836204854%_ + (lambda (_%g204837204850%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204800204813%_)))) - (_%g204798204872%_ - (lambda (_%g204800204821%_) + _%g204837204850%_)))) + (_%g204835204909%_ + (lambda (_%g204837204858%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204800204821%_)) - (let ((_%e204803204824%_ + (gx#stx-pair? _%g204837204858%_)) + (let ((_%e204840204861%_ (let () (declare (not safe)) - (gx#syntax-e _%g204800204821%_)))) - (let ((_%hd204804204828%_ + (gx#syntax-e _%g204837204858%_)))) + (let ((_%hd204841204865%_ (let () (declare (not safe)) - (##car _%e204803204824%_))) - (_%tl204805204831%_ + (##car _%e204840204861%_))) + (_%tl204842204868%_ (let () (declare (not safe)) - (##cdr _%e204803204824%_)))) + (##cdr _%e204840204861%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204805204831%_)) - (let ((_%e204806204834%_ + (gx#stx-pair? _%tl204842204868%_)) + (let ((_%e204843204871%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204805204831%_)))) - (let ((_%hd204807204838%_ + (gx#syntax-e _%tl204842204868%_)))) + (let ((_%hd204844204875%_ (let () (declare (not safe)) - (##car _%e204806204834%_))) - (_%tl204808204841%_ + (##car _%e204843204871%_))) + (_%tl204845204878%_ (let () (declare (not safe)) - (##cdr _%e204806204834%_)))) + (##cdr _%e204843204871%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204808204841%_)) - (let ((_%e204809204844%_ + (gx#stx-pair? _%tl204845204878%_)) + (let ((_%e204846204881%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204808204841%_)))) - (let ((_%hd204810204848%_ + _%tl204845204878%_)))) + (let ((_%hd204847204885%_ (let () (declare (not safe)) - (##car _%e204809204844%_))) - (_%tl204811204851%_ + (##car _%e204846204881%_))) + (_%tl204848204888%_ (let () (declare (not safe)) - (##cdr _%e204809204844%_)))) + (##cdr _%e204846204881%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204811204851%_)) - ((lambda (_%L204854%_ - _%L204856%_) + _%tl204848204888%_)) + ((lambda (_%L204891%_ + _%L204893%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2511,147 +2511,147 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204856%_ '())) + (cons _%L204893%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204854%_ '())) + (cons _%L204891%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204810204848%_ - _%hd204807204838%_) - (_%g204799204817%_ - _%g204800204821%_)))) - (_%g204799204817%_ _%g204800204821%_)))) - (_%g204799204817%_ _%g204800204821%_)))) - (_%g204799204817%_ _%g204800204821%_))))) - (_%g204798204872%_ _%$stx204795%_)))) + _%hd204847204885%_ + _%hd204844204875%_) + (_%g204836204854%_ + _%g204837204858%_)))) + (_%g204836204854%_ _%g204837204858%_)))) + (_%g204836204854%_ _%g204837204858%_)))) + (_%g204836204854%_ _%g204837204858%_))))) + (_%g204835204909%_ _%$stx204832%_)))) (define |gxc[:0:]#declare-inline-rules!| - (lambda (_%$stx204876%_) - (let* ((_%g204880204909%_ - (lambda (_%g204881204905%_) + (lambda (_%$stx204913%_) + (let* ((_%g204917204946%_ + (lambda (_%g204918204942%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204881204905%_)))) - (_%g204879205009%_ - (lambda (_%g204881204913%_) + _%g204918204942%_)))) + (_%g204916205046%_ + (lambda (_%g204918204950%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204881204913%_)) - (let ((_%e204884204916%_ + (gx#stx-pair? _%g204918204950%_)) + (let ((_%e204921204953%_ (let () (declare (not safe)) - (gx#syntax-e _%g204881204913%_)))) - (let ((_%hd204885204920%_ + (gx#syntax-e _%g204918204950%_)))) + (let ((_%hd204922204957%_ (let () (declare (not safe)) - (##car _%e204884204916%_))) - (_%tl204886204923%_ + (##car _%e204921204953%_))) + (_%tl204923204960%_ (let () (declare (not safe)) - (##cdr _%e204884204916%_)))) + (##cdr _%e204921204953%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204886204923%_)) - (let ((_g209217_ + (gx#stx-pair/null? _%tl204923204960%_)) + (let ((_g209254_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204886204923%_ + _%tl204923204960%_ '0)))) (begin - (let ((_g209218_ + (let ((_g209255_ (let () (declare (not safe)) - (if (##values? _g209217_) - (##vector-length _g209217_) + (if (##values? _g209254_) + (##vector-length _g209254_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209218_ 2))) + (##fx= _g209255_ 2))) (error "Context expects 2 values" - _g209218_))) - (let ((_%target204887204926%_ + _g209255_))) + (let ((_%target204924204963%_ (let () (declare (not safe)) - (##vector-ref _g209217_ 0))) - (_%tl204889204929%_ + (##vector-ref _g209254_ 0))) + (_%tl204926204966%_ (let () (declare (not safe)) - (##vector-ref _g209217_ 1)))) + (##vector-ref _g209254_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204889204929%_)) - (letrec ((_%loop204890204932%_ - (lambda (_%hd204888204936%_ - _%rule204894204939%_ - _%proc204895204941%_) + (gx#stx-null? _%tl204926204966%_)) + (letrec ((_%loop204927204969%_ + (lambda (_%hd204925204973%_ + _%rule204931204976%_ + _%proc204932204978%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204888204936%_)) - (let ((_%e204891204944%_ + _%hd204925204973%_)) + (let ((_%e204928204981%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd204888204936%_)))) - (let ((_%lp-hd204892204948%_ + (gx#syntax-e _%hd204925204973%_)))) + (let ((_%lp-hd204929204985%_ (let () (declare (not safe)) - (##car _%e204891204944%_))) - (_%lp-tl204893204951%_ + (##car _%e204928204981%_))) + (_%lp-tl204930204988%_ (let () (declare (not safe)) - (##cdr _%e204891204944%_)))) + (##cdr _%e204928204981%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd204892204948%_)) - (let ((_%e204898204954%_ + (gx#stx-pair? _%lp-hd204929204985%_)) + (let ((_%e204935204991%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd204892204948%_)))) - (let ((_%hd204899204958%_ + (gx#syntax-e _%lp-hd204929204985%_)))) + (let ((_%hd204936204995%_ (let () (declare (not safe)) - (##car _%e204898204954%_))) - (_%tl204900204961%_ + (##car _%e204935204991%_))) + (_%tl204937204998%_ (let () (declare (not safe)) - (##cdr _%e204898204954%_)))) + (##cdr _%e204935204991%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204900204961%_)) - (let ((_%e204901204964%_ + (gx#stx-pair? _%tl204937204998%_)) + (let ((_%e204938205001%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204900204961%_)))) - (let ((_%hd204902204968%_ + (gx#syntax-e _%tl204937204998%_)))) + (let ((_%hd204939205005%_ (let () (declare (not safe)) - (##car _%e204901204964%_))) - (_%tl204903204971%_ + (##car _%e204938205001%_))) + (_%tl204940205008%_ (let () (declare (not safe)) - (##cdr _%e204901204964%_)))) + (##cdr _%e204938205001%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204903204971%_)) - (_%loop204890204932%_ - _%lp-tl204893204951%_ - (cons _%hd204902204968%_ - _%rule204894204939%_) - (cons _%hd204899204958%_ - _%proc204895204941%_)) - (_%g204880204909%_ - _%g204881204913%_)))) - (_%g204880204909%_ _%g204881204913%_)))) - (_%g204880204909%_ _%g204881204913%_)))) - (let ((_%rule204896204974%_ (reverse _%rule204894204939%_)) - (_%proc204897204977%_ (reverse _%proc204895204941%_))) - ((lambda (_%L204980%_ _%L204982%_) + (gx#stx-null? _%tl204940205008%_)) + (_%loop204927204969%_ + _%lp-tl204930204988%_ + (cons _%hd204939205005%_ + _%rule204931204976%_) + (cons _%hd204936204995%_ + _%proc204932204978%_)) + (_%g204917204946%_ + _%g204918204950%_)))) + (_%g204917204946%_ _%g204918204950%_)))) + (_%g204917204946%_ _%g204918204950%_)))) + (let ((_%rule204933205011%_ (reverse _%rule204931204976%_)) + (_%proc204934205014%_ (reverse _%proc204932204978%_))) + ((lambda (_%L205017%_ _%L205019%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2659,103 +2659,103 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L204980%_ - _%L204982%_)) - (let ((__tmp209219 - (lambda (_%g204997205001%_ - _%g204998205004%_ - _%g204999205006%_) + _%L205017%_ + _%L205019%_)) + (let ((__tmp209256 + (lambda (_%g205034205038%_ + _%g205035205041%_ + _%g205036205043%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-inline-rule!)) - (cons _%g204998205004%_ - (cons _%g204997205001%_ + (cons _%g205035205041%_ + (cons _%g205034205038%_ '()))) - _%g204999205006%_)))) + _%g205036205043%_)))) (declare (not safe)) (__foldr2 - __tmp209219 + __tmp209256 '() - _%L204980%_ - _%L204982%_))))) - _%rule204896204974%_ - _%proc204897204977%_)))))) + _%L205017%_ + _%L205019%_))))) + _%rule204933205011%_ + _%proc204934205014%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop204890204932%_ - _%target204887204926%_ + (_%loop204927204969%_ + _%target204924204963%_ '() '())) - (_%g204880204909%_ - _%g204881204913%_))))) - (_%g204880204909%_ _%g204881204913%_)))) - (_%g204880204909%_ _%g204881204913%_))))) - (_%g204879205009%_ _%$stx204876%_)))) + (_%g204917204946%_ + _%g204918204950%_))))) + (_%g204917204946%_ _%g204918204950%_)))) + (_%g204917204946%_ _%g204918204950%_))))) + (_%g204916205046%_ _%$stx204913%_)))) (define |gxc[:0:]#declare-inline-rule!| - (lambda (_%$stx205014%_) - (let* ((_%g205018205036%_ - (lambda (_%g205019205032%_) + (lambda (_%$stx205051%_) + (let* ((_%g205055205073%_ + (lambda (_%g205056205069%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205019205032%_)))) - (_%g205017205091%_ - (lambda (_%g205019205040%_) + _%g205056205069%_)))) + (_%g205054205128%_ + (lambda (_%g205056205077%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205019205040%_)) - (let ((_%e205022205043%_ + (gx#stx-pair? _%g205056205077%_)) + (let ((_%e205059205080%_ (let () (declare (not safe)) - (gx#syntax-e _%g205019205040%_)))) - (let ((_%hd205023205047%_ + (gx#syntax-e _%g205056205077%_)))) + (let ((_%hd205060205084%_ (let () (declare (not safe)) - (##car _%e205022205043%_))) - (_%tl205024205050%_ + (##car _%e205059205080%_))) + (_%tl205061205087%_ (let () (declare (not safe)) - (##cdr _%e205022205043%_)))) + (##cdr _%e205059205080%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205024205050%_)) - (let ((_%e205025205053%_ + (gx#stx-pair? _%tl205061205087%_)) + (let ((_%e205062205090%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205024205050%_)))) - (let ((_%hd205026205057%_ + (gx#syntax-e _%tl205061205087%_)))) + (let ((_%hd205063205094%_ (let () (declare (not safe)) - (##car _%e205025205053%_))) - (_%tl205027205060%_ + (##car _%e205062205090%_))) + (_%tl205064205097%_ (let () (declare (not safe)) - (##cdr _%e205025205053%_)))) + (##cdr _%e205062205090%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205027205060%_)) - (let ((_%e205028205063%_ + (gx#stx-pair? _%tl205064205097%_)) + (let ((_%e205065205100%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205027205060%_)))) - (let ((_%hd205029205067%_ + _%tl205064205097%_)))) + (let ((_%hd205066205104%_ (let () (declare (not safe)) - (##car _%e205028205063%_))) - (_%tl205030205070%_ + (##car _%e205065205100%_))) + (_%tl205067205107%_ (let () (declare (not safe)) - (##cdr _%e205028205063%_)))) + (##cdr _%e205065205100%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205030205070%_)) - ((lambda (_%L205073%_ - _%L205075%_) + _%tl205067205107%_)) + ((lambda (_%L205110%_ + _%L205112%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2775,7 +2775,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205075%_ '())) + (cons _%L205112%_ '())) '())) '())) (cons (cons (let () @@ -2805,7 +2805,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'type)) '())) - (cons _%L205073%_ '()))) + (cons _%L205110%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare (not safe)) @@ -2817,39 +2817,39 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205075%_ '())) + (cons _%L205112%_ '())) (cons '"; ignoring inline rule" '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd205029205067%_ - _%hd205026205057%_) - (_%g205018205036%_ - _%g205019205040%_)))) - (_%g205018205036%_ _%g205019205040%_)))) - (_%g205018205036%_ _%g205019205040%_)))) - (_%g205018205036%_ _%g205019205040%_))))) - (_%g205017205091%_ _%$stx205014%_)))) + _%hd205066205104%_ + _%hd205063205094%_) + (_%g205055205073%_ + _%g205056205077%_)))) + (_%g205055205073%_ _%g205056205077%_)))) + (_%g205055205073%_ _%g205056205077%_)))) + (_%g205055205073%_ _%g205056205077%_))))) + (_%g205054205128%_ _%$stx205051%_)))) (define |gxc[:0:]#declare-primitive-predicates| - (lambda (_%$stx205095%_) - (let* ((_%__stx208699208700%_ _%$stx205095%_) - (_%g205100205125%_ + (lambda (_%$stx205132%_) + (let* ((_%__stx208736208737%_ _%$stx205132%_) + (_%g205137205162%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208699208700%_))))) - (let ((_%__kont208702208703%_ + _%__stx208736208737%_))))) + (let ((_%__kont208739208740%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont208704208705%_ - (lambda (_%L205172%_ _%L205174%_ _%L205175%_) + (_%__kont208741208742%_ + (lambda (_%L205209%_ _%L205211%_ _%L205212%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2858,121 +2858,121 @@ (gx#datum->syntax__0 '#f 'declare-primitive-predicate)) - (cons _%L205175%_ (cons _%L205174%_ '()))) + (cons _%L205212%_ (cons _%L205211%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-predicates)) - _%L205172%_) + _%L205209%_) '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208699208700%_)) - (let ((_%e205102205201%_ + (gx#stx-pair? _%__stx208736208737%_)) + (let ((_%e205139205238%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208699208700%_)))) - (let ((_%tl205104205208%_ + (gx#syntax-e _%__stx208736208737%_)))) + (let ((_%tl205141205245%_ (let () (declare (not safe)) - (##cdr _%e205102205201%_))) - (_%hd205103205205%_ + (##cdr _%e205139205238%_))) + (_%hd205140205242%_ (let () (declare (not safe)) - (##car _%e205102205201%_)))) + (##car _%e205139205238%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205104205208%_)) - (_%__kont208702208703%_) + (gx#stx-null? _%tl205141205245%_)) + (_%__kont208739208740%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205104205208%_)) - (let ((_%e205111205142%_ + (gx#stx-pair? _%tl205141205245%_)) + (let ((_%e205148205179%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205104205208%_)))) - (let ((_%tl205113205149%_ + (gx#syntax-e _%tl205141205245%_)))) + (let ((_%tl205150205186%_ (let () (declare (not safe)) - (##cdr _%e205111205142%_))) - (_%hd205112205146%_ + (##cdr _%e205148205179%_))) + (_%hd205149205183%_ (let () (declare (not safe)) - (##car _%e205111205142%_)))) + (##car _%e205148205179%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205112205146%_)) - (let ((_%e205114205152%_ + (gx#stx-pair? _%hd205149205183%_)) + (let ((_%e205151205189%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205112205146%_)))) - (let ((_%tl205116205159%_ + _%hd205149205183%_)))) + (let ((_%tl205153205196%_ (let () (declare (not safe)) - (##cdr _%e205114205152%_))) - (_%hd205115205156%_ + (##cdr _%e205151205189%_))) + (_%hd205152205193%_ (let () (declare (not safe)) - (##car _%e205114205152%_)))) + (##car _%e205151205189%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205116205159%_)) - (let ((_%e205117205162%_ + _%tl205153205196%_)) + (let ((_%e205154205199%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205116205159%_)))) - (let ((_%tl205119205169%_ + _%tl205153205196%_)))) + (let ((_%tl205156205206%_ (let () (declare (not safe)) - (##cdr _%e205117205162%_))) - (_%hd205118205166%_ + (##cdr _%e205154205199%_))) + (_%hd205155205203%_ (let () (declare (not safe)) - (##car _%e205117205162%_)))) + (##car _%e205154205199%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205119205169%_)) - (_%__kont208704208705%_ - _%tl205113205149%_ - _%hd205118205166%_ - _%hd205115205156%_) + _%tl205156205206%_)) + (_%__kont208741208742%_ + _%tl205150205186%_ + _%hd205155205203%_ + _%hd205152205193%_) (let () (declare (not safe)) - (_%g205100205125%_))))) + (_%g205137205162%_))))) (let () (declare (not safe)) - (_%g205100205125%_))))) + (_%g205137205162%_))))) (let () (declare (not safe)) - (_%g205100205125%_))))) + (_%g205137205162%_))))) (let () (declare (not safe)) - (_%g205100205125%_)))))) - (let () (declare (not safe)) (_%g205100205125%_))))))) + (_%g205137205162%_)))))) + (let () (declare (not safe)) (_%g205137205162%_))))))) (define |gxc[:0:]#declare-primitive-procedures| - (lambda (_%$stx205219%_) - (let* ((_%__stx208743208744%_ _%$stx205219%_) - (_%g205224205255%_ + (lambda (_%$stx205256%_) + (let* ((_%__stx208780208781%_ _%$stx205256%_) + (_%g205261205292%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208743208744%_))))) - (let ((_%__kont208746208747%_ + _%__stx208780208781%_))))) + (let ((_%__kont208783208784%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont208748208749%_ - (lambda (_%L205322%_ _%L205324%_ _%L205325%_) + (_%__kont208785208786%_ + (lambda (_%L205359%_ _%L205361%_ _%L205362%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2981,883 +2981,883 @@ (gx#datum->syntax__0 '#f 'declare-primitive-procedure)) - (cons _%L205325%_ - (let ((__tmp209220 - (lambda (_%g205345205348%_ - _%g205346205351%_) - (cons _%g205345205348%_ - _%g205346205351%_)))) + (cons _%L205362%_ + (let ((__tmp209257 + (lambda (_%g205382205385%_ + _%g205383205388%_) + (cons _%g205382205385%_ + _%g205383205388%_)))) (declare (not safe)) (__foldr1 - __tmp209220 + __tmp209257 '() - _%L205324%_)))) + _%L205361%_)))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-procedures)) - _%L205322%_) + _%L205359%_) '())))))) - (let ((_%__match208786208787%_ - (lambda (_%e205232205262%_ - _%hd205233205266%_ - _%tl205234205269%_ - _%e205235205272%_ - _%hd205236205276%_ - _%tl205237205279%_ - _%e205238205282%_ - _%hd205239205286%_ - _%tl205240205289%_ - _%__splice208750208751%_ - _%target205241205292%_ - _%tl205243205295%_) - (letrec ((_%loop205244205298%_ - (lambda (_%hd205242205302%_ _%sig205248205305%_) + (let ((_%__match208823208824%_ + (lambda (_%e205269205299%_ + _%hd205270205303%_ + _%tl205271205306%_ + _%e205272205309%_ + _%hd205273205313%_ + _%tl205274205316%_ + _%e205275205319%_ + _%hd205276205323%_ + _%tl205277205326%_ + _%__splice208787208788%_ + _%target205278205329%_ + _%tl205280205332%_) + (letrec ((_%loop205281205335%_ + (lambda (_%hd205279205339%_ _%sig205285205342%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205242205302%_)) - (let ((_%e205245205308%_ + (gx#stx-pair? _%hd205279205339%_)) + (let ((_%e205282205345%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205242205302%_)))) - (let ((_%lp-tl205247205315%_ + _%hd205279205339%_)))) + (let ((_%lp-tl205284205352%_ (let () (declare (not safe)) - (##cdr _%e205245205308%_))) - (_%lp-hd205246205312%_ + (##cdr _%e205282205345%_))) + (_%lp-hd205283205349%_ (let () (declare (not safe)) - (##car _%e205245205308%_)))) - (_%loop205244205298%_ - _%lp-tl205247205315%_ - (cons _%lp-hd205246205312%_ - _%sig205248205305%_)))) - (let ((_%sig205249205318%_ - (reverse _%sig205248205305%_))) - (_%__kont208748208749%_ - _%tl205237205279%_ - _%sig205249205318%_ - _%hd205239205286%_)))))) - (_%loop205244205298%_ _%target205241205292%_ '()))))) + (##car _%e205282205345%_)))) + (_%loop205281205335%_ + _%lp-tl205284205352%_ + (cons _%lp-hd205283205349%_ + _%sig205285205342%_)))) + (let ((_%sig205286205355%_ + (reverse _%sig205285205342%_))) + (_%__kont208785208786%_ + _%tl205274205316%_ + _%sig205286205355%_ + _%hd205276205323%_)))))) + (_%loop205281205335%_ _%target205278205329%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208743208744%_)) - (let ((_%e205226205361%_ + (gx#stx-pair? _%__stx208780208781%_)) + (let ((_%e205263205398%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208743208744%_)))) - (let ((_%tl205228205368%_ + (gx#syntax-e _%__stx208780208781%_)))) + (let ((_%tl205265205405%_ (let () (declare (not safe)) - (##cdr _%e205226205361%_))) - (_%hd205227205365%_ + (##cdr _%e205263205398%_))) + (_%hd205264205402%_ (let () (declare (not safe)) - (##car _%e205226205361%_)))) + (##car _%e205263205398%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205228205368%_)) - (_%__kont208746208747%_) + (gx#stx-null? _%tl205265205405%_)) + (_%__kont208783208784%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205228205368%_)) - (let ((_%e205235205272%_ + (gx#stx-pair? _%tl205265205405%_)) + (let ((_%e205272205309%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205228205368%_)))) - (let ((_%tl205237205279%_ + (gx#syntax-e _%tl205265205405%_)))) + (let ((_%tl205274205316%_ (let () (declare (not safe)) - (##cdr _%e205235205272%_))) - (_%hd205236205276%_ + (##cdr _%e205272205309%_))) + (_%hd205273205313%_ (let () (declare (not safe)) - (##car _%e205235205272%_)))) + (##car _%e205272205309%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205236205276%_)) - (let ((_%e205238205282%_ + (gx#stx-pair? _%hd205273205313%_)) + (let ((_%e205275205319%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205236205276%_)))) - (let ((_%tl205240205289%_ + _%hd205273205313%_)))) + (let ((_%tl205277205326%_ (let () (declare (not safe)) - (##cdr _%e205238205282%_))) - (_%hd205239205286%_ + (##cdr _%e205275205319%_))) + (_%hd205276205323%_ (let () (declare (not safe)) - (##car _%e205238205282%_)))) + (##car _%e205275205319%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205240205289%_)) - (let ((_%__splice208750208751%_ + _%tl205277205326%_)) + (let ((_%__splice208787208788%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205240205289%_ + _%tl205277205326%_ '0)))) - (let ((_%tl205243205295%_ + (let ((_%tl205280205332%_ (let () (declare (not safe)) (##vector-ref - _%__splice208750208751%_ + _%__splice208787208788%_ '1))) - (_%target205241205292%_ + (_%target205278205329%_ (let () (declare (not safe)) (##vector-ref - _%__splice208750208751%_ + _%__splice208787208788%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205243205295%_)) - (_%__match208786208787%_ - _%e205226205361%_ - _%hd205227205365%_ - _%tl205228205368%_ - _%e205235205272%_ - _%hd205236205276%_ - _%tl205237205279%_ - _%e205238205282%_ - _%hd205239205286%_ - _%tl205240205289%_ - _%__splice208750208751%_ - _%target205241205292%_ - _%tl205243205295%_) + _%tl205280205332%_)) + (_%__match208823208824%_ + _%e205263205398%_ + _%hd205264205402%_ + _%tl205265205405%_ + _%e205272205309%_ + _%hd205273205313%_ + _%tl205274205316%_ + _%e205275205319%_ + _%hd205276205323%_ + _%tl205277205326%_ + _%__splice208787208788%_ + _%target205278205329%_ + _%tl205280205332%_) (let () (declare (not safe)) - (_%g205224205255%_))))) + (_%g205261205292%_))))) (let () (declare (not safe)) - (_%g205224205255%_))))) + (_%g205261205292%_))))) (let () (declare (not safe)) - (_%g205224205255%_))))) + (_%g205261205292%_))))) (let () (declare (not safe)) - (_%g205224205255%_)))))) - (let () (declare (not safe)) (_%g205224205255%_)))))))) + (_%g205261205292%_)))))) + (let () (declare (not safe)) (_%g205261205292%_)))))))) (define |gxc[:0:]#declare-primitive-procedure| - (lambda (_%$stx205380%_) - (let* ((_%__stx208789208790%_ _%$stx205380%_) - (_%g205385205432%_ + (lambda (_%$stx205417%_) + (let* ((_%__stx208826208827%_ _%$stx205417%_) + (_%g205422205469%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208789208790%_))))) - (let ((_%__kont208792208793%_ - (lambda (_%L205594%_ _%L205596%_) + _%__stx208826208827%_))))) + (let ((_%__kont208829208830%_ + (lambda (_%L205631%_ _%L205633%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-case-lambda)) - (cons _%L205596%_ - (let ((__tmp209221 - (lambda (_%g205616205619%_ - _%g205617205622%_) - (cons _%g205616205619%_ - _%g205617205622%_)))) + (cons _%L205633%_ + (let ((__tmp209258 + (lambda (_%g205653205656%_ + _%g205654205659%_) + (cons _%g205653205656%_ + _%g205654205659%_)))) (declare (not safe)) - (__foldr1 __tmp209221 '() _%L205594%_)))))) - (_%__kont208796208797%_ - (lambda (_%L205489%_ _%L205491%_) + (__foldr1 __tmp209258 '() _%L205631%_)))))) + (_%__kont208833208834%_ + (lambda (_%L205526%_ _%L205528%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-lambda)) - (cons _%L205491%_ - (let ((__tmp209222 - (lambda (_%g205508205511%_ - _%g205509205514%_) - (cons _%g205508205511%_ - _%g205509205514%_)))) + (cons _%L205528%_ + (let ((__tmp209259 + (lambda (_%g205545205548%_ + _%g205546205551%_) + (cons _%g205545205548%_ + _%g205546205551%_)))) (declare (not safe)) - (__foldr1 __tmp209222 '() _%L205489%_))))))) - (let* ((_%__match208856208857%_ - (lambda (_%e205412205439%_ - _%hd205413205443%_ - _%tl205414205446%_ - _%e205415205449%_ - _%hd205416205453%_ - _%tl205417205456%_ - _%__splice208798208799%_ - _%target205418205459%_ - _%tl205420205462%_) - (letrec ((_%loop205421205465%_ - (lambda (_%hd205419205469%_ - _%sig205425205472%_) + (__foldr1 __tmp209259 '() _%L205526%_))))))) + (let* ((_%__match208893208894%_ + (lambda (_%e205449205476%_ + _%hd205450205480%_ + _%tl205451205483%_ + _%e205452205486%_ + _%hd205453205490%_ + _%tl205454205493%_ + _%__splice208835208836%_ + _%target205455205496%_ + _%tl205457205499%_) + (letrec ((_%loop205458205502%_ + (lambda (_%hd205456205506%_ + _%sig205462205509%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205419205469%_)) - (let ((_%e205422205475%_ + (gx#stx-pair? _%hd205456205506%_)) + (let ((_%e205459205512%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205419205469%_)))) - (let ((_%lp-tl205424205482%_ + _%hd205456205506%_)))) + (let ((_%lp-tl205461205519%_ (let () (declare (not safe)) - (##cdr _%e205422205475%_))) - (_%lp-hd205423205479%_ + (##cdr _%e205459205512%_))) + (_%lp-hd205460205516%_ (let () (declare (not safe)) - (##car _%e205422205475%_)))) - (_%loop205421205465%_ - _%lp-tl205424205482%_ - (cons _%lp-hd205423205479%_ - _%sig205425205472%_)))) - (let ((_%sig205426205485%_ - (reverse _%sig205425205472%_))) - (_%__kont208796208797%_ - _%sig205426205485%_ - _%hd205416205453%_)))))) - (_%loop205421205465%_ _%target205418205459%_ '())))) - (_%__match208848208849%_ - (lambda (_%e205412205439%_ - _%hd205413205443%_ - _%tl205414205446%_ - _%e205415205449%_ - _%hd205416205453%_ - _%tl205417205456%_) + (##car _%e205459205512%_)))) + (_%loop205458205502%_ + _%lp-tl205461205519%_ + (cons _%lp-hd205460205516%_ + _%sig205462205509%_)))) + (let ((_%sig205463205522%_ + (reverse _%sig205462205509%_))) + (_%__kont208833208834%_ + _%sig205463205522%_ + _%hd205453205490%_)))))) + (_%loop205458205502%_ _%target205455205496%_ '())))) + (_%__match208885208886%_ + (lambda (_%e205449205476%_ + _%hd205450205480%_ + _%tl205451205483%_ + _%e205452205486%_ + _%hd205453205490%_ + _%tl205454205493%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205417205456%_)) - (let ((_%__splice208798208799%_ + (gx#stx-pair/null? _%tl205454205493%_)) + (let ((_%__splice208835208836%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205417205456%_ + _%tl205454205493%_ '0)))) - (let ((_%tl205420205462%_ + (let ((_%tl205457205499%_ (let () (declare (not safe)) (##vector-ref - _%__splice208798208799%_ + _%__splice208835208836%_ '1))) - (_%target205418205459%_ + (_%target205455205496%_ (let () (declare (not safe)) (##vector-ref - _%__splice208798208799%_ + _%__splice208835208836%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205420205462%_)) - (_%__match208856208857%_ - _%e205412205439%_ - _%hd205413205443%_ - _%tl205414205446%_ - _%e205415205449%_ - _%hd205416205453%_ - _%tl205417205456%_ - _%__splice208798208799%_ - _%target205418205459%_ - _%tl205420205462%_) + (gx#stx-null? _%tl205457205499%_)) + (_%__match208893208894%_ + _%e205449205476%_ + _%hd205450205480%_ + _%tl205451205483%_ + _%e205452205486%_ + _%hd205453205490%_ + _%tl205454205493%_ + _%__splice208835208836%_ + _%target205455205496%_ + _%tl205457205499%_) (let () (declare (not safe)) - (_%g205385205432%_))))) - (let () (declare (not safe)) (_%g205385205432%_))))) - (_%__match208836208837%_ - (lambda (_%e205389205524%_ - _%hd205390205528%_ - _%tl205391205531%_ - _%e205392205534%_ - _%hd205393205538%_ - _%tl205394205541%_ - _%e205395205544%_ - _%hd205396205548%_ - _%tl205397205551%_ - _%e205398205554%_ - _%hd205399205558%_ - _%tl205400205561%_ - _%__splice208794208795%_ - _%target205401205564%_ - _%tl205403205567%_) - (letrec ((_%loop205404205570%_ - (lambda (_%hd205402205574%_ - _%sig205408205577%_) + (_%g205422205469%_))))) + (let () (declare (not safe)) (_%g205422205469%_))))) + (_%__match208873208874%_ + (lambda (_%e205426205561%_ + _%hd205427205565%_ + _%tl205428205568%_ + _%e205429205571%_ + _%hd205430205575%_ + _%tl205431205578%_ + _%e205432205581%_ + _%hd205433205585%_ + _%tl205434205588%_ + _%e205435205591%_ + _%hd205436205595%_ + _%tl205437205598%_ + _%__splice208831208832%_ + _%target205438205601%_ + _%tl205440205604%_) + (letrec ((_%loop205441205607%_ + (lambda (_%hd205439205611%_ + _%sig205445205614%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205402205574%_)) - (let ((_%e205405205580%_ + (gx#stx-pair? _%hd205439205611%_)) + (let ((_%e205442205617%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205402205574%_)))) - (let ((_%lp-tl205407205587%_ + _%hd205439205611%_)))) + (let ((_%lp-tl205444205624%_ (let () (declare (not safe)) - (##cdr _%e205405205580%_))) - (_%lp-hd205406205584%_ + (##cdr _%e205442205617%_))) + (_%lp-hd205443205621%_ (let () (declare (not safe)) - (##car _%e205405205580%_)))) - (_%loop205404205570%_ - _%lp-tl205407205587%_ - (cons _%lp-hd205406205584%_ - _%sig205408205577%_)))) - (let ((_%sig205409205590%_ - (reverse _%sig205408205577%_))) + (##car _%e205442205617%_)))) + (_%loop205441205607%_ + _%lp-tl205444205624%_ + (cons _%lp-hd205443205621%_ + _%sig205445205614%_)))) + (let ((_%sig205446205627%_ + (reverse _%sig205445205614%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205397205551%_)) - (_%__kont208792208793%_ - _%sig205409205590%_ - _%hd205393205538%_) - (_%__match208848208849%_ - _%e205389205524%_ - _%hd205390205528%_ - _%tl205391205531%_ - _%e205392205534%_ - _%hd205393205538%_ - _%tl205394205541%_))))))) - (_%loop205404205570%_ _%target205401205564%_ '()))))) + _%tl205434205588%_)) + (_%__kont208829208830%_ + _%sig205446205627%_ + _%hd205430205575%_) + (_%__match208885208886%_ + _%e205426205561%_ + _%hd205427205565%_ + _%tl205428205568%_ + _%e205429205571%_ + _%hd205430205575%_ + _%tl205431205578%_))))))) + (_%loop205441205607%_ _%target205438205601%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208789208790%_)) - (let ((_%e205389205524%_ + (gx#stx-pair? _%__stx208826208827%_)) + (let ((_%e205426205561%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208789208790%_)))) - (let ((_%tl205391205531%_ + (gx#syntax-e _%__stx208826208827%_)))) + (let ((_%tl205428205568%_ (let () (declare (not safe)) - (##cdr _%e205389205524%_))) - (_%hd205390205528%_ + (##cdr _%e205426205561%_))) + (_%hd205427205565%_ (let () (declare (not safe)) - (##car _%e205389205524%_)))) + (##car _%e205426205561%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205391205531%_)) - (let ((_%e205392205534%_ + (gx#stx-pair? _%tl205428205568%_)) + (let ((_%e205429205571%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205391205531%_)))) - (let ((_%tl205394205541%_ + (gx#syntax-e _%tl205428205568%_)))) + (let ((_%tl205431205578%_ (let () (declare (not safe)) - (##cdr _%e205392205534%_))) - (_%hd205393205538%_ + (##cdr _%e205429205571%_))) + (_%hd205430205575%_ (let () (declare (not safe)) - (##car _%e205392205534%_)))) + (##car _%e205429205571%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205394205541%_)) - (let ((_%e205395205544%_ + (gx#stx-pair? _%tl205431205578%_)) + (let ((_%e205432205581%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205394205541%_)))) - (let ((_%tl205397205551%_ + (gx#syntax-e _%tl205431205578%_)))) + (let ((_%tl205434205588%_ (let () (declare (not safe)) - (##cdr _%e205395205544%_))) - (_%hd205396205548%_ + (##cdr _%e205432205581%_))) + (_%hd205433205585%_ (let () (declare (not safe)) - (##car _%e205395205544%_)))) + (##car _%e205432205581%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205396205548%_)) - (let ((_%e205398205554%_ + (gx#stx-pair? _%hd205433205585%_)) + (let ((_%e205435205591%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205396205548%_)))) - (let ((_%tl205400205561%_ + _%hd205433205585%_)))) + (let ((_%tl205437205598%_ (let () (declare (not safe)) - (##cdr _%e205398205554%_))) - (_%hd205399205558%_ + (##cdr _%e205435205591%_))) + (_%hd205436205595%_ (let () (declare (not safe)) - (##car _%e205398205554%_)))) + (##car _%e205435205591%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205399205558%_)) - (if (let ((__tmp209223 - |gxc[1]#_g209224_|)) + _%hd205436205595%_)) + (if (let ((__tmp209260 + |gxc[1]#_g209261_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209223 - _%hd205399205558%_)) + __tmp209260 + _%hd205436205595%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205400205561%_)) - (let ((_%__splice208794208795%_ + _%tl205437205598%_)) + (let ((_%__splice208831208832%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl205400205561%_ '0)))) - (let ((_%tl205403205567%_ + (gx#syntax-split-splice _%tl205437205598%_ '0)))) + (let ((_%tl205440205604%_ (let () (declare (not safe)) - (##vector-ref _%__splice208794208795%_ '1))) - (_%target205401205564%_ + (##vector-ref _%__splice208831208832%_ '1))) + (_%target205438205601%_ (let () (declare (not safe)) - (##vector-ref _%__splice208794208795%_ '0)))) + (##vector-ref _%__splice208831208832%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205403205567%_)) - (_%__match208836208837%_ - _%e205389205524%_ - _%hd205390205528%_ - _%tl205391205531%_ - _%e205392205534%_ - _%hd205393205538%_ - _%tl205394205541%_ - _%e205395205544%_ - _%hd205396205548%_ - _%tl205397205551%_ - _%e205398205554%_ - _%hd205399205558%_ - _%tl205400205561%_ - _%__splice208794208795%_ - _%target205401205564%_ - _%tl205403205567%_) + (gx#stx-null? _%tl205440205604%_)) + (_%__match208873208874%_ + _%e205426205561%_ + _%hd205427205565%_ + _%tl205428205568%_ + _%e205429205571%_ + _%hd205430205575%_ + _%tl205431205578%_ + _%e205432205581%_ + _%hd205433205585%_ + _%tl205434205588%_ + _%e205435205591%_ + _%hd205436205595%_ + _%tl205437205598%_ + _%__splice208831208832%_ + _%target205438205601%_ + _%tl205440205604%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205394205541%_)) - (let ((_%__splice208798208799%_ + (gx#stx-pair/null? _%tl205431205578%_)) + (let ((_%__splice208835208836%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205394205541%_ + _%tl205431205578%_ '0)))) - (let ((_%tl205420205462%_ + (let ((_%tl205457205499%_ (let () (declare (not safe)) (##vector-ref - _%__splice208798208799%_ + _%__splice208835208836%_ '1))) - (_%target205418205459%_ + (_%target205455205496%_ (let () (declare (not safe)) (##vector-ref - _%__splice208798208799%_ + _%__splice208835208836%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205420205462%_)) - (_%__match208856208857%_ - _%e205389205524%_ - _%hd205390205528%_ - _%tl205391205531%_ - _%e205392205534%_ - _%hd205393205538%_ - _%tl205394205541%_ - _%__splice208798208799%_ - _%target205418205459%_ - _%tl205420205462%_) + (gx#stx-null? _%tl205457205499%_)) + (_%__match208893208894%_ + _%e205426205561%_ + _%hd205427205565%_ + _%tl205428205568%_ + _%e205429205571%_ + _%hd205430205575%_ + _%tl205431205578%_ + _%__splice208835208836%_ + _%target205455205496%_ + _%tl205457205499%_) (let () (declare (not safe)) - (_%g205385205432%_))))) + (_%g205422205469%_))))) (let () (declare (not safe)) - (_%g205385205432%_)))))) + (_%g205422205469%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205394205541%_)) - (let ((_%__splice208798208799%_ + (gx#stx-pair/null? _%tl205431205578%_)) + (let ((_%__splice208835208836%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205394205541%_ + _%tl205431205578%_ '0)))) - (let ((_%tl205420205462%_ + (let ((_%tl205457205499%_ (let () (declare (not safe)) - (##vector-ref _%__splice208798208799%_ '1))) - (_%target205418205459%_ + (##vector-ref _%__splice208835208836%_ '1))) + (_%target205455205496%_ (let () (declare (not safe)) - (##vector-ref _%__splice208798208799%_ '0)))) + (##vector-ref _%__splice208835208836%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205420205462%_)) - (_%__match208856208857%_ - _%e205389205524%_ - _%hd205390205528%_ - _%tl205391205531%_ - _%e205392205534%_ - _%hd205393205538%_ - _%tl205394205541%_ - _%__splice208798208799%_ - _%target205418205459%_ - _%tl205420205462%_) + (gx#stx-null? _%tl205457205499%_)) + (_%__match208893208894%_ + _%e205426205561%_ + _%hd205427205565%_ + _%tl205428205568%_ + _%e205429205571%_ + _%hd205430205575%_ + _%tl205431205578%_ + _%__splice208835208836%_ + _%target205455205496%_ + _%tl205457205499%_) (let () (declare (not safe)) - (_%g205385205432%_))))) - (let () (declare (not safe)) (_%g205385205432%_)))) + (_%g205422205469%_))))) + (let () (declare (not safe)) (_%g205422205469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205394205541%_)) - (let ((_%__splice208798208799%_ + (gx#stx-pair/null? _%tl205431205578%_)) + (let ((_%__splice208835208836%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl205394205541%_ '0)))) - (let ((_%tl205420205462%_ + (gx#syntax-split-splice _%tl205431205578%_ '0)))) + (let ((_%tl205457205499%_ (let () (declare (not safe)) - (##vector-ref _%__splice208798208799%_ '1))) - (_%target205418205459%_ + (##vector-ref _%__splice208835208836%_ '1))) + (_%target205455205496%_ (let () (declare (not safe)) - (##vector-ref _%__splice208798208799%_ '0)))) + (##vector-ref _%__splice208835208836%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205420205462%_)) - (_%__match208856208857%_ - _%e205389205524%_ - _%hd205390205528%_ - _%tl205391205531%_ - _%e205392205534%_ - _%hd205393205538%_ - _%tl205394205541%_ - _%__splice208798208799%_ - _%target205418205459%_ - _%tl205420205462%_) - (let () (declare (not safe)) (_%g205385205432%_))))) - (let () (declare (not safe)) (_%g205385205432%_)))) + (gx#stx-null? _%tl205457205499%_)) + (_%__match208893208894%_ + _%e205426205561%_ + _%hd205427205565%_ + _%tl205428205568%_ + _%e205429205571%_ + _%hd205430205575%_ + _%tl205431205578%_ + _%__splice208835208836%_ + _%target205455205496%_ + _%tl205457205499%_) + (let () (declare (not safe)) (_%g205422205469%_))))) + (let () (declare (not safe)) (_%g205422205469%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205394205541%_)) - (let ((_%__splice208798208799%_ + _%tl205431205578%_)) + (let ((_%__splice208835208836%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl205394205541%_ '0)))) - (let ((_%tl205420205462%_ + (gx#syntax-split-splice _%tl205431205578%_ '0)))) + (let ((_%tl205457205499%_ (let () (declare (not safe)) - (##vector-ref _%__splice208798208799%_ '1))) - (_%target205418205459%_ + (##vector-ref _%__splice208835208836%_ '1))) + (_%target205455205496%_ (let () (declare (not safe)) - (##vector-ref _%__splice208798208799%_ '0)))) + (##vector-ref _%__splice208835208836%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205420205462%_)) - (_%__match208856208857%_ - _%e205389205524%_ - _%hd205390205528%_ - _%tl205391205531%_ - _%e205392205534%_ - _%hd205393205538%_ - _%tl205394205541%_ - _%__splice208798208799%_ - _%target205418205459%_ - _%tl205420205462%_) - (let () (declare (not safe)) (_%g205385205432%_))))) - (let () (declare (not safe)) (_%g205385205432%_)))))) + (gx#stx-null? _%tl205457205499%_)) + (_%__match208893208894%_ + _%e205426205561%_ + _%hd205427205565%_ + _%tl205428205568%_ + _%e205429205571%_ + _%hd205430205575%_ + _%tl205431205578%_ + _%__splice208835208836%_ + _%target205455205496%_ + _%tl205457205499%_) + (let () (declare (not safe)) (_%g205422205469%_))))) + (let () (declare (not safe)) (_%g205422205469%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205394205541%_)) - (let ((_%__splice208798208799%_ + _%tl205431205578%_)) + (let ((_%__splice208835208836%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205394205541%_ + _%tl205431205578%_ '0)))) - (let ((_%tl205420205462%_ + (let ((_%tl205457205499%_ (let () (declare (not safe)) (##vector-ref - _%__splice208798208799%_ + _%__splice208835208836%_ '1))) - (_%target205418205459%_ + (_%target205455205496%_ (let () (declare (not safe)) (##vector-ref - _%__splice208798208799%_ + _%__splice208835208836%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205420205462%_)) - (_%__match208856208857%_ - _%e205389205524%_ - _%hd205390205528%_ - _%tl205391205531%_ - _%e205392205534%_ - _%hd205393205538%_ - _%tl205394205541%_ - _%__splice208798208799%_ - _%target205418205459%_ - _%tl205420205462%_) + _%tl205457205499%_)) + (_%__match208893208894%_ + _%e205426205561%_ + _%hd205427205565%_ + _%tl205428205568%_ + _%e205429205571%_ + _%hd205430205575%_ + _%tl205431205578%_ + _%__splice208835208836%_ + _%target205455205496%_ + _%tl205457205499%_) (let () (declare (not safe)) - (_%g205385205432%_))))) + (_%g205422205469%_))))) (let () (declare (not safe)) - (_%g205385205432%_)))))) + (_%g205422205469%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205394205541%_)) - (let ((_%__splice208798208799%_ + (gx#stx-pair/null? _%tl205431205578%_)) + (let ((_%__splice208835208836%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205394205541%_ + _%tl205431205578%_ '0)))) - (let ((_%tl205420205462%_ + (let ((_%tl205457205499%_ (let () (declare (not safe)) (##vector-ref - _%__splice208798208799%_ + _%__splice208835208836%_ '1))) - (_%target205418205459%_ + (_%target205455205496%_ (let () (declare (not safe)) (##vector-ref - _%__splice208798208799%_ + _%__splice208835208836%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205420205462%_)) - (_%__match208856208857%_ - _%e205389205524%_ - _%hd205390205528%_ - _%tl205391205531%_ - _%e205392205534%_ - _%hd205393205538%_ - _%tl205394205541%_ - _%__splice208798208799%_ - _%target205418205459%_ - _%tl205420205462%_) + _%tl205457205499%_)) + (_%__match208893208894%_ + _%e205426205561%_ + _%hd205427205565%_ + _%tl205428205568%_ + _%e205429205571%_ + _%hd205430205575%_ + _%tl205431205578%_ + _%__splice208835208836%_ + _%target205455205496%_ + _%tl205457205499%_) (let () (declare (not safe)) - (_%g205385205432%_))))) + (_%g205422205469%_))))) (let () (declare (not safe)) - (_%g205385205432%_)))))) - (let () (declare (not safe)) (_%g205385205432%_))))) - (let () (declare (not safe)) (_%g205385205432%_)))))))) + (_%g205422205469%_)))))) + (let () (declare (not safe)) (_%g205422205469%_))))) + (let () (declare (not safe)) (_%g205422205469%_)))))))) (define |gxc[1]#verify-procedure!| - (lambda (_%ctx206779%_ _%id206781%_) - (let ((_%proc206785%_ - (let ((__tmp209225 + (lambda (_%ctx206816%_ _%id206818%_) + (let ((_%proc206822%_ + (let ((__tmp209262 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id206781%_))))) + (gx#eval-syntax__0 _%id206818%_))))) (declare (not safe)) - (__with-catch false __tmp209225)))) - (if (procedure? _%proc206785%_) + (__with-catch false __tmp209262)))) + (if (procedure? _%proc206822%_) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown procedure" - _%ctx206779%_ - _%id206781%_)))))) + _%ctx206816%_ + _%id206818%_)))))) (define |gxc[1]#verify-class!| - (lambda (_%ctx206770%_ _%id206772%_) - (let ((_%klass206776%_ - (let ((__tmp209226 + (lambda (_%ctx206807%_ _%id206809%_) + (let ((_%klass206813%_ + (let ((__tmp209263 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id206772%_))))) + (gx#eval-syntax__0 _%id206809%_))))) (declare (not safe)) - (__with-catch false __tmp209226)))) + (__with-catch false __tmp209263)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass206776%_ 'class)) + (##structure-instance-of? _%klass206813%_ 'class)) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown class" - _%ctx206770%_ - _%id206772%_)))))) + _%ctx206807%_ + _%id206809%_)))))) (define |gxc[1]#parse-signature| - (lambda (_%ctx206020%_ _%proc206022%_ _%sig206023%_) - (letrec ((_%signature-arity206025%_ - (lambda (_%args206702%_) - (let _%loop206705%_ ((_%rest206708%_ _%args206702%_) - (_%count206710%_ '0)) - (let* ((_%rest206711206722%_ _%rest206708%_) - (_%E206715206728%_ + (lambda (_%ctx206057%_ _%proc206059%_ _%sig206060%_) + (letrec ((_%signature-arity206062%_ + (lambda (_%args206739%_) + (let _%loop206742%_ ((_%rest206745%_ _%args206739%_) + (_%count206747%_ '0)) + (let* ((_%rest206748206759%_ _%rest206745%_) + (_%E206752206765%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest206711206722%_ + _%rest206748206759%_ '([_ . rest]) '([]) '(_))) '#!void))) - (let ((_%K206718206759%_ - (lambda (_%rest206756%_) - (_%loop206705%_ - _%rest206756%_ + (let ((_%K206755206796%_ + (lambda (_%rest206793%_) + (_%loop206742%_ + _%rest206793%_ (let () (declare (not safe)) - (##fx+ _%count206710%_ '1))))) - (_%K206717206748%_ (lambda () _%count206710%_)) - (_%K206716206736%_ - (lambda () (cons _%count206710%_ '())))) - (let ((_%try-match206713206752%_ + (##fx+ _%count206747%_ '1))))) + (_%K206754206785%_ (lambda () _%count206747%_)) + (_%K206753206773%_ + (lambda () (cons _%count206747%_ '())))) + (let ((_%try-match206750206789%_ (lambda () - (if (null? _%rest206711206722%_) - (_%K206717206748%_) - (_%K206716206736%_))))) - (if (pair? _%rest206711206722%_) - (let* ((_%tl206720206763%_ + (if (null? _%rest206748206759%_) + (_%K206754206785%_) + (_%K206753206773%_))))) + (if (pair? _%rest206748206759%_) + (let* ((_%tl206757206800%_ (let () (declare (not safe)) - (##cdr _%rest206711206722%_))) - (_%rest206767%_ _%tl206720206763%_)) - (_%K206718206759%_ _%rest206767%_)) - (_%try-match206713206752%_)))))))) - (_%make-signature206027%_ - (lambda (_%args206584%_ - _%return206586%_ - _%effect206587%_ - _%unchecked206588%_) - (let ((__tmp209227 - (lambda (_%g206589206591%_) + (##cdr _%rest206748206759%_))) + (_%rest206804%_ _%tl206757206800%_)) + (_%K206755206796%_ _%rest206804%_)) + (_%try-match206750206789%_)))))))) + (_%make-signature206064%_ + (lambda (_%args206621%_ + _%return206623%_ + _%effect206624%_ + _%unchecked206625%_) + (let ((__tmp209264 + (lambda (_%g206626206628%_) (|gxc[1]#verify-class!| - _%ctx206020%_ - _%g206589206591%_)))) + _%ctx206057%_ + _%g206626206628%_)))) (declare (not safe)) - (gx#stx-for-each1 __tmp209227 _%args206584%_)) - (|gxc[1]#verify-class!| _%ctx206020%_ _%return206586%_) - (if _%unchecked206588%_ + (gx#stx-for-each1 __tmp209264 _%args206621%_)) + (|gxc[1]#verify-class!| _%ctx206057%_ _%return206623%_) + (if _%unchecked206625%_ (|gxc[1]#verify-procedure!| - _%ctx206020%_ - _%unchecked206588%_) + _%ctx206057%_ + _%unchecked206625%_) '#!void) - (let ((_%arity206595%_ - (_%signature-arity206025%_ + (let ((_%arity206632%_ + (_%signature-arity206062%_ (let () (declare (not safe)) - (gx#stx-map1 gx#stx-e _%args206584%_))))) - (if _%effect206587%_ - (let ((_%effect206598%_ + (gx#stx-map1 gx#stx-e _%args206621%_))))) + (if _%effect206624%_ + (let ((_%effect206635%_ (let () (declare (not safe)) - (gx#syntax->datum _%effect206587%_)))) - (if (and (list? _%effect206598%_) + (gx#syntax->datum _%effect206624%_)))) + (if (and (list? _%effect206635%_) (let () (declare (not safe)) - (__andmap1 symbol? _%effect206598%_))) + (__andmap1 symbol? _%effect206635%_))) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"bad effect" - _%ctx206020%_ - _%proc206022%_ - _%effect206598%_)))) + _%ctx206057%_ + _%proc206059%_ + _%effect206635%_)))) '#!void) - (cons _%arity206595%_ - (cons (let* ((_%g206601206624%_ - (lambda (_%g206602206620%_) + (cons _%arity206632%_ + (cons (let* ((_%g206638206661%_ + (lambda (_%g206639206657%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206602206620%_)))) - (_%g206600206698%_ - (lambda (_%g206602206628%_) + _%g206639206657%_)))) + (_%g206637206735%_ + (lambda (_%g206639206665%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g206602206628%_)) - (let ((_%e206607206631%_ + _%g206639206665%_)) + (let ((_%e206644206668%_ (let () (declare (not safe)) (gx#syntax-e - _%g206602206628%_)))) - (let ((_%hd206608206635%_ + _%g206639206665%_)))) + (let ((_%hd206645206672%_ (let () (declare (not safe)) - (##car _%e206607206631%_))) - (_%tl206609206638%_ + (##car _%e206644206668%_))) + (_%tl206646206675%_ (let () (declare (not safe)) - (##cdr _%e206607206631%_)))) + (##cdr _%e206644206668%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206609206638%_)) - (let ((_%e206610206641%_ + _%tl206646206675%_)) + (let ((_%e206647206678%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl206609206638%_)))) - (let ((_%hd206611206645%_ + (gx#syntax-e _%tl206646206675%_)))) + (let ((_%hd206648206682%_ (let () (declare (not safe)) - (##car _%e206610206641%_))) - (_%tl206612206648%_ + (##car _%e206647206678%_))) + (_%tl206649206685%_ (let () (declare (not safe)) - (##cdr _%e206610206641%_)))) + (##cdr _%e206647206678%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206612206648%_)) - (let ((_%e206613206651%_ + (gx#stx-pair? _%tl206649206685%_)) + (let ((_%e206650206688%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206612206648%_)))) - (let ((_%hd206614206655%_ + (gx#syntax-e _%tl206649206685%_)))) + (let ((_%hd206651206692%_ (let () (declare (not safe)) - (##car _%e206613206651%_))) - (_%tl206615206658%_ + (##car _%e206650206688%_))) + (_%tl206652206695%_ (let () (declare (not safe)) - (##cdr _%e206613206651%_)))) + (##cdr _%e206650206688%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206615206658%_)) - (let ((_%e206616206661%_ + (gx#stx-pair? _%tl206652206695%_)) + (let ((_%e206653206698%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206615206658%_)))) - (let ((_%hd206617206665%_ + (gx#syntax-e _%tl206652206695%_)))) + (let ((_%hd206654206702%_ (let () (declare (not safe)) - (##car _%e206616206661%_))) - (_%tl206618206668%_ + (##car _%e206653206698%_))) + (_%tl206655206705%_ (let () (declare (not safe)) - (##cdr _%e206616206661%_)))) + (##cdr _%e206653206698%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206618206668%_)) - ((lambda (_%L206671%_ - _%L206673%_ - _%L206674%_ - _%L206675%_) + (gx#stx-null? _%tl206655206705%_)) + ((lambda (_%L206708%_ + _%L206710%_ + _%L206711%_ + _%L206712%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -3868,25 +3868,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206675%_ '())) + (cons _%L206712%_ '())) (cons 'return: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206674%_ '())) + (cons _%L206711%_ '())) (cons 'effect: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206673%_ '())) + (cons _%L206710%_ '())) (cons 'unchecked: (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206671%_ '())) + (cons _%L206708%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) @@ -3898,779 +3898,779 @@ '())))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd206617206665%_ - _%hd206614206655%_ - _%hd206611206645%_ - _%hd206608206635%_) - (_%g206601206624%_ - _%g206602206628%_)))) - (_%g206601206624%_ _%g206602206628%_)))) - (_%g206601206624%_ _%g206602206628%_)))) - (_%g206601206624%_ _%g206602206628%_)))) + _%hd206654206702%_ + _%hd206651206692%_ + _%hd206648206682%_ + _%hd206645206672%_) + (_%g206638206661%_ + _%g206639206665%_)))) + (_%g206638206661%_ _%g206639206665%_)))) + (_%g206638206661%_ _%g206639206665%_)))) + (_%g206638206661%_ _%g206639206665%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206601206624%_ - _%g206602206628%_))))) - (_%g206600206698%_ - (list _%args206584%_ - _%return206586%_ - _%effect206587%_ - _%unchecked206588%_))) + (_%g206638206661%_ + _%g206639206665%_))))) + (_%g206637206735%_ + (list _%args206621%_ + _%return206623%_ + _%effect206624%_ + _%unchecked206625%_))) '())))))) - (|gxc[1]#verify-procedure!| _%ctx206020%_ _%proc206022%_) - (let* ((_%__stx208867208868%_ _%sig206023%_) - (_%g206034206137%_ + (|gxc[1]#verify-procedure!| _%ctx206057%_ _%proc206059%_) + (let* ((_%__stx208904208905%_ _%sig206060%_) + (_%g206071206174%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208867208868%_))))) - (let ((_%__kont208870208871%_ - (lambda (_%L206565%_ _%L206567%_) - (_%make-signature206027%_ - _%L206567%_ - _%L206565%_ + _%__stx208904208905%_))))) + (let ((_%__kont208907208908%_ + (lambda (_%L206602%_ _%L206604%_) + (_%make-signature206064%_ + _%L206604%_ + _%L206602%_ '#f '#f))) - (_%__kont208872208873%_ - (lambda (_%L206516%_ _%L206518%_ _%L206519%_) - (_%make-signature206027%_ - _%L206519%_ - _%L206518%_ - _%L206516%_ + (_%__kont208909208910%_ + (lambda (_%L206553%_ _%L206555%_ _%L206556%_) + (_%make-signature206064%_ + _%L206556%_ + _%L206555%_ + _%L206553%_ '#f))) - (_%__kont208874208875%_ - (lambda (_%L206440%_ _%L206442%_ _%L206443%_) - (_%make-signature206027%_ - _%L206443%_ - _%L206442%_ - _%L206440%_ - (let ((__tmp209228 + (_%__kont208911208912%_ + (lambda (_%L206477%_ _%L206479%_ _%L206480%_) + (_%make-signature206064%_ + _%L206480%_ + _%L206479%_ + _%L206477%_ + (let ((__tmp209265 (let () (declare (not safe)) - (gx#stx-e _%proc206022%_)))) + (gx#stx-e _%proc206059%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp209228))))) - (_%__kont208876208877%_ - (lambda (_%L206346%_ _%L206348%_ _%L206349%_ _%L206350%_) - (_%make-signature206027%_ - _%L206350%_ - _%L206349%_ + (make-symbol__1 '"##" __tmp209265))))) + (_%__kont208913208914%_ + (lambda (_%L206383%_ _%L206385%_ _%L206386%_ _%L206387%_) + (_%make-signature206064%_ + _%L206387%_ + _%L206386%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L206346%_))))) - (_%__kont208878208879%_ - (lambda (_%L206253%_ _%L206255%_) - (_%make-signature206027%_ - _%L206255%_ - _%L206253%_ + (let () (declare (not safe)) (gx#stx-e _%L206383%_))))) + (_%__kont208915208916%_ + (lambda (_%L206290%_ _%L206292%_) + (_%make-signature206064%_ + _%L206292%_ + _%L206290%_ '#f - (let ((__tmp209229 + (let ((__tmp209266 (let () (declare (not safe)) - (gx#stx-e _%proc206022%_)))) + (gx#stx-e _%proc206059%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp209229))))) - (_%__kont208880208881%_ - (lambda (_%L206188%_ _%L206190%_ _%L206191%_) - (_%make-signature206027%_ - _%L206191%_ - _%L206190%_ + (make-symbol__1 '"##" __tmp209266))))) + (_%__kont208917208918%_ + (lambda (_%L206225%_ _%L206227%_ _%L206228%_) + (_%make-signature206064%_ + _%L206228%_ + _%L206227%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L206188%_)))))) + (let () (declare (not safe)) (gx#stx-e _%L206225%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208867208868%_)) - (let ((_%e206038206545%_ + (gx#stx-pair? _%__stx208904208905%_)) + (let ((_%e206075206582%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208867208868%_)))) - (let ((_%tl206040206552%_ + (gx#syntax-e _%__stx208904208905%_)))) + (let ((_%tl206077206589%_ (let () (declare (not safe)) - (##cdr _%e206038206545%_))) - (_%hd206039206549%_ + (##cdr _%e206075206582%_))) + (_%hd206076206586%_ (let () (declare (not safe)) - (##car _%e206038206545%_)))) + (##car _%e206075206582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206040206552%_)) - (let ((_%e206041206555%_ + (gx#stx-pair? _%tl206077206589%_)) + (let ((_%e206078206592%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206040206552%_)))) - (let ((_%tl206043206562%_ + (gx#syntax-e _%tl206077206589%_)))) + (let ((_%tl206080206599%_ (let () (declare (not safe)) - (##cdr _%e206041206555%_))) - (_%hd206042206559%_ + (##cdr _%e206078206592%_))) + (_%hd206079206596%_ (let () (declare (not safe)) - (##car _%e206041206555%_)))) + (##car _%e206078206592%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206043206562%_)) - (_%__kont208870208871%_ - _%hd206042206559%_ - _%hd206039206549%_) + (gx#stx-null? _%tl206080206599%_)) + (_%__kont208907208908%_ + _%hd206079206596%_ + _%hd206076206586%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206043206562%_)) - (let ((_%e206053206492%_ + (gx#stx-pair? _%tl206080206599%_)) + (let ((_%e206090206529%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206043206562%_)))) - (let ((_%tl206055206499%_ + _%tl206080206599%_)))) + (let ((_%tl206092206536%_ (let () (declare (not safe)) - (##cdr _%e206053206492%_))) - (_%hd206054206496%_ + (##cdr _%e206090206529%_))) + (_%hd206091206533%_ (let () (declare (not safe)) - (##car _%e206053206492%_)))) + (##car _%e206090206529%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd206054206496%_)) - (let ((_%e206056206502%_ + _%hd206091206533%_)) + (let ((_%e206093206539%_ (let () (declare (not safe)) (gx#stx-e - _%hd206054206496%_)))) - (if (equal? _%e206056206502%_ + _%hd206091206533%_)))) + (if (equal? _%e206093206539%_ 'effect:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206055206499%_)) - (let ((_%e206057206506%_ + _%tl206092206536%_)) + (let ((_%e206094206543%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl206055206499%_)))) - (let ((_%tl206059206513%_ + (gx#syntax-e _%tl206092206536%_)))) + (let ((_%tl206096206550%_ (let () (declare (not safe)) - (##cdr _%e206057206506%_))) - (_%hd206058206510%_ + (##cdr _%e206094206543%_))) + (_%hd206095206547%_ (let () (declare (not safe)) - (##car _%e206057206506%_)))) + (##car _%e206094206543%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206059206513%_)) - (_%__kont208872208873%_ - _%hd206058206510%_ - _%hd206042206559%_ - _%hd206039206549%_) + (gx#stx-null? _%tl206096206550%_)) + (_%__kont208909208910%_ + _%hd206095206547%_ + _%hd206079206596%_ + _%hd206076206586%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206059206513%_)) - (let ((_%e206076206426%_ + (gx#stx-pair? _%tl206096206550%_)) + (let ((_%e206113206463%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206059206513%_)))) - (let ((_%tl206078206433%_ + (gx#syntax-e _%tl206096206550%_)))) + (let ((_%tl206115206470%_ (let () (declare (not safe)) - (##cdr _%e206076206426%_))) - (_%hd206077206430%_ + (##cdr _%e206113206463%_))) + (_%hd206114206467%_ (let () (declare (not safe)) - (##car _%e206076206426%_)))) + (##car _%e206113206463%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd206077206430%_)) - (let ((_%e206079206436%_ + (gx#stx-datum? _%hd206114206467%_)) + (let ((_%e206116206473%_ (let () (declare (not safe)) - (gx#stx-e _%hd206077206430%_)))) - (if (equal? _%e206079206436%_ + (gx#stx-e _%hd206114206467%_)))) + (if (equal? _%e206116206473%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206078206433%_)) - (_%__kont208874208875%_ - _%hd206058206510%_ - _%hd206042206559%_ - _%hd206039206549%_) + _%tl206115206470%_)) + (_%__kont208911208912%_ + _%hd206095206547%_ + _%hd206079206596%_ + _%hd206076206586%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206078206433%_)) - (let ((_%e206101206336%_ + _%tl206115206470%_)) + (let ((_%e206138206373%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206078206433%_)))) - (let ((_%tl206103206343%_ + _%tl206115206470%_)))) + (let ((_%tl206140206380%_ (let () (declare (not safe)) - (##cdr _%e206101206336%_))) - (_%hd206102206340%_ + (##cdr _%e206138206373%_))) + (_%hd206139206377%_ (let () (declare (not safe)) - (##car _%e206101206336%_)))) + (##car _%e206138206373%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206103206343%_)) - (_%__kont208876208877%_ - _%hd206102206340%_ - _%hd206058206510%_ - _%hd206042206559%_ - _%hd206039206549%_) + _%tl206140206380%_)) + (_%__kont208913208914%_ + _%hd206139206377%_ + _%hd206095206547%_ + _%hd206079206596%_ + _%hd206076206586%_) (let () (declare (not safe)) - (_%g206034206137%_))))) + (_%g206071206174%_))))) (let () (declare (not safe)) - (_%g206034206137%_)))) + (_%g206071206174%_)))) (let () (declare (not safe)) - (_%g206034206137%_)))) + (_%g206071206174%_)))) (let () (declare (not safe)) - (_%g206034206137%_))))) + (_%g206071206174%_))))) (let () (declare (not safe)) - (_%g206034206137%_)))))) - (let () (declare (not safe)) (_%g206034206137%_))) + (_%g206071206174%_)))))) + (let () (declare (not safe)) (_%g206071206174%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e206056206502%_ + (if (equal? _%e206093206539%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206055206499%_)) - (_%__kont208878208879%_ - _%hd206042206559%_ - _%hd206039206549%_) + _%tl206092206536%_)) + (_%__kont208915208916%_ + _%hd206079206596%_ + _%hd206076206586%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl206055206499%_)) - (let ((_%e206129206178%_ + (gx#stx-pair? _%tl206092206536%_)) + (let ((_%e206166206215%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206055206499%_)))) - (let ((_%tl206131206185%_ + (gx#syntax-e _%tl206092206536%_)))) + (let ((_%tl206168206222%_ (let () (declare (not safe)) - (##cdr _%e206129206178%_))) - (_%hd206130206182%_ + (##cdr _%e206166206215%_))) + (_%hd206167206219%_ (let () (declare (not safe)) - (##car _%e206129206178%_)))) + (##car _%e206166206215%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206131206185%_)) - (_%__kont208880208881%_ - _%hd206130206182%_ - _%hd206042206559%_ - _%hd206039206549%_) + (gx#stx-null? _%tl206168206222%_)) + (_%__kont208917208918%_ + _%hd206167206219%_ + _%hd206079206596%_ + _%hd206076206586%_) (let () (declare (not safe)) - (_%g206034206137%_))))) - (let () (declare (not safe)) (_%g206034206137%_)))) - (let () (declare (not safe)) (_%g206034206137%_))))) + (_%g206071206174%_))))) + (let () (declare (not safe)) (_%g206071206174%_)))) + (let () (declare (not safe)) (_%g206071206174%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g206034206137%_))))) + (_%g206071206174%_))))) (let () (declare (not safe)) - (_%g206034206137%_)))))) - (let () (declare (not safe)) (_%g206034206137%_))))) - (let () (declare (not safe)) (_%g206034206137%_)))))))) + (_%g206071206174%_)))))) + (let () (declare (not safe)) (_%g206071206174%_))))) + (let () (declare (not safe)) (_%g206071206174%_)))))))) (define |gxc[1]#signature->unchecked-signature| - (lambda (_%sig205631%_) - (let* ((_%g205634205714%_ - (lambda (_%g205635205710%_) + (lambda (_%sig205668%_) + (let* ((_%g205671205751%_ + (lambda (_%g205672205747%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205635205710%_)))) - (_%g205633206016%_ - (lambda (_%g205635205718%_) + _%g205672205747%_)))) + (_%g205670206053%_ + (lambda (_%g205672205755%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205635205718%_)) - (let ((_%e205641205721%_ + (gx#stx-pair? _%g205672205755%_)) + (let ((_%e205678205758%_ (let () (declare (not safe)) - (gx#syntax-e _%g205635205718%_)))) - (let ((_%hd205642205725%_ + (gx#syntax-e _%g205672205755%_)))) + (let ((_%hd205679205762%_ (let () (declare (not safe)) - (##car _%e205641205721%_))) - (_%tl205643205728%_ + (##car _%e205678205758%_))) + (_%tl205680205765%_ (let () (declare (not safe)) - (##cdr _%e205641205721%_)))) + (##cdr _%e205678205758%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205643205728%_)) - (let ((_%e205644205731%_ + (gx#stx-pair? _%tl205680205765%_)) + (let ((_%e205681205768%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205643205728%_)))) - (let ((_%hd205645205735%_ + (gx#syntax-e _%tl205680205765%_)))) + (let ((_%hd205682205772%_ (let () (declare (not safe)) - (##car _%e205644205731%_))) - (_%tl205646205738%_ + (##car _%e205681205768%_))) + (_%tl205683205775%_ (let () (declare (not safe)) - (##cdr _%e205644205731%_)))) + (##cdr _%e205681205768%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205645205735%_)) - (let ((_%e205647205741%_ + (gx#stx-datum? _%hd205682205772%_)) + (let ((_%e205684205778%_ (let () (declare (not safe)) - (gx#stx-e _%hd205645205735%_)))) - (if (equal? _%e205647205741%_ + (gx#stx-e _%hd205682205772%_)))) + (if (equal? _%e205684205778%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205646205738%_)) - (let ((_%e205648205745%_ + _%tl205683205775%_)) + (let ((_%e205685205782%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205646205738%_)))) - (let ((_%hd205649205749%_ + _%tl205683205775%_)))) + (let ((_%hd205686205786%_ (let () (declare (not safe)) - (##car _%e205648205745%_))) - (_%tl205650205752%_ + (##car _%e205685205782%_))) + (_%tl205687205789%_ (let () (declare (not safe)) - (##cdr _%e205648205745%_)))) + (##cdr _%e205685205782%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205649205749%_)) - (let ((_%e205651205755%_ + _%hd205686205786%_)) + (let ((_%e205688205792%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd205649205749%_)))) - (let ((_%hd205652205759%_ + (gx#syntax-e _%hd205686205786%_)))) + (let ((_%hd205689205796%_ (let () (declare (not safe)) - (##car _%e205651205755%_))) - (_%tl205653205762%_ + (##car _%e205688205792%_))) + (_%tl205690205799%_ (let () (declare (not safe)) - (##cdr _%e205651205755%_)))) + (##cdr _%e205688205792%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205652205759%_)) - (if (let ((__tmp209230 |gxc[1]#_g209231_|)) + (gx#identifier? _%hd205689205796%_)) + (if (let ((__tmp209267 |gxc[1]#_g209268_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209230 - _%hd205652205759%_)) + __tmp209267 + _%hd205689205796%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205653205762%_)) - (let ((_%e205654205765%_ + (gx#stx-pair? _%tl205690205799%_)) + (let ((_%e205691205802%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205653205762%_)))) - (let ((_%hd205655205769%_ + (gx#syntax-e _%tl205690205799%_)))) + (let ((_%hd205692205806%_ (let () (declare (not safe)) - (##car _%e205654205765%_))) - (_%tl205656205772%_ + (##car _%e205691205802%_))) + (_%tl205693205809%_ (let () (declare (not safe)) - (##cdr _%e205654205765%_)))) + (##cdr _%e205691205802%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205656205772%_)) + (gx#stx-null? _%tl205693205809%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205650205752%_)) - (let ((_%e205657205775%_ + _%tl205687205789%_)) + (let ((_%e205694205812%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205650205752%_)))) - (let ((_%hd205658205779%_ + _%tl205687205789%_)))) + (let ((_%hd205695205816%_ (let () (declare (not safe)) - (##car _%e205657205775%_))) - (_%tl205659205782%_ + (##car _%e205694205812%_))) + (_%tl205696205819%_ (let () (declare (not safe)) - (##cdr _%e205657205775%_)))) + (##cdr _%e205694205812%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205658205779%_)) - (let ((_%e205660205785%_ + _%hd205695205816%_)) + (let ((_%e205697205822%_ (let () (declare (not safe)) (gx#stx-e - _%hd205658205779%_)))) - (if (equal? _%e205660205785%_ + _%hd205695205816%_)))) + (if (equal? _%e205697205822%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205659205782%_)) - (let ((_%e205661205789%_ + (gx#stx-pair? _%tl205696205819%_)) + (let ((_%e205698205826%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205659205782%_)))) - (let ((_%hd205662205793%_ + (gx#syntax-e _%tl205696205819%_)))) + (let ((_%hd205699205830%_ (let () (declare (not safe)) - (##car _%e205661205789%_))) - (_%tl205663205796%_ + (##car _%e205698205826%_))) + (_%tl205700205833%_ (let () (declare (not safe)) - (##cdr _%e205661205789%_)))) + (##cdr _%e205698205826%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205662205793%_)) - (let ((_%e205664205799%_ + (gx#stx-pair? _%hd205699205830%_)) + (let ((_%e205701205836%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205662205793%_)))) - (let ((_%hd205665205803%_ + (gx#syntax-e _%hd205699205830%_)))) + (let ((_%hd205702205840%_ (let () (declare (not safe)) - (##car _%e205664205799%_))) - (_%tl205666205806%_ + (##car _%e205701205836%_))) + (_%tl205703205843%_ (let () (declare (not safe)) - (##cdr _%e205664205799%_)))) + (##cdr _%e205701205836%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205665205803%_)) - (if (let ((__tmp209232 - |gxc[1]#_g209233_|)) + (gx#identifier? _%hd205702205840%_)) + (if (let ((__tmp209269 + |gxc[1]#_g209270_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209232 - _%hd205665205803%_)) + __tmp209269 + _%hd205702205840%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205666205806%_)) - (let ((_%e205667205809%_ + _%tl205703205843%_)) + (let ((_%e205704205846%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205666205806%_)))) - (let ((_%hd205668205813%_ + _%tl205703205843%_)))) + (let ((_%hd205705205850%_ (let () (declare (not safe)) - (##car _%e205667205809%_))) - (_%tl205669205816%_ + (##car _%e205704205846%_))) + (_%tl205706205853%_ (let () (declare (not safe)) - (##cdr _%e205667205809%_)))) + (##cdr _%e205704205846%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205669205816%_)) + _%tl205706205853%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205663205796%_)) - (let ((_%e205670205819%_ + _%tl205700205833%_)) + (let ((_%e205707205856%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl205663205796%_)))) - (let ((_%hd205671205823%_ + (gx#syntax-e _%tl205700205833%_)))) + (let ((_%hd205708205860%_ (let () (declare (not safe)) - (##car _%e205670205819%_))) - (_%tl205672205826%_ + (##car _%e205707205856%_))) + (_%tl205709205863%_ (let () (declare (not safe)) - (##cdr _%e205670205819%_)))) + (##cdr _%e205707205856%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205671205823%_)) - (let ((_%e205673205829%_ + (gx#stx-datum? _%hd205708205860%_)) + (let ((_%e205710205866%_ (let () (declare (not safe)) - (gx#stx-e _%hd205671205823%_)))) - (if (equal? _%e205673205829%_ 'effect:) + (gx#stx-e _%hd205708205860%_)))) + (if (equal? _%e205710205866%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205672205826%_)) - (let ((_%e205674205833%_ + (gx#stx-pair? _%tl205709205863%_)) + (let ((_%e205711205870%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205672205826%_)))) - (let ((_%hd205675205837%_ + _%tl205709205863%_)))) + (let ((_%hd205712205874%_ (let () (declare (not safe)) - (##car _%e205674205833%_))) - (_%tl205676205840%_ + (##car _%e205711205870%_))) + (_%tl205713205877%_ (let () (declare (not safe)) - (##cdr _%e205674205833%_)))) + (##cdr _%e205711205870%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205675205837%_)) - (let ((_%e205677205843%_ + _%hd205712205874%_)) + (let ((_%e205714205880%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205675205837%_)))) - (let ((_%hd205678205847%_ + _%hd205712205874%_)))) + (let ((_%hd205715205884%_ (let () (declare (not safe)) - (##car _%e205677205843%_))) - (_%tl205679205850%_ + (##car _%e205714205880%_))) + (_%tl205716205887%_ (let () (declare (not safe)) - (##cdr _%e205677205843%_)))) + (##cdr _%e205714205880%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205678205847%_)) - (if (let ((__tmp209234 - |gxc[1]#_g209235_|)) + _%hd205715205884%_)) + (if (let ((__tmp209271 + |gxc[1]#_g209272_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209234 - _%hd205678205847%_)) + __tmp209271 + _%hd205715205884%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205679205850%_)) - (let ((_%e205680205853%_ + _%tl205716205887%_)) + (let ((_%e205717205890%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl205679205850%_)))) - (let ((_%hd205681205857%_ + (gx#syntax-e _%tl205716205887%_)))) + (let ((_%hd205718205894%_ (let () (declare (not safe)) - (##car _%e205680205853%_))) - (_%tl205682205860%_ + (##car _%e205717205890%_))) + (_%tl205719205897%_ (let () (declare (not safe)) - (##cdr _%e205680205853%_)))) + (##cdr _%e205717205890%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205682205860%_)) + (gx#stx-null? _%tl205719205897%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205676205840%_)) - (let ((_%e205683205863%_ + (gx#stx-pair? _%tl205713205877%_)) + (let ((_%e205720205900%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205676205840%_)))) - (let ((_%hd205684205867%_ + (gx#syntax-e _%tl205713205877%_)))) + (let ((_%hd205721205904%_ (let () (declare (not safe)) - (##car _%e205683205863%_))) - (_%tl205685205870%_ + (##car _%e205720205900%_))) + (_%tl205722205907%_ (let () (declare (not safe)) - (##cdr _%e205683205863%_)))) + (##cdr _%e205720205900%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205684205867%_)) - (let ((_%e205686205873%_ + (gx#stx-datum? _%hd205721205904%_)) + (let ((_%e205723205910%_ (let () (declare (not safe)) (gx#stx-e - _%hd205684205867%_)))) - (if (equal? _%e205686205873%_ + _%hd205721205904%_)))) + (if (equal? _%e205723205910%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205685205870%_)) - (let ((_%e205687205877%_ + _%tl205722205907%_)) + (let ((_%e205724205914%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205685205870%_)))) - (let ((_%hd205688205881%_ + _%tl205722205907%_)))) + (let ((_%hd205725205918%_ (let () (declare (not safe)) - (##car _%e205687205877%_))) - (_%tl205689205884%_ + (##car _%e205724205914%_))) + (_%tl205726205921%_ (let () (declare (not safe)) - (##cdr _%e205687205877%_)))) + (##cdr _%e205724205914%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205688205881%_)) - (let ((_%e205690205887%_ + _%hd205725205918%_)) + (let ((_%e205727205924%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd205688205881%_)))) - (let ((_%hd205691205891%_ + (gx#syntax-e _%hd205725205918%_)))) + (let ((_%hd205728205928%_ (let () (declare (not safe)) - (##car _%e205690205887%_))) - (_%tl205692205894%_ + (##car _%e205727205924%_))) + (_%tl205729205931%_ (let () (declare (not safe)) - (##cdr _%e205690205887%_)))) + (##cdr _%e205727205924%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205691205891%_)) - (if (let ((__tmp209236 |gxc[1]#_g209237_|)) + (gx#identifier? _%hd205728205928%_)) + (if (let ((__tmp209273 |gxc[1]#_g209274_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209236 - _%hd205691205891%_)) + __tmp209273 + _%hd205728205928%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205692205894%_)) - (let ((_%e205693205897%_ + (gx#stx-pair? _%tl205729205931%_)) + (let ((_%e205730205934%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205692205894%_)))) - (let ((_%hd205694205901%_ + (gx#syntax-e _%tl205729205931%_)))) + (let ((_%hd205731205938%_ (let () (declare (not safe)) - (##car _%e205693205897%_))) - (_%tl205695205904%_ + (##car _%e205730205934%_))) + (_%tl205732205941%_ (let () (declare (not safe)) - (##cdr _%e205693205897%_)))) + (##cdr _%e205730205934%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205695205904%_)) + (gx#stx-null? _%tl205732205941%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205689205884%_)) - (let ((_%e205696205907%_ + _%tl205726205921%_)) + (let ((_%e205733205944%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205689205884%_)))) - (let ((_%hd205697205911%_ + _%tl205726205921%_)))) + (let ((_%hd205734205948%_ (let () (declare (not safe)) - (##car _%e205696205907%_))) - (_%tl205698205914%_ + (##car _%e205733205944%_))) + (_%tl205735205951%_ (let () (declare (not safe)) - (##cdr _%e205696205907%_)))) + (##cdr _%e205733205944%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205697205911%_)) - (let ((_%e205699205917%_ + _%hd205734205948%_)) + (let ((_%e205736205954%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd205697205911%_)))) - (if (equal? _%e205699205917%_ 'origin:) + (gx#stx-e _%hd205734205948%_)))) + (if (equal? _%e205736205954%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205698205914%_)) - (let ((_%e205700205921%_ + (gx#stx-pair? _%tl205735205951%_)) + (let ((_%e205737205958%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205698205914%_)))) - (let ((_%hd205701205925%_ + (gx#syntax-e _%tl205735205951%_)))) + (let ((_%hd205738205962%_ (let () (declare (not safe)) - (##car _%e205700205921%_))) - (_%tl205702205928%_ + (##car _%e205737205958%_))) + (_%tl205739205965%_ (let () (declare (not safe)) - (##cdr _%e205700205921%_)))) + (##cdr _%e205737205958%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205701205925%_)) - (let ((_%e205703205931%_ + (gx#stx-pair? _%hd205738205962%_)) + (let ((_%e205740205968%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205701205925%_)))) - (let ((_%hd205704205935%_ + (gx#syntax-e _%hd205738205962%_)))) + (let ((_%hd205741205972%_ (let () (declare (not safe)) - (##car _%e205703205931%_))) - (_%tl205705205938%_ + (##car _%e205740205968%_))) + (_%tl205742205975%_ (let () (declare (not safe)) - (##cdr _%e205703205931%_)))) + (##cdr _%e205740205968%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205704205935%_)) - (if (let ((__tmp209238 - |gxc[1]#_g209239_|)) + (gx#identifier? _%hd205741205972%_)) + (if (let ((__tmp209275 + |gxc[1]#_g209276_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209238 - _%hd205704205935%_)) + __tmp209275 + _%hd205741205972%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205705205938%_)) - (let ((_%e205706205941%_ + _%tl205742205975%_)) + (let ((_%e205743205978%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205705205938%_)))) - (let ((_%hd205707205945%_ + _%tl205742205975%_)))) + (let ((_%hd205744205982%_ (let () (declare (not safe)) - (##car _%e205706205941%_))) - (_%tl205708205948%_ + (##car _%e205743205978%_))) + (_%tl205745205985%_ (let () (declare (not safe)) - (##cdr _%e205706205941%_)))) + (##cdr _%e205743205978%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205708205948%_)) + _%tl205745205985%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205702205928%_)) - ((lambda (_%L205951%_ + _%tl205739205965%_)) + ((lambda (_%L205988%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L205953%_ - _%L205954%_ - _%L205955%_ - _%L205956%_) - (if (let () (declare (not safe)) (gx#stx-e _%L205953%_)) - (cons _%L205953%_ + _%L205990%_ + _%L205991%_ + _%L205992%_ + _%L205993%_) + (if (let () (declare (not safe)) (gx#stx-e _%L205990%_)) + (cons _%L205990%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4681,180 +4681,180 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205955%_ '())) + (cons _%L205992%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205951%_ '())) + (cons _%L205988%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '#f)) - _%hd205707205945%_ - _%hd205694205901%_ - _%hd205681205857%_ - _%hd205668205813%_ - _%hd205655205769%_) - (_%g205634205714%_ _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_)))) + _%hd205744205982%_ + _%hd205731205938%_ + _%hd205718205894%_ + _%hd205705205850%_ + _%hd205692205806%_) + (_%g205671205751%_ _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205634205714%_ - _%g205635205718%_)) - (_%g205634205714%_ - _%g205635205718%_)) - (_%g205634205714%_ - _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_))) - (_%g205634205714%_ _%g205635205718%_)))) + (_%g205671205751%_ + _%g205672205755%_)) + (_%g205671205751%_ + _%g205672205755%_)) + (_%g205671205751%_ + _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_))) + (_%g205671205751%_ _%g205672205755%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205634205714%_ - _%g205635205718%_)) - (_%g205634205714%_ - _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)))) + (_%g205671205751%_ + _%g205672205755%_)) + (_%g205671205751%_ + _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205634205714%_ - _%g205635205718%_)) - (_%g205634205714%_ - _%g205635205718%_))) - (_%g205634205714%_ - _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_)) + (_%g205671205751%_ + _%g205672205755%_)) + (_%g205671205751%_ + _%g205672205755%_))) + (_%g205671205751%_ + _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205634205714%_ - _%g205635205718%_)))) - (_%g205634205714%_ - _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_))) - (_%g205634205714%_ _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_)))) + (_%g205671205751%_ + _%g205672205755%_)))) + (_%g205671205751%_ + _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_))) + (_%g205671205751%_ _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205634205714%_ - _%g205635205718%_)) - (_%g205634205714%_ - _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_))) + (_%g205671205751%_ + _%g205672205755%_)) + (_%g205671205751%_ + _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205634205714%_ - _%g205635205718%_)))) - (_%g205634205714%_ - _%g205635205718%_)) - (_%g205634205714%_ - _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_)) - (_%g205634205714%_ _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)))) + (_%g205671205751%_ + _%g205672205755%_)))) + (_%g205671205751%_ + _%g205672205755%_)) + (_%g205671205751%_ + _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_)) + (_%g205671205751%_ _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205634205714%_ - _%g205635205718%_)) - (_%g205634205714%_ - _%g205635205718%_))) - (_%g205634205714%_ _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_)))) - (_%g205634205714%_ _%g205635205718%_))))) - (_%g205633206016%_ _%sig205631%_)))) + (_%g205671205751%_ + _%g205672205755%_)) + (_%g205671205751%_ + _%g205672205755%_))) + (_%g205671205751%_ _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_)))) + (_%g205671205751%_ _%g205672205755%_))))) + (_%g205670206053%_ _%sig205668%_)))) (define |gxc[:0:]#declare-primitive-predicate| - (lambda (_%stx206788%_) - (let* ((_%g206791206809%_ - (lambda (_%g206792206805%_) + (lambda (_%stx206825%_) + (let* ((_%g206828206846%_ + (lambda (_%g206829206842%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206792206805%_)))) - (_%g206790206864%_ - (lambda (_%g206792206813%_) + _%g206829206842%_)))) + (_%g206827206901%_ + (lambda (_%g206829206850%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206792206813%_)) - (let ((_%e206795206816%_ + (gx#stx-pair? _%g206829206850%_)) + (let ((_%e206832206853%_ (let () (declare (not safe)) - (gx#syntax-e _%g206792206813%_)))) - (let ((_%hd206796206820%_ + (gx#syntax-e _%g206829206850%_)))) + (let ((_%hd206833206857%_ (let () (declare (not safe)) - (##car _%e206795206816%_))) - (_%tl206797206823%_ + (##car _%e206832206853%_))) + (_%tl206834206860%_ (let () (declare (not safe)) - (##cdr _%e206795206816%_)))) + (##cdr _%e206832206853%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206797206823%_)) - (let ((_%e206798206826%_ + (gx#stx-pair? _%tl206834206860%_)) + (let ((_%e206835206863%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206797206823%_)))) - (let ((_%hd206799206830%_ + (gx#syntax-e _%tl206834206860%_)))) + (let ((_%hd206836206867%_ (let () (declare (not safe)) - (##car _%e206798206826%_))) - (_%tl206800206833%_ + (##car _%e206835206863%_))) + (_%tl206837206870%_ (let () (declare (not safe)) - (##cdr _%e206798206826%_)))) + (##cdr _%e206835206863%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206800206833%_)) - (let ((_%e206801206836%_ + (gx#stx-pair? _%tl206837206870%_)) + (let ((_%e206838206873%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206800206833%_)))) - (let ((_%hd206802206840%_ + _%tl206837206870%_)))) + (let ((_%hd206839206877%_ (let () (declare (not safe)) - (##car _%e206801206836%_))) - (_%tl206803206843%_ + (##car _%e206838206873%_))) + (_%tl206840206880%_ (let () (declare (not safe)) - (##cdr _%e206801206836%_)))) + (##cdr _%e206838206873%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206803206843%_)) - ((lambda (_%L206846%_ - _%L206848%_) + _%tl206840206880%_)) + ((lambda (_%L206883%_ + _%L206885%_) (if (and (let () (declare (not safe)) (gx#identifier? - _%L206848%_)) + _%L206885%_)) (let () (declare (not safe)) (gx#identifier? - _%L206846%_))) + _%L206883%_))) (begin (|gxc[1]#verify-procedure!| - _%stx206788%_ - _%L206848%_) + _%stx206825%_ + _%L206885%_) (|gxc[1]#verify-class!| - _%stx206788%_ - _%L206846%_) + _%stx206825%_ + _%L206883%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206848%_ + (cons _%L206885%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4865,268 +4865,268 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206846%_ '())) + (cons _%L206883%_ '())) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206791206809%_ - _%g206792206813%_))) - _%hd206802206840%_ - _%hd206799206830%_) - (_%g206791206809%_ - _%g206792206813%_)))) - (_%g206791206809%_ _%g206792206813%_)))) - (_%g206791206809%_ _%g206792206813%_)))) - (_%g206791206809%_ _%g206792206813%_))))) - (_%g206790206864%_ _%stx206788%_)))) + (_%g206828206846%_ + _%g206829206850%_))) + _%hd206839206877%_ + _%hd206836206867%_) + (_%g206828206846%_ + _%g206829206850%_)))) + (_%g206828206846%_ _%g206829206850%_)))) + (_%g206828206846%_ _%g206829206850%_)))) + (_%g206828206846%_ _%g206829206850%_))))) + (_%g206827206901%_ _%stx206825%_)))) (define |gxc[:0:]#declare-primitive-lambda| - (lambda (_%stx206868%_) - (let* ((_%g206871206895%_ - (lambda (_%g206872206891%_) + (lambda (_%stx206905%_) + (let* ((_%g206908206932%_ + (lambda (_%g206909206928%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206872206891%_)))) - (_%g206870207178%_ - (lambda (_%g206872206899%_) + _%g206909206928%_)))) + (_%g206907207215%_ + (lambda (_%g206909206936%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206872206899%_)) - (let ((_%e206875206902%_ + (gx#stx-pair? _%g206909206936%_)) + (let ((_%e206912206939%_ (let () (declare (not safe)) - (gx#syntax-e _%g206872206899%_)))) - (let ((_%hd206876206906%_ + (gx#syntax-e _%g206909206936%_)))) + (let ((_%hd206913206943%_ (let () (declare (not safe)) - (##car _%e206875206902%_))) - (_%tl206877206909%_ + (##car _%e206912206939%_))) + (_%tl206914206946%_ (let () (declare (not safe)) - (##cdr _%e206875206902%_)))) + (##cdr _%e206912206939%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206877206909%_)) - (let ((_%e206878206912%_ + (gx#stx-pair? _%tl206914206946%_)) + (let ((_%e206915206949%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206877206909%_)))) - (let ((_%hd206879206916%_ + (gx#syntax-e _%tl206914206946%_)))) + (let ((_%hd206916206953%_ (let () (declare (not safe)) - (##car _%e206878206912%_))) - (_%tl206880206919%_ + (##car _%e206915206949%_))) + (_%tl206917206956%_ (let () (declare (not safe)) - (##cdr _%e206878206912%_)))) + (##cdr _%e206915206949%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl206880206919%_)) - (let ((_g209240_ + (gx#stx-pair/null? _%tl206917206956%_)) + (let ((_g209277_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl206880206919%_ + _%tl206917206956%_ '0)))) (begin - (let ((_g209241_ + (let ((_g209278_ (let () (declare (not safe)) - (if (##values? _g209240_) + (if (##values? _g209277_) (##vector-length - _g209240_) + _g209277_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209241_ 2))) + (##fx= _g209278_ 2))) (error "Context expects 2 values" - _g209241_))) - (let ((_%target206881206922%_ + _g209278_))) + (let ((_%target206918206959%_ (let () (declare (not safe)) - (##vector-ref _g209240_ 0))) - (_%tl206883206925%_ + (##vector-ref _g209277_ 0))) + (_%tl206920206962%_ (let () (declare (not safe)) (##vector-ref - _g209240_ + _g209277_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206883206925%_)) - (letrec ((_%loop206884206928%_ - (lambda (_%hd206882206932%_ + _%tl206920206962%_)) + (letrec ((_%loop206921206965%_ + (lambda (_%hd206919206969%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signature206888206935%_) + _%signature206925206972%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd206882206932%_)) - (let ((_%e206885206938%_ + (gx#stx-pair? _%hd206919206969%_)) + (let ((_%e206922206975%_ (let () (declare (not safe)) - (gx#syntax-e _%hd206882206932%_)))) - (let ((_%lp-hd206886206942%_ + (gx#syntax-e _%hd206919206969%_)))) + (let ((_%lp-hd206923206979%_ (let () (declare (not safe)) - (##car _%e206885206938%_))) - (_%lp-tl206887206945%_ + (##car _%e206922206975%_))) + (_%lp-tl206924206982%_ (let () (declare (not safe)) - (##cdr _%e206885206938%_)))) - (_%loop206884206928%_ - _%lp-tl206887206945%_ - (cons _%lp-hd206886206942%_ - _%signature206888206935%_)))) - (let ((_%signature206889206948%_ - (reverse _%signature206888206935%_))) - ((lambda (_%L206952%_ _%L206954%_) + (##cdr _%e206922206975%_)))) + (_%loop206921206965%_ + _%lp-tl206924206982%_ + (cons _%lp-hd206923206979%_ + _%signature206925206972%_)))) + (let ((_%signature206926206985%_ + (reverse _%signature206925206972%_))) + ((lambda (_%L206989%_ _%L206991%_) (if (let () (declare (not safe)) - (gx#identifier? _%L206954%_)) - (let* ((_%g206972206987%_ - (lambda (_%g206973206983%_) + (gx#identifier? _%L206991%_)) + (let* ((_%g207009207024%_ + (lambda (_%g207010207020%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206973206983%_)))) - (_%g206971207166%_ - (lambda (_%g206973206991%_) + _%g207010207020%_)))) + (_%g207008207203%_ + (lambda (_%g207010207028%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g206973206991%_)) - (let ((_%e206976206994%_ + _%g207010207028%_)) + (let ((_%e207013207031%_ (let () (declare (not safe)) (gx#syntax-e - _%g206973206991%_)))) - (let ((_%hd206977206998%_ + _%g207010207028%_)))) + (let ((_%hd207014207035%_ (let () (declare (not safe)) - (##car _%e206976206994%_))) - (_%tl206978207001%_ + (##car _%e207013207031%_))) + (_%tl207015207038%_ (let () (declare (not safe)) - (##cdr _%e206976206994%_)))) + (##cdr _%e207013207031%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206978207001%_)) - (let ((_%e206979207004%_ + _%tl207015207038%_)) + (let ((_%e207016207041%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl206978207001%_)))) - (let ((_%hd206980207008%_ + (gx#syntax-e _%tl207015207038%_)))) + (let ((_%hd207017207045%_ (let () (declare (not safe)) - (##car _%e206979207004%_))) - (_%tl206981207011%_ + (##car _%e207016207041%_))) + (_%tl207018207048%_ (let () (declare (not safe)) - (##cdr _%e206979207004%_)))) + (##cdr _%e207016207041%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206981207011%_)) - ((lambda (_%L207014%_ _%L207016%_) - (let* ((_%g207032207040%_ - (lambda (_%g207033207036%_) + (gx#stx-null? _%tl207018207048%_)) + ((lambda (_%L207051%_ _%L207053%_) + (let* ((_%g207069207077%_ + (lambda (_%g207070207073%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207033207036%_)))) - (_%g207031207162%_ - (lambda (_%g207033207044%_) - ((lambda (_%L207047%_) - (let* ((_%unchecked207060%_ + _%g207070207073%_)))) + (_%g207068207199%_ + (lambda (_%g207070207081%_) + ((lambda (_%L207084%_) + (let* ((_%unchecked207097%_ (|gxc[1]#signature->unchecked-signature| - _%L207014%_)) - (_%g207063207071%_ - (lambda (_%g207064207067%_) + _%L207051%_)) + (_%g207100207108%_ + (lambda (_%g207101207104%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207064207067%_)))) - (_%g207062207094%_ - (lambda (_%g207064207075%_) - ((lambda (_%L207078%_) + _%g207101207104%_)))) + (_%g207099207131%_ + (lambda (_%g207101207112%_) + ((lambda (_%L207115%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L207047%_ - (cons _%L207078%_ + (cons _%L207084%_ + (cons _%L207115%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g207064207075%_)))) - (_%g207062207094%_ - (if _%unchecked207060%_ - (let* ((_%g207098207113%_ - (lambda (_%g207099207109%_) + _%g207101207112%_)))) + (_%g207099207131%_ + (if _%unchecked207097%_ + (let* ((_%g207135207150%_ + (lambda (_%g207136207146%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207099207109%_)))) - (_%g207097207158%_ - (lambda (_%g207099207117%_) + _%g207136207146%_)))) + (_%g207134207195%_ + (lambda (_%g207136207154%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g207099207117%_)) - (let ((_%e207102207120%_ + _%g207136207154%_)) + (let ((_%e207139207157%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%g207099207117%_)))) - (let ((_%hd207103207124%_ + (gx#syntax-e _%g207136207154%_)))) + (let ((_%hd207140207161%_ (let () (declare (not safe)) - (##car _%e207102207120%_))) - (_%tl207104207127%_ + (##car _%e207139207157%_))) + (_%tl207141207164%_ (let () (declare (not safe)) - (##cdr _%e207102207120%_)))) + (##cdr _%e207139207157%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207104207127%_)) - (let ((_%e207105207130%_ + (gx#stx-pair? _%tl207141207164%_)) + (let ((_%e207142207167%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207104207127%_)))) - (let ((_%hd207106207134%_ + (gx#syntax-e _%tl207141207164%_)))) + (let ((_%hd207143207171%_ (let () (declare (not safe)) - (##car _%e207105207130%_))) - (_%tl207107207137%_ + (##car _%e207142207167%_))) + (_%tl207144207174%_ (let () (declare (not safe)) - (##cdr _%e207105207130%_)))) + (##cdr _%e207142207167%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207107207137%_)) - ((lambda (_%L207140%_ _%L207142%_) + (gx#stx-null? _%tl207144207174%_)) + ((lambda (_%L207177%_ _%L207179%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207142%_ + (cons _%L207179%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -5134,26 +5134,26 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207016%_ '())) + (cons _%L207053%_ '())) (cons '#f - (cons 'signature: (cons _%L207140%_ '()))))) + (cons 'signature: (cons _%L207177%_ '()))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd207106207134%_ - _%hd207103207124%_) - (_%g207098207113%_ _%g207099207117%_)))) - (_%g207098207113%_ _%g207099207117%_)))) - (_%g207098207113%_ _%g207099207117%_))))) + _%hd207143207171%_ + _%hd207140207161%_) + (_%g207135207150%_ _%g207136207154%_)))) + (_%g207135207150%_ _%g207136207154%_)))) + (_%g207135207150%_ _%g207136207154%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207097207158%_ - _%unchecked207060%_)) + (_%g207134207195%_ + _%unchecked207097%_)) '(begin))))) - _%g207033207044%_)))) - (_%g207031207162%_ + _%g207070207081%_)))) + (_%g207068207199%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206954%_ + (cons _%L206991%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5163,313 +5163,313 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207016%_ '())) - (cons '#f (cons 'signature: (cons _%L207014%_ '()))))) + (cons _%L207053%_ '())) + (cons '#f (cons 'signature: (cons _%L207051%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%hd206980207008%_ - _%hd206977206998%_) - (_%g206972206987%_ _%g206973206991%_)))) - (_%g206972206987%_ _%g206973206991%_)))) + _%hd207017207045%_ + _%hd207014207035%_) + (_%g207009207024%_ _%g207010207028%_)))) + (_%g207009207024%_ _%g207010207028%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206972206987%_ - _%g206973206991%_))))) - (_%g206971207166%_ + (_%g207009207024%_ + _%g207010207028%_))))) + (_%g207008207203%_ (|gxc[1]#parse-signature| - _%stx206868%_ - _%L206954%_ - (let ((__tmp209242 - (lambda (_%g207169207172%_ - _%g207170207175%_) - (cons _%g207169207172%_ - _%g207170207175%_)))) + _%stx206905%_ + _%L206991%_ + (let ((__tmp209279 + (lambda (_%g207206207209%_ + _%g207207207212%_) + (cons _%g207206207209%_ + _%g207207207212%_)))) (declare (not safe)) (__foldr1 - __tmp209242 + __tmp209279 '() - _%L206952%_))))) - (_%g206871206895%_ _%g206872206899%_))) - _%signature206889206948%_ - _%hd206879206916%_)))))) + _%L206989%_))))) + (_%g206908206932%_ _%g206909206936%_))) + _%signature206926206985%_ + _%hd206916206953%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop206884206928%_ - _%target206881206922%_ + (_%loop206921206965%_ + _%target206918206959%_ '())) - (_%g206871206895%_ - _%g206872206899%_))))) - (_%g206871206895%_ _%g206872206899%_)))) - (_%g206871206895%_ _%g206872206899%_)))) - (_%g206871206895%_ _%g206872206899%_))))) - (_%g206870207178%_ _%stx206868%_)))) + (_%g206908206932%_ + _%g206909206936%_))))) + (_%g206908206932%_ _%g206909206936%_)))) + (_%g206908206932%_ _%g206909206936%_)))) + (_%g206908206932%_ _%g206909206936%_))))) + (_%g206907207215%_ _%stx206905%_)))) (define |gxc[:0:]#declare-primitive-case-lambda| - (lambda (_%stx207183%_) - (let* ((_%g207186207210%_ - (lambda (_%g207187207206%_) + (lambda (_%stx207220%_) + (let* ((_%g207223207247%_ + (lambda (_%g207224207243%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207187207206%_)))) - (_%g207185208093%_ - (lambda (_%g207187207214%_) + _%g207224207243%_)))) + (_%g207222208130%_ + (lambda (_%g207224207251%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g207187207214%_)) - (let ((_%e207190207217%_ + (gx#stx-pair? _%g207224207251%_)) + (let ((_%e207227207254%_ (let () (declare (not safe)) - (gx#syntax-e _%g207187207214%_)))) - (let ((_%hd207191207221%_ + (gx#syntax-e _%g207224207251%_)))) + (let ((_%hd207228207258%_ (let () (declare (not safe)) - (##car _%e207190207217%_))) - (_%tl207192207224%_ + (##car _%e207227207254%_))) + (_%tl207229207261%_ (let () (declare (not safe)) - (##cdr _%e207190207217%_)))) + (##cdr _%e207227207254%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207192207224%_)) - (let ((_%e207193207227%_ + (gx#stx-pair? _%tl207229207261%_)) + (let ((_%e207230207264%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207192207224%_)))) - (let ((_%hd207194207231%_ + (gx#syntax-e _%tl207229207261%_)))) + (let ((_%hd207231207268%_ (let () (declare (not safe)) - (##car _%e207193207227%_))) - (_%tl207195207234%_ + (##car _%e207230207264%_))) + (_%tl207232207271%_ (let () (declare (not safe)) - (##cdr _%e207193207227%_)))) + (##cdr _%e207230207264%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl207195207234%_)) - (let ((_g209243_ + (gx#stx-pair/null? _%tl207232207271%_)) + (let ((_g209280_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl207195207234%_ + _%tl207232207271%_ '0)))) (begin - (let ((_g209244_ + (let ((_g209281_ (let () (declare (not safe)) - (if (##values? _g209243_) + (if (##values? _g209280_) (##vector-length - _g209243_) + _g209280_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209244_ 2))) + (##fx= _g209281_ 2))) (error "Context expects 2 values" - _g209244_))) - (let ((_%target207196207237%_ + _g209281_))) + (let ((_%target207233207274%_ (let () (declare (not safe)) - (##vector-ref _g209243_ 0))) - (_%tl207198207240%_ + (##vector-ref _g209280_ 0))) + (_%tl207235207277%_ (let () (declare (not safe)) (##vector-ref - _g209243_ + _g209280_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207198207240%_)) - (letrec ((_%loop207199207243%_ - (lambda (_%hd207197207247%_ + _%tl207235207277%_)) + (letrec ((_%loop207236207280%_ + (lambda (_%hd207234207284%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%case-signature207203207250%_) + _%case-signature207240207287%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207197207247%_)) - (let ((_%e207200207253%_ + (gx#stx-pair? _%hd207234207284%_)) + (let ((_%e207237207290%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207197207247%_)))) - (let ((_%lp-hd207201207257%_ + (gx#syntax-e _%hd207234207284%_)))) + (let ((_%lp-hd207238207294%_ (let () (declare (not safe)) - (##car _%e207200207253%_))) - (_%lp-tl207202207260%_ + (##car _%e207237207290%_))) + (_%lp-tl207239207297%_ (let () (declare (not safe)) - (##cdr _%e207200207253%_)))) - (_%loop207199207243%_ - _%lp-tl207202207260%_ - (cons _%lp-hd207201207257%_ - _%case-signature207203207250%_)))) - (let ((_%case-signature207204207263%_ - (reverse _%case-signature207203207250%_))) - ((lambda (_%L207267%_ _%L207269%_) + (##cdr _%e207237207290%_)))) + (_%loop207236207280%_ + _%lp-tl207239207297%_ + (cons _%lp-hd207238207294%_ + _%case-signature207240207287%_)))) + (let ((_%case-signature207241207300%_ + (reverse _%case-signature207240207287%_))) + ((lambda (_%L207304%_ _%L207306%_) (if (let () (declare (not safe)) - (gx#identifier? _%L207269%_)) - (let* ((_%signatures207300%_ - (map (lambda (_%g207286207288%_) + (gx#identifier? _%L207306%_)) + (let* ((_%signatures207337%_ + (map (lambda (_%g207323207325%_) (|gxc[1]#parse-signature| - _%stx207183%_ - _%L207269%_ - _%g207286207288%_)) - (let ((__tmp209245 - (lambda (_%g207291207294%_ - _%g207292207297%_) - (cons _%g207291207294%_ - _%g207292207297%_)))) + _%stx207220%_ + _%L207306%_ + _%g207323207325%_)) + (let ((__tmp209282 + (lambda (_%g207328207331%_ + _%g207329207334%_) + (cons _%g207328207331%_ + _%g207329207334%_)))) (declare (not safe)) (__foldr1 - __tmp209245 + __tmp209282 '() - _%L207267%_)))) - (_%g207303207329%_ - (lambda (_%g207304207325%_) + _%L207304%_)))) + (_%g207340207366%_ + (lambda (_%g207341207362%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207304207325%_)))) - (_%g207302208089%_ - (lambda (_%g207304207333%_) + _%g207341207362%_)))) + (_%g207339208126%_ + (lambda (_%g207341207370%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g207304207333%_)) - (let ((_g209246_ + _%g207341207370%_)) + (let ((_g209283_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g207304207333%_ + _%g207341207370%_ '0)))) (begin - (let ((_g209247_ + (let ((_g209284_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g209246_) - (##vector-length _g209246_) + _g209283_) + (##vector-length _g209283_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g209247_ 2))) - (error "Context expects 2 values" _g209247_))) + (##fx= _g209284_ 2))) + (error "Context expects 2 values" _g209284_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target207307207336%_ + (let ((_%target207344207373%_ (let () (declare (not safe)) (##vector-ref - _g209246_ + _g209283_ 0))) - (_%tl207309207339%_ + (_%tl207346207376%_ (let () (declare (not safe)) (##vector-ref - _g209246_ + _g209283_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207309207339%_)) - (letrec ((_%loop207310207342%_ + _%tl207346207376%_)) + (letrec ((_%loop207347207379%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd207308207346%_ - _%sig207314207349%_ - _%arity207315207351%_) + (lambda (_%hd207345207383%_ + _%sig207351207386%_ + _%arity207352207388%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207308207346%_)) - (let ((_%e207311207354%_ + (gx#stx-pair? _%hd207345207383%_)) + (let ((_%e207348207391%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207308207346%_)))) - (let ((_%lp-hd207312207358%_ + (gx#syntax-e _%hd207345207383%_)))) + (let ((_%lp-hd207349207395%_ (let () (declare (not safe)) - (##car _%e207311207354%_))) - (_%lp-tl207313207361%_ + (##car _%e207348207391%_))) + (_%lp-tl207350207398%_ (let () (declare (not safe)) - (##cdr _%e207311207354%_)))) + (##cdr _%e207348207391%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd207312207358%_)) - (let ((_%e207318207364%_ + _%lp-hd207349207395%_)) + (let ((_%e207355207401%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd207312207358%_)))) - (let ((_%hd207319207368%_ + _%lp-hd207349207395%_)))) + (let ((_%hd207356207405%_ (let () (declare (not safe)) - (##car _%e207318207364%_))) - (_%tl207320207371%_ + (##car _%e207355207401%_))) + (_%tl207357207408%_ (let () (declare (not safe)) - (##cdr _%e207318207364%_)))) + (##cdr _%e207355207401%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207320207371%_)) - (let ((_%e207321207374%_ + _%tl207357207408%_)) + (let ((_%e207358207411%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207320207371%_)))) - (let ((_%hd207322207378%_ + _%tl207357207408%_)))) + (let ((_%hd207359207415%_ (let () (declare (not safe)) - (##car _%e207321207374%_))) - (_%tl207323207381%_ + (##car _%e207358207411%_))) + (_%tl207360207418%_ (let () (declare (not safe)) - (##cdr _%e207321207374%_)))) + (##cdr _%e207358207411%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207323207381%_)) - (_%loop207310207342%_ - _%lp-tl207313207361%_ - (cons _%hd207322207378%_ - _%sig207314207349%_) - (cons _%hd207319207368%_ - _%arity207315207351%_)) - (_%g207303207329%_ - _%g207304207333%_)))) - (_%g207303207329%_ - _%g207304207333%_)))) - (_%g207303207329%_ - _%g207304207333%_)))) - (let ((_%sig207316207384%_ - (reverse _%sig207314207349%_)) - (_%arity207317207387%_ - (reverse _%arity207315207351%_))) - ((lambda (_%L207390%_ _%L207392%_) - (let* ((_%g207409207417%_ - (lambda (_%g207410207413%_) + _%tl207360207418%_)) + (_%loop207347207379%_ + _%lp-tl207350207398%_ + (cons _%hd207359207415%_ + _%sig207351207386%_) + (cons _%hd207356207405%_ + _%arity207352207388%_)) + (_%g207340207366%_ + _%g207341207370%_)))) + (_%g207340207366%_ + _%g207341207370%_)))) + (_%g207340207366%_ + _%g207341207370%_)))) + (let ((_%sig207353207421%_ + (reverse _%sig207351207386%_)) + (_%arity207354207424%_ + (reverse _%arity207352207388%_))) + ((lambda (_%L207427%_ _%L207429%_) + (let* ((_%g207446207454%_ + (lambda (_%g207447207450%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207410207413%_)))) - (_%g207408208074%_ - (lambda (_%g207410207421%_) - ((lambda (_%L207424%_) - (let* ((_%g207437207445%_ - (lambda (_%g207438207441%_) + _%g207447207450%_)))) + (_%g207445208111%_ + (lambda (_%g207447207458%_) + ((lambda (_%L207461%_) + (let* ((_%g207474207482%_ + (lambda (_%g207475207478%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5477,551 +5477,551 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207438207441%_)))) - (_%g207436207467%_ - (lambda (_%g207438207449%_) - ((lambda (_%L207452%_) + _%g207475207478%_)))) + (_%g207473207504%_ + (lambda (_%g207475207486%_) + ((lambda (_%L207489%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L207424%_ (cons _%L207452%_ '())))) - _%g207438207449%_)))) + (cons _%L207461%_ (cons _%L207489%_ '())))) + _%g207475207486%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207436207467%_ - (let ((_g209248_ - (let _%loop207471%_ ((_%rest207474%_ + (_%g207473207504%_ + (let ((_g209285_ + (let _%loop207508%_ ((_%rest207511%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signatures207300%_) - (_%unchecked-proc207476%_ '#f) - (_%unchecked-clauses207477%_ '())) - (let* ((_%rest207478207486%_ _%rest207474%_) - (_%else207480207498%_ + _%signatures207337%_) + (_%unchecked-proc207513%_ '#f) + (_%unchecked-clauses207514%_ '())) + (let* ((_%rest207515207523%_ _%rest207511%_) + (_%else207517207535%_ (lambda () - (values _%unchecked-proc207476%_ + (values _%unchecked-proc207513%_ (reverse! - _%unchecked-clauses207477%_)))) - (_%K207482207939%_ - (lambda (_%rest207502%_ _%hd207504%_) - (let* ((_%g207506207593%_ - (lambda (_%g207507207589%_) + _%unchecked-clauses207514%_)))) + (_%K207519207976%_ + (lambda (_%rest207539%_ _%hd207541%_) + (let* ((_%g207543207630%_ + (lambda (_%g207544207626%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207507207589%_)))) - (_%g207505207935%_ - (lambda (_%g207507207597%_) + _%g207544207626%_)))) + (_%g207542207972%_ + (lambda (_%g207544207634%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g207507207597%_)) - (let ((_%e207514207600%_ + _%g207544207634%_)) + (let ((_%e207551207637%_ (let () (declare (not safe)) (gx#syntax-e - _%g207507207597%_)))) - (let ((_%hd207515207604%_ + _%g207544207634%_)))) + (let ((_%hd207552207641%_ (let () (declare (not safe)) - (##car _%e207514207600%_))) - (_%tl207516207607%_ + (##car _%e207551207637%_))) + (_%tl207553207644%_ (let () (declare (not safe)) - (##cdr _%e207514207600%_)))) + (##cdr _%e207551207637%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207516207607%_)) - (let ((_%e207517207610%_ + _%tl207553207644%_)) + (let ((_%e207554207647%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl207516207607%_)))) - (let ((_%hd207518207614%_ + (gx#syntax-e _%tl207553207644%_)))) + (let ((_%hd207555207651%_ (let () (declare (not safe)) - (##car _%e207517207610%_))) - (_%tl207519207617%_ + (##car _%e207554207647%_))) + (_%tl207556207654%_ (let () (declare (not safe)) - (##cdr _%e207517207610%_)))) + (##cdr _%e207554207647%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207518207614%_)) - (let ((_%e207520207620%_ + (gx#stx-pair? _%hd207555207651%_)) + (let ((_%e207557207657%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207518207614%_)))) - (let ((_%hd207521207624%_ + (gx#syntax-e _%hd207555207651%_)))) + (let ((_%hd207558207661%_ (let () (declare (not safe)) - (##car _%e207520207620%_))) - (_%tl207522207627%_ + (##car _%e207557207657%_))) + (_%tl207559207664%_ (let () (declare (not safe)) - (##cdr _%e207520207620%_)))) + (##cdr _%e207557207657%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207522207627%_)) - (let ((_%e207523207630%_ + (gx#stx-pair? _%tl207559207664%_)) + (let ((_%e207560207667%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207522207627%_)))) - (let ((_%hd207524207634%_ + (gx#syntax-e _%tl207559207664%_)))) + (let ((_%hd207561207671%_ (let () (declare (not safe)) - (##car _%e207523207630%_))) - (_%tl207525207637%_ + (##car _%e207560207667%_))) + (_%tl207562207674%_ (let () (declare (not safe)) - (##cdr _%e207523207630%_)))) + (##cdr _%e207560207667%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207524207634%_)) - (let ((_%e207526207640%_ + (gx#stx-datum? _%hd207561207671%_)) + (let ((_%e207563207677%_ (let () (declare (not safe)) (gx#stx-e - _%hd207524207634%_)))) - (if (equal? _%e207526207640%_ + _%hd207561207671%_)))) + (if (equal? _%e207563207677%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207525207637%_)) - (let ((_%e207527207644%_ + _%tl207562207674%_)) + (let ((_%e207564207681%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207525207637%_)))) - (let ((_%hd207528207648%_ + _%tl207562207674%_)))) + (let ((_%hd207565207685%_ (let () (declare (not safe)) - (##car _%e207527207644%_))) - (_%tl207529207651%_ + (##car _%e207564207681%_))) + (_%tl207566207688%_ (let () (declare (not safe)) - (##cdr _%e207527207644%_)))) + (##cdr _%e207564207681%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207528207648%_)) - (let ((_%e207530207654%_ + _%hd207565207685%_)) + (let ((_%e207567207691%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd207528207648%_)))) - (let ((_%hd207531207658%_ + (gx#syntax-e _%hd207565207685%_)))) + (let ((_%hd207568207695%_ (let () (declare (not safe)) - (##car _%e207530207654%_))) - (_%tl207532207661%_ + (##car _%e207567207691%_))) + (_%tl207569207698%_ (let () (declare (not safe)) - (##cdr _%e207530207654%_)))) + (##cdr _%e207567207691%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207531207658%_)) - (if (let ((__tmp209250 |gxc[1]#_g209251_|)) + (gx#identifier? _%hd207568207695%_)) + (if (let ((__tmp209287 |gxc[1]#_g209288_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209250 - _%hd207531207658%_)) + __tmp209287 + _%hd207568207695%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207532207661%_)) - (let ((_%e207533207664%_ + (gx#stx-pair? _%tl207569207698%_)) + (let ((_%e207570207701%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207532207661%_)))) - (let ((_%hd207534207668%_ + (gx#syntax-e _%tl207569207698%_)))) + (let ((_%hd207571207705%_ (let () (declare (not safe)) - (##car _%e207533207664%_))) - (_%tl207535207671%_ + (##car _%e207570207701%_))) + (_%tl207572207708%_ (let () (declare (not safe)) - (##cdr _%e207533207664%_)))) + (##cdr _%e207570207701%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207535207671%_)) + (gx#stx-null? _%tl207572207708%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207529207651%_)) - (let ((_%e207536207674%_ + _%tl207566207688%_)) + (let ((_%e207573207711%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207529207651%_)))) - (let ((_%hd207537207678%_ + _%tl207566207688%_)))) + (let ((_%hd207574207715%_ (let () (declare (not safe)) - (##car _%e207536207674%_))) - (_%tl207538207681%_ + (##car _%e207573207711%_))) + (_%tl207575207718%_ (let () (declare (not safe)) - (##cdr _%e207536207674%_)))) + (##cdr _%e207573207711%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd207537207678%_)) - (let ((_%e207539207684%_ + _%hd207574207715%_)) + (let ((_%e207576207721%_ (let () (declare (not safe)) (gx#stx-e - _%hd207537207678%_)))) - (if (equal? _%e207539207684%_ + _%hd207574207715%_)))) + (if (equal? _%e207576207721%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207538207681%_)) - (let ((_%e207540207688%_ + (gx#stx-pair? _%tl207575207718%_)) + (let ((_%e207577207725%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207538207681%_)))) - (let ((_%hd207541207692%_ + (gx#syntax-e _%tl207575207718%_)))) + (let ((_%hd207578207729%_ (let () (declare (not safe)) - (##car _%e207540207688%_))) - (_%tl207542207695%_ + (##car _%e207577207725%_))) + (_%tl207579207732%_ (let () (declare (not safe)) - (##cdr _%e207540207688%_)))) + (##cdr _%e207577207725%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207541207692%_)) - (let ((_%e207543207698%_ + (gx#stx-pair? _%hd207578207729%_)) + (let ((_%e207580207735%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207541207692%_)))) - (let ((_%hd207544207702%_ + (gx#syntax-e _%hd207578207729%_)))) + (let ((_%hd207581207739%_ (let () (declare (not safe)) - (##car _%e207543207698%_))) - (_%tl207545207705%_ + (##car _%e207580207735%_))) + (_%tl207582207742%_ (let () (declare (not safe)) - (##cdr _%e207543207698%_)))) + (##cdr _%e207580207735%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207544207702%_)) - (if (let ((__tmp209252 - |gxc[1]#_g209253_|)) + (gx#identifier? _%hd207581207739%_)) + (if (let ((__tmp209289 + |gxc[1]#_g209290_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209252 - _%hd207544207702%_)) + __tmp209289 + _%hd207581207739%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207545207705%_)) - (let ((_%e207546207708%_ + _%tl207582207742%_)) + (let ((_%e207583207745%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207545207705%_)))) - (let ((_%hd207547207712%_ + _%tl207582207742%_)))) + (let ((_%hd207584207749%_ (let () (declare (not safe)) - (##car _%e207546207708%_))) - (_%tl207548207715%_ + (##car _%e207583207745%_))) + (_%tl207585207752%_ (let () (declare (not safe)) - (##cdr _%e207546207708%_)))) + (##cdr _%e207583207745%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207548207715%_)) + _%tl207585207752%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207542207695%_)) - (let ((_%e207549207718%_ + _%tl207579207732%_)) + (let ((_%e207586207755%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl207542207695%_)))) - (let ((_%hd207550207722%_ + (gx#syntax-e _%tl207579207732%_)))) + (let ((_%hd207587207759%_ (let () (declare (not safe)) - (##car _%e207549207718%_))) - (_%tl207551207725%_ + (##car _%e207586207755%_))) + (_%tl207588207762%_ (let () (declare (not safe)) - (##cdr _%e207549207718%_)))) + (##cdr _%e207586207755%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207550207722%_)) - (let ((_%e207552207728%_ + (gx#stx-datum? _%hd207587207759%_)) + (let ((_%e207589207765%_ (let () (declare (not safe)) - (gx#stx-e _%hd207550207722%_)))) - (if (equal? _%e207552207728%_ 'effect:) + (gx#stx-e _%hd207587207759%_)))) + (if (equal? _%e207589207765%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207551207725%_)) - (let ((_%e207553207732%_ + (gx#stx-pair? _%tl207588207762%_)) + (let ((_%e207590207769%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207551207725%_)))) - (let ((_%hd207554207736%_ + _%tl207588207762%_)))) + (let ((_%hd207591207773%_ (let () (declare (not safe)) - (##car _%e207553207732%_))) - (_%tl207555207739%_ + (##car _%e207590207769%_))) + (_%tl207592207776%_ (let () (declare (not safe)) - (##cdr _%e207553207732%_)))) + (##cdr _%e207590207769%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207554207736%_)) - (let ((_%e207556207742%_ + _%hd207591207773%_)) + (let ((_%e207593207779%_ (let () (declare (not safe)) (gx#syntax-e - _%hd207554207736%_)))) - (let ((_%hd207557207746%_ + _%hd207591207773%_)))) + (let ((_%hd207594207783%_ (let () (declare (not safe)) - (##car _%e207556207742%_))) - (_%tl207558207749%_ + (##car _%e207593207779%_))) + (_%tl207595207786%_ (let () (declare (not safe)) - (##cdr _%e207556207742%_)))) + (##cdr _%e207593207779%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd207557207746%_)) - (if (let ((__tmp209254 - |gxc[1]#_g209255_|)) + _%hd207594207783%_)) + (if (let ((__tmp209291 + |gxc[1]#_g209292_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209254 - _%hd207557207746%_)) + __tmp209291 + _%hd207594207783%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl207558207749%_)) - (let ((_%e207559207752%_ + (gx#stx-pair? _%tl207595207786%_)) + (let ((_%e207596207789%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207558207749%_)))) - (let ((_%hd207560207756%_ + (gx#syntax-e _%tl207595207786%_)))) + (let ((_%hd207597207793%_ (let () (declare (not safe)) - (##car _%e207559207752%_))) - (_%tl207561207759%_ + (##car _%e207596207789%_))) + (_%tl207598207796%_ (let () (declare (not safe)) - (##cdr _%e207559207752%_)))) + (##cdr _%e207596207789%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207561207759%_)) + (gx#stx-null? _%tl207598207796%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207555207739%_)) - (let ((_%e207562207762%_ + (gx#stx-pair? _%tl207592207776%_)) + (let ((_%e207599207799%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207555207739%_)))) - (let ((_%hd207563207766%_ + (gx#syntax-e _%tl207592207776%_)))) + (let ((_%hd207600207803%_ (let () (declare (not safe)) - (##car _%e207562207762%_))) - (_%tl207564207769%_ + (##car _%e207599207799%_))) + (_%tl207601207806%_ (let () (declare (not safe)) - (##cdr _%e207562207762%_)))) + (##cdr _%e207599207799%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207563207766%_)) - (let ((_%e207565207772%_ + (gx#stx-datum? _%hd207600207803%_)) + (let ((_%e207602207809%_ (let () (declare (not safe)) (gx#stx-e - _%hd207563207766%_)))) - (if (equal? _%e207565207772%_ + _%hd207600207803%_)))) + (if (equal? _%e207602207809%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207564207769%_)) - (let ((_%e207566207776%_ + _%tl207601207806%_)) + (let ((_%e207603207813%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207564207769%_)))) - (let ((_%hd207567207780%_ + _%tl207601207806%_)))) + (let ((_%hd207604207817%_ (let () (declare (not safe)) - (##car _%e207566207776%_))) - (_%tl207568207783%_ + (##car _%e207603207813%_))) + (_%tl207605207820%_ (let () (declare (not safe)) - (##cdr _%e207566207776%_)))) + (##cdr _%e207603207813%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207567207780%_)) - (let ((_%e207569207786%_ + _%hd207604207817%_)) + (let ((_%e207606207823%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd207567207780%_)))) - (let ((_%hd207570207790%_ + (gx#syntax-e _%hd207604207817%_)))) + (let ((_%hd207607207827%_ (let () (declare (not safe)) - (##car _%e207569207786%_))) - (_%tl207571207793%_ + (##car _%e207606207823%_))) + (_%tl207608207830%_ (let () (declare (not safe)) - (##cdr _%e207569207786%_)))) + (##cdr _%e207606207823%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207570207790%_)) - (if (let ((__tmp209256 |gxc[1]#_g209257_|)) + (gx#identifier? _%hd207607207827%_)) + (if (let ((__tmp209293 |gxc[1]#_g209294_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209256 - _%hd207570207790%_)) + __tmp209293 + _%hd207607207827%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207571207793%_)) - (let ((_%e207572207796%_ + (gx#stx-pair? _%tl207608207830%_)) + (let ((_%e207609207833%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207571207793%_)))) - (let ((_%hd207573207800%_ + (gx#syntax-e _%tl207608207830%_)))) + (let ((_%hd207610207837%_ (let () (declare (not safe)) - (##car _%e207572207796%_))) - (_%tl207574207803%_ + (##car _%e207609207833%_))) + (_%tl207611207840%_ (let () (declare (not safe)) - (##cdr _%e207572207796%_)))) + (##cdr _%e207609207833%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207574207803%_)) + (gx#stx-null? _%tl207611207840%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207568207783%_)) - (let ((_%e207575207806%_ + _%tl207605207820%_)) + (let ((_%e207612207843%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207568207783%_)))) - (let ((_%hd207576207810%_ + _%tl207605207820%_)))) + (let ((_%hd207613207847%_ (let () (declare (not safe)) - (##car _%e207575207806%_))) - (_%tl207577207813%_ + (##car _%e207612207843%_))) + (_%tl207614207850%_ (let () (declare (not safe)) - (##cdr _%e207575207806%_)))) + (##cdr _%e207612207843%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd207576207810%_)) - (let ((_%e207578207816%_ + _%hd207613207847%_)) + (let ((_%e207615207853%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd207576207810%_)))) - (if (equal? _%e207578207816%_ 'origin:) + (gx#stx-e _%hd207613207847%_)))) + (if (equal? _%e207615207853%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207577207813%_)) - (let ((_%e207579207820%_ + (gx#stx-pair? _%tl207614207850%_)) + (let ((_%e207616207857%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207577207813%_)))) - (let ((_%hd207580207824%_ + (gx#syntax-e _%tl207614207850%_)))) + (let ((_%hd207617207861%_ (let () (declare (not safe)) - (##car _%e207579207820%_))) - (_%tl207581207827%_ + (##car _%e207616207857%_))) + (_%tl207618207864%_ (let () (declare (not safe)) - (##cdr _%e207579207820%_)))) + (##cdr _%e207616207857%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207580207824%_)) - (let ((_%e207582207830%_ + (gx#stx-pair? _%hd207617207861%_)) + (let ((_%e207619207867%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207580207824%_)))) - (let ((_%hd207583207834%_ + (gx#syntax-e _%hd207617207861%_)))) + (let ((_%hd207620207871%_ (let () (declare (not safe)) - (##car _%e207582207830%_))) - (_%tl207584207837%_ + (##car _%e207619207867%_))) + (_%tl207621207874%_ (let () (declare (not safe)) - (##cdr _%e207582207830%_)))) + (##cdr _%e207619207867%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207583207834%_)) - (if (let ((__tmp209258 - |gxc[1]#_g209259_|)) + (gx#identifier? _%hd207620207871%_)) + (if (let ((__tmp209295 + |gxc[1]#_g209296_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209258 - _%hd207583207834%_)) + __tmp209295 + _%hd207620207871%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207584207837%_)) - (let ((_%e207585207840%_ + _%tl207621207874%_)) + (let ((_%e207622207877%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207584207837%_)))) - (let ((_%hd207586207844%_ + _%tl207621207874%_)))) + (let ((_%hd207623207881%_ (let () (declare (not safe)) - (##car _%e207585207840%_))) - (_%tl207587207847%_ + (##car _%e207622207877%_))) + (_%tl207624207884%_ (let () (declare (not safe)) - (##cdr _%e207585207840%_)))) + (##cdr _%e207622207877%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207587207847%_)) + _%tl207624207884%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl207581207827%_)) + (gx#stx-null? _%tl207618207864%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207519207617%_)) - ((lambda (_%L207850%_ - _%L207852%_ - _%L207853%_ - _%L207854%_ - _%L207855%_ - _%L207856%_) - (let ((_%clause207927%_ + (gx#stx-null? _%tl207556207654%_)) + ((lambda (_%L207887%_ + _%L207889%_ + _%L207890%_ + _%L207891%_ + _%L207892%_ + _%L207893%_) + (let ((_%clause207964%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6032,7 +6032,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207856%_ '())) + (cons _%L207893%_ '())) (cons '#f (cons 'signature: (cons (cons (let () @@ -6045,256 +6045,256 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207854%_ '())) + (cons _%L207891%_ '())) (cons 'origin: (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207850%_ '())) + (cons _%L207887%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%unchecked207929%_ + (_%unchecked207966%_ (let () (declare (not safe)) - (gx#stx-e _%L207852%_)))) - (_%loop207471%_ - _%rest207502%_ - (let ((_%$e207931%_ _%unchecked207929%_)) - (if _%$e207931%_ - _%$e207931%_ - _%unchecked-proc207476%_)) - (cons _%clause207927%_ - _%unchecked-clauses207477%_)))) - _%hd207586207844%_ - _%hd207573207800%_ - _%hd207560207756%_ - _%hd207547207712%_ - _%hd207534207668%_ - _%hd207515207604%_) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_)))) + (gx#stx-e _%L207889%_)))) + (_%loop207508%_ + _%rest207539%_ + (let ((_%$e207968%_ _%unchecked207966%_)) + (if _%$e207968%_ + _%$e207968%_ + _%unchecked-proc207513%_)) + (cons _%clause207964%_ + _%unchecked-clauses207514%_)))) + _%hd207623207881%_ + _%hd207610207837%_ + _%hd207597207793%_ + _%hd207584207749%_ + _%hd207571207705%_ + _%hd207552207641%_) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207506207593%_ - _%g207507207597%_)) - (_%g207506207593%_ - _%g207507207597%_)) - (_%g207506207593%_ - _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_))) - (_%g207506207593%_ _%g207507207597%_)))) + (_%g207543207630%_ + _%g207544207634%_)) + (_%g207543207630%_ + _%g207544207634%_)) + (_%g207543207630%_ + _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_))) + (_%g207543207630%_ _%g207544207634%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207506207593%_ - _%g207507207597%_)) - (_%g207506207593%_ - _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)))) + (_%g207543207630%_ + _%g207544207634%_)) + (_%g207543207630%_ + _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207506207593%_ - _%g207507207597%_)) - (_%g207506207593%_ - _%g207507207597%_))) - (_%g207506207593%_ - _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_)) + (_%g207543207630%_ + _%g207544207634%_)) + (_%g207543207630%_ + _%g207544207634%_))) + (_%g207543207630%_ + _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207506207593%_ - _%g207507207597%_)))) - (_%g207506207593%_ - _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_))) - (_%g207506207593%_ _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_)))) + (_%g207543207630%_ + _%g207544207634%_)))) + (_%g207543207630%_ + _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_))) + (_%g207543207630%_ _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207506207593%_ - _%g207507207597%_)) - (_%g207506207593%_ - _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_))) + (_%g207543207630%_ + _%g207544207634%_)) + (_%g207543207630%_ + _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207506207593%_ - _%g207507207597%_)))) - (_%g207506207593%_ - _%g207507207597%_)) - (_%g207506207593%_ - _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_)) - (_%g207506207593%_ _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)))) + (_%g207543207630%_ + _%g207544207634%_)))) + (_%g207543207630%_ + _%g207544207634%_)) + (_%g207543207630%_ + _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_)) + (_%g207543207630%_ _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207506207593%_ - _%g207507207597%_)) - (_%g207506207593%_ - _%g207507207597%_))) - (_%g207506207593%_ _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)))) - (_%g207506207593%_ _%g207507207597%_)))) + (_%g207543207630%_ + _%g207544207634%_)) + (_%g207543207630%_ + _%g207544207634%_))) + (_%g207543207630%_ _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)))) + (_%g207543207630%_ _%g207544207634%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207506207593%_ - _%g207507207597%_))))) - (_%g207505207935%_ _%hd207504%_))))) - (if (pair? _%rest207478207486%_) - (let ((_%hd207483207943%_ + (_%g207543207630%_ + _%g207544207634%_))))) + (_%g207542207972%_ _%hd207541%_))))) + (if (pair? _%rest207515207523%_) + (let ((_%hd207520207980%_ (let () (declare (not safe)) - (##car _%rest207478207486%_))) - (_%tl207484207946%_ + (##car _%rest207515207523%_))) + (_%tl207521207983%_ (let () (declare (not safe)) - (##cdr _%rest207478207486%_)))) - (let* ((_%hd207949%_ _%hd207483207943%_) - (_%rest207952%_ _%tl207484207946%_)) - (_%K207482207939%_ - _%rest207952%_ - _%hd207949%_))) - (_%else207480207498%_)))))) + (##cdr _%rest207515207523%_)))) + (let* ((_%hd207986%_ _%hd207520207980%_) + (_%rest207989%_ _%tl207521207983%_)) + (_%K207519207976%_ + _%rest207989%_ + _%hd207986%_))) + (_%else207517207535%_)))))) (begin - (let ((_g209249_ + (let ((_g209286_ (let () (declare (not safe)) - (if (##values? _g209248_) - (##vector-length _g209248_) + (if (##values? _g209285_) + (##vector-length _g209285_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g209249_ 2))) - (error "Context expects 2 values" _g209249_))) - (let ((_%unchecked-proc207955%_ + (if (not (let () (declare (not safe)) (##fx= _g209286_ 2))) + (error "Context expects 2 values" _g209286_))) + (let ((_%unchecked-proc207992%_ (let () (declare (not safe)) - (##vector-ref _g209248_ 0))) - (_%unchecked-clauses207957%_ + (##vector-ref _g209285_ 0))) + (_%unchecked-clauses207994%_ (let () (declare (not safe)) - (##vector-ref _g209248_ 1)))) - (if _%unchecked-proc207955%_ - (let* ((_%g207959207983%_ - (lambda (_%g207960207979%_) + (##vector-ref _g209285_ 1)))) + (if _%unchecked-proc207992%_ + (let* ((_%g207996208020%_ + (lambda (_%g207997208016%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207960207979%_)))) - (_%g207958208070%_ - (lambda (_%g207960207987%_) + _%g207997208016%_)))) + (_%g207995208107%_ + (lambda (_%g207997208024%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g207960207987%_)) - (let ((_%e207963207990%_ + (gx#stx-pair? _%g207997208024%_)) + (let ((_%e208000208027%_ (let () (declare (not safe)) (gx#syntax-e - _%g207960207987%_)))) - (let ((_%hd207964207994%_ + _%g207997208024%_)))) + (let ((_%hd208001208031%_ (let () (declare (not safe)) - (##car _%e207963207990%_))) - (_%tl207965207997%_ + (##car _%e208000208027%_))) + (_%tl208002208034%_ (let () (declare (not safe)) - (##cdr _%e207963207990%_)))) + (##cdr _%e208000208027%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207965207997%_)) - (let ((_%e207966208000%_ + _%tl208002208034%_)) + (let ((_%e208003208037%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207965207997%_)))) - (let ((_%hd207967208004%_ + _%tl208002208034%_)))) + (let ((_%hd208004208041%_ (let () (declare (not safe)) - (##car _%e207966208000%_))) - (_%tl207968208007%_ + (##car _%e208003208037%_))) + (_%tl208005208044%_ (let () (declare (not safe)) - (##cdr _%e207966208000%_)))) + (##cdr _%e208003208037%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd207967208004%_)) - (let ((_g209260_ + _%hd208004208041%_)) + (let ((_g209297_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%hd207967208004%_ '0)))) + (gx#syntax-split-splice _%hd208004208041%_ '0)))) (begin - (let ((_g209261_ + (let ((_g209298_ (let () (declare (not safe)) - (if (##values? _g209260_) - (##vector-length _g209260_) + (if (##values? _g209297_) + (##vector-length _g209297_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g209261_ 2))) - (error "Context expects 2 values" _g209261_))) - (let ((_%target207969208010%_ + (if (not (let () (declare (not safe)) (##fx= _g209298_ 2))) + (error "Context expects 2 values" _g209298_))) + (let ((_%target208006208047%_ (let () (declare (not safe)) - (##vector-ref _g209260_ 0))) - (_%tl207971208013%_ + (##vector-ref _g209297_ 0))) + (_%tl208008208050%_ (let () (declare (not safe)) - (##vector-ref _g209260_ 1)))) + (##vector-ref _g209297_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207971208013%_)) - (letrec ((_%loop207972208016%_ - (lambda (_%hd207970208020%_ - _%clause207976208023%_) + (gx#stx-null? _%tl208008208050%_)) + (letrec ((_%loop208009208053%_ + (lambda (_%hd208007208057%_ + _%clause208013208060%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207970208020%_)) - (let ((_%e207973208026%_ + (gx#stx-pair? _%hd208007208057%_)) + (let ((_%e208010208063%_ (let () (declare (not safe)) (gx#syntax-e - _%hd207970208020%_)))) - (let ((_%lp-hd207974208030%_ + _%hd208007208057%_)))) + (let ((_%lp-hd208011208067%_ (let () (declare (not safe)) - (##car _%e207973208026%_))) - (_%lp-tl207975208033%_ + (##car _%e208010208063%_))) + (_%lp-tl208012208070%_ (let () (declare (not safe)) - (##cdr _%e207973208026%_)))) - (_%loop207972208016%_ - _%lp-tl207975208033%_ - (cons _%lp-hd207974208030%_ - _%clause207976208023%_)))) - (let ((_%clause207977208036%_ - (reverse _%clause207976208023%_))) + (##cdr _%e208010208063%_)))) + (_%loop208009208053%_ + _%lp-tl208012208070%_ + (cons _%lp-hd208011208067%_ + _%clause208013208060%_)))) + (let ((_%clause208014208073%_ + (reverse _%clause208013208060%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207968208007%_)) - ((lambda (_%L208040%_ - _%L208042%_) + _%tl208005208044%_)) + ((lambda (_%L208077%_ + _%L208079%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L208042%_ + (cons _%L208079%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6306,43 +6306,43 @@ (gx#datum->syntax__0 '#f '@list)) - (let ((__tmp209262 - (lambda (_%g208061208064%_ - _%g208062208067%_) - (cons _%g208061208064%_ - _%g208062208067%_)))) + (let ((__tmp209299 + (lambda (_%g208098208101%_ + _%g208099208104%_) + (cons _%g208098208101%_ + _%g208099208104%_)))) (declare (not safe)) (__foldr1 - __tmp209262 + __tmp209299 '() - _%L208040%_))) + _%L208077%_))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause207977208036%_ - _%hd207964207994%_) - (_%g207959207983%_ - _%g207960207987%_))))))) - (_%loop207972208016%_ _%target207969208010%_ '())) - (_%g207959207983%_ _%g207960207987%_))))) - (_%g207959207983%_ _%g207960207987%_)))) + _%clause208014208073%_ + _%hd208001208031%_) + (_%g207996208020%_ + _%g207997208024%_))))))) + (_%loop208009208053%_ _%target208006208047%_ '())) + (_%g207996208020%_ _%g207997208024%_))))) + (_%g207996208020%_ _%g207997208024%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207959207983%_ - _%g207960207987%_)))) - (_%g207959207983%_ _%g207960207987%_))))) - (_%g207958208070%_ - (list _%unchecked-proc207955%_ - _%unchecked-clauses207957%_))) + (_%g207996208020%_ + _%g207997208024%_)))) + (_%g207996208020%_ _%g207997208024%_))))) + (_%g207995208107%_ + (list _%unchecked-proc207992%_ + _%unchecked-clauses207994%_))) '(begin)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g207410207421%_)))) - (_%g207408208074%_ + _%g207447207458%_)))) + (_%g207445208111%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207269%_ + (cons _%L207306%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6356,12 +6356,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L207390%_ - _%L207392%_)) - (let ((__tmp209263 - (lambda (_%g208077208081%_ - _%g208078208084%_ - _%g208079208086%_) + _%L207427%_ + _%L207429%_)) + (let ((__tmp209300 + (lambda (_%g208114208118%_ + _%g208115208121%_ + _%g208116208123%_) (cons (cons (let () (declare (not safe)) @@ -6372,55 +6372,55 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g208078208084%_ '())) + (cons _%g208115208121%_ '())) (cons '#f (cons 'signature: - (cons _%g208077208081%_ '()))))) - _%g208079208086%_)))) + (cons _%g208114208118%_ '()))))) + _%g208116208123%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp209263 + __tmp209300 '() - _%L207390%_ - _%L207392%_)))) + _%L207427%_ + _%L207429%_)))) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%sig207316207384%_ - _%arity207317207387%_)))))) - (_%loop207310207342%_ _%target207307207336%_ '() '())) - (_%g207303207329%_ _%g207304207333%_))))) + _%sig207353207421%_ + _%arity207354207424%_)))))) + (_%loop207347207379%_ _%target207344207373%_ '() '())) + (_%g207340207366%_ _%g207341207370%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207303207329%_ - _%g207304207333%_))))) - (_%g207302208089%_ _%signatures207300%_)) - (_%g207186207210%_ _%g207187207214%_))) - _%case-signature207204207263%_ - _%hd207194207231%_)))))) + (_%g207340207366%_ + _%g207341207370%_))))) + (_%g207339208126%_ _%signatures207337%_)) + (_%g207223207247%_ _%g207224207251%_))) + _%case-signature207241207300%_ + _%hd207231207268%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop207199207243%_ - _%target207196207237%_ + (_%loop207236207280%_ + _%target207233207274%_ '())) - (_%g207186207210%_ - _%g207187207214%_))))) - (_%g207186207210%_ _%g207187207214%_)))) - (_%g207186207210%_ _%g207187207214%_)))) - (_%g207186207210%_ _%g207187207214%_))))) - (_%g207185208093%_ _%stx207183%_)))) + (_%g207223207247%_ + _%g207224207251%_))))) + (_%g207223207247%_ _%g207224207251%_)))) + (_%g207223207247%_ _%g207224207251%_)))) + (_%g207223207247%_ _%g207224207251%_))))) + (_%g207222208130%_ _%stx207220%_)))) (define |gxc[:0:]#declare-builtin-class| - (lambda (_%$stx208101%_) - (let* ((_%__stx209083209084%_ _%$stx208101%_) - (_%g208107208167%_ + (lambda (_%$stx208138%_) + (let* ((_%__stx209120209121%_ _%$stx208138%_) + (_%g208144208204%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx209083209084%_))))) - (let ((_%__kont209086209087%_ - (lambda (_%L208389%_ _%L208391%_) + _%__stx209120209121%_))))) + (let ((_%__kont209123209124%_ + (lambda (_%L208426%_ _%L208428%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6429,7 +6429,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208391%_ '())) + (cons _%L208428%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6440,13 +6440,13 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208391%_ '())) + (cons _%L208428%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208389%_ '())) + (cons _%L208426%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)) @@ -6455,8 +6455,8 @@ (cons '#f (cons '#f (cons '#t (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont209088209089%_ - (lambda (_%L208314%_ _%L208316%_ _%L208317%_) + (_%__kont209125209126%_ + (lambda (_%L208351%_ _%L208353%_ _%L208354%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6465,7 +6465,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208317%_ '())) + (cons _%L208354%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6476,23 +6476,23 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208317%_ '())) + (cons _%L208354%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208316%_ '())) + (cons _%L208353%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208314%_ '())) + (cons _%L208351%_ '())) (cons '#f (cons '#f (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont209090209091%_ - (lambda (_%L208228%_ _%L208230%_ _%L208231%_) + (_%__kont209127209128%_ + (lambda (_%L208265%_ _%L208267%_ _%L208268%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6501,7 +6501,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208231%_ '())) + (cons _%L208268%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6512,360 +6512,360 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208231%_ '())) + (cons _%L208268%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208230%_ '())) + (cons _%L208267%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208228%_ '())) + (cons _%L208265%_ '())) (cons '#f (cons '#t (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx209083209084%_)) - (let ((_%e208111208345%_ + (gx#stx-pair? _%__stx209120209121%_)) + (let ((_%e208148208382%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx209083209084%_)))) - (let ((_%tl208113208352%_ + (gx#syntax-e _%__stx209120209121%_)))) + (let ((_%tl208150208389%_ (let () (declare (not safe)) - (##cdr _%e208111208345%_))) - (_%hd208112208349%_ + (##cdr _%e208148208382%_))) + (_%hd208149208386%_ (let () (declare (not safe)) - (##car _%e208111208345%_)))) + (##car _%e208148208382%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208113208352%_)) - (let ((_%e208114208355%_ + (gx#stx-pair? _%tl208150208389%_)) + (let ((_%e208151208392%_ (let () (declare (not safe)) - (gx#syntax-e _%tl208113208352%_)))) - (let ((_%tl208116208362%_ + (gx#syntax-e _%tl208150208389%_)))) + (let ((_%tl208153208399%_ (let () (declare (not safe)) - (##cdr _%e208114208355%_))) - (_%hd208115208359%_ + (##cdr _%e208151208392%_))) + (_%hd208152208396%_ (let () (declare (not safe)) - (##car _%e208114208355%_)))) + (##car _%e208151208392%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd208115208359%_)) - (let ((_%e208117208365%_ + (gx#stx-datum? _%hd208152208396%_)) + (let ((_%e208154208402%_ (let () (declare (not safe)) - (gx#stx-e _%hd208115208359%_)))) - (if (equal? _%e208117208365%_ 'system:) + (gx#stx-e _%hd208152208396%_)))) + (if (equal? _%e208154208402%_ 'system:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208116208362%_)) - (let ((_%e208118208369%_ + (gx#stx-pair? _%tl208153208399%_)) + (let ((_%e208155208406%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208116208362%_)))) - (let ((_%tl208120208376%_ + _%tl208153208399%_)))) + (let ((_%tl208157208413%_ (let () (declare (not safe)) - (##cdr _%e208118208369%_))) - (_%hd208119208373%_ + (##cdr _%e208155208406%_))) + (_%hd208156208410%_ (let () (declare (not safe)) - (##car _%e208118208369%_)))) + (##car _%e208155208406%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208120208376%_)) - (let ((_%e208121208379%_ + _%tl208157208413%_)) + (let ((_%e208158208416%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208120208376%_)))) - (let ((_%tl208123208386%_ + _%tl208157208413%_)))) + (let ((_%tl208160208423%_ (let () (declare (not safe)) - (##cdr _%e208121208379%_))) - (_%hd208122208383%_ + (##cdr _%e208158208416%_))) + (_%hd208159208420%_ (let () (declare (not safe)) - (##car _%e208121208379%_)))) + (##car _%e208158208416%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208123208386%_)) - (_%__kont209086209087%_ - _%hd208122208383%_ - _%hd208119208373%_) + _%tl208160208423%_)) + (_%__kont209123209124%_ + _%hd208159208420%_ + _%hd208156208410%_) (let () (declare (not safe)) - (_%g208107208167%_))))) + (_%g208144208204%_))))) (let () (declare (not safe)) - (_%g208107208167%_))))) + (_%g208144208204%_))))) (let () (declare (not safe)) - (_%g208107208167%_))) - (if (equal? _%e208117208365%_ 'struct:) + (_%g208144208204%_))) + (if (equal? _%e208154208402%_ 'struct:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208116208362%_)) - (let ((_%e208134208284%_ + _%tl208153208399%_)) + (let ((_%e208171208321%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208116208362%_)))) - (let ((_%tl208136208291%_ + _%tl208153208399%_)))) + (let ((_%tl208173208328%_ (let () (declare (not safe)) - (##cdr _%e208134208284%_))) - (_%hd208135208288%_ + (##cdr _%e208171208321%_))) + (_%hd208172208325%_ (let () (declare (not safe)) - (##car _%e208134208284%_)))) + (##car _%e208171208321%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208136208291%_)) - (let ((_%e208137208294%_ + _%tl208173208328%_)) + (let ((_%e208174208331%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl208136208291%_)))) - (let ((_%tl208139208301%_ - (let () (declare (not safe)) (##cdr _%e208137208294%_))) - (_%hd208138208298%_ + (gx#syntax-e _%tl208173208328%_)))) + (let ((_%tl208176208338%_ + (let () (declare (not safe)) (##cdr _%e208174208331%_))) + (_%hd208175208335%_ (let () (declare (not safe)) - (##car _%e208137208294%_)))) + (##car _%e208174208331%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208139208301%_)) - (let ((_%e208140208304%_ + (gx#stx-pair? _%tl208176208338%_)) + (let ((_%e208177208341%_ (let () (declare (not safe)) - (gx#syntax-e _%tl208139208301%_)))) - (let ((_%tl208142208311%_ + (gx#syntax-e _%tl208176208338%_)))) + (let ((_%tl208179208348%_ (let () (declare (not safe)) - (##cdr _%e208140208304%_))) - (_%hd208141208308%_ + (##cdr _%e208177208341%_))) + (_%hd208178208345%_ (let () (declare (not safe)) - (##car _%e208140208304%_)))) + (##car _%e208177208341%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208142208311%_)) - (_%__kont209088209089%_ - _%hd208141208308%_ - _%hd208138208298%_ - _%hd208135208288%_) + (gx#stx-null? _%tl208179208348%_)) + (_%__kont209125209126%_ + _%hd208178208345%_ + _%hd208175208335%_ + _%hd208172208325%_) (let () (declare (not safe)) - (_%g208107208167%_))))) - (let () (declare (not safe)) (_%g208107208167%_))))) - (let () (declare (not safe)) (_%g208107208167%_))))) + (_%g208144208204%_))))) + (let () (declare (not safe)) (_%g208144208204%_))))) + (let () (declare (not safe)) (_%g208144208204%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g208107208167%_))) - (if (equal? _%e208117208365%_ + (_%g208144208204%_))) + (if (equal? _%e208154208402%_ 'class:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208116208362%_)) - (let ((_%e208153208198%_ + _%tl208153208399%_)) + (let ((_%e208190208235%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208116208362%_)))) - (let ((_%tl208155208205%_ + _%tl208153208399%_)))) + (let ((_%tl208192208242%_ (let () (declare (not safe)) - (##cdr _%e208153208198%_))) - (_%hd208154208202%_ + (##cdr _%e208190208235%_))) + (_%hd208191208239%_ (let () (declare (not safe)) - (##car _%e208153208198%_)))) + (##car _%e208190208235%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208155208205%_)) - (let ((_%e208156208208%_ + _%tl208192208242%_)) + (let ((_%e208193208245%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl208155208205%_)))) - (let ((_%tl208158208215%_ + (gx#syntax-e _%tl208192208242%_)))) + (let ((_%tl208195208252%_ (let () (declare (not safe)) - (##cdr _%e208156208208%_))) - (_%hd208157208212%_ + (##cdr _%e208193208245%_))) + (_%hd208194208249%_ (let () (declare (not safe)) - (##car _%e208156208208%_)))) + (##car _%e208193208245%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208158208215%_)) - (let ((_%e208159208218%_ + (gx#stx-pair? _%tl208195208252%_)) + (let ((_%e208196208255%_ (let () (declare (not safe)) - (gx#syntax-e _%tl208158208215%_)))) - (let ((_%tl208161208225%_ + (gx#syntax-e _%tl208195208252%_)))) + (let ((_%tl208198208262%_ (let () (declare (not safe)) - (##cdr _%e208159208218%_))) - (_%hd208160208222%_ + (##cdr _%e208196208255%_))) + (_%hd208197208259%_ (let () (declare (not safe)) - (##car _%e208159208218%_)))) + (##car _%e208196208255%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208161208225%_)) - (_%__kont209090209091%_ - _%hd208160208222%_ - _%hd208157208212%_ - _%hd208154208202%_) + (gx#stx-null? _%tl208198208262%_)) + (_%__kont209127209128%_ + _%hd208197208259%_ + _%hd208194208249%_ + _%hd208191208239%_) (let () (declare (not safe)) - (_%g208107208167%_))))) - (let () (declare (not safe)) (_%g208107208167%_))))) - (let () (declare (not safe)) (_%g208107208167%_))))) + (_%g208144208204%_))))) + (let () (declare (not safe)) (_%g208144208204%_))))) + (let () (declare (not safe)) (_%g208144208204%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g208107208167%_))) + (_%g208144208204%_))) (let () (declare (not safe)) - (_%g208107208167%_)))))) + (_%g208144208204%_)))))) (let () (declare (not safe)) - (_%g208107208167%_))))) - (let () (declare (not safe)) (_%g208107208167%_))))) - (let () (declare (not safe)) (_%g208107208167%_))))))) + (_%g208144208204%_))))) + (let () (declare (not safe)) (_%g208144208204%_))))) + (let () (declare (not safe)) (_%g208144208204%_))))))) (define |gxc[:0:]#declare-builtin-classes| - (lambda (_%$stx208413%_) - (let* ((_%g208417208437%_ - (lambda (_%g208418208433%_) + (lambda (_%$stx208450%_) + (let* ((_%g208454208474%_ + (lambda (_%g208455208470%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g208418208433%_)))) - (_%g208416208508%_ - (lambda (_%g208418208441%_) + _%g208455208470%_)))) + (_%g208453208545%_ + (lambda (_%g208455208478%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g208418208441%_)) - (let ((_%e208420208444%_ + (gx#stx-pair? _%g208455208478%_)) + (let ((_%e208457208481%_ (let () (declare (not safe)) - (gx#syntax-e _%g208418208441%_)))) - (let ((_%hd208421208448%_ + (gx#syntax-e _%g208455208478%_)))) + (let ((_%hd208458208485%_ (let () (declare (not safe)) - (##car _%e208420208444%_))) - (_%tl208422208451%_ + (##car _%e208457208481%_))) + (_%tl208459208488%_ (let () (declare (not safe)) - (##cdr _%e208420208444%_)))) + (##cdr _%e208457208481%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl208422208451%_)) - (let ((_g209264_ + (gx#stx-pair/null? _%tl208459208488%_)) + (let ((_g209301_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl208422208451%_ + _%tl208459208488%_ '0)))) (begin - (let ((_g209265_ + (let ((_g209302_ (let () (declare (not safe)) - (if (##values? _g209264_) - (##vector-length _g209264_) + (if (##values? _g209301_) + (##vector-length _g209301_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209265_ 2))) + (##fx= _g209302_ 2))) (error "Context expects 2 values" - _g209265_))) - (let ((_%target208423208454%_ + _g209302_))) + (let ((_%target208460208491%_ (let () (declare (not safe)) - (##vector-ref _g209264_ 0))) - (_%tl208425208457%_ + (##vector-ref _g209301_ 0))) + (_%tl208462208494%_ (let () (declare (not safe)) - (##vector-ref _g209264_ 1)))) + (##vector-ref _g209301_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208425208457%_)) - (letrec ((_%loop208426208460%_ - (lambda (_%hd208424208464%_ - _%decl208430208467%_) + (gx#stx-null? _%tl208462208494%_)) + (letrec ((_%loop208463208497%_ + (lambda (_%hd208461208501%_ + _%decl208467208504%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd208424208464%_)) - (let ((_%e208427208470%_ + _%hd208461208501%_)) + (let ((_%e208464208507%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd208424208464%_)))) - (let ((_%lp-hd208428208474%_ + (gx#syntax-e _%hd208461208501%_)))) + (let ((_%lp-hd208465208511%_ (let () (declare (not safe)) - (##car _%e208427208470%_))) - (_%lp-tl208429208477%_ + (##car _%e208464208507%_))) + (_%lp-tl208466208514%_ (let () (declare (not safe)) - (##cdr _%e208427208470%_)))) - (_%loop208426208460%_ - _%lp-tl208429208477%_ - (cons _%lp-hd208428208474%_ _%decl208430208467%_)))) - (let ((_%decl208431208480%_ (reverse _%decl208430208467%_))) - ((lambda (_%L208484%_) + (##cdr _%e208464208507%_)))) + (_%loop208463208497%_ + _%lp-tl208466208514%_ + (cons _%lp-hd208465208511%_ _%decl208467208504%_)))) + (let ((_%decl208468208517%_ (reverse _%decl208467208504%_))) + ((lambda (_%L208521%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp209266 - (lambda (_%g208499208502%_ _%g208500208505%_) + (let ((__tmp209303 + (lambda (_%g208536208539%_ _%g208537208542%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-builtin-class)) - _%g208499208502%_) - _%g208500208505%_)))) + _%g208536208539%_) + _%g208537208542%_)))) (declare (not safe)) - (__foldr1 __tmp209266 '() _%L208484%_)))) - _%decl208431208480%_)))))) + (__foldr1 __tmp209303 '() _%L208521%_)))) + _%decl208468208517%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop208426208460%_ - _%target208423208454%_ + (_%loop208463208497%_ + _%target208460208491%_ '())) - (_%g208417208437%_ - _%g208418208441%_))))) - (_%g208417208437%_ _%g208418208441%_)))) - (_%g208417208437%_ _%g208418208441%_))))) - (_%g208416208508%_ _%$stx208413%_)))))) + (_%g208454208474%_ + _%g208455208478%_))))) + (_%g208454208474%_ _%g208455208478%_)))) + (_%g208454208474%_ _%g208455208478%_))))) + (_%g208453208545%_ _%$stx208450%_)))))) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index 2ace92e7a..da1e3e6ff 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -8,189 +8,170 @@ namespace: gerbil/core :gerbil/core/sugar (spec: (:gerbil/core/mop) + (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-2 0 MOP-2) (0 MOP-3 0 MOP-3) (0 defclass-type 0 defclass-type) (0 defstruct-type 0 defstruct-type) (1 module-type-id 1 module-type-id) (1 make-class-type-id 1 make-class-type-id) + (0 @-set! 0 @-set!) + (0 defmethod 0 defmethod) + (0 define-class 0 define-class) (0 define-struct 0 define-struct) (0 @ 0 @) - (0 define-class 0 define-class) - (0 defstruct 0 defstruct) (0 defclass 0 defclass) - (0 defmethod 0 defmethod) - (0 @-set! 0 @-set!) - (0 :symbolic 0 :symbolic) - (0 :byte-port 0 :byte-port) - (0 :real 0 :real) - (0 :s32vector 0 :s32vector) - (0 :list 0 :list) - (0 :string 0 :string) - (0 :false 0 :false) + (0 defstruct 0 defstruct) + (0 :readtable 0 :readtable) + (0 :cpxnum 0 :cpxnum) + (0 :thread 0 :thread) + (0 :promise 0 :promise) (0 :boolean 0 :boolean) - (0 :pair 0 :pair) - (0 :ratnum 0 :ratnum) - (0 :mutex 0 :mutex) - (0 :special 0 :special) - (0 :flonum 0 :flonum) - (0 :procedure 0 :procedure) - (0 :continuation 0 :continuation) + (0 :string 0 :string) (0 :s16vector 0 :s16vector) - (0 :vector 0 :vector) - (0 :number 0 :number) + (0 :t 0 :t) + (0 :atom 0 :atom) + (0 :socket-info 0 :socket-info) + (0 :u32vector 0 :u32vector) + (0 :symbolic 0 :symbolic) + (0 :file-info 0 :file-info) (0 :true 0 :true) - (0 :integer 0 :integer) - (0 :table 0 :table) - (0 :bignum 0 :bignum) - (0 :event-queue-port 0 :event-queue-port) - (0 :raw-device-port 0 :raw-device-port) - (0 :thread 0 :thread) - (0 :foreign 0 :foreign) - (0 :promise 0 :promise) - (0 :frame 0 :frame) - (0 :box 0 :box) + (0 :vector-port 0 :vector-port) + (0 :readenv 0 :readenv) + (0 :procedure 0 :procedure) + (0 :hvector 0 :hvector) + (0 :condvar 0 :condvar) + (0 :number 0 :number) + (0 :s32vector 0 :s32vector) (0 :f64vector 0 :f64vector) - (0 :s8vector 0 :s8vector) - (0 :object 0 :object) - (0 class 0 class) + (0 :vm 0 :vm) + (0 :integer 0 :integer) + (0 :u16vector 0 :u16vector) + (0 :vector 0 :vector) + (0 :values 0 :values) + (0 :processor 0 :processor) + (0 :writeenv 0 :writeenv) + (0 :udp-port 0 :udp-port) + (0 :sequence 0 :sequence) + (0 :thread-group 0 :thread-group) (0 :keyword 0 :keyword) + (0 defsystem-class-info 0 defsystem-class-info) (0 :directory-port 0 :directory-port) - (0 :udp-port 0 :udp-port) - (0 :hvector 0 :hvector) - (0 :tcp-server-port 0 :tcp-server-port) - (0 :string-port 0 :string-port) - (0 :u64vector 0 :u64vector) + (0 :byte-port 0 :byte-port) (0 :character-port 0 :character-port) - (0 :values 0 :values) - (0 :fixnum 0 :fixnum) - (0 :u8vector 0 :u8vector) - (0 :weak 0 :weak) - (0 :t 0 :t) - (0 :void 0 :void) - (0 :cpxnum 0 :cpxnum) - (0 :char 0 :char) - (0 :sequence 0 :sequence) - (0 :device-port 0 :device-port) + (0 :mutex 0 :mutex) (0 :time 0 :time) - (0 :address-info 0 :address-info) - (0 :socket-info 0 :socket-info) - (0 :writeenv 0 :writeenv) - (0 :file-info 0 :file-info) - (0 :readtable 0 :readtable) - (0 :port 0 :port) + (0 :continuation 0 :continuation) + (0 :bignum 0 :bignum) + (0 :box 0 :box) (0 :s64vector 0 :s64vector) - (0 :thread-group 0 :thread-group) + (0 :u8vector 0 :u8vector) + (0 :real 0 :real) + (0 :table 0 :table) + (0 :raw-device-port 0 :raw-device-port) + (0 :event-queue-port 0 :event-queue-port) + (0 :u8vector-port 0 :u8vector-port) + (0 :flonum 0 :flonum) + (0 :fixnum 0 :fixnum) + (0 :object 0 :object) + (0 :null 0 :null) + (0 :frame 0 :frame) + (0 :device-port 0 :device-port) (0 :symbol 0 :symbol) - (0 :u16vector 0 :u16vector) + (0 :string-port 0 :string-port) + (0 :char 0 :char) + (0 :list 0 :list) (0 :object-port 0 :object-port) - (0 :immediate 0 :immediate) - (0 :vm 0 :vm) - (0 :processor 0 :processor) (0 :f32vector 0 :f32vector) - (0 :readenv 0 :readenv) - (0 :u8vector-port 0 :u8vector-port) - (0 :u32vector 0 :u32vector) - (0 :vector-port 0 :vector-port) + (0 :pair 0 :pair) + (0 :special 0 :special) + (0 :port 0 :port) + (0 :void 0 :void) + (0 :foreign 0 :foreign) + (0 :false 0 :false) + (0 :weak 0 :weak) + (0 :s8vector 0 :s8vector) + (0 class 0 class) + (0 :ratnum 0 :ratnum) + (0 :address-info 0 :address-info) (0 :eof 0 :eof) + (0 :immediate 0 :immediate) + (0 :tcp-server-port 0 :tcp-server-port) + (0 :u64vector 0 :u64vector) (0 :class 0 :class) - (0 :atom 0 :atom) - (0 defsystem-class-info 0 defsystem-class-info) - (0 :condvar 0 :condvar) - (0 :null 0 :null) (1 defclass-type 1 defclass-type) (1 defstruct-type 1 defstruct-type) (2 module-type-id 2 module-type-id) (2 make-class-type-id 2 make-class-type-id) - (1 - &!class-type-ordered-slots-set! - 1 - &!class-type-ordered-slots-set!) - (1 &!class-type-accessors 1 &!class-type-accessors) - (1 !class-type-final? 1 !class-type-final?) - (1 !class-type-name 1 !class-type-name) + (1 &!class-type-super-set! 1 &!class-type-super-set!) + (1 !class-type-struct?-set! 1 !class-type-struct?-set!) + (1 !class-type-name-set! 1 !class-type-name-set!) + (1 !class-type-slots-set! 1 !class-type-slots-set!) + (1 &!class-type-id 1 &!class-type-id) + (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (1 &!class-type-final?-set! 1 &!class-type-final?-set!) + (1 make-class-type-info 1 make-class-type-info) + (1 &!class-type-metaclass 1 &!class-type-metaclass) + (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) - (1 class-type-info::t 1 class-type-info::t) (1 &!class-type-slot-contracts-set! 1 &!class-type-slot-contracts-set!) - (1 &!class-type-final? 1 &!class-type-final?) - (1 !class-type-predicate 1 !class-type-predicate) - (1 &!class-type-super-set! 1 &!class-type-super-set!) + (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (1 &!class-type-accessors 1 &!class-type-accessors) (1 !class-type-unchecked-mutators-set! 1 !class-type-unchecked-mutators-set!) - (1 make-class-type-info 1 make-class-type-info) - (1 class-type-info? 1 class-type-info?) - (1 &!class-type-mutators 1 &!class-type-mutators) - (1 !class-type-metaclass 1 !class-type-metaclass) - (1 &!class-type-final?-set! 1 &!class-type-final?-set!) - (1 !class-type-id 1 !class-type-id) - (1 !class-type-slots 1 !class-type-slots) - (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (1 !class-type-precedence-list 1 !class-type-precedence-list) - (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) - (1 &!class-type-id-set! 1 &!class-type-id-set!) - (1 !class-type-final?-set! 1 !class-type-final?-set!) - (1 &!class-type-name-set! 1 &!class-type-name-set!) + (1 !class-type-ordered-slots 1 !class-type-ordered-slots) + (1 !class-type-mutators 1 !class-type-mutators) (1 !class-type-accessors 1 !class-type-accessors) - (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) - (1 !class-type-system?-set! 1 !class-type-system?-set!) - (1 !class-type-name-set! 1 !class-type-name-set!) + (1 !class-type-descriptor 1 !class-type-descriptor) + (1 &!class-type-constructor 1 &!class-type-constructor) (1 - &!class-type-unchecked-mutators + &!class-type-unchecked-accessors 1 - &!class-type-unchecked-mutators) + &!class-type-unchecked-accessors) (1 - &!class-type-precedence-list-set! + &!class-type-unchecked-mutators 1 - &!class-type-precedence-list-set!) - (1 !class-type-system? 1 !class-type-system?) - (1 &!class-type-system? 1 &!class-type-system?) + &!class-type-unchecked-mutators) (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (1 !class-type-descriptor 1 !class-type-descriptor) - (1 !class-type-super 1 !class-type-super) - (1 !class-type-id-set! 1 !class-type-id-set!) + (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) - (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (1 !class-type-mutators-set! 1 !class-type-mutators-set!) - (1 !class-type-struct? 1 !class-type-struct?) - (1 - !class-type-precedence-list-set! - 1 - !class-type-precedence-list-set!) - (1 &!class-type-slots-set! 1 &!class-type-slots-set!) - (1 !class-type-predicate-set! 1 !class-type-predicate-set!) - (1 !class-type-slot-types 1 !class-type-slot-types) - (1 !class-type-struct?-set! 1 !class-type-struct?-set!) + (1 &!class-type-mutators 1 &!class-type-mutators) + (1 &!class-type-final? 1 &!class-type-final?) (1 &!class-type-name 1 &!class-type-name) - (1 &!class-type-metaclass 1 &!class-type-metaclass) - (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (1 &!class-type-slot-types 1 &!class-type-slot-types) - (1 &!class-type-struct? 1 &!class-type-struct?) - (1 &!class-type-slots 1 &!class-type-slots) + (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) (1 - !class-type-constructor-method-set! + !class-type-unchecked-accessors 1 - !class-type-constructor-method-set!) - (1 !class-type-slots-set! 1 !class-type-slots-set!) - (1 !class-type-constructor-set! 1 !class-type-constructor-set!) + !class-type-unchecked-accessors) + (1 !class-type-precedence-list 1 !class-type-precedence-list) + (1 !class-type-mutators-set! 1 !class-type-mutators-set!) + (1 !class-type-constructor 1 !class-type-constructor) + (1 !class-type-metaclass 1 !class-type-metaclass) + (1 !class-type-name 1 !class-type-name) + (1 &!class-type-id-set! 1 &!class-type-id-set!) + (1 !class-type-system?-set! 1 !class-type-system?-set!) + (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + (1 !class-type-super 1 !class-type-super) (1 &!class-type-constructor-method-set! 1 &!class-type-constructor-method-set!) - (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (1 &!class-type-predicate 1 &!class-type-predicate) - (1 !class-type-constructor-method 1 !class-type-constructor-method) - (1 &!class-type-system?-set! 1 &!class-type-system?-set!) - (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (1 &!class-type-slots 1 &!class-type-slots) + (1 !class-type-constructor-set! 1 !class-type-constructor-set!) + (1 &!class-type-descriptor 1 &!class-type-descriptor) + (1 &!class-type-super 1 &!class-type-super) + (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (1 !class-type-system? 1 !class-type-system?) + (1 !class-type-struct? 1 !class-type-struct?) (1 class-type-info::apply-macro-expander 1 @@ -199,137 +180,156 @@ namespace: gerbil/core &!class-type-slot-defaults-set! 1 &!class-type-slot-defaults-set!) - (1 &!class-type-descriptor 1 &!class-type-descriptor) - (1 !class-type-mutators 1 !class-type-mutators) - (1 - &!class-type-unchecked-mutators-set! - 1 - &!class-type-unchecked-mutators-set!) - (1 !class-type-super-set! 1 !class-type-super-set!) - (1 !class-type-accessors-set! 1 !class-type-accessors-set!) - (1 &!class-type-super 1 &!class-type-super) - (1 &!class-type-id 1 &!class-type-id) (1 - !class-type-unchecked-accessors-set! + &!class-type-ordered-slots-set! 1 - !class-type-unchecked-accessors-set!) - (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (1 &!class-type-constructor 1 &!class-type-constructor) + &!class-type-ordered-slots-set!) + (1 !class-type-slot-types 1 !class-type-slot-types) + (1 &!class-type-name-set! 1 &!class-type-name-set!) + (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (1 &!class-type-predicate 1 &!class-type-predicate) + (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) (1 - !class-type-slot-contracts-set! + &!class-type-unchecked-accessors-set! 1 - !class-type-slot-contracts-set!) - (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + &!class-type-unchecked-accessors-set!) + (1 !class-type-final?-set! 1 !class-type-final?-set!) + (1 !class-type-super-set! 1 !class-type-super-set!) + (1 !class-type-final? 1 !class-type-final?) (1 - !class-type-unchecked-accessors + &!class-type-constructor-method 1 - !class-type-unchecked-accessors) - (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (1 !class-type-slot-defaults 1 !class-type-slot-defaults) - (1 !class-type-ordered-slots 1 !class-type-ordered-slots) - (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (1 !class-type-constructor 1 !class-type-constructor) + &!class-type-constructor-method) + (1 !class-type-predicate-set! 1 !class-type-predicate-set!) + (1 !class-type-id 1 !class-type-id) (1 - &!class-type-unchecked-accessors-set! + &!class-type-unchecked-mutators-set! 1 - &!class-type-unchecked-accessors-set!) + &!class-type-unchecked-mutators-set!) (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (1 !class-type-slot-contracts 1 !class-type-slot-contracts) + (1 &!class-type-system?-set! 1 &!class-type-system?-set!) + (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (1 &!class-type-system? 1 &!class-type-system?) (1 - &!class-type-unchecked-accessors + !class-type-constructor-method-set! 1 - &!class-type-unchecked-accessors) - (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + !class-type-constructor-method-set!) + (1 &!class-type-slots-set! 1 &!class-type-slots-set!) + (1 !class-type-id-set! 1 !class-type-id-set!) + (1 &!class-type-slot-types 1 &!class-type-slot-types) (1 - &!class-type-constructor-method + !class-type-slot-contracts-set! 1 - &!class-type-constructor-method) + !class-type-slot-contracts-set!) + (1 + !class-type-unchecked-accessors-set! + 1 + !class-type-unchecked-accessors-set!) + (1 + !class-type-precedence-list-set! + 1 + !class-type-precedence-list-set!) + (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) + (1 + &!class-type-precedence-list-set! + 1 + &!class-type-precedence-list-set!) + (1 &!class-type-struct? 1 &!class-type-struct?) (1 &!class-type-precedence-list 1 &!class-type-precedence-list) + (1 !class-type-slot-defaults 1 !class-type-slot-defaults) + (1 !class-type-constructor-method 1 !class-type-constructor-method) + (1 !class-type-accessors-set! 1 !class-type-accessors-set!) + (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + (1 !class-type-slot-contracts 1 !class-type-slot-contracts) + (1 !class-type-predicate 1 !class-type-predicate) + (1 !class-type-slots 1 !class-type-slots) + (1 class-type-info? 1 class-type-info?) + (1 class-type-info::t 1 class-type-info::t) (1 class-type-info 1 class-type-info) + (1 @-set! 1 @-set!) + (1 defmethod 1 defmethod) + (1 define-class 1 define-class) (1 define-struct 1 define-struct) (1 @ 1 @) - (1 define-class 1 define-class) - (1 defstruct 1 defstruct) (1 defclass 1 defclass) - (1 defmethod 1 defmethod) - (1 @-set! 1 @-set!) - (1 :symbolic 1 :symbolic) - (1 :byte-port 1 :byte-port) - (1 :real 1 :real) - (1 :s32vector 1 :s32vector) - (1 :list 1 :list) - (1 :string 1 :string) - (1 :false 1 :false) + (1 defstruct 1 defstruct) + (1 :readtable 1 :readtable) + (1 :cpxnum 1 :cpxnum) + (1 :thread 1 :thread) + (1 :promise 1 :promise) (1 :boolean 1 :boolean) - (1 :pair 1 :pair) - (1 :ratnum 1 :ratnum) - (1 :mutex 1 :mutex) - (1 :special 1 :special) - (1 :flonum 1 :flonum) - (1 :procedure 1 :procedure) - (1 :continuation 1 :continuation) + (1 :string 1 :string) (1 :s16vector 1 :s16vector) - (1 :vector 1 :vector) - (1 :number 1 :number) + (1 :t 1 :t) + (1 :atom 1 :atom) + (1 :socket-info 1 :socket-info) + (1 :u32vector 1 :u32vector) + (1 :symbolic 1 :symbolic) + (1 :file-info 1 :file-info) (1 :true 1 :true) - (1 :integer 1 :integer) - (1 :table 1 :table) - (1 :bignum 1 :bignum) - (1 :event-queue-port 1 :event-queue-port) - (1 :raw-device-port 1 :raw-device-port) - (1 :thread 1 :thread) - (1 :foreign 1 :foreign) - (1 :promise 1 :promise) - (1 :frame 1 :frame) - (1 :box 1 :box) + (1 :vector-port 1 :vector-port) + (1 :readenv 1 :readenv) + (1 :procedure 1 :procedure) + (1 :hvector 1 :hvector) + (1 :condvar 1 :condvar) + (1 :number 1 :number) + (1 :s32vector 1 :s32vector) (1 :f64vector 1 :f64vector) - (1 :s8vector 1 :s8vector) - (1 :object 1 :object) - (1 class 1 class) + (1 :vm 1 :vm) + (1 :integer 1 :integer) + (1 :u16vector 1 :u16vector) + (1 :vector 1 :vector) + (1 :values 1 :values) + (1 :processor 1 :processor) + (1 :writeenv 1 :writeenv) + (1 :udp-port 1 :udp-port) + (1 :sequence 1 :sequence) + (1 :thread-group 1 :thread-group) (1 :keyword 1 :keyword) + (1 defsystem-class-info 1 defsystem-class-info) (1 :directory-port 1 :directory-port) - (1 :udp-port 1 :udp-port) - (1 :hvector 1 :hvector) - (1 :tcp-server-port 1 :tcp-server-port) - (1 :string-port 1 :string-port) - (1 :u64vector 1 :u64vector) + (1 :byte-port 1 :byte-port) (1 :character-port 1 :character-port) - (1 :values 1 :values) - (1 :fixnum 1 :fixnum) - (1 :u8vector 1 :u8vector) - (1 :weak 1 :weak) - (1 :t 1 :t) - (1 :void 1 :void) - (1 :cpxnum 1 :cpxnum) - (1 :char 1 :char) - (1 :sequence 1 :sequence) - (1 :device-port 1 :device-port) + (1 :mutex 1 :mutex) (1 :time 1 :time) - (1 :address-info 1 :address-info) - (1 :socket-info 1 :socket-info) - (1 :writeenv 1 :writeenv) - (1 :file-info 1 :file-info) - (1 :readtable 1 :readtable) - (1 :port 1 :port) + (1 :continuation 1 :continuation) + (1 :bignum 1 :bignum) + (1 :box 1 :box) (1 :s64vector 1 :s64vector) - (1 :thread-group 1 :thread-group) + (1 :u8vector 1 :u8vector) + (1 :real 1 :real) + (1 :table 1 :table) + (1 :raw-device-port 1 :raw-device-port) + (1 :event-queue-port 1 :event-queue-port) + (1 :u8vector-port 1 :u8vector-port) + (1 :flonum 1 :flonum) + (1 :fixnum 1 :fixnum) + (1 :object 1 :object) + (1 :null 1 :null) + (1 :frame 1 :frame) + (1 :device-port 1 :device-port) (1 :symbol 1 :symbol) - (1 :u16vector 1 :u16vector) + (1 :string-port 1 :string-port) + (1 :char 1 :char) + (1 :list 1 :list) (1 :object-port 1 :object-port) - (1 :immediate 1 :immediate) - (1 :vm 1 :vm) - (1 :processor 1 :processor) (1 :f32vector 1 :f32vector) - (1 :readenv 1 :readenv) - (1 :u8vector-port 1 :u8vector-port) - (1 :u32vector 1 :u32vector) - (1 :vector-port 1 :vector-port) + (1 :pair 1 :pair) + (1 :special 1 :special) + (1 :port 1 :port) + (1 :void 1 :void) + (1 :foreign 1 :foreign) + (1 :false 1 :false) + (1 :weak 1 :weak) + (1 :s8vector 1 :s8vector) + (1 class 1 class) + (1 :ratnum 1 :ratnum) + (1 :address-info 1 :address-info) (1 :eof 1 :eof) - (1 :class 1 :class) - (1 :atom 1 :atom) - (1 defsystem-class-info 1 defsystem-class-info) - (1 :condvar 1 :condvar) - (1 :null 1 :null)) + (1 :immediate 1 :immediate) + (1 :tcp-server-port 1 :tcp-server-port) + (1 :u64vector 1 :u64vector) + (1 :class 1 :class)) :gerbil/core/match :gerbil/core/more-sugar :gerbil/core/contract @@ -337,189 +337,170 @@ namespace: gerbil/core (phi: 1 :gerbil/core/sugar) (spec: (:gerbil/core/mop) + (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-2 0 MOP-2) (1 MOP-3 0 MOP-3) (1 defclass-type 0 defclass-type) (1 defstruct-type 0 defstruct-type) (2 module-type-id 1 module-type-id) (2 make-class-type-id 1 make-class-type-id) + (1 @-set! 0 @-set!) + (1 defmethod 0 defmethod) + (1 define-class 0 define-class) (1 define-struct 0 define-struct) (1 @ 0 @) - (1 define-class 0 define-class) - (1 defstruct 0 defstruct) (1 defclass 0 defclass) - (1 defmethod 0 defmethod) - (1 @-set! 0 @-set!) - (1 :symbolic 0 :symbolic) - (1 :byte-port 0 :byte-port) - (1 :real 0 :real) - (1 :s32vector 0 :s32vector) - (1 :list 0 :list) - (1 :string 0 :string) - (1 :false 0 :false) + (1 defstruct 0 defstruct) + (1 :readtable 0 :readtable) + (1 :cpxnum 0 :cpxnum) + (1 :thread 0 :thread) + (1 :promise 0 :promise) (1 :boolean 0 :boolean) - (1 :pair 0 :pair) - (1 :ratnum 0 :ratnum) - (1 :mutex 0 :mutex) - (1 :special 0 :special) - (1 :flonum 0 :flonum) - (1 :procedure 0 :procedure) - (1 :continuation 0 :continuation) + (1 :string 0 :string) (1 :s16vector 0 :s16vector) - (1 :vector 0 :vector) - (1 :number 0 :number) + (1 :t 0 :t) + (1 :atom 0 :atom) + (1 :socket-info 0 :socket-info) + (1 :u32vector 0 :u32vector) + (1 :symbolic 0 :symbolic) + (1 :file-info 0 :file-info) (1 :true 0 :true) - (1 :integer 0 :integer) - (1 :table 0 :table) - (1 :bignum 0 :bignum) - (1 :event-queue-port 0 :event-queue-port) - (1 :raw-device-port 0 :raw-device-port) - (1 :thread 0 :thread) - (1 :foreign 0 :foreign) - (1 :promise 0 :promise) - (1 :frame 0 :frame) - (1 :box 0 :box) + (1 :vector-port 0 :vector-port) + (1 :readenv 0 :readenv) + (1 :procedure 0 :procedure) + (1 :hvector 0 :hvector) + (1 :condvar 0 :condvar) + (1 :number 0 :number) + (1 :s32vector 0 :s32vector) (1 :f64vector 0 :f64vector) - (1 :s8vector 0 :s8vector) - (1 :object 0 :object) - (1 class 0 class) + (1 :vm 0 :vm) + (1 :integer 0 :integer) + (1 :u16vector 0 :u16vector) + (1 :vector 0 :vector) + (1 :values 0 :values) + (1 :processor 0 :processor) + (1 :writeenv 0 :writeenv) + (1 :udp-port 0 :udp-port) + (1 :sequence 0 :sequence) + (1 :thread-group 0 :thread-group) (1 :keyword 0 :keyword) + (1 defsystem-class-info 0 defsystem-class-info) (1 :directory-port 0 :directory-port) - (1 :udp-port 0 :udp-port) - (1 :hvector 0 :hvector) - (1 :tcp-server-port 0 :tcp-server-port) - (1 :string-port 0 :string-port) - (1 :u64vector 0 :u64vector) + (1 :byte-port 0 :byte-port) (1 :character-port 0 :character-port) - (1 :values 0 :values) - (1 :fixnum 0 :fixnum) - (1 :u8vector 0 :u8vector) - (1 :weak 0 :weak) - (1 :t 0 :t) - (1 :void 0 :void) - (1 :cpxnum 0 :cpxnum) - (1 :char 0 :char) - (1 :sequence 0 :sequence) - (1 :device-port 0 :device-port) + (1 :mutex 0 :mutex) (1 :time 0 :time) - (1 :address-info 0 :address-info) - (1 :socket-info 0 :socket-info) - (1 :writeenv 0 :writeenv) - (1 :file-info 0 :file-info) - (1 :readtable 0 :readtable) - (1 :port 0 :port) + (1 :continuation 0 :continuation) + (1 :bignum 0 :bignum) + (1 :box 0 :box) (1 :s64vector 0 :s64vector) - (1 :thread-group 0 :thread-group) + (1 :u8vector 0 :u8vector) + (1 :real 0 :real) + (1 :table 0 :table) + (1 :raw-device-port 0 :raw-device-port) + (1 :event-queue-port 0 :event-queue-port) + (1 :u8vector-port 0 :u8vector-port) + (1 :flonum 0 :flonum) + (1 :fixnum 0 :fixnum) + (1 :object 0 :object) + (1 :null 0 :null) + (1 :frame 0 :frame) + (1 :device-port 0 :device-port) (1 :symbol 0 :symbol) - (1 :u16vector 0 :u16vector) + (1 :string-port 0 :string-port) + (1 :char 0 :char) + (1 :list 0 :list) (1 :object-port 0 :object-port) - (1 :immediate 0 :immediate) - (1 :vm 0 :vm) - (1 :processor 0 :processor) (1 :f32vector 0 :f32vector) - (1 :readenv 0 :readenv) - (1 :u8vector-port 0 :u8vector-port) - (1 :u32vector 0 :u32vector) - (1 :vector-port 0 :vector-port) + (1 :pair 0 :pair) + (1 :special 0 :special) + (1 :port 0 :port) + (1 :void 0 :void) + (1 :foreign 0 :foreign) + (1 :false 0 :false) + (1 :weak 0 :weak) + (1 :s8vector 0 :s8vector) + (1 class 0 class) + (1 :ratnum 0 :ratnum) + (1 :address-info 0 :address-info) (1 :eof 0 :eof) + (1 :immediate 0 :immediate) + (1 :tcp-server-port 0 :tcp-server-port) + (1 :u64vector 0 :u64vector) (1 :class 0 :class) - (1 :atom 0 :atom) - (1 defsystem-class-info 0 defsystem-class-info) - (1 :condvar 0 :condvar) - (1 :null 0 :null) (2 defclass-type 1 defclass-type) (2 defstruct-type 1 defstruct-type) (3 module-type-id 2 module-type-id) (3 make-class-type-id 2 make-class-type-id) - (2 - &!class-type-ordered-slots-set! - 1 - &!class-type-ordered-slots-set!) - (2 &!class-type-accessors 1 &!class-type-accessors) - (2 !class-type-final? 1 !class-type-final?) - (2 !class-type-name 1 !class-type-name) + (2 &!class-type-super-set! 1 &!class-type-super-set!) + (2 !class-type-struct?-set! 1 !class-type-struct?-set!) + (2 !class-type-name-set! 1 !class-type-name-set!) + (2 !class-type-slots-set! 1 !class-type-slots-set!) + (2 &!class-type-id 1 &!class-type-id) + (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) + (2 &!class-type-final?-set! 1 &!class-type-final?-set!) + (2 make-class-type-info 1 make-class-type-info) + (2 &!class-type-metaclass 1 &!class-type-metaclass) + (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) - (2 class-type-info::t 1 class-type-info::t) (2 &!class-type-slot-contracts-set! 1 &!class-type-slot-contracts-set!) - (2 &!class-type-final? 1 &!class-type-final?) - (2 !class-type-predicate 1 !class-type-predicate) - (2 &!class-type-super-set! 1 &!class-type-super-set!) + (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (2 &!class-type-accessors 1 &!class-type-accessors) (2 !class-type-unchecked-mutators-set! 1 !class-type-unchecked-mutators-set!) - (2 make-class-type-info 1 make-class-type-info) - (2 class-type-info? 1 class-type-info?) - (2 &!class-type-mutators 1 &!class-type-mutators) - (2 !class-type-metaclass 1 !class-type-metaclass) - (2 &!class-type-final?-set! 1 &!class-type-final?-set!) - (2 !class-type-id 1 !class-type-id) - (2 !class-type-slots 1 !class-type-slots) - (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (2 !class-type-precedence-list 1 !class-type-precedence-list) - (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) - (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) - (2 &!class-type-id-set! 1 &!class-type-id-set!) - (2 !class-type-final?-set! 1 !class-type-final?-set!) - (2 &!class-type-name-set! 1 &!class-type-name-set!) + (2 !class-type-ordered-slots 1 !class-type-ordered-slots) + (2 !class-type-mutators 1 !class-type-mutators) (2 !class-type-accessors 1 !class-type-accessors) - (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) - (2 !class-type-system?-set! 1 !class-type-system?-set!) - (2 !class-type-name-set! 1 !class-type-name-set!) + (2 !class-type-descriptor 1 !class-type-descriptor) + (2 &!class-type-constructor 1 &!class-type-constructor) (2 - &!class-type-unchecked-mutators + &!class-type-unchecked-accessors 1 - &!class-type-unchecked-mutators) + &!class-type-unchecked-accessors) (2 - &!class-type-precedence-list-set! + &!class-type-unchecked-mutators 1 - &!class-type-precedence-list-set!) - (2 !class-type-system? 1 !class-type-system?) - (2 &!class-type-system? 1 &!class-type-system?) + &!class-type-unchecked-mutators) (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (2 !class-type-descriptor 1 !class-type-descriptor) - (2 !class-type-super 1 !class-type-super) - (2 !class-type-id-set! 1 !class-type-id-set!) + (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) - (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (2 !class-type-mutators-set! 1 !class-type-mutators-set!) - (2 !class-type-struct? 1 !class-type-struct?) - (2 - !class-type-precedence-list-set! - 1 - !class-type-precedence-list-set!) - (2 &!class-type-slots-set! 1 &!class-type-slots-set!) - (2 !class-type-predicate-set! 1 !class-type-predicate-set!) - (2 !class-type-slot-types 1 !class-type-slot-types) - (2 !class-type-struct?-set! 1 !class-type-struct?-set!) + (2 &!class-type-mutators 1 &!class-type-mutators) + (2 &!class-type-final? 1 &!class-type-final?) (2 &!class-type-name 1 &!class-type-name) - (2 &!class-type-metaclass 1 &!class-type-metaclass) - (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (2 &!class-type-slot-types 1 &!class-type-slot-types) - (2 &!class-type-struct? 1 &!class-type-struct?) - (2 &!class-type-slots 1 &!class-type-slots) + (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) (2 - !class-type-constructor-method-set! + !class-type-unchecked-accessors 1 - !class-type-constructor-method-set!) - (2 !class-type-slots-set! 1 !class-type-slots-set!) - (2 !class-type-constructor-set! 1 !class-type-constructor-set!) + !class-type-unchecked-accessors) + (2 !class-type-precedence-list 1 !class-type-precedence-list) + (2 !class-type-mutators-set! 1 !class-type-mutators-set!) + (2 !class-type-constructor 1 !class-type-constructor) + (2 !class-type-metaclass 1 !class-type-metaclass) + (2 !class-type-name 1 !class-type-name) + (2 &!class-type-id-set! 1 &!class-type-id-set!) + (2 !class-type-system?-set! 1 !class-type-system?-set!) + (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + (2 !class-type-super 1 !class-type-super) (2 &!class-type-constructor-method-set! 1 &!class-type-constructor-method-set!) - (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (2 &!class-type-predicate 1 &!class-type-predicate) - (2 !class-type-constructor-method 1 !class-type-constructor-method) - (2 &!class-type-system?-set! 1 &!class-type-system?-set!) - (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (2 &!class-type-slots 1 &!class-type-slots) + (2 !class-type-constructor-set! 1 !class-type-constructor-set!) + (2 &!class-type-descriptor 1 &!class-type-descriptor) + (2 &!class-type-super 1 &!class-type-super) + (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (2 !class-type-system? 1 !class-type-system?) + (2 !class-type-struct? 1 !class-type-struct?) (2 class-type-info::apply-macro-expander 1 @@ -528,137 +509,156 @@ namespace: gerbil/core &!class-type-slot-defaults-set! 1 &!class-type-slot-defaults-set!) - (2 &!class-type-descriptor 1 &!class-type-descriptor) - (2 !class-type-mutators 1 !class-type-mutators) + (2 + &!class-type-ordered-slots-set! + 1 + &!class-type-ordered-slots-set!) + (2 !class-type-slot-types 1 !class-type-slot-types) + (2 &!class-type-name-set! 1 &!class-type-name-set!) + (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (2 &!class-type-predicate 1 &!class-type-predicate) + (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (2 + &!class-type-unchecked-accessors-set! + 1 + &!class-type-unchecked-accessors-set!) + (2 !class-type-final?-set! 1 !class-type-final?-set!) + (2 !class-type-super-set! 1 !class-type-super-set!) + (2 !class-type-final? 1 !class-type-final?) + (2 + &!class-type-constructor-method + 1 + &!class-type-constructor-method) + (2 !class-type-predicate-set! 1 !class-type-predicate-set!) + (2 !class-type-id 1 !class-type-id) (2 &!class-type-unchecked-mutators-set! 1 &!class-type-unchecked-mutators-set!) - (2 !class-type-super-set! 1 !class-type-super-set!) - (2 !class-type-accessors-set! 1 !class-type-accessors-set!) - (2 &!class-type-super 1 &!class-type-super) - (2 &!class-type-id 1 &!class-type-id) + (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) + (2 &!class-type-system?-set! 1 &!class-type-system?-set!) + (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (2 &!class-type-system? 1 &!class-type-system?) (2 - !class-type-unchecked-accessors-set! + !class-type-constructor-method-set! 1 - !class-type-unchecked-accessors-set!) - (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (2 &!class-type-constructor 1 &!class-type-constructor) + !class-type-constructor-method-set!) + (2 &!class-type-slots-set! 1 &!class-type-slots-set!) + (2 !class-type-id-set! 1 !class-type-id-set!) + (2 &!class-type-slot-types 1 &!class-type-slot-types) (2 !class-type-slot-contracts-set! 1 !class-type-slot-contracts-set!) - (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) - (2 - !class-type-unchecked-accessors - 1 - !class-type-unchecked-accessors) - (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (2 !class-type-slot-defaults 1 !class-type-slot-defaults) - (2 !class-type-ordered-slots 1 !class-type-ordered-slots) - (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) - (2 !class-type-constructor 1 !class-type-constructor) (2 - &!class-type-unchecked-accessors-set! + !class-type-unchecked-accessors-set! 1 - &!class-type-unchecked-accessors-set!) - (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (2 !class-type-slot-contracts 1 !class-type-slot-contracts) + !class-type-unchecked-accessors-set!) (2 - &!class-type-unchecked-accessors + !class-type-precedence-list-set! 1 - &!class-type-unchecked-accessors) - (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + !class-type-precedence-list-set!) + (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) (2 - &!class-type-constructor-method + &!class-type-precedence-list-set! 1 - &!class-type-constructor-method) - (2 &!class-type-precedence-list 1 &!class-type-precedence-list) + &!class-type-precedence-list-set!) + (2 &!class-type-struct? 1 &!class-type-struct?) + (2 &!class-type-precedence-list 1 &!class-type-precedence-list) + (2 !class-type-slot-defaults 1 !class-type-slot-defaults) + (2 !class-type-constructor-method 1 !class-type-constructor-method) + (2 !class-type-accessors-set! 1 !class-type-accessors-set!) + (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) + (2 !class-type-slot-contracts 1 !class-type-slot-contracts) + (2 !class-type-predicate 1 !class-type-predicate) + (2 !class-type-slots 1 !class-type-slots) + (2 class-type-info? 1 class-type-info?) + (2 class-type-info::t 1 class-type-info::t) (2 class-type-info 1 class-type-info) + (2 @-set! 1 @-set!) + (2 defmethod 1 defmethod) + (2 define-class 1 define-class) (2 define-struct 1 define-struct) (2 @ 1 @) - (2 define-class 1 define-class) - (2 defstruct 1 defstruct) (2 defclass 1 defclass) - (2 defmethod 1 defmethod) - (2 @-set! 1 @-set!) - (2 :symbolic 1 :symbolic) - (2 :byte-port 1 :byte-port) - (2 :real 1 :real) - (2 :s32vector 1 :s32vector) - (2 :list 1 :list) - (2 :string 1 :string) - (2 :false 1 :false) + (2 defstruct 1 defstruct) + (2 :readtable 1 :readtable) + (2 :cpxnum 1 :cpxnum) + (2 :thread 1 :thread) + (2 :promise 1 :promise) (2 :boolean 1 :boolean) - (2 :pair 1 :pair) - (2 :ratnum 1 :ratnum) - (2 :mutex 1 :mutex) - (2 :special 1 :special) - (2 :flonum 1 :flonum) - (2 :procedure 1 :procedure) - (2 :continuation 1 :continuation) + (2 :string 1 :string) (2 :s16vector 1 :s16vector) - (2 :vector 1 :vector) - (2 :number 1 :number) + (2 :t 1 :t) + (2 :atom 1 :atom) + (2 :socket-info 1 :socket-info) + (2 :u32vector 1 :u32vector) + (2 :symbolic 1 :symbolic) + (2 :file-info 1 :file-info) (2 :true 1 :true) - (2 :integer 1 :integer) - (2 :table 1 :table) - (2 :bignum 1 :bignum) - (2 :event-queue-port 1 :event-queue-port) - (2 :raw-device-port 1 :raw-device-port) - (2 :thread 1 :thread) - (2 :foreign 1 :foreign) - (2 :promise 1 :promise) - (2 :frame 1 :frame) - (2 :box 1 :box) + (2 :vector-port 1 :vector-port) + (2 :readenv 1 :readenv) + (2 :procedure 1 :procedure) + (2 :hvector 1 :hvector) + (2 :condvar 1 :condvar) + (2 :number 1 :number) + (2 :s32vector 1 :s32vector) (2 :f64vector 1 :f64vector) - (2 :s8vector 1 :s8vector) - (2 :object 1 :object) - (2 class 1 class) + (2 :vm 1 :vm) + (2 :integer 1 :integer) + (2 :u16vector 1 :u16vector) + (2 :vector 1 :vector) + (2 :values 1 :values) + (2 :processor 1 :processor) + (2 :writeenv 1 :writeenv) + (2 :udp-port 1 :udp-port) + (2 :sequence 1 :sequence) + (2 :thread-group 1 :thread-group) (2 :keyword 1 :keyword) + (2 defsystem-class-info 1 defsystem-class-info) (2 :directory-port 1 :directory-port) - (2 :udp-port 1 :udp-port) - (2 :hvector 1 :hvector) - (2 :tcp-server-port 1 :tcp-server-port) - (2 :string-port 1 :string-port) - (2 :u64vector 1 :u64vector) + (2 :byte-port 1 :byte-port) (2 :character-port 1 :character-port) - (2 :values 1 :values) - (2 :fixnum 1 :fixnum) - (2 :u8vector 1 :u8vector) - (2 :weak 1 :weak) - (2 :t 1 :t) - (2 :void 1 :void) - (2 :cpxnum 1 :cpxnum) - (2 :char 1 :char) - (2 :sequence 1 :sequence) - (2 :device-port 1 :device-port) + (2 :mutex 1 :mutex) (2 :time 1 :time) - (2 :address-info 1 :address-info) - (2 :socket-info 1 :socket-info) - (2 :writeenv 1 :writeenv) - (2 :file-info 1 :file-info) - (2 :readtable 1 :readtable) - (2 :port 1 :port) + (2 :continuation 1 :continuation) + (2 :bignum 1 :bignum) + (2 :box 1 :box) (2 :s64vector 1 :s64vector) - (2 :thread-group 1 :thread-group) + (2 :u8vector 1 :u8vector) + (2 :real 1 :real) + (2 :table 1 :table) + (2 :raw-device-port 1 :raw-device-port) + (2 :event-queue-port 1 :event-queue-port) + (2 :u8vector-port 1 :u8vector-port) + (2 :flonum 1 :flonum) + (2 :fixnum 1 :fixnum) + (2 :object 1 :object) + (2 :null 1 :null) + (2 :frame 1 :frame) + (2 :device-port 1 :device-port) (2 :symbol 1 :symbol) - (2 :u16vector 1 :u16vector) + (2 :string-port 1 :string-port) + (2 :char 1 :char) + (2 :list 1 :list) (2 :object-port 1 :object-port) - (2 :immediate 1 :immediate) - (2 :vm 1 :vm) - (2 :processor 1 :processor) (2 :f32vector 1 :f32vector) - (2 :readenv 1 :readenv) - (2 :u8vector-port 1 :u8vector-port) - (2 :u32vector 1 :u32vector) - (2 :vector-port 1 :vector-port) + (2 :pair 1 :pair) + (2 :special 1 :special) + (2 :port 1 :port) + (2 :void 1 :void) + (2 :foreign 1 :foreign) + (2 :false 1 :false) + (2 :weak 1 :weak) + (2 :s8vector 1 :s8vector) + (2 class 1 class) + (2 :ratnum 1 :ratnum) + (2 :address-info 1 :address-info) (2 :eof 1 :eof) - (2 :class 1 :class) - (2 :atom 1 :atom) - (2 defsystem-class-info 1 defsystem-class-info) - (2 :condvar 1 :condvar) - (2 :null 1 :null)) + (2 :immediate 1 :immediate) + (2 :tcp-server-port 1 :tcp-server-port) + (2 :u64vector 1 :u64vector) + (2 :class 1 :class)) (phi: 1 :gerbil/core/match) (phi: 1 :gerbil/core/more-sugar) (phi: 1 :gerbil/core/contract) @@ -669,367 +669,367 @@ namespace: gerbil/core (phi: 2 :gerbil/core/expander)) (%#export (spec: 1 !class-precedence-list !class-precedence-list) - (spec: 1 &type-env-var-set! &type-env-var-set!) - (spec: 1 type-env-type-set! type-env-type-set!) - (spec: 1 &type-env-checked?-set! &type-env-checked?-set!) - (spec: 1 current-type-env current-type-env) - (spec: 1 &type-env-type &type-env-type) - (spec: 1 type-env-super type-env-super) - (spec: 1 type-env-type type-env-type) - (spec: 1 &type-env-super-set! &type-env-super-set!) - (spec: 1 type-env-var type-env-var) - (spec: 1 type-env-super-set! type-env-super-set!) - (spec: 1 make-type-env make-type-env) - (spec: 1 type-env-lookup type-env-lookup) (spec: 1 type-env-var-set! type-env-var-set!) - (spec: 1 type-env? type-env?) - (spec: 1 &type-env-type-set! &type-env-type-set!) (spec: 1 type-env-checked?-set! type-env-checked?-set!) - (spec: 1 &type-env-checked? &type-env-checked?) - (spec: 1 type-env type-env) (spec: 1 &type-env-super &type-env-super) + (spec: 1 &type-env-type &type-env-type) + (spec: 1 &type-env-var-set! &type-env-var-set!) (spec: 1 type-env-checked? type-env-checked?) + (spec: 1 type-env-super type-env-super) + (spec: 1 &type-env-checked?-set! &type-env-checked?-set!) + (spec: 1 &type-env-checked? &type-env-checked?) (spec: 1 &type-env-var &type-env-var) + (spec: 1 type-env? type-env?) + (spec: 1 &type-env-type-set! &type-env-type-set!) (spec: 1 type-env::t type-env::t) + (spec: 1 type-env-type type-env-type) + (spec: 1 type-env-var type-env-var) + (spec: 1 current-type-env current-type-env) + (spec: 1 type-env-lookup type-env-lookup) + (spec: 1 type-env type-env) + (spec: 1 type-env-super-set! type-env-super-set!) + (spec: 1 make-type-env make-type-env) + (spec: 1 type-env-type-set! type-env-type-set!) + (spec: 1 &type-env-super-set! &type-env-super-set!) (spec: 1 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 1 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 1 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) (spec: 1 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) (spec: 1 - interface-info-instance-type-set! - interface-info-instance-type-set!) - (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 1 - interface-info-interface-descriptor - interface-info-interface-descriptor) + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) (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-instance-predicate - &interface-info-instance-predicate) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 1 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) - (spec: 1 interface-info-name-set! interface-info-name-set!) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 1 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info-instance-predicate + interface-info-instance-predicate) (spec: 1 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 1 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) - (spec: 1 make-interface-info make-interface-info) - (spec: 1 interface-info? interface-info?) + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) + (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) (spec: 1 - interface-info-instance-constructor - interface-info-instance-constructor) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 1 - interface-info-interface-mixin - interface-info-interface-mixin) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 1 - &interface-info-interface-mixin - &interface-info-interface-mixin) - (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 1 - &interface-info-instance-constructor - &interface-info-instance-constructor) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) (spec: 1 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 1 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) - (spec: 1 &interface-info-instance-type &interface-info-instance-type) + interface-info-instance-type-set! + interface-info-instance-type-set!) (spec: 1 - interface-info-interface-methods - interface-info-interface-methods) - (spec: 1 interface-info-instance-type interface-info-instance-type) - (spec: 1 interface-info::t interface-info::t) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 1 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + &interface-info-instance-constructor + &interface-info-instance-constructor) + (spec: 1 &interface-info-name-set! &interface-info-name-set!) (spec: 1 - &interface-info-interface-methods - &interface-info-interface-methods) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) (spec: 1 &interface-info-name &interface-info-name) (spec: 1 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + interface-info-interface-methods + interface-info-interface-methods) + (spec: 1 interface-info? interface-info?) (spec: 1 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) - (spec: 1 interface-info-name interface-info-name) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) (spec: 1 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-interface-mixin + &interface-info-interface-mixin) + (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) (spec: 1 - &interface-info-implementation-methods - &interface-info-implementation-methods) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 1 - interface-info-instance-predicate - interface-info-instance-predicate) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 1 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) (spec: 1 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) (spec: 1 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) (spec: 1 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) + (spec: 1 interface-info-instance-type interface-info-instance-type) + (spec: 1 interface-info-name-set! interface-info-name-set!) + (spec: 1 interface-info::t interface-info::t) (spec: 1 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) + interface-info-implementation-methods + interface-info-implementation-methods) + (spec: 1 interface-info-name interface-info-name) (spec: 1 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) (spec: 1 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) - (spec: 1 &interface-info-name-set! &interface-info-name-set!) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) + (spec: 1 interface-info interface-info) (spec: 1 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 1 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) + (spec: 1 make-interface-info make-interface-info) (spec: 1 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) - (spec: 1 interface-info interface-info) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) + (spec: 1 &interface-info-instance-type &interface-info-instance-type) (spec: 1 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: 1 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 1 - interface-info-implementation-methods - interface-info-implementation-methods) + interface-info-interface-descriptor + interface-info-interface-descriptor) (spec: 1 is-signature? is-signature?) - (spec: 0 case-lambda/c case-lambda/c) + (spec: 0 lambda/c lambda/c) + (spec: 0 @method @method) + (spec: 0 with-procedure-signature with-procedure-signature) + (spec: 0 def*/c def*/c) + (spec: 0 defstruct/c defstruct/c) + (spec: 0 do/c do/c) + (spec: 0 do-loop-result do-loop-result) + (spec: 0 do-loop-step do-loop-step) + (spec: 0 defclass/c defclass/c) + (spec: 0 defmutable* defmutable*) + (spec: 0 defmutable defmutable) + (spec: 0 with-procedure-contract with-procedure-contract) (spec: 0 with-procedure-unchecked-contract with-procedure-unchecked-contract) - (spec: 0 with-procedure-contract with-procedure-contract) - (spec: 0 defclass/c defclass/c) - (spec: 0 do-loop-step do-loop-step) - (spec: 0 defmethod/c defmethod/c) - (spec: 0 do-loop-result do-loop-result) - (spec: 0 do-while/c do-while/c) - (spec: 0 @method @method) - (spec: 0 defstruct/c defstruct/c) - (spec: 0 lambda/c lambda/c) + (spec: 0 case-lambda/c case-lambda/c) (spec: 0 with-receiver with-receiver) - (spec: 0 def/c def/c) (spec: 0 let/c let/c) - (spec: 0 defmutable* defmutable*) - (spec: 0 def*/c def*/c) - (spec: 0 with-procedure-signature with-procedure-signature) - (spec: 0 do/c do/c) - (spec: 0 defmutable defmutable) + (spec: 0 do-while/c do-while/c) + (spec: 0 defmethod/c defmethod/c) + (spec: 0 def/c def/c) + (spec: 1 check-signature! check-signature!) + (spec: 1 compatible-type-contract? compatible-type-contract?) + (spec: 1 check-signature-spec! check-signature-spec!) + (spec: 1 make-procedure-contract make-procedure-contract) (spec: 1 signature-contract? signature-contract?) + (spec: 1 keywordtype-descriptor resolve-type->type-descriptor) - (spec: 1 type-reference type-reference) (spec: 1 type-reference::t type-reference::t) - (spec: 1 type-reference? type-reference?) - (spec: 1 resolve-type->identifier resolve-type->identifier) - (spec: - 1 - type-reference-identifier-set! - type-reference-identifier-set!) + (spec: 1 make-type-reference make-type-reference) + (spec: 1 &type-reference-identifier &type-reference-identifier) (spec: 1 &type-reference-identifier-set! &type-reference-identifier-set!) - (spec: 1 &type-reference-identifier &type-reference-identifier) (spec: 1 resolve-type resolve-type) (spec: 1 type-reference-identifier type-reference-identifier) - (spec: 1 make-type-reference make-type-reference) + (spec: 1 type-reference? type-reference?) + (spec: 1 resolve-type->identifier resolve-type->identifier) + (spec: + 1 + type-reference-identifier-set! + type-reference-identifier-set!) + (spec: 1 type-reference type-reference) + (spec: 1 resolve-type->type-descriptor resolve-type->type-descriptor) + (spec: 1 type-identifier? type-identifier?) (spec: 0 deftype deftype) - (spec: 0 InterfaceInfo InterfaceInfo) - (spec: 0 ContractRules ContractRules) + (spec: 0 TypeReference TypeReference) (spec: 0 TypedDefinitions TypedDefinitions) - (spec: 0 Interface Interface) (spec: 0 ClassMeta ClassMeta) - (spec: 0 TypeReference TypeReference) - (spec: 0 TypeEnv TypeEnv) + (spec: 0 InterfaceInfo InterfaceInfo) (spec: 0 TypeCast TypeCast) + (spec: 0 Interface Interface) + (spec: 0 ContractRules ContractRules) + (spec: 0 TypeEnv TypeEnv) (spec: 0 Using Using) + (spec: 0 group-in group-in) + (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) (spec: 0 except-out except-out) + (spec: 0 defsyntax-for-import defsyntax-for-import) (spec: 0 except-in except-in) - (spec: 0 group-in group-in) - (spec: 0 rename-in rename-in) - (spec: 0 rename-out rename-out) (spec: 0 require require) - (spec: 0 prefix-out prefix-out) - (spec: 0 only-in only-in) (spec: 0 for-syntax for-syntax) + (spec: 0 only-in only-in) + (spec: 0 rename-out rename-out) + (spec: 0 defsyntax-for-export defsyntax-for-export) + (spec: 0 rename-in rename-in) (spec: 0 struct-out struct-out) + (spec: 0 prefix-out prefix-out) (spec: 0 prefix-in prefix-in) (spec: 0 for-template for-template) - (spec: 0 defsyntax-for-import defsyntax-for-import) - (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) - (spec: 0 defsyntax-for-export defsyntax-for-export) - (spec: 1 setf-macro setf-macro) - (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) - (spec: 1 &setq-macro-macro &setq-macro-macro) - (spec: 1 setf-macro::t setf-macro::t) - (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) (spec: 1 make-setq-macro make-setq-macro) + (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 1 setf-macro? setf-macro?) (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 1 make-setf-macro make-setf-macro) (spec: 1 setq-macro-macro setq-macro-macro) - (spec: 1 expand-set! expand-set!) (spec: 1 &setf-macro-macro &setf-macro-macro) - (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 1 setf-macro::t setf-macro::t) + (spec: 1 setq-macro::t setq-macro::t) + (spec: 1 &setq-macro-macro &setq-macro-macro) + (spec: 1 setq-macro setq-macro) (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) - (spec: 1 setq-macro? setq-macro?) + (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) (spec: 1 setf-macro-macro setf-macro-macro) + (spec: 1 setq-macro? setq-macro?) + (spec: 1 make-setf-macro make-setf-macro) + (spec: 1 expand-set! expand-set!) (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 1 setq-macro::t setq-macro::t) - (spec: 1 setf-macro? setf-macro?) - (spec: 1 setq-macro setq-macro) + (spec: 1 setf-macro setf-macro) + (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) + (spec: 0 values-set! values-set!) + (spec: 0 let/cc let/cc) (spec: 0 unwind-protect unwind-protect) (spec: 0 eval-when-compile eval-when-compile) (spec: 0 parameterize parameterize) - (spec: 0 let/cc let/cc) - (spec: 0 values-set! values-set!) (spec: 0 @bytes @bytes) (spec: 1 match-pattern? match-pattern?) (spec: 1 syntax-local-match-macro? syntax-local-match-macro?) @@ -1037,2300 +1037,2302 @@ namespace: gerbil/core (spec: 1 make-match-macro make-match-macro) (spec: 1 match-macro::t match-macro::t) (spec: 1 match-macro match-macro) - (spec: 0 match* match*) (spec: 0 match match) - (spec: 0 with with) + (spec: 0 match* match*) (spec: 0 defsyntax-for-match defsyntax-for-match) + (spec: 0 with with) (spec: 0 with* with*) - (spec: 0 defrules-for-match defrules-for-match) (spec: 0 ? ?) - (spec: 0 :null :null) - (spec: 0 :condvar :condvar) - (spec: 0 defsystem-class-info defsystem-class-info) - (spec: 0 :atom :atom) + (spec: 0 defrules-for-match defrules-for-match) (spec: 0 :class :class) + (spec: 0 :u64vector :u64vector) + (spec: 0 :tcp-server-port :tcp-server-port) + (spec: 0 :immediate :immediate) (spec: 0 :eof :eof) - (spec: 0 :vector-port :vector-port) - (spec: 0 :u32vector :u32vector) - (spec: 0 :u8vector-port :u8vector-port) - (spec: 0 :readenv :readenv) + (spec: 0 :address-info :address-info) + (spec: 0 :ratnum :ratnum) + (spec: 0 class class) + (spec: 0 :s8vector :s8vector) + (spec: 0 :weak :weak) + (spec: 0 :false :false) + (spec: 0 :foreign :foreign) + (spec: 0 :void :void) + (spec: 0 :port :port) + (spec: 0 :special :special) + (spec: 0 :pair :pair) (spec: 0 :f32vector :f32vector) - (spec: 0 :processor :processor) - (spec: 0 :vm :vm) - (spec: 0 :immediate :immediate) (spec: 0 :object-port :object-port) - (spec: 0 :u16vector :u16vector) + (spec: 0 :list :list) + (spec: 0 :char :char) + (spec: 0 :string-port :string-port) (spec: 0 :symbol :symbol) - (spec: 0 :thread-group :thread-group) - (spec: 0 :s64vector :s64vector) - (spec: 0 :port :port) - (spec: 0 :readtable :readtable) - (spec: 0 :file-info :file-info) - (spec: 0 :writeenv :writeenv) - (spec: 0 :socket-info :socket-info) - (spec: 0 :address-info :address-info) - (spec: 0 :time :time) (spec: 0 :device-port :device-port) - (spec: 0 :sequence :sequence) - (spec: 0 :char :char) - (spec: 0 :cpxnum :cpxnum) - (spec: 0 :void :void) - (spec: 0 :t :t) - (spec: 0 :weak :weak) - (spec: 0 :u8vector :u8vector) + (spec: 0 :frame :frame) + (spec: 0 :null :null) + (spec: 0 :object :object) (spec: 0 :fixnum :fixnum) - (spec: 0 :values :values) + (spec: 0 :flonum :flonum) + (spec: 0 :u8vector-port :u8vector-port) + (spec: 0 :event-queue-port :event-queue-port) + (spec: 0 :raw-device-port :raw-device-port) + (spec: 0 :table :table) + (spec: 0 :real :real) + (spec: 0 :u8vector :u8vector) + (spec: 0 :s64vector :s64vector) + (spec: 0 :box :box) + (spec: 0 :bignum :bignum) + (spec: 0 :continuation :continuation) + (spec: 0 :time :time) + (spec: 0 :mutex :mutex) (spec: 0 :character-port :character-port) - (spec: 0 :u64vector :u64vector) - (spec: 0 :string-port :string-port) - (spec: 0 :tcp-server-port :tcp-server-port) - (spec: 0 :hvector :hvector) - (spec: 0 :udp-port :udp-port) + (spec: 0 :byte-port :byte-port) (spec: 0 :directory-port :directory-port) + (spec: 0 defsystem-class-info defsystem-class-info) (spec: 0 :keyword :keyword) - (spec: 0 class class) - (spec: 0 :object :object) - (spec: 0 :s8vector :s8vector) - (spec: 0 :f64vector :f64vector) - (spec: 0 :box :box) - (spec: 0 :frame :frame) - (spec: 0 :promise :promise) - (spec: 0 :foreign :foreign) - (spec: 0 :thread :thread) - (spec: 0 :raw-device-port :raw-device-port) - (spec: 0 :event-queue-port :event-queue-port) - (spec: 0 :bignum :bignum) - (spec: 0 :table :table) + (spec: 0 :thread-group :thread-group) + (spec: 0 :sequence :sequence) + (spec: 0 :udp-port :udp-port) + (spec: 0 :writeenv :writeenv) + (spec: 0 :processor :processor) + (spec: 0 :values :values) + (spec: 0 :vector :vector) + (spec: 0 :u16vector :u16vector) (spec: 0 :integer :integer) - (spec: 0 :true :true) + (spec: 0 :vm :vm) + (spec: 0 :f64vector :f64vector) + (spec: 0 :s32vector :s32vector) (spec: 0 :number :number) - (spec: 0 :vector :vector) - (spec: 0 :s16vector :s16vector) - (spec: 0 :continuation :continuation) + (spec: 0 :condvar :condvar) + (spec: 0 :hvector :hvector) (spec: 0 :procedure :procedure) - (spec: 0 :flonum :flonum) - (spec: 0 :special :special) - (spec: 0 :mutex :mutex) - (spec: 0 :ratnum :ratnum) - (spec: 0 :pair :pair) - (spec: 0 :boolean :boolean) - (spec: 0 :false :false) - (spec: 0 :string :string) - (spec: 0 :list :list) - (spec: 0 :s32vector :s32vector) - (spec: 0 :real :real) - (spec: 0 :byte-port :byte-port) + (spec: 0 :readenv :readenv) + (spec: 0 :vector-port :vector-port) + (spec: 0 :true :true) + (spec: 0 :file-info :file-info) (spec: 0 :symbolic :symbolic) - (spec: 0 @-set! @-set!) - (spec: 0 define-class define-class) + (spec: 0 :u32vector :u32vector) + (spec: 0 :socket-info :socket-info) + (spec: 0 :atom :atom) + (spec: 0 :t :t) + (spec: 0 :s16vector :s16vector) + (spec: 0 :string :string) + (spec: 0 :boolean :boolean) + (spec: 0 :promise :promise) + (spec: 0 :thread :thread) + (spec: 0 :cpxnum :cpxnum) + (spec: 0 :readtable :readtable) (spec: 0 @ @) (spec: 0 define-struct define-struct) + (spec: 0 define-class define-class) + (spec: 0 @-set! @-set!) (spec: 0 defstruct-type defstruct-type) (spec: 0 defclass-type defclass-type) (spec: 0 MOP-3 MOP-3) - (spec: 0 MOP-2 MOP-2) (spec: 0 MOP-4 MOP-4) (spec: 0 MOP-1 MOP-1) (spec: 0 MOP-5 MOP-5) + (spec: 0 MOP-2 MOP-2) (spec: 0 defconst defconst) (spec: 0 defsyntax defsyntax) (spec: 0 definline definline) - (spec: 0 ~case ~case) - (spec: 0 ~case-dispatch* ~case-dispatch*) + (spec: 0 <> <>) + (spec: 0 quasiquote quasiquote) + (spec: 0 alet* alet*) + (spec: 0 case case) + (spec: 0 and-let* and-let*) (spec: 0 begin0 begin0) + (spec: 0 ~case ~case) (spec: 0 cut cut) - (spec: 0 <...> <...>) - (spec: 0 delay delay) - (spec: 0 alet alet) - (spec: 0 ~case-dispatch ~case-dispatch) - (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 0 ~case-dispatch* ~case-dispatch*) (spec: 0 ~case-test ~case-test) - (spec: 0 rec rec) - (spec: 0 and-let* and-let*) + (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 0 ~case-dispatch ~case-dispatch) + (spec: 0 delay delay) + (spec: 0 <...> <...>) (spec: 0 @list @list) - (spec: 0 quasiquote quasiquote) - (spec: 0 <> <>) + (spec: 0 alet alet) (spec: 0 defvalues defvalues) - (spec: 0 alet* alet*) - (spec: 0 case case) - (spec: 0 letrec* letrec*) - (spec: 0 defsyntax% defsyntax%) - (spec: 0 unless unless) - (spec: 0 syntax-error syntax-error) - (spec: 0 define define) + (spec: 0 rec rec) (spec: 0 when when) - (spec: 0 and and) + (spec: 0 define define) (spec: 0 defalias defalias) + (spec: 0 ~let ~let) + (spec: 0 defsyntax% defsyntax%) (spec: 0 cond cond) (spec: 0 defrule defrule) (spec: 0 let* let*) - (spec: 0 ~let ~let) - (spec: 0 defrules defrules) - (spec: 0 define-rules define-rules) + (spec: 0 unless unless) (spec: 0 let*-values let*-values) (spec: 0 or or) + (spec: 0 defrules defrules) (spec: 0 letrec letrec) - (spec: 0 s16vector-ref-set! s16vector-ref-set!) - (spec: 0 f64vector-ref-set! f64vector-ref-set!) - (spec: 0 u32vector-ref-set! u32vector-ref-set!) + (spec: 0 define-rules define-rules) + (spec: 0 and and) + (spec: 0 letrec* letrec*) + (spec: 0 syntax-error syntax-error) (spec: 0 call/values call/values) + (spec: 0 s8vector-ref-set! s8vector-ref-set!) + (spec: 0 random-bytes random-bytes) + (spec: 0 car-set! car-set!) + (spec: 0 s32vector-ref-set! s32vector-ref-set!) + (spec: 0 s16vector-ref-set! s16vector-ref-set!) (spec: 0 u64vector-ref-set! u64vector-ref-set!) + (spec: 0 u32vector-ref-set! u32vector-ref-set!) + (spec: 0 call/parameters call/parameters) (spec: 0 cdr-set! cdr-set!) - (spec: 0 string-ref-set! string-ref-set!) - (spec: 0 f32vector-ref-set! f32vector-ref-set!) + (spec: 0 u16vector-ref-set! u16vector-ref-set!) (spec: 0 s64vector-ref-set! s64vector-ref-set!) - (spec: 0 s32vector-ref-set! s32vector-ref-set!) - (spec: 0 vector-ref-set! vector-ref-set!) - (spec: 0 s8vector-ref-set! s8vector-ref-set!) + (spec: 0 string-ref-set! string-ref-set!) (spec: 0 random-source-make-bytes random-source-make-bytes) - (spec: 0 u16vector-ref-set! u16vector-ref-set!) - (spec: 0 call/parameters call/parameters) - (spec: 0 car-set! car-set!) - (spec: 0 u8vector-ref-set! u8vector-ref-set!) + (spec: 0 f32vector-ref-set! f32vector-ref-set!) (spec: 0 box-set! box-set!) - (spec: 0 random-bytes random-bytes) - (spec: 0 s64vector::t s64vector::t) - (spec: 0 list->hash-table list->hash-table) - (spec: 0 character-port::t character-port::t) - (spec: 0 procedure::t procedure::t) - (spec: 0 vector-port::t vector-port::t) - (spec: 0 raw-device-port::t raw-device-port::t) - (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 0 with-dynamic-lock with-dynamic-lock) - (spec: 0 fx>=0? fx>=0?) - (spec: 0 unbound-key-error? unbound-key-error?) - (spec: 0 hash-clear! hash-clear!) - (spec: 0 new-instance new-instance) - (spec: 0 file-info::t file-info::t) - (spec: 0 object? object?) - (spec: 0 thread-local-set! thread-local-set!) - (spec: 0 max-char-code max-char-code) - (spec: 0 directory-port::t directory-port::t) - (spec: 0 dssl-optional-object? dssl-optional-object?) - (spec: 0 spawn/name spawn/name) - (spec: 0 make-hash-table-eqv make-hash-table-eqv) - (spec: - 0 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 0 class-type-sealed? class-type-sealed?) - (spec: 0 &class-type-flags &class-type-flags) - (spec: 0 &class-type-super &class-type-super) - (spec: 0 values-ref values-ref) - (spec: 0 processor::t processor::t) - (spec: 0 character-port? character-port?) - (spec: 0 interface-descriptor-methods interface-descriptor-methods) - (spec: 0 raise-unbound-key-error raise-unbound-key-error) - (spec: 0 pair::t pair::t) - (spec: 0 hvector? hvector?) - (spec: 0 fx<=0? fx<=0?) - (spec: 0 u8vector::t u8vector::t) - (spec: 0 byte-port::t byte-port::t) - (spec: 0 plist->hash-table-eq plist->hash-table-eq) - (spec: 0 mutex::t mutex::t) - (spec: 0 file-newer? file-newer?) - (spec: 0 object-port? object-port?) - (spec: 0 foldr foldr) - (spec: 0 hash-copy hash-copy) - (spec: 0 with-exception-stack-trace with-exception-stack-trace) - (spec: 0 eqv-hash eqv-hash) - (spec: 0 make-syntax-error make-syntax-error) - (spec: 0 device-port? device-port?) - (spec: 0 dssl-rest-object? dssl-rest-object?) - (spec: 0 make-hash-table-immediate make-hash-table-immediate) - (spec: 0 replx replx) - (spec: 0 make-class-predicate make-class-predicate) - (spec: 0 satisfies? satisfies?) - (spec: 0 list->hash-table-eq list->hash-table-eq) - (spec: 0 interface-descriptor? interface-descriptor?) - (spec: 0 promise::t promise::t) - (spec: 0 is-hash-table? is-hash-table?) - (spec: 0 false false) - (spec: 0 gerbil-system gerbil-system) - (spec: 0 exception? exception?) - (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 0 hash-find hash-find) - (spec: 0 filter-map filter-map) - (spec: 0 hash-remove! hash-remove!) - (spec: 0 memf memf) - (spec: 0 dump-stack-trace! dump-stack-trace!) - (spec: 0 string-empty? string-empty?) - (spec: 0 make-hash-table-string make-hash-table-string) - (spec: 0 class-type-slot-table class-type-slot-table) - (spec: 0 make-class-slot-accessor make-class-slot-accessor) - (spec: 0 s32vector::t s32vector::t) - (spec: 0 &class-type-id &class-type-id) - (spec: 0 list->hash-table-eqv list->hash-table-eqv) - (spec: 0 class-type-flags class-type-flags) - (spec: 0 interface-descriptor-type interface-descriptor-type) - (spec: 0 ratnum::t ratnum::t) - (spec: 0 gerbil-system-manifest gerbil-system-manifest) - (spec: 0 pget pget) - (spec: 0 fx>0? fx>0?) - (spec: 0 bytes->string bytes->string) - (spec: 0 udp-port? udp-port?) - (spec: 0 remv remv) - (spec: 0 t::t t::t) - (spec: 0 object::t object::t) - (spec: 0 thread::t thread::t) - (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 0 symbol::t symbol::t) - (spec: 0 absent-value absent-value) - (spec: 0 string-hash string-hash) - (spec: 0 error error) - (spec: 0 direct-method-ref direct-method-ref) - (spec: 0 slot-set! slot-set!) - (spec: 0 constructor-init! constructor-init!) - (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 0 display-exception display-exception) - (spec: 0 spawn/group spawn/group) - (spec: 0 class-type-super class-type-super) - (spec: 0 readenv? readenv?) - (spec: 0 make-class-slot-mutator make-class-slot-mutator) - (spec: 0 list->hash-table-immediate list->hash-table-immediate) - (spec: 0 with-lock with-lock) - (spec: 0 class-type-methods class-type-methods) - (spec: 0 unchecked-slot-ref unchecked-slot-ref) - (spec: 0 gerbil-system-version-string gerbil-system-version-string) - (spec: 0 vector-port? vector-port?) - (spec: 0 plist->hash-table-string plist->hash-table-string) - (spec: 0 boolean::t boolean::t) - (spec: 0 HashTableLock::interface HashTableLock::interface) - (spec: 0 table::t table::t) - (spec: 0 string::t string::t) - (spec: 0 display-as-string display-as-string) - (spec: 0 special? special?) - (spec: 0 class-type-slot-vector class-type-slot-vector) - (spec: - 0 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 0 list->hash-table-string list->hash-table-string) - (spec: 0 raw-device-port? raw-device-port?) - (spec: 0 class-type-id class-type-id) - (spec: 0 vector::t vector::t) - (spec: 0 with-unwind-protect with-unwind-protect) - (spec: 0 raise raise) - (spec: 0 gerbil-version-string gerbil-version-string) - (spec: 0 fxshift fxshift) - (spec: 0 HashTableLock::t HashTableLock::t) - (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 0 bound-method-ref bound-method-ref) - (spec: 0 next-method next-method) + (spec: 0 u8vector-ref-set! u8vector-ref-set!) + (spec: 0 f64vector-ref-set! f64vector-ref-set!) + (spec: 0 vector-ref-set! vector-ref-set!) (spec: 0 hash-fold hash-fold) - (spec: 0 agetv agetv) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 assgetv assgetv) + (spec: 0 call-next-method call-next-method) + (spec: 0 gerbil-load-expander! gerbil-load-expander!) (spec: 0 hash-table? hash-table?) - (spec: 0 as-string as-string) - (spec: 0 struct->list struct->list) - (spec: 0 make-object make-object) - (spec: 0 directory-port? directory-port?) - (spec: 0 dump-stack-trace? dump-stack-trace?) - (spec: 0 continuation::t continuation::t) - (spec: 0 s8vector::t s8vector::t) - (spec: 0 class-type-system? class-type-system?) - (spec: 0 keyword->symbol keyword->symbol) - (spec: 0 class-type-name class-type-name) + (spec: 0 interface-instance-object interface-instance-object) + (spec: 0 &interface-instance-object &interface-instance-object) + (spec: 0 readtable::t readtable::t) + (spec: 0 u16vector::t u16vector::t) + (spec: 0 build-manifest-string build-manifest-string) + (spec: 0 keyword-dispatch keyword-dispatch) + (spec: 0 class-type-constructor class-type-constructor) + (spec: 0 display-build-manifest display-build-manifest) (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 0 c4-linearize c4-linearize) - (spec: 0 checked-method-ref checked-method-ref) - (spec: 0 bignum::t bignum::t) - (spec: 0 pgetq pgetq) - (spec: 0 immediate-instance-of? immediate-instance-of?) - (spec: 0 andmap andmap) + (spec: 0 class-type-precedence-list class-type-precedence-list) + (spec: 0 string-index string-index) (spec: 0 symbolic-table-delete! symbolic-table-delete!) - (spec: 0 box::t box::t) - (spec: 0 assgetq assgetq) - (spec: 0 foreign::t foreign::t) + (spec: 0 socket-info::t socket-info::t) (spec: 0 struct-copy struct-copy) - (spec: 0 HashTable::interface HashTable::interface) - (spec: 0 hash-for-each hash-for-each) - (spec: 0 method-ref method-ref) - (spec: 0 string-index string-index) + (spec: 0 tcp-server-port? tcp-server-port?) + (spec: + 0 + unhandled-actor-exception-hook-set! + unhandled-actor-exception-hook-set!) + (spec: 0 gerbil-home gerbil-home) + (spec: 0 AST-e AST-e) + (spec: 0 void? void?) + (spec: 0 class-type? class-type?) + (spec: 0 immediate-hash immediate-hash) + (spec: 0 write-u8vector write-u8vector) + (spec: 0 keyword->symbol keyword->symbol) + (spec: 0 build-manifest/head build-manifest/head) + (spec: 0 class-type-fields class-type-fields) + (spec: 0 load-path load-path) + (spec: 0 sequence? sequence?) (spec: 0 make-class-slot-unchecked-mutator make-class-slot-unchecked-mutator) - (spec: 0 source-location-path source-location-path) - (spec: 0 class-type-struct? class-type-struct?) - (spec: 0 readenv::t readenv::t) - (spec: 0 list::t list::t) - (spec: 0 class-type-metaclass? class-type-metaclass?) - (spec: 0 &class-type-name &class-type-name) - (spec: 0 interface-instance-object interface-instance-object) - (spec: 0 keyword-dispatch keyword-dispatch) - (spec: 0 vm::t vm::t) - (spec: 0 time::t time::t) - (spec: 0 HashTable::t HashTable::t) - (spec: 0 immediate-hash immediate-hash) - (spec: 0 find find) - (spec: 0 symbolic-table-ref symbolic-table-ref) - (spec: 0 frame::t frame::t) - (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 0 tcp-server-port::t tcp-server-port::t) - (spec: 0 struct-instance-init! struct-instance-init!) + (spec: 0 cpxnum::t cpxnum::t) + (spec: 0 string-join string-join) + (spec: 0 eof::t eof::t) + (spec: 0 source-location? source-location?) + (spec: 0 eof-object eof-object) + (spec: 0 error-message error-message) + (spec: 0 t::t t::t) + (spec: 0 number::t number::t) + (spec: 0 atom::t atom::t) (spec: 0 hash-get hash-get) - (spec: 0 display* display*) - (spec: 0 special::t special::t) - (spec: 0 seal-class! seal-class!) - (spec: 0 class-type? class-type?) - (spec: 0 class-type-fields class-type-fields) - (spec: 0 keyword-rest keyword-rest) - (spec: 0 class-type-precedence-list class-type-precedence-list) + (spec: 0 subclass? subclass?) + (spec: 0 method-ref method-ref) + (spec: 0 thread::t thread::t) + (spec: 0 vector::t vector::t) + (spec: 0 interface-instance::t interface-instance::t) + (spec: 0 real::t real::t) + (spec: 0 gerbil-version-string gerbil-version-string) + (spec: 0 class-type=? class-type=?) + (spec: 0 immediate-instance-of? immediate-instance-of?) + (spec: 0 with-unwind-protect with-unwind-protect) + (spec: 0 keyword::t keyword::t) + (spec: 0 class-type-field-count class-type-field-count) (spec: 0 load-module load-module) - (spec: 0 gerbil-load-expander! gerbil-load-expander!) - (spec: 0 vm? vm?) - (spec: 0 make-promise make-promise) - (spec: 0 hash-values hash-values) - (spec: 0 u16vector::t u16vector::t) - (spec: 0 build-manifest build-manifest) - (spec: 0 find-method find-method) + (spec: 0 sequence::t sequence::t) (spec: 0 symbolic-table-set! symbolic-table-set!) - (spec: 0 tcp-server-port? tcp-server-port?) - (spec: 0 null::t null::t) - (spec: 0 error-irritants error-irritants) + (spec: 0 andmap andmap) + (spec: 0 find-method find-method) + (spec: 0 source-location-path? source-location-path?) (spec: 0 struct-instance? struct-instance?) - (spec: 0 hash-key? hash-key?) - (spec: 0 subclass? subclass?) - (spec: 0 actor-thread? actor-thread?) - (spec: 0 cpxnum::t cpxnum::t) - (spec: 0 sequence? sequence?) - (spec: 0 source-location? source-location?) - (spec: 0 readtable::t readtable::t) - (spec: 0 class-type-constructor class-type-constructor) - (spec: 0 keyword::t keyword::t) - (spec: 0 load-path load-path) - (spec: 0 &class-type-precedence-list &class-type-precedence-list) - (spec: 0 gerbil-greeting gerbil-greeting) - (spec: 0 unchecked-slot-set! unchecked-slot-set!) - (spec: 0 call-method call-method) - (spec: 0 port::t port::t) - (spec: 0 void::t void::t) - (spec: 0 interface-instance::t interface-instance::t) + (spec: 0 error-irritants error-irritants) + (spec: 0 hash-for-each hash-for-each) + (spec: 0 error error) + (spec: 0 fxshift fxshift) (spec: 0 hash-update! hash-update!) - (spec: 0 build-manifest-set! build-manifest-set!) - (spec: 0 pgetv pgetv) - (spec: 0 assget assget) - (spec: 0 hash-keys hash-keys) - (spec: 0 error-message error-message) - (spec: 0 eof-object eof-object) + (spec: 0 gerbil-system-version-string gerbil-system-version-string) + (spec: 0 vector-port? vector-port?) + (spec: 0 keyword-rest keyword-rest) + (spec: 0 with-lock with-lock) + (spec: 0 replx replx) + (spec: 0 class-type-id class-type-id) + (spec: 0 &class-type-name &class-type-name) + (spec: 0 satisfies? satisfies?) + (spec: 0 string-hash string-hash) + (spec: 0 symbol::t symbol::t) (spec: 0 make-symbol make-symbol) - (spec: 0 display-build-manifest display-build-manifest) - (spec: 0 eof::t eof::t) - (spec: 0 string-join string-join) - (spec: 0 socket-info::t socket-info::t) - (spec: 0 class-type-final? class-type-final?) - (spec: 0 write-u8vector write-u8vector) - (spec: 0 class-type-properties class-type-properties) - (spec: 0 read-syntax read-syntax) - (spec: 0 cons* cons*) - (spec: 0 call-next-method call-next-method) - (spec: 0 class-instance-init! class-instance-init!) - (spec: 0 void? void?) - (spec: 0 integer::t integer::t) - (spec: 0 true::t true::t) - (spec: 0 build-manifest-string build-manifest-string) - (spec: 0 u64vector::t u64vector::t) - (spec: 0 interface-instance? interface-instance?) - (spec: 0 symbolic::t symbolic::t) - (spec: 0 fx/ fx/) - (spec: 0 thread-group::t thread-group::t) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 error-trace error-trace) - (spec: 0 hash-length hash-length) - (spec: 0 address-info::t address-info::t) + (spec: 0 fx<0? fx<0?) + (spec: 0 object-fill! object-fill!) + (spec: 0 hash-values hash-values) + (spec: 0 values-count values-count) + (spec: 0 cast cast) (spec: 0 error-object? error-object?) + (spec: 0 hash-keys hash-keys) + (spec: 0 thread-local-ref thread-local-ref) + (spec: 0 bind-specializer! bind-specializer!) + (spec: 0 actor-thread? actor-thread?) + (spec: 0 AST? AST?) + (spec: 0 class->list class->list) + (spec: 0 with-catch with-catch) + (spec: 0 class::t class::t) + (spec: 0 build-manifest/layer build-manifest/layer) + (spec: 0 u8vector-port? u8vector-port?) + (spec: 0 &class-type-fields &class-type-fields) + (spec: 0 writeenv::t writeenv::t) + (spec: 0 1- 1-) + (spec: 0 make-class-type make-class-type) + (spec: 0 return::t return::t) + (spec: 0 class-type-seal! class-type-seal!) + (spec: 0 create-directory* create-directory*) + (spec: 0 set-load-path! set-load-path!) (spec: 0 eq-hash eq-hash) (spec: 0 string-port::t string-port::t) - (spec: 0 remq remq) - (spec: 0 class-type=? class-type=?) - (spec: 0 real::t real::t) - (spec: 0 &interface-instance-object &interface-instance-object) - (spec: 0 class-type-field-count class-type-field-count) - (spec: 0 &class-type-properties &class-type-properties) - (spec: 0 gerbil-home gerbil-home) - (spec: 0 call-with-parameters call-with-parameters) - (spec: - 0 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 0 bind-method! bind-method!) - (spec: 0 ormap ormap) - (spec: 0 fixnum::t fixnum::t) - (spec: 0 symbolic? symbolic?) - (spec: 0 assgetv assgetv) - (spec: 0 fx1+ fx1+) - (spec: 0 error? error?) - (spec: 0 hash-map hash-map) - (spec: 0 thread-local-delete! thread-local-delete!) - (spec: 0 f32vector::t f32vector::t) - (spec: 0 substring->bytes substring->bytes) - (spec: 0 AST-e AST-e) + (spec: 0 hash->list hash->list) + (spec: 0 symbolic::t symbolic::t) (spec: 0 make-instance make-instance) - (spec: 0 string-port? string-port?) - (spec: 0 make-class-type make-class-type) - (spec: 0 sequence::t sequence::t) - (spec: 0 source-location-path? source-location-path?) - (spec: 0 remf remf) - (spec: 0 class-type-seal! class-type-seal!) - (spec: 0 values-count values-count) - (spec: 0 class-of class-of) - (spec: 0 weak::t weak::t) - (spec: 0 interned-keyword? interned-keyword?) - (spec: 0 hvector::t hvector::t) - (spec: 0 u8vector-port? u8vector-port?) - (spec: 0 immediate? immediate?) - (spec: 0 flonum::t flonum::t) + (spec: 0 spawn spawn) + (spec: 0 error-trace error-trace) + (spec: 0 hash-key? hash-key?) (spec: 0 fx1- fx1-) - (spec: 0 object-port::t object-port::t) - (spec: 0 hash-merge hash-merge) - (spec: 0 event-queue-port::t event-queue-port::t) + (spec: 0 object-type object-type) (spec: 0 thread-local-get thread-local-get) - (spec: 0 f64vector::t f64vector::t) - (spec: 0 AST? AST?) - (spec: 0 make-interface-descriptor make-interface-descriptor) - (spec: 0 string-rindex string-rindex) - (spec: 0 slot-ref slot-ref) - (spec: 0 device-port::t device-port::t) - (spec: 0 class::t class::t) - (spec: 0 make-AST make-AST) - (spec: 0 return::t return::t) - (spec: 0 &class-type-constructor &class-type-constructor) - (spec: 0 &class-type-slot-table &class-type-slot-table) - (spec: 0 class->list class->list) - (spec: 0 interned-symbol? interned-symbol?) - (spec: 0 weak? weak?) - (spec: 0 true true) - (spec: 0 writenv? writenv?) - (spec: 0 build-manifest/head build-manifest/head) - (spec: 0 foldl foldl) - (spec: 0 u32vector::t u32vector::t) - (spec: 0 move-file move-file) - (spec: 0 fx<0? fx<0?) - (spec: 0 atom::t atom::t) - (spec: 0 number::t number::t) - (spec: 0 event-queue-port? event-queue-port?) - (spec: 0 make-symbolic-table make-symbolic-table) + (spec: 0 values->list values->list) + (spec: 0 gerbil-path gerbil-path) (spec: 0 false::t false::t) - (spec: 0 AST-source AST-source) - (spec: 0 add-load-path! add-load-path!) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 make-keyword make-keyword) - (spec: 0 hash-merge! hash-merge!) - (spec: 0 thread-local-ref thread-local-ref) - (spec: 0 set-load-path! set-load-path!) - (spec: 0 create-directory* create-directory*) - (spec: 0 spawn spawn) - (spec: 0 remove1 remove1) - (spec: 0 symblic-hash symblic-hash) + (spec: 0 processor::t processor::t) + (spec: 0 character-port? character-port?) + (spec: 0 true? true?) + (spec: 0 pair::t pair::t) + (spec: 0 class-of class-of) + (spec: 0 interface-instance? interface-instance?) + (spec: 0 remf remf) + (spec: 0 byte-port::t byte-port::t) + (spec: 0 u8vector-port::t u8vector-port::t) + (spec: 0 plist->hash-table-eq plist->hash-table-eq) + (spec: 0 list-modules list-modules) (spec: 0 1+ 1+) - (spec: 0 s16vector::t s16vector::t) - (spec: 0 class-type-slot-list class-type-slot-list) - (spec: 0 read-u8vector read-u8vector) - (spec: 0 checked-bound-method-ref checked-bound-method-ref) - (spec: 0 values::t values::t) - (spec: 0 cast cast) - (spec: 0 bind-specializer! bind-specializer!) - (spec: 0 try-cast try-cast) - (spec: 0 build-manifest/layer build-manifest/layer) - (spec: 0 udp-port::t udp-port::t) - (spec: 0 hash->list hash->list) - (spec: 0 object-type object-type) - (spec: 0 hash-put! hash-put!) - (spec: 0 byte-port? byte-port?) - (spec: 0 absent-obj absent-obj) - (spec: 0 agetq agetq) - (spec: 0 substruct? substruct?) - (spec: 0 string->bytes string->bytes) - (spec: 0 dssl-key-object? dssl-key-object?) - (spec: 0 current-thread-group current-thread-group) - (spec: 0 direct-instance? direct-instance?) - (spec: 0 make-hash-table make-hash-table) - (spec: 0 reload-module! reload-module!) - (spec: 0 condvar::t condvar::t) - (spec: 0 1- 1-) - (spec: 0 writeenv::t writeenv::t) - (spec: 0 &class-type-fields &class-type-fields) (spec: 0 read-syntax-from-file read-syntax-from-file) - (spec: 0 &class-type-slot-vector &class-type-slot-vector) - (spec: 0 gerbil-path gerbil-path) - (spec: 0 char::t char::t) - (spec: 0 values->list values->list) + (spec: 0 remq remq) + (spec: 0 &class-type-precedence-list &class-type-precedence-list) + (spec: 0 slot-ref slot-ref) + (spec: 0 foldl foldl) + (spec: 0 module-load-order module-load-order) + (spec: 0 device-port::t device-port::t) + (spec: 0 event-queue-port? event-queue-port?) + (spec: 0 hash-map hash-map) + (spec: 0 frame::t frame::t) + (spec: 0 object-port? object-port?) + (spec: 0 integer::t integer::t) + (spec: 0 cons* cons*) + (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) + (spec: 0 f64vector::t f64vector::t) + (spec: 0 procedure::t procedure::t) + (spec: 0 character-port::t character-port::t) + (spec: 0 make-promise make-promise) + (spec: 0 interned-symbol? interned-symbol?) (spec: 0 class-instance? class-instance?) (spec: 0 raise-contract-violation-error raise-contract-violation-error) - (spec: 0 procedure-hash procedure-hash) - (spec: 0 true? true?) - (spec: 0 with-catch with-catch) - (spec: 0 u8vector-port::t u8vector-port::t) - (spec: 0 immediate::t immediate::t) - (spec: 0 hash->plist hash->plist) - (spec: 0 syntax-error? syntax-error?) - (spec: 0 fx=0? fx=0?) - (spec: 0 hash-ref hash-ref) - (spec: 0 object-fill! object-fill!) - (spec: 0 interface-cast-error? interface-cast-error?) - (spec: 0 plist->hash-table plist->hash-table) - (spec: 0 aget aget) - (spec: 0 symbol->keyword symbol->keyword) + (spec: 0 tcp-server-port::t tcp-server-port::t) + (spec: 0 void::t void::t) + (spec: 0 address-info::t address-info::t) + (spec: 0 writenv? writenv?) + (spec: 0 make-AST make-AST) + (spec: 0 reload-module! reload-module!) + (spec: 0 condvar::t condvar::t) + (spec: 0 make-keyword make-keyword) (spec: 0 displayln displayln) - (spec: 0 dssl-object? dssl-object?) - (spec: 0 string-split string-split) - (spec: 0 make-hash-table-eq make-hash-table-eq) - (spec: 0 fl/ fl/) - (spec: - 0 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 0 system-stamp system-stamp) - (spec: 0 call-with-input-u8vector call-with-input-u8vector) - (spec: 0 flcosh flcosh) - (spec: 0 input-port-readtable input-port-readtable) - (spec: 0 readtable-max-write-length readtable-max-write-length) - (spec: - 0 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 0 table-search table-search) - (spec: 0 break break) - (spec: 0 file-info? file-info?) - (spec: 0 uncaught-exception-reason uncaught-exception-reason) - (spec: 0 random-u8vector random-u8vector) - (spec: 0 create-link create-link) - (spec: 0 filter! filter!) - (spec: - 0 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: - 0 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 0 bits->list bits->list) - (spec: 0 continuation-capture continuation-capture) - (spec: 0 f64vector? f64vector?) - (spec: 0 subs64vector subs64vector) - (spec: 0 u32vector-shrink! u32vector-shrink!) - (spec: 0 bitwise-orc2 bitwise-orc2) - (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 0 continuation? continuation?) - (spec: 0 subu8vector-fill! subu8vector-fill!) - (spec: 0 ->char-set ->char-set) - (spec: 0 u64vector-set u64vector-set) - (spec: 0 string-prefix-length-ci string-prefix-length-ci) - (spec: 0 group-info group-info) - (spec: 0 make-f32vector make-f32vector) - (spec: 0 condition-variable-specific condition-variable-specific) - (spec: 0 f32vector? f32vector?) - (spec: 0 u16vector-swap! u16vector-swap!) - (spec: 0 make-s8vector make-s8vector) - (spec: 0 address-info? address-info?) - (spec: 0 list-sort list-sort) - (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 0 s64vector s64vector) - (spec: 0 with-input-from-vector with-input-from-vector) - (spec: 0 tty-history tty-history) - (spec: 0 char-set? char-set?) - (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 0 vector-cumulate vector-cumulate) - (spec: 0 output-port-width output-port-width) - (spec: 0 char-set-contains? char-set-contains?) - (spec: 0 fxand fxand) - (spec: 0 s16vector-concatenate s16vector-concatenate) - (spec: 0 thread? thread?) - (spec: 0 list->s32vector list->s32vector) - (spec: 0 char-set-hash char-set-hash) - (spec: 0 foreign-address foreign-address) - (spec: 0 fxmodulo fxmodulo) - (spec: 0 s32vector->list s32vector->list) - (spec: 0 thread-group-specific-set! thread-group-specific-set!) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 os-exception-arguments os-exception-arguments) - (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 0 foreign? foreign?) - (spec: 0 flmin flmin) - (spec: 0 tcp-server-socket-info tcp-server-socket-info) - (spec: 0 flsinh flsinh) - (spec: 0 repl-error-port repl-error-port) - (spec: 0 display-exception-in-context display-exception-in-context) - (spec: 0 fl< fl<) + (spec: 0 class-type-name class-type-name) + (spec: 0 string-rindex string-rindex) + (spec: 0 flonum::t flonum::t) + (spec: 0 event-queue-port::t event-queue-port::t) + (spec: 0 hash-length hash-length) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 ormap ormap) + (spec: 0 unchecked-slot-set! unchecked-slot-set!) + (spec: 0 call-with-parameters call-with-parameters) + (spec: 0 gerbil-greeting gerbil-greeting) + (spec: 0 null::t null::t) + (spec: 0 symbolic-table-ref symbolic-table-ref) + (spec: 0 foreign::t foreign::t) + (spec: 0 bind-method! bind-method!) + (spec: 0 interned-keyword? interned-keyword?) + (spec: 0 checked-method-ref checked-method-ref) + (spec: 0 vm? vm?) + (spec: 0 add-load-path! add-load-path!) + (spec: 0 class-type-system? class-type-system?) + (spec: 0 make-interface-descriptor make-interface-descriptor) + (spec: 0 &class-type-properties &class-type-properties) + (spec: 0 list::t list::t) + (spec: 0 struct-instance-init! struct-instance-init!) + (spec: 0 move-file move-file) + (spec: 0 find find) + (spec: 0 make-symbolic-table make-symbolic-table) + (spec: 0 source-location-path source-location-path) + (spec: 0 foldr foldr) + (spec: 0 object::t object::t) + (spec: 0 hash-merge! hash-merge!) + (spec: 0 promise::t promise::t) + (spec: 0 vector-port::t vector-port::t) + (spec: 0 substruct? substruct?) + (spec: 0 fx>=0? fx>=0?) + (spec: 0 hvector::t hvector::t) + (spec: 0 raise raise) + (spec: 0 gerbil-system-manifest gerbil-system-manifest) + (spec: 0 raise-unbound-key-error raise-unbound-key-error) + (spec: 0 class-type-sealed? class-type-sealed?) + (spec: 0 immediate? immediate?) + (spec: 0 unbound-key-error? unbound-key-error?) + (spec: 0 HashTable::interface HashTable::interface) + (spec: 0 &class-type-id &class-type-id) + (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) + (spec: 0 device-port? device-port?) + (spec: 0 dssl-key-object? dssl-key-object?) + (spec: 0 hash-find hash-find) + (spec: 0 make-hash-table-eq make-hash-table-eq) + (spec: 0 thread-local-set! thread-local-set!) + (spec: 0 hash-merge hash-merge) + (spec: 0 interface-cast-error? interface-cast-error?) + (spec: 0 aget aget) + (spec: 0 fx>0? fx>0?) + (spec: 0 gerbil-system gerbil-system) + (spec: 0 raw-device-port::t raw-device-port::t) + (spec: 0 bound-method-ref bound-method-ref) + (spec: 0 immediate::t immediate::t) + (spec: 0 udp-port? udp-port?) + (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 0 HashTableLock::interface HashTableLock::interface) + (spec: 0 s64vector::t s64vector::t) + (spec: 0 directory-port::t directory-port::t) + (spec: 0 class-type-flags class-type-flags) + (spec: 0 &class-type-slot-table &class-type-slot-table) + (spec: 0 dssl-rest-object? dssl-rest-object?) + (spec: 0 file-newer? file-newer?) (spec: 0 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 0 input-port-column input-port-column) - (spec: 0 call-with-input-vector call-with-input-vector) - (spec: 0 fldenominator fldenominator) - (spec: 0 read-file-string-list read-file-string-list) - (spec: 0 table-merge table-merge) - (spec: 0 uncaught-exception? uncaught-exception?) + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 0 spawn/name spawn/name) + (spec: 0 make-hash-table make-hash-table) + (spec: 0 eqv-hash eqv-hash) + (spec: 0 fx1+ fx1+) + (spec: 0 as-string as-string) + (spec: 0 hash-ref hash-ref) + (spec: 0 thread-local-delete! thread-local-delete!) + (spec: 0 agetq agetq) + (spec: 0 true::t true::t) + (spec: 0 weak? weak?) + (spec: 0 ratnum::t ratnum::t) + (spec: 0 class-type-slot-table class-type-slot-table) + (spec: 0 boolean::t boolean::t) + (spec: 0 u64vector::t u64vector::t) + (spec: 0 plist->hash-table-string plist->hash-table-string) + (spec: 0 &class-type-constructor &class-type-constructor) + (spec: 0 remv remv) + (spec: 0 s32vector::t s32vector::t) + (spec: 0 direct-method-ref direct-method-ref) + (spec: 0 class-type-properties class-type-properties) + (spec: 0 read-syntax read-syntax) + (spec: 0 constructor-init! constructor-init!) + (spec: 0 slot-set! slot-set!) + (spec: 0 dssl-optional-object? dssl-optional-object?) + (spec: 0 file-info::t file-info::t) + (spec: 0 spawn/group spawn/group) + (spec: 0 make-hash-table-immediate make-hash-table-immediate) + (spec: 0 absent-obj absent-obj) + (spec: 0 object-port::t object-port::t) + (spec: 0 fx/ fx/) + (spec: 0 char::t char::t) + (spec: 0 procedure-hash procedure-hash) + (spec: 0 thread-group::t thread-group::t) + (spec: 0 substring->bytes substring->bytes) + (spec: 0 f32vector::t f32vector::t) + (spec: 0 interface-descriptor-methods interface-descriptor-methods) + (spec: 0 hash-put! hash-put!) + (spec: 0 true true) + (spec: 0 class-instance-init! class-instance-init!) + (spec: 0 hvector? hvector?) + (spec: 0 weak::t weak::t) + (spec: 0 AST-source AST-source) + (spec: 0 plist->hash-table plist->hash-table) + (spec: 0 class-type-final? class-type-final?) + (spec: 0 u32vector::t u32vector::t) + (spec: 0 list->hash-table list->hash-table) + (spec: 0 &class-type-slot-vector &class-type-slot-vector) + (spec: 0 string-port? string-port?) + (spec: 0 fixnum::t fixnum::t) + (spec: 0 symbolic? symbolic?) + (spec: 0 mutex::t mutex::t) + (spec: 0 hash->plist hash->plist) + (spec: 0 make-hash-table-eqv make-hash-table-eqv) + (spec: 0 error? error?) + (spec: 0 make-syntax-error make-syntax-error) + (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 0 c4-linearize c4-linearize) + (spec: 0 unchecked-slot-ref unchecked-slot-ref) + (spec: 0 bignum::t bignum::t) + (spec: 0 exception? exception?) + (spec: 0 vm::t vm::t) + (spec: 0 class-type-slot-vector class-type-slot-vector) + (spec: 0 box::t box::t) + (spec: 0 pgetq pgetq) + (spec: 0 list->hash-table-eqv list->hash-table-eqv) + (spec: 0 raw-device-port? raw-device-port?) + (spec: 0 make-class-slot-accessor make-class-slot-accessor) + (spec: 0 directory-port? directory-port?) + (spec: 0 class-type-methods class-type-methods) + (spec: 0 continuation::t continuation::t) + (spec: 0 s8vector::t s8vector::t) + (spec: 0 string-empty? string-empty?) + (spec: 0 dump-stack-trace! dump-stack-trace!) + (spec: 0 filter-map filter-map) + (spec: 0 new-instance new-instance) + (spec: 0 display-exception display-exception) + (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 0 max-char-code max-char-code) + (spec: 0 assgetq assgetq) + (spec: 0 table::t table::t) + (spec: 0 call-method call-method) + (spec: 0 port::t port::t) + (spec: 0 interface-descriptor-type interface-descriptor-type) + (spec: 0 absent-value absent-value) + (spec: 0 time::t time::t) + (spec: 0 false false) + (spec: 0 is-hash-table? is-hash-table?) + (spec: 0 class-type-super class-type-super) + (spec: 0 readenv? readenv?) + (spec: 0 pgetv pgetv) + (spec: 0 build-manifest-set! build-manifest-set!) + (spec: 0 list->hash-table-eq list->hash-table-eq) + (spec: 0 make-class-predicate make-class-predicate) + (spec: 0 display-as-string display-as-string) + (spec: 0 special? special?) + (spec: 0 byte-port? byte-port?) + (spec: 0 class-type-metaclass? class-type-metaclass?) + (spec: 0 &class-type-super &class-type-super) + (spec: 0 dump-stack-trace? dump-stack-trace?) + (spec: 0 hash-copy hash-copy) + (spec: 0 make-hash-table-string make-hash-table-string) + (spec: 0 struct->list struct->list) + (spec: 0 assget assget) + (spec: 0 values::t values::t) + (spec: 0 interface-descriptor? interface-descriptor?) + (spec: 0 fx=0? fx=0?) + (spec: 0 try-cast try-cast) + (spec: 0 with-exception-stack-trace with-exception-stack-trace) + (spec: 0 class-type-struct? class-type-struct?) + (spec: 0 readenv::t readenv::t) + (spec: 0 build-manifest build-manifest) + (spec: 0 udp-port::t udp-port::t) + (spec: 0 &class-type-flags &class-type-flags) + (spec: 0 list->hash-table-string list->hash-table-string) (spec: 0 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (spec: 0 display* display*) + (spec: 0 special::t special::t) + (spec: 0 make-object make-object) + (spec: 0 read-u8vector read-u8vector) + (spec: 0 seal-class! seal-class!) + (spec: 0 hash-clear! hash-clear!) + (spec: 0 string::t string::t) + (spec: 0 memf memf) + (spec: 0 object? object?) + (spec: 0 hash-remove! hash-remove!) + (spec: 0 bytes->string bytes->string) + (spec: 0 values-ref values-ref) + (spec: 0 symbol->keyword symbol->keyword) + (spec: 0 pget pget) + (spec: 0 checked-bound-method-ref checked-bound-method-ref) + (spec: 0 fx<=0? fx<=0?) + (spec: 0 with-dynamic-lock with-dynamic-lock) + (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 0 remove1 remove1) + (spec: 0 class-type-slot-list class-type-slot-list) + (spec: 0 HashTable::t HashTable::t) + (spec: 0 u8vector::t u8vector::t) + (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) + (spec: 0 list->hash-table-immediate list->hash-table-immediate) + (spec: 0 s16vector::t s16vector::t) + (spec: 0 make-class-slot-mutator make-class-slot-mutator) + (spec: 0 direct-instance? direct-instance?) + (spec: 0 string->bytes string->bytes) + (spec: 0 dssl-object? dssl-object?) + (spec: 0 string-split string-split) + (spec: 0 HashTableLock::t HashTableLock::t) + (spec: 0 syntax-error? syntax-error?) + (spec: 0 agetv agetv) + (spec: 0 symblic-hash symblic-hash) + (spec: 0 next-method next-method) + (spec: 0 current-thread-group current-thread-group) + (spec: 0 any-bits-set? any-bits-set?) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 pp pp) + (spec: 0 s8vector-fill! s8vector-fill!) + (spec: 0 type-exception-arg-id type-exception-arg-id) + (spec: 0 bit-field-reverse bit-field-reverse) + (spec: 0 substring-move! substring-move!) (spec: 0 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) - (spec: 0 file-inode file-inode) - (spec: 0 u8vector-length u8vector-length) - (spec: 0 random-source-state-ref random-source-state-ref) - (spec: 0 deadlock-exception? deadlock-exception?) - (spec: 0 udp-local-socket-info udp-local-socket-info) - (spec: 0 f64vector-set! f64vector-set!) - (spec: 0 continuation-graft continuation-graft) - (spec: 0 bit-set? bit-set?) - (spec: 0 subs64vector-fill! subs64vector-fill!) - (spec: 0 u32vector-ref u32vector-ref) - (spec: 0 bitwise-unfold bitwise-unfold) - (spec: 0 file-group file-group) - (spec: 0 subu64vector-fill! subu64vector-fill!) - (spec: 0 u64vector-set! u64vector-set!) - (spec: 0 make-s16vector make-s16vector) - (spec: 0 command-args command-args) - (spec: 0 string-prefix? string-prefix?) - (spec: 0 s8vector-swap! s8vector-swap!) - (spec: 0 f32vector-set! f32vector-set!) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 0 u64vector-copy! u64vector-copy!) + (spec: 0 console-port console-port) + (spec: 0 vector-unfold-right vector-unfold-right) + (spec: 0 s32vector-length s32vector-length) + (spec: 0 string->char-set string->char-set) + (spec: 0 fxpositive? fxpositive?) + (spec: 0 string-suffix-length-ci string-suffix-length-ci) + (spec: 0 error-exception-parameters error-exception-parameters) + (spec: 0 char-set-ref char-set-ref) + (spec: 0 u16vector-length u16vector-length) + (spec: 0 bitwise-merge bitwise-merge) + (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 0 file-info-inode file-info-inode) + (spec: 0 module-whitelist-reset! module-whitelist-reset!) + (spec: 0 sinh sinh) + (spec: 0 u8vector-append u8vector-append) + (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 0 fifth fifth) + (spec: + 0 + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 0 subf64vector-fill! subf64vector-fill!) + (spec: 0 unbox unbox) + (spec: 0 protocol-info-aliases protocol-info-aliases) + (spec: 0 f64vector-copy f64vector-copy) + (spec: 0 service-info-protocol service-info-protocol) + (spec: 0 u32vector-fill! u32vector-fill!) + (spec: 0 write-substring write-substring) + (spec: 0 u8vector? u8vector?) + (spec: 0 f32vector-copy f32vector-copy) + (spec: 0 uninterned-symbol? uninterned-symbol?) + (spec: + 0 + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) + (spec: 0 call/cc call/cc) + (spec: 0 flatanh flatanh) + (spec: + 0 + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) + (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) + (spec: 0 open-string-pipe open-string-pipe) + (spec: 0 reverse! reverse!) + (spec: 0 delete-directory delete-directory) + (spec: 0 force-output force-output) + (spec: 0 last-pair last-pair) + (spec: 0 split-at! split-at!) + (spec: 0 thread-join! thread-join!) + (spec: 0 fixnum->flonum fixnum->flonum) + (spec: 0 user-info-home user-info-home) + (spec: + 0 + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: + 0 + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 0 file-mode file-mode) + (spec: 0 fllog fllog) + (spec: 0 os-exception? os-exception?) + (spec: 0 char-set-cursor-next char-set-cursor-next) + (spec: 0 fx+ fx+) + (spec: 0 thread-state thread-state) + (spec: 0 s64vector-fill! s64vector-fill!) + (spec: 0 open-file open-file) + (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 0 flround flround) (spec: 0 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 0 group-info-gid group-info-gid) - (spec: 0 type-exception-type-id type-exception-type-id) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) + (spec: 0 repl-output-port repl-output-port) + (spec: 0 s16vector-ref s16vector-ref) + (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 0 display-procedure-environment display-procedure-environment) + (spec: 0 fxeqv fxeqv) + (spec: 0 any-bit-set? any-bit-set?) + (spec: 0 list->bits list->bits) + (spec: 0 s8vector-copy! s8vector-copy!) + (spec: 0 vector-fold-right vector-fold-right) + (spec: 0 main main) + (spec: 0 get-output-vector get-output-vector) + (spec: 0 bit-field-replace-same bit-field-replace-same) + (spec: 0 link-incremental link-incremental) (spec: 0 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 0 host-info host-info) - (spec: 0 address-infos address-infos) - (spec: 0 u16vector-set u16vector-set) - (spec: 0 top top) - (spec: 0 fxwrap+ fxwrap+) - (spec: 0 apropos apropos) - (spec: 0 list-sort! list-sort!) + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 0 subu16vector-move! subu16vector-move!) + (spec: 0 u64vector-copy u64vector-copy) + (spec: 0 vector-unfold vector-unfold) + (spec: 0 with-output-to-string with-output-to-string) + (spec: 0 partition! partition!) + (spec: 0 list= list=) + (spec: 0 fxorc2 fxorc2) + (spec: 0 s32vector-set s32vector-set) + (spec: 0 time->seconds time->seconds) + (spec: 0 write-file-u8vector write-file-u8vector) + (spec: 0 u16vector-fill! u16vector-fill!) + (spec: 0 char-set-map char-set-map) + (spec: 0 help help) + (spec: 0 bitwise-ior bitwise-ior) + (spec: 0 list->u16vector list->u16vector) + (spec: 0 make-random-source make-random-source) + (spec: 0 file-info-group file-info-group) + (spec: 0 module-whitelist-add! module-whitelist-add!) + (spec: 0 random-real random-real) + (spec: 0 u8vector->object u8vector->object) (spec: 0 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 0 s64vector->list s64vector->list) - (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 0 s8vector s8vector) - (spec: 0 char-set-filter! char-set-filter!) - (spec: 0 eqv?-hash eqv?-hash) - (spec: 0 with-input-from-process with-input-from-process) + unbound-serial-number-exception? + unbound-serial-number-exception?) + (spec: 0 copy-bit-field copy-bit-field) (spec: 0 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 0 fx> fx>) - (spec: 0 output-port-readtable output-port-readtable) - (spec: 0 s16vector-copy s16vector-copy) - (spec: 0 vector-concatenate vector-concatenate) - (spec: 0 fxlength fxlength) - (spec: 0 list->s64vector list->s64vector) - (spec: 0 s32vector-append s32vector-append) - (spec: 0 foreign-release! foreign-release!) - (spec: 0 thread-group-parent thread-group-parent) - (spec: 0 char-set-any char-set-any) - (spec: 0 thread-quantum thread-quantum) - (spec: 0 foreign-released? foreign-released?) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) + (spec: 0 proper-list? proper-list?) + (spec: 0 f64vector-concatenate f64vector-concatenate) + (spec: 0 identity identity) + (spec: 0 make-u8vector make-u8vector) + (spec: 0 service-info-port-number service-info-port-number) + (spec: 0 subs16vector-fill! subs16vector-fill!) + (spec: 0 range-exception-arguments range-exception-arguments) + (spec: 0 f32vector-concatenate f32vector-concatenate) + (spec: 0 u32vector-copy! u32vector-copy!) + (spec: 0 u8vector-swap! u8vector-swap!) + (spec: 0 uninterned-keyword? uninterned-keyword?) + (spec: 0 table? table?) (spec: 0 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 0 flnan? flnan?) - (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 0 null-list? null-list?) - (spec: 0 drop drop) - (spec: 0 flsqrt flsqrt) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) + (spec: 0 flatan flatan) + (spec: 0 readtable-start-syntax readtable-start-syntax) + (spec: 0 user-info-gid user-info-gid) + (spec: 0 open-string open-string) + (spec: 0 split-at split-at) + (spec: 0 thread-group-terminate! thread-group-terminate!) + (spec: 0 read-all read-all) + (spec: 0 defer-user-interrupts defer-user-interrupts) (spec: 0 - join-timeout-exception-procedure - join-timeout-exception-procedure) - (spec: 0 system-type-string system-type-string) - (spec: 0 input-port-timeout-set! input-port-timeout-set!) - (spec: 0 read-subu8vector read-subu8vector) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) + (spec: 0 directory-files directory-files) + (spec: 0 udp-read-u8vector udp-read-u8vector) (spec: 0 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 0 unbound-key-exception? unbound-key-exception?) - (spec: 0 table? table?) - (spec: 0 fl<= fl<=) - (spec: 0 delete! delete!) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) + (spec: 0 tcp-service-register! tcp-service-register!) + (spec: 0 network-info-aliases network-info-aliases) + (spec: 0 os-exception-procedure os-exception-procedure) + (spec: 0 char-set-cursor char-set-cursor) + (spec: 0 fx* fx*) + (spec: 0 thread-send thread-send) + (spec: 0 s64vector-ref s64vector-ref) (spec: 0 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 0 readtable-max-write-level readtable-max-write-level) - (spec: 0 file-info file-info) - (spec: 0 create-temporary-directory create-temporary-directory) - (spec: 0 mutex-lock! mutex-lock!) - (spec: 0 initialized-thread-exception? initialized-thread-exception?) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 0 open-event-queue open-event-queue) (spec: 0 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 0 bitwise-and bitwise-and) - (spec: 0 subs64vector-move! subs64vector-move!) - (spec: 0 condition-variable? condition-variable?) - (spec: 0 f64vector f64vector) - (spec: 0 bitwise-xor bitwise-xor) - (spec: 0 subvector subvector) - (spec: 0 shell-command shell-command) - (spec: 0 random-f64vector random-f64vector) - (spec: 0 u32vector? u32vector?) - (spec: 0 u64vector-shrink! u64vector-shrink!) - (spec: 0 scheduler-exception? scheduler-exception?) - (spec: 0 group-info-members group-info-members) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 0 flpositive? flpositive?) + (spec: 0 last last) + (spec: 0 replace-bit-field replace-bit-field) + (spec: 0 vector-fold vector-fold) + (spec: 0 thread-state-running? thread-state-running?) + (spec: 0 fxbit-set? fxbit-set?) + (spec: 0 all-bits-set? all-bits-set?) + (spec: 0 s16vector-shrink! s16vector-shrink!) + (spec: 0 with-output-to-process with-output-to-process) (spec: 0 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 0 processor-id processor-id) - (spec: 0 service-info service-info) - (spec: 0 f32vector f32vector) - (spec: 0 host-info-addresses host-info-addresses) - (spec: 0 make-table make-table) - (spec: 0 s64vector-append s64vector-append) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 0 clear-bit-field clear-bit-field) + (spec: 0 get-output-u8vector get-output-u8vector) + (spec: 0 bit-field bit-field) + (spec: 0 f64vector-fill! f64vector-fill!) + (spec: 0 subu16vector-fill! subu16vector-fill!) + (spec: 0 char-set-unfold char-set-unfold) + (spec: 0 time time) (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 0 list-tabulate list-tabulate) - (spec: 0 s8vector->list s8vector->list) - (spec: 0 tty-history-set! tty-history-set!) - (spec: 0 with-output-to-port with-output-to-port) - (spec: 0 s16vector-copy! s16vector-copy!) - (spec: 0 fxandc2 fxandc2) + (spec: 0 s32vector-ref s32vector-ref) + (spec: 0 write-file-string-list write-file-string-list) + (spec: 0 println println) + (spec: 0 string-swap! string-swap!) + (spec: 0 fxnegative? fxnegative?) + (spec: 0 bitwise-andc2 bitwise-andc2) + (spec: 0 file-creation-time file-creation-time) + (spec: 0 heap-overflow-exception? heap-overflow-exception?) + (spec: 0 list->table list->table) + (spec: 0 mutex-specific-set! mutex-specific-set!) + (spec: 0 random-integer random-integer) + (spec: 0 script-file script-file) (spec: 0 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 0 char-set-count char-set-count) - (spec: 0 fxnegative? fxnegative?) - (spec: 0 err-code->string err-code->string) - (spec: 0 char-set-intersection! char-set-intersection!) - (spec: 0 list->s8vector list->s8vector) - (spec: 0 partition partition) - (spec: 0 s32vector-concatenate s32vector-concatenate) - (spec: 0 last last) - (spec: 0 flsquare flsquare) - (spec: 0 open-output-process open-output-process) - (spec: 0 thread-group-terminate! thread-group-terminate!) - (spec: 0 vector-swap! vector-swap!) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) + (spec: 0 u16vector->list u16vector->list) (spec: 0 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 0 os-exception-message os-exception-message) - (spec: 0 thread-quantum-set! thread-quantum-set!) - (spec: 0 tcp-service-register! tcp-service-register!) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) + (spec: 0 copy-bit copy-bit) (spec: 0 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 0 fleven? fleven?) - (spec: 0 flnegative? flnegative?) - (spec: 0 repl-input-port repl-input-port) - (spec: 0 first first) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 0 f32vector-fill! f32vector-fill!) (spec: 0 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 0 call-with-output-process call-with-output-process) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 0 subs16vector subs16vector) + (spec: 0 configure-command-string configure-command-string) + (spec: 0 u32vector u32vector) + (spec: 0 file-info-last-change-time file-info-last-change-time) + (spec: 0 range-exception-arg-id range-exception-arg-id) + (spec: 0 compilation-target compilation-target) + (spec: 0 make-thread-group make-thread-group) + (spec: 0 delete-file-or-directory delete-file-or-directory) + (spec: 0 table-set! table-set!) + (spec: 0 flfloor flfloor) (spec: 0 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 0 table-ref table-ref) - (spec: 0 fl= fl=) + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) (spec: 0 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) - (spec: 0 random-source? random-source?) - (spec: 0 create-fifo create-fifo) - (spec: 0 file-info-attributes file-info-attributes) - (spec: 0 mutex-name mutex-name) - (spec: 0 current-time current-time) - (spec: 0 file-last-access-time file-last-access-time) - (spec: 0 bits bits) - (spec: 0 f64vector-swap! f64vector-swap!) - (spec: 0 u32vector-set! u32vector-set!) - (spec: 0 subs8vector subs8vector) - (spec: 0 setenv setenv) - (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 0 continuation-return continuation-return) - (spec: 0 subu8vector subu8vector) - (spec: 0 asinh asinh) - (spec: 0 extract-bit-field extract-bit-field) - (spec: 0 u64vector-swap! u64vector-swap!) - (spec: 0 string-set string-set) - (spec: 0 group-info-name group-info-name) - (spec: 0 f32vector-swap! f32vector-swap!) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) (spec: 0 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) - (spec: 0 processor? processor?) - (spec: 0 make-s64vector make-s64vector) - (spec: 0 command-name command-name) - (spec: 0 host-info-aliases host-info-aliases) - (spec: 0 u16vector-shrink! u16vector-shrink!) - (spec: 0 path-volume path-volume) - (spec: 0 s64vector-concatenate s64vector-concatenate) - (spec: 0 string->uninterned-symbol string->uninterned-symbol) - (spec: 0 fxwrapabs fxwrapabs) - (spec: 0 with-input-from-u8vector with-input-from-u8vector) - (spec: 0 s8vector-append s8vector-append) - (spec: 0 char-set= char-set=) - (spec: 0 tty-mode-set! tty-mode-set!) - (spec: 0 output-port-timeout-set! output-port-timeout-set!) - (spec: 0 s16vector-fill! s16vector-fill!) - (spec: 0 char-set-complement! char-set-complement!) - (spec: 0 fxabs fxabs) - (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 0 vector-set vector-set) - (spec: 0 s32vector-copy s32vector-copy) - (spec: 0 char-set-for-each char-set-for-each) - (spec: 0 error error) - (spec: 0 fxmin fxmin) - (spec: 0 socket-info-address socket-info-address) - (spec: 0 drop-right! drop-right!) - (spec: 0 fltan fltan) - (spec: 0 thread-group-specific thread-group-specific) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 0 thread-group-suspend! thread-group-suspend!) + (spec: 0 user-info-shell user-info-shell) + (spec: 0 flacos flacos) + (spec: 0 open-tcp-server open-tcp-server) + (spec: 0 file-owner file-owner) + (spec: 0 udp-read-subu8vector udp-read-subu8vector) + (spec: 0 input-port-timeout-set! input-port-timeout-set!) (spec: 0 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 0 thread-receive thread-receive) - (spec: 0 real-time real-time) - (spec: 0 flexp flexp) - (spec: 0 display-exception display-exception) - (spec: 0 flnumerator flnumerator) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) (spec: 0 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 0 system-version-string system-version-string) + unterminated-process-exception? + unterminated-process-exception?) + (spec: 0 initialized-thread-exception? initialized-thread-exception?) + (spec: 0 network-info network-info) + (spec: 0 thread-resume! thread-resume!) + (spec: 0 fxandc2 fxandc2) + (spec: 0 abort abort) + (spec: 0 every-bit-set? every-bit-set?) + (spec: 0 will-execute! will-execute!) + (spec: 0 length+ length+) (spec: 0 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) - (spec: 0 first-set-bit first-set-bit) - (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 0 third third) + (spec: 0 flzero? flzero?) + (spec: 0 repl-result-history-ref repl-result-history-ref) + (spec: 0 char-set-delete! char-set-delete!) (spec: 0 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 0 take take) - (spec: 0 fl> fl>) + thread-state-running-processor + thread-state-running-processor) + (spec: 0 vector-inc! vector-inc!) + (spec: 0 flonum? flonum?) + (spec: 0 s16vector-set! s16vector-set!) (spec: 0 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 0 range-exception-arguments range-exception-arguments) + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 0 with-output-to-vector with-output-to-vector) + (spec: 0 s8vector-length s8vector-length) + (spec: 0 bit-count bit-count) + (spec: 0 f64vector-copy! f64vector-copy!) + (spec: 0 subs8vector-move! subs8vector-move!) + (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 0 error error) + (spec: 0 char-set-size char-set-size) + (spec: 0 list->u64vector list->u64vector) + (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 0 path-directory path-directory) + (spec: 0 s64vector-concatenate s64vector-concatenate) + (spec: 0 u16vector u16vector) + (spec: 0 string-shrink! string-shrink!) + (spec: 0 fxnand fxnand) + (spec: 0 bitwise-andc1 bitwise-andc1) + (spec: 0 file-attributes file-attributes) + (spec: 0 s32vector-copy s32vector-copy) + (spec: 0 script-directory script-directory) (spec: 0 mutex-specific mutex-specific) - (spec: 0 file-info-creation-time file-info-creation-time) - (spec: 0 udp-read-subu8vector udp-read-subu8vector) - (spec: 0 network-info network-info) - (spec: 0 file-last-change-time file-last-change-time) - (spec: 0 subs8vector-fill! subs8vector-fill!) - (spec: 0 bit-field bit-field) - (spec: 0 f64vector-append f64vector-append) + (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) (spec: 0 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 0 random-real random-real) - (spec: 0 copy-bit-field copy-bit-field) - (spec: 0 bitwise-andc1 bitwise-andc1) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) + (spec: 0 subvector subvector) + (spec: 0 u64vector? u64vector?) + (spec: 0 system-type-string system-type-string) (spec: 0 module-not-found-exception-arguments module-not-found-exception-arguments) - (spec: 0 subvector-move! subvector-move!) - (spec: 0 u64vector? u64vector?) - (spec: 0 u16vector->list u16vector->list) - (spec: 0 group-info? group-info?) - (spec: 0 primordial-exception-handler primordial-exception-handler) - (spec: 0 circular-list circular-list) - (spec: 0 executable-path executable-path) - (spec: 0 subf32vector subf32vector) - (spec: 0 host-info-name host-info-name) - (spec: 0 make-thread-group make-thread-group) - (spec: 0 f32vector-append f32vector-append) - (spec: 0 service-info-name service-info-name) - (spec: 0 u32vector u32vector) - (spec: 0 s64vector-copy s64vector-copy) - (spec: 0 abort abort) - (spec: 0 fxwrapsquare fxwrapsquare) - (spec: 0 with-output-to-string with-output-to-string) + (spec: 0 readtable-case-conversion? readtable-case-conversion?) + (spec: 0 concatenate! concatenate!) + (spec: 0 f32vector-copy! f32vector-copy!) + (spec: 0 subf32vector-fill! subf32vector-fill!) (spec: 0 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 0 s8vector-concatenate s8vector-concatenate) - (spec: 0 vector-fold-right vector-fold-right) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) + (spec: 0 service-info? service-info?) + (spec: 0 file-info-last-access-time file-info-last-access-time) + (spec: 0 make-thread make-thread) + (spec: 0 host-info? host-info?) + (spec: 0 range-exception? range-exception?) + (spec: 0 flfinite? flfinite?) (spec: 0 - thread-state-running-processor - thread-state-running-processor) - (spec: 0 char-set-cursor-next char-set-cursor-next) - (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 0 end-of-char-set? end-of-char-set?) - (spec: 0 s16vector-length s16vector-length) - (spec: 0 time time) - (spec: 0 char-set-ref char-set-ref) - (spec: 0 fxnot fxnot) - (spec: 0 list->table list->table) - (spec: 0 s32vector-copy! s32vector-copy!) - (spec: 0 step step) - (spec: 0 vector-unfold-right vector-unfold-right) - (spec: 0 open-output-u8vector open-output-u8vector) - (spec: 0 socket-info-family socket-info-family) - (spec: 0 fltanh fltanh) - (spec: 0 os-exception? os-exception?) - (spec: 0 length+ length+) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 0 take take) + (spec: 0 socket-info? socket-info?) + (spec: 0 user-info-name user-info-name) + (spec: 0 flabs flabs) + (spec: 0 file-last-access-time file-last-access-time) + (spec: 0 network-info-number network-info-number) + (spec: 0 open-tcp-client open-tcp-client) + (spec: 0 readtable-max-write-length readtable-max-write-length) + (spec: 0 input-port-readtable-set! input-port-readtable-set!) + (spec: 0 udp-write-subu8vector udp-write-subu8vector) (spec: 0 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 0 thread-resume! thread-resume!) - (spec: 0 tenth tenth) - (spec: 0 call-with-output-string call-with-output-string) - (spec: 0 flexpm1 flexpm1) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) (spec: 0 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 0 thread-base-priority thread-base-priority) - (spec: 0 keyword->string keyword->string) - (spec: 0 system-type system-type) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 0 tenth tenth) (spec: 0 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 0 input-port-readtable-set! input-port-readtable-set!) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) + (spec: 0 fxandc1 fxandc1) + (spec: 0 s16vector-fill! s16vector-fill!) + (spec: 0 thread-specific thread-specific) + (spec: 0 fourth fourth) + (spec: 0 display-exception-in-context display-exception-in-context) + (spec: 0 keyword->string keyword->string) (spec: 0 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) - (spec: 0 default-random-source default-random-source) - (spec: 0 read-substring read-substring) - (spec: 0 table-set! table-set!) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 0 touch touch) + (spec: 0 thread-base-priority thread-base-priority) + (spec: 0 char-set-delete char-set-delete) + (spec: 0 repl-error-port repl-error-port) + (spec: 0 string-concatenate string-concatenate) + (spec: 0 getenv getenv) + (spec: 0 s8vector-set s8vector-set) + (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 0 make-condition-variable make-condition-variable) + (spec: 0 append-reverse! append-reverse!) + (spec: 0 subs16vector-move! subs16vector-move!) + (spec: 0 with-input-from-process with-input-from-process) + (spec: 0 u32vector-set u32vector-set) + (spec: 0 continuation-capture continuation-capture) + (spec: 0 bit-swap bit-swap) + (spec: 0 s32vector-set! s32vector-set!) + (spec: 0 path-extension path-extension) + (spec: 0 char-set-union char-set-union) + (spec: 0 fxwrap* fxwrap*) + (spec: 0 link-flat link-flat) + (spec: 0 list-set list-set) + (spec: 0 help-browser help-browser) + (spec: 0 second second) (spec: 0 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 0 make-s32vector make-s32vector) + (spec: 0 subu32vector subu32vector) (spec: 0 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 0 delete delete) - (spec: 0 fl>= fl>=) - (spec: 0 mutex-specific-set! mutex-specific-set!) - (spec: 0 create-symbolic-link create-symbolic-link) - (spec: 0 file-info-device file-info-device) - (spec: 0 udp-read-u8vector udp-read-u8vector) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 0 thread-thread-group thread-thread-group) + (spec: 0 type-exception? type-exception?) + (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 0 bitwise-orc1 bitwise-orc1) + (spec: 0 u64vector-ref u64vector-ref) + (spec: 0 read-file-string-list read-file-string-list) + (spec: 0 fixnum? fixnum?) + (spec: 0 u16vector-set! u16vector-set!) + (spec: 0 condition-variable-specific condition-variable-specific) + (spec: 0 random-source-state-ref random-source-state-ref) + (spec: 0 file-info-mode file-info-mode) + (spec: 0 u8vector-fill! u8vector-fill!) + (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 0 not-pair? not-pair?) + (spec: 0 table-for-each table-for-each) + (spec: 0 fldenominator fldenominator) + (spec: 0 open-u8vector-pipe open-u8vector-pipe) + (spec: 0 thread-group->thread-vector thread-group->thread-vector) + (spec: 0 foreign-release! foreign-release!) (spec: 0 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 0 network-info-aliases network-info-aliases) - (spec: 0 file-last-modification-time file-last-modification-time) - (spec: 0 bits->vector bits->vector) - (spec: 0 subs8vector-move! subs8vector-move!) - (spec: 0 seventh seventh) - (spec: 0 u32vector-swap! u32vector-swap!) - (spec: 0 subu8vector-move! subu8vector-move!) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: 0 file-size file-size) (spec: 0 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 0 raise raise) - (spec: 0 bitwise-andc2 bitwise-andc2) - (spec: 0 string-shrink! string-shrink!) - (spec: 0 scheduler-exception-reason scheduler-exception-reason) - (spec: 0 print print) - (spec: 0 circular-list? circular-list?) - (spec: 0 make-f64vector make-f64vector) - (spec: 0 subf32vector-fill! subf32vector-fill!) - (spec: 0 host-info? host-info?) - (spec: 0 u16vector? u16vector?) - (spec: 0 write-file-string write-file-string) + input-port-characters-buffered + input-port-characters-buffered) + (spec: 0 ninth ninth) + (spec: 0 object->serial-number object->serial-number) + (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 0 flnan? flnan?) (spec: 0 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 0 list= list=) - (spec: 0 s64vector-copy! s64vector-copy!) - (spec: 0 gensym gensym) - (spec: 0 poll-point poll-point) - (spec: 0 all-bits-set? all-bits-set?) - (spec: 0 s8vector-copy s8vector-copy) - (spec: 0 thread-state-running? thread-state-running?) - (spec: 0 fxandc1 fxandc1) - (spec: 0 vector-every vector-every) - (spec: 0 char-set-copy char-set-copy) - (spec: 0 time->seconds time->seconds) - (spec: 0 fxnand fxnand) - (spec: 0 list->u16vector list->u16vector) - (spec: 0 char-set-intersection char-set-intersection) - (spec: 0 error-exception-message error-exception-message) - (spec: 0 s32vector-fill! s32vector-fill!) - (spec: 0 thread-group-suspend! thread-group-suspend!) - (spec: 0 open-output-vector open-output-vector) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 0 user-info? user-info?) + (spec: 0 output-port-byte-position output-port-byte-position) + (spec: 0 char-set char-set) + (spec: 0 fx= fx=) + (spec: 0 thread-name thread-name) (spec: 0 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 0 fltruncate fltruncate) - (spec: 0 socket-info-port-number socket-info-port-number) - (spec: 0 thread-send thread-send) - (spec: 0 fourth fourth) - (spec: 0 os-exception-code os-exception-code) - (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 0 vector-shrink! vector-shrink!) + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 0 s64vector-set s64vector-set) + (spec: 0 address-info-socket-info address-info-socket-info) + (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 0 flsqrt flsqrt) + (spec: 0 s16vector-swap! s16vector-swap!) + (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 0 fxior fxior) + (spec: 0 list->f64vector list->f64vector) + (spec: 0 will? will?) + (spec: 0 s8vector-ref s8vector-ref) + (spec: 0 append-reverse append-reverse) + (spec: 0 subs32vector-move! subs32vector-move!) + (spec: 0 f64vector-length f64vector-length) + (spec: 0 bit-set? bit-set?) + (spec: 0 u32vector-ref u32vector-ref) + (spec: 0 path-expand path-expand) + (spec: 0 char-set-unfold! char-set-unfold!) + (spec: 0 fxsquare fxsquare) + (spec: 0 acosh acosh) + (spec: 0 s32vector? s32vector?) + (spec: 0 process-pid process-pid) (spec: 0 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 0 call-with-output-u8vector call-with-output-u8vector) - (spec: 0 flexpt flexpt) - (spec: 0 third third) - (spec: 0 repl-highlight-source-level repl-highlight-source-level) - (spec: 0 flodd? flodd?) - (spec: 0 readtable-case-conversion? readtable-case-conversion?) - (spec: 0 fixnum->flonum fixnum->flonum) + expression-parsing-exception-kind + expression-parsing-exception-kind) + (spec: 0 make-s16vector make-s16vector) + (spec: 0 started-thread-exception? started-thread-exception?) + (spec: 0 string-prefix-length string-prefix-length) + (spec: 0 type-exception-type-id type-exception-type-id) + (spec: 0 random-source-make-reals random-source-make-reals) + (spec: 0 file-device file-device) + (spec: 0 subu64vector subu64vector) + (spec: 0 bitwise-not bitwise-not) + (spec: 0 readtable-comment-handler readtable-comment-handler) + (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 0 integer-sqrt integer-sqrt) + (spec: 0 unbound-global-exception? unbound-global-exception?) + (spec: 0 protocol-info protocol-info) + (spec: 0 f32vector-length f32vector-length) + (spec: 0 set-box! set-box!) + (spec: 0 string=?-hash string=?-hash) + (spec: 0 u16vector-set u16vector-set) (spec: 0 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 0 u8vector-copy! u8vector-copy!) + (spec: 0 unbreak unbreak) (spec: 0 take-right take-right) (spec: 0 invalid-hash-number-exception-arguments invalid-hash-number-exception-arguments) - (spec: 0 flabs flabs) - (spec: 0 readtable-start-syntax readtable-start-syntax) + (spec: 0 flcosh flcosh) (spec: 0 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 0 range-exception? range-exception?) - (spec: 0 file-info-group file-info-group) - (spec: 0 mutex-state mutex-state) - (spec: 0 u8vector-ref u8vector-ref) - (spec: 0 udp-source-socket-info udp-source-socket-info) - (spec: 0 file-mode file-mode) - (spec: 0 network-info-name network-info-name) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) + (spec: 0 open-u8vector open-u8vector) + (spec: 0 thread-interrupt! thread-interrupt!) + (spec: 0 foreign-address foreign-address) + (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 0 input-port-char-position input-port-char-position) (spec: 0 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 0 configure-command-string configure-command-string) - (spec: 0 f64vector-copy f64vector-copy) - (spec: 0 bit-field-clear bit-field-clear) - (spec: 0 u64vector->list u64vector->list) - (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 0 module-not-found-exception? module-not-found-exception?) - (spec: 0 bitwise-eqv bitwise-eqv) - (spec: 0 write-file-string-list write-file-string-list) - (spec: 0 println println) - (spec: 0 string-suffix-ci? string-suffix-ci?) - (spec: 0 clear-bit-field clear-bit-field) - (spec: 0 u16vector-concatenate u16vector-concatenate) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) (spec: 0 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 0 service-info-protocol service-info-protocol) - (spec: 0 compilation-target compilation-target) - (spec: 0 f32vector-copy f32vector-copy) - (spec: 0 host-name host-name) - (spec: 0 atanh atanh) - (spec: 0 make-u16vector make-u16vector) - (spec: 0 fxzero? fxzero?) - (spec: 0 s64vector-fill! s64vector-fill!) - (spec: 0 string-ci=?-hash string-ci=?-hash) - (spec: 0 subf32vector-move! subf32vector-move!) - (spec: 0 u32vector-append u32vector-append) - (spec: 0 s8vector-copy! s8vector-copy!) - (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 0 will-execute! will-execute!) - (spec: 0 with-output-to-vector with-output-to-vector) - (spec: 0 s16vector-ref s16vector-ref) - (spec: 0 fxbit-count fxbit-count) - (spec: 0 vector-inc! vector-inc!) - (spec: 0 char-set-delete! char-set-delete!) - (spec: 0 fxorc1 fxorc1) - (spec: 0 error-exception-parameters error-exception-parameters) - (spec: 0 char-set-unfold char-set-unfold) - (spec: 0 list->u32vector list->u32vector) - (spec: 0 s32vector-length s32vector-length) - (spec: 0 socket-info? socket-info?) - (spec: 0 thread-interrupt! thread-interrupt!) - (spec: 0 time? time?) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 0 car+cdr car+cdr) + (spec: 0 flmin flmin) + (spec: 0 remq remq) + (spec: 0 user-info-uid user-info-uid) + (spec: 0 thread-start! thread-start!) + (spec: 0 length-mismatch-exception? length-mismatch-exception?) + (spec: 0 fx<= fx<=) + (spec: 0 s16vector s16vector) + (spec: 0 void void) + (spec: 0 gc-report-set! gc-report-set!) + (spec: 0 s64vector-swap! s64vector-swap!) + (spec: 0 untrace untrace) + (spec: 0 open-input-process open-input-process) (spec: 0 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 0 thread-sleep! thread-sleep!) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) + (spec: 0 flsinh flsinh) + (spec: 0 vector->bits vector->bits) + (spec: 0 thread-state-waiting-for thread-state-waiting-for) + (spec: 0 char-set-diff+intersection char-set-diff+intersection) + (spec: 0 fxif fxif) + (spec: 0 eq?-hash eq?-hash) + (spec: 0 will-testator will-testator) + (spec: 0 string-contains-ci string-contains-ci) (spec: 0 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 0 s8vector-shrink! s8vector-shrink!) (spec: 0 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 0 flfinite? flfinite?) - (spec: 0 directory-files directory-files) - (spec: 0 call-with-output-vector call-with-output-vector) + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) + (spec: 0 u64vector-concatenate u64vector-concatenate) + (spec: 0 cons* cons*) + (spec: 0 subs32vector-fill! subs32vector-fill!) + (spec: 0 any any) + (spec: 0 f64vector-set f64vector-set) + (spec: 0 timeout->time timeout->time) + (spec: 0 fxorc1 fxorc1) + (spec: 0 list->u8vector list->u8vector) + (spec: 0 char-set-xor char-set-xor) + (spec: 0 s32vector-swap! s32vector-swap!) + (spec: 0 u16vector-copy! u16vector-copy!) + (spec: 0 string-prefix-ci? string-prefix-ci?) + (spec: 0 expression-parsing-exception? expression-parsing-exception?) + (spec: 0 random-source-make-integers random-source-make-integers) + (spec: 0 cosh cosh) + (spec: 0 inactive-thread-exception? inactive-thread-exception?) (spec: 0 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 0 module-search-order-reset! module-search-order-reset!) (spec: 0 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) - (spec: 0 replace-bit-field replace-bit-field) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 0 subu32vector-move! subu32vector-move!) + (spec: 0 integer-nth-root integer-nth-root) + (spec: 0 bitwise-if bitwise-if) + (spec: 0 fl+ fl+) + (spec: 0 u8vector->list u8vector->list) + (spec: 0 u32vector-copy u32vector-copy) + (spec: 0 make-u64vector make-u64vector) (spec: 0 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 0 open-directory open-directory) - (spec: 0 system-version system-version) - (spec: 0 defer-user-interrupts defer-user-interrupts) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) + (spec: 0 bit-field-replace bit-field-replace) + (spec: 0 f32vector-set f32vector-set) + (spec: 0 u8vector-shrink! u8vector-shrink!) + (spec: 0 current-exception-handler current-exception-handler) + (spec: 0 symbol-hash symbol-hash) + (spec: 0 file-info-owner file-info-owner) + (spec: 0 take! take!) + (spec: 0 flasinh flasinh) (spec: 0 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) - (spec: 0 delete-directory delete-directory) - (spec: 0 compile-file compile-file) - (spec: 0 flacos flacos) - (spec: 0 range-exception-arg-id range-exception-arg-id) - (spec: 0 u8vector-set u8vector-set) - (spec: 0 file-info-inode file-info-inode) - (spec: 0 link-incremental link-incremental) - (spec: 0 mutex-unlock! mutex-unlock!) - (spec: 0 read-all read-all) - (spec: 0 udp-write-subu8vector udp-write-subu8vector) - (spec: 0 file-number-of-links file-number-of-links) - (spec: 0 network-info-number network-info-number) - (spec: 0 substring-fill! substring-fill!) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 0 call-with-input-string call-with-input-string) + (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 0 thread-init! thread-init!) + (spec: 0 open-vector open-vector) + (spec: 0 udp-write-u8vector udp-write-u8vector) + (spec: 0 network-info? network-info?) + (spec: 0 datum-parsing-exception? datum-parsing-exception?) + (spec: 0 flinteger? flinteger?) + (spec: 0 iota iota) + (spec: 0 object->u8vector object->u8vector) + (spec: 0 remove! remove!) + (spec: 0 thread-priority thread-priority) (spec: 0 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 0 bit-count bit-count) - (spec: 0 f64vector->list f64vector->list) - (spec: 0 random-integer random-integer) - (spec: 0 copy-bit copy-bit) - (spec: 0 fifth fifth) - (spec: 0 sinh sinh) - (spec: 0 bitwise-fold bitwise-fold) - (spec: 0 subvector-fill! subvector-fill!) - (spec: 0 string-suffix-length string-suffix-length) - (spec: 0 u16vector u16vector) - (spec: 0 write-file-u8vector write-file-u8vector) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 0 output-port-column output-port-column) + (spec: 0 char-set->string char-set->string) + (spec: 0 thread-specific-set! thread-specific-set!) + (spec: 0 string-ci=?-hash string-ci=?-hash) + (spec: 0 trace trace) + (spec: 0 fxzero? fxzero?) + (spec: 0 permission-denied-exception? permission-denied-exception?) + (spec: 0 s64vector-shrink! s64vector-shrink!) + (spec: 0 thread-base-priority-set! thread-base-priority-set!) + (spec: 0 open-input-vector open-input-vector) + (spec: 0 vector-any vector-any) + (spec: 0 fxbit-count fxbit-count) + (spec: 0 char-set-difference! char-set-difference!) + (spec: 0 tty? tty?) (spec: 0 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 0 proper-list? proper-list?) - (spec: 0 make-thread make-thread) - (spec: 0 service-info-aliases service-info-aliases) - (spec: 0 f32vector->list f32vector->list) - (spec: 0 subf64vector subf64vector) - (spec: 0 s64vector-length s64vector-length) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 0 s8vector-set! s8vector-set!) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 subu16vector subu16vector) + (spec: 0 u64vector-append u64vector-append) + (spec: 0 f64vector-ref f64vector-ref) + (spec: 0 step-level-set! step-level-set!) + (spec: 0 fxodd? fxodd?) + (spec: 0 path-normalize path-normalize) (spec: 0 every every) - (spec: 0 fxwrapquotient fxwrapquotient) - (spec: 0 touch touch) - (spec: 0 with-output-to-process with-output-to-process) + (spec: 0 char-set-union! char-set-union!) + (spec: 0 u16vector-copy u16vector-copy) + (spec: 0 string-suffix? string-suffix?) + (spec: 0 seconds->time seconds->time) + (spec: 0 error-exception? error-exception?) (spec: 0 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 0 s8vector-fill! s8vector-fill!) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 0 process-status process-status) + (spec: 0 u8vector u8vector) + (spec: 0 module-search-order-add! module-search-order-add!) (spec: 0 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 0 tty-type-set! tty-type-set!) - (spec: 0 vector-fold vector-fold) - (spec: 0 s16vector-set s16vector-set) - (spec: 0 char-set-cursor char-set-cursor) - (spec: 0 fxarithmetic-shift fxarithmetic-shift) - (spec: 0 stack-overflow-exception? stack-overflow-exception?) - (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 0 partition! partition!) - (spec: 0 char-set-map char-set-map) - (spec: 0 error-exception? error-exception?) - (spec: 0 fxnor fxnor) - (spec: 0 list->u64vector list->u64vector) - (spec: 0 reverse! reverse!) - (spec: 0 thread-group? thread-group?) - (spec: 0 flzero? flzero?) - (spec: 0 open-process open-process) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) + (spec: 0 cpu-time cpu-time) (spec: 0 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 0 user-info user-info) - (spec: 0 os-exception-procedure os-exception-procedure) - (spec: 0 thread-specific thread-specific) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: 0 noncontinuable-exception? noncontinuable-exception?) + (spec: 0 bitwise-for-each bitwise-for-each) + (spec: 0 fl* fl*) + (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) + (spec: 0 subf64vector-move! subf64vector-move!) + (spec: 0 make-u32vector make-u32vector) + (spec: 0 bit-field-every? bit-field-every?) + (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 0 f32vector-ref f32vector-ref) + (spec: 0 protocol-info-name protocol-info-name) + (spec: 0 u32vector-concatenate u32vector-concatenate) + (spec: 0 mutex? mutex?) + (spec: 0 u8vector-set! u8vector-set!) + (spec: 0 file-info-number-of-links file-info-number-of-links) + (spec: 0 write-subu8vector write-subu8vector) + (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 0 flasin flasin) + (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) + (spec: 0 call-with-input-process call-with-input-process) (spec: 0 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 0 vector-unfold vector-unfold) - (spec: 0 tcp-service-unregister! tcp-service-unregister!) - (spec: 0 flfloor flfloor) + invalid-hash-number-exception? + invalid-hash-number-exception?) + (spec: 0 tanh tanh) + (spec: 0 open-udp open-udp) (spec: 0 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) + (spec: 0 unbound-global-exception-code unbound-global-exception-code) (spec: 0 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 0 repl-output-port repl-output-port) - (spec: 0 display-procedure-environment display-procedure-environment) - (spec: 0 flonum? flonum?) - (spec: 0 open-dummy open-dummy) - (spec: 0 readtable-comment-handler readtable-comment-handler) - (spec: 0 noncontinuable-exception? noncontinuable-exception?) - (spec: 0 thread thread) + datum-parsing-exception-readenv + datum-parsing-exception-readenv) + (spec: + 0 + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 0 flinfinite? flinfinite?) + (spec: 0 file-number-of-links file-number-of-links) + (spec: 0 object->string object->string) + (spec: 0 terminated-thread-exception? terminated-thread-exception?) + (spec: 0 user-name user-name) + (spec: 0 output-port-char-position output-port-char-position) + (spec: 0 char-set->list char-set->list) + (spec: 0 fxxor fxxor) + (spec: + 0 + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 0 s64vector-length s64vector-length) (spec: 0 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) + (spec: 0 open-input-u8vector open-input-u8vector) + (spec: 0 keyword-expected-exception? keyword-expected-exception?) (spec: 0 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) + (spec: 0 s16vector-set s16vector-set) + (spec: 0 char-set-difference char-set-difference) + (spec: 0 list->char-set list->char-set) + (spec: 0 poll-point poll-point) + (spec: 0 thread-state-waiting? thread-state-waiting?) + (spec: 0 string-prefix-length-ci string-prefix-length-ci) + (spec: 0 tty-mode-set! tty-mode-set!) + (spec: 0 u32vector? u32vector?) + (spec: 0 f64vector-shrink! f64vector-shrink!) + (spec: 0 bitwise-and bitwise-and) + (spec: 0 list->s8vector list->s8vector) + (spec: 0 fxmodulo fxmodulo) + (spec: 0 group-info group-info) + (spec: 0 ->char-set ->char-set) + (spec: 0 circular-list circular-list) + (spec: 0 primordial-exception-handler primordial-exception-handler) + (spec: 0 s8vector? s8vector?) + (spec: 0 raise raise) + (spec: 0 file-exists-exception? file-exists-exception?) + (spec: 0 u64vector-swap! u64vector-swap!) + (spec: 0 input-port-column input-port-column) + (spec: 0 read-substring read-substring) + (spec: 0 fl- fl-) + (spec: 0 default-random-source default-random-source) (spec: 0 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 0 tanh tanh) + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) + (spec: 0 subu64vector-fill! subu64vector-fill!) + (spec: 0 serial-number->object serial-number->object) + (spec: 0 f32vector-shrink! f32vector-shrink!) + (spec: 0 make-table make-table) + (spec: 0 subs64vector subs64vector) + (spec: 0 file-info-type file-info-type) + (spec: 0 create-symbolic-link create-symbolic-link) + (spec: 0 mutex-name mutex-name) + (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) (spec: 0 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 0 flacosh flacosh) - (spec: 0 uninterned-keyword? uninterned-keyword?) - (spec: 0 u8vector-set! u8vector-set!) - (spec: 0 mutex? mutex?) - (spec: 0 file-info-last-access-time file-info-last-access-time) - (spec: 0 udp-write-u8vector udp-write-u8vector) - (spec: 0 network-info? network-info?) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 0 call-with-input-vector call-with-input-vector) + (spec: 0 fl>= fl>=) + (spec: 0 table-ref table-ref) + (spec: 0 socket-info-port-number socket-info-port-number) + (spec: 0 fltruncate fltruncate) + (spec: 0 thread-group-specific thread-group-specific) + (spec: 0 uncaught-exception? uncaught-exception?) (spec: 0 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 0 file-owner file-owner) - (spec: 0 substring-move! substring-move!) - (spec: 0 u64vector-concatenate u64vector-concatenate) - (spec: 0 bit-field-replace bit-field-replace) - (spec: 0 conjugate conjugate) - (spec: 0 f64vector-fill! f64vector-fill!) - (spec: 0 random-source-make-reals random-source-make-reals) - (spec: 0 module-search-order-add! module-search-order-add!) - (spec: 0 bitwise-for-each bitwise-for-each) - (spec: 0 file-attributes file-attributes) - (spec: 0 u8vector u8vector) - (spec: 0 string-suffix-length-ci string-suffix-length-ci) - (spec: 0 u16vector-copy! u16vector-copy!) - (spec: 0 script-file script-file) - (spec: 0 subf64vector-fill! subf64vector-fill!) - (spec: 0 make-u64vector make-u64vector) - (spec: 0 u32vector-copy u32vector-copy) - (spec: 0 concatenate concatenate) - (spec: 0 f32vector-fill! f32vector-fill!) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 0 null-list? null-list?) (spec: 0 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 0 trace trace) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 0 flexpt flexpt) + (spec: 0 thread-quantum-set! thread-quantum-set!) + (spec: 0 char-set-adjoin! char-set-adjoin!) + (spec: 0 foreign? foreign?) + (spec: 0 vector-cas! vector-cas!) + (spec: 0 path-strip-extension path-strip-extension) + (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 0 list-tabulate list-tabulate) + (spec: 0 rename-file rename-file) + (spec: 0 flodd? flodd?) + (spec: 0 s16vector->list s16vector->list) (spec: 0 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 0 every-bit-set? every-bit-set?) - (spec: 0 tty? tty?) + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 0 char-set-filter char-set-filter) + (spec: 0 fxand fxand) + (spec: 0 s64vector? s64vector?) + (spec: 0 tty-history-set! tty-history-set!) + (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) + (spec: 0 protocol-info? protocol-info?) + (spec: 0 f64vector-set! f64vector-set!) + (spec: 0 subs8vector subs8vector) + (spec: 0 bits->vector bits->vector) + (spec: 0 u32vector-swap! u32vector-swap!) + (spec: 0 with-input-from-port with-input-from-port) + (spec: 0 thread-terminate! thread-terminate!) + (spec: 0 char-set-xor! char-set-xor!) + (spec: 0 fxmin fxmin) + (spec: 0 s32vector-append s32vector-append) + (spec: 0 pretty-print pretty-print) + (spec: 0 s8vector-swap! s8vector-swap!) + (spec: 0 make-f64vector make-f64vector) + (spec: 0 group-info-name group-info-name) + (spec: 0 string-set string-set) + (spec: 0 subu8vector-fill! subu8vector-fill!) (spec: 0 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 0 get-output-vector get-output-vector) - (spec: 0 s8vector-length s8vector-length) - (spec: 0 will? will?) - (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 0 fxeqv fxeqv) - (spec: 0 s16vector-set! s16vector-set!) - (spec: 0 path-extension path-extension) - (spec: 0 list->u8vector list->u8vector) - (spec: 0 char-set-union char-set-union) - (spec: 0 fxpositive? fxpositive?) - (spec: 0 s32vector-ref s32vector-ref) - (spec: 0 string->char-set string->char-set) - (spec: 0 open-string open-string) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 0 u64vector-shrink! u64vector-shrink!) + (spec: 0 bitwise-xor bitwise-xor) + (spec: 0 read-file-string read-file-string) + (spec: 0 fl+* fl+*) + (spec: 0 input-port-readtable input-port-readtable) + (spec: 0 system-stamp system-stamp) + (spec: 0 unbound-key-exception? unbound-key-exception?) + (spec: 0 u16vector? u16vector?) + (spec: 0 f32vector-set! f32vector-set!) + (spec: 0 condition-variable-signal! condition-variable-signal!) + (spec: 0 host-info-aliases host-info-aliases) + (spec: 0 file-info-size file-info-size) + (spec: 0 current-readtable current-readtable) + (spec: 0 mutex-lock! mutex-lock!) (spec: 0 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 0 table-copy table-copy) + (spec: 0 call-with-input-u8vector call-with-input-u8vector) + (spec: 0 fl> fl>) + (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 socket-info-family socket-info-family) + (spec: 0 fltanh fltanh) + (spec: 0 thread-group->thread-list thread-group->thread-list) + (spec: 0 uncaught-exception-reason uncaught-exception-reason) + (spec: 0 ucs-range->char-set! ucs-range->char-set!) + (spec: 0 dead-end dead-end) + (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) + (spec: 0 flexpm1 flexpm1) (spec: 0 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 0 fold fold) - (spec: 0 timeout->time timeout->time) - (spec: 0 output-port-byte-position output-port-byte-position) - (spec: 0 char-set char-set) - (spec: 0 fx+ fx+) + display-continuation-environment + display-continuation-environment) + (spec: 0 open-vector-pipe open-vector-pipe) + (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 0 char-set-adjoin char-set-adjoin) + (spec: 0 path-strip-directory path-strip-directory) + (spec: 0 string->uninterned-symbol string->uninterned-symbol) + (spec: 0 fxwrapabs fxwrapabs) + (spec: 0 address-info-protocol address-info-protocol) + (spec: 0 s64vector->list s64vector->list) + (spec: 0 test-bit-field? test-bit-field?) + (spec: 0 keyword? keyword?) + (spec: 0 drop-right drop-right) + (spec: 0 output-port-line output-port-line) + (spec: 0 char-set-every char-set-every) + (spec: 0 fxabs fxabs) + (spec: 0 list->f32vector list->f32vector) + (spec: 0 eqv?-hash eqv?-hash) + (spec: 0 s16vector-copy s16vector-copy) (spec: 0 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 0 thread-specific-set! thread-specific-set!) - (spec: 0 remove remove) + thread-state-abnormally-terminated? + thread-state-abnormally-terminated?) + (spec: 0 make-bitwise-generator make-bitwise-generator) + (spec: 0 s8vector s8vector) + (spec: 0 append! append!) + (spec: 0 protocol-info-number protocol-info-number) + (spec: 0 subs64vector-move! subs64vector-move!) + (spec: 0 bit-field-set bit-field-set) + (spec: 0 f64vector? f64vector?) + (spec: 0 thread-suspend! thread-suspend!) (spec: 0 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 0 terminated-thread-exception? terminated-thread-exception?) - (spec: 0 flhypot flhypot) - (spec: 0 user-info-gid user-info-gid) - (spec: 0 user-info? user-info?) - (spec: 0 open-event-queue open-event-queue) - (spec: 0 keyword-expected-exception? keyword-expected-exception?) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 0 fxremainder fxremainder) + (spec: 0 s32vector->list s32vector->list) + (spec: 0 type-exception-procedure type-exception-procedure) + (spec: 0 group-info-members group-info-members) + (spec: 0 arithmetic-shift arithmetic-shift) + (spec: 0 make-root-thread make-root-thread) + (spec: 0 subu8vector subu8vector) + (spec: 0 u64vector-length u64vector-length) + (spec: 0 bitwise-nor bitwise-nor) + (spec: 0 file-group file-group) (spec: 0 - thread-group->thread-group-list - thread-group->thread-group-list) + unbound-global-exception-variable + unbound-global-exception-variable) + (spec: + 0 + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 0 fl< fl<) + (spec: 0 process-times process-times) + (spec: 0 u16vector-ref u16vector-ref) + (spec: 0 condition-variable-name condition-variable-name) + (spec: 0 host-info-addresses host-info-addresses) + (spec: 0 f32vector? f32vector?) + (spec: 0 make-will make-will) + (spec: 0 random-source-randomize! random-source-randomize!) + (spec: 0 current-processor current-processor) + (spec: 0 u8vector-copy u8vector-copy) + (spec: 0 box? box?) + (spec: 0 file-inode file-inode) + (spec: 0 table->list table->list) + (spec: 0 xcons xcons) + (spec: 0 flcos flcos) (spec: 0 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: 0 call-with-output-process call-with-output-process) (spec: 0 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) - (spec: 0 take! take!) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 0 sixth sixth) (spec: 0 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 0 ucs-range->char-set ucs-range->char-set) + (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 0 filter! filter!) + (spec: 0 flmax flmax) (spec: 0 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 0 delete-file-or-directory delete-file-or-directory) - (spec: 0 thread-priority thread-priority) - (spec: 0 u8vector-shrink! u8vector-shrink!) - (spec: 0 uninterned-symbol? uninterned-symbol?) - (spec: 0 range-exception-procedure range-exception-procedure) - (spec: 0 current-directory current-directory) - (spec: 0 file-info-last-change-time file-info-last-change-time) - (spec: 0 subu16vector subu16vector) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) + (spec: 0 thread-mailbox-next thread-mailbox-next) + (spec: 0 fx< fx<) + (spec: 0 char-set-complement char-set-complement) + (spec: 0 string->keyword string->keyword) + (spec: 0 path-strip-volume path-strip-volume) + (spec: 0 address-info-family address-info-family) + (spec: 0 char-set<= char-set<=) + (spec: 0 s64vector s64vector) + (spec: 0 flsin flsin) + (spec: 0 keyword-hash keyword-hash) + (spec: 0 drop drop) (spec: 0 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 0 u64vector u64vector) - (spec: 0 f64vector-concatenate f64vector-concatenate) - (spec: 0 bit-field-any? bit-field-any?) - (spec: 0 u8vector->list u8vector->list) - (spec: 0 module-search-order-reset! module-search-order-reset!) - (spec: 0 bitwise-if bitwise-if) - (spec: 0 copy-file copy-file) - (spec: 0 file-creation-time file-creation-time) - (spec: 0 string-suffix? string-suffix?) - (spec: 0 u16vector-append u16vector-append) - (spec: 0 make-mutex make-mutex) - (spec: 0 subf64vector-move! subf64vector-move!) - (spec: 0 service-info-port-number service-info-port-number) - (spec: 0 f32vector-concatenate f32vector-concatenate) - (spec: 0 concatenate! concatenate!) - (spec: 0 make-tls-context make-tls-context) - (spec: 0 u32vector->list u32vector->list) - (spec: 0 fxxor fxxor) - (spec: 0 acosh acosh) - (spec: 0 s64vector-ref s64vector-ref) - (spec: 0 with-output-to-u8vector with-output-to-u8vector) + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 0 list->char-set! list->char-set!) + (spec: 0 fxfirst-set-bit fxfirst-set-bit) + (spec: 0 output-port-readtable-set! output-port-readtable-set!) + (spec: 0 char-set-fold char-set-fold) + (spec: 0 s16vector-concatenate s16vector-concatenate) + (spec: 0 string-contains string-contains) + (spec: 0 with-input-from-string with-input-from-string) + (spec: 0 subs32vector subs32vector) + (spec: 0 u32vector-length u32vector-length) + (spec: 0 setenv setenv) + (spec: 0 bit-field-rotate bit-field-rotate) + (spec: 0 continuation-graft continuation-graft) + (spec: 0 f64vector-swap! f64vector-swap!) (spec: 0 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 0 port-settings-set! port-settings-set!) - (spec: 0 any any) - (spec: 0 thread-priority-set! thread-priority-set!) - (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 0 thread-state-waiting-for thread-state-waiting-for) - (spec: 0 s16vector-shrink! s16vector-shrink!) - (spec: 0 char-set-delete char-set-delete) - (spec: 0 step-level-set! step-level-set!) - (spec: 0 fxodd? fxodd?) - (spec: 0 path-directory path-directory) - (spec: 0 char-set-size char-set-size) - (spec: 0 s32vector-set s32vector-set) - (spec: 0 thread-init! thread-init!) - (spec: 0 user-info-home user-info-home) - (spec: 0 open-string-pipe open-string-pipe) - (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 0 fold-right fold-right) - (spec: 0 thread-start! thread-start!) - (spec: 0 length-mismatch-exception? length-mismatch-exception?) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 0 fxquotient fxquotient) + (spec: 0 s32vector-shrink! s32vector-shrink!) + (spec: 0 thread-yield! thread-yield!) + (spec: 0 type-exception-arguments type-exception-arguments) + (spec: 0 extract-bit-field extract-bit-field) + (spec: 0 command-args command-args) + (spec: 0 subu32vector-fill! subu32vector-fill!) (spec: 0 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 0 iota iota) - (spec: 0 call/cc call/cc) - (spec: 0 flilogb flilogb) - (spec: 0 thread-base-priority-set! thread-base-priority-set!) - (spec: 0 open-file open-file) - (spec: 0 repl-result-history-ref repl-result-history-ref) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) + (spec: 0 bitwise-nand bitwise-nand) + (spec: 0 create-directory create-directory) + (spec: 0 r7rs-raise r7rs-raise) + (spec: 0 u64vector-fill! u64vector-fill!) (spec: 0 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) (spec: 0 integer-length integer-length) - (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: - 0 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: - 0 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) - (spec: 0 flasin flasin) + (spec: 0 fl/ fl/) + (spec: 0 read-file-u8vector read-file-u8vector) + (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) (spec: 0 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 0 table-copy table-copy) - (spec: 0 u8vector-swap! u8vector-swap!) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) (spec: 0 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 0 file-size file-size) - (spec: 0 datum-parsing-exception? datum-parsing-exception?) - (spec: 0 subu16vector-fill! subu16vector-fill!) - (spec: 0 cons* cons*) - (spec: 0 bit-field-reverse bit-field-reverse) - (spec: 0 u64vector-copy! u64vector-copy!) + condition-variable-specific-set! + condition-variable-specific-set!) + (spec: 0 f32vector-swap! f32vector-swap!) + (spec: 0 u8vector-concatenate u8vector-concatenate) + (spec: 0 random-source-state-set! random-source-state-set!) + (spec: 0 box box) + (spec: 0 current-thread current-thread) + (spec: 0 file-info? file-info?) + (spec: 0 flceiling flceiling) (spec: 0 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 0 file-device file-device) - (spec: 0 cpu-time cpu-time) - (spec: 0 bitwise-ior bitwise-ior) - (spec: 0 module-whitelist-add! module-whitelist-add!) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) (spec: 0 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 0 second second) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 0 table-length table-length) + (spec: 0 open-output-process open-output-process) + (spec: 0 thread-group-name thread-group-name) + (spec: 0 input-port-byte-position input-port-byte-position) + (spec: 0 udp-destination-set! udp-destination-set!) + (spec: 0 file-type file-type) + (spec: 0 deadlock-exception? deadlock-exception?) + (spec: 0 fllog1p fllog1p) + (spec: 0 remove remove) (spec: 0 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 0 heap-overflow-exception? heap-overflow-exception?) - (spec: 0 string-swap! string-swap!) - (spec: 0 subu32vector-fill! subu32vector-fill!) - (spec: 0 subs16vector subs16vector) - (spec: 0 u16vector-length u16vector-length) - (spec: 0 u32vector-fill! u32vector-fill!) - (spec: 0 u8vector->object u8vector->object) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 0 fx- fx-) + (spec: 0 thread-priority-boost thread-priority-boost) + (spec: 0 char-set-any char-set-any) + (spec: 0 string->char-set! string->char-set!) (spec: 0 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 0 s64vector-set s64vector-set) - (spec: 0 permission-denied-exception? permission-denied-exception?) - (spec: 0 string->keyword string->keyword) - (spec: 0 s8vector-ref s8vector-ref) - (spec: 0 main main) - (spec: 0 any-bit-set? any-bit-set?) - (spec: 0 string-contains string-contains) - (spec: 0 s16vector-swap! s16vector-swap!) - (spec: 0 fxfirst-set-bit fxfirst-set-bit) - (spec: 0 list->bits list->bits) - (spec: 0 char-set-difference! char-set-difference!) - (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 0 vector-any vector-any) - (spec: 0 fxremainder fxremainder) - (spec: 0 s32vector-set! s32vector-set!) - (spec: 0 char-set-xor char-set-xor) - (spec: 0 with-exception-handler with-exception-handler) + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) + (spec: 0 s64vector-set! s64vector-set!) + (spec: 0 address-info-socket-type address-info-socket-type) + (spec: 0 flscalbn flscalbn) + (spec: 0 fxeven? fxeven?) + (spec: 0 output-port-readtable output-port-readtable) + (spec: 0 s16vector? s16vector?) + (spec: 0 char-set-filter! char-set-filter!) + (spec: 0 list->s16vector list->s16vector) + (spec: 0 thread-state-initialized? thread-state-initialized?) (spec: 0 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 0 user-info-name user-info-name) - (spec: 0 open-tcp-client open-tcp-client) - (spec: 0 thread-group->thread-list thread-group->thread-list) - (spec: 0 fx< fx<) - (spec: 0 output-port-column output-port-column) - (spec: 0 char-set->string char-set->string) - (spec: 0 thread-state thread-state) - (spec: 0 remq remq) - (spec: 0 flinfinite? flinfinite?) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 0 vector-concatenate vector-concatenate) + (spec: 0 with-output-to-u8vector with-output-to-u8vector) + (spec: 0 group-info? group-info?) + (spec: 0 f64vector f64vector) + (spec: 0 conjugate conjugate) + (spec: 0 bit-field-clear bit-field-clear) + (spec: 0 port-settings-set! port-settings-set!) + (spec: 0 gensym gensym) + (spec: 0 s8vector-append s8vector-append) + (spec: 0 err-code->string err-code->string) + (spec: 0 char-set-hash char-set-hash) + (spec: 0 fxnot fxnot) + (spec: 0 list->u32vector list->u32vector) + (spec: 0 s64vector-append s64vector-append) + (spec: 0 scheduler-exception? scheduler-exception?) + (spec: 0 step step) + (spec: 0 subs8vector-fill! subs8vector-fill!) + (spec: 0 time? time?) + (spec: 0 s32vector-concatenate s32vector-concatenate) + (spec: 0 tty-type-set! tty-type-set!) + (spec: 0 copy-file copy-file) + (spec: 0 u16vector-concatenate u16vector-concatenate) + (spec: 0 bitwise-fold bitwise-fold) + (spec: 0 subu8vector-move! subu8vector-move!) + (spec: 0 u64vector->list u64vector->list) + (spec: 0 first first) (spec: 0 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) - (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 0 keyword? keyword?) - (spec: 0 test-bit-field? test-bit-field?) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 0 system-type system-type) + (spec: 0 concatenate concatenate) + (spec: 0 f32vector f32vector) + (spec: 0 atanh atanh) + (spec: 0 make-u16vector make-u16vector) + (spec: 0 subf32vector subf32vector) + (spec: 0 file-info-attributes file-info-attributes) + (spec: 0 current-directory current-directory) + (spec: 0 mutex-unlock! mutex-unlock!) + (spec: 0 u32vector-append u32vector-append) + (spec: 0 host-info-name host-info-name) + (spec: 0 range-exception-procedure range-exception-procedure) + (spec: 0 service-info service-info) + (spec: 0 u8vector-set u8vector-set) (spec: 0 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 0 unbox unbox) - (spec: 0 fixnum? fixnum?) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) (spec: 0 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 0 flasinh flasinh) + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) + (spec: 0 real-time real-time) (spec: 0 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 0 drop-right! drop-right!) + (spec: 0 fold-right fold-right) (spec: 0 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: 0 u8vector? u8vector?) - (spec: 0 current-exception-handler current-exception-handler) - (spec: 0 file-info-mode file-info-mode) - (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 0 file-type file-type) - (spec: 0 unbound-global-exception-code unbound-global-exception-code) - (spec: 0 u64vector-append u64vector-append) - (spec: 0 subu16vector-move! subu16vector-move!) - (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 0 bit-field-every? bit-field-every?) - (spec: 0 f64vector-copy! f64vector-copy!) - (spec: 0 random-source-make-integers random-source-make-integers) - (spec: 0 cosh cosh) - (spec: 0 module-whitelist-reset! module-whitelist-reset!) - (spec: 0 bitwise-merge bitwise-merge) - (spec: 0 u8vector-append u8vector-append) - (spec: 0 u16vector-copy u16vector-copy) - (spec: 0 process-pid process-pid) - (spec: 0 script-directory script-directory) - (spec: 0 help help) - (spec: 0 protocol-info protocol-info) - (spec: 0 make-u32vector make-u32vector) - (spec: 0 identity identity) - (spec: 0 f32vector-copy! f32vector-copy!) - (spec: 0 service-info? service-info?) - (spec: 0 subs16vector-fill! subs16vector-fill!) - (spec: 0 s64vector-set! s64vector-set!) - (spec: 0 u32vector-concatenate u32vector-concatenate) - (spec: 0 void void) - (spec: 0 s8vector-set s8vector-set) - (spec: 0 type-exception-arg-id type-exception-arg-id) - (spec: 0 get-output-u8vector get-output-u8vector) - (spec: 0 any-bits-set? any-bits-set?) - (spec: 0 compile-file-to-target compile-file-to-target) - (spec: 0 s16vector? s16vector?) - (spec: 0 char-set-diff+intersection char-set-diff+intersection) - (spec: 0 fxbit-set? fxbit-set?) - (spec: 0 list->char-set list->char-set) - (spec: 0 thread-state-waiting? thread-state-waiting?) - (spec: 0 path-expand path-expand) - (spec: 0 char-set-unfold! char-set-unfold!) - (spec: 0 fxorc2 fxorc2) - (spec: 0 link-flat link-flat) - (spec: 0 s32vector-shrink! s32vector-shrink!) - (spec: 0 vector->bits vector->bits) - (spec: 0 thread-join! thread-join!) - (spec: 0 last-pair last-pair) - (spec: 0 open-tcp-server open-tcp-server) - (spec: 0 user-info-shell user-info-shell) - (spec: 0 will-testator will-testator) - (spec: 0 fx* fx*) - (spec: 0 user-info-uid user-info-uid) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 0 thread-group? thread-group?) (spec: 0 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) - (spec: 0 flinteger? flinteger?) + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) (spec: 0 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) + current-user-interrupt-handler + current-user-interrupt-handler) + (spec: 0 network-info-name network-info-name) + (spec: 0 udp-source-socket-info udp-source-socket-info) + (spec: 0 call-with-output-u8vector call-with-output-u8vector) + (spec: 0 flilogb flilogb) (spec: 0 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) + (spec: 0 thread-priority-set! thread-priority-set!) + (spec: 0 tcp-service-unregister! tcp-service-unregister!) (spec: 0 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 0 integer-sqrt integer-sqrt) - (spec: 0 fl* fl*) - (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 0 read-file-string read-file-string) - (spec: 0 flatan flatan) - (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 0 table-length table-length) - (spec: 0 current-readtable current-readtable) - (spec: 0 box box) - (spec: 0 file-info-number-of-links file-info-number-of-links) - (spec: 0 u8vector-concatenate u8vector-concatenate) - (spec: 0 unbreak unbreak) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) + (spec: 0 output-port-width output-port-width) + (spec: 0 s16vector-copy! s16vector-copy!) + (spec: 0 fxwrapsquare fxwrapsquare) + (spec: 0 thread-sleep! thread-sleep!) (spec: 0 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 0 ucs-range->char-set ucs-range->char-set) - (spec: 0 bit-field-set bit-field-set) - (spec: 0 console-port console-port) - (spec: 0 f64vector-set f64vector-set) - (spec: 0 subs16vector-move! subs16vector-move!) - (spec: 0 bitwise-nand bitwise-nand) - (spec: 0 u64vector-fill! u64vector-fill!) - (spec: 0 help-browser help-browser) - (spec: 0 make-root-thread make-root-thread) - (spec: 0 arithmetic-shift arithmetic-shift) - (spec: 0 expression-parsing-exception? expression-parsing-exception?) - (spec: 0 subu64vector subu64vector) - (spec: 0 type-exception-procedure type-exception-procedure) - (spec: 0 make-will make-will) - (spec: 0 protocol-info-aliases protocol-info-aliases) - (spec: 0 f32vector-set f32vector-set) - (spec: 0 u16vector-ref u16vector-ref) - (spec: 0 write-substring write-substring) - (spec: 0 s64vector-shrink! s64vector-shrink!) - (spec: 0 address-info-family address-info-family) - (spec: 0 path-strip-extension path-strip-extension) - (spec: 0 s8vector-set! s8vector-set!) - (spec: 0 with-input-from-port with-input-from-port) - (spec: 0 list->char-set! list->char-set!) - (spec: 0 char-set-filter char-set-filter) - (spec: 0 fxior fxior) - (spec: 0 vector-cas! vector-cas!) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 0 os-exception-arguments os-exception-arguments) + (spec: 0 display-exception display-exception) + (spec: 0 open-output-vector open-output-vector) + (spec: 0 char-set-contains? char-set-contains?) + (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) + (spec: 0 thread thread) + (spec: 0 vector-cumulate vector-cumulate) + (spec: 0 char-set? char-set?) + (spec: 0 with-input-from-vector with-input-from-vector) + (spec: 0 scheduler-exception-reason scheduler-exception-reason) + (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 0 bit-field-any? bit-field-any?) + (spec: 0 s8vector->list s8vector->list) + (spec: 0 substring-fill! substring-fill!) + (spec: 0 char-set-for-each char-set-for-each) + (spec: 0 fxnor fxnor) + (spec: 0 error-exception-message error-exception-message) + (spec: 0 list->s64vector list->s64vector) + (spec: 0 path-volume path-volume) + (spec: 0 s32vector-fill! s32vector-fill!) + (spec: 0 make-mutex make-mutex) + (spec: 0 top top) + (spec: 0 u64vector u64vector) + (spec: 0 vector-set vector-set) + (spec: 0 string-suffix-length string-suffix-length) + (spec: 0 continuation? continuation?) + (spec: 0 module-not-found-exception? module-not-found-exception?) + (spec: 0 bitwise-eqv bitwise-eqv) + (spec: 0 u16vector-append u16vector-append) + (spec: 0 random-u8vector random-u8vector) + (spec: 0 subvector-move! subvector-move!) + (spec: 0 shell-command shell-command) + (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 0 command-name command-name) + (spec: 0 make-tls-context make-tls-context) + (spec: 0 system-version-string system-version-string) (spec: 0 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 0 s32vector-swap! s32vector-swap!) - (spec: 0 fxwrap* fxwrap*) - (spec: 0 thread-suspend! thread-suspend!) - (spec: 0 open-u8vector open-u8vector) - (spec: 0 eighth eighth) - (spec: 0 split-at split-at) - (spec: 0 thread-group-name thread-group-name) - (spec: 0 char-set-adjoin! char-set-adjoin!) - (spec: 0 fx= fx=) - (spec: 0 thread-mailbox-next thread-mailbox-next) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 0 seventh seventh) + (spec: 0 file-info file-info) + (spec: 0 create-link create-link) + (spec: 0 mutex-state mutex-state) + (spec: 0 subf64vector subf64vector) + (spec: 0 compile-file-to-target compile-file-to-target) + (spec: 0 processor? processor?) + (spec: 0 flacosh flacosh) + (spec: 0 readtable-max-write-level readtable-max-write-level) + (spec: 0 delete! delete!) + (spec: 0 u32vector->list u32vector->list) + (spec: 0 u8vector-ref u8vector-ref) (spec: 0 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 0 car+cdr car+cdr) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 0 fold fold) (spec: 0 - join-timeout-exception-arguments - join-timeout-exception-arguments) + wrong-number-of-arguments-exception? + wrong-number-of-arguments-exception?) (spec: 0 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) - (spec: 0 readtable? readtable?) - (spec: 0 open-input-process open-input-process) - (spec: 0 dotted-list? dotted-list?) - (spec: 0 flpositive? flpositive?) - (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 0 untrace untrace) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) + (spec: 0 table-merge! table-merge!) + (spec: 0 current-time current-time) + (spec: 0 file-last-modification-time file-last-modification-time) (spec: 0 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 0 fl+ fl+) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 0 call-with-output-string call-with-output-string) + (spec: 0 flhypot flhypot) + (spec: 0 udp-local-socket-info udp-local-socket-info) + (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 0 output-port-timeout-set! output-port-timeout-set!) (spec: 0 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 0 not-pair? not-pair?) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 0 fxwrapquotient fxwrapquotient) + (spec: 0 address-infos address-infos) + (spec: 0 list-sort! list-sort!) + (spec: 0 s64vector-copy! s64vector-copy!) + (spec: 0 thread-quantum thread-quantum) + (spec: 0 join-timeout-exception? join-timeout-exception?) + (spec: 0 repl-input-port repl-input-port) + (spec: 0 open-output-u8vector open-output-u8vector) + (spec: 0 char-set-complement! char-set-complement!) + (spec: 0 fxarithmetic-shift fxarithmetic-shift) + (spec: 0 thread-group-resume! thread-group-resume!) + (spec: 0 stack-overflow-exception? stack-overflow-exception?) + (spec: 0 char-set= char-set=) + (spec: 0 apropos apropos) + (spec: 0 s8vector-copy s8vector-copy) + (spec: 0 with-input-from-u8vector with-input-from-u8vector) + (spec: 0 condition-variable? condition-variable?) (spec: 0 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 0 flatanh flatanh) - (spec: 0 table->list table->list) - (spec: 0 box? box?) - (spec: 0 file-info-owner file-info-owner) - (spec: 0 u8vector-copy u8vector-copy) - (spec: 0 input-port-byte-position input-port-byte-position) + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 0 bits->list bits->list) + (spec: 0 f64vector-append f64vector-append) + (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 0 list->s32vector list->s32vector) + (spec: 0 fxmax fxmax) + (spec: 0 char-set-intersection! char-set-intersection!) + (spec: 0 partition partition) + (spec: 0 s32vector-copy! s32vector-copy!) + (spec: 0 string->uninterned-keyword string->uninterned-keyword) + (spec: 0 make-f32vector make-f32vector) + (spec: 0 vector-swap! vector-swap!) + (spec: 0 executable-path executable-path) + (spec: 0 thread? thread?) + (spec: 0 string-suffix-ci? string-suffix-ci?) + (spec: 0 continuation-return continuation-return) + (spec: 0 bitwise-unfold bitwise-unfold) + (spec: 0 random-source? random-source?) + (spec: 0 subvector-fill! subvector-fill!) + (spec: 0 u8vector-length u8vector-length) + (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 0 system-version system-version) + (spec: 0 host-name host-name) + (spec: 0 make-s8vector make-s8vector) + (spec: 0 f32vector-append f32vector-append) + (spec: 0 service-info-name service-info-name) + (spec: 0 u32vector-shrink! u32vector-shrink!) + (spec: 0 create-fifo create-fifo) + (spec: 0 subf32vector-move! subf32vector-move!) + (spec: 0 u64vector-set! u64vector-set!) + (spec: 0 file-info-device file-info-device) + (spec: 0 processor-id processor-id) + (spec: 0 u16vector-swap! u16vector-swap!) + (spec: 0 compile-file compile-file) + (spec: 0 fl= fl=) + (spec: 0 delete delete) (spec: 0 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 0 ucs-range->char-set! ucs-range->char-set!) - (spec: 0 u64vector-copy u64vector-copy) - (spec: 0 f64vector-length f64vector-length) - (spec: 0 bit-field-replace-same bit-field-replace-same) - (spec: 0 subs32vector subs32vector) + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) (spec: 0 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) - (spec: 0 bitwise-nor bitwise-nor) + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) + (spec: 0 fltan fltan) + (spec: 0 open-process open-process) (spec: 0 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 0 subu32vector subu32vector) - (spec: 0 u64vector-length u64vector-length) - (spec: 0 process-status process-status) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 0 table-merge table-merge) + (spec: 0 user-info user-info) + (spec: 0 initial-current-directory initial-current-directory) + (spec: 0 file-last-change-time file-last-change-time) (spec: 0 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 0 make-random-source make-random-source) - (spec: 0 u16vector-fill! u16vector-fill!) - (spec: 0 set-box! set-box!) - (spec: 0 protocol-info-name protocol-info-name) - (spec: 0 f32vector-length f32vector-length) - (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 0 make-u8vector make-u8vector) - (spec: 0 u32vector-copy! u32vector-copy!) + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 0 flexp flexp) (spec: 0 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 0 address-info-protocol address-info-protocol) - (spec: 0 s64vector-swap! s64vector-swap!) - (spec: 0 string->char-set! string->char-set!) - (spec: 0 write-subu8vector write-subu8vector) - (spec: 0 getenv getenv) - (spec: 0 make-bitwise-generator make-bitwise-generator) - (spec: 0 append! append!) - (spec: 0 pp pp) - (spec: 0 s8vector-shrink! s8vector-shrink!) - (spec: 0 fxeven? fxeven?) - (spec: 0 list->f32vector list->f32vector) - (spec: 0 char-set-difference char-set-difference) - (spec: 0 eq?-hash eq?-hash) - (spec: 0 string-concatenate string-concatenate) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 0 foreign-tags foreign-tags) + (spec: 0 os-exception-message os-exception-message) (spec: 0 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 0 fxquotient fxquotient) - (spec: 0 path-normalize path-normalize) - (spec: 0 char-set-union! char-set-union!) - (spec: 0 s32vector? s32vector?) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 0 list-sort list-sort) + (spec: 0 fxwrap- fxwrap-) + (spec: 0 address-info? address-info?) + (spec: 0 s64vector-copy s64vector-copy) + (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 0 flnumerator flnumerator) (spec: 0 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 0 thread-terminate! thread-terminate!) - (spec: 0 open-u8vector-pipe open-u8vector-pipe) - (spec: 0 split-at! split-at!) - (spec: 0 force-output force-output) - (spec: 0 with-exception-catcher with-exception-catcher) + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 0 open-dummy open-dummy) + (spec: 0 repl-highlight-source-level repl-highlight-source-level) + (spec: 0 socket-info-address socket-info-address) + (spec: 0 thread-group-parent thread-group-parent) + (spec: 0 fx>= fx>=) + (spec: 0 end-of-char-set? end-of-char-set?) + (spec: 0 char-set-count char-set-count) + (spec: 0 s16vector-length s16vector-length) + (spec: 0 s8vector-concatenate s8vector-concatenate) + (spec: 0 string-prefix? string-prefix?) + (spec: 0 with-output-to-port with-output-to-port) (spec: 0 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 0 fx- fx-) - (spec: 0 output-port-char-position output-port-char-position) - (spec: 0 char-set->list char-set->list) - (spec: 0 s16vector s16vector) - (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 0 user-name user-name) - (spec: 0 object->serial-number object->serial-number) - (spec: 0 remove! remove!) - (spec: 0 fllog fllog) + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 0 bits bits) + (spec: 0 f64vector->list f64vector->list) + (spec: 0 tty-history tty-history) + (spec: 0 fxlength fxlength) + (spec: 0 s32vector s32vector) + (spec: 0 char-set-intersection char-set-intersection) + (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 0 vector-shrink! vector-shrink!) + (spec: 0 group-info-gid group-info-gid) + (spec: 0 asinh asinh) + (spec: 0 circular-list? circular-list?) + (spec: 0 print print) + (spec: 0 write-file-string write-file-string) + (spec: 0 bitwise-orc2 bitwise-orc2) + (spec: 0 random-f64vector random-f64vector) + (spec: 0 input-port-line input-port-line) + (spec: 0 read-subu8vector read-subu8vector) + (spec: 0 first-set-bit first-set-bit) (spec: 0 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 0 keyword-hash keyword-hash) - (spec: 0 flround flround) - (spec: 0 fl+* fl+*) - (spec: 0 input-port-line input-port-line) - (spec: 0 flceiling flceiling) - (spec: 0 read-file-u8vector read-file-u8vector) - (spec: 0 call-with-input-process call-with-input-process) - (spec: 0 table-merge! table-merge!) - (spec: 0 unbound-global-exception? unbound-global-exception?) - (spec: 0 file-info-size file-info-size) - (spec: 0 current-thread current-thread) - (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 0 u8vector-copy! u8vector-copy!) - (spec: 0 random-source-state-set! random-source-state-set!) - (spec: 0 ninth ninth) - (spec: 0 initial-current-directory initial-current-directory) - (spec: 0 f64vector-shrink! f64vector-shrink!) - (spec: 0 bit-swap bit-swap) - (spec: 0 xcons xcons) - (spec: 0 protocol-info-number protocol-info-number) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 0 subu64vector-move! subu64vector-move!) + (spec: 0 host-info host-info) + (spec: 0 make-s64vector make-s64vector) + (spec: 0 f32vector->list f32vector->list) + (spec: 0 service-info-aliases service-info-aliases) + (spec: 0 subs64vector-fill! subs64vector-fill!) + (spec: 0 u32vector-set! u32vector-set!) + (spec: 0 u64vector-set u64vector-set) + (spec: 0 file-info-creation-time file-info-creation-time) + (spec: 0 break break) + (spec: 0 create-temporary-directory create-temporary-directory) + (spec: 0 u16vector-shrink! u16vector-shrink!) + (spec: 0 fl<= fl<=) + (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 0 table-search table-search) (spec: 0 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 0 create-directory create-directory) - (spec: 0 bitwise-not bitwise-not) - (spec: 0 subs32vector-fill! subs32vector-fill!) - (spec: 0 subu64vector-move! subu64vector-move!) - (spec: 0 r7rs-raise r7rs-raise) - (spec: 0 make-s32vector make-s32vector) - (spec: 0 u32vector-set u32vector-set) - (spec: 0 s8vector? s8vector?) - (spec: 0 condition-variable-name condition-variable-name) - (spec: 0 f32vector-shrink! f32vector-shrink!) - (spec: 0 string-prefix-ci? string-prefix-ci?) - (spec: 0 type-exception? type-exception?) - (spec: 0 process-times process-times) - (spec: 0 serial-number->object serial-number->object) - (spec: 0 char-set<= char-set<=) - (spec: 0 address-info-socket-info address-info-socket-info) - (spec: 0 u16vector-set! u16vector-set!) - (spec: 0 string->uninterned-keyword string->uninterned-keyword) - (spec: 0 fxwrap- fxwrap-) - (spec: 0 path-strip-volume path-strip-volume) - (spec: 0 append-reverse append-reverse) - (spec: 0 s64vector? s64vector?) - (spec: 0 with-input-from-string with-input-from-string) - (spec: 0 char-set-fold char-set-fold) - (spec: 0 list->f64vector list->f64vector) - (spec: 0 fx>= fx>=) - (spec: 0 output-port-readtable-set! output-port-readtable-set!) - (spec: 0 list-set list-set) - (spec: 0 s16vector->list s16vector->list) - (spec: 0 fxmax fxmax) - (spec: 0 thread-thread-group thread-thread-group) - (spec: 0 open-udp open-udp) - (spec: 0 thread-group-resume! thread-group-resume!) - (spec: 0 char-set-complement char-set-complement) - (spec: 0 foreign-tags foreign-tags) - (spec: 0 fllog1p fllog1p) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 0 flsquare flsquare) + (spec: 0 thread-group-specific-set! thread-group-specific-set!) + (spec: 0 eighth eighth) (spec: 0 - display-continuation-environment - display-continuation-environment) - (spec: 0 object->string object->string) - (spec: 0 thread-name thread-name) + cfun-conversion-exception-code + cfun-conversion-exception-code) (spec: 0 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 0 flscalbn flscalbn) - (spec: 0 drop-right drop-right) - (spec: 0 open-input-u8vector open-input-u8vector) - (spec: 0 join-timeout-exception? join-timeout-exception?) - (spec: 0 fl- fl-) - (spec: 0 integer-nth-root integer-nth-root) - (spec: 0 flcos flcos) - (spec: 0 call-with-input-string call-with-input-string) - (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) - (spec: 0 current-processor current-processor) - (spec: 0 file-info-type file-info-type) - (spec: 0 table-for-each table-for-each) - (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 0 random-source-randomize! random-source-randomize!) - (spec: 0 dead-end dead-end) + uninitialized-thread-exception? + uninitialized-thread-exception?) (spec: 0 filter filter) - (spec: 0 input-port-char-position input-port-char-position) - (spec: 0 symbol-hash symbol-hash) - (spec: 0 u8vector-fill! u8vector-fill!) - (spec: 0 udp-destination-set! udp-destination-set!) - (spec: 0 bit-field-rotate bit-field-rotate) - (spec: 0 f64vector-ref f64vector-ref) - (spec: 0 protocol-info? protocol-info?) - (spec: 0 file-exists-exception? file-exists-exception?) - (spec: 0 inactive-thread-exception? inactive-thread-exception?) - (spec: 0 bitwise-orc1 bitwise-orc1) - (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 0 subs32vector-move! subs32vector-move!) - (spec: 0 subu32vector-move! subu32vector-move!) - (spec: 0 seconds->time seconds->time) - (spec: 0 u32vector-length u32vector-length) + (spec: 0 fleven? fleven?) (spec: 0 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 0 u64vector-ref u64vector-ref) - (spec: 0 pretty-print pretty-print) - (spec: 0 condition-variable-signal! condition-variable-signal!) - (spec: 0 string-prefix-length string-prefix-length) - (spec: 0 f32vector-ref f32vector-ref) - (spec: 0 type-exception-arguments type-exception-arguments) - (spec: 0 string=?-hash string=?-hash) - (spec: 0 gc-report-set! gc-report-set!) - (spec: 0 address-info-socket-type address-info-socket-type) - (spec: 0 path-strip-directory path-strip-directory) - (spec: 0 make-condition-variable make-condition-variable) - (spec: 0 append-reverse! append-reverse!) - (spec: 0 string-contains-ci string-contains-ci) - (spec: 0 char-set-every char-set-every) - (spec: 0 equal?-hash equal?-hash) - (spec: 0 fxif fxif) - (spec: 0 list->s16vector list->s16vector) - (spec: 0 output-port-line output-port-line) - (spec: 0 char-set-xor! char-set-xor!) - (spec: 0 fxsquare fxsquare) - (spec: 0 s16vector-append s16vector-append) - (spec: 0 thread-state-initialized? thread-state-initialized?) - (spec: 0 s32vector s32vector) - (spec: 0 started-thread-exception? started-thread-exception?) - (spec: 0 thread-yield! thread-yield!) - (spec: 0 open-vector open-vector) - (spec: 0 sixth sixth) - (spec: 0 char-set-adjoin char-set-adjoin) - (spec: 0 fx<= fx<=) - (spec: 0 thread-group->thread-vector thread-group->thread-vector) - (spec: 0 open-vector-pipe open-vector-pipe) - (spec: 0 thread-priority-boost thread-priority-boost) - (spec: 0 flmax flmax) - (spec: 0 object->u8vector object->u8vector) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) (spec: 0 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 0 flsin flsin) - (spec: 0 open-input-vector open-input-vector) - (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) - (spec: 0 rename-file rename-file) - (spec: 0 read-string read-string) - (spec: 0 bytevector bytevector) - (spec: 0 file-exists? file-exists?) - (spec: 0 utf8->string utf8->string) - (spec: 0 exact-integer? exact-integer?) - (spec: 0 euclidean/ euclidean/) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 string->utf8 string->utf8) - (spec: 0 current-second current-second) - (spec: 0 bytevector-append bytevector-append) - (spec: 0 string-foldcase string-foldcase) - (spec: 0 balanced/ balanced/) - (spec: 0 string-copy! string-copy!) - (spec: 0 vector-append vector-append) - (spec: 0 write-bytevector write-bytevector) - (spec: 0 ceiling-quotient ceiling-quotient) - (spec: 0 finite? finite?) - (spec: 0 bytevector-copy bytevector-copy) - (spec: 0 write-u8 write-u8) - (spec: 0 binary-port? binary-port?) - (spec: 0 command-line command-line) - (spec: 0 get-environment-variable get-environment-variable) - (spec: 0 char-foldcase char-foldcase) - (spec: 0 ceiling-remainder ceiling-remainder) - (spec: 0 digit-value digit-value) - (spec: 0 bytevector-copy! bytevector-copy!) - (spec: 0 input-port-open? input-port-open?) - (spec: 0 read-line read-line) - (spec: 0 vector-copy! vector-copy!) - (spec: 0 emergency-exit emergency-exit) - (spec: 0 ceiling/ ceiling/) - (spec: 0 bytevector-length bytevector-length) - (spec: 0 delete-file delete-file) - (spec: 0 features features) - (spec: 0 inexact inexact) - (spec: 0 make-list make-list) - (spec: 0 open-output-string open-output-string) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 0 call-with-output-vector call-with-output-vector) + (spec: 0 readtable? readtable?) + (spec: 0 tcp-server-socket-info tcp-server-socket-info) + (spec: 0 foreign-released? foreign-released?) + (spec: 0 os-exception-code os-exception-code) + (spec: 0 thread-receive thread-receive) + (spec: 0 fxwrap+ fxwrap+) + (spec: 0 flnegative? flnegative?) + (spec: 0 open-directory open-directory) + (spec: 0 dotted-list? dotted-list?) + (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 0 fx> fx>) + (spec: 0 s16vector-append s16vector-append) + (spec: 0 equal?-hash equal?-hash) + (spec: 0 char-set-copy char-set-copy) + (spec: 0 vector-every vector-every) + (spec: 0 exit exit) + (spec: 0 get-output-bytevector get-output-bytevector) + (spec: 0 list-copy list-copy) + (spec: 0 current-jiffy current-jiffy) + (spec: 0 string-map string-map) + (spec: 0 read-bytevector read-bytevector) (spec: 0 peek-u8 peek-u8) - (spec: 0 open-binary-input-file open-binary-input-file) + (spec: 0 error-object-message error-object-message) + (spec: 0 string-upcase string-upcase) + (spec: 0 exact exact) + (spec: 0 eof-object eof-object) + (spec: 0 error-object-irritants error-object-irritants) + (spec: 0 make-list make-list) (spec: 0 bytevector-u8-ref bytevector-u8-ref) - (spec: 0 read-bytevector read-bytevector) - (spec: 0 promise? promise?) - (spec: 0 string->vector string->vector) - (spec: 0 string-for-each string-for-each) - (spec: 0 open-binary-output-file open-binary-output-file) - (spec: 0 bytevector-u8-set! bytevector-u8-set!) - (spec: 0 current-error-port current-error-port) - (spec: 0 exit exit) - (spec: 0 make-parameter make-parameter) - (spec: 0 get-output-string get-output-string) - (spec: 0 flush-output-port flush-output-port) - (spec: 0 port? port?) (spec: 0 read-u8 read-u8) - (spec: 0 bytevector? bytevector?) - (spec: 0 u8-ready? u8-ready?) - (spec: 0 get-environment-variables get-environment-variables) - (spec: 0 call-with-port call-with-port) - (spec: 0 boolean=? boolean=?) - (spec: 0 make-promise make-promise) - (spec: 0 error-object-irritants error-object-irritants) - (spec: 0 read-bytevector! read-bytevector!) + (spec: 0 get-environment-variable get-environment-variable) + (spec: 0 port? port?) + (spec: 0 bytevector-length bytevector-length) + (spec: 0 current-error-port current-error-port) (spec: 0 write-shared write-shared) - (spec: 0 exact exact) - (spec: 0 eof-object eof-object) - (spec: 0 error-object-message error-object-message) - (spec: 0 get-output-bytevector get-output-bytevector) - (spec: 0 floor-quotient floor-quotient) - (spec: 0 infinite? infinite?) - (spec: 0 read-error? read-error?) - (spec: 0 string-map string-map) - (spec: 0 error-object? error-object?) - (spec: 0 list-copy list-copy) - (spec: 0 floor-remainder floor-remainder) - (spec: 0 jiffies-per-second jiffies-per-second) + (spec: 0 emergency-exit emergency-exit) + (spec: 0 read-bytevector! read-bytevector!) + (spec: 0 flush-output-port flush-output-port) (spec: 0 open-input-bytevector open-input-bytevector) + (spec: 0 error-object? error-object?) (spec: 0 file-error? file-error?) - (spec: 0 round-quotient round-quotient) - (spec: 0 square square) - (spec: 0 string-upcase string-upcase) + (spec: 0 current-second current-second) + (spec: 0 nan? nan?) + (spec: 0 string->vector string->vector) + (spec: 0 open-input-string open-input-string) + (spec: 0 truncate/ truncate/) + (spec: 0 make-bytevector make-bytevector) (spec: 0 vector-for-each vector-for-each) - (spec: 0 floor/ floor/) - (spec: 0 vector-map vector-map) + (spec: 0 write-bytevector write-bytevector) + (spec: 0 balanced/ balanced/) + (spec: 0 round-quotient round-quotient) (spec: 0 symbol=? symbol=?) - (spec: 0 write-simple write-simple) - (spec: 0 balanced-remainder balanced-remainder) (spec: 0 write-string write-string) - (spec: 0 output-port-open? output-port-open?) - (spec: 0 truncate-quotient truncate-quotient) - (spec: 0 textual-port? textual-port?) - (spec: 0 current-jiffy current-jiffy) - (spec: 0 truncate-remainder truncate-remainder) + (spec: 0 vector-map vector-map) + (spec: 0 make-promise make-promise) + (spec: 0 write-simple write-simple) + (spec: 0 read-error? read-error?) + (spec: 0 floor/ floor/) + (spec: 0 get-output-string get-output-string) + (spec: 0 boolean=? boolean=?) + (spec: 0 delete-file delete-file) + (spec: 0 floor-remainder floor-remainder) (spec: 0 vector->string vector->string) - (spec: 0 open-input-string open-input-string) - (spec: 0 close-port close-port) - (spec: 0 make-bytevector make-bytevector) (spec: 0 euclidean-quotient euclidean-quotient) + (spec: 0 string-copy! string-copy!) + (spec: 0 binary-port? binary-port?) + (spec: 0 bytevector-copy bytevector-copy) (spec: 0 round-remainder round-remainder) - (spec: 0 string-downcase string-downcase) - (spec: 0 truncate/ truncate/) - (spec: 0 nan? nan?) - (spec: 0 vector-copy vector-copy) + (spec: 0 ceiling-quotient ceiling-quotient) + (spec: 0 output-port-open? output-port-open?) + (spec: 0 string->utf8 string->utf8) + (spec: 0 string-foldcase string-foldcase) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 jiffies-per-second jiffies-per-second) + (spec: 0 utf8->string utf8->string) + (spec: 0 truncate-remainder truncate-remainder) + (spec: 0 close-port close-port) + (spec: 0 balanced-remainder balanced-remainder) + (spec: 0 euclidean/ euclidean/) + (spec: 0 input-port-open? input-port-open?) + (spec: 0 open-output-string open-output-string) + (spec: 0 exact-integer? exact-integer?) + (spec: 0 ceiling/ ceiling/) + (spec: 0 list-set! list-set!) + (spec: 0 file-exists? file-exists?) (spec: 0 balanced-quotient balanced-quotient) - (spec: 0 exact-integer-sqrt exact-integer-sqrt) + (spec: 0 infinite? infinite?) + (spec: 0 square square) + (spec: 0 truncate-quotient truncate-quotient) + (spec: 0 ceiling-remainder ceiling-remainder) + (spec: 0 string-for-each string-for-each) + (spec: 0 make-parameter make-parameter) + (spec: 0 bytevector? bytevector?) + (spec: 0 textual-port? textual-port?) + (spec: 0 vector-append vector-append) + (spec: 0 read-string read-string) + (spec: 0 vector-copy vector-copy) + (spec: 0 floor-quotient floor-quotient) + (spec: 0 open-binary-output-file open-binary-output-file) + (spec: 0 write-u8 write-u8) + (spec: 0 bytevector-u8-set! bytevector-u8-set!) + (spec: 0 inexact inexact) + (spec: 0 finite? finite?) + (spec: 0 read-line read-line) + (spec: 0 digit-value digit-value) + (spec: 0 bytevector-append bytevector-append) + (spec: 0 get-environment-variables get-environment-variables) + (spec: 0 open-binary-input-file open-binary-input-file) + (spec: 0 u8-ready? u8-ready?) + (spec: 0 command-line command-line) + (spec: 0 vector-copy! vector-copy!) + (spec: 0 call-with-port call-with-port) + (spec: 0 char-foldcase char-foldcase) + (spec: 0 bytevector bytevector) + (spec: 0 string-downcase string-downcase) (spec: 0 euclidean-remainder euclidean-remainder) - (spec: 0 list-set! list-set!) + (spec: 0 features features) + (spec: 0 promise? promise?) + (spec: 0 bytevector-copy! bytevector-copy!) + (spec: 0 exact-integer-sqrt exact-integer-sqrt) (spec: 0 round/ round/) - (spec: 0 caaar caaar) - (spec: 0 string>=? string>=?) - (spec: 0 apply apply) - (spec: 0 eqv? eqv?) - (spec: 0 vector-set! vector-set!) - (spec: 0 char-ci=? char-ci=?) - (spec: 0 values values) - (spec: 0 real? real?) - (spec: 0 ceiling ceiling) - (spec: 0 caadar caadar) - (spec: 0 null-environment null-environment) - (spec: 0 integer? integer?) - (spec: 0 symbol? symbol?) - (spec: 0 expt expt) - (spec: 0 map map) - (spec: 0 string>? string>?) - (spec: 0 exact? exact?) - (spec: 0 string->symbol string->symbol) - (spec: 0 eval eval) - (spec: 0 char-ci>=? char-ci>=?) - (spec: 0 open-output-file open-output-file) - (spec: 0 cdaaar cdaaar) - (spec: 0 caaddr caaddr) - (spec: 0 call-with-output-file call-with-output-file) - (spec: 0 read read) - (spec: 0 negative? negative?) - (spec: 0 zero? zero?) - (spec: 0 assq assq) - (spec: 0 string-ref string-ref) - (spec: 0 string? string?) - (spec: 0 peek-char peek-char) - (spec: 0 char-upcase char-upcase) - (spec: 0 string-append string-append) - (spec: 0 vector-fill! vector-fill!) - (spec: 0 char-ci>? char-ci>?) - (spec: 0 reverse reverse) - (spec: 0 cdaadr cdaadr) - (spec: 0 null? null?) - (spec: 0 write-char write-char) - (spec: 0 caadr caadr) - (spec: 0 even? even?) - (spec: 0 list-tail list-tail) - (spec: 0 string-fill! string-fill!) - (spec: 0 list->string list->string) - (spec: 0 char-downcase char-downcase) - (spec: 0 cdaar cdaar) - (spec: 0 length length) - (spec: 0 odd? odd?) - (spec: 0 caar caar) - (spec: 0 imag-part imag-part) - (spec: 0 string-set! string-set!) - (spec: 0 string-cistring number->string) - (spec: 0 cdadar cdadar) - (spec: 0 not not) - (spec: 0 cadaar cadaar) - (spec: 0 max max) - (spec: 0 assoc assoc) - (spec: 0 make-string make-string) - (spec: 0 abs abs) - (spec: 0 with-output-to-file with-output-to-file) - (spec: 0 output-port? output-port?) - (spec: 0 cdaddr cdaddr) - (spec: 0 denominator denominator) - (spec: 0 cadadr cadadr) - (spec: 0 read-char read-char) - (spec: 0 substring substring) - (spec: 0 member member) - (spec: 0 cos cos) + (spec: 0 char>=? char>=?) + (spec: 0 close-output-port close-output-port) + (spec: 0 <= <=) + (spec: 0 inexact->exact inexact->exact) + (spec: 0 rationalize rationalize) + (spec: 0 cadddr cadddr) + (spec: 0 tan tan) + (spec: 0 string-ci>? string-ci>?) + (spec: 0 transcript-on transcript-on) + (spec: 0 cddadr cddadr) + (spec: 0 memv memv) + (spec: 0 string string) (spec: 0 sin sin) - (spec: 0 / /) - (spec: 0 list? list?) - (spec: 0 char<=? char<=?) - (spec: 0 vector vector) - (spec: 0 char-numeric? char-numeric?) - (spec: 0 cdadr cdadr) - (spec: 0 input-port? input-port?) - (spec: 0 cadar cadar) - (spec: 0 scheme-report-environment scheme-report-environment) + (spec: 0 > >) (spec: 0 complex? complex?) - (spec: 0 assv assv) - (spec: 0 < <) - (spec: 0 angle angle) - (spec: 0 char-upper-case? char-upper-case?) - (spec: 0 load load) - (spec: 0 string-ci<=? string-ci<=?) - (spec: 0 string-length string-length) - (spec: 0 cdar cdar) + (spec: 0 denominator denominator) (spec: 0 caddar caddar) - (spec: 0 current-input-port current-input-port) - (spec: 0 rational? rational?) - (spec: 0 memq memq) - (spec: 0 <= <=) - (spec: 0 acos acos) - (spec: 0 char=? char=?) - (spec: 0 positive? positive?) - (spec: 0 string-ci>? string-ci>?) - (spec: 0 vector->list vector->list) - (spec: 0 vector-length vector-length) + (spec: 0 force force) (spec: 0 call-with-values call-with-values) + (spec: 0 abs abs) + (spec: 0 string-ci>=? string-ci>=?) (spec: 0 cddaar cddaar) - (spec: 0 floor floor) - (spec: 0 cadddr cadddr) - (spec: 0 boolean? boolean?) - (spec: 0 inexact->exact inexact->exact) + (spec: 0 char-upper-case? char-upper-case?) + (spec: 0 cadr cadr) + (spec: 0 car car) + (spec: 0 char-numeric? char-numeric?) + (spec: 0 numerator numerator) + (spec: 0 cdddar cdddar) + (spec: 0 open-input-file open-input-file) + (spec: 0 read-char read-char) + (spec: 0 char<=? char<=?) (spec: 0 cons cons) + (spec: 0 magnitude magnitude) + (spec: 0 exp exp) + (spec: 0 cos cos) (spec: 0 procedure? procedure?) - (spec: 0 = =) - (spec: 0 atan atan) - (spec: 0 char-whitespace? char-whitespace?) - (spec: 0 list list) - (spec: 0 list->vector list->vector) - (spec: 0 string-ci=? string-ci=?) - (spec: 0 transcript-off transcript-off) - (spec: 0 char-lower-case? char-lower-case?) - (spec: 0 vector? vector?) - (spec: 0 cddadr cddadr) + (spec: 0 assv assv) + (spec: 0 string-append string-append) + (spec: 0 vector vector) (spec: 0 caddr caddr) - (spec: 0 current-output-port current-output-port) - (spec: 0 symbol->string symbol->string) - (spec: 0 set-car! set-car!) - (spec: 0 exact->inexact exact->inexact) - (spec: 0 char>? char>?) - (spec: 0 eof-object? eof-object?) - (spec: 0 transcript-on transcript-on) - (spec: 0 lcm lcm) - (spec: 0 display display) - (spec: 0 number? number?) + (spec: 0 real? real?) + (spec: 0 vector? vector?) + (spec: 0 char-lower-case? char-lower-case?) + (spec: 0 even? even?) + (spec: 0 load load) (spec: 0 cddar cddar) - (spec: 0 tan tan) - (spec: 0 cadr cadr) - (spec: 0 quotient quotient) - (spec: 0 make-polar make-polar) + (spec: 0 number? number?) + (spec: 0 vector-length vector-length) + (spec: 0 asin asin) + (spec: 0 integer->char integer->char) + (spec: 0 caaadr caaadr) + (spec: 0 >= >=) + (spec: 0 inexact? inexact?) + (spec: 0 call-with-input-file call-with-input-file) + (spec: 0 char-alphabetic? char-alphabetic?) + (spec: 0 set-car! set-car!) + (spec: 0 remainder remainder) + (spec: 0 string<=? string<=?) + (spec: 0 exact->inexact exact->inexact) + (spec: 0 cdddr cdddr) + (spec: 0 log log) + (spec: 0 eof-object? eof-object?) + (spec: 0 char=? char=?) + (spec: 0 positive? positive?) + (spec: 0 list->vector list->vector) (spec: 0 close-input-port close-input-port) - (spec: 0 string-ci>=? string-ci>=?) - (spec: 0 > >) - (spec: 0 char= >=) - (spec: 0 append append) - (spec: 0 string-copy string-copy) - (spec: 0 eq? eq?) (spec: 0 char->integer char->integer) - (spec: 0 force force) + (spec: 0 rational? rational?) (spec: 0 string->number string->number) + (spec: 0 display display) + (spec: 0 char-ready? char-ready?) + (spec: 0 string->list string->list) (spec: 0 cddddr cddddr) - (spec: 0 integer->char integer->char) - (spec: 0 call-with-input-file call-with-input-file) - (spec: 0 inexact? inexact?) - (spec: 0 newline newline) - (spec: 0 rationalize rationalize) - (spec: 0 memv memv) - (spec: 0 * *) - (spec: 0 string=? char>=?) - (spec: 0 pair? pair?) - (spec: 0 list-ref list-ref) - (spec: 0 round round) - (spec: 0 char-alphabetic? char-alphabetic?) - (spec: 0 sqrt sqrt) - (spec: 0 dynamic-wind dynamic-wind) - (spec: 0 cdddr cdddr) - (spec: 0 caaaar caaaar) - (spec: 0 interaction-environment interaction-environment) + (spec: 0 list list) + (spec: 0 charlist vector->list) + (spec: 0 for-each for-each) + (spec: 0 char-ci? char>?) + (spec: 0 make-polar make-polar) + (spec: 0 set-cdr! set-cdr!) + (spec: 0 = =) + (spec: 0 current-output-port current-output-port) (spec: 0 char-ci<=? char-ci<=?) + (spec: 0 string-ci=? string-ci=?) + (spec: 0 truncate truncate) (spec: 0 cddr cddr) + (spec: 0 pair? pair?) + (spec: 0 with-output-to-file with-output-to-file) + (spec: 0 assq assq) + (spec: 0 symbol? symbol?) + (spec: 0 caadr caadr) + (spec: 0 string>=? string>=?) + (spec: 0 open-output-file open-output-file) + (spec: 0 char-ci>=? char-ci>=?) + (spec: 0 negative? negative?) + (spec: 0 cdaaar cdaaar) + (spec: 0 equal? equal?) + (spec: 0 write write) + (spec: 0 max max) + (spec: 0 list-ref list-ref) + (spec: 0 expt expt) + (spec: 0 assoc assoc) + (spec: 0 eval eval) + (spec: 0 caaddr caaddr) + (spec: 0 make-string make-string) + (spec: 0 char-ci=? char-ci=?) + (spec: 0 lcm lcm) + (spec: 0 newline newline) (spec: 0 real-part real-part) - (spec: 0 caaadr caaadr) - (spec: 0 make-rectangular make-rectangular) - (spec: 0 - -) - (spec: 0 make-vector make-vector) + (spec: 0 null-environment null-environment) + (spec: 0 ceiling ceiling) (spec: 0 char? char?) - (spec: 0 set-cdr! set-cdr!) - (spec: 0 string->list string->list) + (spec: 0 exact? exact?) + (spec: 0 min min) + (spec: 0 string-fill! string-fill!) + (spec: 0 string-ref string-ref) + (spec: 0 vector-ref vector-ref) + (spec: 0 string? string?) (spec: 0 with-input-from-file with-input-from-file) - (spec: 0 char-cistring symbol->string) + (spec: 0 call-with-output-file call-with-output-file) + (spec: 0 char-ci>? char-ci>?) + (spec: 0 null? null?) + (spec: 0 cdaadr cdaadr) + (spec: 0 sqrt sqrt) + (spec: 0 char-whitespace? char-whitespace?) + (spec: 0 angle angle) + (spec: 0 member member) + (spec: 0 vector-set! vector-set!) + (spec: 0 string-set! string-set!) + (spec: 0 cadaar cadaar) + (spec: 0 not not) + (spec: 0 list? list?) + (spec: 0 cdaddr cdaddr) + (spec: 0 string-cistring number->string) + (spec: 0 reverse reverse) + (spec: 0 interaction-environment interaction-environment) + (spec: 0 char-downcase char-downcase) + (spec: 0 cdadar cdadar) + (spec: 0 floor floor) + (spec: 0 string-ci<=? string-ci<=?) + (spec: 0 string-length string-length) + (spec: 0 substring substring) + (spec: 0 zero? zero?) + (spec: 0 write-char write-char) + (spec: 0 input-port? input-port?) + (spec: 0 caadar caadar) + (spec: 0 / /) + (spec: 0 integer? integer?) + (spec: 0 cadar cadar) + (spec: 0 read read) + (spec: 0 peek-char peek-char) + (spec: 0 cdar cdar) + (spec: 0 gcd gcd) + (spec: 0 apply apply) + (spec: 0 char-upcase char-upcase) + (spec: 0 list->string list->string) + (spec: 0 string->symbol string->symbol) + (spec: 0 vector-fill! vector-fill!) + (spec: 0 caaar caaar) + (spec: 0 scheme-report-environment scheme-report-environment) + (spec: 0 string>? string>?) + (spec: 0 cadadr cadadr) + (spec: 0 length length) + (spec: 0 list-tail list-tail) + (spec: 0 cdadr cdadr) + (spec: 0 output-port? output-port?) (spec: 0 R5RSRuntime R5RSRuntime) + (spec: 0 GambitRuntime GambitRuntime) (spec: 0 R7RSRuntime R7RSRuntime) + (spec: 0 Runtime Runtime) + (spec: 0 RuntimeAliases RuntimeAliases) + (spec: 0 GerbilRuntime GerbilRuntime) (spec: 0 %%app-dotted %%app) (spec: 0 %%ref-dotted %%ref) (spec: 0 %%set-dotted! set!) @@ -3346,528 +3348,528 @@ namespace: gerbil/core (spec: 0 do-while/c do-while) (spec: 1 identifier-rules identifier-rules) (spec: 1 quasisyntax quasisyntax) - (spec: 1 macro-object-macro-set! macro-object-macro-set!) + (spec: 1 ¯o-object-macro ¯o-object-macro) (spec: 1 ¯o-object-macro-set! ¯o-object-macro-set!) + (spec: 1 macro-object-macro-set! macro-object-macro-set!) + (spec: 1 macro-object::t macro-object::t) + (spec: 1 make-macro-object make-macro-object) + (spec: 1 macro-object-macro macro-object-macro) + (spec: 1 macro-object macro-object) + (spec: 1 macro-object? macro-object?) (spec: 1 macro-object::apply-macro-expander macro-object::apply-macro-expander) - (spec: 1 make-macro-object make-macro-object) - (spec: 1 macro-object::t macro-object::t) - (spec: 1 macro-object? macro-object?) - (spec: 1 macro-object-macro macro-object-macro) - (spec: 1 ¯o-object-macro ¯o-object-macro) - (spec: 1 macro-object macro-object) (spec: 1 with-syntax* with-syntax*) - (spec: 1 syntax-rules syntax-rules) - (spec: 1 syntax/loc syntax/loc) (spec: 1 with-syntax with-syntax) + (spec: 1 syntax/loc syntax/loc) + (spec: 1 syntax-rules syntax-rules) (spec: 1 syntax syntax) (spec: 1 syntax-case syntax-case) - (spec: 1 user-expander-phi user-expander-phi) - (spec: 1 syntax-local-e syntax-local-e) - (spec: 1 core-apply-expander core-apply-expander) - (spec: 1 current-expander-context current-expander-context) - (spec: 1 module-import-name module-import-name) - (spec: 1 export-set-exports export-set-exports) - (spec: 1 stx-length stx-length) - (spec: 1 module-context-import module-context-import) - (spec: 1 runtime-binding? runtime-binding?) - (spec: 1 make-user-expander make-user-expander) - (spec: 1 make-module-export make-module-export) - (spec: 1 current-expander-phi current-expander-phi) - (spec: 1 syntax-split-splice syntax-split-splice) - (spec: 1 current-expander-compiling? current-expander-compiling?) - (spec: 1 export-expander? export-expander?) - (spec: 1 core-quote-syntax core-quote-syntax) - (spec: 1 module-export-context module-export-context) - (spec: 1 module-export-phi module-export-phi) - (spec: 1 core-identifier-key core-identifier-key) - (spec: 1 syntax-binding? syntax-binding?) - (spec: 1 stx-char? stx-char?) - (spec: 1 expander-e expander-e) + (spec: 1 free-identifier=? free-identifier=?) + (spec: 1 module-context? module-context?) (spec: 1 current-expander-marks current-expander-marks) - (spec: 1 bound-identifier=? bound-identifier=?) - (spec: 1 stx-null? stx-null?) - (spec: 1 top-context? top-context?) - (spec: 1 module-context-ns module-context-ns) - (spec: 1 stx-wrap-source stx-wrap-source) - (spec: 1 ellipsis? ellipsis?) - (spec: 1 identifier? identifier?) - (spec: 1 stx-false? stx-false?) - (spec: 1 import-expander? import-expander?) - (spec: 1 stx-foldl stx-foldl) - (spec: 1 stx-keyword? stx-keyword?) - (spec: 1 genident genident) - (spec: 1 syntax-pattern-depth syntax-pattern-depth) - (spec: 1 core-resolve-identifier core-resolve-identifier) - (spec: 1 current-module-reader-path current-module-reader-path) - (spec: 1 stx-pair/null? stx-pair/null?) - (spec: 1 make-import-expander make-import-expander) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 stx-keyword? stx-keyword?) + (spec: 1 expander-e expander-e) + (spec: 1 syntax-binding? syntax-binding?) + (spec: 1 top-context? top-context?) + (spec: 1 stx-identifier stx-identifier) + (spec: 1 core-quote-syntax core-quote-syntax) + (spec: 1 user-expander-phi user-expander-phi) + (spec: 1 module-import-source module-import-source) + (spec: 1 module-import-weak? module-import-weak?) + (spec: 1 stx-for-each stx-for-each) + (spec: 1 stx-string? stx-string?) + (spec: 1 current-expander-phi current-expander-phi) (spec: 1 module-export-weak? module-export-weak?) - (spec: 1 current-expander-path current-expander-path) - (spec: 1 prelude-context? prelude-context?) + (spec: 1 core-resolve-module-export core-resolve-module-export) + (spec: 1 module-context-export module-context-export) + (spec: 1 datum->syntax datum->syntax) + (spec: 1 top-binding? top-binding?) + (spec: 1 stx-cdr stx-cdr) + (spec: 1 syntax-local-rewrap syntax-local-rewrap) + (spec: 1 local-context? local-context?) + (spec: 1 syntax-pattern-id syntax-pattern-id) + (spec: 1 core-expand-import-source core-expand-import-source) + (spec: 1 import-set-source import-set-source) + (spec: 1 core-expand core-expand) + (spec: 1 export-set-source export-set-source) + (spec: 1 stx-last-pair stx-last-pair) + (spec: 1 import-module import-module) + (spec: 1 syntax-binding-e syntax-binding-e) + (spec: 1 module-context-code module-context-code) + (spec: 1 stx-plist? stx-plist?) + (spec: 1 syntax->datum syntax->datum) + (spec: 1 stx-andmap stx-andmap) (spec: 1 expander-context-id expander-context-id) (spec: 1 stx-car stx-car) - (spec: 1 eval-module eval-module) - (spec: 1 module-import? module-import?) - (spec: 1 module-export? module-export?) - (spec: 1 resolve-identifier resolve-identifier) - (spec: 1 stx-pair? stx-pair?) - (spec: 1 core-module-export->import core-module-export->import) + (spec: 1 stx-equal? stx-equal?) + (spec: 1 stx-fixnum? stx-fixnum?) + (spec: 1 macro-expand-syntax macro-expand-syntax) (spec: 1 stx-foldr stx-foldr) - (spec: 1 import-binding-e import-binding-e) - (spec: 1 syntax-local-value syntax-local-value) + (spec: 1 raise-syntax-error raise-syntax-error) + (spec: 1 underscore? underscore?) + (spec: 1 expander-binding? expander-binding?) + (spec: 1 stx-boolean? stx-boolean?) + (spec: 1 stx-last stx-last) + (spec: 1 module-export-phi module-export-phi) + (spec: 1 make-module-export make-module-export) + (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) + (spec: 1 stx-datum? stx-datum?) + (spec: 1 alias-binding-e alias-binding-e) + (spec: 1 resolve-identifier resolve-identifier) + (spec: 1 binding-id binding-id) + (spec: 1 ellipsis? ellipsis?) + (spec: 1 expander-binding-e expander-binding-e) + (spec: 1 import-export-expander? import-export-expander?) + (spec: 1 core-identifier=? core-identifier=?) (spec: 1 module-import-phi module-import-phi) - (spec: 1 make-module-import make-module-import) - (spec: 1 make-export-expander make-export-expander) - (spec: 1 core-expand-export-source core-expand-export-source) + (spec: 1 eval-module eval-module) + (spec: 1 bound-identifier=? bound-identifier=?) (spec: 1 syntax-pattern? syntax-pattern?) - (spec: 1 core-library-module-path? core-library-module-path?) - (spec: 1 import-set-imports import-set-imports) - (spec: 1 export-set-source export-set-source) - (spec: 1 stx-equal? stx-equal?) - (spec: 1 datum->syntax datum->syntax) - (spec: 1 expander? expander?) - (spec: 1 macro-expand-syntax macro-expand-syntax) - (spec: 1 stx-last-pair stx-last-pair) - (spec: 1 current-module-reader-args current-module-reader-args) - (spec: 1 make-local-context make-local-context) + (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) + (spec: 1 user-expander-context user-expander-context) + (spec: 1 core-identifier-key core-identifier-key) (spec: 1 stx-vector? stx-vector?) - (spec: 1 stx-cdr stx-cdr) - (spec: 1 stx-list? stx-list?) + (spec: 1 make-import-export-expander make-import-export-expander) + (spec: 1 stx-source stx-source) + (spec: 1 module-binding? module-binding?) + (spec: 1 make-module-import make-module-import) + (spec: 1 stx-false? stx-false?) + (spec: 1 alias-binding? alias-binding?) + (spec: 1 runtime-binding? runtime-binding?) + (spec: 1 import-set? import-set?) + (spec: 1 identifier-list? identifier-list?) (spec: 1 stx-map stx-map) - (spec: 1 underscore? underscore?) - (spec: 1 module-context-code module-context-code) - (spec: - 1 - core-resolve-library-module-path - core-resolve-library-module-path) - (spec: 1 user-expander? user-expander?) - (spec: 1 gentemps gentemps) (spec: 1 import-binding? import-binding?) - (spec: 1 stx-getq stx-getq) + (spec: 1 current-module-reader-args current-module-reader-args) + (spec: 1 syntax-local-e syntax-local-e) + (spec: 1 current-expander-compiling? current-expander-compiling?) + (spec: 1 feature-expander? feature-expander?) + (spec: 1 stx-ormap stx-ormap) + (spec: 1 syntax-e syntax-e) + (spec: 1 stx-e stx-e) + (spec: 1 export-expander? export-expander?) + (spec: 1 module-export-name module-export-name) + (spec: 1 core-expand-export-source core-expand-export-source) + (spec: 1 stx-char? stx-char?) (spec: 1 stx-eqv? stx-eqv?) - (spec: 1 syntax-local-pattern? syntax-local-pattern?) - (spec: 1 top-binding? top-binding?) - (spec: 1 import-export-expander? import-export-expander?) - (spec: 1 module-import-source module-import-source) - (spec: 1 stx-source stx-source) - (spec: 1 module-import-weak? module-import-weak?) + (spec: 1 module-export? module-export?) + (spec: 1 core-module-export->import core-module-export->import) + (spec: 1 make-local-context make-local-context) + (spec: 1 syntax-split-splice syntax-split-splice) + (spec: 1 make-user-expander make-user-expander) + (spec: 1 genident genident) + (spec: 1 core-expand-expression+1 core-expand-expression+1) + (spec: 1 gentemps gentemps) (spec: 1 stx-list-ref stx-list-ref) - (spec: 1 import-module import-module) - (spec: 1 free-identifier=? free-identifier=?) - (spec: 1 stx-identifier stx-identifier) - (spec: 1 stx-andmap stx-andmap) + (spec: 1 make-export-expander make-export-expander) (spec: 1 syntax-local-introduce syntax-local-introduce) - (spec: 1 core-identifier=? core-identifier=?) + (spec: 1 module-import? module-import?) + (spec: 1 current-expander-context current-expander-context) + (spec: 1 stx-length stx-length) + (spec: 1 make-syntax-pattern make-syntax-pattern) + (spec: 1 core-context-top core-context-top) (spec: 1 syntax->list syntax->list) + (spec: + 1 + core-resolve-library-module-path + core-resolve-library-module-path) + (spec: 1 stx-box? stx-box?) + (spec: 1 stx-number? stx-number?) + (spec: 1 stx-null? stx-null?) + (spec: 1 core-resolve-identifier core-resolve-identifier) + (spec: 1 binding? binding?) (spec: 1 stx-reverse stx-reverse) - (spec: 1 stx-boolean? stx-boolean?) - (spec: 1 eval-syntax eval-syntax) - (spec: 1 stx-plist? stx-plist?) - (spec: 1 core-context-top core-context-top) - (spec: 1 module-export-key module-export-key) - (spec: 1 user-expander-context user-expander-context) - (spec: 1 import-set? import-set?) - (spec: 1 syntax-pattern-id syntax-pattern-id) + (spec: 1 current-module-reader-path current-module-reader-path) + (spec: 1 core-library-module-path? core-library-module-path?) + (spec: 1 expander? expander?) + (spec: 1 user-expander? user-expander?) + (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) + (spec: 1 make-import-expander make-import-expander) + (spec: 1 module-import-name module-import-name) + (spec: 1 core-apply-expander core-apply-expander) + (spec: 1 stx-pair? stx-pair?) + (spec: 1 identifier? identifier?) + (spec: 1 syntax-local-value syntax-local-value) (spec: 1 export-set-phi export-set-phi) - (spec: 1 stx-list-tail stx-list-tail) - (spec: 1 expander-binding? expander-binding?) - (spec: 1 syntax-binding-e syntax-binding-e) - (spec: 1 feature-expander? feature-expander?) - (spec: 1 expander-binding-e expander-binding-e) + (spec: 1 import-set-phi import-set-phi) + (spec: 1 export-set? export-set?) + (spec: 1 export-set-exports export-set-exports) + (spec: 1 eval-syntax eval-syntax) + (spec: 1 stx-foldl stx-foldl) + (spec: 1 prelude-context? prelude-context?) + (spec: 1 stx-pair/null? stx-pair/null?) + (spec: 1 stx-list? stx-list?) + (spec: 1 stx-getq stx-getq) + (spec: 1 module-context-ns module-context-ns) (spec: 1 core-resolve-module-path core-resolve-module-path) - (spec: 1 core-resolve-module-export core-resolve-module-export) - (spec: 1 core-expand-import-source core-expand-import-source) - (spec: 1 stx-box? stx-box?) - (spec: 1 syntax-local-rewrap syntax-local-rewrap) - (spec: 1 stx-number? stx-number?) - (spec: 1 binding-id binding-id) - (spec: 1 stx-fixnum? stx-fixnum?) - (spec: 1 raise-syntax-error raise-syntax-error) - (spec: 1 stx-for-each stx-for-each) - (spec: 1 make-import-export-expander make-import-export-expander) + (spec: 1 syntax-pattern-depth syntax-pattern-depth) + (spec: 1 import-binding-e import-binding-e) + (spec: 1 import-expander? import-expander?) + (spec: 1 stx-list-tail stx-list-tail) + (spec: 1 current-expander-path current-expander-path) + (spec: 1 syntax-local-pattern? syntax-local-pattern?) + (spec: 1 module-export-context module-export-context) + (spec: 1 module-export-key module-export-key) (spec: 1 extern-binding? extern-binding?) - (spec: 1 module-export-name module-export-name) - (spec: 1 syntax-local-unwrap syntax-local-unwrap) - (spec: 1 syntax->datum syntax->datum) - (spec: 1 core-expand-expression+1 core-expand-expression+1) - (spec: 1 local-context? local-context?) + (spec: 1 import-set-imports import-set-imports) + (spec: 1 stx-wrap-source stx-wrap-source) + (spec: 1 module-context-import module-context-import) (spec: 1 core-expand-head core-expand-head) - (spec: 1 import-set-source import-set-source) - (spec: 1 stx-ormap stx-ormap) - (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) - (spec: 1 stx-datum? stx-datum?) - (spec: 1 export-set? export-set?) - (spec: 1 alias-binding? alias-binding?) - (spec: 1 alias-binding-e alias-binding-e) - (spec: 1 module-context-export module-context-export) - (spec: 1 stx-string? stx-string?) - (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) - (spec: 1 syntax-e syntax-e) - (spec: 1 stx-e stx-e) - (spec: 1 make-syntax-pattern make-syntax-pattern) - (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) - (spec: 1 core-expand core-expand) - (spec: 1 identifier-list? identifier-list?) - (spec: 1 binding? binding?) - (spec: 1 import-set-phi import-set-phi) - (spec: 1 module-binding? module-binding?) - (spec: 1 module-context? module-context?) - (spec: 1 syntax-error? syntax-error?) + (spec: 1 syntax-local-unwrap syntax-local-unwrap) (spec: 1 stx-eq? stx-eq?) - (spec: 1 stx-last stx-last) (spec: 1 SyntaxCase SyntaxCase) (spec: 1 ExpanderRuntime ExpanderRuntime) (spec: 1 SyntaxSugar SyntaxSugar) (spec: 2 !class-precedence-list !class-precedence-list) - (spec: 2 &type-env-var-set! &type-env-var-set!) - (spec: 2 type-env-type-set! type-env-type-set!) - (spec: 2 &type-env-checked?-set! &type-env-checked?-set!) - (spec: 2 current-type-env current-type-env) - (spec: 2 &type-env-type &type-env-type) - (spec: 2 type-env-super type-env-super) - (spec: 2 type-env-type type-env-type) - (spec: 2 &type-env-super-set! &type-env-super-set!) - (spec: 2 type-env-var type-env-var) - (spec: 2 type-env-super-set! type-env-super-set!) - (spec: 2 make-type-env make-type-env) - (spec: 2 type-env-lookup type-env-lookup) (spec: 2 type-env-var-set! type-env-var-set!) - (spec: 2 type-env? type-env?) - (spec: 2 &type-env-type-set! &type-env-type-set!) (spec: 2 type-env-checked?-set! type-env-checked?-set!) - (spec: 2 &type-env-checked? &type-env-checked?) - (spec: 2 type-env type-env) (spec: 2 &type-env-super &type-env-super) + (spec: 2 &type-env-type &type-env-type) + (spec: 2 &type-env-var-set! &type-env-var-set!) (spec: 2 type-env-checked? type-env-checked?) + (spec: 2 type-env-super type-env-super) + (spec: 2 &type-env-checked?-set! &type-env-checked?-set!) + (spec: 2 &type-env-checked? &type-env-checked?) (spec: 2 &type-env-var &type-env-var) + (spec: 2 type-env? type-env?) + (spec: 2 &type-env-type-set! &type-env-type-set!) (spec: 2 type-env::t type-env::t) + (spec: 2 type-env-type type-env-type) + (spec: 2 type-env-var type-env-var) + (spec: 2 current-type-env current-type-env) + (spec: 2 type-env-lookup type-env-lookup) + (spec: 2 type-env type-env) + (spec: 2 type-env-super-set! type-env-super-set!) + (spec: 2 make-type-env make-type-env) + (spec: 2 type-env-type-set! type-env-type-set!) + (spec: 2 &type-env-super-set! &type-env-super-set!) (spec: 2 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 2 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 2 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) (spec: 2 - &interface-info-interface-methods-set! - &interface-info-interface-methods-set!) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) (spec: 2 - interface-info-instance-type-set! - interface-info-instance-type-set!) - (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) (spec: 2 - interface-info-interface-descriptor - interface-info-interface-descriptor) + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) (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-instance-predicate - &interface-info-instance-predicate) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 2 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) - (spec: 2 interface-info-name-set! interface-info-name-set!) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) (spec: 2 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info-instance-predicate + interface-info-instance-predicate) (spec: 2 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 2 - &interface-info-instance-try-constructor-set! - &interface-info-instance-try-constructor-set!) - (spec: 2 make-interface-info make-interface-info) - (spec: 2 interface-info? interface-info?) + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) + (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) (spec: 2 - interface-info-instance-constructor - interface-info-instance-constructor) + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 2 - interface-info-interface-mixin - interface-info-interface-mixin) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 2 - &interface-info-interface-mixin - &interface-info-interface-mixin) - (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 2 - &interface-info-instance-constructor - &interface-info-instance-constructor) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) (spec: 2 - interface-info-interface-methods-set! - interface-info-interface-methods-set!) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) (spec: 2 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) - (spec: 2 &interface-info-instance-type &interface-info-instance-type) + interface-info-instance-type-set! + interface-info-instance-type-set!) (spec: 2 - interface-info-interface-methods - interface-info-interface-methods) - (spec: 2 interface-info-instance-type interface-info-instance-type) - (spec: 2 interface-info::t interface-info::t) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 2 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + &interface-info-instance-constructor + &interface-info-instance-constructor) + (spec: 2 &interface-info-name-set! &interface-info-name-set!) (spec: 2 - &interface-info-interface-methods - &interface-info-interface-methods) + &interface-info-instance-try-constructor-set! + &interface-info-instance-try-constructor-set!) (spec: 2 &interface-info-name &interface-info-name) (spec: 2 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + interface-info-interface-methods + interface-info-interface-methods) + (spec: 2 interface-info? interface-info?) (spec: 2 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) - (spec: 2 interface-info-name interface-info-name) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) (spec: 2 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + &interface-info-interface-mixin + &interface-info-interface-mixin) + (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) (spec: 2 - &interface-info-implementation-methods - &interface-info-implementation-methods) + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 2 - interface-info-instance-predicate - interface-info-instance-predicate) + interface-info-interface-mixin + interface-info-interface-mixin) (spec: 2 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) (spec: 2 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) (spec: 2 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) (spec: 2 - &interface-info-interface-descriptor - &interface-info-interface-descriptor) + interface-info-interface-methods-set! + interface-info-interface-methods-set!) + (spec: 2 interface-info-instance-type interface-info-instance-type) + (spec: 2 interface-info-name-set! interface-info-name-set!) + (spec: 2 interface-info::t interface-info::t) (spec: 2 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) + interface-info-implementation-methods + interface-info-implementation-methods) + (spec: 2 interface-info-name interface-info-name) (spec: 2 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) (spec: 2 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) - (spec: 2 &interface-info-name-set! &interface-info-name-set!) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) + (spec: 2 interface-info interface-info) (spec: 2 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) (spec: 2 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + &interface-info-interface-methods-set! + &interface-info-interface-methods-set!) + (spec: 2 make-interface-info make-interface-info) (spec: 2 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) - (spec: 2 interface-info interface-info) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) + (spec: 2 &interface-info-instance-type &interface-info-instance-type) (spec: 2 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) + &interface-info-interface-descriptor + &interface-info-interface-descriptor) (spec: 2 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 2 - interface-info-implementation-methods - interface-info-implementation-methods) + interface-info-interface-descriptor + interface-info-interface-descriptor) (spec: 2 is-signature? is-signature?) - (spec: 1 case-lambda/c case-lambda/c) + (spec: 1 lambda/c lambda/c) + (spec: 1 @method @method) + (spec: 1 with-procedure-signature with-procedure-signature) + (spec: 1 def*/c def*/c) + (spec: 1 defstruct/c defstruct/c) + (spec: 1 do/c do/c) + (spec: 1 do-loop-result do-loop-result) + (spec: 1 do-loop-step do-loop-step) + (spec: 1 defclass/c defclass/c) + (spec: 1 defmutable* defmutable*) + (spec: 1 defmutable defmutable) + (spec: 1 with-procedure-contract with-procedure-contract) (spec: 1 with-procedure-unchecked-contract with-procedure-unchecked-contract) - (spec: 1 with-procedure-contract with-procedure-contract) - (spec: 1 defclass/c defclass/c) - (spec: 1 do-loop-step do-loop-step) - (spec: 1 defmethod/c defmethod/c) - (spec: 1 do-loop-result do-loop-result) - (spec: 1 do-while/c do-while/c) - (spec: 1 @method @method) - (spec: 1 defstruct/c defstruct/c) - (spec: 1 lambda/c lambda/c) + (spec: 1 case-lambda/c case-lambda/c) (spec: 1 with-receiver with-receiver) - (spec: 1 def/c def/c) (spec: 1 let/c let/c) - (spec: 1 defmutable* defmutable*) - (spec: 1 def*/c def*/c) - (spec: 1 with-procedure-signature with-procedure-signature) - (spec: 1 do/c do/c) - (spec: 1 defmutable defmutable) + (spec: 1 do-while/c do-while/c) + (spec: 1 defmethod/c defmethod/c) + (spec: 1 def/c def/c) + (spec: 2 check-signature! check-signature!) + (spec: 2 compatible-type-contract? compatible-type-contract?) + (spec: 2 check-signature-spec! check-signature-spec!) + (spec: 2 make-procedure-contract make-procedure-contract) (spec: 2 signature-contract? signature-contract?) + (spec: 2 keywordtype-descriptor resolve-type->type-descriptor) - (spec: 2 type-reference type-reference) (spec: 2 type-reference::t type-reference::t) - (spec: 2 type-reference? type-reference?) - (spec: 2 resolve-type->identifier resolve-type->identifier) - (spec: - 2 - type-reference-identifier-set! - type-reference-identifier-set!) + (spec: 2 make-type-reference make-type-reference) + (spec: 2 &type-reference-identifier &type-reference-identifier) (spec: 2 &type-reference-identifier-set! &type-reference-identifier-set!) - (spec: 2 &type-reference-identifier &type-reference-identifier) (spec: 2 resolve-type resolve-type) (spec: 2 type-reference-identifier type-reference-identifier) - (spec: 2 make-type-reference make-type-reference) + (spec: 2 type-reference? type-reference?) + (spec: 2 resolve-type->identifier resolve-type->identifier) + (spec: + 2 + type-reference-identifier-set! + type-reference-identifier-set!) + (spec: 2 type-reference type-reference) + (spec: 2 resolve-type->type-descriptor resolve-type->type-descriptor) + (spec: 2 type-identifier? type-identifier?) (spec: 1 deftype deftype) - (spec: 1 InterfaceInfo InterfaceInfo) - (spec: 1 ContractRules ContractRules) + (spec: 1 TypeReference TypeReference) (spec: 1 TypedDefinitions TypedDefinitions) - (spec: 1 Interface Interface) (spec: 1 ClassMeta ClassMeta) - (spec: 1 TypeReference TypeReference) - (spec: 1 TypeEnv TypeEnv) + (spec: 1 InterfaceInfo InterfaceInfo) (spec: 1 TypeCast TypeCast) + (spec: 1 Interface Interface) + (spec: 1 ContractRules ContractRules) + (spec: 1 TypeEnv TypeEnv) (spec: 1 Using Using) - (spec: 2 setf-macro setf-macro) - (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) - (spec: 2 &setq-macro-macro &setq-macro-macro) - (spec: 2 setf-macro::t setf-macro::t) - (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) (spec: 2 make-setq-macro make-setq-macro) + (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 2 setf-macro? setf-macro?) (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) - (spec: 2 make-setf-macro make-setf-macro) (spec: 2 setq-macro-macro setq-macro-macro) - (spec: 2 expand-set! expand-set!) (spec: 2 &setf-macro-macro &setf-macro-macro) - (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 2 setf-macro::t setf-macro::t) + (spec: 2 setq-macro::t setq-macro::t) + (spec: 2 &setq-macro-macro &setq-macro-macro) + (spec: 2 setq-macro setq-macro) (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) - (spec: 2 setq-macro? setq-macro?) + (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) (spec: 2 setf-macro-macro setf-macro-macro) + (spec: 2 setq-macro? setq-macro?) + (spec: 2 make-setf-macro make-setf-macro) + (spec: 2 expand-set! expand-set!) (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 2 setq-macro::t setq-macro::t) - (spec: 2 setf-macro? setf-macro?) - (spec: 2 setq-macro setq-macro) + (spec: 2 setf-macro setf-macro) + (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) + (spec: 1 values-set! values-set!) + (spec: 1 let/cc let/cc) (spec: 1 unwind-protect unwind-protect) (spec: 1 eval-when-compile eval-when-compile) (spec: 1 parameterize parameterize) - (spec: 1 let/cc let/cc) - (spec: 1 values-set! values-set!) (spec: 1 @bytes @bytes) (spec: 2 match-pattern? match-pattern?) (spec: 2 syntax-local-match-macro? syntax-local-match-macro?) @@ -3875,2538 +3877,2540 @@ namespace: gerbil/core (spec: 2 make-match-macro make-match-macro) (spec: 2 match-macro::t match-macro::t) (spec: 2 match-macro match-macro) - (spec: 1 match* match*) (spec: 1 match match) - (spec: 1 with with) + (spec: 1 match* match*) (spec: 1 defsyntax-for-match defsyntax-for-match) + (spec: 1 with with) (spec: 1 with* with*) - (spec: 1 defrules-for-match defrules-for-match) (spec: 1 ? ?) - (spec: 1 :null :null) - (spec: 1 :condvar :condvar) - (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 :atom :atom) + (spec: 1 defrules-for-match defrules-for-match) (spec: 1 :class :class) + (spec: 1 :u64vector :u64vector) + (spec: 1 :tcp-server-port :tcp-server-port) + (spec: 1 :immediate :immediate) (spec: 1 :eof :eof) - (spec: 1 :vector-port :vector-port) - (spec: 1 :u32vector :u32vector) - (spec: 1 :u8vector-port :u8vector-port) - (spec: 1 :readenv :readenv) + (spec: 1 :address-info :address-info) + (spec: 1 :ratnum :ratnum) + (spec: 1 class class) + (spec: 1 :s8vector :s8vector) + (spec: 1 :weak :weak) + (spec: 1 :false :false) + (spec: 1 :foreign :foreign) + (spec: 1 :void :void) + (spec: 1 :port :port) + (spec: 1 :special :special) + (spec: 1 :pair :pair) (spec: 1 :f32vector :f32vector) - (spec: 1 :processor :processor) - (spec: 1 :vm :vm) - (spec: 1 :immediate :immediate) (spec: 1 :object-port :object-port) - (spec: 1 :u16vector :u16vector) + (spec: 1 :list :list) + (spec: 1 :char :char) + (spec: 1 :string-port :string-port) (spec: 1 :symbol :symbol) - (spec: 1 :thread-group :thread-group) - (spec: 1 :s64vector :s64vector) - (spec: 1 :port :port) - (spec: 1 :readtable :readtable) - (spec: 1 :file-info :file-info) - (spec: 1 :writeenv :writeenv) - (spec: 1 :socket-info :socket-info) - (spec: 1 :address-info :address-info) - (spec: 1 :time :time) (spec: 1 :device-port :device-port) - (spec: 1 :sequence :sequence) - (spec: 1 :char :char) - (spec: 1 :cpxnum :cpxnum) - (spec: 1 :void :void) - (spec: 1 :t :t) - (spec: 1 :weak :weak) - (spec: 1 :u8vector :u8vector) + (spec: 1 :frame :frame) + (spec: 1 :null :null) + (spec: 1 :object :object) (spec: 1 :fixnum :fixnum) - (spec: 1 :values :values) + (spec: 1 :flonum :flonum) + (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :table :table) + (spec: 1 :real :real) + (spec: 1 :u8vector :u8vector) + (spec: 1 :s64vector :s64vector) + (spec: 1 :box :box) + (spec: 1 :bignum :bignum) + (spec: 1 :continuation :continuation) + (spec: 1 :time :time) + (spec: 1 :mutex :mutex) (spec: 1 :character-port :character-port) - (spec: 1 :u64vector :u64vector) - (spec: 1 :string-port :string-port) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :hvector :hvector) - (spec: 1 :udp-port :udp-port) + (spec: 1 :byte-port :byte-port) (spec: 1 :directory-port :directory-port) + (spec: 1 defsystem-class-info defsystem-class-info) (spec: 1 :keyword :keyword) - (spec: 1 class class) - (spec: 1 :object :object) - (spec: 1 :s8vector :s8vector) - (spec: 1 :f64vector :f64vector) - (spec: 1 :box :box) - (spec: 1 :frame :frame) - (spec: 1 :promise :promise) - (spec: 1 :foreign :foreign) - (spec: 1 :thread :thread) - (spec: 1 :raw-device-port :raw-device-port) - (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :bignum :bignum) - (spec: 1 :table :table) + (spec: 1 :thread-group :thread-group) + (spec: 1 :sequence :sequence) + (spec: 1 :udp-port :udp-port) + (spec: 1 :writeenv :writeenv) + (spec: 1 :processor :processor) + (spec: 1 :values :values) + (spec: 1 :vector :vector) + (spec: 1 :u16vector :u16vector) (spec: 1 :integer :integer) - (spec: 1 :true :true) + (spec: 1 :vm :vm) + (spec: 1 :f64vector :f64vector) + (spec: 1 :s32vector :s32vector) (spec: 1 :number :number) - (spec: 1 :vector :vector) - (spec: 1 :s16vector :s16vector) - (spec: 1 :continuation :continuation) + (spec: 1 :condvar :condvar) + (spec: 1 :hvector :hvector) (spec: 1 :procedure :procedure) - (spec: 1 :flonum :flonum) - (spec: 1 :special :special) - (spec: 1 :mutex :mutex) - (spec: 1 :ratnum :ratnum) - (spec: 1 :pair :pair) - (spec: 1 :boolean :boolean) - (spec: 1 :false :false) - (spec: 1 :string :string) - (spec: 1 :list :list) - (spec: 1 :s32vector :s32vector) - (spec: 1 :real :real) - (spec: 1 :byte-port :byte-port) + (spec: 1 :readenv :readenv) + (spec: 1 :vector-port :vector-port) + (spec: 1 :true :true) + (spec: 1 :file-info :file-info) (spec: 1 :symbolic :symbolic) - (spec: 1 @-set! @-set!) - (spec: 1 define-class define-class) + (spec: 1 :u32vector :u32vector) + (spec: 1 :socket-info :socket-info) + (spec: 1 :atom :atom) + (spec: 1 :t :t) + (spec: 1 :s16vector :s16vector) + (spec: 1 :string :string) + (spec: 1 :boolean :boolean) + (spec: 1 :promise :promise) + (spec: 1 :thread :thread) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :readtable :readtable) (spec: 1 @ @) (spec: 1 define-struct define-struct) + (spec: 1 define-class define-class) + (spec: 1 @-set! @-set!) (spec: 1 defstruct-type defstruct-type) (spec: 1 defclass-type defclass-type) (spec: 1 MOP-3 MOP-3) - (spec: 1 MOP-2 MOP-2) (spec: 1 MOP-4 MOP-4) (spec: 1 MOP-1 MOP-1) (spec: 1 MOP-5 MOP-5) - (spec: 1 :null :null) - (spec: 1 :condvar :condvar) - (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 :atom :atom) + (spec: 1 MOP-2 MOP-2) (spec: 1 :class :class) + (spec: 1 :u64vector :u64vector) + (spec: 1 :tcp-server-port :tcp-server-port) + (spec: 1 :immediate :immediate) (spec: 1 :eof :eof) - (spec: 1 :vector-port :vector-port) - (spec: 1 :u32vector :u32vector) - (spec: 1 :u8vector-port :u8vector-port) - (spec: 1 :readenv :readenv) + (spec: 1 :address-info :address-info) + (spec: 1 :ratnum :ratnum) + (spec: 1 class class) + (spec: 1 :s8vector :s8vector) + (spec: 1 :weak :weak) + (spec: 1 :false :false) + (spec: 1 :foreign :foreign) + (spec: 1 :void :void) + (spec: 1 :port :port) + (spec: 1 :special :special) + (spec: 1 :pair :pair) (spec: 1 :f32vector :f32vector) - (spec: 1 :processor :processor) - (spec: 1 :vm :vm) - (spec: 1 :immediate :immediate) (spec: 1 :object-port :object-port) - (spec: 1 :u16vector :u16vector) + (spec: 1 :list :list) + (spec: 1 :char :char) + (spec: 1 :string-port :string-port) (spec: 1 :symbol :symbol) - (spec: 1 :thread-group :thread-group) - (spec: 1 :s64vector :s64vector) - (spec: 1 :port :port) - (spec: 1 :readtable :readtable) - (spec: 1 :file-info :file-info) - (spec: 1 :writeenv :writeenv) - (spec: 1 :socket-info :socket-info) - (spec: 1 :address-info :address-info) - (spec: 1 :time :time) (spec: 1 :device-port :device-port) - (spec: 1 :sequence :sequence) - (spec: 1 :char :char) - (spec: 1 :cpxnum :cpxnum) - (spec: 1 :void :void) - (spec: 1 :t :t) - (spec: 1 :weak :weak) - (spec: 1 :u8vector :u8vector) + (spec: 1 :frame :frame) + (spec: 1 :null :null) + (spec: 1 :object :object) (spec: 1 :fixnum :fixnum) - (spec: 1 :values :values) + (spec: 1 :flonum :flonum) + (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :event-queue-port :event-queue-port) + (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :table :table) + (spec: 1 :real :real) + (spec: 1 :u8vector :u8vector) + (spec: 1 :s64vector :s64vector) + (spec: 1 :box :box) + (spec: 1 :bignum :bignum) + (spec: 1 :continuation :continuation) + (spec: 1 :time :time) + (spec: 1 :mutex :mutex) (spec: 1 :character-port :character-port) - (spec: 1 :u64vector :u64vector) - (spec: 1 :string-port :string-port) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :hvector :hvector) - (spec: 1 :udp-port :udp-port) + (spec: 1 :byte-port :byte-port) (spec: 1 :directory-port :directory-port) + (spec: 1 defsystem-class-info defsystem-class-info) (spec: 1 :keyword :keyword) - (spec: 1 class class) - (spec: 1 :object :object) - (spec: 1 :s8vector :s8vector) - (spec: 1 :f64vector :f64vector) - (spec: 1 :box :box) - (spec: 1 :frame :frame) - (spec: 1 :promise :promise) - (spec: 1 :foreign :foreign) - (spec: 1 :thread :thread) - (spec: 1 :raw-device-port :raw-device-port) - (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :bignum :bignum) - (spec: 1 :table :table) + (spec: 1 :thread-group :thread-group) + (spec: 1 :sequence :sequence) + (spec: 1 :udp-port :udp-port) + (spec: 1 :writeenv :writeenv) + (spec: 1 :processor :processor) + (spec: 1 :values :values) + (spec: 1 :vector :vector) + (spec: 1 :u16vector :u16vector) (spec: 1 :integer :integer) - (spec: 1 :true :true) + (spec: 1 :vm :vm) + (spec: 1 :f64vector :f64vector) + (spec: 1 :s32vector :s32vector) (spec: 1 :number :number) - (spec: 1 :vector :vector) - (spec: 1 :s16vector :s16vector) - (spec: 1 :continuation :continuation) + (spec: 1 :condvar :condvar) + (spec: 1 :hvector :hvector) (spec: 1 :procedure :procedure) - (spec: 1 :flonum :flonum) - (spec: 1 :special :special) - (spec: 1 :mutex :mutex) - (spec: 1 :ratnum :ratnum) - (spec: 1 :pair :pair) - (spec: 1 :boolean :boolean) - (spec: 1 :false :false) - (spec: 1 :string :string) - (spec: 1 :list :list) - (spec: 1 :s32vector :s32vector) - (spec: 1 :real :real) - (spec: 1 :byte-port :byte-port) + (spec: 1 :readenv :readenv) + (spec: 1 :vector-port :vector-port) + (spec: 1 :true :true) + (spec: 1 :file-info :file-info) (spec: 1 :symbolic :symbolic) - (spec: 1 @-set! @-set!) - (spec: 1 define-class define-class) + (spec: 1 :u32vector :u32vector) + (spec: 1 :socket-info :socket-info) + (spec: 1 :atom :atom) + (spec: 1 :t :t) + (spec: 1 :s16vector :s16vector) + (spec: 1 :string :string) + (spec: 1 :boolean :boolean) + (spec: 1 :promise :promise) + (spec: 1 :thread :thread) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :readtable :readtable) (spec: 1 @ @) (spec: 1 define-struct define-struct) + (spec: 1 define-class define-class) + (spec: 1 @-set! @-set!) (spec: 1 class-type-info class-type-info) - (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) - (spec: - 1 - &!class-type-constructor-method - &!class-type-constructor-method) - (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-info::t class-type-info::t) + (spec: 1 class-type-info? class-type-info?) + (spec: 1 !class-type-slots !class-type-slots) + (spec: 1 !class-type-predicate !class-type-predicate) (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) - (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) + (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) + (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) (spec: 1 - &!class-type-unchecked-accessors-set! - &!class-type-unchecked-accessors-set!) - (spec: 1 !class-type-constructor !class-type-constructor) - (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) - (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) + !class-type-constructor-method + !class-type-constructor-method) (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) + (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) + (spec: 1 &!class-type-struct? &!class-type-struct?) (spec: 1 - !class-type-slot-defaults-set! - !class-type-slot-defaults-set!) - (spec: - 1 - !class-type-unchecked-accessors - !class-type-unchecked-accessors) - (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) + &!class-type-precedence-list-set! + &!class-type-precedence-list-set!) + (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) (spec: 1 - !class-type-slot-contracts-set! - !class-type-slot-contracts-set!) - (spec: 1 &!class-type-constructor &!class-type-constructor) - (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) + !class-type-precedence-list-set! + !class-type-precedence-list-set!) (spec: 1 !class-type-unchecked-accessors-set! !class-type-unchecked-accessors-set!) - (spec: 1 &!class-type-id &!class-type-id) - (spec: 1 &!class-type-super &!class-type-super) - (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) - (spec: 1 !class-type-super-set! !class-type-super-set!) (spec: 1 - &!class-type-unchecked-mutators-set! - &!class-type-unchecked-mutators-set!) - (spec: 1 !class-type-mutators !class-type-mutators) - (spec: 1 &!class-type-descriptor &!class-type-descriptor) - (spec: - 1 - &!class-type-slot-defaults-set! - &!class-type-slot-defaults-set!) - (spec: - 1 - class-type-info::apply-macro-expander - class-type-info::apply-macro-expander) - (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) - (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) - (spec: - 1 - !class-type-constructor-method - !class-type-constructor-method) - (spec: 1 &!class-type-predicate &!class-type-predicate) - (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) - (spec: - 1 - &!class-type-constructor-method-set! - &!class-type-constructor-method-set!) - (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) - (spec: 1 !class-type-slots-set! !class-type-slots-set!) - (spec: - 1 - !class-type-constructor-method-set! - !class-type-constructor-method-set!) - (spec: 1 &!class-type-slots &!class-type-slots) - (spec: 1 &!class-type-struct? &!class-type-struct?) + !class-type-slot-contracts-set! + !class-type-slot-contracts-set!) (spec: 1 &!class-type-slot-types &!class-type-slot-types) - (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) - (spec: 1 &!class-type-metaclass &!class-type-metaclass) - (spec: 1 &!class-type-name &!class-type-name) - (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) - (spec: 1 !class-type-slot-types !class-type-slot-types) - (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) + (spec: 1 !class-type-id-set! !class-type-id-set!) (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) (spec: 1 - !class-type-precedence-list-set! - !class-type-precedence-list-set!) - (spec: 1 !class-type-struct? !class-type-struct?) - (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) - (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) - (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) - (spec: 1 !class-type-id-set! !class-type-id-set!) - (spec: 1 !class-type-super !class-type-super) - (spec: 1 !class-type-descriptor !class-type-descriptor) - (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) + !class-type-constructor-method-set! + !class-type-constructor-method-set!) (spec: 1 &!class-type-system? &!class-type-system?) - (spec: 1 !class-type-system? !class-type-system?) + (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) + (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) + (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) (spec: 1 - &!class-type-precedence-list-set! - &!class-type-precedence-list-set!) + &!class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators-set!) + (spec: 1 !class-type-id !class-type-id) + (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) (spec: 1 - &!class-type-unchecked-mutators - &!class-type-unchecked-mutators) - (spec: 1 !class-type-name-set! !class-type-name-set!) - (spec: 1 !class-type-system?-set! !class-type-system?-set!) - (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) - (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) - (spec: 1 !class-type-accessors !class-type-accessors) - (spec: 1 &!class-type-name-set! &!class-type-name-set!) + &!class-type-constructor-method + &!class-type-constructor-method) + (spec: 1 !class-type-final? !class-type-final?) + (spec: 1 !class-type-super-set! !class-type-super-set!) (spec: 1 !class-type-final?-set! !class-type-final?-set!) - (spec: 1 &!class-type-id-set! &!class-type-id-set!) (spec: 1 - !class-type-unchecked-mutators - !class-type-unchecked-mutators) + &!class-type-unchecked-accessors-set! + &!class-type-unchecked-accessors-set!) + (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) + (spec: 1 &!class-type-predicate &!class-type-predicate) + (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) + (spec: 1 &!class-type-name-set! &!class-type-name-set!) + (spec: 1 !class-type-slot-types !class-type-slot-types) (spec: 1 - !class-type-ordered-slots-set! - !class-type-ordered-slots-set!) - (spec: 1 !class-type-precedence-list !class-type-precedence-list) - (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) - (spec: 1 !class-type-slots !class-type-slots) - (spec: 1 !class-type-id !class-type-id) - (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) - (spec: 1 !class-type-metaclass !class-type-metaclass) - (spec: 1 &!class-type-mutators &!class-type-mutators) - (spec: 1 class-type-info? class-type-info?) - (spec: 1 make-class-type-info make-class-type-info) + &!class-type-ordered-slots-set! + &!class-type-ordered-slots-set!) (spec: 1 - !class-type-unchecked-mutators-set! - !class-type-unchecked-mutators-set!) - (spec: 1 &!class-type-super-set! &!class-type-super-set!) - (spec: 1 !class-type-predicate !class-type-predicate) - (spec: 1 &!class-type-final? &!class-type-final?) + &!class-type-slot-defaults-set! + &!class-type-slot-defaults-set!) (spec: 1 - &!class-type-slot-contracts-set! - &!class-type-slot-contracts-set!) - (spec: 1 class-type-info::t class-type-info::t) - (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) - (spec: 1 !class-type-name !class-type-name) - (spec: 1 !class-type-final? !class-type-final?) - (spec: 1 &!class-type-accessors &!class-type-accessors) + class-type-info::apply-macro-expander + class-type-info::apply-macro-expander) + (spec: 1 !class-type-struct? !class-type-struct?) + (spec: 1 !class-type-system? !class-type-system?) (spec: 1 - &!class-type-ordered-slots-set! - &!class-type-ordered-slots-set!) - (spec: 1 defstruct-type defstruct-type) - (spec: 1 defclass-type defclass-type) - (spec: 1 make-class-type-id make-class-type-id) - (spec: 1 module-type-id module-type-id) - (spec: 1 defconst defconst) - (spec: 1 defsyntax defsyntax) - (spec: 1 definline definline) - (spec: 1 ~case ~case) - (spec: 1 ~case-dispatch* ~case-dispatch*) - (spec: 1 begin0 begin0) - (spec: 1 cut cut) - (spec: 1 <...> <...>) - (spec: 1 delay delay) - (spec: 1 alet alet) - (spec: 1 ~case-dispatch ~case-dispatch) - (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) - (spec: 1 ~case-test ~case-test) - (spec: 1 rec rec) - (spec: 1 and-let* and-let*) - (spec: 1 @list @list) - (spec: 1 quasiquote quasiquote) - (spec: 1 <> <>) - (spec: 1 defvalues defvalues) - (spec: 1 alet* alet*) - (spec: 1 case case) - (spec: 1 letrec* letrec*) - (spec: 1 defsyntax% defsyntax%) - (spec: 1 unless unless) - (spec: 1 syntax-error syntax-error) - (spec: 1 define define) - (spec: 1 when when) - (spec: 1 and and) - (spec: 1 defalias defalias) - (spec: 1 cond cond) - (spec: 1 defrule defrule) - (spec: 1 let* let*) - (spec: 1 ~let ~let) - (spec: 1 defrules defrules) - (spec: 1 define-rules define-rules) - (spec: 1 let*-values let*-values) - (spec: 1 or or) - (spec: 1 letrec letrec) - (spec: 1 s16vector-ref-set! s16vector-ref-set!) - (spec: 1 f64vector-ref-set! f64vector-ref-set!) - (spec: 1 u32vector-ref-set! u32vector-ref-set!) - (spec: 1 call/values call/values) - (spec: 1 u64vector-ref-set! u64vector-ref-set!) - (spec: 1 cdr-set! cdr-set!) - (spec: 1 string-ref-set! string-ref-set!) - (spec: 1 f32vector-ref-set! f32vector-ref-set!) - (spec: 1 s64vector-ref-set! s64vector-ref-set!) - (spec: 1 s32vector-ref-set! s32vector-ref-set!) - (spec: 1 vector-ref-set! vector-ref-set!) - (spec: 1 s8vector-ref-set! s8vector-ref-set!) - (spec: 1 random-source-make-bytes random-source-make-bytes) - (spec: 1 u16vector-ref-set! u16vector-ref-set!) - (spec: 1 call/parameters call/parameters) - (spec: 1 car-set! car-set!) - (spec: 1 u8vector-ref-set! u8vector-ref-set!) - (spec: 1 box-set! box-set!) - (spec: 1 random-bytes random-bytes) - (spec: 1 s64vector::t s64vector::t) - (spec: 1 list->hash-table list->hash-table) - (spec: 1 character-port::t character-port::t) - (spec: 1 procedure::t procedure::t) - (spec: 1 vector-port::t vector-port::t) - (spec: 1 raw-device-port::t raw-device-port::t) - (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 1 with-dynamic-lock with-dynamic-lock) - (spec: 1 fx>=0? fx>=0?) - (spec: 1 unbound-key-error? unbound-key-error?) - (spec: 1 hash-clear! hash-clear!) - (spec: 1 new-instance new-instance) - (spec: 1 file-info::t file-info::t) - (spec: 1 object? object?) - (spec: 1 thread-local-set! thread-local-set!) - (spec: 1 max-char-code max-char-code) - (spec: 1 directory-port::t directory-port::t) - (spec: 1 dssl-optional-object? dssl-optional-object?) - (spec: 1 spawn/name spawn/name) - (spec: 1 make-hash-table-eqv make-hash-table-eqv) + !class-type-slot-defaults-set! + !class-type-slot-defaults-set!) + (spec: 1 &!class-type-super &!class-type-super) + (spec: 1 &!class-type-descriptor &!class-type-descriptor) + (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) + (spec: 1 &!class-type-slots &!class-type-slots) (spec: 1 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 1 class-type-sealed? class-type-sealed?) - (spec: 1 &class-type-flags &class-type-flags) - (spec: 1 &class-type-super &class-type-super) - (spec: 1 values-ref values-ref) - (spec: 1 processor::t processor::t) - (spec: 1 character-port? character-port?) - (spec: 1 interface-descriptor-methods interface-descriptor-methods) - (spec: 1 raise-unbound-key-error raise-unbound-key-error) - (spec: 1 pair::t pair::t) - (spec: 1 hvector? hvector?) - (spec: 1 fx<=0? fx<=0?) - (spec: 1 u8vector::t u8vector::t) - (spec: 1 byte-port::t byte-port::t) - (spec: 1 plist->hash-table-eq plist->hash-table-eq) - (spec: 1 mutex::t mutex::t) - (spec: 1 file-newer? file-newer?) - (spec: 1 object-port? object-port?) - (spec: 1 foldr foldr) - (spec: 1 hash-copy hash-copy) - (spec: 1 with-exception-stack-trace with-exception-stack-trace) - (spec: 1 eqv-hash eqv-hash) - (spec: 1 make-syntax-error make-syntax-error) - (spec: 1 device-port? device-port?) - (spec: 1 dssl-rest-object? dssl-rest-object?) - (spec: 1 make-hash-table-immediate make-hash-table-immediate) - (spec: 1 replx replx) - (spec: 1 make-class-predicate make-class-predicate) - (spec: 1 satisfies? satisfies?) - (spec: 1 list->hash-table-eq list->hash-table-eq) - (spec: 1 interface-descriptor? interface-descriptor?) - (spec: 1 promise::t promise::t) - (spec: 1 is-hash-table? is-hash-table?) - (spec: 1 false false) - (spec: 1 gerbil-system gerbil-system) - (spec: 1 exception? exception?) - (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 1 hash-find hash-find) - (spec: 1 filter-map filter-map) - (spec: 1 hash-remove! hash-remove!) - (spec: 1 memf memf) - (spec: 1 dump-stack-trace! dump-stack-trace!) - (spec: 1 string-empty? string-empty?) - (spec: 1 make-hash-table-string make-hash-table-string) - (spec: 1 class-type-slot-table class-type-slot-table) - (spec: 1 make-class-slot-accessor make-class-slot-accessor) - (spec: 1 s32vector::t s32vector::t) - (spec: 1 &class-type-id &class-type-id) - (spec: 1 list->hash-table-eqv list->hash-table-eqv) - (spec: 1 class-type-flags class-type-flags) - (spec: 1 interface-descriptor-type interface-descriptor-type) - (spec: 1 ratnum::t ratnum::t) - (spec: 1 gerbil-system-manifest gerbil-system-manifest) - (spec: 1 pget pget) - (spec: 1 fx>0? fx>0?) - (spec: 1 bytes->string bytes->string) - (spec: 1 udp-port? udp-port?) - (spec: 1 remv remv) - (spec: 1 t::t t::t) - (spec: 1 object::t object::t) - (spec: 1 thread::t thread::t) - (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 1 symbol::t symbol::t) - (spec: 1 absent-value absent-value) - (spec: 1 string-hash string-hash) - (spec: 1 error error) - (spec: 1 direct-method-ref direct-method-ref) - (spec: 1 slot-set! slot-set!) - (spec: 1 constructor-init! constructor-init!) - (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 1 display-exception display-exception) - (spec: 1 spawn/group spawn/group) - (spec: 1 class-type-super class-type-super) - (spec: 1 readenv? readenv?) - (spec: 1 make-class-slot-mutator make-class-slot-mutator) - (spec: 1 list->hash-table-immediate list->hash-table-immediate) - (spec: 1 with-lock with-lock) - (spec: 1 class-type-methods class-type-methods) - (spec: 1 unchecked-slot-ref unchecked-slot-ref) - (spec: 1 gerbil-system-version-string gerbil-system-version-string) - (spec: 1 vector-port? vector-port?) - (spec: 1 plist->hash-table-string plist->hash-table-string) - (spec: 1 boolean::t boolean::t) - (spec: 1 HashTableLock::interface HashTableLock::interface) - (spec: 1 table::t table::t) - (spec: 1 string::t string::t) - (spec: 1 display-as-string display-as-string) - (spec: 1 special? special?) - (spec: 1 class-type-slot-vector class-type-slot-vector) + &!class-type-constructor-method-set! + &!class-type-constructor-method-set!) + (spec: 1 !class-type-super !class-type-super) + (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) + (spec: 1 !class-type-system?-set! !class-type-system?-set!) + (spec: 1 &!class-type-id-set! &!class-type-id-set!) + (spec: 1 !class-type-name !class-type-name) + (spec: 1 !class-type-metaclass !class-type-metaclass) + (spec: 1 !class-type-constructor !class-type-constructor) + (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) + (spec: 1 !class-type-precedence-list !class-type-precedence-list) (spec: 1 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 1 list->hash-table-string list->hash-table-string) - (spec: 1 raw-device-port? raw-device-port?) - (spec: 1 class-type-id class-type-id) - (spec: 1 vector::t vector::t) - (spec: 1 with-unwind-protect with-unwind-protect) - (spec: 1 raise raise) - (spec: 1 gerbil-version-string gerbil-version-string) - (spec: 1 fxshift fxshift) - (spec: 1 HashTableLock::t HashTableLock::t) - (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 1 bound-method-ref bound-method-ref) - (spec: 1 next-method next-method) - (spec: 1 hash-fold hash-fold) - (spec: 1 agetv agetv) - (spec: 1 hash-table? hash-table?) - (spec: 1 as-string as-string) - (spec: 1 struct->list struct->list) - (spec: 1 make-object make-object) - (spec: 1 directory-port? directory-port?) - (spec: 1 dump-stack-trace? dump-stack-trace?) - (spec: 1 continuation::t continuation::t) - (spec: 1 s8vector::t s8vector::t) - (spec: 1 class-type-system? class-type-system?) - (spec: 1 keyword->symbol keyword->symbol) - (spec: 1 class-type-name class-type-name) - (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 1 c4-linearize c4-linearize) - (spec: 1 checked-method-ref checked-method-ref) - (spec: 1 bignum::t bignum::t) - (spec: 1 pgetq pgetq) - (spec: 1 immediate-instance-of? immediate-instance-of?) - (spec: 1 andmap andmap) - (spec: 1 symbolic-table-delete! symbolic-table-delete!) - (spec: 1 box::t box::t) - (spec: 1 assgetq assgetq) - (spec: 1 foreign::t foreign::t) - (spec: 1 struct-copy struct-copy) - (spec: 1 HashTable::interface HashTable::interface) - (spec: 1 hash-for-each hash-for-each) - (spec: 1 method-ref method-ref) - (spec: 1 string-index string-index) + !class-type-unchecked-accessors + !class-type-unchecked-accessors) (spec: 1 - make-class-slot-unchecked-mutator - make-class-slot-unchecked-mutator) - (spec: 1 source-location-path source-location-path) - (spec: 1 class-type-struct? class-type-struct?) - (spec: 1 readenv::t readenv::t) - (spec: 1 list::t list::t) - (spec: 1 class-type-metaclass? class-type-metaclass?) - (spec: 1 &class-type-name &class-type-name) - (spec: 1 interface-instance-object interface-instance-object) - (spec: 1 keyword-dispatch keyword-dispatch) - (spec: 1 vm::t vm::t) - (spec: 1 time::t time::t) - (spec: 1 HashTable::t HashTable::t) - (spec: 1 immediate-hash immediate-hash) - (spec: 1 find find) - (spec: 1 symbolic-table-ref symbolic-table-ref) - (spec: 1 frame::t frame::t) - (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 1 tcp-server-port::t tcp-server-port::t) - (spec: 1 struct-instance-init! struct-instance-init!) - (spec: 1 hash-get hash-get) - (spec: 1 display* display*) - (spec: 1 special::t special::t) - (spec: 1 seal-class! seal-class!) - (spec: 1 class-type? class-type?) - (spec: 1 class-type-fields class-type-fields) - (spec: 1 keyword-rest keyword-rest) - (spec: 1 class-type-precedence-list class-type-precedence-list) - (spec: 1 load-module load-module) + !class-type-ordered-slots-set! + !class-type-ordered-slots-set!) + (spec: 1 &!class-type-name &!class-type-name) + (spec: 1 &!class-type-final? &!class-type-final?) + (spec: 1 &!class-type-mutators &!class-type-mutators) + (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) + (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) + (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) + (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) + (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) + (spec: + 1 + &!class-type-unchecked-mutators + &!class-type-unchecked-mutators) + (spec: + 1 + &!class-type-unchecked-accessors + &!class-type-unchecked-accessors) + (spec: 1 &!class-type-constructor &!class-type-constructor) + (spec: 1 !class-type-descriptor !class-type-descriptor) + (spec: 1 !class-type-accessors !class-type-accessors) + (spec: 1 !class-type-mutators !class-type-mutators) + (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) + (spec: + 1 + !class-type-unchecked-mutators-set! + !class-type-unchecked-mutators-set!) + (spec: 1 &!class-type-accessors &!class-type-accessors) + (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) + (spec: + 1 + &!class-type-slot-contracts-set! + &!class-type-slot-contracts-set!) + (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) + (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) + (spec: 1 &!class-type-metaclass &!class-type-metaclass) + (spec: 1 make-class-type-info make-class-type-info) + (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) + (spec: + 1 + !class-type-unchecked-mutators + !class-type-unchecked-mutators) + (spec: 1 &!class-type-id &!class-type-id) + (spec: 1 !class-type-slots-set! !class-type-slots-set!) + (spec: 1 !class-type-name-set! !class-type-name-set!) + (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) + (spec: 1 &!class-type-super-set! &!class-type-super-set!) + (spec: 1 defstruct-type defstruct-type) + (spec: 1 defclass-type defclass-type) + (spec: 1 make-class-type-id make-class-type-id) + (spec: 1 module-type-id module-type-id) + (spec: 1 defconst defconst) + (spec: 1 defsyntax defsyntax) + (spec: 1 definline definline) + (spec: 1 <> <>) + (spec: 1 quasiquote quasiquote) + (spec: 1 alet* alet*) + (spec: 1 case case) + (spec: 1 and-let* and-let*) + (spec: 1 begin0 begin0) + (spec: 1 ~case ~case) + (spec: 1 cut cut) + (spec: 1 ~case-dispatch* ~case-dispatch*) + (spec: 1 ~case-test ~case-test) + (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 1 ~case-dispatch ~case-dispatch) + (spec: 1 delay delay) + (spec: 1 <...> <...>) + (spec: 1 @list @list) + (spec: 1 alet alet) + (spec: 1 defvalues defvalues) + (spec: 1 rec rec) + (spec: 1 when when) + (spec: 1 define define) + (spec: 1 defalias defalias) + (spec: 1 ~let ~let) + (spec: 1 defsyntax% defsyntax%) + (spec: 1 cond cond) + (spec: 1 defrule defrule) + (spec: 1 let* let*) + (spec: 1 unless unless) + (spec: 1 let*-values let*-values) + (spec: 1 or or) + (spec: 1 defrules defrules) + (spec: 1 letrec letrec) + (spec: 1 define-rules define-rules) + (spec: 1 and and) + (spec: 1 letrec* letrec*) + (spec: 1 syntax-error syntax-error) + (spec: 1 call/values call/values) + (spec: 1 s8vector-ref-set! s8vector-ref-set!) + (spec: 1 random-bytes random-bytes) + (spec: 1 car-set! car-set!) + (spec: 1 s32vector-ref-set! s32vector-ref-set!) + (spec: 1 s16vector-ref-set! s16vector-ref-set!) + (spec: 1 u64vector-ref-set! u64vector-ref-set!) + (spec: 1 u32vector-ref-set! u32vector-ref-set!) + (spec: 1 call/parameters call/parameters) + (spec: 1 cdr-set! cdr-set!) + (spec: 1 u16vector-ref-set! u16vector-ref-set!) + (spec: 1 s64vector-ref-set! s64vector-ref-set!) + (spec: 1 string-ref-set! string-ref-set!) + (spec: 1 random-source-make-bytes random-source-make-bytes) + (spec: 1 f32vector-ref-set! f32vector-ref-set!) + (spec: 1 box-set! box-set!) + (spec: 1 u8vector-ref-set! u8vector-ref-set!) + (spec: 1 f64vector-ref-set! f64vector-ref-set!) + (spec: 1 vector-ref-set! vector-ref-set!) + (spec: 1 hash-fold hash-fold) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 assgetv assgetv) + (spec: 1 call-next-method call-next-method) (spec: 1 gerbil-load-expander! gerbil-load-expander!) - (spec: 1 vm? vm?) - (spec: 1 make-promise make-promise) - (spec: 1 hash-values hash-values) - (spec: 1 u16vector::t u16vector::t) - (spec: 1 build-manifest build-manifest) - (spec: 1 find-method find-method) - (spec: 1 symbolic-table-set! symbolic-table-set!) - (spec: 1 tcp-server-port? tcp-server-port?) - (spec: 1 null::t null::t) - (spec: 1 error-irritants error-irritants) - (spec: 1 struct-instance? struct-instance?) - (spec: 1 hash-key? hash-key?) - (spec: 1 subclass? subclass?) - (spec: 1 actor-thread? actor-thread?) - (spec: 1 cpxnum::t cpxnum::t) - (spec: 1 sequence? sequence?) - (spec: 1 source-location? source-location?) + (spec: 1 hash-table? hash-table?) + (spec: 1 interface-instance-object interface-instance-object) + (spec: 1 &interface-instance-object &interface-instance-object) (spec: 1 readtable::t readtable::t) + (spec: 1 u16vector::t u16vector::t) + (spec: 1 build-manifest-string build-manifest-string) + (spec: 1 keyword-dispatch keyword-dispatch) (spec: 1 class-type-constructor class-type-constructor) - (spec: 1 keyword::t keyword::t) - (spec: 1 load-path load-path) - (spec: 1 &class-type-precedence-list &class-type-precedence-list) - (spec: 1 gerbil-greeting gerbil-greeting) - (spec: 1 unchecked-slot-set! unchecked-slot-set!) - (spec: 1 call-method call-method) - (spec: 1 port::t port::t) - (spec: 1 void::t void::t) - (spec: 1 interface-instance::t interface-instance::t) - (spec: 1 hash-update! hash-update!) - (spec: 1 build-manifest-set! build-manifest-set!) - (spec: 1 pgetv pgetv) - (spec: 1 assget assget) - (spec: 1 hash-keys hash-keys) - (spec: 1 error-message error-message) - (spec: 1 eof-object eof-object) - (spec: 1 make-symbol make-symbol) (spec: 1 display-build-manifest display-build-manifest) - (spec: 1 eof::t eof::t) - (spec: 1 string-join string-join) + (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) + (spec: 1 class-type-precedence-list class-type-precedence-list) + (spec: 1 string-index string-index) + (spec: 1 symbolic-table-delete! symbolic-table-delete!) (spec: 1 socket-info::t socket-info::t) - (spec: 1 class-type-final? class-type-final?) - (spec: 1 write-u8vector write-u8vector) - (spec: 1 class-type-properties class-type-properties) - (spec: 1 read-syntax read-syntax) - (spec: 1 cons* cons*) - (spec: 1 call-next-method call-next-method) - (spec: 1 class-instance-init! class-instance-init!) - (spec: 1 void? void?) - (spec: 1 integer::t integer::t) - (spec: 1 true::t true::t) - (spec: 1 build-manifest-string build-manifest-string) - (spec: 1 u64vector::t u64vector::t) - (spec: 1 interface-instance? interface-instance?) - (spec: 1 symbolic::t symbolic::t) - (spec: 1 fx/ fx/) - (spec: 1 thread-group::t thread-group::t) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 error-trace error-trace) - (spec: 1 hash-length hash-length) - (spec: 1 address-info::t address-info::t) - (spec: 1 error-object? error-object?) - (spec: 1 eq-hash eq-hash) - (spec: 1 string-port::t string-port::t) - (spec: 1 remq remq) - (spec: 1 class-type=? class-type=?) - (spec: 1 real::t real::t) - (spec: 1 &interface-instance-object &interface-instance-object) - (spec: 1 class-type-field-count class-type-field-count) - (spec: 1 &class-type-properties &class-type-properties) - (spec: 1 gerbil-home gerbil-home) - (spec: 1 call-with-parameters call-with-parameters) + (spec: 1 struct-copy struct-copy) + (spec: 1 tcp-server-port? tcp-server-port?) (spec: 1 unhandled-actor-exception-hook-set! unhandled-actor-exception-hook-set!) - (spec: 1 bind-method! bind-method!) - (spec: 1 ormap ormap) - (spec: 1 fixnum::t fixnum::t) - (spec: 1 symbolic? symbolic?) - (spec: 1 assgetv assgetv) - (spec: 1 fx1+ fx1+) - (spec: 1 error? error?) - (spec: 1 hash-map hash-map) - (spec: 1 thread-local-delete! thread-local-delete!) - (spec: 1 f32vector::t f32vector::t) - (spec: 1 substring->bytes substring->bytes) + (spec: 1 gerbil-home gerbil-home) (spec: 1 AST-e AST-e) - (spec: 1 make-instance make-instance) - (spec: 1 string-port? string-port?) - (spec: 1 make-class-type make-class-type) + (spec: 1 void? void?) + (spec: 1 class-type? class-type?) + (spec: 1 immediate-hash immediate-hash) + (spec: 1 write-u8vector write-u8vector) + (spec: 1 keyword->symbol keyword->symbol) + (spec: 1 build-manifest/head build-manifest/head) + (spec: 1 class-type-fields class-type-fields) + (spec: 1 load-path load-path) + (spec: 1 sequence? sequence?) + (spec: + 1 + make-class-slot-unchecked-mutator + make-class-slot-unchecked-mutator) + (spec: 1 cpxnum::t cpxnum::t) + (spec: 1 string-join string-join) + (spec: 1 eof::t eof::t) + (spec: 1 source-location? source-location?) + (spec: 1 eof-object eof-object) + (spec: 1 error-message error-message) + (spec: 1 t::t t::t) + (spec: 1 number::t number::t) + (spec: 1 atom::t atom::t) + (spec: 1 hash-get hash-get) + (spec: 1 subclass? subclass?) + (spec: 1 method-ref method-ref) + (spec: 1 thread::t thread::t) + (spec: 1 vector::t vector::t) + (spec: 1 interface-instance::t interface-instance::t) + (spec: 1 real::t real::t) + (spec: 1 gerbil-version-string gerbil-version-string) + (spec: 1 class-type=? class-type=?) + (spec: 1 immediate-instance-of? immediate-instance-of?) + (spec: 1 with-unwind-protect with-unwind-protect) + (spec: 1 keyword::t keyword::t) + (spec: 1 class-type-field-count class-type-field-count) + (spec: 1 load-module load-module) (spec: 1 sequence::t sequence::t) + (spec: 1 symbolic-table-set! symbolic-table-set!) + (spec: 1 andmap andmap) + (spec: 1 find-method find-method) (spec: 1 source-location-path? source-location-path?) - (spec: 1 remf remf) - (spec: 1 class-type-seal! class-type-seal!) + (spec: 1 struct-instance? struct-instance?) + (spec: 1 error-irritants error-irritants) + (spec: 1 hash-for-each hash-for-each) + (spec: 1 error error) + (spec: 1 fxshift fxshift) + (spec: 1 hash-update! hash-update!) + (spec: 1 gerbil-system-version-string gerbil-system-version-string) + (spec: 1 vector-port? vector-port?) + (spec: 1 keyword-rest keyword-rest) + (spec: 1 with-lock with-lock) + (spec: 1 replx replx) + (spec: 1 class-type-id class-type-id) + (spec: 1 &class-type-name &class-type-name) + (spec: 1 satisfies? satisfies?) + (spec: 1 string-hash string-hash) + (spec: 1 symbol::t symbol::t) + (spec: 1 make-symbol make-symbol) + (spec: 1 fx<0? fx<0?) + (spec: 1 object-fill! object-fill!) + (spec: 1 hash-values hash-values) (spec: 1 values-count values-count) - (spec: 1 class-of class-of) - (spec: 1 weak::t weak::t) - (spec: 1 interned-keyword? interned-keyword?) - (spec: 1 hvector::t hvector::t) + (spec: 1 cast cast) + (spec: 1 error-object? error-object?) + (spec: 1 hash-keys hash-keys) + (spec: 1 thread-local-ref thread-local-ref) + (spec: 1 bind-specializer! bind-specializer!) + (spec: 1 actor-thread? actor-thread?) + (spec: 1 AST? AST?) + (spec: 1 class->list class->list) + (spec: 1 with-catch with-catch) + (spec: 1 class::t class::t) + (spec: 1 build-manifest/layer build-manifest/layer) (spec: 1 u8vector-port? u8vector-port?) - (spec: 1 immediate? immediate?) - (spec: 1 flonum::t flonum::t) + (spec: 1 &class-type-fields &class-type-fields) + (spec: 1 writeenv::t writeenv::t) + (spec: 1 1- 1-) + (spec: 1 make-class-type make-class-type) + (spec: 1 return::t return::t) + (spec: 1 class-type-seal! class-type-seal!) + (spec: 1 create-directory* create-directory*) + (spec: 1 set-load-path! set-load-path!) + (spec: 1 eq-hash eq-hash) + (spec: 1 string-port::t string-port::t) + (spec: 1 hash->list hash->list) + (spec: 1 symbolic::t symbolic::t) + (spec: 1 make-instance make-instance) + (spec: 1 spawn spawn) + (spec: 1 error-trace error-trace) + (spec: 1 hash-key? hash-key?) (spec: 1 fx1- fx1-) - (spec: 1 object-port::t object-port::t) - (spec: 1 hash-merge hash-merge) - (spec: 1 event-queue-port::t event-queue-port::t) + (spec: 1 object-type object-type) (spec: 1 thread-local-get thread-local-get) - (spec: 1 f64vector::t f64vector::t) - (spec: 1 AST? AST?) - (spec: 1 make-interface-descriptor make-interface-descriptor) - (spec: 1 string-rindex string-rindex) + (spec: 1 values->list values->list) + (spec: 1 gerbil-path gerbil-path) + (spec: 1 false::t false::t) + (spec: 1 processor::t processor::t) + (spec: 1 character-port? character-port?) + (spec: 1 true? true?) + (spec: 1 pair::t pair::t) + (spec: 1 class-of class-of) + (spec: 1 interface-instance? interface-instance?) + (spec: 1 remf remf) + (spec: 1 byte-port::t byte-port::t) + (spec: 1 u8vector-port::t u8vector-port::t) + (spec: 1 plist->hash-table-eq plist->hash-table-eq) + (spec: 1 list-modules list-modules) + (spec: 1 1+ 1+) + (spec: 1 read-syntax-from-file read-syntax-from-file) + (spec: 1 remq remq) + (spec: 1 &class-type-precedence-list &class-type-precedence-list) (spec: 1 slot-ref slot-ref) + (spec: 1 foldl foldl) + (spec: 1 module-load-order module-load-order) (spec: 1 device-port::t device-port::t) - (spec: 1 class::t class::t) - (spec: 1 make-AST make-AST) - (spec: 1 return::t return::t) - (spec: 1 &class-type-constructor &class-type-constructor) - (spec: 1 &class-type-slot-table &class-type-slot-table) - (spec: 1 class->list class->list) + (spec: 1 event-queue-port? event-queue-port?) + (spec: 1 hash-map hash-map) + (spec: 1 frame::t frame::t) + (spec: 1 object-port? object-port?) + (spec: 1 integer::t integer::t) + (spec: 1 cons* cons*) + (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) + (spec: 1 f64vector::t f64vector::t) + (spec: 1 procedure::t procedure::t) + (spec: 1 character-port::t character-port::t) + (spec: 1 make-promise make-promise) (spec: 1 interned-symbol? interned-symbol?) - (spec: 1 weak? weak?) - (spec: 1 true true) + (spec: 1 class-instance? class-instance?) + (spec: + 1 + raise-contract-violation-error + raise-contract-violation-error) + (spec: 1 tcp-server-port::t tcp-server-port::t) + (spec: 1 void::t void::t) + (spec: 1 address-info::t address-info::t) (spec: 1 writenv? writenv?) - (spec: 1 build-manifest/head build-manifest/head) - (spec: 1 foldl foldl) - (spec: 1 u32vector::t u32vector::t) + (spec: 1 make-AST make-AST) + (spec: 1 reload-module! reload-module!) + (spec: 1 condvar::t condvar::t) + (spec: 1 make-keyword make-keyword) + (spec: 1 displayln displayln) + (spec: 1 class-type-name class-type-name) + (spec: 1 string-rindex string-rindex) + (spec: 1 flonum::t flonum::t) + (spec: 1 event-queue-port::t event-queue-port::t) + (spec: 1 hash-length hash-length) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 ormap ormap) + (spec: 1 unchecked-slot-set! unchecked-slot-set!) + (spec: 1 call-with-parameters call-with-parameters) + (spec: 1 gerbil-greeting gerbil-greeting) + (spec: 1 null::t null::t) + (spec: 1 symbolic-table-ref symbolic-table-ref) + (spec: 1 foreign::t foreign::t) + (spec: 1 bind-method! bind-method!) + (spec: 1 interned-keyword? interned-keyword?) + (spec: 1 checked-method-ref checked-method-ref) + (spec: 1 vm? vm?) + (spec: 1 add-load-path! add-load-path!) + (spec: 1 class-type-system? class-type-system?) + (spec: 1 make-interface-descriptor make-interface-descriptor) + (spec: 1 &class-type-properties &class-type-properties) + (spec: 1 list::t list::t) + (spec: 1 struct-instance-init! struct-instance-init!) (spec: 1 move-file move-file) - (spec: 1 fx<0? fx<0?) - (spec: 1 atom::t atom::t) - (spec: 1 number::t number::t) - (spec: 1 event-queue-port? event-queue-port?) + (spec: 1 find find) (spec: 1 make-symbolic-table make-symbolic-table) - (spec: 1 false::t false::t) - (spec: 1 AST-source AST-source) - (spec: 1 add-load-path! add-load-path!) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 make-keyword make-keyword) + (spec: 1 source-location-path source-location-path) + (spec: 1 foldr foldr) + (spec: 1 object::t object::t) (spec: 1 hash-merge! hash-merge!) - (spec: 1 thread-local-ref thread-local-ref) - (spec: 1 set-load-path! set-load-path!) - (spec: 1 create-directory* create-directory*) - (spec: 1 spawn spawn) - (spec: 1 remove1 remove1) - (spec: 1 symblic-hash symblic-hash) - (spec: 1 1+ 1+) - (spec: 1 s16vector::t s16vector::t) - (spec: 1 class-type-slot-list class-type-slot-list) - (spec: 1 read-u8vector read-u8vector) - (spec: 1 checked-bound-method-ref checked-bound-method-ref) - (spec: 1 values::t values::t) - (spec: 1 cast cast) - (spec: 1 bind-specializer! bind-specializer!) - (spec: 1 try-cast try-cast) - (spec: 1 build-manifest/layer build-manifest/layer) - (spec: 1 udp-port::t udp-port::t) - (spec: 1 hash->list hash->list) - (spec: 1 object-type object-type) - (spec: 1 hash-put! hash-put!) - (spec: 1 byte-port? byte-port?) + (spec: 1 promise::t promise::t) + (spec: 1 vector-port::t vector-port::t) + (spec: 1 substruct? substruct?) + (spec: 1 fx>=0? fx>=0?) + (spec: 1 hvector::t hvector::t) + (spec: 1 raise raise) + (spec: 1 gerbil-system-manifest gerbil-system-manifest) + (spec: 1 raise-unbound-key-error raise-unbound-key-error) + (spec: 1 class-type-sealed? class-type-sealed?) + (spec: 1 immediate? immediate?) + (spec: 1 unbound-key-error? unbound-key-error?) + (spec: 1 HashTable::interface HashTable::interface) + (spec: 1 &class-type-id &class-type-id) + (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) + (spec: 1 device-port? device-port?) + (spec: 1 dssl-key-object? dssl-key-object?) + (spec: 1 hash-find hash-find) + (spec: 1 make-hash-table-eq make-hash-table-eq) + (spec: 1 thread-local-set! thread-local-set!) + (spec: 1 hash-merge hash-merge) + (spec: 1 interface-cast-error? interface-cast-error?) + (spec: 1 aget aget) + (spec: 1 fx>0? fx>0?) + (spec: 1 gerbil-system gerbil-system) + (spec: 1 raw-device-port::t raw-device-port::t) + (spec: 1 bound-method-ref bound-method-ref) + (spec: 1 immediate::t immediate::t) + (spec: 1 udp-port? udp-port?) + (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 1 HashTableLock::interface HashTableLock::interface) + (spec: 1 s64vector::t s64vector::t) + (spec: 1 directory-port::t directory-port::t) + (spec: 1 class-type-flags class-type-flags) + (spec: 1 &class-type-slot-table &class-type-slot-table) + (spec: 1 dssl-rest-object? dssl-rest-object?) + (spec: 1 file-newer? file-newer?) + (spec: + 1 + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 1 spawn/name spawn/name) + (spec: 1 make-hash-table make-hash-table) + (spec: 1 eqv-hash eqv-hash) + (spec: 1 fx1+ fx1+) + (spec: 1 as-string as-string) + (spec: 1 hash-ref hash-ref) + (spec: 1 thread-local-delete! thread-local-delete!) + (spec: 1 agetq agetq) + (spec: 1 true::t true::t) + (spec: 1 weak? weak?) + (spec: 1 ratnum::t ratnum::t) + (spec: 1 class-type-slot-table class-type-slot-table) + (spec: 1 boolean::t boolean::t) + (spec: 1 u64vector::t u64vector::t) + (spec: 1 plist->hash-table-string plist->hash-table-string) + (spec: 1 &class-type-constructor &class-type-constructor) + (spec: 1 remv remv) + (spec: 1 s32vector::t s32vector::t) + (spec: 1 direct-method-ref direct-method-ref) + (spec: 1 class-type-properties class-type-properties) + (spec: 1 read-syntax read-syntax) + (spec: 1 constructor-init! constructor-init!) + (spec: 1 slot-set! slot-set!) + (spec: 1 dssl-optional-object? dssl-optional-object?) + (spec: 1 file-info::t file-info::t) + (spec: 1 spawn/group spawn/group) + (spec: 1 make-hash-table-immediate make-hash-table-immediate) (spec: 1 absent-obj absent-obj) - (spec: 1 agetq agetq) - (spec: 1 substruct? substruct?) - (spec: 1 string->bytes string->bytes) - (spec: 1 dssl-key-object? dssl-key-object?) - (spec: 1 current-thread-group current-thread-group) - (spec: 1 direct-instance? direct-instance?) - (spec: 1 make-hash-table make-hash-table) - (spec: 1 reload-module! reload-module!) - (spec: 1 condvar::t condvar::t) - (spec: 1 1- 1-) - (spec: 1 writeenv::t writeenv::t) - (spec: 1 &class-type-fields &class-type-fields) - (spec: 1 read-syntax-from-file read-syntax-from-file) - (spec: 1 &class-type-slot-vector &class-type-slot-vector) - (spec: 1 gerbil-path gerbil-path) + (spec: 1 object-port::t object-port::t) + (spec: 1 fx/ fx/) (spec: 1 char::t char::t) - (spec: 1 values->list values->list) - (spec: 1 class-instance? class-instance?) - (spec: - 1 - raise-contract-violation-error - raise-contract-violation-error) (spec: 1 procedure-hash procedure-hash) - (spec: 1 true? true?) - (spec: 1 with-catch with-catch) - (spec: 1 u8vector-port::t u8vector-port::t) - (spec: 1 immediate::t immediate::t) + (spec: 1 thread-group::t thread-group::t) + (spec: 1 substring->bytes substring->bytes) + (spec: 1 f32vector::t f32vector::t) + (spec: 1 interface-descriptor-methods interface-descriptor-methods) + (spec: 1 hash-put! hash-put!) + (spec: 1 true true) + (spec: 1 class-instance-init! class-instance-init!) + (spec: 1 hvector? hvector?) + (spec: 1 weak::t weak::t) + (spec: 1 AST-source AST-source) + (spec: 1 plist->hash-table plist->hash-table) + (spec: 1 class-type-final? class-type-final?) + (spec: 1 u32vector::t u32vector::t) + (spec: 1 list->hash-table list->hash-table) + (spec: 1 &class-type-slot-vector &class-type-slot-vector) + (spec: 1 string-port? string-port?) + (spec: 1 fixnum::t fixnum::t) + (spec: 1 symbolic? symbolic?) + (spec: 1 mutex::t mutex::t) (spec: 1 hash->plist hash->plist) - (spec: 1 syntax-error? syntax-error?) + (spec: 1 make-hash-table-eqv make-hash-table-eqv) + (spec: 1 error? error?) + (spec: 1 make-syntax-error make-syntax-error) + (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 1 c4-linearize c4-linearize) + (spec: 1 unchecked-slot-ref unchecked-slot-ref) + (spec: 1 bignum::t bignum::t) + (spec: 1 exception? exception?) + (spec: 1 vm::t vm::t) + (spec: 1 class-type-slot-vector class-type-slot-vector) + (spec: 1 box::t box::t) + (spec: 1 pgetq pgetq) + (spec: 1 list->hash-table-eqv list->hash-table-eqv) + (spec: 1 raw-device-port? raw-device-port?) + (spec: 1 make-class-slot-accessor make-class-slot-accessor) + (spec: 1 directory-port? directory-port?) + (spec: 1 class-type-methods class-type-methods) + (spec: 1 continuation::t continuation::t) + (spec: 1 s8vector::t s8vector::t) + (spec: 1 string-empty? string-empty?) + (spec: 1 dump-stack-trace! dump-stack-trace!) + (spec: 1 filter-map filter-map) + (spec: 1 new-instance new-instance) + (spec: 1 display-exception display-exception) + (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 1 max-char-code max-char-code) + (spec: 1 assgetq assgetq) + (spec: 1 table::t table::t) + (spec: 1 call-method call-method) + (spec: 1 port::t port::t) + (spec: 1 interface-descriptor-type interface-descriptor-type) + (spec: 1 absent-value absent-value) + (spec: 1 time::t time::t) + (spec: 1 false false) + (spec: 1 is-hash-table? is-hash-table?) + (spec: 1 class-type-super class-type-super) + (spec: 1 readenv? readenv?) + (spec: 1 pgetv pgetv) + (spec: 1 build-manifest-set! build-manifest-set!) + (spec: 1 list->hash-table-eq list->hash-table-eq) + (spec: 1 make-class-predicate make-class-predicate) + (spec: 1 display-as-string display-as-string) + (spec: 1 special? special?) + (spec: 1 byte-port? byte-port?) + (spec: 1 class-type-metaclass? class-type-metaclass?) + (spec: 1 &class-type-super &class-type-super) + (spec: 1 dump-stack-trace? dump-stack-trace?) + (spec: 1 hash-copy hash-copy) + (spec: 1 make-hash-table-string make-hash-table-string) + (spec: 1 struct->list struct->list) + (spec: 1 assget assget) + (spec: 1 values::t values::t) + (spec: 1 interface-descriptor? interface-descriptor?) (spec: 1 fx=0? fx=0?) - (spec: 1 hash-ref hash-ref) - (spec: 1 object-fill! object-fill!) - (spec: 1 interface-cast-error? interface-cast-error?) - (spec: 1 plist->hash-table plist->hash-table) - (spec: 1 aget aget) - (spec: 1 symbol->keyword symbol->keyword) - (spec: 1 displayln displayln) - (spec: 1 dssl-object? dssl-object?) - (spec: 1 string-split string-split) - (spec: 1 make-hash-table-eq make-hash-table-eq) - (spec: 1 fl/ fl/) - (spec: - 1 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 1 system-stamp system-stamp) - (spec: 1 call-with-input-u8vector call-with-input-u8vector) - (spec: 1 flcosh flcosh) - (spec: 1 input-port-readtable input-port-readtable) - (spec: 1 readtable-max-write-length readtable-max-write-length) - (spec: - 1 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 1 table-search table-search) - (spec: 1 break break) - (spec: 1 file-info? file-info?) - (spec: 1 uncaught-exception-reason uncaught-exception-reason) - (spec: 1 random-u8vector random-u8vector) - (spec: 1 create-link create-link) - (spec: 1 filter! filter!) - (spec: - 1 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: - 1 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 1 bits->list bits->list) - (spec: 1 continuation-capture continuation-capture) - (spec: 1 f64vector? f64vector?) - (spec: 1 subs64vector subs64vector) - (spec: 1 u32vector-shrink! u32vector-shrink!) - (spec: 1 bitwise-orc2 bitwise-orc2) - (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 1 continuation? continuation?) - (spec: 1 subu8vector-fill! subu8vector-fill!) - (spec: 1 ->char-set ->char-set) - (spec: 1 u64vector-set u64vector-set) - (spec: 1 string-prefix-length-ci string-prefix-length-ci) - (spec: 1 group-info group-info) - (spec: 1 make-f32vector make-f32vector) - (spec: 1 condition-variable-specific condition-variable-specific) - (spec: 1 f32vector? f32vector?) - (spec: 1 u16vector-swap! u16vector-swap!) - (spec: 1 make-s8vector make-s8vector) - (spec: 1 address-info? address-info?) - (spec: 1 list-sort list-sort) - (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 1 s64vector s64vector) - (spec: 1 with-input-from-vector with-input-from-vector) - (spec: 1 tty-history tty-history) - (spec: 1 char-set? char-set?) - (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 1 vector-cumulate vector-cumulate) - (spec: 1 output-port-width output-port-width) - (spec: 1 char-set-contains? char-set-contains?) - (spec: 1 fxand fxand) - (spec: 1 s16vector-concatenate s16vector-concatenate) - (spec: 1 thread? thread?) - (spec: 1 list->s32vector list->s32vector) - (spec: 1 char-set-hash char-set-hash) - (spec: 1 foreign-address foreign-address) - (spec: 1 fxmodulo fxmodulo) - (spec: 1 s32vector->list s32vector->list) - (spec: 1 thread-group-specific-set! thread-group-specific-set!) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 os-exception-arguments os-exception-arguments) - (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 1 foreign? foreign?) - (spec: 1 flmin flmin) - (spec: 1 tcp-server-socket-info tcp-server-socket-info) - (spec: 1 flsinh flsinh) - (spec: 1 repl-error-port repl-error-port) - (spec: 1 display-exception-in-context display-exception-in-context) - (spec: 1 fl< fl<) - (spec: - 1 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 1 input-port-column input-port-column) - (spec: 1 call-with-input-vector call-with-input-vector) - (spec: 1 fldenominator fldenominator) - (spec: 1 read-file-string-list read-file-string-list) - (spec: 1 table-merge table-merge) - (spec: 1 uncaught-exception? uncaught-exception?) - (spec: - 1 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) + (spec: 1 try-cast try-cast) + (spec: 1 with-exception-stack-trace with-exception-stack-trace) + (spec: 1 class-type-struct? class-type-struct?) + (spec: 1 readenv::t readenv::t) + (spec: 1 build-manifest build-manifest) + (spec: 1 udp-port::t udp-port::t) + (spec: 1 &class-type-flags &class-type-flags) + (spec: 1 list->hash-table-string list->hash-table-string) (spec: 1 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) - (spec: 1 file-inode file-inode) - (spec: 1 u8vector-length u8vector-length) - (spec: 1 random-source-state-ref random-source-state-ref) - (spec: 1 deadlock-exception? deadlock-exception?) - (spec: 1 udp-local-socket-info udp-local-socket-info) - (spec: 1 f64vector-set! f64vector-set!) - (spec: 1 continuation-graft continuation-graft) - (spec: 1 bit-set? bit-set?) - (spec: 1 subs64vector-fill! subs64vector-fill!) - (spec: 1 u32vector-ref u32vector-ref) - (spec: 1 bitwise-unfold bitwise-unfold) - (spec: 1 file-group file-group) - (spec: 1 subu64vector-fill! subu64vector-fill!) - (spec: 1 u64vector-set! u64vector-set!) - (spec: 1 make-s16vector make-s16vector) - (spec: 1 command-args command-args) - (spec: 1 string-prefix? string-prefix?) - (spec: 1 s8vector-swap! s8vector-swap!) - (spec: 1 f32vector-set! f32vector-set!) + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (spec: 1 display* display*) + (spec: 1 special::t special::t) + (spec: 1 make-object make-object) + (spec: 1 read-u8vector read-u8vector) + (spec: 1 seal-class! seal-class!) + (spec: 1 hash-clear! hash-clear!) + (spec: 1 string::t string::t) + (spec: 1 memf memf) + (spec: 1 object? object?) + (spec: 1 hash-remove! hash-remove!) + (spec: 1 bytes->string bytes->string) + (spec: 1 values-ref values-ref) + (spec: 1 symbol->keyword symbol->keyword) + (spec: 1 pget pget) + (spec: 1 checked-bound-method-ref checked-bound-method-ref) + (spec: 1 fx<=0? fx<=0?) + (spec: 1 with-dynamic-lock with-dynamic-lock) + (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 1 remove1 remove1) + (spec: 1 class-type-slot-list class-type-slot-list) + (spec: 1 HashTable::t HashTable::t) + (spec: 1 u8vector::t u8vector::t) + (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) + (spec: 1 list->hash-table-immediate list->hash-table-immediate) + (spec: 1 s16vector::t s16vector::t) + (spec: 1 make-class-slot-mutator make-class-slot-mutator) + (spec: 1 direct-instance? direct-instance?) + (spec: 1 string->bytes string->bytes) + (spec: 1 dssl-object? dssl-object?) + (spec: 1 string-split string-split) + (spec: 1 HashTableLock::t HashTableLock::t) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 agetv agetv) + (spec: 1 symblic-hash symblic-hash) + (spec: 1 next-method next-method) + (spec: 1 current-thread-group current-thread-group) + (spec: 1 any-bits-set? any-bits-set?) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 pp pp) + (spec: 1 s8vector-fill! s8vector-fill!) + (spec: 1 type-exception-arg-id type-exception-arg-id) + (spec: 1 bit-field-reverse bit-field-reverse) + (spec: 1 substring-move! substring-move!) (spec: 1 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 1 group-info-gid group-info-gid) - (spec: 1 type-exception-type-id type-exception-type-id) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 1 u64vector-copy! u64vector-copy!) + (spec: 1 console-port console-port) + (spec: 1 vector-unfold-right vector-unfold-right) + (spec: 1 s32vector-length s32vector-length) + (spec: 1 string->char-set string->char-set) + (spec: 1 fxpositive? fxpositive?) + (spec: 1 string-suffix-length-ci string-suffix-length-ci) + (spec: 1 error-exception-parameters error-exception-parameters) + (spec: 1 char-set-ref char-set-ref) + (spec: 1 u16vector-length u16vector-length) + (spec: 1 bitwise-merge bitwise-merge) + (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 1 file-info-inode file-info-inode) + (spec: 1 module-whitelist-reset! module-whitelist-reset!) + (spec: 1 sinh sinh) + (spec: 1 u8vector-append u8vector-append) + (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 1 fifth fifth) (spec: 1 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) - (spec: 1 host-info host-info) - (spec: 1 address-infos address-infos) - (spec: 1 u16vector-set u16vector-set) - (spec: 1 top top) - (spec: 1 fxwrap+ fxwrap+) - (spec: 1 apropos apropos) - (spec: 1 list-sort! list-sort!) + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 1 subf64vector-fill! subf64vector-fill!) + (spec: 1 unbox unbox) + (spec: 1 protocol-info-aliases protocol-info-aliases) + (spec: 1 f64vector-copy f64vector-copy) + (spec: 1 service-info-protocol service-info-protocol) + (spec: 1 u32vector-fill! u32vector-fill!) + (spec: 1 write-substring write-substring) + (spec: 1 u8vector? u8vector?) + (spec: 1 f32vector-copy f32vector-copy) + (spec: 1 uninterned-symbol? uninterned-symbol?) (spec: 1 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 1 s64vector->list s64vector->list) - (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 1 s8vector s8vector) - (spec: 1 char-set-filter! char-set-filter!) - (spec: 1 eqv?-hash eqv?-hash) - (spec: 1 with-input-from-process with-input-from-process) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) + (spec: 1 call/cc call/cc) + (spec: 1 flatanh flatanh) (spec: 1 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 1 fx> fx>) - (spec: 1 output-port-readtable output-port-readtable) - (spec: 1 s16vector-copy s16vector-copy) - (spec: 1 vector-concatenate vector-concatenate) - (spec: 1 fxlength fxlength) - (spec: 1 list->s64vector list->s64vector) - (spec: 1 s32vector-append s32vector-append) - (spec: 1 foreign-release! foreign-release!) - (spec: 1 thread-group-parent thread-group-parent) - (spec: 1 char-set-any char-set-any) - (spec: 1 thread-quantum thread-quantum) - (spec: 1 foreign-released? foreign-released?) + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) + (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) + (spec: 1 open-string-pipe open-string-pipe) + (spec: 1 reverse! reverse!) + (spec: 1 delete-directory delete-directory) + (spec: 1 force-output force-output) + (spec: 1 last-pair last-pair) + (spec: 1 split-at! split-at!) + (spec: 1 thread-join! thread-join!) + (spec: 1 fixnum->flonum fixnum->flonum) + (spec: 1 user-info-home user-info-home) (spec: 1 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 1 flnan? flnan?) - (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) - (spec: 1 null-list? null-list?) - (spec: 1 drop drop) - (spec: 1 flsqrt flsqrt) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) (spec: 1 - join-timeout-exception-procedure - join-timeout-exception-procedure) - (spec: 1 system-type-string system-type-string) - (spec: 1 input-port-timeout-set! input-port-timeout-set!) - (spec: 1 read-subu8vector read-subu8vector) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 1 file-mode file-mode) + (spec: 1 fllog fllog) + (spec: 1 os-exception? os-exception?) + (spec: 1 char-set-cursor-next char-set-cursor-next) + (spec: 1 fx+ fx+) + (spec: 1 thread-state thread-state) + (spec: 1 s64vector-fill! s64vector-fill!) + (spec: 1 open-file open-file) + (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 1 flround flround) (spec: 1 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 1 unbound-key-exception? unbound-key-exception?) - (spec: 1 table? table?) - (spec: 1 fl<= fl<=) - (spec: 1 delete! delete!) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) + (spec: 1 repl-output-port repl-output-port) + (spec: 1 s16vector-ref s16vector-ref) + (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 1 display-procedure-environment display-procedure-environment) + (spec: 1 fxeqv fxeqv) + (spec: 1 any-bit-set? any-bit-set?) + (spec: 1 list->bits list->bits) + (spec: 1 s8vector-copy! s8vector-copy!) + (spec: 1 vector-fold-right vector-fold-right) + (spec: 1 main main) + (spec: 1 get-output-vector get-output-vector) + (spec: 1 bit-field-replace-same bit-field-replace-same) + (spec: 1 link-incremental link-incremental) (spec: 1 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) - (spec: 1 readtable-max-write-level readtable-max-write-level) - (spec: 1 file-info file-info) - (spec: 1 create-temporary-directory create-temporary-directory) - (spec: 1 mutex-lock! mutex-lock!) - (spec: 1 initialized-thread-exception? initialized-thread-exception?) + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 1 subu16vector-move! subu16vector-move!) + (spec: 1 u64vector-copy u64vector-copy) + (spec: 1 vector-unfold vector-unfold) + (spec: 1 with-output-to-string with-output-to-string) + (spec: 1 partition! partition!) + (spec: 1 list= list=) + (spec: 1 fxorc2 fxorc2) + (spec: 1 s32vector-set s32vector-set) + (spec: 1 time->seconds time->seconds) + (spec: 1 write-file-u8vector write-file-u8vector) + (spec: 1 u16vector-fill! u16vector-fill!) + (spec: 1 char-set-map char-set-map) + (spec: 1 help help) + (spec: 1 bitwise-ior bitwise-ior) + (spec: 1 list->u16vector list->u16vector) + (spec: 1 make-random-source make-random-source) + (spec: 1 file-info-group file-info-group) + (spec: 1 module-whitelist-add! module-whitelist-add!) + (spec: 1 random-real random-real) + (spec: 1 u8vector->object u8vector->object) (spec: 1 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) - (spec: 1 bitwise-and bitwise-and) - (spec: 1 subs64vector-move! subs64vector-move!) - (spec: 1 condition-variable? condition-variable?) - (spec: 1 f64vector f64vector) - (spec: 1 bitwise-xor bitwise-xor) - (spec: 1 subvector subvector) - (spec: 1 shell-command shell-command) - (spec: 1 random-f64vector random-f64vector) - (spec: 1 u32vector? u32vector?) - (spec: 1 u64vector-shrink! u64vector-shrink!) - (spec: 1 scheduler-exception? scheduler-exception?) - (spec: 1 group-info-members group-info-members) + unbound-serial-number-exception? + unbound-serial-number-exception?) + (spec: 1 copy-bit-field copy-bit-field) (spec: 1 - wrong-number-of-arguments-exception-procedure - wrong-number-of-arguments-exception-procedure) - (spec: 1 processor-id processor-id) - (spec: 1 service-info service-info) - (spec: 1 f32vector f32vector) - (spec: 1 host-info-addresses host-info-addresses) - (spec: 1 make-table make-table) - (spec: 1 s64vector-append s64vector-append) - (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 1 list-tabulate list-tabulate) - (spec: 1 s8vector->list s8vector->list) - (spec: 1 tty-history-set! tty-history-set!) - (spec: 1 with-output-to-port with-output-to-port) - (spec: 1 s16vector-copy! s16vector-copy!) - (spec: 1 fxandc2 fxandc2) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) + (spec: 1 proper-list? proper-list?) + (spec: 1 f64vector-concatenate f64vector-concatenate) + (spec: 1 identity identity) + (spec: 1 make-u8vector make-u8vector) + (spec: 1 service-info-port-number service-info-port-number) + (spec: 1 subs16vector-fill! subs16vector-fill!) + (spec: 1 range-exception-arguments range-exception-arguments) + (spec: 1 f32vector-concatenate f32vector-concatenate) + (spec: 1 u32vector-copy! u32vector-copy!) + (spec: 1 u8vector-swap! u8vector-swap!) + (spec: 1 uninterned-keyword? uninterned-keyword?) + (spec: 1 table? table?) (spec: 1 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 1 char-set-count char-set-count) - (spec: 1 fxnegative? fxnegative?) - (spec: 1 err-code->string err-code->string) - (spec: 1 char-set-intersection! char-set-intersection!) - (spec: 1 list->s8vector list->s8vector) - (spec: 1 partition partition) - (spec: 1 s32vector-concatenate s32vector-concatenate) - (spec: 1 last last) - (spec: 1 flsquare flsquare) - (spec: 1 open-output-process open-output-process) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) + (spec: 1 flatan flatan) + (spec: 1 readtable-start-syntax readtable-start-syntax) + (spec: 1 user-info-gid user-info-gid) + (spec: 1 open-string open-string) + (spec: 1 split-at split-at) (spec: 1 thread-group-terminate! thread-group-terminate!) - (spec: 1 vector-swap! vector-swap!) + (spec: 1 read-all read-all) + (spec: 1 defer-user-interrupts defer-user-interrupts) (spec: 1 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 1 os-exception-message os-exception-message) - (spec: 1 thread-quantum-set! thread-quantum-set!) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) + (spec: 1 directory-files directory-files) + (spec: 1 udp-read-u8vector udp-read-u8vector) + (spec: + 1 + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) (spec: 1 tcp-service-register! tcp-service-register!) + (spec: 1 network-info-aliases network-info-aliases) + (spec: 1 os-exception-procedure os-exception-procedure) + (spec: 1 char-set-cursor char-set-cursor) + (spec: 1 fx* fx*) + (spec: 1 thread-send thread-send) + (spec: 1 s64vector-ref s64vector-ref) (spec: 1 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 1 fleven? fleven?) - (spec: 1 flnegative? flnegative?) - (spec: 1 repl-input-port repl-input-port) - (spec: 1 first first) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 1 open-event-queue open-event-queue) (spec: 1 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 1 call-with-output-process call-with-output-process) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 1 flpositive? flpositive?) + (spec: 1 last last) + (spec: 1 replace-bit-field replace-bit-field) + (spec: 1 vector-fold vector-fold) + (spec: 1 thread-state-running? thread-state-running?) + (spec: 1 fxbit-set? fxbit-set?) + (spec: 1 all-bits-set? all-bits-set?) + (spec: 1 s16vector-shrink! s16vector-shrink!) + (spec: 1 with-output-to-process with-output-to-process) (spec: 1 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 1 table-ref table-ref) - (spec: 1 fl= fl=) + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 1 clear-bit-field clear-bit-field) + (spec: 1 get-output-u8vector get-output-u8vector) + (spec: 1 bit-field bit-field) + (spec: 1 f64vector-fill! f64vector-fill!) + (spec: 1 subu16vector-fill! subu16vector-fill!) + (spec: 1 char-set-unfold char-set-unfold) + (spec: 1 time time) + (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 1 s32vector-ref s32vector-ref) + (spec: 1 write-file-string-list write-file-string-list) + (spec: 1 println println) + (spec: 1 string-swap! string-swap!) + (spec: 1 fxnegative? fxnegative?) + (spec: 1 bitwise-andc2 bitwise-andc2) + (spec: 1 file-creation-time file-creation-time) + (spec: 1 heap-overflow-exception? heap-overflow-exception?) + (spec: 1 list->table list->table) + (spec: 1 mutex-specific-set! mutex-specific-set!) + (spec: 1 random-integer random-integer) + (spec: 1 script-file script-file) (spec: 1 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) - (spec: 1 random-source? random-source?) - (spec: 1 create-fifo create-fifo) - (spec: 1 file-info-attributes file-info-attributes) - (spec: 1 mutex-name mutex-name) - (spec: 1 current-time current-time) - (spec: 1 file-last-access-time file-last-access-time) - (spec: 1 bits bits) - (spec: 1 f64vector-swap! f64vector-swap!) - (spec: 1 u32vector-set! u32vector-set!) - (spec: 1 subs8vector subs8vector) - (spec: 1 setenv setenv) - (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 1 continuation-return continuation-return) - (spec: 1 subu8vector subu8vector) - (spec: 1 asinh asinh) - (spec: 1 extract-bit-field extract-bit-field) - (spec: 1 u64vector-swap! u64vector-swap!) - (spec: 1 string-set string-set) - (spec: 1 group-info-name group-info-name) - (spec: 1 f32vector-swap! f32vector-swap!) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) + (spec: 1 u16vector->list u16vector->list) (spec: 1 - wrong-number-of-arguments-exception? - wrong-number-of-arguments-exception?) - (spec: 1 processor? processor?) - (spec: 1 make-s64vector make-s64vector) - (spec: 1 command-name command-name) - (spec: 1 host-info-aliases host-info-aliases) - (spec: 1 u16vector-shrink! u16vector-shrink!) - (spec: 1 path-volume path-volume) - (spec: 1 s64vector-concatenate s64vector-concatenate) - (spec: 1 string->uninterned-symbol string->uninterned-symbol) - (spec: 1 fxwrapabs fxwrapabs) - (spec: 1 with-input-from-u8vector with-input-from-u8vector) - (spec: 1 s8vector-append s8vector-append) - (spec: 1 char-set= char-set=) - (spec: 1 tty-mode-set! tty-mode-set!) - (spec: 1 output-port-timeout-set! output-port-timeout-set!) - (spec: 1 s16vector-fill! s16vector-fill!) - (spec: 1 char-set-complement! char-set-complement!) - (spec: 1 fxabs fxabs) - (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 1 vector-set vector-set) - (spec: 1 s32vector-copy s32vector-copy) - (spec: 1 char-set-for-each char-set-for-each) - (spec: 1 error error) - (spec: 1 fxmin fxmin) - (spec: 1 socket-info-address socket-info-address) - (spec: 1 drop-right! drop-right!) - (spec: 1 fltan fltan) - (spec: 1 thread-group-specific thread-group-specific) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) + (spec: 1 copy-bit copy-bit) (spec: 1 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 1 thread-receive thread-receive) - (spec: 1 real-time real-time) - (spec: 1 flexp flexp) - (spec: 1 display-exception display-exception) - (spec: 1 flnumerator flnumerator) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 1 f32vector-fill! f32vector-fill!) (spec: 1 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 1 system-version-string system-version-string) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) + (spec: 1 subs16vector subs16vector) + (spec: 1 configure-command-string configure-command-string) + (spec: 1 u32vector u32vector) + (spec: 1 file-info-last-change-time file-info-last-change-time) + (spec: 1 range-exception-arg-id range-exception-arg-id) + (spec: 1 compilation-target compilation-target) + (spec: 1 make-thread-group make-thread-group) + (spec: 1 delete-file-or-directory delete-file-or-directory) + (spec: 1 table-set! table-set!) + (spec: 1 flfloor flfloor) (spec: 1 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) - (spec: 1 first-set-bit first-set-bit) - (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) (spec: 1 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 1 take take) - (spec: 1 fl> fl>) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) (spec: 1 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 1 range-exception-arguments range-exception-arguments) - (spec: 1 mutex-specific mutex-specific) - (spec: 1 file-info-creation-time file-info-creation-time) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 1 thread-group-suspend! thread-group-suspend!) + (spec: 1 user-info-shell user-info-shell) + (spec: 1 flacos flacos) + (spec: 1 open-tcp-server open-tcp-server) + (spec: 1 file-owner file-owner) (spec: 1 udp-read-subu8vector udp-read-subu8vector) - (spec: 1 network-info network-info) - (spec: 1 file-last-change-time file-last-change-time) - (spec: 1 subs8vector-fill! subs8vector-fill!) - (spec: 1 bit-field bit-field) - (spec: 1 f64vector-append f64vector-append) + (spec: 1 input-port-timeout-set! input-port-timeout-set!) (spec: 1 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 1 random-real random-real) - (spec: 1 copy-bit-field copy-bit-field) - (spec: 1 bitwise-andc1 bitwise-andc1) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) (spec: 1 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 1 subvector-move! subvector-move!) - (spec: 1 u64vector? u64vector?) - (spec: 1 u16vector->list u16vector->list) - (spec: 1 group-info? group-info?) - (spec: 1 primordial-exception-handler primordial-exception-handler) - (spec: 1 circular-list circular-list) - (spec: 1 executable-path executable-path) - (spec: 1 subf32vector subf32vector) - (spec: 1 host-info-name host-info-name) - (spec: 1 make-thread-group make-thread-group) - (spec: 1 f32vector-append f32vector-append) - (spec: 1 service-info-name service-info-name) - (spec: 1 u32vector u32vector) - (spec: 1 s64vector-copy s64vector-copy) + unterminated-process-exception? + unterminated-process-exception?) + (spec: 1 initialized-thread-exception? initialized-thread-exception?) + (spec: 1 network-info network-info) + (spec: 1 thread-resume! thread-resume!) + (spec: 1 fxandc2 fxandc2) (spec: 1 abort abort) - (spec: 1 fxwrapsquare fxwrapsquare) - (spec: 1 with-output-to-string with-output-to-string) + (spec: 1 every-bit-set? every-bit-set?) + (spec: 1 will-execute! will-execute!) + (spec: 1 length+ length+) (spec: 1 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 1 s8vector-concatenate s8vector-concatenate) - (spec: 1 vector-fold-right vector-fold-right) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 1 third third) + (spec: 1 flzero? flzero?) + (spec: 1 repl-result-history-ref repl-result-history-ref) + (spec: 1 char-set-delete! char-set-delete!) (spec: 1 thread-state-running-processor thread-state-running-processor) - (spec: 1 char-set-cursor-next char-set-cursor-next) - (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 1 end-of-char-set? end-of-char-set?) - (spec: 1 s16vector-length s16vector-length) - (spec: 1 time time) - (spec: 1 char-set-ref char-set-ref) - (spec: 1 fxnot fxnot) - (spec: 1 list->table list->table) - (spec: 1 s32vector-copy! s32vector-copy!) - (spec: 1 step step) - (spec: 1 vector-unfold-right vector-unfold-right) - (spec: 1 open-output-u8vector open-output-u8vector) - (spec: 1 socket-info-family socket-info-family) - (spec: 1 fltanh fltanh) - (spec: 1 os-exception? os-exception?) - (spec: 1 length+ length+) + (spec: 1 vector-inc! vector-inc!) + (spec: 1 flonum? flonum?) + (spec: 1 s16vector-set! s16vector-set!) + (spec: + 1 + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 1 with-output-to-vector with-output-to-vector) + (spec: 1 s8vector-length s8vector-length) + (spec: 1 bit-count bit-count) + (spec: 1 f64vector-copy! f64vector-copy!) + (spec: 1 subs8vector-move! subs8vector-move!) + (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 1 error error) + (spec: 1 char-set-size char-set-size) + (spec: 1 list->u64vector list->u64vector) + (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 1 path-directory path-directory) + (spec: 1 s64vector-concatenate s64vector-concatenate) + (spec: 1 u16vector u16vector) + (spec: 1 string-shrink! string-shrink!) + (spec: 1 fxnand fxnand) + (spec: 1 bitwise-andc1 bitwise-andc1) + (spec: 1 file-attributes file-attributes) + (spec: 1 s32vector-copy s32vector-copy) + (spec: 1 script-directory script-directory) + (spec: 1 mutex-specific mutex-specific) + (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) (spec: 1 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 1 thread-resume! thread-resume!) - (spec: 1 tenth tenth) - (spec: 1 call-with-output-string call-with-output-string) - (spec: 1 flexpm1 flexpm1) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) + (spec: 1 subvector subvector) + (spec: 1 u64vector? u64vector?) + (spec: 1 system-type-string system-type-string) (spec: 1 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 1 thread-base-priority thread-base-priority) - (spec: 1 keyword->string keyword->string) - (spec: 1 system-type system-type) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 1 readtable-case-conversion? readtable-case-conversion?) + (spec: 1 concatenate! concatenate!) + (spec: 1 f32vector-copy! f32vector-copy!) + (spec: 1 subf32vector-fill! subf32vector-fill!) (spec: 1 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) + (spec: 1 service-info? service-info?) + (spec: 1 file-info-last-access-time file-info-last-access-time) + (spec: 1 make-thread make-thread) + (spec: 1 host-info? host-info?) + (spec: 1 range-exception? range-exception?) + (spec: 1 flfinite? flfinite?) + (spec: + 1 + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 1 take take) + (spec: 1 socket-info? socket-info?) + (spec: 1 user-info-name user-info-name) + (spec: 1 flabs flabs) + (spec: 1 file-last-access-time file-last-access-time) + (spec: 1 network-info-number network-info-number) + (spec: 1 open-tcp-client open-tcp-client) + (spec: 1 readtable-max-write-length readtable-max-write-length) (spec: 1 input-port-readtable-set! input-port-readtable-set!) + (spec: 1 udp-write-subu8vector udp-write-subu8vector) (spec: 1 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) - (spec: 1 default-random-source default-random-source) - (spec: 1 read-substring read-substring) - (spec: 1 table-set! table-set!) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) (spec: 1 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 1 tenth tenth) (spec: 1 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 1 delete delete) - (spec: 1 fl>= fl>=) - (spec: 1 mutex-specific-set! mutex-specific-set!) - (spec: 1 create-symbolic-link create-symbolic-link) - (spec: 1 file-info-device file-info-device) - (spec: 1 udp-read-u8vector udp-read-u8vector) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) + (spec: 1 fxandc1 fxandc1) + (spec: 1 s16vector-fill! s16vector-fill!) + (spec: 1 thread-specific thread-specific) + (spec: 1 fourth fourth) + (spec: 1 display-exception-in-context display-exception-in-context) + (spec: 1 keyword->string keyword->string) (spec: 1 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 1 network-info-aliases network-info-aliases) - (spec: 1 file-last-modification-time file-last-modification-time) - (spec: 1 bits->vector bits->vector) - (spec: 1 subs8vector-move! subs8vector-move!) - (spec: 1 seventh seventh) - (spec: 1 u32vector-swap! u32vector-swap!) - (spec: 1 subu8vector-move! subu8vector-move!) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 1 touch touch) + (spec: 1 thread-base-priority thread-base-priority) + (spec: 1 char-set-delete char-set-delete) + (spec: 1 repl-error-port repl-error-port) + (spec: 1 string-concatenate string-concatenate) + (spec: 1 getenv getenv) + (spec: 1 s8vector-set s8vector-set) + (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 1 make-condition-variable make-condition-variable) + (spec: 1 append-reverse! append-reverse!) + (spec: 1 subs16vector-move! subs16vector-move!) + (spec: 1 with-input-from-process with-input-from-process) + (spec: 1 u32vector-set u32vector-set) + (spec: 1 continuation-capture continuation-capture) + (spec: 1 bit-swap bit-swap) + (spec: 1 s32vector-set! s32vector-set!) + (spec: 1 path-extension path-extension) + (spec: 1 char-set-union char-set-union) + (spec: 1 fxwrap* fxwrap*) + (spec: 1 link-flat link-flat) + (spec: 1 list-set list-set) + (spec: 1 help-browser help-browser) + (spec: 1 second second) (spec: 1 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 1 raise raise) - (spec: 1 bitwise-andc2 bitwise-andc2) - (spec: 1 string-shrink! string-shrink!) - (spec: 1 scheduler-exception-reason scheduler-exception-reason) - (spec: 1 print print) - (spec: 1 circular-list? circular-list?) - (spec: 1 make-f64vector make-f64vector) - (spec: 1 subf32vector-fill! subf32vector-fill!) - (spec: 1 host-info? host-info?) - (spec: 1 u16vector? u16vector?) - (spec: 1 write-file-string write-file-string) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 1 make-s32vector make-s32vector) + (spec: 1 subu32vector subu32vector) (spec: 1 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 1 list= list=) - (spec: 1 s64vector-copy! s64vector-copy!) - (spec: 1 gensym gensym) - (spec: 1 poll-point poll-point) - (spec: 1 all-bits-set? all-bits-set?) - (spec: 1 s8vector-copy s8vector-copy) - (spec: 1 thread-state-running? thread-state-running?) - (spec: 1 fxandc1 fxandc1) - (spec: 1 vector-every vector-every) - (spec: 1 char-set-copy char-set-copy) - (spec: 1 time->seconds time->seconds) - (spec: 1 fxnand fxnand) - (spec: 1 list->u16vector list->u16vector) - (spec: 1 char-set-intersection char-set-intersection) - (spec: 1 error-exception-message error-exception-message) - (spec: 1 s32vector-fill! s32vector-fill!) - (spec: 1 thread-group-suspend! thread-group-suspend!) - (spec: 1 open-output-vector open-output-vector) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 1 thread-thread-group thread-thread-group) + (spec: 1 type-exception? type-exception?) + (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 1 bitwise-orc1 bitwise-orc1) + (spec: 1 u64vector-ref u64vector-ref) + (spec: 1 read-file-string-list read-file-string-list) + (spec: 1 fixnum? fixnum?) + (spec: 1 u16vector-set! u16vector-set!) + (spec: 1 condition-variable-specific condition-variable-specific) + (spec: 1 random-source-state-ref random-source-state-ref) + (spec: 1 file-info-mode file-info-mode) + (spec: 1 u8vector-fill! u8vector-fill!) + (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 1 not-pair? not-pair?) + (spec: 1 table-for-each table-for-each) + (spec: 1 fldenominator fldenominator) + (spec: 1 open-u8vector-pipe open-u8vector-pipe) + (spec: 1 thread-group->thread-vector thread-group->thread-vector) + (spec: 1 foreign-release! foreign-release!) (spec: 1 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 1 fltruncate fltruncate) - (spec: 1 socket-info-port-number socket-info-port-number) - (spec: 1 thread-send thread-send) - (spec: 1 fourth fourth) - (spec: 1 os-exception-code os-exception-code) - (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 1 vector-shrink! vector-shrink!) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: 1 file-size file-size) (spec: 1 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: 1 call-with-output-u8vector call-with-output-u8vector) - (spec: 1 flexpt flexpt) - (spec: 1 third third) - (spec: 1 repl-highlight-source-level repl-highlight-source-level) - (spec: 1 flodd? flodd?) - (spec: 1 readtable-case-conversion? readtable-case-conversion?) - (spec: 1 fixnum->flonum fixnum->flonum) + input-port-characters-buffered + input-port-characters-buffered) + (spec: 1 ninth ninth) + (spec: 1 object->serial-number object->serial-number) + (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 1 flnan? flnan?) (spec: 1 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 1 take-right take-right) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 1 user-info? user-info?) + (spec: 1 output-port-byte-position output-port-byte-position) + (spec: 1 char-set char-set) + (spec: 1 fx= fx=) + (spec: 1 thread-name thread-name) (spec: 1 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) - (spec: 1 flabs flabs) - (spec: 1 readtable-start-syntax readtable-start-syntax) + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 1 s64vector-set s64vector-set) + (spec: 1 address-info-socket-info address-info-socket-info) + (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) + (spec: 1 flsqrt flsqrt) + (spec: 1 s16vector-swap! s16vector-swap!) + (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 1 fxior fxior) + (spec: 1 list->f64vector list->f64vector) + (spec: 1 will? will?) + (spec: 1 s8vector-ref s8vector-ref) + (spec: 1 append-reverse append-reverse) + (spec: 1 subs32vector-move! subs32vector-move!) + (spec: 1 f64vector-length f64vector-length) + (spec: 1 bit-set? bit-set?) + (spec: 1 u32vector-ref u32vector-ref) + (spec: 1 path-expand path-expand) + (spec: 1 char-set-unfold! char-set-unfold!) + (spec: 1 fxsquare fxsquare) + (spec: 1 acosh acosh) + (spec: 1 s32vector? s32vector?) + (spec: 1 process-pid process-pid) (spec: 1 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 1 range-exception? range-exception?) - (spec: 1 file-info-group file-info-group) - (spec: 1 mutex-state mutex-state) - (spec: 1 u8vector-ref u8vector-ref) - (spec: 1 udp-source-socket-info udp-source-socket-info) - (spec: 1 file-mode file-mode) - (spec: 1 network-info-name network-info-name) + expression-parsing-exception-kind + expression-parsing-exception-kind) + (spec: 1 make-s16vector make-s16vector) + (spec: 1 started-thread-exception? started-thread-exception?) + (spec: 1 string-prefix-length string-prefix-length) + (spec: 1 type-exception-type-id type-exception-type-id) + (spec: 1 random-source-make-reals random-source-make-reals) + (spec: 1 file-device file-device) + (spec: 1 subu64vector subu64vector) + (spec: 1 bitwise-not bitwise-not) + (spec: 1 readtable-comment-handler readtable-comment-handler) + (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 1 integer-sqrt integer-sqrt) + (spec: 1 unbound-global-exception? unbound-global-exception?) + (spec: 1 protocol-info protocol-info) + (spec: 1 f32vector-length f32vector-length) + (spec: 1 set-box! set-box!) + (spec: 1 string=?-hash string=?-hash) + (spec: 1 u16vector-set u16vector-set) (spec: 1 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 1 configure-command-string configure-command-string) - (spec: 1 f64vector-copy f64vector-copy) - (spec: 1 bit-field-clear bit-field-clear) - (spec: 1 u64vector->list u64vector->list) - (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) - (spec: 1 module-not-found-exception? module-not-found-exception?) - (spec: 1 bitwise-eqv bitwise-eqv) - (spec: 1 write-file-string-list write-file-string-list) - (spec: 1 println println) - (spec: 1 string-suffix-ci? string-suffix-ci?) - (spec: 1 clear-bit-field clear-bit-field) - (spec: 1 u16vector-concatenate u16vector-concatenate) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 1 u8vector-copy! u8vector-copy!) + (spec: 1 unbreak unbreak) + (spec: 1 take-right take-right) (spec: 1 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 1 service-info-protocol service-info-protocol) - (spec: 1 compilation-target compilation-target) - (spec: 1 f32vector-copy f32vector-copy) - (spec: 1 host-name host-name) - (spec: 1 atanh atanh) - (spec: 1 make-u16vector make-u16vector) - (spec: 1 fxzero? fxzero?) - (spec: 1 s64vector-fill! s64vector-fill!) - (spec: 1 string-ci=?-hash string-ci=?-hash) - (spec: 1 subf32vector-move! subf32vector-move!) - (spec: 1 u32vector-append u32vector-append) - (spec: 1 s8vector-copy! s8vector-copy!) - (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 1 will-execute! will-execute!) - (spec: 1 with-output-to-vector with-output-to-vector) - (spec: 1 s16vector-ref s16vector-ref) - (spec: 1 fxbit-count fxbit-count) - (spec: 1 vector-inc! vector-inc!) - (spec: 1 char-set-delete! char-set-delete!) - (spec: 1 fxorc1 fxorc1) - (spec: 1 error-exception-parameters error-exception-parameters) - (spec: 1 char-set-unfold char-set-unfold) - (spec: 1 list->u32vector list->u32vector) - (spec: 1 s32vector-length s32vector-length) - (spec: 1 socket-info? socket-info?) - (spec: 1 thread-interrupt! thread-interrupt!) - (spec: 1 time? time?) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) + (spec: 1 flcosh flcosh) (spec: 1 - cfun-conversion-exception-code - cfun-conversion-exception-code) - (spec: 1 thread-sleep! thread-sleep!) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) + (spec: 1 open-u8vector open-u8vector) + (spec: 1 thread-interrupt! thread-interrupt!) + (spec: 1 foreign-address foreign-address) + (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 1 input-port-char-position input-port-char-position) (spec: 1 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) (spec: 1 terminated-thread-exception-arguments terminated-thread-exception-arguments) - (spec: 1 flfinite? flfinite?) - (spec: 1 directory-files directory-files) - (spec: 1 call-with-output-vector call-with-output-vector) - (spec: - 1 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) + (spec: 1 car+cdr car+cdr) + (spec: 1 flmin flmin) + (spec: 1 remq remq) + (spec: 1 user-info-uid user-info-uid) + (spec: 1 thread-start! thread-start!) + (spec: 1 length-mismatch-exception? length-mismatch-exception?) + (spec: 1 fx<= fx<=) + (spec: 1 s16vector s16vector) + (spec: 1 void void) + (spec: 1 gc-report-set! gc-report-set!) + (spec: 1 s64vector-swap! s64vector-swap!) + (spec: 1 untrace untrace) + (spec: 1 open-input-process open-input-process) (spec: 1 keyword-expected-exception-arguments keyword-expected-exception-arguments) - (spec: 1 replace-bit-field replace-bit-field) - (spec: - 1 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 1 open-directory open-directory) - (spec: 1 system-version system-version) - (spec: 1 defer-user-interrupts defer-user-interrupts) + (spec: 1 flsinh flsinh) + (spec: 1 vector->bits vector->bits) + (spec: 1 thread-state-waiting-for thread-state-waiting-for) + (spec: 1 char-set-diff+intersection char-set-diff+intersection) + (spec: 1 fxif fxif) + (spec: 1 eq?-hash eq?-hash) + (spec: 1 will-testator will-testator) + (spec: 1 string-contains-ci string-contains-ci) (spec: 1 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) - (spec: 1 delete-directory delete-directory) - (spec: 1 compile-file compile-file) - (spec: 1 flacos flacos) - (spec: 1 range-exception-arg-id range-exception-arg-id) - (spec: 1 u8vector-set u8vector-set) - (spec: 1 file-info-inode file-info-inode) - (spec: 1 link-incremental link-incremental) - (spec: 1 mutex-unlock! mutex-unlock!) - (spec: 1 read-all read-all) - (spec: 1 udp-write-subu8vector udp-write-subu8vector) - (spec: 1 file-number-of-links file-number-of-links) - (spec: 1 network-info-number network-info-number) - (spec: 1 substring-fill! substring-fill!) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 1 s8vector-shrink! s8vector-shrink!) (spec: 1 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 1 bit-count bit-count) - (spec: 1 f64vector->list f64vector->list) - (spec: 1 random-integer random-integer) - (spec: 1 copy-bit copy-bit) - (spec: 1 fifth fifth) - (spec: 1 sinh sinh) - (spec: 1 bitwise-fold bitwise-fold) - (spec: 1 subvector-fill! subvector-fill!) - (spec: 1 string-suffix-length string-suffix-length) - (spec: 1 u16vector u16vector) - (spec: 1 write-file-u8vector write-file-u8vector) + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) + (spec: 1 u64vector-concatenate u64vector-concatenate) + (spec: 1 cons* cons*) + (spec: 1 subs32vector-fill! subs32vector-fill!) + (spec: 1 any any) + (spec: 1 f64vector-set f64vector-set) + (spec: 1 timeout->time timeout->time) + (spec: 1 fxorc1 fxorc1) + (spec: 1 list->u8vector list->u8vector) + (spec: 1 char-set-xor char-set-xor) + (spec: 1 s32vector-swap! s32vector-swap!) + (spec: 1 u16vector-copy! u16vector-copy!) + (spec: 1 string-prefix-ci? string-prefix-ci?) + (spec: 1 expression-parsing-exception? expression-parsing-exception?) + (spec: 1 random-source-make-integers random-source-make-integers) + (spec: 1 cosh cosh) + (spec: 1 inactive-thread-exception? inactive-thread-exception?) (spec: 1 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 1 proper-list? proper-list?) - (spec: 1 make-thread make-thread) - (spec: 1 service-info-aliases service-info-aliases) - (spec: 1 f32vector->list f32vector->list) - (spec: 1 subf64vector subf64vector) - (spec: 1 s64vector-length s64vector-length) - (spec: 1 every every) - (spec: 1 fxwrapquotient fxwrapquotient) - (spec: 1 touch touch) - (spec: 1 with-output-to-process with-output-to-process) + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 1 module-search-order-reset! module-search-order-reset!) (spec: 1 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 1 s8vector-fill! s8vector-fill!) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 1 subu32vector-move! subu32vector-move!) + (spec: 1 integer-nth-root integer-nth-root) + (spec: 1 bitwise-if bitwise-if) + (spec: 1 fl+ fl+) + (spec: 1 u8vector->list u8vector->list) + (spec: 1 u32vector-copy u32vector-copy) + (spec: 1 make-u64vector make-u64vector) (spec: 1 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 1 tty-type-set! tty-type-set!) - (spec: 1 vector-fold vector-fold) - (spec: 1 s16vector-set s16vector-set) - (spec: 1 char-set-cursor char-set-cursor) - (spec: 1 fxarithmetic-shift fxarithmetic-shift) - (spec: 1 stack-overflow-exception? stack-overflow-exception?) - (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 1 partition! partition!) - (spec: 1 char-set-map char-set-map) - (spec: 1 error-exception? error-exception?) - (spec: 1 fxnor fxnor) - (spec: 1 list->u64vector list->u64vector) - (spec: 1 reverse! reverse!) - (spec: 1 thread-group? thread-group?) - (spec: 1 flzero? flzero?) - (spec: 1 open-process open-process) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) + (spec: 1 bit-field-replace bit-field-replace) + (spec: 1 f32vector-set f32vector-set) + (spec: 1 u8vector-shrink! u8vector-shrink!) + (spec: 1 current-exception-handler current-exception-handler) + (spec: 1 symbol-hash symbol-hash) + (spec: 1 file-info-owner file-info-owner) + (spec: 1 take! take!) + (spec: 1 flasinh flasinh) (spec: 1 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 1 user-info user-info) - (spec: 1 os-exception-procedure os-exception-procedure) - (spec: 1 thread-specific thread-specific) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 1 call-with-input-string call-with-input-string) + (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 1 thread-init! thread-init!) + (spec: 1 open-vector open-vector) + (spec: 1 udp-write-u8vector udp-write-u8vector) + (spec: 1 network-info? network-info?) + (spec: 1 datum-parsing-exception? datum-parsing-exception?) + (spec: 1 flinteger? flinteger?) + (spec: 1 iota iota) + (spec: 1 object->u8vector object->u8vector) + (spec: 1 remove! remove!) + (spec: 1 thread-priority thread-priority) (spec: 1 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 1 vector-unfold vector-unfold) - (spec: 1 tcp-service-unregister! tcp-service-unregister!) - (spec: 1 flfloor flfloor) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 1 output-port-column output-port-column) + (spec: 1 char-set->string char-set->string) + (spec: 1 thread-specific-set! thread-specific-set!) + (spec: 1 string-ci=?-hash string-ci=?-hash) + (spec: 1 trace trace) + (spec: 1 fxzero? fxzero?) + (spec: 1 permission-denied-exception? permission-denied-exception?) + (spec: 1 s64vector-shrink! s64vector-shrink!) + (spec: 1 thread-base-priority-set! thread-base-priority-set!) + (spec: 1 open-input-vector open-input-vector) + (spec: 1 vector-any vector-any) + (spec: 1 fxbit-count fxbit-count) + (spec: 1 char-set-difference! char-set-difference!) + (spec: 1 tty? tty?) (spec: 1 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 1 s8vector-set! s8vector-set!) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 subu16vector subu16vector) + (spec: 1 u64vector-append u64vector-append) + (spec: 1 f64vector-ref f64vector-ref) + (spec: 1 step-level-set! step-level-set!) + (spec: 1 fxodd? fxodd?) + (spec: 1 path-normalize path-normalize) + (spec: 1 every every) + (spec: 1 char-set-union! char-set-union!) + (spec: 1 u16vector-copy u16vector-copy) + (spec: 1 string-suffix? string-suffix?) + (spec: 1 seconds->time seconds->time) + (spec: 1 error-exception? error-exception?) (spec: 1 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 1 repl-output-port repl-output-port) - (spec: 1 display-procedure-environment display-procedure-environment) - (spec: 1 flonum? flonum?) - (spec: 1 open-dummy open-dummy) - (spec: 1 readtable-comment-handler readtable-comment-handler) - (spec: 1 noncontinuable-exception? noncontinuable-exception?) - (spec: 1 thread thread) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 1 process-status process-status) + (spec: 1 u8vector u8vector) + (spec: 1 module-search-order-add! module-search-order-add!) (spec: 1 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) + (spec: 1 cpu-time cpu-time) (spec: 1 unbound-serial-number-exception-arguments unbound-serial-number-exception-arguments) - (spec: - 1 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 1 tanh tanh) + (spec: 1 noncontinuable-exception? noncontinuable-exception?) + (spec: 1 bitwise-for-each bitwise-for-each) + (spec: 1 fl* fl*) + (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) + (spec: 1 subf64vector-move! subf64vector-move!) + (spec: 1 make-u32vector make-u32vector) + (spec: 1 bit-field-every? bit-field-every?) + (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 1 f32vector-ref f32vector-ref) + (spec: 1 protocol-info-name protocol-info-name) + (spec: 1 u32vector-concatenate u32vector-concatenate) + (spec: 1 mutex? mutex?) + (spec: 1 u8vector-set! u8vector-set!) + (spec: 1 file-info-number-of-links file-info-number-of-links) + (spec: 1 write-subu8vector write-subu8vector) + (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 1 flasin flasin) + (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) + (spec: 1 call-with-input-process call-with-input-process) (spec: 1 invalid-hash-number-exception? invalid-hash-number-exception?) - (spec: 1 flacosh flacosh) - (spec: 1 uninterned-keyword? uninterned-keyword?) - (spec: 1 u8vector-set! u8vector-set!) - (spec: 1 mutex? mutex?) - (spec: 1 file-info-last-access-time file-info-last-access-time) - (spec: 1 udp-write-u8vector udp-write-u8vector) - (spec: 1 network-info? network-info?) + (spec: 1 tanh tanh) + (spec: 1 open-udp open-udp) (spec: 1 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 1 file-owner file-owner) - (spec: 1 substring-move! substring-move!) - (spec: 1 u64vector-concatenate u64vector-concatenate) - (spec: 1 bit-field-replace bit-field-replace) - (spec: 1 conjugate conjugate) - (spec: 1 f64vector-fill! f64vector-fill!) - (spec: 1 random-source-make-reals random-source-make-reals) - (spec: 1 module-search-order-add! module-search-order-add!) - (spec: 1 bitwise-for-each bitwise-for-each) - (spec: 1 file-attributes file-attributes) - (spec: 1 u8vector u8vector) - (spec: 1 string-suffix-length-ci string-suffix-length-ci) - (spec: 1 u16vector-copy! u16vector-copy!) - (spec: 1 script-file script-file) - (spec: 1 subf64vector-fill! subf64vector-fill!) - (spec: 1 make-u64vector make-u64vector) - (spec: 1 u32vector-copy u32vector-copy) - (spec: 1 concatenate concatenate) - (spec: 1 f32vector-fill! f32vector-fill!) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) + (spec: 1 unbound-global-exception-code unbound-global-exception-code) (spec: 1 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 1 trace trace) + datum-parsing-exception-readenv + datum-parsing-exception-readenv) (spec: 1 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) - (spec: 1 every-bit-set? every-bit-set?) - (spec: 1 tty? tty?) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 1 flinfinite? flinfinite?) + (spec: 1 file-number-of-links file-number-of-links) + (spec: 1 object->string object->string) + (spec: 1 terminated-thread-exception? terminated-thread-exception?) + (spec: 1 user-name user-name) + (spec: 1 output-port-char-position output-port-char-position) + (spec: 1 char-set->list char-set->list) + (spec: 1 fxxor fxxor) (spec: 1 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 1 get-output-vector get-output-vector) - (spec: 1 s8vector-length s8vector-length) - (spec: 1 will? will?) - (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 1 fxeqv fxeqv) - (spec: 1 s16vector-set! s16vector-set!) - (spec: 1 path-extension path-extension) - (spec: 1 list->u8vector list->u8vector) - (spec: 1 char-set-union char-set-union) - (spec: 1 fxpositive? fxpositive?) - (spec: 1 s32vector-ref s32vector-ref) - (spec: 1 string->char-set string->char-set) - (spec: 1 open-string open-string) + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 1 s64vector-length s64vector-length) (spec: 1 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) + (spec: 1 open-input-u8vector open-input-u8vector) + (spec: 1 keyword-expected-exception? keyword-expected-exception?) (spec: 1 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 1 fold fold) - (spec: 1 timeout->time timeout->time) - (spec: 1 output-port-byte-position output-port-byte-position) - (spec: 1 char-set char-set) - (spec: 1 fx+ fx+) + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) + (spec: 1 s16vector-set s16vector-set) + (spec: 1 char-set-difference char-set-difference) + (spec: 1 list->char-set list->char-set) + (spec: 1 poll-point poll-point) + (spec: 1 thread-state-waiting? thread-state-waiting?) + (spec: 1 string-prefix-length-ci string-prefix-length-ci) + (spec: 1 tty-mode-set! tty-mode-set!) + (spec: 1 u32vector? u32vector?) + (spec: 1 f64vector-shrink! f64vector-shrink!) + (spec: 1 bitwise-and bitwise-and) + (spec: 1 list->s8vector list->s8vector) + (spec: 1 fxmodulo fxmodulo) + (spec: 1 group-info group-info) + (spec: 1 ->char-set ->char-set) + (spec: 1 circular-list circular-list) + (spec: 1 primordial-exception-handler primordial-exception-handler) + (spec: 1 s8vector? s8vector?) + (spec: 1 raise raise) + (spec: 1 file-exists-exception? file-exists-exception?) + (spec: 1 u64vector-swap! u64vector-swap!) + (spec: 1 input-port-column input-port-column) + (spec: 1 read-substring read-substring) + (spec: 1 fl- fl-) + (spec: 1 default-random-source default-random-source) (spec: 1 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 1 thread-specific-set! thread-specific-set!) - (spec: 1 remove remove) + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) + (spec: 1 subu64vector-fill! subu64vector-fill!) + (spec: 1 serial-number->object serial-number->object) + (spec: 1 f32vector-shrink! f32vector-shrink!) + (spec: 1 make-table make-table) + (spec: 1 subs64vector subs64vector) + (spec: 1 file-info-type file-info-type) + (spec: 1 create-symbolic-link create-symbolic-link) + (spec: 1 mutex-name mutex-name) + (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) (spec: 1 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 1 terminated-thread-exception? terminated-thread-exception?) - (spec: 1 flhypot flhypot) - (spec: 1 user-info-gid user-info-gid) - (spec: 1 user-info? user-info?) - (spec: 1 open-event-queue open-event-queue) - (spec: 1 keyword-expected-exception? keyword-expected-exception?) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 1 call-with-input-vector call-with-input-vector) + (spec: 1 fl>= fl>=) + (spec: 1 table-ref table-ref) + (spec: 1 socket-info-port-number socket-info-port-number) + (spec: 1 fltruncate fltruncate) + (spec: 1 thread-group-specific thread-group-specific) + (spec: 1 uncaught-exception? uncaught-exception?) (spec: 1 - thread-group->thread-group-list - thread-group->thread-group-list) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 1 null-list? null-list?) (spec: 1 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: 1 flexpt flexpt) + (spec: 1 thread-quantum-set! thread-quantum-set!) + (spec: 1 char-set-adjoin! char-set-adjoin!) + (spec: 1 foreign? foreign?) + (spec: 1 vector-cas! vector-cas!) + (spec: 1 path-strip-extension path-strip-extension) + (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 1 list-tabulate list-tabulate) + (spec: 1 rename-file rename-file) + (spec: 1 flodd? flodd?) + (spec: 1 s16vector->list s16vector->list) (spec: 1 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) - (spec: 1 take! take!) + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 1 char-set-filter char-set-filter) + (spec: 1 fxand fxand) + (spec: 1 s64vector? s64vector?) + (spec: 1 tty-history-set! tty-history-set!) + (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) + (spec: 1 protocol-info? protocol-info?) + (spec: 1 f64vector-set! f64vector-set!) + (spec: 1 subs8vector subs8vector) + (spec: 1 bits->vector bits->vector) + (spec: 1 u32vector-swap! u32vector-swap!) + (spec: 1 with-input-from-port with-input-from-port) + (spec: 1 thread-terminate! thread-terminate!) + (spec: 1 char-set-xor! char-set-xor!) + (spec: 1 fxmin fxmin) + (spec: 1 s32vector-append s32vector-append) + (spec: 1 pretty-print pretty-print) + (spec: 1 s8vector-swap! s8vector-swap!) + (spec: 1 make-f64vector make-f64vector) + (spec: 1 group-info-name group-info-name) + (spec: 1 string-set string-set) + (spec: 1 subu8vector-fill! subu8vector-fill!) (spec: 1 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 1 u64vector-shrink! u64vector-shrink!) + (spec: 1 bitwise-xor bitwise-xor) + (spec: 1 read-file-string read-file-string) + (spec: 1 fl+* fl+*) + (spec: 1 input-port-readtable input-port-readtable) + (spec: 1 system-stamp system-stamp) + (spec: 1 unbound-key-exception? unbound-key-exception?) + (spec: 1 u16vector? u16vector?) + (spec: 1 f32vector-set! f32vector-set!) + (spec: 1 condition-variable-signal! condition-variable-signal!) + (spec: 1 host-info-aliases host-info-aliases) + (spec: 1 file-info-size file-info-size) + (spec: 1 current-readtable current-readtable) + (spec: 1 mutex-lock! mutex-lock!) (spec: 1 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 1 delete-file-or-directory delete-file-or-directory) - (spec: 1 thread-priority thread-priority) - (spec: 1 u8vector-shrink! u8vector-shrink!) - (spec: 1 uninterned-symbol? uninterned-symbol?) - (spec: 1 range-exception-procedure range-exception-procedure) - (spec: 1 current-directory current-directory) - (spec: 1 file-info-last-change-time file-info-last-change-time) - (spec: 1 subu16vector subu16vector) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 1 table-copy table-copy) + (spec: 1 call-with-input-u8vector call-with-input-u8vector) + (spec: 1 fl> fl>) + (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 1 open-output-bytevector open-output-bytevector) + (spec: 1 socket-info-family socket-info-family) + (spec: 1 fltanh fltanh) + (spec: 1 thread-group->thread-list thread-group->thread-list) + (spec: 1 uncaught-exception-reason uncaught-exception-reason) + (spec: 1 ucs-range->char-set! ucs-range->char-set!) + (spec: 1 dead-end dead-end) + (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) + (spec: 1 flexpm1 flexpm1) (spec: 1 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 1 u64vector u64vector) - (spec: 1 f64vector-concatenate f64vector-concatenate) - (spec: 1 bit-field-any? bit-field-any?) - (spec: 1 u8vector->list u8vector->list) - (spec: 1 module-search-order-reset! module-search-order-reset!) - (spec: 1 bitwise-if bitwise-if) - (spec: 1 copy-file copy-file) - (spec: 1 file-creation-time file-creation-time) - (spec: 1 string-suffix? string-suffix?) - (spec: 1 u16vector-append u16vector-append) - (spec: 1 make-mutex make-mutex) - (spec: 1 subf64vector-move! subf64vector-move!) - (spec: 1 service-info-port-number service-info-port-number) - (spec: 1 f32vector-concatenate f32vector-concatenate) - (spec: 1 concatenate! concatenate!) - (spec: 1 make-tls-context make-tls-context) - (spec: 1 u32vector->list u32vector->list) - (spec: 1 fxxor fxxor) - (spec: 1 acosh acosh) - (spec: 1 s64vector-ref s64vector-ref) - (spec: 1 with-output-to-u8vector with-output-to-u8vector) + display-continuation-environment + display-continuation-environment) + (spec: 1 open-vector-pipe open-vector-pipe) + (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 1 char-set-adjoin char-set-adjoin) + (spec: 1 path-strip-directory path-strip-directory) + (spec: 1 string->uninterned-symbol string->uninterned-symbol) + (spec: 1 fxwrapabs fxwrapabs) + (spec: 1 address-info-protocol address-info-protocol) + (spec: 1 s64vector->list s64vector->list) + (spec: 1 test-bit-field? test-bit-field?) + (spec: 1 keyword? keyword?) + (spec: 1 drop-right drop-right) + (spec: 1 output-port-line output-port-line) + (spec: 1 char-set-every char-set-every) + (spec: 1 fxabs fxabs) + (spec: 1 list->f32vector list->f32vector) + (spec: 1 eqv?-hash eqv?-hash) + (spec: 1 s16vector-copy s16vector-copy) (spec: 1 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 1 port-settings-set! port-settings-set!) - (spec: 1 any any) - (spec: 1 thread-priority-set! thread-priority-set!) - (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 1 thread-state-waiting-for thread-state-waiting-for) - (spec: 1 s16vector-shrink! s16vector-shrink!) - (spec: 1 char-set-delete char-set-delete) - (spec: 1 step-level-set! step-level-set!) - (spec: 1 fxodd? fxodd?) - (spec: 1 path-directory path-directory) - (spec: 1 char-set-size char-set-size) - (spec: 1 s32vector-set s32vector-set) - (spec: 1 thread-init! thread-init!) - (spec: 1 user-info-home user-info-home) - (spec: 1 open-string-pipe open-string-pipe) - (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 1 fold-right fold-right) - (spec: 1 thread-start! thread-start!) - (spec: 1 length-mismatch-exception? length-mismatch-exception?) + thread-state-abnormally-terminated? + thread-state-abnormally-terminated?) + (spec: 1 make-bitwise-generator make-bitwise-generator) + (spec: 1 s8vector s8vector) + (spec: 1 append! append!) + (spec: 1 protocol-info-number protocol-info-number) + (spec: 1 subs64vector-move! subs64vector-move!) + (spec: 1 bit-field-set bit-field-set) + (spec: 1 f64vector? f64vector?) + (spec: 1 thread-suspend! thread-suspend!) (spec: 1 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: 1 iota iota) - (spec: 1 call/cc call/cc) - (spec: 1 flilogb flilogb) - (spec: 1 thread-base-priority-set! thread-base-priority-set!) - (spec: 1 open-file open-file) - (spec: 1 repl-result-history-ref repl-result-history-ref) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 1 fxremainder fxremainder) + (spec: 1 s32vector->list s32vector->list) + (spec: 1 type-exception-procedure type-exception-procedure) + (spec: 1 group-info-members group-info-members) + (spec: 1 arithmetic-shift arithmetic-shift) + (spec: 1 make-root-thread make-root-thread) + (spec: 1 subu8vector subu8vector) + (spec: 1 u64vector-length u64vector-length) + (spec: 1 bitwise-nor bitwise-nor) + (spec: 1 file-group file-group) (spec: 1 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 1 integer-length integer-length) - (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) + unbound-global-exception-variable + unbound-global-exception-variable) (spec: 1 - unbound-serial-number-exception? - unbound-serial-number-exception?) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 1 fl< fl<) + (spec: 1 process-times process-times) + (spec: 1 u16vector-ref u16vector-ref) + (spec: 1 condition-variable-name condition-variable-name) + (spec: 1 host-info-addresses host-info-addresses) + (spec: 1 f32vector? f32vector?) + (spec: 1 make-will make-will) + (spec: 1 random-source-randomize! random-source-randomize!) + (spec: 1 current-processor current-processor) + (spec: 1 u8vector-copy u8vector-copy) + (spec: 1 box? box?) + (spec: 1 file-inode file-inode) + (spec: 1 table->list table->list) + (spec: 1 xcons xcons) + (spec: 1 flcos flcos) (spec: 1 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) - (spec: 1 flasin flasin) + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: 1 call-with-output-process call-with-output-process) (spec: 1 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 1 table-copy table-copy) - (spec: 1 u8vector-swap! u8vector-swap!) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 1 sixth sixth) (spec: 1 - file-info-last-modification-time - file-info-last-modification-time) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 1 ucs-range->char-set ucs-range->char-set) (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 1 file-size file-size) - (spec: 1 datum-parsing-exception? datum-parsing-exception?) - (spec: 1 subu16vector-fill! subu16vector-fill!) - (spec: 1 cons* cons*) - (spec: 1 bit-field-reverse bit-field-reverse) - (spec: 1 u64vector-copy! u64vector-copy!) + (spec: 1 filter! filter!) + (spec: 1 flmax flmax) (spec: 1 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 1 file-device file-device) - (spec: 1 cpu-time cpu-time) - (spec: 1 bitwise-ior bitwise-ior) - (spec: 1 module-whitelist-add! module-whitelist-add!) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) + (spec: 1 thread-mailbox-next thread-mailbox-next) + (spec: 1 fx< fx<) + (spec: 1 char-set-complement char-set-complement) + (spec: 1 string->keyword string->keyword) + (spec: 1 path-strip-volume path-strip-volume) + (spec: 1 address-info-family address-info-family) + (spec: 1 char-set<= char-set<=) + (spec: 1 s64vector s64vector) + (spec: 1 flsin flsin) + (spec: 1 keyword-hash keyword-hash) + (spec: 1 drop drop) (spec: 1 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 1 second second) + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 1 list->char-set! list->char-set!) + (spec: 1 fxfirst-set-bit fxfirst-set-bit) + (spec: 1 output-port-readtable-set! output-port-readtable-set!) + (spec: 1 char-set-fold char-set-fold) + (spec: 1 s16vector-concatenate s16vector-concatenate) + (spec: 1 string-contains string-contains) + (spec: 1 with-input-from-string with-input-from-string) + (spec: 1 subs32vector subs32vector) + (spec: 1 u32vector-length u32vector-length) + (spec: 1 setenv setenv) + (spec: 1 bit-field-rotate bit-field-rotate) + (spec: 1 continuation-graft continuation-graft) + (spec: 1 f64vector-swap! f64vector-swap!) (spec: 1 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 1 heap-overflow-exception? heap-overflow-exception?) - (spec: 1 string-swap! string-swap!) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 1 fxquotient fxquotient) + (spec: 1 s32vector-shrink! s32vector-shrink!) + (spec: 1 thread-yield! thread-yield!) + (spec: 1 type-exception-arguments type-exception-arguments) + (spec: 1 extract-bit-field extract-bit-field) + (spec: 1 command-args command-args) (spec: 1 subu32vector-fill! subu32vector-fill!) - (spec: 1 subs16vector subs16vector) - (spec: 1 u16vector-length u16vector-length) - (spec: 1 u32vector-fill! u32vector-fill!) - (spec: 1 u8vector->object u8vector->object) (spec: 1 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 1 s64vector-set s64vector-set) - (spec: 1 permission-denied-exception? permission-denied-exception?) - (spec: 1 string->keyword string->keyword) - (spec: 1 s8vector-ref s8vector-ref) - (spec: 1 main main) - (spec: 1 any-bit-set? any-bit-set?) - (spec: 1 string-contains string-contains) - (spec: 1 s16vector-swap! s16vector-swap!) - (spec: 1 fxfirst-set-bit fxfirst-set-bit) - (spec: 1 list->bits list->bits) - (spec: 1 char-set-difference! char-set-difference!) - (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 1 vector-any vector-any) - (spec: 1 fxremainder fxremainder) - (spec: 1 s32vector-set! s32vector-set!) - (spec: 1 char-set-xor char-set-xor) - (spec: 1 with-exception-handler with-exception-handler) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) + (spec: 1 bitwise-nand bitwise-nand) + (spec: 1 create-directory create-directory) + (spec: 1 r7rs-raise r7rs-raise) + (spec: 1 u64vector-fill! u64vector-fill!) + (spec: + 1 + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 1 integer-length integer-length) + (spec: 1 fl/ fl/) + (spec: 1 read-file-u8vector read-file-u8vector) + (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) (spec: 1 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 1 user-info-name user-info-name) - (spec: 1 open-tcp-client open-tcp-client) - (spec: 1 thread-group->thread-list thread-group->thread-list) - (spec: 1 fx< fx<) - (spec: 1 output-port-column output-port-column) - (spec: 1 char-set->string char-set->string) - (spec: 1 thread-state thread-state) - (spec: 1 remq remq) - (spec: 1 flinfinite? flinfinite?) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) (spec: 1 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) - (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 1 keyword? keyword?) - (spec: 1 test-bit-field? test-bit-field?) + condition-variable-specific-set! + condition-variable-specific-set!) + (spec: 1 f32vector-swap! f32vector-swap!) + (spec: 1 u8vector-concatenate u8vector-concatenate) + (spec: 1 random-source-state-set! random-source-state-set!) + (spec: 1 box box) + (spec: 1 current-thread current-thread) + (spec: 1 file-info? file-info?) + (spec: 1 flceiling flceiling) (spec: 1 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 1 unbox unbox) - (spec: 1 fixnum? fixnum?) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) (spec: 1 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 1 flasinh flasinh) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 1 table-length table-length) + (spec: 1 open-output-process open-output-process) + (spec: 1 thread-group-name thread-group-name) + (spec: 1 input-port-byte-position input-port-byte-position) + (spec: 1 udp-destination-set! udp-destination-set!) + (spec: 1 file-type file-type) + (spec: 1 deadlock-exception? deadlock-exception?) + (spec: 1 fllog1p fllog1p) + (spec: 1 remove remove) (spec: 1 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 1 fx- fx-) + (spec: 1 thread-priority-boost thread-priority-boost) + (spec: 1 char-set-any char-set-any) + (spec: 1 string->char-set! string->char-set!) (spec: 1 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: 1 u8vector? u8vector?) - (spec: 1 current-exception-handler current-exception-handler) - (spec: 1 file-info-mode file-info-mode) - (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 1 file-type file-type) - (spec: 1 unbound-global-exception-code unbound-global-exception-code) - (spec: 1 u64vector-append u64vector-append) - (spec: 1 subu16vector-move! subu16vector-move!) - (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 1 bit-field-every? bit-field-every?) - (spec: 1 f64vector-copy! f64vector-copy!) - (spec: 1 random-source-make-integers random-source-make-integers) - (spec: 1 cosh cosh) - (spec: 1 module-whitelist-reset! module-whitelist-reset!) - (spec: 1 bitwise-merge bitwise-merge) - (spec: 1 u8vector-append u8vector-append) - (spec: 1 u16vector-copy u16vector-copy) - (spec: 1 process-pid process-pid) - (spec: 1 script-directory script-directory) - (spec: 1 help help) - (spec: 1 protocol-info protocol-info) - (spec: 1 make-u32vector make-u32vector) - (spec: 1 identity identity) - (spec: 1 f32vector-copy! f32vector-copy!) - (spec: 1 service-info? service-info?) - (spec: 1 subs16vector-fill! subs16vector-fill!) + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) (spec: 1 s64vector-set! s64vector-set!) - (spec: 1 u32vector-concatenate u32vector-concatenate) - (spec: 1 void void) - (spec: 1 s8vector-set s8vector-set) - (spec: 1 type-exception-arg-id type-exception-arg-id) - (spec: 1 get-output-u8vector get-output-u8vector) - (spec: 1 any-bits-set? any-bits-set?) - (spec: 1 compile-file-to-target compile-file-to-target) + (spec: 1 address-info-socket-type address-info-socket-type) + (spec: 1 flscalbn flscalbn) + (spec: 1 fxeven? fxeven?) + (spec: 1 output-port-readtable output-port-readtable) (spec: 1 s16vector? s16vector?) - (spec: 1 char-set-diff+intersection char-set-diff+intersection) - (spec: 1 fxbit-set? fxbit-set?) - (spec: 1 list->char-set list->char-set) - (spec: 1 thread-state-waiting? thread-state-waiting?) - (spec: 1 path-expand path-expand) - (spec: 1 char-set-unfold! char-set-unfold!) - (spec: 1 fxorc2 fxorc2) - (spec: 1 link-flat link-flat) - (spec: 1 s32vector-shrink! s32vector-shrink!) - (spec: 1 vector->bits vector->bits) - (spec: 1 thread-join! thread-join!) - (spec: 1 last-pair last-pair) - (spec: 1 open-tcp-server open-tcp-server) - (spec: 1 user-info-shell user-info-shell) - (spec: 1 will-testator will-testator) - (spec: 1 fx* fx*) - (spec: 1 user-info-uid user-info-uid) + (spec: 1 char-set-filter! char-set-filter!) + (spec: 1 list->s16vector list->s16vector) + (spec: 1 thread-state-initialized? thread-state-initialized?) (spec: 1 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) - (spec: 1 flinteger? flinteger?) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 1 vector-concatenate vector-concatenate) + (spec: 1 with-output-to-u8vector with-output-to-u8vector) + (spec: 1 group-info? group-info?) + (spec: 1 f64vector f64vector) + (spec: 1 conjugate conjugate) + (spec: 1 bit-field-clear bit-field-clear) + (spec: 1 port-settings-set! port-settings-set!) + (spec: 1 gensym gensym) + (spec: 1 s8vector-append s8vector-append) + (spec: 1 err-code->string err-code->string) + (spec: 1 char-set-hash char-set-hash) + (spec: 1 fxnot fxnot) + (spec: 1 list->u32vector list->u32vector) + (spec: 1 s64vector-append s64vector-append) + (spec: 1 scheduler-exception? scheduler-exception?) + (spec: 1 step step) + (spec: 1 subs8vector-fill! subs8vector-fill!) + (spec: 1 time? time?) + (spec: 1 s32vector-concatenate s32vector-concatenate) + (spec: 1 tty-type-set! tty-type-set!) + (spec: 1 copy-file copy-file) + (spec: 1 u16vector-concatenate u16vector-concatenate) + (spec: 1 bitwise-fold bitwise-fold) + (spec: 1 subu8vector-move! subu8vector-move!) + (spec: 1 u64vector->list u64vector->list) + (spec: 1 first first) (spec: 1 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 1 system-type system-type) + (spec: 1 concatenate concatenate) + (spec: 1 f32vector f32vector) + (spec: 1 atanh atanh) + (spec: 1 make-u16vector make-u16vector) + (spec: 1 subf32vector subf32vector) + (spec: 1 file-info-attributes file-info-attributes) + (spec: 1 current-directory current-directory) + (spec: 1 mutex-unlock! mutex-unlock!) + (spec: 1 u32vector-append u32vector-append) + (spec: 1 host-info-name host-info-name) + (spec: 1 range-exception-procedure range-exception-procedure) + (spec: 1 service-info service-info) + (spec: 1 u8vector-set u8vector-set) (spec: 1 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) (spec: 1 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 1 integer-sqrt integer-sqrt) - (spec: 1 fl* fl*) - (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) - (spec: 1 read-file-string read-file-string) - (spec: 1 flatan flatan) - (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 1 table-length table-length) - (spec: 1 current-readtable current-readtable) - (spec: 1 box box) - (spec: 1 file-info-number-of-links file-info-number-of-links) - (spec: 1 u8vector-concatenate u8vector-concatenate) - (spec: 1 unbreak unbreak) + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) + (spec: 1 real-time real-time) (spec: 1 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 1 ucs-range->char-set ucs-range->char-set) - (spec: 1 bit-field-set bit-field-set) - (spec: 1 console-port console-port) - (spec: 1 f64vector-set f64vector-set) - (spec: 1 subs16vector-move! subs16vector-move!) - (spec: 1 bitwise-nand bitwise-nand) - (spec: 1 u64vector-fill! u64vector-fill!) - (spec: 1 help-browser help-browser) - (spec: 1 make-root-thread make-root-thread) - (spec: 1 arithmetic-shift arithmetic-shift) - (spec: 1 expression-parsing-exception? expression-parsing-exception?) - (spec: 1 subu64vector subu64vector) - (spec: 1 type-exception-procedure type-exception-procedure) - (spec: 1 make-will make-will) - (spec: 1 protocol-info-aliases protocol-info-aliases) - (spec: 1 f32vector-set f32vector-set) - (spec: 1 u16vector-ref u16vector-ref) - (spec: 1 write-substring write-substring) - (spec: 1 s64vector-shrink! s64vector-shrink!) - (spec: 1 address-info-family address-info-family) - (spec: 1 path-strip-extension path-strip-extension) - (spec: 1 s8vector-set! s8vector-set!) - (spec: 1 with-input-from-port with-input-from-port) - (spec: 1 list->char-set! list->char-set!) - (spec: 1 char-set-filter char-set-filter) - (spec: 1 fxior fxior) - (spec: 1 vector-cas! vector-cas!) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 1 drop-right! drop-right!) + (spec: 1 fold-right fold-right) (spec: 1 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 1 s32vector-swap! s32vector-swap!) - (spec: 1 fxwrap* fxwrap*) - (spec: 1 thread-suspend! thread-suspend!) - (spec: 1 open-u8vector open-u8vector) - (spec: 1 eighth eighth) - (spec: 1 split-at split-at) - (spec: 1 thread-group-name thread-group-name) - (spec: 1 char-set-adjoin! char-set-adjoin!) - (spec: 1 fx= fx=) - (spec: 1 thread-mailbox-next thread-mailbox-next) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 1 thread-group? thread-group?) + (spec: + 1 + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) + (spec: + 1 + current-user-interrupt-handler + current-user-interrupt-handler) + (spec: 1 network-info-name network-info-name) + (spec: 1 udp-source-socket-info udp-source-socket-info) + (spec: 1 call-with-output-u8vector call-with-output-u8vector) + (spec: 1 flilogb flilogb) + (spec: + 1 + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) + (spec: 1 thread-priority-set! thread-priority-set!) + (spec: 1 tcp-service-unregister! tcp-service-unregister!) (spec: 1 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 1 car+cdr car+cdr) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) + (spec: 1 output-port-width output-port-width) + (spec: 1 s16vector-copy! s16vector-copy!) + (spec: 1 fxwrapsquare fxwrapsquare) + (spec: 1 thread-sleep! thread-sleep!) (spec: 1 - join-timeout-exception-arguments - join-timeout-exception-arguments) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 1 os-exception-arguments os-exception-arguments) + (spec: 1 display-exception display-exception) + (spec: 1 open-output-vector open-output-vector) + (spec: 1 char-set-contains? char-set-contains?) + (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) + (spec: 1 thread thread) + (spec: 1 vector-cumulate vector-cumulate) + (spec: 1 char-set? char-set?) + (spec: 1 with-input-from-vector with-input-from-vector) + (spec: 1 scheduler-exception-reason scheduler-exception-reason) + (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 1 bit-field-any? bit-field-any?) + (spec: 1 s8vector->list s8vector->list) + (spec: 1 substring-fill! substring-fill!) + (spec: 1 char-set-for-each char-set-for-each) + (spec: 1 fxnor fxnor) + (spec: 1 error-exception-message error-exception-message) + (spec: 1 list->s64vector list->s64vector) + (spec: 1 path-volume path-volume) + (spec: 1 s32vector-fill! s32vector-fill!) + (spec: 1 make-mutex make-mutex) + (spec: 1 top top) + (spec: 1 u64vector u64vector) + (spec: 1 vector-set vector-set) + (spec: 1 string-suffix-length string-suffix-length) + (spec: 1 continuation? continuation?) + (spec: 1 module-not-found-exception? module-not-found-exception?) + (spec: 1 bitwise-eqv bitwise-eqv) + (spec: 1 u16vector-append u16vector-append) + (spec: 1 random-u8vector random-u8vector) + (spec: 1 subvector-move! subvector-move!) + (spec: 1 shell-command shell-command) + (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 1 command-name command-name) + (spec: 1 make-tls-context make-tls-context) + (spec: 1 system-version-string system-version-string) (spec: 1 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) - (spec: 1 readtable? readtable?) - (spec: 1 open-input-process open-input-process) - (spec: 1 dotted-list? dotted-list?) - (spec: 1 flpositive? flpositive?) - (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 1 untrace untrace) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 1 seventh seventh) + (spec: 1 file-info file-info) + (spec: 1 create-link create-link) + (spec: 1 mutex-state mutex-state) + (spec: 1 subf64vector subf64vector) + (spec: 1 compile-file-to-target compile-file-to-target) + (spec: 1 processor? processor?) + (spec: 1 flacosh flacosh) + (spec: 1 readtable-max-write-level readtable-max-write-level) + (spec: 1 delete! delete!) + (spec: 1 u32vector->list u32vector->list) + (spec: 1 u8vector-ref u8vector-ref) (spec: 1 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 1 fl+ fl+) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 1 fold fold) (spec: 1 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: 1 not-pair? not-pair?) + wrong-number-of-arguments-exception? + wrong-number-of-arguments-exception?) (spec: 1 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 1 flatanh flatanh) - (spec: 1 table->list table->list) - (spec: 1 box? box?) - (spec: 1 file-info-owner file-info-owner) - (spec: 1 u8vector-copy u8vector-copy) - (spec: 1 input-port-byte-position input-port-byte-position) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) + (spec: 1 table-merge! table-merge!) + (spec: 1 current-time current-time) + (spec: 1 file-last-modification-time file-last-modification-time) (spec: 1 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) - (spec: 1 ucs-range->char-set! ucs-range->char-set!) - (spec: 1 u64vector-copy u64vector-copy) - (spec: 1 f64vector-length f64vector-length) - (spec: 1 bit-field-replace-same bit-field-replace-same) - (spec: 1 subs32vector subs32vector) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 1 call-with-output-string call-with-output-string) + (spec: 1 flhypot flhypot) + (spec: 1 udp-local-socket-info udp-local-socket-info) + (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 1 output-port-timeout-set! output-port-timeout-set!) (spec: 1 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) - (spec: 1 bitwise-nor bitwise-nor) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 1 fxwrapquotient fxwrapquotient) + (spec: 1 address-infos address-infos) + (spec: 1 list-sort! list-sort!) + (spec: 1 s64vector-copy! s64vector-copy!) + (spec: 1 thread-quantum thread-quantum) + (spec: 1 join-timeout-exception? join-timeout-exception?) + (spec: 1 repl-input-port repl-input-port) + (spec: 1 open-output-u8vector open-output-u8vector) + (spec: 1 char-set-complement! char-set-complement!) + (spec: 1 fxarithmetic-shift fxarithmetic-shift) + (spec: 1 thread-group-resume! thread-group-resume!) + (spec: 1 stack-overflow-exception? stack-overflow-exception?) + (spec: 1 char-set= char-set=) + (spec: 1 apropos apropos) + (spec: 1 s8vector-copy s8vector-copy) + (spec: 1 with-input-from-u8vector with-input-from-u8vector) + (spec: 1 condition-variable? condition-variable?) (spec: 1 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 1 subu32vector subu32vector) - (spec: 1 u64vector-length u64vector-length) - (spec: 1 process-status process-status) + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 1 bits->list bits->list) + (spec: 1 f64vector-append f64vector-append) + (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) + (spec: 1 list->s32vector list->s32vector) + (spec: 1 fxmax fxmax) + (spec: 1 char-set-intersection! char-set-intersection!) + (spec: 1 partition partition) + (spec: 1 s32vector-copy! s32vector-copy!) + (spec: 1 string->uninterned-keyword string->uninterned-keyword) + (spec: 1 make-f32vector make-f32vector) + (spec: 1 vector-swap! vector-swap!) + (spec: 1 executable-path executable-path) + (spec: 1 thread? thread?) + (spec: 1 string-suffix-ci? string-suffix-ci?) + (spec: 1 continuation-return continuation-return) + (spec: 1 bitwise-unfold bitwise-unfold) + (spec: 1 random-source? random-source?) + (spec: 1 subvector-fill! subvector-fill!) + (spec: 1 u8vector-length u8vector-length) + (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 1 system-version system-version) + (spec: 1 host-name host-name) + (spec: 1 make-s8vector make-s8vector) + (spec: 1 f32vector-append f32vector-append) + (spec: 1 service-info-name service-info-name) + (spec: 1 u32vector-shrink! u32vector-shrink!) + (spec: 1 create-fifo create-fifo) + (spec: 1 subf32vector-move! subf32vector-move!) + (spec: 1 u64vector-set! u64vector-set!) + (spec: 1 file-info-device file-info-device) + (spec: 1 processor-id processor-id) + (spec: 1 u16vector-swap! u16vector-swap!) + (spec: 1 compile-file compile-file) + (spec: 1 fl= fl=) + (spec: 1 delete delete) (spec: 1 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 1 make-random-source make-random-source) - (spec: 1 u16vector-fill! u16vector-fill!) - (spec: 1 set-box! set-box!) - (spec: 1 protocol-info-name protocol-info-name) - (spec: 1 f32vector-length f32vector-length) - (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 1 make-u8vector make-u8vector) - (spec: 1 u32vector-copy! u32vector-copy!) + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) (spec: 1 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 1 address-info-protocol address-info-protocol) - (spec: 1 s64vector-swap! s64vector-swap!) - (spec: 1 string->char-set! string->char-set!) - (spec: 1 write-subu8vector write-subu8vector) - (spec: 1 getenv getenv) - (spec: 1 make-bitwise-generator make-bitwise-generator) - (spec: 1 append! append!) - (spec: 1 pp pp) - (spec: 1 s8vector-shrink! s8vector-shrink!) - (spec: 1 fxeven? fxeven?) - (spec: 1 list->f32vector list->f32vector) - (spec: 1 char-set-difference char-set-difference) - (spec: 1 eq?-hash eq?-hash) - (spec: 1 string-concatenate string-concatenate) + wrong-number-of-arguments-exception-procedure + wrong-number-of-arguments-exception-procedure) + (spec: 1 fltan fltan) + (spec: 1 open-process open-process) (spec: 1 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 1 fxquotient fxquotient) - (spec: 1 path-normalize path-normalize) - (spec: 1 char-set-union! char-set-union!) - (spec: 1 s32vector? s32vector?) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 1 table-merge table-merge) + (spec: 1 user-info user-info) + (spec: 1 initial-current-directory initial-current-directory) + (spec: 1 file-last-change-time file-last-change-time) (spec: 1 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 1 thread-terminate! thread-terminate!) - (spec: 1 open-u8vector-pipe open-u8vector-pipe) - (spec: 1 split-at! split-at!) - (spec: 1 force-output force-output) - (spec: 1 with-exception-catcher with-exception-catcher) + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 1 flexp flexp) (spec: 1 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 1 fx- fx-) - (spec: 1 output-port-char-position output-port-char-position) - (spec: 1 char-set->list char-set->list) - (spec: 1 s16vector s16vector) - (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 1 user-name user-name) - (spec: 1 object->serial-number object->serial-number) - (spec: 1 remove! remove!) - (spec: 1 fllog fllog) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 1 foreign-tags foreign-tags) + (spec: 1 os-exception-message os-exception-message) + (spec: + 1 + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 1 list-sort list-sort) + (spec: 1 fxwrap- fxwrap-) + (spec: 1 address-info? address-info?) + (spec: 1 s64vector-copy s64vector-copy) + (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 1 flnumerator flnumerator) (spec: 1 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 1 keyword-hash keyword-hash) - (spec: 1 flround flround) - (spec: 1 fl+* fl+*) + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 1 open-dummy open-dummy) + (spec: 1 repl-highlight-source-level repl-highlight-source-level) + (spec: 1 socket-info-address socket-info-address) + (spec: 1 thread-group-parent thread-group-parent) + (spec: 1 fx>= fx>=) + (spec: 1 end-of-char-set? end-of-char-set?) + (spec: 1 char-set-count char-set-count) + (spec: 1 s16vector-length s16vector-length) + (spec: 1 s8vector-concatenate s8vector-concatenate) + (spec: 1 string-prefix? string-prefix?) + (spec: 1 with-output-to-port with-output-to-port) + (spec: + 1 + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 1 bits bits) + (spec: 1 f64vector->list f64vector->list) + (spec: 1 tty-history tty-history) + (spec: 1 fxlength fxlength) + (spec: 1 s32vector s32vector) + (spec: 1 char-set-intersection char-set-intersection) + (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 1 vector-shrink! vector-shrink!) + (spec: 1 group-info-gid group-info-gid) + (spec: 1 asinh asinh) + (spec: 1 circular-list? circular-list?) + (spec: 1 print print) + (spec: 1 write-file-string write-file-string) + (spec: 1 bitwise-orc2 bitwise-orc2) + (spec: 1 random-f64vector random-f64vector) (spec: 1 input-port-line input-port-line) - (spec: 1 flceiling flceiling) - (spec: 1 read-file-u8vector read-file-u8vector) - (spec: 1 call-with-input-process call-with-input-process) - (spec: 1 table-merge! table-merge!) - (spec: 1 unbound-global-exception? unbound-global-exception?) - (spec: 1 file-info-size file-info-size) - (spec: 1 current-thread current-thread) - (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 1 u8vector-copy! u8vector-copy!) - (spec: 1 random-source-state-set! random-source-state-set!) - (spec: 1 ninth ninth) - (spec: 1 initial-current-directory initial-current-directory) - (spec: 1 f64vector-shrink! f64vector-shrink!) - (spec: 1 bit-swap bit-swap) - (spec: 1 xcons xcons) - (spec: 1 protocol-info-number protocol-info-number) + (spec: 1 read-subu8vector read-subu8vector) + (spec: 1 first-set-bit first-set-bit) (spec: 1 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 1 create-directory create-directory) - (spec: 1 bitwise-not bitwise-not) - (spec: 1 subs32vector-fill! subs32vector-fill!) + default-user-interrupt-handler + default-user-interrupt-handler) (spec: 1 subu64vector-move! subu64vector-move!) - (spec: 1 r7rs-raise r7rs-raise) - (spec: 1 make-s32vector make-s32vector) - (spec: 1 u32vector-set u32vector-set) - (spec: 1 s8vector? s8vector?) - (spec: 1 condition-variable-name condition-variable-name) - (spec: 1 f32vector-shrink! f32vector-shrink!) - (spec: 1 string-prefix-ci? string-prefix-ci?) - (spec: 1 type-exception? type-exception?) - (spec: 1 process-times process-times) - (spec: 1 serial-number->object serial-number->object) - (spec: 1 char-set<= char-set<=) - (spec: 1 address-info-socket-info address-info-socket-info) - (spec: 1 u16vector-set! u16vector-set!) - (spec: 1 string->uninterned-keyword string->uninterned-keyword) - (spec: 1 fxwrap- fxwrap-) - (spec: 1 path-strip-volume path-strip-volume) - (spec: 1 append-reverse append-reverse) - (spec: 1 s64vector? s64vector?) - (spec: 1 with-input-from-string with-input-from-string) - (spec: 1 char-set-fold char-set-fold) - (spec: 1 list->f64vector list->f64vector) - (spec: 1 fx>= fx>=) - (spec: 1 output-port-readtable-set! output-port-readtable-set!) - (spec: 1 list-set list-set) - (spec: 1 s16vector->list s16vector->list) - (spec: 1 fxmax fxmax) - (spec: 1 thread-thread-group thread-thread-group) - (spec: 1 open-udp open-udp) - (spec: 1 thread-group-resume! thread-group-resume!) - (spec: 1 char-set-complement char-set-complement) - (spec: 1 foreign-tags foreign-tags) - (spec: 1 fllog1p fllog1p) + (spec: 1 host-info host-info) + (spec: 1 make-s64vector make-s64vector) + (spec: 1 f32vector->list f32vector->list) + (spec: 1 service-info-aliases service-info-aliases) + (spec: 1 subs64vector-fill! subs64vector-fill!) + (spec: 1 u32vector-set! u32vector-set!) + (spec: 1 u64vector-set u64vector-set) + (spec: 1 file-info-creation-time file-info-creation-time) + (spec: 1 break break) + (spec: 1 create-temporary-directory create-temporary-directory) + (spec: 1 u16vector-shrink! u16vector-shrink!) + (spec: 1 fl<= fl<=) + (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 1 table-search table-search) (spec: 1 - display-continuation-environment - display-continuation-environment) - (spec: 1 object->string object->string) - (spec: 1 thread-name thread-name) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 1 flsquare flsquare) + (spec: 1 thread-group-specific-set! thread-group-specific-set!) + (spec: 1 eighth eighth) (spec: 1 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 1 flscalbn flscalbn) - (spec: 1 drop-right drop-right) - (spec: 1 open-input-u8vector open-input-u8vector) - (spec: 1 join-timeout-exception? join-timeout-exception?) - (spec: 1 fl- fl-) - (spec: 1 integer-nth-root integer-nth-root) - (spec: 1 flcos flcos) - (spec: 1 call-with-input-string call-with-input-string) - (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) - (spec: 1 current-processor current-processor) - (spec: 1 file-info-type file-info-type) - (spec: 1 table-for-each table-for-each) - (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 1 random-source-randomize! random-source-randomize!) - (spec: 1 dead-end dead-end) + cfun-conversion-exception-code + cfun-conversion-exception-code) + (spec: + 1 + uninitialized-thread-exception? + uninitialized-thread-exception?) (spec: 1 filter filter) - (spec: 1 input-port-char-position input-port-char-position) - (spec: 1 symbol-hash symbol-hash) - (spec: 1 u8vector-fill! u8vector-fill!) - (spec: 1 udp-destination-set! udp-destination-set!) - (spec: 1 bit-field-rotate bit-field-rotate) - (spec: 1 f64vector-ref f64vector-ref) - (spec: 1 protocol-info? protocol-info?) - (spec: 1 file-exists-exception? file-exists-exception?) - (spec: 1 inactive-thread-exception? inactive-thread-exception?) - (spec: 1 bitwise-orc1 bitwise-orc1) - (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 1 subs32vector-move! subs32vector-move!) - (spec: 1 subu32vector-move! subu32vector-move!) - (spec: 1 seconds->time seconds->time) - (spec: 1 u32vector-length u32vector-length) + (spec: 1 fleven? fleven?) (spec: 1 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 1 u64vector-ref u64vector-ref) - (spec: 1 pretty-print pretty-print) - (spec: 1 condition-variable-signal! condition-variable-signal!) - (spec: 1 string-prefix-length string-prefix-length) - (spec: 1 f32vector-ref f32vector-ref) - (spec: 1 type-exception-arguments type-exception-arguments) - (spec: 1 string=?-hash string=?-hash) - (spec: 1 gc-report-set! gc-report-set!) - (spec: 1 address-info-socket-type address-info-socket-type) - (spec: 1 path-strip-directory path-strip-directory) - (spec: 1 make-condition-variable make-condition-variable) - (spec: 1 append-reverse! append-reverse!) - (spec: 1 string-contains-ci string-contains-ci) - (spec: 1 char-set-every char-set-every) - (spec: 1 equal?-hash equal?-hash) - (spec: 1 fxif fxif) - (spec: 1 list->s16vector list->s16vector) - (spec: 1 output-port-line output-port-line) - (spec: 1 char-set-xor! char-set-xor!) - (spec: 1 fxsquare fxsquare) - (spec: 1 s16vector-append s16vector-append) - (spec: 1 thread-state-initialized? thread-state-initialized?) - (spec: 1 s32vector s32vector) - (spec: 1 started-thread-exception? started-thread-exception?) - (spec: 1 thread-yield! thread-yield!) - (spec: 1 open-vector open-vector) - (spec: 1 sixth sixth) - (spec: 1 char-set-adjoin char-set-adjoin) - (spec: 1 fx<= fx<=) - (spec: 1 thread-group->thread-vector thread-group->thread-vector) - (spec: 1 open-vector-pipe open-vector-pipe) - (spec: 1 thread-priority-boost thread-priority-boost) - (spec: 1 flmax flmax) - (spec: 1 object->u8vector object->u8vector) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) (spec: 1 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 1 flsin flsin) - (spec: 1 open-input-vector open-input-vector) - (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) - (spec: 1 rename-file rename-file) - (spec: 1 read-string read-string) - (spec: 1 bytevector bytevector) - (spec: 1 file-exists? file-exists?) - (spec: 1 utf8->string utf8->string) - (spec: 1 exact-integer? exact-integer?) - (spec: 1 euclidean/ euclidean/) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 string->utf8 string->utf8) - (spec: 1 current-second current-second) - (spec: 1 bytevector-append bytevector-append) - (spec: 1 string-foldcase string-foldcase) - (spec: 1 balanced/ balanced/) - (spec: 1 string-copy! string-copy!) - (spec: 1 vector-append vector-append) - (spec: 1 write-bytevector write-bytevector) - (spec: 1 ceiling-quotient ceiling-quotient) - (spec: 1 finite? finite?) - (spec: 1 bytevector-copy bytevector-copy) - (spec: 1 write-u8 write-u8) - (spec: 1 binary-port? binary-port?) - (spec: 1 command-line command-line) - (spec: 1 get-environment-variable get-environment-variable) - (spec: 1 char-foldcase char-foldcase) - (spec: 1 ceiling-remainder ceiling-remainder) - (spec: 1 digit-value digit-value) - (spec: 1 bytevector-copy! bytevector-copy!) - (spec: 1 input-port-open? input-port-open?) - (spec: 1 read-line read-line) - (spec: 1 vector-copy! vector-copy!) - (spec: 1 emergency-exit emergency-exit) - (spec: 1 ceiling/ ceiling/) - (spec: 1 bytevector-length bytevector-length) - (spec: 1 delete-file delete-file) - (spec: 1 features features) - (spec: 1 inexact inexact) - (spec: 1 make-list make-list) - (spec: 1 open-output-string open-output-string) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 1 call-with-output-vector call-with-output-vector) + (spec: 1 readtable? readtable?) + (spec: 1 tcp-server-socket-info tcp-server-socket-info) + (spec: 1 foreign-released? foreign-released?) + (spec: 1 os-exception-code os-exception-code) + (spec: 1 thread-receive thread-receive) + (spec: 1 fxwrap+ fxwrap+) + (spec: 1 flnegative? flnegative?) + (spec: 1 open-directory open-directory) + (spec: 1 dotted-list? dotted-list?) + (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 1 fx> fx>) + (spec: 1 s16vector-append s16vector-append) + (spec: 1 equal?-hash equal?-hash) + (spec: 1 char-set-copy char-set-copy) + (spec: 1 vector-every vector-every) + (spec: 1 exit exit) + (spec: 1 get-output-bytevector get-output-bytevector) + (spec: 1 list-copy list-copy) + (spec: 1 current-jiffy current-jiffy) + (spec: 1 string-map string-map) + (spec: 1 read-bytevector read-bytevector) (spec: 1 peek-u8 peek-u8) - (spec: 1 open-binary-input-file open-binary-input-file) + (spec: 1 error-object-message error-object-message) + (spec: 1 string-upcase string-upcase) + (spec: 1 exact exact) + (spec: 1 eof-object eof-object) + (spec: 1 error-object-irritants error-object-irritants) + (spec: 1 make-list make-list) (spec: 1 bytevector-u8-ref bytevector-u8-ref) - (spec: 1 read-bytevector read-bytevector) - (spec: 1 promise? promise?) - (spec: 1 string->vector string->vector) - (spec: 1 string-for-each string-for-each) - (spec: 1 open-binary-output-file open-binary-output-file) - (spec: 1 bytevector-u8-set! bytevector-u8-set!) - (spec: 1 current-error-port current-error-port) - (spec: 1 exit exit) - (spec: 1 make-parameter make-parameter) - (spec: 1 get-output-string get-output-string) - (spec: 1 flush-output-port flush-output-port) - (spec: 1 port? port?) (spec: 1 read-u8 read-u8) - (spec: 1 bytevector? bytevector?) - (spec: 1 u8-ready? u8-ready?) - (spec: 1 get-environment-variables get-environment-variables) - (spec: 1 call-with-port call-with-port) - (spec: 1 boolean=? boolean=?) - (spec: 1 make-promise make-promise) - (spec: 1 error-object-irritants error-object-irritants) - (spec: 1 read-bytevector! read-bytevector!) + (spec: 1 get-environment-variable get-environment-variable) + (spec: 1 port? port?) + (spec: 1 bytevector-length bytevector-length) + (spec: 1 current-error-port current-error-port) (spec: 1 write-shared write-shared) - (spec: 1 exact exact) - (spec: 1 eof-object eof-object) - (spec: 1 error-object-message error-object-message) - (spec: 1 get-output-bytevector get-output-bytevector) - (spec: 1 floor-quotient floor-quotient) - (spec: 1 infinite? infinite?) - (spec: 1 read-error? read-error?) - (spec: 1 string-map string-map) - (spec: 1 error-object? error-object?) - (spec: 1 list-copy list-copy) - (spec: 1 floor-remainder floor-remainder) - (spec: 1 jiffies-per-second jiffies-per-second) + (spec: 1 emergency-exit emergency-exit) + (spec: 1 read-bytevector! read-bytevector!) + (spec: 1 flush-output-port flush-output-port) (spec: 1 open-input-bytevector open-input-bytevector) + (spec: 1 error-object? error-object?) (spec: 1 file-error? file-error?) - (spec: 1 round-quotient round-quotient) - (spec: 1 square square) - (spec: 1 string-upcase string-upcase) + (spec: 1 current-second current-second) + (spec: 1 nan? nan?) + (spec: 1 string->vector string->vector) + (spec: 1 open-input-string open-input-string) + (spec: 1 truncate/ truncate/) + (spec: 1 make-bytevector make-bytevector) (spec: 1 vector-for-each vector-for-each) - (spec: 1 floor/ floor/) - (spec: 1 vector-map vector-map) + (spec: 1 write-bytevector write-bytevector) + (spec: 1 balanced/ balanced/) + (spec: 1 round-quotient round-quotient) (spec: 1 symbol=? symbol=?) - (spec: 1 write-simple write-simple) - (spec: 1 balanced-remainder balanced-remainder) (spec: 1 write-string write-string) - (spec: 1 output-port-open? output-port-open?) - (spec: 1 truncate-quotient truncate-quotient) - (spec: 1 textual-port? textual-port?) - (spec: 1 current-jiffy current-jiffy) - (spec: 1 truncate-remainder truncate-remainder) + (spec: 1 vector-map vector-map) + (spec: 1 make-promise make-promise) + (spec: 1 write-simple write-simple) + (spec: 1 read-error? read-error?) + (spec: 1 floor/ floor/) + (spec: 1 get-output-string get-output-string) + (spec: 1 boolean=? boolean=?) + (spec: 1 delete-file delete-file) + (spec: 1 floor-remainder floor-remainder) (spec: 1 vector->string vector->string) - (spec: 1 open-input-string open-input-string) - (spec: 1 close-port close-port) - (spec: 1 make-bytevector make-bytevector) (spec: 1 euclidean-quotient euclidean-quotient) + (spec: 1 string-copy! string-copy!) + (spec: 1 binary-port? binary-port?) + (spec: 1 bytevector-copy bytevector-copy) (spec: 1 round-remainder round-remainder) - (spec: 1 string-downcase string-downcase) - (spec: 1 truncate/ truncate/) - (spec: 1 nan? nan?) - (spec: 1 vector-copy vector-copy) + (spec: 1 ceiling-quotient ceiling-quotient) + (spec: 1 output-port-open? output-port-open?) + (spec: 1 string->utf8 string->utf8) + (spec: 1 string-foldcase string-foldcase) + (spec: 1 open-output-bytevector open-output-bytevector) + (spec: 1 jiffies-per-second jiffies-per-second) + (spec: 1 utf8->string utf8->string) + (spec: 1 truncate-remainder truncate-remainder) + (spec: 1 close-port close-port) + (spec: 1 balanced-remainder balanced-remainder) + (spec: 1 euclidean/ euclidean/) + (spec: 1 input-port-open? input-port-open?) + (spec: 1 open-output-string open-output-string) + (spec: 1 exact-integer? exact-integer?) + (spec: 1 ceiling/ ceiling/) + (spec: 1 list-set! list-set!) + (spec: 1 file-exists? file-exists?) (spec: 1 balanced-quotient balanced-quotient) - (spec: 1 exact-integer-sqrt exact-integer-sqrt) + (spec: 1 infinite? infinite?) + (spec: 1 square square) + (spec: 1 truncate-quotient truncate-quotient) + (spec: 1 ceiling-remainder ceiling-remainder) + (spec: 1 string-for-each string-for-each) + (spec: 1 make-parameter make-parameter) + (spec: 1 bytevector? bytevector?) + (spec: 1 textual-port? textual-port?) + (spec: 1 vector-append vector-append) + (spec: 1 read-string read-string) + (spec: 1 vector-copy vector-copy) + (spec: 1 floor-quotient floor-quotient) + (spec: 1 open-binary-output-file open-binary-output-file) + (spec: 1 write-u8 write-u8) + (spec: 1 bytevector-u8-set! bytevector-u8-set!) + (spec: 1 inexact inexact) + (spec: 1 finite? finite?) + (spec: 1 read-line read-line) + (spec: 1 digit-value digit-value) + (spec: 1 bytevector-append bytevector-append) + (spec: 1 get-environment-variables get-environment-variables) + (spec: 1 open-binary-input-file open-binary-input-file) + (spec: 1 u8-ready? u8-ready?) + (spec: 1 command-line command-line) + (spec: 1 vector-copy! vector-copy!) + (spec: 1 call-with-port call-with-port) + (spec: 1 char-foldcase char-foldcase) + (spec: 1 bytevector bytevector) + (spec: 1 string-downcase string-downcase) (spec: 1 euclidean-remainder euclidean-remainder) - (spec: 1 list-set! list-set!) + (spec: 1 features features) + (spec: 1 promise? promise?) + (spec: 1 bytevector-copy! bytevector-copy!) + (spec: 1 exact-integer-sqrt exact-integer-sqrt) (spec: 1 round/ round/) - (spec: 1 caaar caaar) - (spec: 1 string>=? string>=?) - (spec: 1 apply apply) - (spec: 1 eqv? eqv?) - (spec: 1 vector-set! vector-set!) - (spec: 1 char-ci=? char-ci=?) - (spec: 1 values values) - (spec: 1 real? real?) - (spec: 1 ceiling ceiling) - (spec: 1 caadar caadar) - (spec: 1 null-environment null-environment) - (spec: 1 integer? integer?) - (spec: 1 symbol? symbol?) - (spec: 1 expt expt) - (spec: 1 map map) - (spec: 1 string>? string>?) - (spec: 1 exact? exact?) - (spec: 1 string->symbol string->symbol) - (spec: 1 eval eval) - (spec: 1 char-ci>=? char-ci>=?) - (spec: 1 open-output-file open-output-file) - (spec: 1 cdaaar cdaaar) - (spec: 1 caaddr caaddr) - (spec: 1 call-with-output-file call-with-output-file) - (spec: 1 read read) - (spec: 1 negative? negative?) - (spec: 1 zero? zero?) - (spec: 1 assq assq) - (spec: 1 string-ref string-ref) - (spec: 1 string? string?) - (spec: 1 peek-char peek-char) - (spec: 1 char-upcase char-upcase) - (spec: 1 string-append string-append) - (spec: 1 vector-fill! vector-fill!) - (spec: 1 char-ci>? char-ci>?) - (spec: 1 reverse reverse) - (spec: 1 cdaadr cdaadr) - (spec: 1 null? null?) - (spec: 1 write-char write-char) - (spec: 1 caadr caadr) - (spec: 1 even? even?) - (spec: 1 list-tail list-tail) - (spec: 1 string-fill! string-fill!) - (spec: 1 list->string list->string) - (spec: 1 char-downcase char-downcase) - (spec: 1 cdaar cdaar) - (spec: 1 length length) - (spec: 1 odd? odd?) - (spec: 1 caar caar) - (spec: 1 imag-part imag-part) - (spec: 1 string-set! string-set!) - (spec: 1 string-cistring number->string) - (spec: 1 cdadar cdadar) - (spec: 1 not not) - (spec: 1 cadaar cadaar) - (spec: 1 max max) - (spec: 1 assoc assoc) - (spec: 1 make-string make-string) - (spec: 1 abs abs) - (spec: 1 with-output-to-file with-output-to-file) - (spec: 1 output-port? output-port?) - (spec: 1 cdaddr cdaddr) - (spec: 1 denominator denominator) - (spec: 1 cadadr cadadr) - (spec: 1 read-char read-char) - (spec: 1 substring substring) - (spec: 1 member member) - (spec: 1 cos cos) - (spec: 1 sin sin) - (spec: 1 / /) - (spec: 1 list? list?) - (spec: 1 char<=? char<=?) - (spec: 1 vector vector) - (spec: 1 char-numeric? char-numeric?) - (spec: 1 cdadr cdadr) - (spec: 1 input-port? input-port?) - (spec: 1 cadar cadar) - (spec: 1 scheme-report-environment scheme-report-environment) - (spec: 1 complex? complex?) - (spec: 1 assv assv) - (spec: 1 < <) - (spec: 1 angle angle) - (spec: 1 char-upper-case? char-upper-case?) - (spec: 1 load load) - (spec: 1 string-ci<=? string-ci<=?) - (spec: 1 string-length string-length) - (spec: 1 cdar cdar) - (spec: 1 caddar caddar) - (spec: 1 current-input-port current-input-port) - (spec: 1 rational? rational?) - (spec: 1 memq memq) + (spec: 1 char>=? char>=?) + (spec: 1 close-output-port close-output-port) (spec: 1 <= <=) - (spec: 1 acos acos) - (spec: 1 char=? char=?) - (spec: 1 positive? positive?) + (spec: 1 inexact->exact inexact->exact) + (spec: 1 rationalize rationalize) + (spec: 1 cadddr cadddr) + (spec: 1 tan tan) (spec: 1 string-ci>? string-ci>?) - (spec: 1 vector->list vector->list) - (spec: 1 vector-length vector-length) + (spec: 1 transcript-on transcript-on) + (spec: 1 cddadr cddadr) + (spec: 1 memv memv) + (spec: 1 string string) + (spec: 1 sin sin) + (spec: 1 > >) + (spec: 1 complex? complex?) + (spec: 1 denominator denominator) + (spec: 1 caddar caddar) + (spec: 1 force force) (spec: 1 call-with-values call-with-values) + (spec: 1 abs abs) + (spec: 1 string-ci>=? string-ci>=?) (spec: 1 cddaar cddaar) - (spec: 1 floor floor) - (spec: 1 cadddr cadddr) - (spec: 1 boolean? boolean?) - (spec: 1 inexact->exact inexact->exact) + (spec: 1 char-upper-case? char-upper-case?) + (spec: 1 cadr cadr) + (spec: 1 car car) + (spec: 1 char-numeric? char-numeric?) + (spec: 1 numerator numerator) + (spec: 1 cdddar cdddar) + (spec: 1 open-input-file open-input-file) + (spec: 1 read-char read-char) + (spec: 1 char<=? char<=?) (spec: 1 cons cons) + (spec: 1 magnitude magnitude) + (spec: 1 exp exp) + (spec: 1 cos cos) (spec: 1 procedure? procedure?) - (spec: 1 = =) - (spec: 1 atan atan) - (spec: 1 char-whitespace? char-whitespace?) - (spec: 1 list list) - (spec: 1 list->vector list->vector) - (spec: 1 string-ci=? string-ci=?) - (spec: 1 transcript-off transcript-off) - (spec: 1 char-lower-case? char-lower-case?) - (spec: 1 vector? vector?) - (spec: 1 cddadr cddadr) + (spec: 1 assv assv) + (spec: 1 string-append string-append) + (spec: 1 vector vector) (spec: 1 caddr caddr) - (spec: 1 current-output-port current-output-port) - (spec: 1 symbol->string symbol->string) + (spec: 1 real? real?) + (spec: 1 vector? vector?) + (spec: 1 char-lower-case? char-lower-case?) + (spec: 1 even? even?) + (spec: 1 load load) + (spec: 1 cddar cddar) + (spec: 1 number? number?) + (spec: 1 vector-length vector-length) + (spec: 1 asin asin) + (spec: 1 integer->char integer->char) + (spec: 1 caaadr caaadr) + (spec: 1 >= >=) + (spec: 1 inexact? inexact?) + (spec: 1 call-with-input-file call-with-input-file) + (spec: 1 char-alphabetic? char-alphabetic?) (spec: 1 set-car! set-car!) + (spec: 1 remainder remainder) + (spec: 1 string<=? string<=?) (spec: 1 exact->inexact exact->inexact) - (spec: 1 char>? char>?) + (spec: 1 cdddr cdddr) + (spec: 1 log log) (spec: 1 eof-object? eof-object?) - (spec: 1 transcript-on transcript-on) - (spec: 1 lcm lcm) - (spec: 1 display display) - (spec: 1 number? number?) - (spec: 1 cddar cddar) - (spec: 1 tan tan) - (spec: 1 cadr cadr) - (spec: 1 quotient quotient) - (spec: 1 make-polar make-polar) + (spec: 1 char=? char=?) + (spec: 1 positive? positive?) + (spec: 1 list->vector list->vector) (spec: 1 close-input-port close-input-port) - (spec: 1 string-ci>=? string-ci>=?) - (spec: 1 > >) - (spec: 1 char= >=) - (spec: 1 append append) - (spec: 1 string-copy string-copy) - (spec: 1 eq? eq?) (spec: 1 char->integer char->integer) - (spec: 1 force force) + (spec: 1 rational? rational?) (spec: 1 string->number string->number) + (spec: 1 display display) + (spec: 1 char-ready? char-ready?) + (spec: 1 string->list string->list) (spec: 1 cddddr cddddr) - (spec: 1 integer->char integer->char) - (spec: 1 call-with-input-file call-with-input-file) - (spec: 1 inexact? inexact?) - (spec: 1 newline newline) - (spec: 1 rationalize rationalize) - (spec: 1 memv memv) - (spec: 1 * *) - (spec: 1 string=? char>=?) - (spec: 1 pair? pair?) - (spec: 1 list-ref list-ref) - (spec: 1 round round) - (spec: 1 char-alphabetic? char-alphabetic?) - (spec: 1 sqrt sqrt) - (spec: 1 dynamic-wind dynamic-wind) - (spec: 1 cdddr cdddr) - (spec: 1 caaaar caaaar) - (spec: 1 interaction-environment interaction-environment) + (spec: 1 list list) + (spec: 1 charlist vector->list) + (spec: 1 for-each for-each) + (spec: 1 char-ci? char>?) + (spec: 1 make-polar make-polar) + (spec: 1 set-cdr! set-cdr!) + (spec: 1 = =) + (spec: 1 current-output-port current-output-port) (spec: 1 char-ci<=? char-ci<=?) + (spec: 1 string-ci=? string-ci=?) + (spec: 1 truncate truncate) (spec: 1 cddr cddr) + (spec: 1 pair? pair?) + (spec: 1 with-output-to-file with-output-to-file) + (spec: 1 assq assq) + (spec: 1 symbol? symbol?) + (spec: 1 caadr caadr) + (spec: 1 string>=? string>=?) + (spec: 1 open-output-file open-output-file) + (spec: 1 char-ci>=? char-ci>=?) + (spec: 1 negative? negative?) + (spec: 1 cdaaar cdaaar) + (spec: 1 equal? equal?) + (spec: 1 write write) + (spec: 1 max max) + (spec: 1 list-ref list-ref) + (spec: 1 expt expt) + (spec: 1 assoc assoc) + (spec: 1 eval eval) + (spec: 1 caaddr caaddr) + (spec: 1 make-string make-string) + (spec: 1 char-ci=? char-ci=?) + (spec: 1 lcm lcm) + (spec: 1 newline newline) (spec: 1 real-part real-part) - (spec: 1 caaadr caaadr) - (spec: 1 make-rectangular make-rectangular) - (spec: 1 - -) - (spec: 1 make-vector make-vector) + (spec: 1 null-environment null-environment) + (spec: 1 ceiling ceiling) (spec: 1 char? char?) - (spec: 1 set-cdr! set-cdr!) - (spec: 1 string->list string->list) + (spec: 1 exact? exact?) + (spec: 1 min min) + (spec: 1 string-fill! string-fill!) + (spec: 1 string-ref string-ref) + (spec: 1 vector-ref vector-ref) + (spec: 1 string? string?) (spec: 1 with-input-from-file with-input-from-file) - (spec: 1 char-cistring symbol->string) + (spec: 1 call-with-output-file call-with-output-file) + (spec: 1 char-ci>? char-ci>?) + (spec: 1 null? null?) + (spec: 1 cdaadr cdaadr) + (spec: 1 sqrt sqrt) + (spec: 1 char-whitespace? char-whitespace?) + (spec: 1 angle angle) + (spec: 1 member member) + (spec: 1 vector-set! vector-set!) + (spec: 1 string-set! string-set!) + (spec: 1 cadaar cadaar) + (spec: 1 not not) + (spec: 1 list? list?) + (spec: 1 cdaddr cdaddr) + (spec: 1 string-cistring number->string) + (spec: 1 reverse reverse) + (spec: 1 interaction-environment interaction-environment) + (spec: 1 char-downcase char-downcase) + (spec: 1 cdadar cdadar) + (spec: 1 floor floor) + (spec: 1 string-ci<=? string-ci<=?) + (spec: 1 string-length string-length) + (spec: 1 substring substring) + (spec: 1 zero? zero?) + (spec: 1 write-char write-char) + (spec: 1 input-port? input-port?) + (spec: 1 caadar caadar) + (spec: 1 / /) + (spec: 1 integer? integer?) + (spec: 1 cadar cadar) + (spec: 1 read read) + (spec: 1 peek-char peek-char) + (spec: 1 cdar cdar) + (spec: 1 gcd gcd) + (spec: 1 apply apply) + (spec: 1 char-upcase char-upcase) + (spec: 1 list->string list->string) + (spec: 1 string->symbol string->symbol) + (spec: 1 vector-fill! vector-fill!) + (spec: 1 caaar caaar) + (spec: 1 scheme-report-environment scheme-report-environment) + (spec: 1 string>? string>?) + (spec: 1 cadadr cadadr) + (spec: 1 length length) + (spec: 1 list-tail list-tail) + (spec: 1 cdadr cdadr) + (spec: 1 output-port? output-port?) (spec: 1 R5RSRuntime R5RSRuntime) + (spec: 1 GambitRuntime GambitRuntime) (spec: 1 R7RSRuntime R7RSRuntime) + (spec: 1 Runtime Runtime) + (spec: 1 RuntimeAliases RuntimeAliases) + (spec: 1 GerbilRuntime GerbilRuntime) (spec: 1 %%app-dotted %%app) (spec: 1 %%ref-dotted %%ref) (spec: 1 %%set-dotted! set!) diff --git a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm index f45734443..648d4cd3a 100644 --- a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm +++ b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~ClassMeta::timestamp 1733687555) + (define gerbil/core/contract~ClassMeta::timestamp 1733870069) (define gerbil/core/contract~ClassMeta#!class-precedence-list (lambda (_%klass52363%_) (let ((_%$e52365%_ diff --git a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm index 61d87b225..d8add852e 100644 --- a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm +++ b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~InterfaceInfo::timestamp 1733687555) + (define gerbil/core/contract~InterfaceInfo::timestamp 1733870069) (begin (define gerbil/core/contract~InterfaceInfo#_g83959_ (##structure diff --git a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm index 47aacf5a3..75435a7d3 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 1733687555) + (define gerbil/core/contract~TypeEnv::timestamp 1733870069) (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 68b869ce5..392bfc4da 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 1733687554) + (define gerbil/core/macro-object::timestamp 1733870069) (begin (define gerbil/core/macro-object#macro-object::t (make-class-type diff --git a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm index fbaa12503..68858898f 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 1733687548) + (define gerbil/core/mop~MOP-2::timestamp 1733870063) (begin (define gerbil/core/mop~MOP-2#class-type-info::t (make-class-type diff --git a/src/bootstrap/gerbil/core/runtime.ssi b/src/bootstrap/gerbil/core/runtime.ssi index ff71286ce..eac34b2f6 100644 --- a/src/bootstrap/gerbil/core/runtime.ssi +++ b/src/bootstrap/gerbil/core/runtime.ssi @@ -1901,6 +1901,8 @@ namespace: gerbil/core/runtime (set-load-path! set-load-path!) (load-module load-module) (reload-module! reload-module!) + (list-modules list-modules) + (module-load-order module-load-order) (gerbil-load-expander! gerbil-load-expander!)))) (%#module RuntimeAliases diff --git a/src/bootstrap/gerbil/expander/common~0.scm b/src/bootstrap/gerbil/expander/common~0.scm index 1d95170f3..71f57e0d1 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 1733687559) + (define gerbil/expander/common::timestamp 1733870074) (begin (define gx#AST::t - (let ((__tmp116913 (list)) - (__tmp116912 (cons (cons 'struct: '#t) '((print: e))))) + (let ((__tmp116950 (list)) + (__tmp116949 (cons (cons 'struct: '#t) '((print: e))))) (declare (not safe)) (__make-class-type 'gerbil#AST::t 'syntax - __tmp116913 + __tmp116950 '(e source) - __tmp116912 + __tmp116949 '#f))) (define gx#AST? (let () (declare (not safe)) (__make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _%$args116811%_ (apply make-instance gx#AST::t _%$args116811%_))) + (lambda _%$args116848%_ (apply make-instance gx#AST::t _%$args116848%_))) (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 e6d74b9ea..908ac7ed0 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]#_g116915_| + (define |gx[1]#_g116952_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g116917_| + (define |gx[1]#_g116954_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g116919_| + (define |gx[1]#_g116956_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g116921_| + (define |gx[1]#_g116958_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116922_| + (define |gx[1]#_g116959_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116924_| + (define |gx[1]#_g116961_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116925_| + (define |gx[1]#_g116962_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116927_| + (define |gx[1]#_g116964_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116928_| + (define |gx[1]#_g116965_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116930_| + (define |gx[1]#_g116967_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116931_| + (define |gx[1]#_g116968_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116933_| + (define |gx[1]#_g116970_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj116911 + (let ((__obj116948 (let () (declare (not safe)) (##structure @@ -114,109 +114,109 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj116948 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj116948 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj116948 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj116948 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj116948 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj116948 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj116948 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj116948 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 '#f '11 '#f '#f)) - (let ((__tmp116914 |gx[1]#_g116915_|)) + (##unchecked-structure-set! __obj116948 '#f '11 '#f '#f)) + (let ((__tmp116951 |gx[1]#_g116952_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116911 __tmp116914 '12 '#f '#f)) - (let ((__tmp116916 |gx[1]#_g116917_|)) + (##unchecked-structure-set! __obj116948 __tmp116951 '12 '#f '#f)) + (let ((__tmp116953 |gx[1]#_g116954_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116911 __tmp116916 '13 '#f '#f)) - (let ((__tmp116918 |gx[1]#_g116919_|)) + (##unchecked-structure-set! __obj116948 __tmp116953 '13 '#f '#f)) + (let ((__tmp116955 |gx[1]#_g116956_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116911 __tmp116918 '14 '#f '#f)) - (let ((__tmp116920 - (cons (cons 'e |gx[1]#_g116921_|) - (cons (cons 'source |gx[1]#_g116922_|) '())))) + (##unchecked-structure-set! __obj116948 __tmp116955 '14 '#f '#f)) + (let ((__tmp116957 + (cons (cons 'e |gx[1]#_g116958_|) + (cons (cons 'source |gx[1]#_g116959_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116911 __tmp116920 '15 '#f '#f)) - (let ((__tmp116923 - (cons (cons 'e |gx[1]#_g116924_|) - (cons (cons 'source |gx[1]#_g116925_|) '())))) + (##unchecked-structure-set! __obj116948 __tmp116957 '15 '#f '#f)) + (let ((__tmp116960 + (cons (cons 'e |gx[1]#_g116961_|) + (cons (cons 'source |gx[1]#_g116962_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116911 __tmp116923 '16 '#f '#f)) - (let ((__tmp116926 - (cons (cons 'e |gx[1]#_g116927_|) - (cons (cons 'source |gx[1]#_g116928_|) '())))) + (##unchecked-structure-set! __obj116948 __tmp116960 '16 '#f '#f)) + (let ((__tmp116963 + (cons (cons 'e |gx[1]#_g116964_|) + (cons (cons 'source |gx[1]#_g116965_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116911 __tmp116926 '17 '#f '#f)) - (let ((__tmp116929 - (cons (cons 'e |gx[1]#_g116930_|) - (cons (cons 'source |gx[1]#_g116931_|) '())))) + (##unchecked-structure-set! __obj116948 __tmp116963 '17 '#f '#f)) + (let ((__tmp116966 + (cons (cons 'e |gx[1]#_g116967_|) + (cons (cons 'source |gx[1]#_g116968_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116911 __tmp116929 '18 '#f '#f)) + (##unchecked-structure-set! __obj116948 __tmp116966 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj116948 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj116948 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116911 '() '20 '#f '#f)) - __obj116911)) + (##unchecked-structure-set! __obj116948 '() '20 '#f '#f)) + __obj116948)) (define |gx[:0:]#check-procedure| - (lambda (_%$stx115506%_) - (let* ((_%g115510115524%_ - (lambda (_%g115511115520%_) + (lambda (_%$stx115543%_) + (let* ((_%g115547115561%_ + (lambda (_%g115548115557%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115511115520%_))) - (_%g115509115566%_ - (lambda (_%g115511115528%_) - (if (gx#stx-pair? _%g115511115528%_) - (let ((_%e115513115531%_ - (gx#syntax-e _%g115511115528%_))) - (let ((_%hd115514115535%_ + _%g115548115557%_))) + (_%g115546115603%_ + (lambda (_%g115548115565%_) + (if (gx#stx-pair? _%g115548115565%_) + (let ((_%e115550115568%_ + (gx#syntax-e _%g115548115565%_))) + (let ((_%hd115551115572%_ (let () (declare (not safe)) - (##car _%e115513115531%_))) - (_%tl115515115538%_ + (##car _%e115550115568%_))) + (_%tl115552115575%_ (let () (declare (not safe)) - (##cdr _%e115513115531%_)))) - (if (gx#stx-pair? _%tl115515115538%_) - (let ((_%e115516115541%_ - (gx#syntax-e _%tl115515115538%_))) - (let ((_%hd115517115545%_ + (##cdr _%e115550115568%_)))) + (if (gx#stx-pair? _%tl115552115575%_) + (let ((_%e115553115578%_ + (gx#syntax-e _%tl115552115575%_))) + (let ((_%hd115554115582%_ (let () (declare (not safe)) - (##car _%e115516115541%_))) - (_%tl115518115548%_ + (##car _%e115553115578%_))) + (_%tl115555115585%_ (let () (declare (not safe)) - (##cdr _%e115516115541%_)))) - (if (gx#stx-null? _%tl115518115548%_) - ((lambda (_%L115551%_) + (##cdr _%e115553115578%_)))) + (if (gx#stx-null? _%tl115555115585%_) + ((lambda (_%L115588%_) (cons (gx#datum->syntax '#f 'unless) (cons (cons (gx#datum->syntax '#f 'procedure?) - (cons _%L115551%_ + (cons _%L115588%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -224,182 +224,182 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) - (cons '"expected procedure" (cons _%L115551%_ '()))) + (cons '"expected procedure" (cons _%L115588%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd115517115545%_) - (_%g115510115524%_ _%g115511115528%_)))) - (_%g115510115524%_ _%g115511115528%_)))) - (_%g115510115524%_ _%g115511115528%_))))) - (_%g115509115566%_ _%$stx115506%_)))) + _%hd115554115582%_) + (_%g115547115561%_ _%g115548115565%_)))) + (_%g115547115561%_ _%g115548115565%_)))) + (_%g115547115561%_ _%g115548115565%_))))) + (_%g115546115603%_ _%$stx115543%_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_%stx115570%_) - (letrec ((_%generate115573%_ - (lambda (_%tgt115722%_ _%kws115724%_ _%clauses115725%_) - (letrec ((_%generate-clause115727%_ - (lambda (_%hd116662%_ _%E116664%_) - (let* ((_%__stx116814116815%_ _%hd116662%_) - (_%g116668116695%_ + (lambda (_%stx115607%_) + (letrec ((_%generate115610%_ + (lambda (_%tgt115759%_ _%kws115761%_ _%clauses115762%_) + (letrec ((_%generate-clause115764%_ + (lambda (_%hd116699%_ _%E116701%_) + (let* ((_%__stx116851116852%_ _%hd116699%_) + (_%g116705116732%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116814116815%_)))) - (let ((_%__kont116817116818%_ - (lambda (_%L116791%_ _%L116793%_) - (_%generate1115729%_ - _%hd116662%_ - _%L116793%_ + _%__stx116851116852%_)))) + (let ((_%__kont116854116855%_ + (lambda (_%L116828%_ _%L116830%_) + (_%generate1115766%_ + _%hd116699%_ + _%L116830%_ '#t - _%L116791%_ - _%E116664%_))) - (_%__kont116819116820%_ - (lambda (_%L116743%_ - _%L116745%_ - _%L116746%_) - (_%generate1115729%_ - _%hd116662%_ - _%L116746%_ - _%L116745%_ - _%L116743%_ - _%E116664%_))) - (_%__kont116821116822%_ + _%L116828%_ + _%E116701%_))) + (_%__kont116856116857%_ + (lambda (_%L116780%_ + _%L116782%_ + _%L116783%_) + (_%generate1115766%_ + _%hd116699%_ + _%L116783%_ + _%L116782%_ + _%L116780%_ + _%E116701%_))) + (_%__kont116858116859%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _%stx115570%_ - _%hd116662%_)))) - (if (gx#stx-pair? _%__stx116814116815%_) - (let ((_%e116672116771%_ + _%stx115607%_ + _%hd116699%_)))) + (if (gx#stx-pair? _%__stx116851116852%_) + (let ((_%e116709116808%_ (gx#syntax-e - _%__stx116814116815%_))) - (let ((_%tl116674116778%_ + _%__stx116851116852%_))) + (let ((_%tl116711116815%_ (let () (declare (not safe)) - (##cdr _%e116672116771%_))) - (_%hd116673116775%_ + (##cdr _%e116709116808%_))) + (_%hd116710116812%_ (let () (declare (not safe)) - (##car _%e116672116771%_)))) + (##car _%e116709116808%_)))) (if (gx#stx-pair? - _%tl116674116778%_) - (let ((_%e116675116781%_ + _%tl116711116815%_) + (let ((_%e116712116818%_ (gx#syntax-e - _%tl116674116778%_))) - (let ((_%tl116677116788%_ + _%tl116711116815%_))) + (let ((_%tl116714116825%_ (let () (declare (not safe)) - (##cdr _%e116675116781%_))) - (_%hd116676116785%_ + (##cdr _%e116712116818%_))) + (_%hd116713116822%_ (let () (declare (not safe)) - (##car _%e116675116781%_)))) + (##car _%e116712116818%_)))) (if (gx#stx-null? - _%tl116677116788%_) - (_%__kont116817116818%_ - _%hd116676116785%_ - _%hd116673116775%_) + _%tl116714116825%_) + (_%__kont116854116855%_ + _%hd116713116822%_ + _%hd116710116812%_) (if (gx#stx-pair? - _%tl116677116788%_) - (let ((_%e116687116733%_ + _%tl116714116825%_) + (let ((_%e116724116770%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl116677116788%_))) - (let ((_%tl116689116740%_ + (gx#syntax-e _%tl116714116825%_))) + (let ((_%tl116726116777%_ (let () (declare (not safe)) - (##cdr _%e116687116733%_))) - (_%hd116688116737%_ + (##cdr _%e116724116770%_))) + (_%hd116725116774%_ (let () (declare (not safe)) - (##car _%e116687116733%_)))) - (if (gx#stx-null? _%tl116689116740%_) - (_%__kont116819116820%_ - _%hd116688116737%_ - _%hd116676116785%_ - _%hd116673116775%_) - (_%__kont116821116822%_)))) - (_%__kont116821116822%_))))) + (##car _%e116724116770%_)))) + (if (gx#stx-null? _%tl116726116777%_) + (_%__kont116856116857%_ + _%hd116725116774%_ + _%hd116713116822%_ + _%hd116710116812%_) + (_%__kont116858116859%_)))) + (_%__kont116858116859%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116821116822%_)))) - (_%__kont116821116822%_)))))) - (_%generate1115729%_ - (lambda (_%where116115%_ - _%hd116117%_ - _%fender116118%_ - _%body116119%_ - _%E116120%_) - (letrec ((_%recur116122%_ - (lambda (_%hd116125%_ - _%tgt116127%_ - _%K116128%_) - (let* ((_%__stx116860116861%_ - _%hd116125%_) - (_%g116131116143%_ + (_%__kont116858116859%_)))) + (_%__kont116858116859%_)))))) + (_%generate1115766%_ + (lambda (_%where116152%_ + _%hd116154%_ + _%fender116155%_ + _%body116156%_ + _%E116157%_) + (letrec ((_%recur116159%_ + (lambda (_%hd116162%_ + _%tgt116164%_ + _%K116165%_) + (let* ((_%__stx116897116898%_ + _%hd116162%_) + (_%g116168116180%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116860116861%_)))) - (let ((_%__kont116863116864%_ - (lambda (_%L116452%_ - _%L116454%_) - (let* ((_%g116465116473%_ - (lambda (_%g116466116469%_) + _%__stx116897116898%_)))) + (let ((_%__kont116900116901%_ + (lambda (_%L116489%_ + _%L116491%_) + (let* ((_%g116502116510%_ + (lambda (_%g116503116506%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116466116469%_))) - (_%g116464116654%_ - (lambda (_%g116466116477%_) - ((lambda (_%L116480%_) - (let* ((_%g116492116500%_ - (lambda (_%g116493116496%_) + _%g116503116506%_))) + (_%g116501116691%_ + (lambda (_%g116503116514%_) + ((lambda (_%L116517%_) + (let* ((_%g116529116537%_ + (lambda (_%g116530116533%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116493116496%_))) - (_%g116491116650%_ - (lambda (_%g116493116504%_) - ((lambda (_%L116507%_) - (let* ((_%g116520116528%_ - (lambda (_%g116521116524%_) + _%g116530116533%_))) + (_%g116528116687%_ + (lambda (_%g116530116541%_) + ((lambda (_%L116544%_) + (let* ((_%g116557116565%_ + (lambda (_%g116558116561%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116521116524%_))) - (_%g116519116646%_ - (lambda (_%g116521116532%_) - ((lambda (_%L116535%_) - (let* ((_%g116548116556%_ - (lambda (_%g116549116552%_) + _%g116558116561%_))) + (_%g116556116683%_ + (lambda (_%g116558116569%_) + ((lambda (_%L116572%_) + (let* ((_%g116585116593%_ + (lambda (_%g116586116589%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g116549116552%_))) - (_%g116547116642%_ - (lambda (_%g116549116560%_) - ((lambda (_%L116563%_) - (let* ((_%g116576116584%_ - (lambda (_%g116577116580%_) + _%g116586116589%_))) + (_%g116584116679%_ + (lambda (_%g116586116597%_) + ((lambda (_%L116600%_) + (let* ((_%g116613116621%_ + (lambda (_%g116614116617%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116577116580%_))) - (_%g116575116638%_ - (lambda (_%g116577116588%_) - ((lambda (_%L116591%_) - (let* ((_%g116604116612%_ - (lambda (_%g116605116608%_) + _%g116614116617%_))) + (_%g116612116675%_ + (lambda (_%g116614116625%_) + ((lambda (_%L116628%_) + (let* ((_%g116641116649%_ + (lambda (_%g116642116645%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116605116608%_))) - (_%g116603116634%_ - (lambda (_%g116605116616%_) - ((lambda (_%L116619%_) + _%g116642116645%_))) + (_%g116640116671%_ + (lambda (_%g116642116653%_) + ((lambda (_%L116656%_) (cons (gx#datum->syntax '#f 'if) @@ -407,306 +407,306 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'stx-pair?) - (cons _%L116480%_ '())) + (cons _%L116517%_ '())) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116507%_ + (cons (cons (cons _%L116544%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax-e) - (cons _%L116480%_ '())) + (cons _%L116517%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116535%_ + (cons (cons (cons _%L116572%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L116507%_ '())) + (cons _%L116544%_ '())) '())) - (cons (cons _%L116563%_ + (cons (cons _%L116600%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L116507%_ '())) + (cons _%L116544%_ '())) '())) '())) - (cons _%L116591%_ '()))) + (cons _%L116628%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%L116619%_ '()))))) + (cons _%L116656%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116605116616%_)))) - (_%g116603116634%_ _%E116120%_))) - _%g116577116588%_)))) - (_%g116575116638%_ - (_%recur116122%_ - _%L116454%_ - _%L116535%_ - (_%recur116122%_ - _%L116452%_ - _%L116563%_ - _%K116128%_))))) - _%g116549116560%_)))) - (_%g116547116642%_ (gx#genident 'tl)))) + _%g116642116653%_)))) + (_%g116640116671%_ _%E116157%_))) + _%g116614116625%_)))) + (_%g116612116675%_ + (_%recur116159%_ + _%L116491%_ + _%L116572%_ + (_%recur116159%_ + _%L116489%_ + _%L116600%_ + _%K116165%_))))) + _%g116586116597%_)))) + (_%g116584116679%_ (gx#genident 'tl)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116521116532%_)))) - (_%g116519116646%_ + _%g116558116569%_)))) + (_%g116556116683%_ (gx#genident 'hd)))) - _%g116493116504%_)))) - (_%g116491116650%_ (gx#genident 'e)))) - _%g116466116477%_)))) - (_%g116464116654%_ _%tgt116127%_)))) + _%g116530116541%_)))) + (_%g116528116687%_ (gx#genident 'e)))) + _%g116503116514%_)))) + (_%g116501116691%_ _%tgt116164%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116865116866%_ + (_%__kont116902116903%_ (lambda () (if (gx#identifier? - _%hd116125%_) + _%hd116162%_) (if (gx#underscore? - _%hd116125%_) - _%K116128%_ - (if (let ((__tmp116932 + _%hd116162%_) + _%K116165%_ + (if (let ((__tmp116969 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g116157116159%_) + (lambda (_%g116194116196%_) (gx#bound-identifier=? - _%g116157116159%_ - _%hd116125%_)))) + _%g116194116196%_ + _%hd116162%_)))) (declare (not safe)) - (__find __tmp116932 _%kws115724%_)) - (let* ((_%g116165116180%_ - (lambda (_%g116166116176%_) + (__find __tmp116969 _%kws115761%_)) + (let* ((_%g116202116217%_ + (lambda (_%g116203116213%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116166116176%_))) - (_%g116164116233%_ - (lambda (_%g116166116184%_) - (if (gx#stx-pair? _%g116166116184%_) - (let ((_%e116169116187%_ + _%g116203116213%_))) + (_%g116201116270%_ + (lambda (_%g116203116221%_) + (if (gx#stx-pair? _%g116203116221%_) + (let ((_%e116206116224%_ (gx#syntax-e - _%g116166116184%_))) - (let ((_%hd116170116191%_ + _%g116203116221%_))) + (let ((_%hd116207116228%_ (let () (declare (not safe)) - (##car _%e116169116187%_))) - (_%tl116171116194%_ + (##car _%e116206116224%_))) + (_%tl116208116231%_ (let () (declare (not safe)) - (##cdr _%e116169116187%_)))) + (##cdr _%e116206116224%_)))) (if (gx#stx-pair? - _%tl116171116194%_) - (let ((_%e116172116197%_ + _%tl116208116231%_) + (let ((_%e116209116234%_ (gx#syntax-e - _%tl116171116194%_))) - (let ((_%hd116173116201%_ + _%tl116208116231%_))) + (let ((_%hd116210116238%_ (let () (declare (not safe)) - (##car _%e116172116197%_))) - (_%tl116174116204%_ + (##car _%e116209116234%_))) + (_%tl116211116241%_ (let () (declare (not safe)) - (##cdr _%e116172116197%_)))) + (##cdr _%e116209116234%_)))) (if (gx#stx-null? - _%tl116174116204%_) - ((lambda (_%L116207%_ + _%tl116211116241%_) + ((lambda (_%L116244%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116209%_) + _%L116246%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f 'identifier?) - (cons _%L116209%_ '())) + (cons _%L116246%_ '())) (cons (cons (gx#datum->syntax '#f 'core-identifier=?) - (cons _%L116209%_ + (cons _%L116246%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L116207%_ '())) + (cons _%L116244%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%K116128%_ (cons _%E116120%_ '()))))) - _%hd116173116201%_ - _%hd116170116191%_) - (_%g116165116180%_ _%g116166116184%_)))) + (cons _%K116165%_ (cons _%E116157%_ '()))))) + _%hd116210116238%_ + _%hd116207116228%_) + (_%g116202116217%_ _%g116203116221%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116165116180%_ - _%g116166116184%_)))) - (_%g116165116180%_ - _%g116166116184%_))))) - (_%g116164116233%_ - (list _%tgt116127%_ _%hd116125%_))) - (let* ((_%g116239116254%_ - (lambda (_%g116240116250%_) + (_%g116202116217%_ + _%g116203116221%_)))) + (_%g116202116217%_ + _%g116203116221%_))))) + (_%g116201116270%_ + (list _%tgt116164%_ _%hd116162%_))) + (let* ((_%g116276116291%_ + (lambda (_%g116277116287%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116240116250%_))) - (_%g116238116299%_ - (lambda (_%g116240116258%_) - (if (gx#stx-pair? _%g116240116258%_) - (let ((_%e116243116261%_ + _%g116277116287%_))) + (_%g116275116336%_ + (lambda (_%g116277116295%_) + (if (gx#stx-pair? _%g116277116295%_) + (let ((_%e116280116298%_ (gx#syntax-e - _%g116240116258%_))) - (let ((_%hd116244116265%_ + _%g116277116295%_))) + (let ((_%hd116281116302%_ (let () (declare (not safe)) - (##car _%e116243116261%_))) - (_%tl116245116268%_ + (##car _%e116280116298%_))) + (_%tl116282116305%_ (let () (declare (not safe)) - (##cdr _%e116243116261%_)))) + (##cdr _%e116280116298%_)))) (if (gx#stx-pair? - _%tl116245116268%_) - (let ((_%e116246116271%_ + _%tl116282116305%_) + (let ((_%e116283116308%_ (gx#syntax-e - _%tl116245116268%_))) - (let ((_%hd116247116275%_ + _%tl116282116305%_))) + (let ((_%hd116284116312%_ (let () (declare (not safe)) - (##car _%e116246116271%_))) - (_%tl116248116278%_ + (##car _%e116283116308%_))) + (_%tl116285116315%_ (let () (declare (not safe)) - (##cdr _%e116246116271%_)))) + (##cdr _%e116283116308%_)))) (if (gx#stx-null? - _%tl116248116278%_) - ((lambda (_%L116281%_ + _%tl116285116315%_) + ((lambda (_%L116318%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116283%_) + _%L116320%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116281%_ (cons _%L116283%_ '())) + (cons (cons (cons _%L116318%_ (cons _%L116320%_ '())) '()) - (cons _%K116128%_ '())))) - _%hd116247116275%_ - _%hd116244116265%_) - (_%g116239116254%_ _%g116240116258%_)))) + (cons _%K116165%_ '())))) + _%hd116284116312%_ + _%hd116281116302%_) + (_%g116276116291%_ _%g116277116295%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116239116254%_ - _%g116240116258%_)))) - (_%g116239116254%_ - _%g116240116258%_))))) - (_%g116238116299%_ - (list _%tgt116127%_ _%hd116125%_))))) - (if (gx#stx-null? _%hd116125%_) - (let* ((_%g116305116313%_ - (lambda (_%g116306116309%_) + (_%g116276116291%_ + _%g116277116295%_)))) + (_%g116276116291%_ + _%g116277116295%_))))) + (_%g116275116336%_ + (list _%tgt116164%_ _%hd116162%_))))) + (if (gx#stx-null? _%hd116162%_) + (let* ((_%g116342116350%_ + (lambda (_%g116343116346%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116306116309%_))) - (_%g116304116332%_ - (lambda (_%g116306116317%_) - ((lambda (_%L116320%_) + _%g116343116346%_))) + (_%g116341116369%_ + (lambda (_%g116343116354%_) + ((lambda (_%L116357%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'stx-null?) - (cons _%L116320%_ '())) - (cons _%K116128%_ - (cons _%E116120%_ + (cons _%L116357%_ '())) + (cons _%K116165%_ + (cons _%E116157%_ '()))))) - _%g116306116317%_)))) - (_%g116304116332%_ _%tgt116127%_)) - (if (gx#stx-datum? _%hd116125%_) - (let* ((_%g116338116357%_ - (lambda (_%g116339116353%_) + _%g116343116354%_)))) + (_%g116341116369%_ _%tgt116164%_)) + (if (gx#stx-datum? _%hd116162%_) + (let* ((_%g116375116394%_ + (lambda (_%g116376116390%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116339116353%_))) - (_%g116337116416%_ - (lambda (_%g116339116361%_) - (if (gx#stx-pair? _%g116339116361%_) - (let ((_%e116343116364%_ + _%g116376116390%_))) + (_%g116374116453%_ + (lambda (_%g116376116398%_) + (if (gx#stx-pair? _%g116376116398%_) + (let ((_%e116380116401%_ (gx#syntax-e - _%g116339116361%_))) - (let ((_%hd116344116368%_ + _%g116376116398%_))) + (let ((_%hd116381116405%_ (let () (declare (not safe)) - (##car _%e116343116364%_))) - (_%tl116345116371%_ + (##car _%e116380116401%_))) + (_%tl116382116408%_ (let () (declare (not safe)) - (##cdr _%e116343116364%_)))) + (##cdr _%e116380116401%_)))) (if (gx#stx-pair? - _%tl116345116371%_) - (let ((_%e116346116374%_ + _%tl116382116408%_) + (let ((_%e116383116411%_ (gx#syntax-e - _%tl116345116371%_))) - (let ((_%hd116347116378%_ + _%tl116382116408%_))) + (let ((_%hd116384116415%_ (let () (declare (not safe)) - (##car _%e116346116374%_))) - (_%tl116348116381%_ + (##car _%e116383116411%_))) + (_%tl116385116418%_ (let () (declare (not safe)) - (##cdr _%e116346116374%_)))) + (##cdr _%e116383116411%_)))) (if (gx#stx-pair? - _%tl116348116381%_) - (let ((_%e116349116384%_ + _%tl116385116418%_) + (let ((_%e116386116421%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl116348116381%_))) - (let ((_%hd116350116388%_ + _%tl116385116418%_))) + (let ((_%hd116387116425%_ (let () (declare (not safe)) - (##car _%e116349116384%_))) - (_%tl116351116391%_ + (##car _%e116386116421%_))) + (_%tl116388116428%_ (let () (declare (not safe)) - (##cdr _%e116349116384%_)))) - (if (gx#stx-null? _%tl116351116391%_) - ((lambda (_%L116394%_ _%L116396%_ _%L116397%_) + (##cdr _%e116386116421%_)))) + (if (gx#stx-null? _%tl116388116428%_) + ((lambda (_%L116431%_ _%L116433%_ _%L116434%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L116394%_ + (cons (cons _%L116431%_ (cons (cons (gx#datum->syntax '#f 'stx-e) - (cons _%L116397%_ + (cons _%L116434%_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L116396%_ '())) + (cons _%L116433%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%K116128%_ - (cons _%E116120%_ '()))))) - _%hd116350116388%_ - _%hd116347116378%_ - _%hd116344116368%_) - (_%g116338116357%_ _%g116339116361%_)))) - (_%g116338116357%_ _%g116339116361%_)))) + (cons _%K116165%_ + (cons _%E116157%_ '()))))) + _%hd116387116425%_ + _%hd116384116415%_ + _%hd116381116405%_) + (_%g116375116394%_ _%g116376116398%_)))) + (_%g116375116394%_ _%g116376116398%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116338116357%_ - _%g116339116361%_)))) - (_%g116338116357%_ - _%g116339116361%_))))) - (_%g116337116416%_ - (list _%tgt116127%_ - _%hd116125%_ - (let ((_%e116420%_ - (gx#stx-e _%hd116125%_))) - (if (or (keyword? _%e116420%_) + (_%g116375116394%_ + _%g116376116398%_)))) + (_%g116375116394%_ + _%g116376116398%_))))) + (_%g116374116453%_ + (list _%tgt116164%_ + _%hd116162%_ + (let ((_%e116457%_ + (gx#stx-e _%hd116162%_))) + (if (or (keyword? _%e116457%_) (let () (declare (not safe)) - (immediate? _%e116420%_))) + (immediate? _%e116457%_))) (gx#datum->syntax '#f 'eq?) - (if (number? _%e116420%_) + (if (number? _%e116457%_) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -714,69 +714,69 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _%stx115570%_ - _%where116115%_ - _%hd116125%_))))))) + _%stx115607%_ + _%where116152%_ + _%hd116162%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx116860116861%_) - (let ((_%e116135116442%_ + _%__stx116897116898%_) + (let ((_%e116172116479%_ (gx#syntax-e - _%__stx116860116861%_))) - (let ((_%tl116137116449%_ + _%__stx116897116898%_))) + (let ((_%tl116174116486%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e116135116442%_))) - (_%hd116136116446%_ - (let () (declare (not safe)) (##car _%e116135116442%_)))) - (_%__kont116863116864%_ - _%tl116137116449%_ - _%hd116136116446%_))) + (##cdr _%e116172116479%_))) + (_%hd116173116483%_ + (let () (declare (not safe)) (##car _%e116172116479%_)))) + (_%__kont116900116901%_ + _%tl116174116486%_ + _%hd116173116483%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116865116866%_))))))) - (_%recur116122%_ - _%hd116117%_ - _%tgt115722%_ + (_%__kont116902116903%_))))))) + (_%recur116159%_ + _%hd116154%_ + _%tgt115759%_ (cons (gx#datum->syntax '#f 'if) - (cons _%fender116118%_ - (cons _%body116119%_ - (cons _%E116120%_ + (cons _%fender116155%_ + (cons _%body116156%_ + (cons _%E116157%_ '())))))))) - (_%generate-clauses115730%_ - (lambda (_%clauses115853%_) - (let _%lp115856%_ ((_%rest115859%_ - _%clauses115853%_) - (_%E115861%_ + (_%generate-clauses115767%_ + (lambda (_%clauses115890%_) + (let _%lp115893%_ ((_%rest115896%_ + _%clauses115890%_) + (_%E115898%_ (gx#genident 'E)) - (_%r115862%_ '())) - (let* ((_%__stx116896116897%_ _%rest115859%_) - (_%g115865115877%_ + (_%r115899%_ '())) + (let* ((_%__stx116933116934%_ _%rest115896%_) + (_%g115902115914%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116896116897%_)))) - (let ((_%__kont116899116900%_ - (lambda (_%L115942%_ _%L115944%_) - (let* ((_%__stx116876116877%_ - _%L115944%_) - (_%g115956115967%_ + _%__stx116933116934%_)))) + (let ((_%__kont116936116937%_ + (lambda (_%L115979%_ _%L115981%_) + (let* ((_%__stx116913116914%_ + _%L115981%_) + (_%g115993116004%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116876116877%_)))) - (let ((_%__kont116879116880%_ - (lambda (_%L116096%_) + _%__stx116913116914%_)))) + (let ((_%__kont116916116917%_ + (lambda (_%L116133%_) (if (gx#stx-null? - _%L115942%_) + _%L115979%_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116096%_) - (not (gx#stx-null? _%L116096%_))) - (cons (cons _%E115861%_ + _%L116133%_) + (not (gx#stx-null? _%L116133%_))) + (cons (cons _%E115898%_ (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() @@ -784,113 +784,113 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - _%L116096%_) + _%L116133%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%L115944%_)) + (gx#stx-source _%L115981%_)) '())) - _%r115862%_) + _%r115899%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _%stx115570%_ - _%L115944%_)) + _%stx115607%_ + _%L115981%_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _%stx115570%_ - _%L115944%_)))) + _%stx115607%_ + _%L115981%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116881116882%_ + (_%__kont116918116919%_ (lambda () - (let* ((_%g115978115986%_ - (lambda (_%g115979115982%_) + (let* ((_%g116015116023%_ + (lambda (_%g116016116019%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115979115982%_))) - (_%g115977116075%_ - (lambda (_%g115979115990%_) - ((lambda (_%L115993%_) - (let* ((_%g116009116017%_ - (lambda (_%g116010116013%_) + _%g116016116019%_))) + (_%g116014116112%_ + (lambda (_%g116016116027%_) + ((lambda (_%L116030%_) + (let* ((_%g116046116054%_ + (lambda (_%g116047116050%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116010116013%_))) - (_%g116008116071%_ - (lambda (_%g116010116021%_) - ((lambda (_%L116024%_) - (let* ((_%g116037116045%_ - (lambda (_%g116038116041%_) + _%g116047116050%_))) + (_%g116045116108%_ + (lambda (_%g116047116058%_) + ((lambda (_%L116061%_) + (let* ((_%g116074116082%_ + (lambda (_%g116075116078%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116038116041%_))) - (_%g116036116067%_ - (lambda (_%g116038116049%_) - ((lambda (_%L116052%_) - (_%lp115856%_ - _%L115942%_ - _%L115993%_ - (cons (cons _%E115861%_ + _%g116075116078%_))) + (_%g116073116104%_ + (lambda (_%g116075116086%_) + ((lambda (_%L116089%_) + (_%lp115893%_ + _%L115979%_ + _%L116030%_ + (cons (cons _%E115898%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L116052%_ '())) - _%r115862%_))) + (cons _%L116089%_ '())) + _%r115899%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116038116049%_)))) - (_%g116036116067%_ + _%g116075116086%_)))) + (_%g116073116104%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L116024%_ + (cons _%L116061%_ '()))) - (gx#stx-source _%L115944%_))))) - _%g116010116021%_)))) - (_%g116008116071%_ - (_%generate-clause115727%_ - _%L115944%_ - (cons _%L115993%_ '()))))) - _%g115979115990%_)))) - (_%g115977116075%_ (gx#genident 'E)))))) + (gx#stx-source _%L115981%_))))) + _%g116047116058%_)))) + (_%g116045116108%_ + (_%generate-clause115764%_ + _%L115981%_ + (cons _%L116030%_ '()))))) + _%g116016116027%_)))) + (_%g116014116112%_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx116876116877%_) - (let ((_%e115959116086%_ + _%__stx116913116914%_) + (let ((_%e115996116123%_ (gx#syntax-e - _%__stx116876116877%_))) - (let ((_%tl115961116093%_ + _%__stx116913116914%_))) + (let ((_%tl115998116130%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e115959116086%_))) - (_%hd115960116090%_ - (let () (declare (not safe)) (##car _%e115959116086%_)))) - (if (gx#identifier? _%hd115960116090%_) + (##cdr _%e115996116123%_))) + (_%hd115997116127%_ + (let () (declare (not safe)) (##car _%e115996116123%_)))) + (if (gx#identifier? _%hd115997116127%_) (if (gx#free-identifier=? - |gx[1]#_g116933_| - _%hd115960116090%_) - (_%__kont116879116880%_ _%tl115961116093%_) - (_%__kont116881116882%_)) - (_%__kont116881116882%_)))) + |gx[1]#_g116970_| + _%hd115997116127%_) + (_%__kont116916116917%_ _%tl115998116130%_) + (_%__kont116918116919%_)) + (_%__kont116918116919%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116881116882%_)))))) - (_%__kont116901116902%_ + (_%__kont116918116919%_)))))) + (_%__kont116938116939%_ (lambda () - (let* ((_%g115888115896%_ - (lambda (_%g115889115892%_) + (let* ((_%g115925115933%_ + (lambda (_%g115926115929%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115889115892%_))) - (_%g115887115921%_ - (lambda (_%g115889115900%_) - ((lambda (_%L115903%_) - (cons (cons _%E115861%_ + _%g115926115929%_))) + (_%g115924115958%_ + (lambda (_%g115926115937%_) + ((lambda (_%L115940%_) + (cons (cons _%E115898%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (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 _%L115903%_ '())))) + (cons _%L115940%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx115570%_)) + (gx#stx-source _%stx115607%_)) '())) - _%r115862%_)) - _%g115889115900%_)))) + _%r115899%_)) + _%g115926115937%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g115887115921%_ - _%tgt115722%_))))) - (if (gx#stx-pair? _%__stx116896116897%_) - (let ((_%e115869115932%_ + (_%g115924115958%_ + _%tgt115759%_))))) + (if (gx#stx-pair? _%__stx116933116934%_) + (let ((_%e115906115969%_ (gx#syntax-e - _%__stx116896116897%_))) - (let ((_%tl115871115939%_ + _%__stx116933116934%_))) + (let ((_%tl115908115976%_ (let () (declare (not safe)) - (##cdr _%e115869115932%_))) - (_%hd115870115936%_ + (##cdr _%e115906115969%_))) + (_%hd115907115973%_ (let () (declare (not safe)) - (##car _%e115869115932%_)))) - (_%__kont116899116900%_ - _%tl115871115939%_ - _%hd115870115936%_))) - (_%__kont116901116902%_)))))))) - (let* ((_%bind115732%_ - (_%generate-clauses115730%_ _%clauses115725%_)) - (_%g115735115752%_ - (lambda (_%g115736115748%_) + (##car _%e115906115969%_)))) + (_%__kont116936116937%_ + _%tl115908115976%_ + _%hd115907115973%_))) + (_%__kont116938116939%_)))))))) + (let* ((_%bind115769%_ + (_%generate-clauses115767%_ _%clauses115762%_)) + (_%g115772115789%_ + (lambda (_%g115773115785%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115736115748%_))) - (_%g115734115849%_ - (lambda (_%g115736115756%_) - (if (gx#stx-pair/null? _%g115736115756%_) - (let ((_g116934_ + _%g115773115785%_))) + (_%g115771115886%_ + (lambda (_%g115773115793%_) + (if (gx#stx-pair/null? _%g115773115793%_) + (let ((_g116971_ (gx#syntax-split-splice - _%g115736115756%_ + _%g115773115793%_ '0))) (begin - (let ((_g116935_ + (let ((_g116972_ (let () (declare (not safe)) - (if (##values? _g116934_) + (if (##values? _g116971_) (##vector-length - _g116934_) + _g116971_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g116935_ 2))) + (##fx= _g116972_ 2))) (error "Context expects 2 values" - _g116935_))) - (let ((_%target115738115759%_ + _g116972_))) + (let ((_%target115775115796%_ (let () (declare (not safe)) - (##vector-ref _g116934_ 0))) - (_%tl115740115762%_ + (##vector-ref _g116971_ 0))) + (_%tl115777115799%_ (let () (declare (not safe)) - (##vector-ref _g116934_ 1)))) - (if (gx#stx-null? _%tl115740115762%_) - (letrec ((_%loop115741115765%_ - (lambda (_%hd115739115769%_ + (##vector-ref _g116971_ 1)))) + (if (gx#stx-null? _%tl115777115799%_) + (letrec ((_%loop115778115802%_ + (lambda (_%hd115776115806%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind-try115745115772%_) - (if (gx#stx-pair? _%hd115739115769%_) - (let ((_%e115742115775%_ - (gx#syntax-e _%hd115739115769%_))) - (let ((_%lp-hd115743115779%_ + _%bind-try115782115809%_) + (if (gx#stx-pair? _%hd115776115806%_) + (let ((_%e115779115812%_ + (gx#syntax-e _%hd115776115806%_))) + (let ((_%lp-hd115780115816%_ (let () (declare (not safe)) - (##car _%e115742115775%_))) - (_%lp-tl115744115782%_ + (##car _%e115779115812%_))) + (_%lp-tl115781115819%_ (let () (declare (not safe)) - (##cdr _%e115742115775%_)))) - (_%loop115741115765%_ - _%lp-tl115744115782%_ - (cons _%lp-hd115743115779%_ - _%bind-try115745115772%_)))) - (let ((_%bind-try115746115785%_ - (reverse _%bind-try115745115772%_))) - ((lambda (_%L115789%_) - (let* ((_%g115807115815%_ - (lambda (_%g115808115811%_) + (##cdr _%e115779115812%_)))) + (_%loop115778115802%_ + _%lp-tl115781115819%_ + (cons _%lp-hd115780115816%_ + _%bind-try115782115809%_)))) + (let ((_%bind-try115783115822%_ + (reverse _%bind-try115782115809%_))) + ((lambda (_%L115826%_) + (let* ((_%g115844115852%_ + (lambda (_%g115845115848%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115808115811%_))) - (_%g115806115845%_ - (lambda (_%g115808115819%_) - ((lambda (_%L115822%_) + _%g115845115848%_))) + (_%g115843115882%_ + (lambda (_%g115845115856%_) + ((lambda (_%L115859%_) (cons (gx#datum->syntax '#f 'let*) - (cons (let ((__tmp116936 - (lambda (_%g115836115839%_ + (cons (let ((__tmp116973 + (lambda (_%g115873115876%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g115837115842%_) - (cons _%g115836115839%_ _%g115837115842%_)))) + _%g115874115879%_) + (cons _%g115873115876%_ _%g115874115879%_)))) (declare (not safe)) - (__foldr1 __tmp116936 '() _%L115789%_)) + (__foldr1 __tmp116973 '() _%L115826%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L115822%_ + (cons (cons _%L115859%_ '()) '())))) - _%g115808115819%_)))) - (_%g115806115845%_ (car (last _%bind115732%_))))) - _%bind-try115746115785%_)))))) + _%g115845115856%_)))) + (_%g115843115882%_ (car (last _%bind115769%_))))) + _%bind-try115783115822%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop115741115765%_ - _%target115738115759%_ + (_%loop115778115802%_ + _%target115775115796%_ '())) - (_%g115735115752%_ - _%g115736115756%_))))) - (_%g115735115752%_ _%g115736115756%_))))) - (_%g115734115849%_ _%bind115732%_)))))) - (let* ((_%g115576115595%_ - (lambda (_%g115577115591%_) + (_%g115772115789%_ + _%g115773115793%_))))) + (_%g115772115789%_ _%g115773115793%_))))) + (_%g115771115886%_ _%bind115769%_)))))) + (let* ((_%g115613115632%_ + (lambda (_%g115614115628%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115577115591%_))) - (_%g115575115718%_ - (lambda (_%g115577115599%_) - (if (gx#stx-pair? _%g115577115599%_) - (let ((_%e115581115602%_ - (gx#syntax-e _%g115577115599%_))) - (let ((_%hd115582115606%_ + _%g115614115628%_))) + (_%g115612115755%_ + (lambda (_%g115614115636%_) + (if (gx#stx-pair? _%g115614115636%_) + (let ((_%e115618115639%_ + (gx#syntax-e _%g115614115636%_))) + (let ((_%hd115619115643%_ (let () (declare (not safe)) - (##car _%e115581115602%_))) - (_%tl115583115609%_ + (##car _%e115618115639%_))) + (_%tl115620115646%_ (let () (declare (not safe)) - (##cdr _%e115581115602%_)))) - (if (gx#stx-pair? _%tl115583115609%_) - (let ((_%e115584115612%_ - (gx#syntax-e _%tl115583115609%_))) - (let ((_%hd115585115616%_ + (##cdr _%e115618115639%_)))) + (if (gx#stx-pair? _%tl115620115646%_) + (let ((_%e115621115649%_ + (gx#syntax-e _%tl115620115646%_))) + (let ((_%hd115622115653%_ (let () (declare (not safe)) - (##car _%e115584115612%_))) - (_%tl115586115619%_ + (##car _%e115621115649%_))) + (_%tl115623115656%_ (let () (declare (not safe)) - (##cdr _%e115584115612%_)))) - (if (gx#stx-pair? _%tl115586115619%_) - (let ((_%e115587115622%_ + (##cdr _%e115621115649%_)))) + (if (gx#stx-pair? _%tl115623115656%_) + (let ((_%e115624115659%_ (gx#syntax-e - _%tl115586115619%_))) - (let ((_%hd115588115626%_ + _%tl115623115656%_))) + (let ((_%hd115625115663%_ (let () (declare (not safe)) - (##car _%e115587115622%_))) - (_%tl115589115629%_ + (##car _%e115624115659%_))) + (_%tl115626115666%_ (let () (declare (not safe)) - (##cdr _%e115587115622%_)))) - ((lambda (_%L115632%_ - _%L115634%_ - _%L115635%_) + (##cdr _%e115624115659%_)))) + ((lambda (_%L115669%_ + _%L115671%_ + _%L115672%_) (if (and (gx#identifier-list? - _%L115634%_) + _%L115671%_) (gx#stx-list? - _%L115632%_)) - (let* ((_%g115653115661%_ - (lambda (_%g115654115657%_) + _%L115669%_)) + (let* ((_%g115690115698%_ + (lambda (_%g115691115694%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115654115657%_))) - (_%g115652115714%_ - (lambda (_%g115654115665%_) - ((lambda (_%L115668%_) - (let* ((_%g115680115688%_ + _%g115691115694%_))) + (_%g115689115751%_ + (lambda (_%g115691115702%_) + ((lambda (_%L115705%_) + (let* ((_%g115717115725%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g115681115684%_) + (lambda (_%g115718115721%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115681115684%_))) - (_%g115679115710%_ - (lambda (_%g115681115692%_) - ((lambda (_%L115695%_) + _%g115718115721%_))) + (_%g115716115747%_ + (lambda (_%g115718115729%_) + ((lambda (_%L115732%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L115668%_ - (cons _%L115635%_ + (cons (cons (cons _%L115705%_ + (cons _%L115672%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L115695%_ '())))) - _%g115681115692%_)))) - (_%g115679115710%_ - (_%generate115573%_ - _%L115668%_ - (gx#syntax->list _%L115634%_) - _%L115632%_)))) - _%g115654115665%_)))) + (cons _%L115732%_ '())))) + _%g115718115729%_)))) + (_%g115716115747%_ + (_%generate115610%_ + _%L115705%_ + (gx#syntax->list _%L115671%_) + _%L115669%_)))) + _%g115691115702%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g115652115714%_ + (_%g115689115751%_ (gx#genident 'e))) - (_%g115576115595%_ - _%g115577115599%_))) - _%tl115589115629%_ - _%hd115588115626%_ - _%hd115585115616%_))) - (_%g115576115595%_ - _%g115577115599%_)))) - (_%g115576115595%_ _%g115577115599%_)))) - (_%g115576115595%_ _%g115577115599%_))))) - (_%g115575115718%_ _%stx115570%_))))))) + (_%g115613115632%_ + _%g115614115636%_))) + _%tl115626115666%_ + _%hd115625115663%_ + _%hd115622115653%_))) + (_%g115613115632%_ + _%g115614115636%_)))) + (_%g115613115632%_ _%g115614115636%_)))) + (_%g115613115632%_ _%g115614115636%_))))) + (_%g115612115755%_ _%stx115607%_))))))) diff --git a/src/bootstrap/gerbil/expander/compile~0.scm b/src/bootstrap/gerbil/expander/compile~0.scm index a57874372..d5cc4bed4 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 1733687560) + (define gerbil/expander/compile::timestamp 1733870075) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_%stx130334%_) - (let* ((_%e130335130342%_ _%stx130334%_) - (_%E130337130346%_ + (lambda (_%stx130371%_) + (let* ((_%e130372130379%_ _%stx130371%_) + (_%E130374130383%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130335130342%_))) - (_%E130336130360%_ - (lambda () - (if (gx#stx-pair? _%e130335130342%_) - (let ((_%e130338130350%_ - (gx#syntax-e _%e130335130342%_))) - (let ((_%hd130339130353%_ (##car _%e130338130350%_)) - (_%tl130340130355%_ (##cdr _%e130338130350%_))) - (let* ((_%form130358%_ _%hd130339130353%_) - (__self130363 - (gx#syntax-local-e__0 _%form130358%_)) - (__method130364 + _%e130372130379%_))) + (_%E130373130397%_ + (lambda () + (if (gx#stx-pair? _%e130372130379%_) + (let ((_%e130375130387%_ + (gx#syntax-e _%e130372130379%_))) + (let ((_%hd130376130390%_ (##car _%e130375130387%_)) + (_%tl130377130392%_ (##cdr _%e130375130387%_))) + (let* ((_%form130395%_ _%hd130376130390%_) + (__self130400 + (gx#syntax-local-e__0 _%form130395%_)) + (__method130401 (__method-ref - __self130363 + __self130400 'compile-top-syntax))) - (if __method130364 - (__method130364 __self130363 _%stx130334%_) + (if __method130401 + (__method130401 __self130400 _%stx130371%_) (begin (error '"Missing method" - __self130363 + __self130400 'compile-top-syntax) '#!void))))) - (_%E130337130346%_))))) - (_%E130336130360%_)))) + (_%E130374130383%_))))) + (_%E130373130397%_)))) (define gx#core-expander::compile-top-syntax - (lambda (_%self129177130280%_ _%stx130282%_) - (let* ((_%self130284%_ _%self129177130280%_) - (_%self130286%_ _%self130284%_) - (_%self130295130303%_ _%self130286%_) - (_%E130297130307%_ + (lambda (_%self129214130317%_ _%stx130319%_) + (let* ((_%self130321%_ _%self129214130317%_) + (_%self130323%_ _%self130321%_) + (_%self130332130340%_ _%self130323%_) + (_%E130334130344%_ (lambda () (error '"No clause matching" - _%self130295130303%_ + _%self130332130340%_ '((core-expander _ _ K))) '#!void)) - (_%K130298130320%_ - (lambda (_%K130310%_) - (let ((_%$e130312%_ (gx#stx-source _%stx130282%_))) - (if _%$e130312%_ - ((lambda (_%g130314130316%_) + (_%K130335130357%_ + (lambda (_%K130347%_) + (let ((_%$e130349%_ (gx#stx-source _%stx130319%_))) + (if _%$e130349%_ + ((lambda (_%g130351130353%_) (gx#stx-wrap-source - (_%K130310%_ _%stx130282%_) - _%g130314130316%_)) - _%$e130312%_) - (_%K130310%_ _%stx130282%_))))) - (_%e130299130323%_ - (##unchecked-structure-ref _%self130295130303%_ '1 '#f '#f)) - (_%e130300130326%_ - (##unchecked-structure-ref _%self130295130303%_ '2 '#f '#f)) - (_%e130301130329%_ - (##unchecked-structure-ref _%self130295130303%_ '3 '#f '#f)) - (_%K130332%_ _%e130301130329%_)) - (_%K130298130320%_ _%K130332%_)))) + (_%K130347%_ _%stx130319%_) + _%g130351130353%_)) + _%$e130349%_) + (_%K130347%_ _%stx130319%_))))) + (_%e130336130360%_ + (##unchecked-structure-ref _%self130332130340%_ '1 '#f '#f)) + (_%e130337130363%_ + (##unchecked-structure-ref _%self130332130340%_ '2 '#f '#f)) + (_%e130338130366%_ + (##unchecked-structure-ref _%self130332130340%_ '3 '#f '#f)) + (_%K130369%_ _%e130338130366%_)) + (_%K130335130357%_ _%K130369%_)))) (__bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_%stx130154%_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx130154%_))) + (lambda (_%stx130191%_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx130191%_))) (define gx#core-compile-top-begin% - (lambda (_%stx130124%_) - (let* ((_%e130125130132%_ _%stx130124%_) - (_%E130127130136%_ + (lambda (_%stx130161%_) + (let* ((_%e130162130169%_ _%stx130161%_) + (_%E130164130173%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130125130132%_))) - (_%E130126130150%_ - (lambda () - (if (gx#stx-pair? _%e130125130132%_) - (let ((_%e130128130140%_ - (gx#syntax-e _%e130125130132%_))) - (let ((_%hd130129130143%_ (##car _%e130128130140%_)) - (_%tl130130130145%_ (##cdr _%e130128130140%_))) - (let ((_%body130148%_ _%tl130130130145%_)) + _%e130162130169%_))) + (_%E130163130187%_ + (lambda () + (if (gx#stx-pair? _%e130162130169%_) + (let ((_%e130165130177%_ + (gx#syntax-e _%e130162130169%_))) + (let ((_%hd130166130180%_ (##car _%e130165130177%_)) + (_%tl130167130182%_ (##cdr _%e130165130177%_))) + (let ((_%body130185%_ _%tl130167130182%_)) (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _%body130148%_))))) - (_%E130127130136%_))))) - (_%E130126130150%_)))) + _%body130185%_))))) + (_%E130164130173%_))))) + (_%E130163130187%_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_%stx130093%_) - (let* ((_%e130094130101%_ _%stx130093%_) - (_%E130096130105%_ + (lambda (_%stx130130%_) + (let* ((_%e130131130138%_ _%stx130130%_) + (_%E130133130142%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130094130101%_))) - (_%E130095130120%_ - (lambda () - (if (gx#stx-pair? _%e130094130101%_) - (let ((_%e130097130109%_ - (gx#syntax-e _%e130094130101%_))) - (let ((_%hd130098130112%_ (##car _%e130097130109%_)) - (_%tl130099130114%_ (##cdr _%e130097130109%_))) - (let ((_%body130117%_ _%tl130099130114%_)) + _%e130131130138%_))) + (_%E130132130157%_ + (lambda () + (if (gx#stx-pair? _%e130131130138%_) + (let ((_%e130134130146%_ + (gx#syntax-e _%e130131130138%_))) + (let ((_%hd130135130149%_ (##car _%e130134130146%_)) + (_%tl130136130151%_ (##cdr _%e130134130146%_))) + (let ((_%body130154%_ _%tl130136130151%_)) (cons '%#begin-syntax (__call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _%body130117%_)) + _%body130154%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))))) - (_%E130096130105%_))))) - (_%E130095130120%_)))) + (_%E130133130142%_))))) + (_%E130132130157%_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_%stx130063%_) - (let* ((_%e130064130071%_ _%stx130063%_) - (_%E130066130075%_ + (lambda (_%stx130100%_) + (let* ((_%e130101130108%_ _%stx130100%_) + (_%E130103130112%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130064130071%_))) - (_%E130065130089%_ - (lambda () - (if (gx#stx-pair? _%e130064130071%_) - (let ((_%e130067130079%_ - (gx#syntax-e _%e130064130071%_))) - (let ((_%hd130068130082%_ (##car _%e130067130079%_)) - (_%tl130069130084%_ (##cdr _%e130067130079%_))) - (let ((_%body130087%_ _%tl130069130084%_)) - (cons '%#begin-foreign _%body130087%_)))) - (_%E130066130075%_))))) - (_%E130065130089%_)))) + _%e130101130108%_))) + (_%E130102130126%_ + (lambda () + (if (gx#stx-pair? _%e130101130108%_) + (let ((_%e130104130116%_ + (gx#syntax-e _%e130101130108%_))) + (let ((_%hd130105130119%_ (##car _%e130104130116%_)) + (_%tl130106130121%_ (##cdr _%e130104130116%_))) + (let ((_%body130124%_ _%tl130106130121%_)) + (cons '%#begin-foreign _%body130124%_)))) + (_%E130103130112%_))))) + (_%E130102130126%_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_%stx130009%_) - (let* ((_%e130010130023%_ _%stx130009%_) - (_%E130012130027%_ + (lambda (_%stx130046%_) + (let* ((_%e130047130060%_ _%stx130046%_) + (_%E130049130064%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130010130023%_))) - (_%E130011130059%_ - (lambda () - (if (gx#stx-pair? _%e130010130023%_) - (let ((_%e130013130031%_ - (gx#syntax-e _%e130010130023%_))) - (let ((_%hd130014130034%_ (##car _%e130013130031%_)) - (_%tl130015130036%_ (##cdr _%e130013130031%_))) - (if (gx#stx-pair? _%tl130015130036%_) - (let ((_%e130016130039%_ - (gx#syntax-e _%tl130015130036%_))) - (let ((_%hd130017130042%_ - (##car _%e130016130039%_)) - (_%tl130018130044%_ - (##cdr _%e130016130039%_))) - (let ((_%ann130047%_ _%hd130017130042%_)) - (if (gx#stx-pair? _%tl130018130044%_) - (let ((_%e130019130049%_ + _%e130047130060%_))) + (_%E130048130096%_ + (lambda () + (if (gx#stx-pair? _%e130047130060%_) + (let ((_%e130050130068%_ + (gx#syntax-e _%e130047130060%_))) + (let ((_%hd130051130071%_ (##car _%e130050130068%_)) + (_%tl130052130073%_ (##cdr _%e130050130068%_))) + (if (gx#stx-pair? _%tl130052130073%_) + (let ((_%e130053130076%_ + (gx#syntax-e _%tl130052130073%_))) + (let ((_%hd130054130079%_ + (##car _%e130053130076%_)) + (_%tl130055130081%_ + (##cdr _%e130053130076%_))) + (let ((_%ann130084%_ _%hd130054130079%_)) + (if (gx#stx-pair? _%tl130055130081%_) + (let ((_%e130056130086%_ (gx#syntax-e - _%tl130018130044%_))) - (let ((_%hd130020130052%_ - (##car _%e130019130049%_)) - (_%tl130021130054%_ - (##cdr _%e130019130049%_))) - (let ((_%expr130057%_ - _%hd130020130052%_)) + _%tl130055130081%_))) + (let ((_%hd130057130089%_ + (##car _%e130056130086%_)) + (_%tl130058130091%_ + (##cdr _%e130056130086%_))) + (let ((_%expr130094%_ + _%hd130057130089%_)) (if (gx#stx-null? - _%tl130021130054%_) + _%tl130058130091%_) (gx#core-compile-top-syntax - _%expr130057%_) - (_%E130012130027%_))))) - (_%E130012130027%_))))) - (_%E130012130027%_)))) - (_%E130012130027%_))))) - (_%E130011130059%_)))) + _%expr130094%_) + (_%E130049130064%_))))) + (_%E130049130064%_))))) + (_%E130049130064%_)))) + (_%E130049130064%_))))) + (_%E130048130096%_)))) (define gx#core-compile-top-import% - (lambda (_%stx129979%_) - (let* ((_%e129980129987%_ _%stx129979%_) - (_%E129982129991%_ + (lambda (_%stx130016%_) + (let* ((_%e130017130024%_ _%stx130016%_) + (_%E130019130028%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129980129987%_))) - (_%E129981130005%_ - (lambda () - (if (gx#stx-pair? _%e129980129987%_) - (let ((_%e129983129995%_ - (gx#syntax-e _%e129980129987%_))) - (let ((_%hd129984129998%_ (##car _%e129983129995%_)) - (_%tl129985130000%_ (##cdr _%e129983129995%_))) - (let ((_%body130003%_ _%tl129985130000%_)) - (cons '%#import _%body130003%_)))) - (_%E129982129991%_))))) - (_%E129981130005%_)))) + _%e130017130024%_))) + (_%E130018130042%_ + (lambda () + (if (gx#stx-pair? _%e130017130024%_) + (let ((_%e130020130032%_ + (gx#syntax-e _%e130017130024%_))) + (let ((_%hd130021130035%_ (##car _%e130020130032%_)) + (_%tl130022130037%_ (##cdr _%e130020130032%_))) + (let ((_%body130040%_ _%tl130022130037%_)) + (cons '%#import _%body130040%_)))) + (_%E130019130028%_))))) + (_%E130018130042%_)))) (define gx#core-compile-top-module% - (lambda (_%stx129936%_) - (let* ((_%e129937129947%_ _%stx129936%_) - (_%E129939129951%_ + (lambda (_%stx129973%_) + (let* ((_%e129974129984%_ _%stx129973%_) + (_%E129976129988%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129937129947%_))) - (_%E129938129975%_ - (lambda () - (if (gx#stx-pair? _%e129937129947%_) - (let ((_%e129940129955%_ - (gx#syntax-e _%e129937129947%_))) - (let ((_%hd129941129958%_ (##car _%e129940129955%_)) - (_%tl129942129960%_ (##cdr _%e129940129955%_))) - (if (gx#stx-pair? _%tl129942129960%_) - (let ((_%e129943129963%_ - (gx#syntax-e _%tl129942129960%_))) - (let ((_%hd129944129966%_ - (##car _%e129943129963%_)) - (_%tl129945129968%_ - (##cdr _%e129943129963%_))) - (let* ((_%hd129971%_ _%hd129944129966%_) - (_%body129973%_ _%tl129945129968%_)) + _%e129974129984%_))) + (_%E129975130012%_ + (lambda () + (if (gx#stx-pair? _%e129974129984%_) + (let ((_%e129977129992%_ + (gx#syntax-e _%e129974129984%_))) + (let ((_%hd129978129995%_ (##car _%e129977129992%_)) + (_%tl129979129997%_ (##cdr _%e129977129992%_))) + (if (gx#stx-pair? _%tl129979129997%_) + (let ((_%e129980130000%_ + (gx#syntax-e _%tl129979129997%_))) + (let ((_%hd129981130003%_ + (##car _%e129980130000%_)) + (_%tl129982130005%_ + (##cdr _%e129980130000%_))) + (let* ((_%hd130008%_ _%hd129981130003%_) + (_%body130010%_ _%tl129982130005%_)) (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _%hd129971%_) + _%hd130008%_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _%body129973%_)))))) - (_%E129939129951%_)))) - (_%E129939129951%_))))) - (_%E129938129975%_)))) + _%body130010%_)))))) + (_%E129976129988%_)))) + (_%E129976129988%_))))) + (_%E129975130012%_)))) (define gx#core-compile-top-export% - (lambda (_%stx129906%_) - (let* ((_%e129907129914%_ _%stx129906%_) - (_%E129909129918%_ + (lambda (_%stx129943%_) + (let* ((_%e129944129951%_ _%stx129943%_) + (_%E129946129955%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129907129914%_))) - (_%E129908129932%_ - (lambda () - (if (gx#stx-pair? _%e129907129914%_) - (let ((_%e129910129922%_ - (gx#syntax-e _%e129907129914%_))) - (let ((_%hd129911129925%_ (##car _%e129910129922%_)) - (_%tl129912129927%_ (##cdr _%e129910129922%_))) - (let ((_%body129930%_ _%tl129912129927%_)) - (cons '%#export _%body129930%_)))) - (_%E129909129918%_))))) - (_%E129908129932%_)))) + _%e129944129951%_))) + (_%E129945129969%_ + (lambda () + (if (gx#stx-pair? _%e129944129951%_) + (let ((_%e129947129959%_ + (gx#syntax-e _%e129944129951%_))) + (let ((_%hd129948129962%_ (##car _%e129947129959%_)) + (_%tl129949129964%_ (##cdr _%e129947129959%_))) + (let ((_%body129967%_ _%tl129949129964%_)) + (cons '%#export _%body129967%_)))) + (_%E129946129955%_))))) + (_%E129945129969%_)))) (define gx#core-compile-top-provide% - (lambda (_%stx129876%_) - (let* ((_%e129877129884%_ _%stx129876%_) - (_%E129879129888%_ + (lambda (_%stx129913%_) + (let* ((_%e129914129921%_ _%stx129913%_) + (_%E129916129925%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129877129884%_))) - (_%E129878129902%_ - (lambda () - (if (gx#stx-pair? _%e129877129884%_) - (let ((_%e129880129892%_ - (gx#syntax-e _%e129877129884%_))) - (let ((_%hd129881129895%_ (##car _%e129880129892%_)) - (_%tl129882129897%_ (##cdr _%e129880129892%_))) - (let ((_%body129900%_ _%tl129882129897%_)) - (cons '%#provide _%body129900%_)))) - (_%E129879129888%_))))) - (_%E129878129902%_)))) + _%e129914129921%_))) + (_%E129915129939%_ + (lambda () + (if (gx#stx-pair? _%e129914129921%_) + (let ((_%e129917129929%_ + (gx#syntax-e _%e129914129921%_))) + (let ((_%hd129918129932%_ (##car _%e129917129929%_)) + (_%tl129919129934%_ (##cdr _%e129917129929%_))) + (let ((_%body129937%_ _%tl129919129934%_)) + (cons '%#provide _%body129937%_)))) + (_%E129916129925%_))))) + (_%E129915129939%_)))) (define gx#core-compile-top-extern% - (lambda (_%stx129846%_) - (let* ((_%e129847129854%_ _%stx129846%_) - (_%E129849129858%_ + (lambda (_%stx129883%_) + (let* ((_%e129884129891%_ _%stx129883%_) + (_%E129886129895%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129847129854%_))) - (_%E129848129872%_ - (lambda () - (if (gx#stx-pair? _%e129847129854%_) - (let ((_%e129850129862%_ - (gx#syntax-e _%e129847129854%_))) - (let ((_%hd129851129865%_ (##car _%e129850129862%_)) - (_%tl129852129867%_ (##cdr _%e129850129862%_))) - (let ((_%body129870%_ _%tl129852129867%_)) - (cons '%#extern _%body129870%_)))) - (_%E129849129858%_))))) - (_%E129848129872%_)))) + _%e129884129891%_))) + (_%E129885129909%_ + (lambda () + (if (gx#stx-pair? _%e129884129891%_) + (let ((_%e129887129899%_ + (gx#syntax-e _%e129884129891%_))) + (let ((_%hd129888129902%_ (##car _%e129887129899%_)) + (_%tl129889129904%_ (##cdr _%e129887129899%_))) + (let ((_%body129907%_ _%tl129889129904%_)) + (cons '%#extern _%body129907%_)))) + (_%E129886129895%_))))) + (_%E129885129909%_)))) (define gx#core-compile-top-define-values% - (lambda (_%stx129792%_) - (let* ((_%e129793129806%_ _%stx129792%_) - (_%E129795129810%_ + (lambda (_%stx129829%_) + (let* ((_%e129830129843%_ _%stx129829%_) + (_%E129832129847%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129793129806%_))) - (_%E129794129842%_ - (lambda () - (if (gx#stx-pair? _%e129793129806%_) - (let ((_%e129796129814%_ - (gx#syntax-e _%e129793129806%_))) - (let ((_%hd129797129817%_ (##car _%e129796129814%_)) - (_%tl129798129819%_ (##cdr _%e129796129814%_))) - (if (gx#stx-pair? _%tl129798129819%_) - (let ((_%e129799129822%_ - (gx#syntax-e _%tl129798129819%_))) - (let ((_%hd129800129825%_ - (##car _%e129799129822%_)) - (_%tl129801129827%_ - (##cdr _%e129799129822%_))) - (let ((_%hd129830%_ _%hd129800129825%_)) - (if (gx#stx-pair? _%tl129801129827%_) - (let ((_%e129802129832%_ + _%e129830129843%_))) + (_%E129831129879%_ + (lambda () + (if (gx#stx-pair? _%e129830129843%_) + (let ((_%e129833129851%_ + (gx#syntax-e _%e129830129843%_))) + (let ((_%hd129834129854%_ (##car _%e129833129851%_)) + (_%tl129835129856%_ (##cdr _%e129833129851%_))) + (if (gx#stx-pair? _%tl129835129856%_) + (let ((_%e129836129859%_ + (gx#syntax-e _%tl129835129856%_))) + (let ((_%hd129837129862%_ + (##car _%e129836129859%_)) + (_%tl129838129864%_ + (##cdr _%e129836129859%_))) + (let ((_%hd129867%_ _%hd129837129862%_)) + (if (gx#stx-pair? _%tl129838129864%_) + (let ((_%e129839129869%_ (gx#syntax-e - _%tl129801129827%_))) - (let ((_%hd129803129835%_ - (##car _%e129802129832%_)) - (_%tl129804129837%_ - (##cdr _%e129802129832%_))) - (let ((_%expr129840%_ - _%hd129803129835%_)) + _%tl129838129864%_))) + (let ((_%hd129840129872%_ + (##car _%e129839129869%_)) + (_%tl129841129874%_ + (##cdr _%e129839129869%_))) + (let ((_%expr129877%_ + _%hd129840129872%_)) (if (gx#stx-null? - _%tl129804129837%_) + _%tl129841129874%_) (cons '%#define-values (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd129830%_) + _%hd129867%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr129840%_) + _%expr129877%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129795129810%_))))) - (_%E129795129810%_))))) - (_%E129795129810%_)))) - (_%E129795129810%_))))) - (_%E129794129842%_)))) + (_%E129832129847%_))))) + (_%E129832129847%_))))) + (_%E129832129847%_)))) + (_%E129832129847%_))))) + (_%E129831129879%_)))) (define gx#core-compile-top-define-syntax% - (lambda (_%stx129737%_) - (let* ((_%e129738129751%_ _%stx129737%_) - (_%E129740129755%_ + (lambda (_%stx129774%_) + (let* ((_%e129775129788%_ _%stx129774%_) + (_%E129777129792%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129738129751%_))) - (_%E129739129788%_ - (lambda () - (if (gx#stx-pair? _%e129738129751%_) - (let ((_%e129741129759%_ - (gx#syntax-e _%e129738129751%_))) - (let ((_%hd129742129762%_ (##car _%e129741129759%_)) - (_%tl129743129764%_ (##cdr _%e129741129759%_))) - (if (gx#stx-pair? _%tl129743129764%_) - (let ((_%e129744129767%_ - (gx#syntax-e _%tl129743129764%_))) - (let ((_%hd129745129770%_ - (##car _%e129744129767%_)) - (_%tl129746129772%_ - (##cdr _%e129744129767%_))) - (let ((_%hd129775%_ _%hd129745129770%_)) - (if (gx#stx-pair? _%tl129746129772%_) - (let ((_%e129747129777%_ + _%e129775129788%_))) + (_%E129776129825%_ + (lambda () + (if (gx#stx-pair? _%e129775129788%_) + (let ((_%e129778129796%_ + (gx#syntax-e _%e129775129788%_))) + (let ((_%hd129779129799%_ (##car _%e129778129796%_)) + (_%tl129780129801%_ (##cdr _%e129778129796%_))) + (if (gx#stx-pair? _%tl129780129801%_) + (let ((_%e129781129804%_ + (gx#syntax-e _%tl129780129801%_))) + (let ((_%hd129782129807%_ + (##car _%e129781129804%_)) + (_%tl129783129809%_ + (##cdr _%e129781129804%_))) + (let ((_%hd129812%_ _%hd129782129807%_)) + (if (gx#stx-pair? _%tl129783129809%_) + (let ((_%e129784129814%_ (gx#syntax-e - _%tl129746129772%_))) - (let ((_%hd129748129780%_ - (##car _%e129747129777%_)) - (_%tl129749129782%_ - (##cdr _%e129747129777%_))) - (let ((_%expr129785%_ - _%hd129748129780%_)) + _%tl129783129809%_))) + (let ((_%hd129785129817%_ + (##car _%e129784129814%_)) + (_%tl129786129819%_ + (##cdr _%e129784129814%_))) + (let ((_%expr129822%_ + _%hd129785129817%_)) (if (gx#stx-null? - _%tl129749129782%_) + _%tl129786129819%_) (cons '%#define-syntax - (cons _%hd129775%_ + (cons _%hd129812%_ (cons (__call-with-parameters ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (gx#core-compile-top-syntax _%expr129785%_)) + (gx#core-compile-top-syntax _%expr129822%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129740129755%_))))) - (_%E129740129755%_))))) - (_%E129740129755%_)))) - (_%E129740129755%_))))) - (_%E129739129788%_)))) + (_%E129777129792%_))))) + (_%E129777129792%_))))) + (_%E129777129792%_)))) + (_%E129777129792%_))))) + (_%E129776129825%_)))) (define gx#core-compile-top-define-alias% - (lambda (_%stx129707%_) - (let* ((_%e129708129715%_ _%stx129707%_) - (_%E129710129719%_ + (lambda (_%stx129744%_) + (let* ((_%e129745129752%_ _%stx129744%_) + (_%E129747129756%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129708129715%_))) - (_%E129709129733%_ - (lambda () - (if (gx#stx-pair? _%e129708129715%_) - (let ((_%e129711129723%_ - (gx#syntax-e _%e129708129715%_))) - (let ((_%hd129712129726%_ (##car _%e129711129723%_)) - (_%tl129713129728%_ (##cdr _%e129711129723%_))) - (let ((_%body129731%_ _%tl129713129728%_)) - (cons '%#define-alias _%body129731%_)))) - (_%E129710129719%_))))) - (_%E129709129733%_)))) + _%e129745129752%_))) + (_%E129746129770%_ + (lambda () + (if (gx#stx-pair? _%e129745129752%_) + (let ((_%e129748129760%_ + (gx#syntax-e _%e129745129752%_))) + (let ((_%hd129749129763%_ (##car _%e129748129760%_)) + (_%tl129750129765%_ (##cdr _%e129748129760%_))) + (let ((_%body129768%_ _%tl129750129765%_)) + (cons '%#define-alias _%body129768%_)))) + (_%E129747129756%_))))) + (_%E129746129770%_)))) (define gx#core-compile-top-define-runtime% - (lambda (_%stx129677%_) - (let* ((_%e129678129685%_ _%stx129677%_) - (_%E129680129689%_ + (lambda (_%stx129714%_) + (let* ((_%e129715129722%_ _%stx129714%_) + (_%E129717129726%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129678129685%_))) - (_%E129679129703%_ - (lambda () - (if (gx#stx-pair? _%e129678129685%_) - (let ((_%e129681129693%_ - (gx#syntax-e _%e129678129685%_))) - (let ((_%hd129682129696%_ (##car _%e129681129693%_)) - (_%tl129683129698%_ (##cdr _%e129681129693%_))) - (let ((_%body129701%_ _%tl129683129698%_)) - (cons '%#define-runtime _%body129701%_)))) - (_%E129680129689%_))))) - (_%E129679129703%_)))) + _%e129715129722%_))) + (_%E129716129740%_ + (lambda () + (if (gx#stx-pair? _%e129715129722%_) + (let ((_%e129718129730%_ + (gx#syntax-e _%e129715129722%_))) + (let ((_%hd129719129733%_ (##car _%e129718129730%_)) + (_%tl129720129735%_ (##cdr _%e129718129730%_))) + (let ((_%body129738%_ _%tl129720129735%_)) + (cons '%#define-runtime _%body129738%_)))) + (_%E129717129726%_))))) + (_%E129716129740%_)))) (define gx#core-compile-top-declare% - (lambda (_%stx129647%_) - (let* ((_%e129648129655%_ _%stx129647%_) - (_%E129650129659%_ + (lambda (_%stx129684%_) + (let* ((_%e129685129692%_ _%stx129684%_) + (_%E129687129696%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129648129655%_))) - (_%E129649129673%_ - (lambda () - (if (gx#stx-pair? _%e129648129655%_) - (let ((_%e129651129663%_ - (gx#syntax-e _%e129648129655%_))) - (let ((_%hd129652129666%_ (##car _%e129651129663%_)) - (_%tl129653129668%_ (##cdr _%e129651129663%_))) - (let ((_%decls129671%_ _%tl129653129668%_)) - (cons '%#declare _%decls129671%_)))) - (_%E129650129659%_))))) - (_%E129649129673%_)))) + _%e129685129692%_))) + (_%E129686129710%_ + (lambda () + (if (gx#stx-pair? _%e129685129692%_) + (let ((_%e129688129700%_ + (gx#syntax-e _%e129685129692%_))) + (let ((_%hd129689129703%_ (##car _%e129688129700%_)) + (_%tl129690129705%_ (##cdr _%e129688129700%_))) + (let ((_%decls129708%_ _%tl129690129705%_)) + (cons '%#declare _%decls129708%_)))) + (_%E129687129696%_))))) + (_%E129686129710%_)))) (define gx#core-compile-top-lambda% - (lambda (_%stx129617%_) - (let* ((_%e129618129625%_ _%stx129617%_) - (_%E129620129629%_ + (lambda (_%stx129654%_) + (let* ((_%e129655129662%_ _%stx129654%_) + (_%E129657129666%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129618129625%_))) - (_%E129619129643%_ - (lambda () - (if (gx#stx-pair? _%e129618129625%_) - (let ((_%e129621129633%_ - (gx#syntax-e _%e129618129625%_))) - (let ((_%hd129622129636%_ (##car _%e129621129633%_)) - (_%tl129623129638%_ (##cdr _%e129621129633%_))) - (let ((_%clause129641%_ _%tl129623129638%_)) + _%e129655129662%_))) + (_%E129656129680%_ + (lambda () + (if (gx#stx-pair? _%e129655129662%_) + (let ((_%e129658129670%_ + (gx#syntax-e _%e129655129662%_))) + (let ((_%hd129659129673%_ (##car _%e129658129670%_)) + (_%tl129660129675%_ (##cdr _%e129658129670%_))) + (let ((_%clause129678%_ _%tl129660129675%_)) (cons '%#lambda (gx#core-compile-top-lambda-clause - _%clause129641%_))))) - (_%E129620129629%_))))) - (_%E129619129643%_)))) + _%clause129678%_))))) + (_%E129657129666%_))))) + (_%E129656129680%_)))) (define gx#core-compile-top-lambda-clause - (lambda (_%stx129574%_) - (let* ((_%e129575129585%_ _%stx129574%_) - (_%E129577129589%_ + (lambda (_%stx129611%_) + (let* ((_%e129612129622%_ _%stx129611%_) + (_%E129614129626%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129575129585%_))) - (_%E129576129613%_ - (lambda () - (if (gx#stx-pair? _%e129575129585%_) - (let ((_%e129578129593%_ - (gx#syntax-e _%e129575129585%_))) - (let ((_%hd129579129596%_ (##car _%e129578129593%_)) - (_%tl129580129598%_ (##cdr _%e129578129593%_))) - (let ((_%hd129601%_ _%hd129579129596%_)) - (if (gx#stx-pair? _%tl129580129598%_) - (let ((_%e129581129603%_ - (gx#syntax-e _%tl129580129598%_))) - (let ((_%hd129582129606%_ - (##car _%e129581129603%_)) - (_%tl129583129608%_ - (##cdr _%e129581129603%_))) - (let ((_%body129611%_ _%hd129582129606%_)) - (if (gx#stx-null? _%tl129583129608%_) + _%e129612129622%_))) + (_%E129613129650%_ + (lambda () + (if (gx#stx-pair? _%e129612129622%_) + (let ((_%e129615129630%_ + (gx#syntax-e _%e129612129622%_))) + (let ((_%hd129616129633%_ (##car _%e129615129630%_)) + (_%tl129617129635%_ (##cdr _%e129615129630%_))) + (let ((_%hd129638%_ _%hd129616129633%_)) + (if (gx#stx-pair? _%tl129617129635%_) + (let ((_%e129618129640%_ + (gx#syntax-e _%tl129617129635%_))) + (let ((_%hd129619129643%_ + (##car _%e129618129640%_)) + (_%tl129620129645%_ + (##cdr _%e129618129640%_))) + (let ((_%body129648%_ _%hd129619129643%_)) + (if (gx#stx-null? _%tl129620129645%_) (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd129601%_) + _%hd129638%_) (cons (gx#core-compile-top-syntax - _%body129611%_) + _%body129648%_) '())) - (_%E129577129589%_))))) - (_%E129577129589%_))))) - (_%E129577129589%_))))) - (_%E129576129613%_)))) + (_%E129614129626%_))))) + (_%E129614129626%_))))) + (_%E129614129626%_))))) + (_%E129613129650%_)))) (define gx#core-compile-top-case-lambda% - (lambda (_%stx129544%_) - (let* ((_%e129545129552%_ _%stx129544%_) - (_%E129547129556%_ + (lambda (_%stx129581%_) + (let* ((_%e129582129589%_ _%stx129581%_) + (_%E129584129593%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129545129552%_))) - (_%E129546129570%_ - (lambda () - (if (gx#stx-pair? _%e129545129552%_) - (let ((_%e129548129560%_ - (gx#syntax-e _%e129545129552%_))) - (let ((_%hd129549129563%_ (##car _%e129548129560%_)) - (_%tl129550129565%_ (##cdr _%e129548129560%_))) - (let ((_%clauses129568%_ _%tl129550129565%_)) + _%e129582129589%_))) + (_%E129583129607%_ + (lambda () + (if (gx#stx-pair? _%e129582129589%_) + (let ((_%e129585129597%_ + (gx#syntax-e _%e129582129589%_))) + (let ((_%hd129586129600%_ (##car _%e129585129597%_)) + (_%tl129587129602%_ (##cdr _%e129585129597%_))) + (let ((_%clauses129605%_ _%tl129587129602%_)) (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _%clauses129568%_))))) - (_%E129547129556%_))))) - (_%E129546129570%_)))) + _%clauses129605%_))))) + (_%E129584129593%_))))) + (_%E129583129607%_)))) (define gx#core-compile-top-let-values%__% - (lambda (_%stx129479%_ _%form129480%_) - (let* ((_%e129481129494%_ _%stx129479%_) - (_%E129483129498%_ + (lambda (_%stx129516%_ _%form129517%_) + (let* ((_%e129518129531%_ _%stx129516%_) + (_%E129520129535%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129481129494%_))) - (_%E129482129530%_ - (lambda () - (if (gx#stx-pair? _%e129481129494%_) - (let ((_%e129484129502%_ - (gx#syntax-e _%e129481129494%_))) - (let ((_%hd129485129505%_ (##car _%e129484129502%_)) - (_%tl129486129507%_ (##cdr _%e129484129502%_))) - (if (gx#stx-pair? _%tl129486129507%_) - (let ((_%e129487129510%_ - (gx#syntax-e _%tl129486129507%_))) - (let ((_%hd129488129513%_ - (##car _%e129487129510%_)) - (_%tl129489129515%_ - (##cdr _%e129487129510%_))) - (let ((_%hd129518%_ _%hd129488129513%_)) - (if (gx#stx-pair? _%tl129489129515%_) - (let ((_%e129490129520%_ + _%e129518129531%_))) + (_%E129519129567%_ + (lambda () + (if (gx#stx-pair? _%e129518129531%_) + (let ((_%e129521129539%_ + (gx#syntax-e _%e129518129531%_))) + (let ((_%hd129522129542%_ (##car _%e129521129539%_)) + (_%tl129523129544%_ (##cdr _%e129521129539%_))) + (if (gx#stx-pair? _%tl129523129544%_) + (let ((_%e129524129547%_ + (gx#syntax-e _%tl129523129544%_))) + (let ((_%hd129525129550%_ + (##car _%e129524129547%_)) + (_%tl129526129552%_ + (##cdr _%e129524129547%_))) + (let ((_%hd129555%_ _%hd129525129550%_)) + (if (gx#stx-pair? _%tl129526129552%_) + (let ((_%e129527129557%_ (gx#syntax-e - _%tl129489129515%_))) - (let ((_%hd129491129523%_ - (##car _%e129490129520%_)) - (_%tl129492129525%_ - (##cdr _%e129490129520%_))) - (let ((_%body129528%_ - _%hd129491129523%_)) + _%tl129526129552%_))) + (let ((_%hd129528129560%_ + (##car _%e129527129557%_)) + (_%tl129529129562%_ + (##cdr _%e129527129557%_))) + (let ((_%body129565%_ + _%hd129528129560%_)) (if (gx#stx-null? - _%tl129492129525%_) - (cons _%form129480%_ + _%tl129529129562%_) + (cons _%form129517%_ (cons (gx#stx-map1 gx#core-compile-top-lambda-clause - _%hd129518%_) + _%hd129555%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body129528%_) + _%body129565%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129483129498%_))))) - (_%E129483129498%_))))) - (_%E129483129498%_)))) - (_%E129483129498%_))))) - (_%E129482129530%_)))) + (_%E129520129535%_))))) + (_%E129520129535%_))))) + (_%E129520129535%_)))) + (_%E129520129535%_))))) + (_%E129519129567%_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_%stx129537%_) - (let ((_%form129539%_ '%#let-values)) - (gx#core-compile-top-let-values%__% _%stx129537%_ _%form129539%_)))) + (lambda (_%stx129574%_) + (let ((_%form129576%_ '%#let-values)) + (gx#core-compile-top-let-values%__% _%stx129574%_ _%form129576%_)))) (define gx#core-compile-top-let-values% - (lambda _g130366_ - (let ((_g130365_ (##length _g130366_))) - (cond ((##fx= _g130365_ 1) - (apply gx#core-compile-top-let-values%__0 _g130366_)) - ((##fx= _g130365_ 2) - (apply gx#core-compile-top-let-values%__% _g130366_)) + (lambda _g130403_ + (let ((_g130402_ (##length _g130403_))) + (cond ((##fx= _g130402_ 1) + (apply gx#core-compile-top-let-values%__0 _g130403_)) + ((##fx= _g130402_ 2) + (apply gx#core-compile-top-let-values%__% _g130403_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g130366_)))))) + _g130403_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_%stx129476%_) - (gx#core-compile-top-let-values%__% _%stx129476%_ '%#letrec-values))) + (lambda (_%stx129513%_) + (gx#core-compile-top-let-values%__% _%stx129513%_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_%stx129474%_) - (gx#core-compile-top-let-values%__% _%stx129474%_ '%#letrec*-values))) + (lambda (_%stx129511%_) + (gx#core-compile-top-let-values%__% _%stx129511%_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_%stx129433%_) - (let* ((_%e129434129444%_ _%stx129433%_) - (_%E129436129448%_ + (lambda (_%stx129470%_) + (let* ((_%e129471129481%_ _%stx129470%_) + (_%E129473129485%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129434129444%_))) - (_%E129435129470%_ - (lambda () - (if (gx#stx-pair? _%e129434129444%_) - (let ((_%e129437129452%_ - (gx#syntax-e _%e129434129444%_))) - (let ((_%hd129438129455%_ (##car _%e129437129452%_)) - (_%tl129439129457%_ (##cdr _%e129437129452%_))) - (if (gx#stx-pair? _%tl129439129457%_) - (let ((_%e129440129460%_ - (gx#syntax-e _%tl129439129457%_))) - (let ((_%hd129441129463%_ - (##car _%e129440129460%_)) - (_%tl129442129465%_ - (##cdr _%e129440129460%_))) - (let ((_%e129468%_ _%hd129441129463%_)) - (if (gx#stx-null? _%tl129442129465%_) + _%e129471129481%_))) + (_%E129472129507%_ + (lambda () + (if (gx#stx-pair? _%e129471129481%_) + (let ((_%e129474129489%_ + (gx#syntax-e _%e129471129481%_))) + (let ((_%hd129475129492%_ (##car _%e129474129489%_)) + (_%tl129476129494%_ (##cdr _%e129474129489%_))) + (if (gx#stx-pair? _%tl129476129494%_) + (let ((_%e129477129497%_ + (gx#syntax-e _%tl129476129494%_))) + (let ((_%hd129478129500%_ + (##car _%e129477129497%_)) + (_%tl129479129502%_ + (##cdr _%e129477129497%_))) + (let ((_%e129505%_ _%hd129478129500%_)) + (if (gx#stx-null? _%tl129479129502%_) (cons '%#quote (cons (gx#syntax->datum - _%e129468%_) + _%e129505%_) '())) - (_%E129436129448%_))))) - (_%E129436129448%_)))) - (_%E129436129448%_))))) - (_%E129435129470%_)))) + (_%E129473129485%_))))) + (_%E129473129485%_)))) + (_%E129473129485%_))))) + (_%E129472129507%_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_%stx129392%_) - (let* ((_%e129393129403%_ _%stx129392%_) - (_%E129395129407%_ + (lambda (_%stx129429%_) + (let* ((_%e129430129440%_ _%stx129429%_) + (_%E129432129444%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129393129403%_))) - (_%E129394129429%_ - (lambda () - (if (gx#stx-pair? _%e129393129403%_) - (let ((_%e129396129411%_ - (gx#syntax-e _%e129393129403%_))) - (let ((_%hd129397129414%_ (##car _%e129396129411%_)) - (_%tl129398129416%_ (##cdr _%e129396129411%_))) - (if (gx#stx-pair? _%tl129398129416%_) - (let ((_%e129399129419%_ - (gx#syntax-e _%tl129398129416%_))) - (let ((_%hd129400129422%_ - (##car _%e129399129419%_)) - (_%tl129401129424%_ - (##cdr _%e129399129419%_))) - (let ((_%e129427%_ _%hd129400129422%_)) - (if (gx#stx-null? _%tl129401129424%_) + _%e129430129440%_))) + (_%E129431129466%_ + (lambda () + (if (gx#stx-pair? _%e129430129440%_) + (let ((_%e129433129448%_ + (gx#syntax-e _%e129430129440%_))) + (let ((_%hd129434129451%_ (##car _%e129433129448%_)) + (_%tl129435129453%_ (##cdr _%e129433129448%_))) + (if (gx#stx-pair? _%tl129435129453%_) + (let ((_%e129436129456%_ + (gx#syntax-e _%tl129435129453%_))) + (let ((_%hd129437129459%_ + (##car _%e129436129456%_)) + (_%tl129438129461%_ + (##cdr _%e129436129456%_))) + (let ((_%e129464%_ _%hd129437129459%_)) + (if (gx#stx-null? _%tl129438129461%_) (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _%e129427%_) + _%e129464%_) '())) - (_%E129395129407%_))))) - (_%E129395129407%_)))) - (_%E129395129407%_))))) - (_%E129394129429%_)))) + (_%E129432129444%_))))) + (_%E129432129444%_)))) + (_%E129432129444%_))))) + (_%E129431129466%_)))) (define gx#core-compile-top-call% - (lambda (_%stx129349%_) - (let* ((_%e129350129360%_ _%stx129349%_) - (_%E129352129364%_ + (lambda (_%stx129386%_) + (let* ((_%e129387129397%_ _%stx129386%_) + (_%E129389129401%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129350129360%_))) - (_%E129351129388%_ - (lambda () - (if (gx#stx-pair? _%e129350129360%_) - (let ((_%e129353129368%_ - (gx#syntax-e _%e129350129360%_))) - (let ((_%hd129354129371%_ (##car _%e129353129368%_)) - (_%tl129355129373%_ (##cdr _%e129353129368%_))) - (if (gx#stx-pair? _%tl129355129373%_) - (let ((_%e129356129376%_ - (gx#syntax-e _%tl129355129373%_))) - (let ((_%hd129357129379%_ - (##car _%e129356129376%_)) - (_%tl129358129381%_ - (##cdr _%e129356129376%_))) - (let* ((_%rator129384%_ _%hd129357129379%_) - (_%args129386%_ _%tl129358129381%_)) + _%e129387129397%_))) + (_%E129388129425%_ + (lambda () + (if (gx#stx-pair? _%e129387129397%_) + (let ((_%e129390129405%_ + (gx#syntax-e _%e129387129397%_))) + (let ((_%hd129391129408%_ (##car _%e129390129405%_)) + (_%tl129392129410%_ (##cdr _%e129390129405%_))) + (if (gx#stx-pair? _%tl129392129410%_) + (let ((_%e129393129413%_ + (gx#syntax-e _%tl129392129410%_))) + (let ((_%hd129394129416%_ + (##car _%e129393129413%_)) + (_%tl129395129418%_ + (##cdr _%e129393129413%_))) + (let* ((_%rator129421%_ _%hd129394129416%_) + (_%args129423%_ _%tl129395129418%_)) (cons '%#call (cons (gx#core-compile-top-syntax - _%rator129384%_) + _%rator129421%_) (gx#stx-map1 gx#core-compile-top-syntax - _%args129386%_)))))) - (_%E129352129364%_)))) - (_%E129352129364%_))))) - (_%E129351129388%_)))) + _%args129423%_)))))) + (_%E129389129401%_)))) + (_%E129389129401%_))))) + (_%E129388129425%_)))) (define gx#core-compile-top-if% - (lambda (_%stx129282%_) - (let* ((_%e129283129299%_ _%stx129282%_) - (_%E129285129303%_ + (lambda (_%stx129319%_) + (let* ((_%e129320129336%_ _%stx129319%_) + (_%E129322129340%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129283129299%_))) - (_%E129284129345%_ - (lambda () - (if (gx#stx-pair? _%e129283129299%_) - (let ((_%e129286129307%_ - (gx#syntax-e _%e129283129299%_))) - (let ((_%hd129287129310%_ (##car _%e129286129307%_)) - (_%tl129288129312%_ (##cdr _%e129286129307%_))) - (if (gx#stx-pair? _%tl129288129312%_) - (let ((_%e129289129315%_ - (gx#syntax-e _%tl129288129312%_))) - (let ((_%hd129290129318%_ - (##car _%e129289129315%_)) - (_%tl129291129320%_ - (##cdr _%e129289129315%_))) - (let ((_%test129323%_ _%hd129290129318%_)) - (if (gx#stx-pair? _%tl129291129320%_) - (let ((_%e129292129325%_ + _%e129320129336%_))) + (_%E129321129382%_ + (lambda () + (if (gx#stx-pair? _%e129320129336%_) + (let ((_%e129323129344%_ + (gx#syntax-e _%e129320129336%_))) + (let ((_%hd129324129347%_ (##car _%e129323129344%_)) + (_%tl129325129349%_ (##cdr _%e129323129344%_))) + (if (gx#stx-pair? _%tl129325129349%_) + (let ((_%e129326129352%_ + (gx#syntax-e _%tl129325129349%_))) + (let ((_%hd129327129355%_ + (##car _%e129326129352%_)) + (_%tl129328129357%_ + (##cdr _%e129326129352%_))) + (let ((_%test129360%_ _%hd129327129355%_)) + (if (gx#stx-pair? _%tl129328129357%_) + (let ((_%e129329129362%_ (gx#syntax-e - _%tl129291129320%_))) - (let ((_%hd129293129328%_ - (##car _%e129292129325%_)) - (_%tl129294129330%_ - (##cdr _%e129292129325%_))) - (let ((_%K129333%_ - _%hd129293129328%_)) + _%tl129328129357%_))) + (let ((_%hd129330129365%_ + (##car _%e129329129362%_)) + (_%tl129331129367%_ + (##cdr _%e129329129362%_))) + (let ((_%K129370%_ + _%hd129330129365%_)) (if (gx#stx-pair? - _%tl129294129330%_) - (let ((_%e129295129335%_ + _%tl129331129367%_) + (let ((_%e129332129372%_ (gx#syntax-e - _%tl129294129330%_))) - (let ((_%hd129296129338%_ - (##car _%e129295129335%_)) - (_%tl129297129340%_ - (##cdr _%e129295129335%_))) - (let ((_%E129343%_ - _%hd129296129338%_)) + _%tl129331129367%_))) + (let ((_%hd129333129375%_ + (##car _%e129332129372%_)) + (_%tl129334129377%_ + (##cdr _%e129332129372%_))) + (let ((_%E129380%_ + _%hd129333129375%_)) (if (gx#stx-null? - _%tl129297129340%_) + _%tl129334129377%_) (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _%test129323%_) - (cons (gx#core-compile-top-syntax _%K129333%_) + (cons (gx#core-compile-top-syntax _%test129360%_) + (cons (gx#core-compile-top-syntax _%K129370%_) (cons (gx#core-compile-top-syntax - _%E129343%_) + _%E129380%_) '())))) - (_%E129285129303%_))))) + (_%E129322129340%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129285129303%_))))) - (_%E129285129303%_))))) - (_%E129285129303%_)))) - (_%E129285129303%_))))) - (_%E129284129345%_)))) + (_%E129322129340%_))))) + (_%E129322129340%_))))) + (_%E129322129340%_)))) + (_%E129322129340%_))))) + (_%E129321129382%_)))) (define gx#core-compile-top-ref% - (lambda (_%stx129241%_) - (let* ((_%e129242129252%_ _%stx129241%_) - (_%E129244129256%_ + (lambda (_%stx129278%_) + (let* ((_%e129279129289%_ _%stx129278%_) + (_%E129281129293%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129242129252%_))) - (_%E129243129278%_ - (lambda () - (if (gx#stx-pair? _%e129242129252%_) - (let ((_%e129245129260%_ - (gx#syntax-e _%e129242129252%_))) - (let ((_%hd129246129263%_ (##car _%e129245129260%_)) - (_%tl129247129265%_ (##cdr _%e129245129260%_))) - (if (gx#stx-pair? _%tl129247129265%_) - (let ((_%e129248129268%_ - (gx#syntax-e _%tl129247129265%_))) - (let ((_%hd129249129271%_ - (##car _%e129248129268%_)) - (_%tl129250129273%_ - (##cdr _%e129248129268%_))) - (let ((_%id129276%_ _%hd129249129271%_)) - (if (gx#stx-null? _%tl129250129273%_) - (if (gx#identifier? _%id129276%_) + _%e129279129289%_))) + (_%E129280129315%_ + (lambda () + (if (gx#stx-pair? _%e129279129289%_) + (let ((_%e129282129297%_ + (gx#syntax-e _%e129279129289%_))) + (let ((_%hd129283129300%_ (##car _%e129282129297%_)) + (_%tl129284129302%_ (##cdr _%e129282129297%_))) + (if (gx#stx-pair? _%tl129284129302%_) + (let ((_%e129285129305%_ + (gx#syntax-e _%tl129284129302%_))) + (let ((_%hd129286129308%_ + (##car _%e129285129305%_)) + (_%tl129287129310%_ + (##cdr _%e129285129305%_))) + (let ((_%id129313%_ _%hd129286129308%_)) + (if (gx#stx-null? _%tl129287129310%_) + (if (gx#identifier? _%id129313%_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _%id129276%_) + _%id129313%_) '())) - (_%E129244129256%_)) - (_%E129244129256%_))))) - (_%E129244129256%_)))) - (_%E129244129256%_))))) - (_%E129243129278%_)))) + (_%E129281129293%_)) + (_%E129281129293%_))))) + (_%E129281129293%_)))) + (_%E129281129293%_))))) + (_%E129280129315%_)))) (define gx#core-compile-top-setq% - (lambda (_%stx129187%_) - (let* ((_%e129188129201%_ _%stx129187%_) - (_%E129190129205%_ + (lambda (_%stx129224%_) + (let* ((_%e129225129238%_ _%stx129224%_) + (_%E129227129242%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129188129201%_))) - (_%E129189129237%_ - (lambda () - (if (gx#stx-pair? _%e129188129201%_) - (let ((_%e129191129209%_ - (gx#syntax-e _%e129188129201%_))) - (let ((_%hd129192129212%_ (##car _%e129191129209%_)) - (_%tl129193129214%_ (##cdr _%e129191129209%_))) - (if (gx#stx-pair? _%tl129193129214%_) - (let ((_%e129194129217%_ - (gx#syntax-e _%tl129193129214%_))) - (let ((_%hd129195129220%_ - (##car _%e129194129217%_)) - (_%tl129196129222%_ - (##cdr _%e129194129217%_))) - (let ((_%id129225%_ _%hd129195129220%_)) - (if (gx#stx-pair? _%tl129196129222%_) - (let ((_%e129197129227%_ + _%e129225129238%_))) + (_%E129226129274%_ + (lambda () + (if (gx#stx-pair? _%e129225129238%_) + (let ((_%e129228129246%_ + (gx#syntax-e _%e129225129238%_))) + (let ((_%hd129229129249%_ (##car _%e129228129246%_)) + (_%tl129230129251%_ (##cdr _%e129228129246%_))) + (if (gx#stx-pair? _%tl129230129251%_) + (let ((_%e129231129254%_ + (gx#syntax-e _%tl129230129251%_))) + (let ((_%hd129232129257%_ + (##car _%e129231129254%_)) + (_%tl129233129259%_ + (##cdr _%e129231129254%_))) + (let ((_%id129262%_ _%hd129232129257%_)) + (if (gx#stx-pair? _%tl129233129259%_) + (let ((_%e129234129264%_ (gx#syntax-e - _%tl129196129222%_))) - (let ((_%hd129198129230%_ - (##car _%e129197129227%_)) - (_%tl129199129232%_ - (##cdr _%e129197129227%_))) - (let ((_%expr129235%_ - _%hd129198129230%_)) + _%tl129233129259%_))) + (let ((_%hd129235129267%_ + (##car _%e129234129264%_)) + (_%tl129236129269%_ + (##cdr _%e129234129264%_))) + (let ((_%expr129272%_ + _%hd129235129267%_)) (if (gx#stx-null? - _%tl129199129232%_) + _%tl129236129269%_) (if (gx#identifier? - _%id129225%_) + _%id129262%_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id129225%_) - (cons (gx#core-compile-top-syntax _%expr129235%_) + _%id129262%_) + (cons (gx#core-compile-top-syntax _%expr129272%_) '()))) - (_%E129190129205%_)) + (_%E129227129242%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129190129205%_))))) - (_%E129190129205%_))))) - (_%E129190129205%_)))) - (_%E129190129205%_))))) - (_%E129189129237%_)))) + (_%E129227129242%_))))) + (_%E129227129242%_))))) + (_%E129227129242%_)))) + (_%E129227129242%_))))) + (_%E129226129274%_)))) (define gx#core-compile-top-runtime-ref - (lambda (_%id129181%_) - (let ((_%$e129183%_ (gx#resolve-identifier__0 _%id129181%_))) - (if _%$e129183%_ - (##unchecked-structure-ref _%$e129183%_ '1 '#f '#f) - _%id129181%_)))) + (lambda (_%id129218%_) + (let ((_%$e129220%_ (gx#resolve-identifier__0 _%id129218%_))) + (if _%$e129220%_ + (##unchecked-structure-ref _%$e129220%_ '1 '#f '#f) + _%id129218%_)))) (define gx#core-compile-top-runtime-bind - (lambda (_%hd129179%_) - (if (gx#identifier? _%hd129179%_) - (gx#core-compile-top-runtime-ref _%hd129179%_) + (lambda (_%hd129216%_) + (if (gx#identifier? _%hd129216%_) + (gx#core-compile-top-runtime-ref _%hd129216%_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core~0.scm b/src/bootstrap/gerbil/expander/core~0.scm index 35d949aed..9445ce226 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 1733687559) + (define gerbil/expander/core::timestamp 1733870074) (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 _%$args121449%_ - (apply make-instance gx#expander-context::t _%$args121449%_))) + (lambda _%$args121486%_ + (apply make-instance gx#expander-context::t _%$args121486%_))) (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 _%$args121446%_ - (apply make-instance gx#root-context::t _%$args121446%_))) + (lambda _%$args121483%_ + (apply make-instance gx#root-context::t _%$args121483%_))) (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 _%$args121443%_ - (apply make-instance gx#phi-context::t _%$args121443%_))) + (lambda _%$args121480%_ + (apply make-instance gx#phi-context::t _%$args121480%_))) (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 _%$args121440%_ - (apply make-instance gx#top-context::t _%$args121440%_))) + (lambda _%$args121477%_ + (apply make-instance gx#top-context::t _%$args121477%_))) (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 _%$args121437%_ - (apply make-instance gx#module-context::t _%$args121437%_))) + (lambda _%$args121474%_ + (apply make-instance gx#module-context::t _%$args121474%_))) (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 _%$args121434%_ - (apply make-instance gx#prelude-context::t _%$args121434%_))) + (lambda _%$args121471%_ + (apply make-instance gx#prelude-context::t _%$args121471%_))) (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 _%$args121431%_ - (apply make-instance gx#local-context::t _%$args121431%_))) + (lambda _%$args121468%_ + (apply make-instance gx#local-context::t _%$args121468%_))) (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 (_%self118337121402%_ _%id121404%_ _%super121405%_) - (let* ((_%self121407%_ _%self118337121402%_) - (_%self121409%_ _%self121407%_)) - (if (##fx< '3 (##structure-length _%self121409%_)) + (lambda (_%self118374121439%_ _%id121441%_ _%super121442%_) + (let* ((_%self121444%_ _%self118374121439%_) + (_%self121446%_ _%self121444%_)) + (if (##fx< '3 (##structure-length _%self121446%_)) (begin (##unchecked-structure-set! - _%self121409%_ - _%id121404%_ + _%self121446%_ + _%id121441%_ '1 '#f '#f) (##unchecked-structure-set! - _%self121409%_ + _%self121446%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self121409%_ - _%super121405%_ + _%self121446%_ + _%super121442%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self121409%_ + _%self121446%_ '3 - (##vector-length _%self121409%_)))))) + (##vector-length _%self121446%_)))))) (define gx#phi-context:::init!__0 - (lambda (_%self118337121422%_ _%id121423%_) - (let ((_%super121425%_ (gx#current-expander-context))) + (lambda (_%self118374121459%_ _%id121460%_) + (let ((_%super121462%_ (gx#current-expander-context))) (gx#phi-context:::init!__% - _%self118337121422%_ - _%id121423%_ - _%super121425%_)))) + _%self118374121459%_ + _%id121460%_ + _%super121462%_)))) (define gx#phi-context:::init! - (lambda _g121492_ - (let ((_g121491_ (##length _g121492_))) - (cond ((##fx= _g121491_ 2) - (apply gx#phi-context:::init!__0 _g121492_)) - ((##fx= _g121491_ 3) - (apply gx#phi-context:::init!__% _g121492_)) + (lambda _g121529_ + (let ((_g121528_ (##length _g121529_))) + (cond ((##fx= _g121528_ 2) + (apply gx#phi-context:::init!__0 _g121529_)) + ((##fx= _g121528_ 3) + (apply gx#phi-context:::init!__% _g121529_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g121492_)))))) + _g121529_)))))) (__bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_%self118338121253%_ _%super121255%_) - (let* ((_%self121257%_ _%self118338121253%_) - (_%self121259%_ _%self121257%_)) - (if (##fx< '3 (##structure-length _%self121259%_)) + (lambda (_%self118375121290%_ _%super121292%_) + (let* ((_%self121294%_ _%self118375121290%_) + (_%self121296%_ _%self121294%_)) + (if (##fx< '3 (##structure-length _%self121296%_)) (begin (##unchecked-structure-set! - _%self121259%_ + _%self121296%_ (##gensym 'L) '1 '#f '#f) (##unchecked-structure-set! - _%self121259%_ + _%self121296%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self121259%_ - _%super121255%_ + _%self121296%_ + _%super121292%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self121259%_ + _%self121296%_ '3 - (##vector-length _%self121259%_)))))) + (##vector-length _%self121296%_)))))) (define gx#local-context:::init!__0 - (lambda (_%self118338121272%_) - (let ((_%super121274%_ (gx#current-expander-context))) - (gx#local-context:::init!__% _%self118338121272%_ _%super121274%_)))) + (lambda (_%self118375121309%_) + (let ((_%super121311%_ (gx#current-expander-context))) + (gx#local-context:::init!__% _%self118375121309%_ _%super121311%_)))) (define gx#local-context:::init! - (lambda _g121494_ - (let ((_g121493_ (##length _g121494_))) - (cond ((##fx= _g121493_ 1) - (apply gx#local-context:::init!__0 _g121494_)) - ((##fx= _g121493_ 2) - (apply gx#local-context:::init!__% _g121494_)) + (lambda _g121531_ + (let ((_g121530_ (##length _g121531_))) + (cond ((##fx= _g121530_ 1) + (apply gx#local-context:::init!__0 _g121531_)) + ((##fx= _g121530_ 2) + (apply gx#local-context:::init!__% _g121531_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g121494_)))))) + _g121531_)))))) (__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 _%$args121127%_ - (apply make-instance gx#binding::t _%$args121127%_))) + (lambda _%$args121164%_ + (apply make-instance gx#binding::t _%$args121164%_))) (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 _%$args121124%_ - (apply make-instance gx#runtime-binding::t _%$args121124%_))) + (lambda _%$args121161%_ + (apply make-instance gx#runtime-binding::t _%$args121161%_))) (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 _%$args121121%_ - (apply make-instance gx#local-binding::t _%$args121121%_))) + (lambda _%$args121158%_ + (apply make-instance gx#local-binding::t _%$args121158%_))) (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 _%$args121118%_ - (apply make-instance gx#top-binding::t _%$args121118%_))) + (lambda _%$args121155%_ + (apply make-instance gx#top-binding::t _%$args121155%_))) (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 _%$args121115%_ - (apply make-instance gx#module-binding::t _%$args121115%_))) + (lambda _%$args121152%_ + (apply make-instance gx#module-binding::t _%$args121152%_))) (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 _%$args121112%_ - (apply make-instance gx#extern-binding::t _%$args121112%_))) + (lambda _%$args121149%_ + (apply make-instance gx#extern-binding::t _%$args121149%_))) (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 _%$args121109%_ - (apply make-instance gx#syntax-binding::t _%$args121109%_))) + (lambda _%$args121146%_ + (apply make-instance gx#syntax-binding::t _%$args121146%_))) (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 _%$args121106%_ - (apply make-instance gx#import-binding::t _%$args121106%_))) + (lambda _%$args121143%_ + (apply make-instance gx#import-binding::t _%$args121143%_))) (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 _%$args121103%_ - (apply make-instance gx#alias-binding::t _%$args121103%_))) + (lambda _%$args121140%_ + (apply make-instance gx#alias-binding::t _%$args121140%_))) (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 _%$args121100%_ - (apply make-instance gx#expander::t _%$args121100%_))) + (lambda _%$args121137%_ + (apply make-instance gx#expander::t _%$args121137%_))) (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 _%$args121097%_ - (apply make-instance gx#core-expander::t _%$args121097%_))) + (lambda _%$args121134%_ + (apply make-instance gx#core-expander::t _%$args121134%_))) (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 _%$args121094%_ - (apply make-instance gx#expression-form::t _%$args121094%_))) + (lambda _%$args121131%_ + (apply make-instance gx#expression-form::t _%$args121131%_))) (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 _%$args121091%_ - (apply make-instance gx#special-form::t _%$args121091%_))) + (lambda _%$args121128%_ + (apply make-instance gx#special-form::t _%$args121128%_))) (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 _%$args121088%_ - (apply make-instance gx#definition-form::t _%$args121088%_))) + (lambda _%$args121125%_ + (apply make-instance gx#definition-form::t _%$args121125%_))) (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 _%$args121085%_ - (apply make-instance gx#top-special-form::t _%$args121085%_))) + (lambda _%$args121122%_ + (apply make-instance gx#top-special-form::t _%$args121122%_))) (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 _%$args121082%_ - (apply make-instance gx#module-special-form::t _%$args121082%_))) + (lambda _%$args121119%_ + (apply make-instance gx#module-special-form::t _%$args121119%_))) (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 _%$args121079%_ - (apply make-instance gx#feature-expander::t _%$args121079%_))) + (lambda _%$args121116%_ + (apply make-instance gx#feature-expander::t _%$args121116%_))) (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 _%$args121076%_ - (apply make-instance gx#private-feature-expander::t _%$args121076%_))) + (lambda _%$args121113%_ + (apply make-instance gx#private-feature-expander::t _%$args121113%_))) (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 _%$args121073%_ - (apply make-instance gx#reserved-expander::t _%$args121073%_))) + (lambda _%$args121110%_ + (apply make-instance gx#reserved-expander::t _%$args121110%_))) (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 _%$args121070%_ - (apply make-instance gx#macro-expander::t _%$args121070%_))) + (lambda _%$args121107%_ + (apply make-instance gx#macro-expander::t _%$args121107%_))) (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 _%$args121067%_ - (apply make-instance gx#rename-macro-expander::t _%$args121067%_))) + (lambda _%$args121104%_ + (apply make-instance gx#rename-macro-expander::t _%$args121104%_))) (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 _%$args121064%_ - (apply make-instance gx#user-expander::t _%$args121064%_))) + (lambda _%$args121101%_ + (apply make-instance gx#user-expander::t _%$args121101%_))) (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 _%$args121061%_ - (apply make-instance gx#expander-mark::t _%$args121061%_))) + (lambda _%$args121098%_ + (apply make-instance gx#expander-mark::t _%$args121098%_))) (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 (_%ctx121045%_ - _%message121046%_ - _%stx121047%_ + (lambda (_%ctx121082%_ + _%message121083%_ + _%stx121084%_ . - _%details121048%_) - (let ((_%ctx121059%_ - (let ((_%$e121050%_ _%ctx121045%_)) - (if _%$e121050%_ - _%$e121050%_ - (let ((_%$e121053%_ (gx#core-context-top__0))) - (if _%$e121053%_ - ((lambda (_%ctx121056%_) + _%details121085%_) + (let ((_%ctx121096%_ + (let ((_%$e121087%_ _%ctx121082%_)) + (if _%$e121087%_ + _%$e121087%_ + (let ((_%$e121090%_ (gx#core-context-top__0))) + (if _%$e121090%_ + ((lambda (_%ctx121093%_) (cons 'expand (cons (##structure-ref - _%ctx121056%_ + _%ctx121093%_ '1 gx#expander-context::t '#f) '()))) - _%$e121053%_) + _%$e121090%_) '#f)))))) (raise (make-syntax-error - _%message121046%_ - (cons _%stx121047%_ _%details121048%_) - _%ctx121059%_ + _%message121083%_ + (cons _%stx121084%_ _%details121085%_) + _%ctx121096%_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_%stx121032%_ _%expression?121033%_) + (lambda (_%stx121069%_ _%expression?121070%_) (gx#eval-syntax* - (gx#core-expand__% _%stx121032%_ _%expression?121033%_)))) + (gx#core-expand__% _%stx121069%_ _%expression?121070%_)))) (define gx#eval-syntax__0 - (lambda (_%stx121038%_) - (let ((_%expression?121040%_ '#f)) - (gx#eval-syntax__% _%stx121038%_ _%expression?121040%_)))) + (lambda (_%stx121075%_) + (let ((_%expression?121077%_ '#f)) + (gx#eval-syntax__% _%stx121075%_ _%expression?121077%_)))) (define gx#eval-syntax - (lambda _g121496_ - (let ((_g121495_ (##length _g121496_))) - (cond ((##fx= _g121495_ 1) (apply gx#eval-syntax__0 _g121496_)) - ((##fx= _g121495_ 2) (apply gx#eval-syntax__% _g121496_)) + (lambda _g121533_ + (let ((_g121532_ (##length _g121533_))) + (cond ((##fx= _g121532_ 1) (apply gx#eval-syntax__0 _g121533_)) + ((##fx= _g121532_ 2) (apply gx#eval-syntax__% _g121533_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g121496_)))))) + _g121533_)))))) (define gx#eval-syntax* - (lambda (_%stx121029%_) + (lambda (_%stx121066%_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _%stx121029%_)))) + ((gx#current-expander-compile) _%stx121066%_)))) (define gx#core-expand__% - (lambda (_%stx121016%_ _%expression?121017%_) - (if _%expression?121017%_ - (gx#core-expand-expression _%stx121016%_) - (gx#core-expand-top _%stx121016%_)))) + (lambda (_%stx121053%_ _%expression?121054%_) + (if _%expression?121054%_ + (gx#core-expand-expression _%stx121053%_) + (gx#core-expand-top _%stx121053%_)))) (define gx#core-expand__0 - (lambda (_%stx121022%_) - (let ((_%expression?121024%_ '#f)) - (gx#core-expand__% _%stx121022%_ _%expression?121024%_)))) + (lambda (_%stx121059%_) + (let ((_%expression?121061%_ '#f)) + (gx#core-expand__% _%stx121059%_ _%expression?121061%_)))) (define gx#core-expand - (lambda _g121498_ - (let ((_g121497_ (##length _g121498_))) - (cond ((##fx= _g121497_ 1) (apply gx#core-expand__0 _g121498_)) - ((##fx= _g121497_ 2) (apply gx#core-expand__% _g121498_)) + (lambda _g121535_ + (let ((_g121534_ (##length _g121535_))) + (cond ((##fx= _g121534_ 1) (apply gx#core-expand__0 _g121535_)) + ((##fx= _g121534_ 2) (apply gx#core-expand__% _g121535_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g121498_)))))) + _g121535_)))))) (define gx#core-expand-top - (lambda (_%stx120983%_) - (let* ((_%stx120985%_ (gx#core-expand*__0 _%stx120983%_)) - (_%e120986120993%_ _%stx120985%_) - (_%E120988120997%_ - (lambda () (gx#core-expand-expression _%stx120985%_))) - (_%E120987121011%_ + (lambda (_%stx121020%_) + (let* ((_%stx121022%_ (gx#core-expand*__0 _%stx121020%_)) + (_%e121023121030%_ _%stx121022%_) + (_%E121025121034%_ + (lambda () (gx#core-expand-expression _%stx121022%_))) + (_%E121024121048%_ (lambda () - (if (gx#stx-pair? _%e120986120993%_) - (let ((_%e120989121001%_ - (gx#syntax-e _%e120986120993%_))) - (let ((_%hd120990121004%_ (##car _%e120989121001%_)) - (_%tl120991121006%_ (##cdr _%e120989121001%_))) - (let ((_%form121009%_ _%hd120990121004%_)) - (if (gx#core-bound-identifier?__0 _%form121009%_) - _%stx120985%_ - (_%E120988120997%_))))) - (_%E120988120997%_))))) - (_%E120987121011%_)))) + (if (gx#stx-pair? _%e121023121030%_) + (let ((_%e121026121038%_ + (gx#syntax-e _%e121023121030%_))) + (let ((_%hd121027121041%_ (##car _%e121026121038%_)) + (_%tl121028121043%_ (##cdr _%e121026121038%_))) + (let ((_%form121046%_ _%hd121027121041%_)) + (if (gx#core-bound-identifier?__0 _%form121046%_) + _%stx121022%_ + (_%E121025121034%_))))) + (_%E121025121034%_))))) + (_%E121024121048%_)))) (define gx#core-expand-expression - (lambda (_%stx120915%_) - (letrec ((_%sealed-expression?120917%_ - (lambda (_%hd120953%_) - (if (gx#sealed-syntax? _%hd120953%_) - (let* ((_%e120954120961%_ _%hd120953%_) - (_%E120956120965%_ (lambda () '#f)) - (_%E120955120979%_ + (lambda (_%stx120952%_) + (letrec ((_%sealed-expression?120954%_ + (lambda (_%hd120990%_) + (if (gx#sealed-syntax? _%hd120990%_) + (let* ((_%e120991120998%_ _%hd120990%_) + (_%E120993121002%_ (lambda () '#f)) + (_%E120992121016%_ (lambda () - (if (gx#stx-pair? _%e120954120961%_) - (let ((_%e120957120969%_ - (gx#syntax-e _%e120954120961%_))) - (let ((_%hd120958120972%_ - (##car _%e120957120969%_)) - (_%tl120959120974%_ - (##cdr _%e120957120969%_))) - (let ((_%form120977%_ - _%hd120958120972%_)) + (if (gx#stx-pair? _%e120991120998%_) + (let ((_%e120994121006%_ + (gx#syntax-e _%e120991120998%_))) + (let ((_%hd120995121009%_ + (##car _%e120994121006%_)) + (_%tl120996121011%_ + (##cdr _%e120994121006%_))) + (let ((_%form121014%_ + _%hd120995121009%_)) (gx#core-bound-identifier?__% - _%form120977%_ + _%form121014%_ gx#expression-form-binding?)))) - (_%E120956120965%_))))) - (_%E120955120979%_)) + (_%E120993121002%_))))) + (_%E120992121016%_)) '#f))) - (_%illegal-expression120918%_ - (lambda (_%hd120950%_ . _%_120951%_) + (_%illegal-expression120955%_ + (lambda (_%hd120987%_ . _%_120988%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _%stx120915%_ - _%hd120950%_))) - (_%expand-e120919%_ - (lambda (_%form120942%_ _%hd120943%_) - (let ((_%bind120945%_ + _%stx120952%_ + _%hd120987%_))) + (_%expand-e120956%_ + (lambda (_%form120979%_ _%hd120980%_) + (let ((_%bind120982%_ (if (##structure-instance-of? - _%form120942%_ + _%form120979%_ 'gx#binding::t) - _%form120942%_ - (gx#resolve-identifier__0 _%form120942%_)))) - (if (gx#core-expander-binding? _%bind120945%_) + _%form120979%_ + (gx#resolve-identifier__0 _%form120979%_)))) + (if (gx#core-expander-binding? _%bind120982%_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120945%_ + _%bind120982%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd120943%_ - (gx#stx-source _%stx120915%_))) + _%hd120980%_ + (gx#stx-source _%stx120952%_))) (if (##structure-direct-instance-of? - _%bind120945%_ + _%bind120982%_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120945%_ + _%bind120982%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd120943%_ - (gx#stx-source _%stx120915%_)))) + _%hd120980%_ + (gx#stx-source _%stx120952%_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _%stx120915%_ - _%form120942%_))))))) - (let ((_%hd120921%_ (gx#core-expand-head _%stx120915%_))) - (if (_%sealed-expression?120917%_ _%hd120921%_) - _%hd120921%_ - (if (gx#stx-pair? _%hd120921%_) - (let* ((_%form120925%_ (gx#stx-car _%hd120921%_)) - (_%bind120927%_ - (if (gx#identifier? _%form120925%_) - (gx#resolve-identifier__0 _%form120925%_) + _%stx120952%_ + _%form120979%_))))))) + (let ((_%hd120958%_ (gx#core-expand-head _%stx120952%_))) + (if (_%sealed-expression?120954%_ _%hd120958%_) + _%hd120958%_ + (if (gx#stx-pair? _%hd120958%_) + (let* ((_%form120962%_ (gx#stx-car _%hd120958%_)) + (_%bind120964%_ + (if (gx#identifier? _%form120962%_) + (gx#resolve-identifier__0 _%form120962%_) '#f))) - (if (or (not _%bind120927%_) - (not (gx#core-expander-binding? _%bind120927%_))) - (_%expand-e120919%_ + (if (or (not _%bind120964%_) + (not (gx#core-expander-binding? _%bind120964%_))) + (_%expand-e120956%_ '%%app - (cons '%%app _%hd120921%_)) + (cons '%%app _%hd120958%_)) (if (eq? (##unchecked-structure-ref - _%bind120927%_ + _%bind120964%_ '1 '#f '#f) '%#begin) (gx#core-expand-block* - _%hd120921%_ - _%illegal-expression120918%_) - (if (gx#expression-form-binding? _%bind120927%_) - (_%expand-e120919%_ - _%bind120927%_ - _%hd120921%_) + _%hd120958%_ + _%illegal-expression120955%_) + (if (gx#expression-form-binding? _%bind120964%_) + (_%expand-e120956%_ + _%bind120964%_ + _%hd120958%_) (if (gx#direct-special-form-binding? - _%bind120927%_) + _%bind120964%_) (gx#core-expand-expression - (_%expand-e120919%_ - _%bind120927%_ - _%hd120921%_)) - (_%illegal-expression120918%_ - _%hd120921%_)))))) - (if (gx#core-bound-identifier?__0 _%hd120921%_) - (_%illegal-expression120918%_ _%hd120921%_) - (if (gx#identifier? _%hd120921%_) - (_%expand-e120919%_ + (_%expand-e120956%_ + _%bind120964%_ + _%hd120958%_)) + (_%illegal-expression120955%_ + _%hd120958%_)))))) + (if (gx#core-bound-identifier?__0 _%hd120958%_) + (_%illegal-expression120955%_ _%hd120958%_) + (if (gx#identifier? _%hd120958%_) + (_%expand-e120956%_ '%%ref - (cons '%%ref (cons _%hd120921%_ '()))) - (if (gx#stx-datum? _%hd120921%_) - (_%expand-e120919%_ + (cons '%%ref (cons _%hd120958%_ '()))) + (if (gx#stx-datum? _%hd120958%_) + (_%expand-e120956%_ '%#quote - (cons '%#quote (cons _%hd120921%_ '()))) - (_%illegal-expression120918%_ - _%hd120921%_)))))))))) + (cons '%#quote (cons _%hd120958%_ '()))) + (_%illegal-expression120955%_ + _%hd120958%_)))))))))) (define gx#core-expand-expression+1 - (lambda (_%stx120910%_) + (lambda (_%stx120947%_) (__call-with-parameters (lambda () - (let ((_%stx120913%_ (gx#core-expand-expression _%stx120910%_))) - (values _%stx120913%_ (gx#eval-syntax* _%stx120913%_)))) + (let ((_%stx120950%_ (gx#core-expand-expression _%stx120947%_))) + (values _%stx120950%_ (gx#eval-syntax* _%stx120950%_)))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_%stx120891%_ _%stop?120892%_) - (let _%lp120894%_ ((_%stx120896%_ _%stx120891%_)) - (if (_%stop?120892%_ _%stx120896%_) - _%stx120896%_ - (let ((_%rstx120898%_ (gx#core-expand1 _%stx120896%_))) - (if (eq? _%stx120896%_ _%rstx120898%_) - _%stx120896%_ - (_%lp120894%_ _%rstx120898%_))))))) + (lambda (_%stx120928%_ _%stop?120929%_) + (let _%lp120931%_ ((_%stx120933%_ _%stx120928%_)) + (if (_%stop?120929%_ _%stx120933%_) + _%stx120933%_ + (let ((_%rstx120935%_ (gx#core-expand1 _%stx120933%_))) + (if (eq? _%stx120933%_ _%rstx120935%_) + _%stx120933%_ + (_%lp120931%_ _%rstx120935%_))))))) (define gx#core-expand*__0 - (lambda (_%stx120903%_) - (let ((_%stop?120905%_ false)) - (gx#core-expand*__% _%stx120903%_ _%stop?120905%_)))) + (lambda (_%stx120940%_) + (let ((_%stop?120942%_ false)) + (gx#core-expand*__% _%stx120940%_ _%stop?120942%_)))) (define gx#core-expand* - (lambda _g121500_ - (let ((_g121499_ (##length _g121500_))) - (cond ((##fx= _g121499_ 1) (apply gx#core-expand*__0 _g121500_)) - ((##fx= _g121499_ 2) (apply gx#core-expand*__% _g121500_)) + (lambda _g121537_ + (let ((_g121536_ (##length _g121537_))) + (cond ((##fx= _g121536_ 1) (apply gx#core-expand*__0 _g121537_)) + ((##fx= _g121536_ 2) (apply gx#core-expand*__% _g121537_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g121500_)))))) + _g121537_)))))) (define gx#core-expand1 - (lambda (_%stx120843%_) - (letrec ((_%step120845%_ - (lambda (_%hd120882%_) - (let ((_%bind120884%_ - (gx#resolve-identifier__0 _%hd120882%_))) + (lambda (_%stx120880%_) + (letrec ((_%step120882%_ + (lambda (_%hd120919%_) + (let ((_%bind120921%_ + (gx#resolve-identifier__0 _%hd120919%_))) (if (##structure-instance-of? - _%bind120884%_ + _%bind120921%_ 'gx#runtime-binding::t) - _%stx120843%_ + _%stx120880%_ (if (##structure-direct-instance-of? - _%bind120884%_ + _%bind120921%_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120884%_ + _%bind120921%_ '4 '#f '#f) - _%stx120843%_) - (if (not _%bind120884%_) - _%stx120843%_ + _%stx120880%_) + (if (not _%bind120921%_) + _%stx120880%_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _%stx120843%_)))))))) - (let* ((_%e120846120854%_ _%stx120843%_) - (_%E120852120858%_ (lambda () _%stx120843%_)) - (_%E120848120864%_ + _%stx120880%_)))))))) + (let* ((_%e120883120891%_ _%stx120880%_) + (_%E120889120895%_ (lambda () _%stx120880%_)) + (_%E120885120901%_ (lambda () - (let ((_%hd120862%_ _%e120846120854%_)) - (if (gx#identifier? _%hd120862%_) - (_%step120845%_ _%hd120862%_) - (_%E120852120858%_))))) - (_%E120847120878%_ + (let ((_%hd120899%_ _%e120883120891%_)) + (if (gx#identifier? _%hd120899%_) + (_%step120882%_ _%hd120899%_) + (_%E120889120895%_))))) + (_%E120884120915%_ (lambda () - (if (gx#stx-pair? _%e120846120854%_) - (let ((_%e120849120868%_ - (gx#syntax-e _%e120846120854%_))) - (let ((_%hd120850120871%_ (##car _%e120849120868%_)) - (_%tl120851120873%_ (##cdr _%e120849120868%_))) - (let ((_%hd120876%_ _%hd120850120871%_)) - (if (gx#identifier? _%hd120876%_) - (_%step120845%_ _%hd120876%_) - (_%E120848120864%_))))) - (_%E120848120864%_))))) - (_%E120847120878%_))))) + (if (gx#stx-pair? _%e120883120891%_) + (let ((_%e120886120905%_ + (gx#syntax-e _%e120883120891%_))) + (let ((_%hd120887120908%_ (##car _%e120886120905%_)) + (_%tl120888120910%_ (##cdr _%e120886120905%_))) + (let ((_%hd120913%_ _%hd120887120908%_)) + (if (gx#identifier? _%hd120913%_) + (_%step120882%_ _%hd120913%_) + (_%E120885120901%_))))) + (_%E120885120901%_))))) + (_%E120884120915%_))))) (define gx#core-expand-head - (lambda (_%stx120809%_) - (letrec ((_%stop?120811%_ - (lambda (_%stx120813%_) - (let* ((_%e120814120821%_ _%stx120813%_) - (_%E120816120825%_ (lambda () '#f)) - (_%E120815120839%_ + (lambda (_%stx120846%_) + (letrec ((_%stop?120848%_ + (lambda (_%stx120850%_) + (let* ((_%e120851120858%_ _%stx120850%_) + (_%E120853120862%_ (lambda () '#f)) + (_%E120852120876%_ (lambda () - (if (gx#stx-pair? _%e120814120821%_) - (let ((_%e120817120829%_ - (gx#syntax-e _%e120814120821%_))) - (let ((_%hd120818120832%_ - (##car _%e120817120829%_)) - (_%tl120819120834%_ - (##cdr _%e120817120829%_))) - (let ((_%hd120837%_ _%hd120818120832%_)) + (if (gx#stx-pair? _%e120851120858%_) + (let ((_%e120854120866%_ + (gx#syntax-e _%e120851120858%_))) + (let ((_%hd120855120869%_ + (##car _%e120854120866%_)) + (_%tl120856120871%_ + (##cdr _%e120854120866%_))) + (let ((_%hd120874%_ _%hd120855120869%_)) (gx#core-bound-identifier?__0 - _%hd120837%_)))) - (_%E120816120825%_))))) - (_%E120815120839%_))))) - (gx#core-expand*__% _%stx120809%_ _%stop?120811%_)))) + _%hd120874%_)))) + (_%E120853120862%_))))) + (_%E120852120876%_))))) + (gx#core-expand*__% _%stx120846%_ _%stop?120848%_)))) (define gx#core-expand-block__% - (lambda (_%stx120615%_ - _%expand-special120616%_ - _%begin-form120617%_ - _%expand-e120618%_) - (letrec ((_%expand-splice120620%_ - (lambda (_%hd120783%_ - _%body120784%_ - _%rest120785%_ - _%r120786%_) - (if (gx#stx-list? _%body120784%_) - (_%K120624%_ - (gx#stx-foldr cons _%rest120785%_ _%body120784%_) - _%r120786%_) + (lambda (_%stx120652%_ + _%expand-special120653%_ + _%begin-form120654%_ + _%expand-e120655%_) + (letrec ((_%expand-splice120657%_ + (lambda (_%hd120820%_ + _%body120821%_ + _%rest120822%_ + _%r120823%_) + (if (gx#stx-list? _%body120821%_) + (_%K120661%_ + (gx#stx-foldr cons _%rest120822%_ _%body120821%_) + _%r120823%_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _%stx120615%_ - _%hd120783%_)))) - (_%expand-cond-expand120621%_ - (lambda (_%hd120779%_ _%rest120780%_ _%r120781%_) - (_%K120624%_ - (cons (gx#core-expand-cond-expand% _%hd120779%_) - _%rest120780%_) - _%r120781%_))) - (_%expand-include120622%_ - (lambda (_%hd120728%_ _%rest120729%_ _%r120730%_) - (let* ((_%e120731120741%_ _%hd120728%_) - (_%E120733120745%_ + _%stx120652%_ + _%hd120820%_)))) + (_%expand-cond-expand120658%_ + (lambda (_%hd120816%_ _%rest120817%_ _%r120818%_) + (_%K120661%_ + (cons (gx#core-expand-cond-expand% _%hd120816%_) + _%rest120817%_) + _%r120818%_))) + (_%expand-include120659%_ + (lambda (_%hd120765%_ _%rest120766%_ _%r120767%_) + (let* ((_%e120768120778%_ _%hd120765%_) + (_%E120770120782%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120731120741%_))) - (_%E120732120775%_ + _%e120768120778%_))) + (_%E120769120812%_ (lambda () - (if (gx#stx-pair? _%e120731120741%_) - (let ((_%e120734120749%_ - (gx#syntax-e _%e120731120741%_))) - (let ((_%hd120735120752%_ - (##car _%e120734120749%_)) - (_%tl120736120754%_ - (##cdr _%e120734120749%_))) - (if (gx#stx-pair? _%tl120736120754%_) - (let ((_%e120737120757%_ + (if (gx#stx-pair? _%e120768120778%_) + (let ((_%e120771120786%_ + (gx#syntax-e _%e120768120778%_))) + (let ((_%hd120772120789%_ + (##car _%e120771120786%_)) + (_%tl120773120791%_ + (##cdr _%e120771120786%_))) + (if (gx#stx-pair? _%tl120773120791%_) + (let ((_%e120774120794%_ (gx#syntax-e - _%tl120736120754%_))) - (let ((_%hd120738120760%_ - (##car _%e120737120757%_)) - (_%tl120739120762%_ - (##cdr _%e120737120757%_))) - (let ((_%path120765%_ - _%hd120738120760%_)) + _%tl120773120791%_))) + (let ((_%hd120775120797%_ + (##car _%e120774120794%_)) + (_%tl120776120799%_ + (##cdr _%e120774120794%_))) + (let ((_%path120802%_ + _%hd120775120797%_)) (if (gx#stx-null? - _%tl120739120762%_) + _%tl120776120799%_) (if (gx#stx-string? - _%path120765%_) - (let* ((_%rpath120767%_ + _%path120802%_) + (let* ((_%rpath120804%_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%path120765%_ - (gx#stx-source _%hd120728%_))) - (_%block120769%_ + _%path120802%_ + (gx#stx-source _%hd120765%_))) + (_%block120806%_ (gx#core-expand-include%__% - _%hd120728%_ - _%rpath120767%_)) - (_%rbody120772%_ + _%hd120765%_ + _%rpath120804%_)) + (_%rbody120809%_ (__call-with-parameters (lambda () (gx#core-expand-block__% - _%block120769%_ - _%expand-special120616%_ + _%block120806%_ + _%expand-special120653%_ '#f - _%expand-e120618%_)) + _%expand-e120655%_)) gx#current-expander-path - (cons _%rpath120767%_ (gx#current-expander-path))))) - (_%K120624%_ - _%rest120729%_ - (__foldr1 cons _%r120730%_ _%rbody120772%_))) - (_%E120733120745%_)) + (cons _%rpath120804%_ (gx#current-expander-path))))) + (_%K120661%_ + _%rest120766%_ + (__foldr1 cons _%r120767%_ _%rbody120809%_))) + (_%E120770120782%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120733120745%_))))) - (_%E120733120745%_)))) - (_%E120733120745%_))))) - (_%E120732120775%_)))) - (_%expand-expression120623%_ - (lambda (_%hd120724%_ _%rest120725%_ _%r120726%_) - (_%K120624%_ - _%rest120725%_ - (cons (_%expand-e120618%_ _%hd120724%_) _%r120726%_)))) - (_%K120624%_ - (lambda (_%rest120654%_ _%r120655%_) - (let* ((_%e120656120663%_ _%rest120654%_) - (_%E120658120667%_ + (_%E120770120782%_))))) + (_%E120770120782%_)))) + (_%E120770120782%_))))) + (_%E120769120812%_)))) + (_%expand-expression120660%_ + (lambda (_%hd120761%_ _%rest120762%_ _%r120763%_) + (_%K120661%_ + _%rest120762%_ + (cons (_%expand-e120655%_ _%hd120761%_) _%r120763%_)))) + (_%K120661%_ + (lambda (_%rest120691%_ _%r120692%_) + (let* ((_%e120693120700%_ _%rest120691%_) + (_%E120695120704%_ (lambda () - (if _%begin-form120617%_ + (if _%begin-form120654%_ (gx#core-quote-syntax__1 (gx#core-cons - _%begin-form120617%_ - (reverse _%r120655%_)) - (gx#stx-source _%stx120615%_)) - _%r120655%_))) - (_%E120657120720%_ + _%begin-form120654%_ + (reverse _%r120692%_)) + (gx#stx-source _%stx120652%_)) + _%r120692%_))) + (_%E120694120757%_ (lambda () - (if (gx#stx-pair? _%e120656120663%_) - (let ((_%e120659120671%_ - (gx#syntax-e _%e120656120663%_))) - (let ((_%hd120660120674%_ - (##car _%e120659120671%_)) - (_%tl120661120676%_ - (##cdr _%e120659120671%_))) - (let* ((_%hd120679%_ _%hd120660120674%_) - (_%rest120681%_ - _%tl120661120676%_) - (_%hd120683%_ + (if (gx#stx-pair? _%e120693120700%_) + (let ((_%e120696120708%_ + (gx#syntax-e _%e120693120700%_))) + (let ((_%hd120697120711%_ + (##car _%e120696120708%_)) + (_%tl120698120713%_ + (##cdr _%e120696120708%_))) + (let* ((_%hd120716%_ _%hd120697120711%_) + (_%rest120718%_ + _%tl120698120713%_) + (_%hd120720%_ (gx#core-expand-head - _%hd120679%_)) - (_%e120684120691%_ _%hd120683%_) - (_%E120686120695%_ + _%hd120716%_)) + (_%e120721120728%_ _%hd120720%_) + (_%E120723120732%_ (lambda () - (_%expand-expression120623%_ - _%hd120683%_ - _%rest120681%_ - _%r120655%_))) - (_%E120685120716%_ + (_%expand-expression120660%_ + _%hd120720%_ + _%rest120718%_ + _%r120692%_))) + (_%E120722120753%_ (lambda () (if (gx#stx-pair? - _%e120684120691%_) - (let ((_%e120687120699%_ + _%e120721120728%_) + (let ((_%e120724120736%_ (gx#syntax-e - _%e120684120691%_))) - (let ((_%hd120688120702%_ - (##car _%e120687120699%_)) - (_%tl120689120704%_ - (##cdr _%e120687120699%_))) - (let* ((_%form120707%_ - _%hd120688120702%_) - (_%body120709%_ - _%tl120689120704%_) - (_%bind120711%_ + _%e120721120728%_))) + (let ((_%hd120725120739%_ + (##car _%e120724120736%_)) + (_%tl120726120741%_ + (##cdr _%e120724120736%_))) + (let* ((_%form120744%_ + _%hd120725120739%_) + (_%body120746%_ + _%tl120726120741%_) + (_%bind120748%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%form120707%_) - (gx#resolve-identifier__0 _%form120707%_) + _%form120744%_) + (gx#resolve-identifier__0 _%form120744%_) '#f))) - (if (gx#special-form-binding? _%bind120711%_) - (let ((_%$e120713%_ + (if (gx#special-form-binding? _%bind120748%_) + (let ((_%$e120750%_ (##unchecked-structure-ref - _%bind120711%_ + _%bind120748%_ '1 '#f '#f))) - (if (eq? '%#begin _%$e120713%_) - (_%expand-splice120620%_ - _%hd120683%_ - _%body120709%_ - _%rest120681%_ - _%r120655%_) - (if (eq? '%#cond-expand _%$e120713%_) - (_%expand-cond-expand120621%_ - _%hd120683%_ - _%rest120681%_ - _%r120655%_) - (if (eq? '%#include _%$e120713%_) - (_%expand-include120622%_ - _%hd120683%_ - _%rest120681%_ - _%r120655%_) - (_%expand-special120616%_ - _%hd120683%_ - _%K120624%_ - _%rest120681%_ - _%r120655%_))))) - (_%expand-expression120623%_ - _%hd120683%_ - _%rest120681%_ - _%r120655%_))))) + (if (eq? '%#begin _%$e120750%_) + (_%expand-splice120657%_ + _%hd120720%_ + _%body120746%_ + _%rest120718%_ + _%r120692%_) + (if (eq? '%#cond-expand _%$e120750%_) + (_%expand-cond-expand120658%_ + _%hd120720%_ + _%rest120718%_ + _%r120692%_) + (if (eq? '%#include _%$e120750%_) + (_%expand-include120659%_ + _%hd120720%_ + _%rest120718%_ + _%r120692%_) + (_%expand-special120653%_ + _%hd120720%_ + _%K120661%_ + _%rest120718%_ + _%r120692%_))))) + (_%expand-expression120660%_ + _%hd120720%_ + _%rest120718%_ + _%r120692%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120686120695%_))))) - (_%E120685120716%_)))) - (_%E120658120667%_))))) - (_%E120657120720%_))))) - (let* ((_%e120625120632%_ _%stx120615%_) - (_%E120627120636%_ + (_%E120723120732%_))))) + (_%E120722120753%_)))) + (_%E120695120704%_))))) + (_%E120694120757%_))))) + (let* ((_%e120662120669%_ _%stx120652%_) + (_%E120664120673%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120625120632%_))) - (_%E120626120650%_ + _%e120662120669%_))) + (_%E120663120687%_ (lambda () - (if (gx#stx-pair? _%e120625120632%_) - (let ((_%e120628120640%_ - (gx#syntax-e _%e120625120632%_))) - (let ((_%hd120629120643%_ (##car _%e120628120640%_)) - (_%tl120630120645%_ (##cdr _%e120628120640%_))) - (let ((_%body120648%_ _%tl120630120645%_)) - (if (gx#stx-list? _%body120648%_) - (_%K120624%_ _%body120648%_ '()) - (_%E120627120636%_))))) - (_%E120627120636%_))))) - (_%E120626120650%_))))) + (if (gx#stx-pair? _%e120662120669%_) + (let ((_%e120665120677%_ + (gx#syntax-e _%e120662120669%_))) + (let ((_%hd120666120680%_ (##car _%e120665120677%_)) + (_%tl120667120682%_ (##cdr _%e120665120677%_))) + (let ((_%body120685%_ _%tl120667120682%_)) + (if (gx#stx-list? _%body120685%_) + (_%K120661%_ _%body120685%_ '()) + (_%E120664120673%_))))) + (_%E120664120673%_))))) + (_%E120663120687%_))))) (define gx#core-expand-block__0 - (lambda (_%stx120791%_ _%expand-special120792%_) - (let* ((_%begin-form120794%_ '%#begin) - (_%expand-e120796%_ gx#core-expand-expression)) + (lambda (_%stx120828%_ _%expand-special120829%_) + (let* ((_%begin-form120831%_ '%#begin) + (_%expand-e120833%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx120791%_ - _%expand-special120792%_ - _%begin-form120794%_ - _%expand-e120796%_)))) + _%stx120828%_ + _%expand-special120829%_ + _%begin-form120831%_ + _%expand-e120833%_)))) (define gx#core-expand-block__1 - (lambda (_%stx120798%_ _%expand-special120799%_ _%begin-form120800%_) - (let ((_%expand-e120802%_ gx#core-expand-expression)) + (lambda (_%stx120835%_ _%expand-special120836%_ _%begin-form120837%_) + (let ((_%expand-e120839%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx120798%_ - _%expand-special120799%_ - _%begin-form120800%_ - _%expand-e120802%_)))) + _%stx120835%_ + _%expand-special120836%_ + _%begin-form120837%_ + _%expand-e120839%_)))) (define gx#core-expand-block - (lambda _g121502_ - (let ((_g121501_ (##length _g121502_))) - (cond ((##fx= _g121501_ 2) (apply gx#core-expand-block__0 _g121502_)) - ((##fx= _g121501_ 3) (apply gx#core-expand-block__1 _g121502_)) - ((##fx= _g121501_ 4) (apply gx#core-expand-block__% _g121502_)) + (lambda _g121539_ + (let ((_g121538_ (##length _g121539_))) + (cond ((##fx= _g121538_ 2) (apply gx#core-expand-block__0 _g121539_)) + ((##fx= _g121538_ 3) (apply gx#core-expand-block__1 _g121539_)) + ((##fx= _g121538_ 4) (apply gx#core-expand-block__% _g121539_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g121502_)))))) + _g121539_)))))) (define gx#core-expand-block* - (lambda (_%stx120563%_ _%expand-special120564%_) - (let* ((_%g120565120576%_ + (lambda (_%stx120600%_ _%expand-special120601%_) + (let* ((_%g120602120613%_ (gx#core-expand-block__1 - _%stx120563%_ - _%expand-special120564%_ + _%stx120600%_ + _%expand-special120601%_ '#f)) - (_%E120569120580%_ + (_%E120606120617%_ (lambda () (error '"No clause matching" - _%g120565120576%_ + _%g120602120613%_ '([]) '([expr]) '(body)) '#!void))) - (let ((_%K120574120611%_ + (let ((_%K120611120648%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _%stx120563%_))) - (_%K120571120597%_ (lambda (_%expr120595%_) _%expr120595%_)) - (_%K120570120586%_ - (lambda (_%body120584%_) + _%stx120600%_))) + (_%K120608120634%_ (lambda (_%expr120632%_) _%expr120632%_)) + (_%K120607120623%_ + (lambda (_%body120621%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _%body120584%_)) - (gx#stx-source _%stx120563%_))))) - (let ((_%try-match120567120607%_ + (gx#core-cons '%#begin (reverse _%body120621%_)) + (gx#stx-source _%stx120600%_))))) + (let ((_%try-match120604120644%_ (lambda () - (if (pair? _%g120565120576%_) - (let ((_%tl120573120602%_ (##cdr _%g120565120576%_)) - (_%hd120572120600%_ (##car _%g120565120576%_))) - (if (null? _%tl120573120602%_) - (let ((_%expr120605%_ _%hd120572120600%_)) - (_%K120571120597%_ _%expr120605%_)) - (let ((_%body120589%_ _%g120565120576%_)) - (_%K120570120586%_ _%body120589%_)))) - (let ((_%body120589%_ _%g120565120576%_)) - (_%K120570120586%_ _%body120589%_)))))) - (if (null? _%g120565120576%_) - (_%K120574120611%_) - (_%try-match120567120607%_))))))) + (if (pair? _%g120602120613%_) + (let ((_%tl120610120639%_ (##cdr _%g120602120613%_)) + (_%hd120609120637%_ (##car _%g120602120613%_))) + (if (null? _%tl120610120639%_) + (let ((_%expr120642%_ _%hd120609120637%_)) + (_%K120608120634%_ _%expr120642%_)) + (let ((_%body120626%_ _%g120602120613%_)) + (_%K120607120623%_ _%body120626%_)))) + (let ((_%body120626%_ _%g120602120613%_)) + (_%K120607120623%_ _%body120626%_)))))) + (if (null? _%g120602120613%_) + (_%K120611120648%_) + (_%try-match120604120644%_))))))) (define gx#core-expand-cond-expand% - (lambda (_%stx120388%_) - (letrec ((_%satisfied?120390%_ - (lambda (_%condition120491%_) - (let* ((_%e120492120507%_ _%condition120491%_) - (_%E120502120511%_ + (lambda (_%stx120425%_) + (letrec ((_%satisfied?120427%_ + (lambda (_%condition120528%_) + (let* ((_%e120529120544%_ _%condition120528%_) + (_%E120539120548%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120492120507%_))) - (_%E120495120530%_ + _%e120529120544%_))) + (_%E120532120567%_ (lambda () - (if (gx#stx-pair? _%e120492120507%_) - (let ((_%e120503120515%_ - (gx#syntax-e _%e120492120507%_))) - (let ((_%hd120504120518%_ - (##car _%e120503120515%_)) - (_%tl120505120520%_ - (##cdr _%e120503120515%_))) - (let* ((_%combinator120523%_ - _%hd120504120518%_) - (_%body120525%_ - _%tl120505120520%_)) - (if (gx#stx-list? _%body120525%_) - (let ((_%$e120527%_ + (if (gx#stx-pair? _%e120529120544%_) + (let ((_%e120540120552%_ + (gx#syntax-e _%e120529120544%_))) + (let ((_%hd120541120555%_ + (##car _%e120540120552%_)) + (_%tl120542120557%_ + (##cdr _%e120540120552%_))) + (let* ((_%combinator120560%_ + _%hd120541120555%_) + (_%body120562%_ + _%tl120542120557%_)) + (if (gx#stx-list? _%body120562%_) + (let ((_%$e120564%_ (gx#stx-e - _%combinator120523%_))) - (if (eq? 'not _%$e120527%_) + _%combinator120560%_))) + (if (eq? 'not _%$e120564%_) (not (gx#stx-ormap - _%satisfied?120390%_ - _%body120525%_)) - (if (eq? 'and _%$e120527%_) + _%satisfied?120427%_ + _%body120562%_)) + (if (eq? 'and _%$e120564%_) (gx#stx-andmap - _%satisfied?120390%_ - _%body120525%_) + _%satisfied?120427%_ + _%body120562%_) (if (eq? 'or - _%$e120527%_) + _%$e120564%_) (gx#stx-ormap - _%satisfied?120390%_ - _%body120525%_) + _%satisfied?120427%_ + _%body120562%_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e120527%_) - (gx#stx-andmap gx#core-resolve-identifier _%body120525%_) + _%$e120564%_) + (gx#stx-andmap gx#core-resolve-identifier _%body120562%_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _%stx120388%_ - _%combinator120523%_)))))) + _%stx120425%_ + _%combinator120560%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120502120511%_))))) - (_%E120502120511%_)))) - (_%E120494120553%_ + (_%E120539120548%_))))) + (_%E120539120548%_)))) + (_%E120531120590%_ (lambda () - (if (gx#stx-pair? _%e120492120507%_) - (let ((_%e120496120534%_ - (gx#syntax-e _%e120492120507%_))) - (let ((_%hd120497120537%_ - (##car _%e120496120534%_)) - (_%tl120498120539%_ - (##cdr _%e120496120534%_))) + (if (gx#stx-pair? _%e120529120544%_) + (let ((_%e120533120571%_ + (gx#syntax-e _%e120529120544%_))) + (let ((_%hd120534120574%_ + (##car _%e120533120571%_)) + (_%tl120535120576%_ + (##cdr _%e120533120571%_))) (if (and (gx#identifier? - _%hd120497120537%_) + _%hd120534120574%_) (gx#core-identifier=? - _%hd120497120537%_ + _%hd120534120574%_ 'unquote)) - (if (gx#stx-pair? _%tl120498120539%_) - (let ((_%e120499120542%_ + (if (gx#stx-pair? _%tl120535120576%_) + (let ((_%e120536120579%_ (gx#syntax-e - _%tl120498120539%_))) - (let ((_%hd120500120545%_ - (##car _%e120499120542%_)) - (_%tl120501120547%_ - (##cdr _%e120499120542%_))) - (let ((_%expr120550%_ - _%hd120500120545%_)) + _%tl120535120576%_))) + (let ((_%hd120537120582%_ + (##car _%e120536120579%_)) + (_%tl120538120584%_ + (##cdr _%e120536120579%_))) + (let ((_%expr120587%_ + _%hd120537120582%_)) (if (gx#stx-null? - _%tl120501120547%_) + _%tl120538120584%_) (__call-with-parameters (lambda () (gx#eval-syntax__0 - _%expr120550%_)) + _%expr120587%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) - (_%E120495120530%_))))) - (_%E120495120530%_)) - (_%E120495120530%_)))) - (_%E120495120530%_)))) - (_%E120493120559%_ + (_%E120532120567%_))))) + (_%E120532120567%_)) + (_%E120532120567%_)))) + (_%E120532120567%_)))) + (_%E120530120596%_ (lambda () - (let ((_%id120557%_ _%e120492120507%_)) - (if (gx#identifier? _%id120557%_) + (let ((_%id120594%_ _%e120529120544%_)) + (if (gx#identifier? _%id120594%_) (gx#core-bound-identifier?__% - _%id120557%_ + _%id120594%_ gx#feature-binding?) - (_%E120494120553%_)))))) - (_%E120493120559%_)))) - (_%loop120391%_ - (lambda (_%rest120421%_) - (let* ((_%e120422120430%_ _%rest120421%_) - (_%E120428120434%_ + (_%E120531120590%_)))))) + (_%E120530120596%_)))) + (_%loop120428%_ + (lambda (_%rest120458%_) + (let* ((_%e120459120467%_ _%rest120458%_) + (_%E120465120471%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120422120430%_))) - (_%E120424120438%_ + _%e120459120467%_))) + (_%E120461120475%_ (lambda () - (if (gx#stx-null? _%e120422120430%_) + (if (gx#stx-null? _%e120459120467%_) '() - (_%E120428120434%_)))) - (_%E120423120487%_ + (_%E120465120471%_)))) + (_%E120460120524%_ (lambda () - (if (gx#stx-pair? _%e120422120430%_) - (let ((_%e120425120442%_ - (gx#syntax-e _%e120422120430%_))) - (let ((_%hd120426120445%_ - (##car _%e120425120442%_)) - (_%tl120427120447%_ - (##cdr _%e120425120442%_))) - (let* ((_%hd120450%_ _%hd120426120445%_) - (_%rest120452%_ - _%tl120427120447%_) - (_%e120453120460%_ _%hd120450%_) - (_%E120455120464%_ + (if (gx#stx-pair? _%e120459120467%_) + (let ((_%e120462120479%_ + (gx#syntax-e _%e120459120467%_))) + (let ((_%hd120463120482%_ + (##car _%e120462120479%_)) + (_%tl120464120484%_ + (##cdr _%e120462120479%_))) + (let* ((_%hd120487%_ _%hd120463120482%_) + (_%rest120489%_ + _%tl120464120484%_) + (_%e120490120497%_ _%hd120487%_) + (_%E120492120501%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120453120460%_))) - (_%E120454120483%_ + _%e120490120497%_))) + (_%E120491120520%_ (lambda () (if (gx#stx-pair? - _%e120453120460%_) - (let ((_%e120456120468%_ + _%e120490120497%_) + (let ((_%e120493120505%_ (gx#syntax-e - _%e120453120460%_))) - (let ((_%hd120457120471%_ - (##car _%e120456120468%_)) - (_%tl120458120473%_ - (##cdr _%e120456120468%_))) - (let* ((_%condition120476%_ - _%hd120457120471%_) - (_%body120478%_ - _%tl120458120473%_)) + _%e120490120497%_))) + (let ((_%hd120494120508%_ + (##car _%e120493120505%_)) + (_%tl120495120510%_ + (##cdr _%e120493120505%_))) + (let* ((_%condition120513%_ + _%hd120494120508%_) + (_%body120515%_ + _%tl120495120510%_)) (if (gx#stx-eq? - _%condition120476%_ + _%condition120513%_ 'else) (if (gx#stx-null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest120452%_) - _%body120478%_ + _%rest120489%_) + _%body120515%_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _%stx120388%_ - _%hd120450%_)) - (if (_%satisfied?120390%_ _%condition120476%_) - _%body120478%_ - (_%loop120391%_ _%rest120452%_)))))) + _%stx120425%_ + _%hd120487%_)) + (if (_%satisfied?120427%_ _%condition120513%_) + _%body120515%_ + (_%loop120428%_ _%rest120489%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120455120464%_))))) - (_%E120454120483%_)))) - (_%E120424120438%_))))) - (_%E120423120487%_))))) - (let* ((_%e120392120399%_ _%stx120388%_) - (_%E120394120403%_ + (_%E120492120501%_))))) + (_%E120491120520%_)))) + (_%E120461120475%_))))) + (_%E120460120524%_))))) + (let* ((_%e120429120436%_ _%stx120425%_) + (_%E120431120440%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120392120399%_))) - (_%E120393120417%_ + _%e120429120436%_))) + (_%E120430120454%_ (lambda () - (if (gx#stx-pair? _%e120392120399%_) - (let ((_%e120395120407%_ - (gx#syntax-e _%e120392120399%_))) - (let ((_%hd120396120410%_ (##car _%e120395120407%_)) - (_%tl120397120412%_ (##cdr _%e120395120407%_))) - (let ((_%clauses120415%_ _%tl120397120412%_)) - (if (gx#stx-list? _%clauses120415%_) + (if (gx#stx-pair? _%e120429120436%_) + (let ((_%e120432120444%_ + (gx#syntax-e _%e120429120436%_))) + (let ((_%hd120433120447%_ (##car _%e120432120444%_)) + (_%tl120434120449%_ (##cdr _%e120432120444%_))) + (let ((_%clauses120452%_ _%tl120434120449%_)) + (if (gx#stx-list? _%clauses120452%_) (gx#core-cons 'begin - (_%loop120391%_ _%clauses120415%_)) - (_%E120394120403%_))))) - (_%E120394120403%_))))) - (_%E120393120417%_))))) + (_%loop120428%_ _%clauses120452%_)) + (_%E120431120440%_))))) + (_%E120431120440%_))))) + (_%E120430120454%_))))) (define gx#core-expand-include%__% - (lambda (_%stx120331%_ _%rpath120332%_) - (let* ((_%e120333120343%_ _%stx120331%_) - (_%E120335120347%_ + (lambda (_%stx120368%_ _%rpath120369%_) + (let* ((_%e120370120380%_ _%stx120368%_) + (_%E120372120384%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120333120343%_))) - (_%E120334120374%_ + _%e120370120380%_))) + (_%E120371120411%_ (lambda () - (if (gx#stx-pair? _%e120333120343%_) - (let ((_%e120336120351%_ - (gx#syntax-e _%e120333120343%_))) - (let ((_%hd120337120354%_ (##car _%e120336120351%_)) - (_%tl120338120356%_ (##cdr _%e120336120351%_))) - (if (gx#stx-pair? _%tl120338120356%_) - (let ((_%e120339120359%_ - (gx#syntax-e _%tl120338120356%_))) - (let ((_%hd120340120362%_ - (##car _%e120339120359%_)) - (_%tl120341120364%_ - (##cdr _%e120339120359%_))) - (let ((_%path120367%_ _%hd120340120362%_)) - (if (gx#stx-null? _%tl120341120364%_) - (if (gx#stx-string? _%path120367%_) - (let ((_%rpath120372%_ - (let ((_%$e120369%_ - _%rpath120332%_)) - (if _%$e120369%_ - _%$e120369%_ + (if (gx#stx-pair? _%e120370120380%_) + (let ((_%e120373120388%_ + (gx#syntax-e _%e120370120380%_))) + (let ((_%hd120374120391%_ (##car _%e120373120388%_)) + (_%tl120375120393%_ (##cdr _%e120373120388%_))) + (if (gx#stx-pair? _%tl120375120393%_) + (let ((_%e120376120396%_ + (gx#syntax-e _%tl120375120393%_))) + (let ((_%hd120377120399%_ + (##car _%e120376120396%_)) + (_%tl120378120401%_ + (##cdr _%e120376120396%_))) + (let ((_%path120404%_ _%hd120377120399%_)) + (if (gx#stx-null? _%tl120378120401%_) + (if (gx#stx-string? _%path120404%_) + (let ((_%rpath120409%_ + (let ((_%$e120406%_ + _%rpath120369%_)) + (if _%$e120406%_ + _%$e120406%_ (gx#core-resolve-path__% - _%path120367%_ + _%path120404%_ (gx#stx-source - _%stx120331%_)))))) - (if (member _%rpath120372%_ + _%stx120368%_)))))) + (if (member _%rpath120409%_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _%stx120331%_) + _%stx120368%_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _%rpath120372%_)) + _%rpath120409%_)) (gx#stx-source - _%stx120331%_))))) - (_%E120335120347%_)) - (_%E120335120347%_))))) - (_%E120335120347%_)))) - (_%E120335120347%_))))) - (_%E120334120374%_)))) + _%stx120368%_))))) + (_%E120372120384%_)) + (_%E120372120384%_))))) + (_%E120372120384%_)))) + (_%E120372120384%_))))) + (_%E120371120411%_)))) (define gx#core-expand-include%__0 - (lambda (_%stx120381%_) - (let ((_%rpath120383%_ '#f)) - (gx#core-expand-include%__% _%stx120381%_ _%rpath120383%_)))) + (lambda (_%stx120418%_) + (let ((_%rpath120420%_ '#f)) + (gx#core-expand-include%__% _%stx120418%_ _%rpath120420%_)))) (define gx#core-expand-include% - (lambda _g121504_ - (let ((_g121503_ (##length _g121504_))) - (cond ((##fx= _g121503_ 1) - (apply gx#core-expand-include%__0 _g121504_)) - ((##fx= _g121503_ 2) - (apply gx#core-expand-include%__% _g121504_)) + (lambda _g121541_ + (let ((_g121540_ (##length _g121541_))) + (cond ((##fx= _g121540_ 1) + (apply gx#core-expand-include%__0 _g121541_)) + ((##fx= _g121540_ 2) + (apply gx#core-expand-include%__% _g121541_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g121504_)))))) + _g121541_)))))) (define gx#core-apply-expander__% - (lambda (_%K120297%_ _%stx120298%_ _%method120299%_) - (if (procedure? _%K120297%_) - (let ((_%$e120302%_ (gx#stx-source _%stx120298%_))) - (if _%$e120302%_ - ((lambda (_%g120304120306%_) + (lambda (_%K120334%_ _%stx120335%_ _%method120336%_) + (if (procedure? _%K120334%_) + (let ((_%$e120339%_ (gx#stx-source _%stx120335%_))) + (if _%$e120339%_ + ((lambda (_%g120341120343%_) (gx#stx-wrap-source - (_%K120297%_ _%stx120298%_) - _%g120304120306%_)) - _%$e120302%_) - (_%K120297%_ _%stx120298%_))) - (let ((_%$e120310%_ - (bound-method-ref _%K120297%_ _%method120299%_))) - (if _%$e120310%_ - ((lambda (_%g120312120314%_) + (_%K120334%_ _%stx120335%_) + _%g120341120343%_)) + _%$e120339%_) + (_%K120334%_ _%stx120335%_))) + (let ((_%$e120347%_ + (bound-method-ref _%K120334%_ _%method120336%_))) + (if _%$e120347%_ + ((lambda (_%g120349120351%_) (gx#core-apply-expander__% - _%g120312120314%_ - _%stx120298%_ - _%method120299%_)) - _%$e120310%_) + _%g120349120351%_ + _%stx120335%_ + _%method120336%_)) + _%$e120347%_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _%stx120298%_ - _%method120299%_)))))) + _%stx120335%_ + _%method120336%_)))))) (define gx#core-apply-expander__0 - (lambda (_%K120321%_ _%stx120322%_) - (let ((_%method120324%_ 'apply-macro-expander)) + (lambda (_%K120358%_ _%stx120359%_) + (let ((_%method120361%_ 'apply-macro-expander)) (gx#core-apply-expander__% - _%K120321%_ - _%stx120322%_ - _%method120324%_)))) + _%K120358%_ + _%stx120359%_ + _%method120361%_)))) (define gx#core-apply-expander - (lambda _g121506_ - (let ((_g121505_ (##length _g121506_))) - (cond ((##fx= _g121505_ 2) - (apply gx#core-apply-expander__0 _g121506_)) - ((##fx= _g121505_ 3) - (apply gx#core-apply-expander__% _g121506_)) + (lambda _g121543_ + (let ((_g121542_ (##length _g121543_))) + (cond ((##fx= _g121542_ 2) + (apply gx#core-apply-expander__0 _g121543_)) + ((##fx= _g121542_ 3) + (apply gx#core-apply-expander__% _g121543_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g121506_)))))) + _g121543_)))))) (define gx#expander::apply-macro-expander - (lambda (_%self118339120280%_ _%stx120282%_) - (let* ((_%self120284%_ _%self118339120280%_) - (_%self120286%_ _%self120284%_)) + (lambda (_%self118376120317%_ _%stx120319%_) + (let* ((_%self120321%_ _%self118376120317%_) + (_%self120323%_ _%self120321%_)) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _%stx120282%_)))) + _%stx120319%_)))) (__bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_%self118340120120%_ _%stx120122%_) - (let* ((_%self120124%_ _%self118340120120%_) - (_%self120126%_ _%self120124%_) - (_%self120135120141%_ _%self120126%_) - (_%E120137120145%_ + (lambda (_%self118377120157%_ _%stx120159%_) + (let* ((_%self120161%_ _%self118377120157%_) + (_%self120163%_ _%self120161%_) + (_%self120172120178%_ _%self120163%_) + (_%E120174120182%_ (lambda () (error '"No clause matching" - _%self120135120141%_ + _%self120172120178%_ '((macro-expander K))) '#!void)) - (_%K120138120150%_ - (lambda (_%K120148%_) - (gx#core-apply-expander__0 _%K120148%_ _%stx120122%_))) - (_%e120139120153%_ - (##unchecked-structure-ref _%self120135120141%_ '1 '#f '#f)) - (_%K120156%_ _%e120139120153%_)) - (_%K120138120150%_ _%K120156%_)))) + (_%K120175120187%_ + (lambda (_%K120185%_) + (gx#core-apply-expander__0 _%K120185%_ _%stx120159%_))) + (_%e120176120190%_ + (##unchecked-structure-ref _%self120172120178%_ '1 '#f '#f)) + (_%K120193%_ _%e120176120190%_)) + (_%K120175120187%_ _%K120193%_)))) (__bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_%self118341119960%_ _%stx119962%_) - (let* ((_%self119964%_ _%self118341119960%_) - (_%self119966%_ _%self119964%_)) - (if (gx#sealed-syntax? _%stx119962%_) - _%stx119962%_ - (let* ((_%self119975119981%_ _%self119966%_) - (_%E119977119985%_ + (lambda (_%self118378119997%_ _%stx119999%_) + (let* ((_%self120001%_ _%self118378119997%_) + (_%self120003%_ _%self120001%_)) + (if (gx#sealed-syntax? _%stx119999%_) + _%stx119999%_ + (let* ((_%self120012120018%_ _%self120003%_) + (_%E120014120022%_ (lambda () (error '"No clause matching" - _%self119975119981%_ + _%self120012120018%_ '((core-expander K))) '#!void)) - (_%K119978119990%_ - (lambda (_%K119988%_) - (gx#core-apply-expander__0 _%K119988%_ _%stx119962%_))) - (_%e119979119993%_ + (_%K120015120027%_ + (lambda (_%K120025%_) + (gx#core-apply-expander__0 _%K120025%_ _%stx119999%_))) + (_%e120016120030%_ (##unchecked-structure-ref - _%self119975119981%_ + _%self120012120018%_ '1 '#f '#f)) - (_%K119996%_ _%e119979119993%_)) - (_%K119978119990%_ _%K119996%_)))))) + (_%K120033%_ _%e120016120030%_)) + (_%K120015120027%_ _%K120033%_)))))) (__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 (_%self118342119809%_ _%stx119811%_ _%top?119812%_) - (let* ((_%self119814%_ _%self118342119809%_) - (_%self119816%_ _%self119814%_)) - (if (_%top?119812%_ (gx#current-expander-context)) + (lambda (_%self118379119846%_ _%stx119848%_ _%top?119849%_) + (let* ((_%self119851%_ _%self118379119846%_) + (_%self119853%_ _%self119851%_)) + (if (_%top?119849%_ (gx#current-expander-context)) (gx#core-expander::apply-macro-expander - _%self119816%_ - _%stx119811%_) + _%self119853%_ + _%stx119848%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _%stx119811%_))))) + _%stx119848%_))))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_%self118342119829%_ _%stx119830%_) - (let ((_%top?119832%_ gx#top-context?)) + (lambda (_%self118379119866%_ _%stx119867%_) + (let ((_%top?119869%_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _%self118342119829%_ - _%stx119830%_ - _%top?119832%_)))) + _%self118379119866%_ + _%stx119867%_ + _%top?119869%_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g121508_ - (let ((_g121507_ (##length _g121508_))) - (cond ((##fx= _g121507_ 2) + (lambda _g121545_ + (let ((_g121544_ (##length _g121545_))) + (cond ((##fx= _g121544_ 2) (apply gx#top-special-form::apply-macro-expander__0 - _g121508_)) - ((##fx= _g121507_ 3) + _g121545_)) + ((##fx= _g121544_ 3) (apply gx#top-special-form::apply-macro-expander__% - _g121508_)) + _g121545_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g121508_)))))) + _g121545_)))))) (__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 (_%self118343119670%_ _%stx119672%_) - (let* ((_%self119674%_ _%self118343119670%_) - (_%self119676%_ _%self119674%_)) + (lambda (_%self118380119707%_ _%stx119709%_) + (let* ((_%self119711%_ _%self118380119707%_) + (_%self119713%_ _%self119711%_)) (gx#top-special-form::apply-macro-expander__% - _%self119676%_ - _%stx119672%_ + _%self119713%_ + _%stx119709%_ 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 (_%self118344119482%_ _%stx119484%_) - (let* ((_%self119486%_ _%self118344119482%_) - (_%self119488%_ _%self119486%_) - (_%self119497119503%_ _%self119488%_) - (_%E119499119507%_ + (lambda (_%self118381119519%_ _%stx119521%_) + (let* ((_%self119523%_ _%self118381119519%_) + (_%self119525%_ _%self119523%_) + (_%self119534119540%_ _%self119525%_) + (_%E119536119544%_ (lambda () (error '"No clause matching" - _%self119497119503%_ + _%self119534119540%_ '((rename-macro-expander id))) '#!void)) - (_%K119500119540%_ - (lambda (_%id119510%_) - (let* ((_%e119511119518%_ _%stx119484%_) - (_%E119513119522%_ + (_%K119537119577%_ + (lambda (_%id119547%_) + (let* ((_%e119548119555%_ _%stx119521%_) + (_%E119550119559%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119511119518%_))) - (_%E119512119536%_ + _%e119548119555%_))) + (_%E119549119573%_ (lambda () - (if (gx#stx-pair? _%e119511119518%_) - (let ((_%e119514119526%_ - (gx#syntax-e _%e119511119518%_))) - (let ((_%hd119515119529%_ - (##car _%e119514119526%_)) - (_%tl119516119531%_ - (##cdr _%e119514119526%_))) - (let ((_%body119534%_ _%tl119516119531%_)) + (if (gx#stx-pair? _%e119548119555%_) + (let ((_%e119551119563%_ + (gx#syntax-e _%e119548119555%_))) + (let ((_%hd119552119566%_ + (##car _%e119551119563%_)) + (_%tl119553119568%_ + (##cdr _%e119551119563%_))) + (let ((_%body119571%_ _%tl119553119568%_)) (gx#core-cons - _%id119510%_ - _%body119534%_)))) - (_%E119513119522%_))))) - (_%E119512119536%_)))) - (_%e119501119543%_ - (##unchecked-structure-ref _%self119497119503%_ '1 '#f '#f)) - (_%id119546%_ _%e119501119543%_)) - (_%K119500119540%_ _%id119546%_)))) + _%id119547%_ + _%body119571%_)))) + (_%E119550119559%_))))) + (_%E119549119573%_)))) + (_%e119538119580%_ + (##unchecked-structure-ref _%self119534119540%_ '1 '#f '#f)) + (_%id119583%_ _%e119538119580%_)) + (_%K119537119577%_ _%id119583%_)))) (__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 (_%self119308%_ _%stx119309%_ _%method119310%_) - (let* ((_%self119311119319%_ _%self119308%_) - (_%E119313119323%_ + (lambda (_%self119345%_ _%stx119346%_ _%method119347%_) + (let* ((_%self119348119356%_ _%self119345%_) + (_%E119350119360%_ (lambda () (error '"No clause matching" - _%self119311119319%_ + _%self119348119356%_ '((user-expander K ctx phi))) '#!void)) - (_%K119314119330%_ - (lambda (_%phi119326%_ _%ctx119327%_ _%K119328%_) + (_%K119351119367%_ + (lambda (_%phi119363%_ _%ctx119364%_ _%K119365%_) (gx#core-apply-user-macro - _%K119328%_ - _%stx119309%_ - _%ctx119327%_ - _%phi119326%_ - _%method119310%_)))) + _%K119365%_ + _%stx119346%_ + _%ctx119364%_ + _%phi119363%_ + _%method119347%_)))) (if (##structure-instance-of? - _%self119311119319%_ + _%self119348119356%_ 'gx#user-expander::t) - (let* ((_%e119315119333%_ + (let* ((_%e119352119370%_ (##unchecked-structure-ref - _%self119311119319%_ + _%self119348119356%_ '1 '#f '#f)) - (_%K119336%_ _%e119315119333%_) - (_%e119316119338%_ + (_%K119373%_ _%e119352119370%_) + (_%e119353119375%_ (##unchecked-structure-ref - _%self119311119319%_ + _%self119348119356%_ '2 '#f '#f)) - (_%ctx119341%_ _%e119316119338%_) - (_%e119317119343%_ + (_%ctx119378%_ _%e119353119375%_) + (_%e119354119380%_ (##unchecked-structure-ref - _%self119311119319%_ + _%self119348119356%_ '3 '#f '#f)) - (_%phi119346%_ _%e119317119343%_)) - (_%K119314119330%_ _%phi119346%_ _%ctx119341%_ _%K119336%_)) - (_%E119313119323%_))))) + (_%phi119383%_ _%e119354119380%_)) + (_%K119351119367%_ _%phi119383%_ _%ctx119378%_ _%K119373%_)) + (_%E119350119360%_))))) (define gx#core-apply-user-expander__0 - (lambda (_%self119351%_ _%stx119352%_) - (let ((_%method119354%_ 'apply-macro-expander)) + (lambda (_%self119388%_ _%stx119389%_) + (let ((_%method119391%_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _%self119351%_ - _%stx119352%_ - _%method119354%_)))) + _%self119388%_ + _%stx119389%_ + _%method119391%_)))) (define gx#core-apply-user-expander - (lambda _g121510_ - (let ((_g121509_ (##length _g121510_))) - (cond ((##fx= _g121509_ 2) - (apply gx#core-apply-user-expander__0 _g121510_)) - ((##fx= _g121509_ 3) - (apply gx#core-apply-user-expander__% _g121510_)) + (lambda _g121547_ + (let ((_g121546_ (##length _g121547_))) + (cond ((##fx= _g121546_ 2) + (apply gx#core-apply-user-expander__0 _g121547_)) + ((##fx= _g121546_ 3) + (apply gx#core-apply-user-expander__% _g121547_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g121510_)))))) + _g121547_)))))) (define gx#core-apply-user-macro - (lambda (_%K119298%_ - _%stx119299%_ - _%ctx119300%_ - _%phi119301%_ - _%method119302%_) - (let ((_%mark119304%_ + (lambda (_%K119335%_ + _%stx119336%_ + _%ctx119337%_ + _%phi119338%_ + _%method119339%_) + (let ((_%mark119341%_ (##structure gx#expander-mark::t '#f - _%ctx119300%_ - _%phi119301%_ - _%stx119299%_))) + _%ctx119337%_ + _%phi119338%_ + _%stx119336%_))) (__call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _%K119298%_ - (gx#stx-apply-mark _%stx119299%_ _%mark119304%_) - _%method119302%_) - _%mark119304%_)) + _%K119335%_ + (gx#stx-apply-mark _%stx119336%_ _%mark119341%_) + _%method119339%_) + _%mark119341%_)) gx#current-expander-marks - (cons _%mark119304%_ (gx#current-expander-marks)))))) + (cons _%mark119341%_ (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 (_%stx119146%_ _%phi119147%_ _%ctx119148%_) - (let _%lp119150%_ ((_%bind119152%_ + (lambda (_%stx119183%_ _%phi119184%_ _%ctx119185%_) + (let _%lp119187%_ ((_%bind119189%_ (gx#core-resolve-identifier__% - _%stx119146%_ - _%phi119147%_ - _%ctx119148%_))) + _%stx119183%_ + _%phi119184%_ + _%ctx119185%_))) (if (##structure-direct-instance-of? - _%bind119152%_ + _%bind119189%_ 'gx#import-binding::t) - (_%lp119150%_ - (##unchecked-structure-ref _%bind119152%_ '4 '#f '#f)) + (_%lp119187%_ + (##unchecked-structure-ref _%bind119189%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%bind119152%_ + _%bind119189%_ 'gx#alias-binding::t) - (_%lp119150%_ + (_%lp119187%_ (gx#core-resolve-identifier__% - (##unchecked-structure-ref _%bind119152%_ '4 '#f '#f) - _%phi119147%_ - _%ctx119148%_)) - _%bind119152%_))))) + (##unchecked-structure-ref _%bind119189%_ '4 '#f '#f) + _%phi119184%_ + _%ctx119185%_)) + _%bind119189%_))))) (define gx#resolve-identifier__0 - (lambda (_%stx119160%_) - (let* ((_%phi119162%_ (gx#current-expander-phi)) - (_%ctx119164%_ (gx#current-expander-context))) + (lambda (_%stx119197%_) + (let* ((_%phi119199%_ (gx#current-expander-phi)) + (_%ctx119201%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx119160%_ - _%phi119162%_ - _%ctx119164%_)))) + _%stx119197%_ + _%phi119199%_ + _%ctx119201%_)))) (define gx#resolve-identifier__1 - (lambda (_%stx119166%_ _%phi119167%_) - (let ((_%ctx119169%_ (gx#current-expander-context))) + (lambda (_%stx119203%_ _%phi119204%_) + (let ((_%ctx119206%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx119166%_ - _%phi119167%_ - _%ctx119169%_)))) + _%stx119203%_ + _%phi119204%_ + _%ctx119206%_)))) (define gx#resolve-identifier - (lambda _g121512_ - (let ((_g121511_ (##length _g121512_))) - (cond ((##fx= _g121511_ 1) - (apply gx#resolve-identifier__0 _g121512_)) - ((##fx= _g121511_ 2) - (apply gx#resolve-identifier__1 _g121512_)) - ((##fx= _g121511_ 3) - (apply gx#resolve-identifier__% _g121512_)) + (lambda _g121549_ + (let ((_g121548_ (##length _g121549_))) + (cond ((##fx= _g121548_ 1) + (apply gx#resolve-identifier__0 _g121549_)) + ((##fx= _g121548_ 2) + (apply gx#resolve-identifier__1 _g121549_)) + ((##fx= _g121548_ 3) + (apply gx#resolve-identifier__% _g121549_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g121512_)))))) + _g121549_)))))) (define gx#bind-identifier!__% - (lambda (_%stx119101%_ - _%val119102%_ - _%rebind?119103%_ - _%phi119104%_ - _%ctx119105%_) - (let ((_%rebind?119110%_ - (if (not _%rebind?119103%_) + (lambda (_%stx119138%_ + _%val119139%_ + _%rebind?119140%_ + _%phi119141%_ + _%ctx119142%_) + (let ((_%rebind?119147%_ + (if (not _%rebind?119140%_) gx#core-context-rebind? - (if (procedure? _%rebind?119103%_) - _%rebind?119103%_ + (if (procedure? _%rebind?119140%_) + _%rebind?119140%_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _%stx119101%_) - _%val119102%_ - _%rebind?119110%_ - _%phi119104%_ - _%ctx119105%_)))) + (gx#core-identifier-key _%stx119138%_) + _%val119139%_ + _%rebind?119147%_ + _%phi119141%_ + _%ctx119142%_)))) (define gx#bind-identifier!__0 - (lambda (_%stx119115%_ _%val119116%_) - (let* ((_%rebind?119118%_ '#f) - (_%phi119120%_ (gx#current-expander-phi)) - (_%ctx119122%_ (gx#current-expander-context))) + (lambda (_%stx119152%_ _%val119153%_) + (let* ((_%rebind?119155%_ '#f) + (_%phi119157%_ (gx#current-expander-phi)) + (_%ctx119159%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx119115%_ - _%val119116%_ - _%rebind?119118%_ - _%phi119120%_ - _%ctx119122%_)))) + _%stx119152%_ + _%val119153%_ + _%rebind?119155%_ + _%phi119157%_ + _%ctx119159%_)))) (define gx#bind-identifier!__1 - (lambda (_%stx119124%_ _%val119125%_ _%rebind?119126%_) - (let* ((_%phi119128%_ (gx#current-expander-phi)) - (_%ctx119130%_ (gx#current-expander-context))) + (lambda (_%stx119161%_ _%val119162%_ _%rebind?119163%_) + (let* ((_%phi119165%_ (gx#current-expander-phi)) + (_%ctx119167%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx119124%_ - _%val119125%_ - _%rebind?119126%_ - _%phi119128%_ - _%ctx119130%_)))) + _%stx119161%_ + _%val119162%_ + _%rebind?119163%_ + _%phi119165%_ + _%ctx119167%_)))) (define gx#bind-identifier!__2 - (lambda (_%stx119132%_ _%val119133%_ _%rebind?119134%_ _%phi119135%_) - (let ((_%ctx119137%_ (gx#current-expander-context))) + (lambda (_%stx119169%_ _%val119170%_ _%rebind?119171%_ _%phi119172%_) + (let ((_%ctx119174%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx119132%_ - _%val119133%_ - _%rebind?119134%_ - _%phi119135%_ - _%ctx119137%_)))) + _%stx119169%_ + _%val119170%_ + _%rebind?119171%_ + _%phi119172%_ + _%ctx119174%_)))) (define gx#bind-identifier! - (lambda _g121514_ - (let ((_g121513_ (##length _g121514_))) - (cond ((##fx= _g121513_ 2) (apply gx#bind-identifier!__0 _g121514_)) - ((##fx= _g121513_ 3) (apply gx#bind-identifier!__1 _g121514_)) - ((##fx= _g121513_ 4) (apply gx#bind-identifier!__2 _g121514_)) - ((##fx= _g121513_ 5) (apply gx#bind-identifier!__% _g121514_)) + (lambda _g121551_ + (let ((_g121550_ (##length _g121551_))) + (cond ((##fx= _g121550_ 2) (apply gx#bind-identifier!__0 _g121551_)) + ((##fx= _g121550_ 3) (apply gx#bind-identifier!__1 _g121551_)) + ((##fx= _g121550_ 4) (apply gx#bind-identifier!__2 _g121551_)) + ((##fx= _g121550_ 5) (apply gx#bind-identifier!__% _g121551_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g121514_)))))) + _g121551_)))))) (define gx#core-resolve-identifier__% - (lambda (_%stx119067%_ _%phi119068%_ _%ctx119069%_) - (let _%lp119071%_ ((_%e119073%_ _%stx119067%_) - (_%marks119074%_ (gx#current-expander-marks))) - (if (symbol? _%e119073%_) + (lambda (_%stx119104%_ _%phi119105%_ _%ctx119106%_) + (let _%lp119108%_ ((_%e119110%_ _%stx119104%_) + (_%marks119111%_ (gx#current-expander-marks))) + (if (symbol? _%e119110%_) (gx#core-resolve-binding - _%e119073%_ - _%phi119068%_ - _%phi119068%_ - _%ctx119069%_ - (reverse _%marks119074%_)) - (if (gx#identifier-quote? _%e119073%_) + _%e119110%_ + _%phi119105%_ + _%phi119105%_ + _%ctx119106%_ + (reverse _%marks119111%_)) + (if (gx#identifier-quote? _%e119110%_) (gx#core-resolve-binding - (##unchecked-structure-ref _%e119073%_ '1 '#f '#f) - _%phi119068%_ + (##unchecked-structure-ref _%e119110%_ '1 '#f '#f) + _%phi119105%_ '0 - (##unchecked-structure-ref _%e119073%_ '3 '#f '#f) - (##unchecked-structure-ref _%e119073%_ '4 '#f '#f)) + (##unchecked-structure-ref _%e119110%_ '3 '#f '#f) + (##unchecked-structure-ref _%e119110%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%e119073%_ + _%e119110%_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _%e119073%_ '1 '#f '#f) - _%phi119068%_ - _%phi119068%_ - _%ctx119069%_ + (##unchecked-structure-ref _%e119110%_ '1 '#f '#f) + _%phi119105%_ + _%phi119105%_ + _%ctx119106%_ (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e119073%_ '3 '#f '#f) - _%marks119074%_)) + (##unchecked-structure-ref _%e119110%_ '3 '#f '#f) + _%marks119111%_)) (if (##structure-direct-instance-of? - _%e119073%_ + _%e119110%_ 'gx#syntax-wrap::t) - (_%lp119071%_ - (##unchecked-structure-ref _%e119073%_ '1 '#f '#f) + (_%lp119108%_ + (##unchecked-structure-ref _%e119110%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e119073%_ '3 '#f '#f) - _%marks119074%_)) + (##unchecked-structure-ref _%e119110%_ '3 '#f '#f) + _%marks119111%_)) (if (##structure-instance-of? - _%e119073%_ + _%e119110%_ 'gerbil#AST::t) - (_%lp119071%_ + (_%lp119108%_ (##unchecked-structure-ref - _%e119073%_ + _%e119110%_ '1 '#f '#f) - _%marks119074%_) + _%marks119111%_) (gx#raise-syntax-error '#f '"Bad identifier" - _%stx119067%_))))))))) + _%stx119104%_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_%stx119085%_) - (let* ((_%phi119087%_ (gx#current-expander-phi)) - (_%ctx119089%_ (gx#current-expander-context))) + (lambda (_%stx119122%_) + (let* ((_%phi119124%_ (gx#current-expander-phi)) + (_%ctx119126%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx119085%_ - _%phi119087%_ - _%ctx119089%_)))) + _%stx119122%_ + _%phi119124%_ + _%ctx119126%_)))) (define gx#core-resolve-identifier__1 - (lambda (_%stx119091%_ _%phi119092%_) - (let ((_%ctx119094%_ (gx#current-expander-context))) + (lambda (_%stx119128%_ _%phi119129%_) + (let ((_%ctx119131%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx119091%_ - _%phi119092%_ - _%ctx119094%_)))) + _%stx119128%_ + _%phi119129%_ + _%ctx119131%_)))) (define gx#core-resolve-identifier - (lambda _g121516_ - (let ((_g121515_ (##length _g121516_))) - (cond ((##fx= _g121515_ 1) - (apply gx#core-resolve-identifier__0 _g121516_)) - ((##fx= _g121515_ 2) - (apply gx#core-resolve-identifier__1 _g121516_)) - ((##fx= _g121515_ 3) - (apply gx#core-resolve-identifier__% _g121516_)) + (lambda _g121553_ + (let ((_g121552_ (##length _g121553_))) + (cond ((##fx= _g121552_ 1) + (apply gx#core-resolve-identifier__0 _g121553_)) + ((##fx= _g121552_ 2) + (apply gx#core-resolve-identifier__1 _g121553_)) + ((##fx= _g121552_ 3) + (apply gx#core-resolve-identifier__% _g121553_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g121516_)))))) + _g121553_)))))) (define gx#core-resolve-binding - (lambda (_%id118977%_ - _%phi118978%_ - _%src-phi118979%_ - _%ctx118980%_ - _%marks118981%_) - (letrec ((_%resolve118983%_ - (lambda (_%ctx119051%_ _%src-phi119052%_ _%key119053%_) - (let _%lp119055%_ ((_%ctx119057%_ + (lambda (_%id119014%_ + _%phi119015%_ + _%src-phi119016%_ + _%ctx119017%_ + _%marks119018%_) + (letrec ((_%resolve119020%_ + (lambda (_%ctx119088%_ _%src-phi119089%_ _%key119090%_) + (let _%lp119092%_ ((_%ctx119094%_ (gx#core-context-shift - _%ctx119051%_ - _%phi118978%_)) - (_%dphi119058%_ - (fx- _%phi118978%_ _%src-phi119052%_))) - (let ((_%$e119060%_ + _%ctx119088%_ + _%phi119015%_)) + (_%dphi119095%_ + (fx- _%phi119015%_ _%src-phi119089%_))) + (let ((_%$e119097%_ (gx#core-context-resolve - _%ctx119057%_ - _%key119053%_))) - (if _%$e119060%_ - _%$e119060%_ - (if (fxzero? _%dphi119058%_) + _%ctx119094%_ + _%key119090%_))) + (if _%$e119097%_ + _%$e119097%_ + (if (fxzero? _%dphi119095%_) '#f - (if (fxpositive? _%dphi119058%_) - (_%lp119055%_ - (gx#core-context-shift _%ctx119057%_ '-1) - (##fx- _%dphi119058%_ '1)) - (_%lp119055%_ - (gx#core-context-shift _%ctx119057%_ '1) - (##fx+ _%dphi119058%_ '1)))))))))) - (let _%lp118985%_ ((_%ctx118987%_ _%ctx118980%_) - (_%src-phi118988%_ _%src-phi118979%_) - (_%rest118989%_ _%marks118981%_)) - (let* ((_%rest118990118998%_ _%rest118989%_) - (_%else118992119006%_ + (if (fxpositive? _%dphi119095%_) + (_%lp119092%_ + (gx#core-context-shift _%ctx119094%_ '-1) + (##fx- _%dphi119095%_ '1)) + (_%lp119092%_ + (gx#core-context-shift _%ctx119094%_ '1) + (##fx+ _%dphi119095%_ '1)))))))))) + (let _%lp119022%_ ((_%ctx119024%_ _%ctx119017%_) + (_%src-phi119025%_ _%src-phi119016%_) + (_%rest119026%_ _%marks119018%_)) + (let* ((_%rest119027119035%_ _%rest119026%_) + (_%else119029119043%_ (lambda () - (_%resolve118983%_ - _%ctx118987%_ - _%src-phi118988%_ - _%id118977%_))) - (_%K118994119039%_ - (lambda (_%rest119009%_ _%hd119010%_) - (let* ((_%hd119011119017%_ _%hd119010%_) - (_%E119013119021%_ + (_%resolve119020%_ + _%ctx119024%_ + _%src-phi119025%_ + _%id119014%_))) + (_%K119031119076%_ + (lambda (_%rest119046%_ _%hd119047%_) + (let* ((_%hd119048119054%_ _%hd119047%_) + (_%E119050119058%_ (lambda () (error '"No clause matching" - _%hd119011119017%_ + _%hd119048119054%_ '((expander-mark subst))) '#!void)) - (_%K119014119031%_ - (lambda (_%subst119024%_) - (let ((_%$e119028%_ - (let ((_%key119026%_ - (if _%subst119024%_ + (_%K119051119068%_ + (lambda (_%subst119061%_) + (let ((_%$e119065%_ + (let ((_%key119063%_ + (if _%subst119061%_ (hash-get - _%subst119024%_ - _%id118977%_) + _%subst119061%_ + _%id119014%_) '#f))) - (if _%key119026%_ - (_%resolve118983%_ - _%ctx118987%_ - _%src-phi118988%_ - _%key119026%_) + (if _%key119063%_ + (_%resolve119020%_ + _%ctx119024%_ + _%src-phi119025%_ + _%key119063%_) '#f)))) - (if _%$e119028%_ - _%$e119028%_ - (_%lp118985%_ + (if _%$e119065%_ + _%$e119065%_ + (_%lp119022%_ (##unchecked-structure-ref - _%hd119010%_ + _%hd119047%_ '2 '#f '#f) (##unchecked-structure-ref - _%hd119010%_ + _%hd119047%_ '3 '#f '#f) - _%rest119009%_)))))) + _%rest119046%_)))))) (if (##structure-instance-of? - _%hd119011119017%_ + _%hd119048119054%_ 'gx#expander-mark::t) - (let* ((_%e119015119034%_ + (let* ((_%e119052119071%_ (##unchecked-structure-ref - _%hd119011119017%_ + _%hd119048119054%_ '1 '#f '#f)) - (_%subst119037%_ _%e119015119034%_)) - (_%K119014119031%_ _%subst119037%_)) - (_%E119013119021%_)))))) - (if (pair? _%rest118990118998%_) - (let ((_%hd118995119042%_ (##car _%rest118990118998%_)) - (_%tl118996119044%_ (##cdr _%rest118990118998%_))) - (let* ((_%hd119047%_ _%hd118995119042%_) - (_%rest119049%_ _%tl118996119044%_)) - (_%K118994119039%_ _%rest119049%_ _%hd119047%_))) - (_%else118992119006%_))))))) + (_%subst119074%_ _%e119052119071%_)) + (_%K119051119068%_ _%subst119074%_)) + (_%E119050119058%_)))))) + (if (pair? _%rest119027119035%_) + (let ((_%hd119032119079%_ (##car _%rest119027119035%_)) + (_%tl119033119081%_ (##cdr _%rest119027119035%_))) + (let* ((_%hd119084%_ _%hd119032119079%_) + (_%rest119086%_ _%tl119033119081%_)) + (_%K119031119076%_ _%rest119086%_ _%hd119084%_))) + (_%else119029119043%_))))))) (define gx#core-bind!__% - (lambda (_%key118847%_ - _%val118848%_ - _%rebind?118849%_ - _%phi118850%_ - _%ctx118851%_) - (letrec ((_%update-binding118853%_ - (lambda (_%xval118926%_) - (if (or (_%rebind?118849%_ - _%ctx118851%_ - _%xval118926%_ - _%val118848%_) + (lambda (_%key118884%_ + _%val118885%_ + _%rebind?118886%_ + _%phi118887%_ + _%ctx118888%_) + (letrec ((_%update-binding118890%_ + (lambda (_%xval118963%_) + (if (or (_%rebind?118886%_ + _%ctx118888%_ + _%xval118963%_ + _%val118885%_) (and (##structure-direct-instance-of? - _%xval118926%_ + _%xval118963%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%xval118926%_ + _%xval118963%_ '6 '#f '#f) (and (##structure-instance-of? - _%val118848%_ + _%val118885%_ 'gx#binding::t) (not (##structure-direct-instance-of? - _%val118848%_ + _%val118885%_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _%xval118926%_ + _%xval118963%_ 'gx#extern-binding::t) (##structure-instance-of? - _%val118848%_ + _%val118885%_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _%val118848%_ + _%val118885%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval118926%_ + _%xval118963%_ '1 '#f '#f)))) - _%val118848%_ + _%val118885%_ (if (and (##structure-direct-instance-of? - _%val118848%_ + _%val118885%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%val118848%_ + _%val118885%_ '6 '#f '#f) (and (##structure-instance-of? - _%xval118926%_ + _%xval118963%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%val118848%_ + _%val118885%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval118926%_ + _%xval118963%_ '1 '#f '#f))))) - _%xval118926%_ + _%xval118963%_ (if (and (##structure-direct-instance-of? - _%val118848%_ + _%val118885%_ 'gx#import-binding::t) (##structure-instance-of? - _%xval118926%_ + _%xval118963%_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _%key118847%_ + _%key118884%_ (cons (##unchecked-structure-ref - _%val118848%_ + _%val118885%_ '1 '#f '#f) (cons (##structure-ref (##unchecked-structure-ref - _%val118848%_ + _%val118885%_ '5 '#f '#f) @@ -2796,175 +2796,175 @@ '#f) '())) (cons (##unchecked-structure-ref - _%xval118926%_ + _%xval118963%_ '1 '#f '#f) (cons (if (##structure-direct-instance-of? - _%xval118926%_ + _%xval118963%_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _%xval118926%_ + _%xval118963%_ '5 '#f '#f) '1 gx#expander-context::t '#f) - _%xval118926%_) + _%xval118963%_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _%key118847%_ - _%val118848%_ - _%xval118926%_)))))) - (_%gensubst118854%_ - (lambda (_%subst118921%_ _%id118922%_) - (let ((_%eid118924%_ - (gensym (if (uninterned-symbol? _%id118922%_) + _%key118884%_ + _%val118885%_ + _%xval118963%_)))))) + (_%gensubst118891%_ + (lambda (_%subst118958%_ _%id118959%_) + (let ((_%eid118961%_ + (gensym (if (uninterned-symbol? _%id118959%_) '% - _%id118922%_)))) - (hash-put! _%subst118921%_ _%id118922%_ _%eid118924%_) - _%eid118924%_))) - (_%subst!118855%_ - (lambda (_%key118857%_) - (let* ((_%key118858118866%_ _%key118857%_) - (_%else118860118874%_ (lambda () _%key118857%_)) - (_%K118862118909%_ - (lambda (_%mark118877%_ _%id118878%_) - (let* ((_%mark118879118885%_ _%mark118877%_) - (_%E118881118889%_ + _%id118959%_)))) + (hash-put! _%subst118958%_ _%id118959%_ _%eid118961%_) + _%eid118961%_))) + (_%subst!118892%_ + (lambda (_%key118894%_) + (let* ((_%key118895118903%_ _%key118894%_) + (_%else118897118911%_ (lambda () _%key118894%_)) + (_%K118899118946%_ + (lambda (_%mark118914%_ _%id118915%_) + (let* ((_%mark118916118922%_ _%mark118914%_) + (_%E118918118926%_ (lambda () (error '"No clause matching" - _%mark118879118885%_ + _%mark118916118922%_ '((expander-mark subst))) '#!void)) - (_%K118882118901%_ - (lambda (_%subst118892%_) - (if (not _%subst118892%_) - (let ((_%subst118895%_ + (_%K118919118938%_ + (lambda (_%subst118929%_) + (if (not _%subst118929%_) + (let ((_%subst118932%_ (make-hash-table-eq))) (##unchecked-structure-set! - _%mark118877%_ - _%subst118895%_ + _%mark118914%_ + _%subst118932%_ '1 '#f '#f) - (_%gensubst118854%_ - _%subst118895%_ - _%id118878%_)) - (let ((_%$e118897%_ + (_%gensubst118891%_ + _%subst118932%_ + _%id118915%_)) + (let ((_%$e118934%_ (hash-get - _%subst118892%_ - _%id118878%_))) - (if _%$e118897%_ - _%$e118897%_ - (_%gensubst118854%_ - _%subst118892%_ - _%id118878%_))))))) + _%subst118929%_ + _%id118915%_))) + (if _%$e118934%_ + _%$e118934%_ + (_%gensubst118891%_ + _%subst118929%_ + _%id118915%_))))))) (if (##structure-instance-of? - _%mark118879118885%_ + _%mark118916118922%_ 'gx#expander-mark::t) - (let* ((_%e118883118904%_ + (let* ((_%e118920118941%_ (##unchecked-structure-ref - _%mark118879118885%_ + _%mark118916118922%_ '1 '#f '#f)) - (_%subst118907%_ _%e118883118904%_)) - (_%K118882118901%_ _%subst118907%_)) - (_%E118881118889%_)))))) - (if (pair? _%key118858118866%_) - (let ((_%hd118863118912%_ - (##car _%key118858118866%_)) - (_%tl118864118914%_ - (##cdr _%key118858118866%_))) - (let* ((_%id118917%_ _%hd118863118912%_) - (_%mark118919%_ _%tl118864118914%_)) - (_%K118862118909%_ _%mark118919%_ _%id118917%_))) - (_%else118860118874%_)))))) + (_%subst118944%_ _%e118920118941%_)) + (_%K118919118938%_ _%subst118944%_)) + (_%E118918118926%_)))))) + (if (pair? _%key118895118903%_) + (let ((_%hd118900118949%_ + (##car _%key118895118903%_)) + (_%tl118901118951%_ + (##cdr _%key118895118903%_))) + (let* ((_%id118954%_ _%hd118900118949%_) + (_%mark118956%_ _%tl118901118951%_)) + (_%K118899118946%_ _%mark118956%_ _%id118954%_))) + (_%else118897118911%_)))))) (gx#core-context-bind! - (gx#core-context-shift _%ctx118851%_ _%phi118850%_) - (_%subst!118855%_ _%key118847%_) - _%val118848%_ - _%update-binding118853%_)))) + (gx#core-context-shift _%ctx118888%_ _%phi118887%_) + (_%subst!118892%_ _%key118884%_) + _%val118885%_ + _%update-binding118890%_)))) (define gx#core-bind!__0 - (lambda (_%key118947%_ _%val118948%_) - (let* ((_%rebind?118950%_ false) - (_%phi118952%_ (gx#current-expander-phi)) - (_%ctx118954%_ (gx#current-expander-context))) + (lambda (_%key118984%_ _%val118985%_) + (let* ((_%rebind?118987%_ false) + (_%phi118989%_ (gx#current-expander-phi)) + (_%ctx118991%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key118947%_ - _%val118948%_ - _%rebind?118950%_ - _%phi118952%_ - _%ctx118954%_)))) + _%key118984%_ + _%val118985%_ + _%rebind?118987%_ + _%phi118989%_ + _%ctx118991%_)))) (define gx#core-bind!__1 - (lambda (_%key118956%_ _%val118957%_ _%rebind?118958%_) - (let* ((_%phi118960%_ (gx#current-expander-phi)) - (_%ctx118962%_ (gx#current-expander-context))) + (lambda (_%key118993%_ _%val118994%_ _%rebind?118995%_) + (let* ((_%phi118997%_ (gx#current-expander-phi)) + (_%ctx118999%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key118956%_ - _%val118957%_ - _%rebind?118958%_ - _%phi118960%_ - _%ctx118962%_)))) + _%key118993%_ + _%val118994%_ + _%rebind?118995%_ + _%phi118997%_ + _%ctx118999%_)))) (define gx#core-bind!__2 - (lambda (_%key118964%_ _%val118965%_ _%rebind?118966%_ _%phi118967%_) - (let ((_%ctx118969%_ (gx#current-expander-context))) + (lambda (_%key119001%_ _%val119002%_ _%rebind?119003%_ _%phi119004%_) + (let ((_%ctx119006%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key118964%_ - _%val118965%_ - _%rebind?118966%_ - _%phi118967%_ - _%ctx118969%_)))) + _%key119001%_ + _%val119002%_ + _%rebind?119003%_ + _%phi119004%_ + _%ctx119006%_)))) (define gx#core-bind! - (lambda _g121518_ - (let ((_g121517_ (##length _g121518_))) - (cond ((##fx= _g121517_ 2) (apply gx#core-bind!__0 _g121518_)) - ((##fx= _g121517_ 3) (apply gx#core-bind!__1 _g121518_)) - ((##fx= _g121517_ 4) (apply gx#core-bind!__2 _g121518_)) - ((##fx= _g121517_ 5) (apply gx#core-bind!__% _g121518_)) + (lambda _g121555_ + (let ((_g121554_ (##length _g121555_))) + (cond ((##fx= _g121554_ 2) (apply gx#core-bind!__0 _g121555_)) + ((##fx= _g121554_ 3) (apply gx#core-bind!__1 _g121555_)) + ((##fx= _g121554_ 4) (apply gx#core-bind!__2 _g121555_)) + ((##fx= _g121554_ 5) (apply gx#core-bind!__% _g121555_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g121518_)))))) + _g121555_)))))) (define gx#core-identifier-key - (lambda (_%stx118778%_) - (if (symbol? _%stx118778%_) - (let* ((_%g118780118788%_ (gx#current-expander-marks)) - (_%else118782118796%_ (lambda () _%stx118778%_)) - (_%K118784118801%_ - (lambda (_%hd118799%_) (cons _%stx118778%_ _%hd118799%_)))) - (if (pair? _%g118780118788%_) - (let* ((_%hd118785118804%_ (##car _%g118780118788%_)) - (_%hd118807%_ _%hd118785118804%_)) - (_%K118784118801%_ _%hd118807%_)) - (_%else118782118796%_))) - (if (gx#identifier? _%stx118778%_) - (let* ((_%id118810%_ (gx#syntax-local-unwrap _%stx118778%_)) - (_%eid118812%_ (gx#stx-e _%id118810%_)) - (_%marks118814%_ - (gx#stx-identifier-marks* _%id118810%_)) - (_%marks118816118824%_ _%marks118814%_) - (_%else118818118832%_ (lambda () _%eid118812%_)) - (_%K118820118837%_ - (lambda (_%hd118835%_) - (cons _%eid118812%_ _%hd118835%_)))) - (if (pair? _%marks118816118824%_) - (let* ((_%hd118821118840%_ (##car _%marks118816118824%_)) - (_%hd118843%_ _%hd118821118840%_)) - (_%K118820118837%_ _%hd118843%_)) - (_%else118818118832%_))) - (gx#raise-syntax-error '#f '"Bad identifier" _%stx118778%_))))) + (lambda (_%stx118815%_) + (if (symbol? _%stx118815%_) + (let* ((_%g118817118825%_ (gx#current-expander-marks)) + (_%else118819118833%_ (lambda () _%stx118815%_)) + (_%K118821118838%_ + (lambda (_%hd118836%_) (cons _%stx118815%_ _%hd118836%_)))) + (if (pair? _%g118817118825%_) + (let* ((_%hd118822118841%_ (##car _%g118817118825%_)) + (_%hd118844%_ _%hd118822118841%_)) + (_%K118821118838%_ _%hd118844%_)) + (_%else118819118833%_))) + (if (gx#identifier? _%stx118815%_) + (let* ((_%id118847%_ (gx#syntax-local-unwrap _%stx118815%_)) + (_%eid118849%_ (gx#stx-e _%id118847%_)) + (_%marks118851%_ + (gx#stx-identifier-marks* _%id118847%_)) + (_%marks118853118861%_ _%marks118851%_) + (_%else118855118869%_ (lambda () _%eid118849%_)) + (_%K118857118874%_ + (lambda (_%hd118872%_) + (cons _%eid118849%_ _%hd118872%_)))) + (if (pair? _%marks118853118861%_) + (let* ((_%hd118858118877%_ (##car _%marks118853118861%_)) + (_%hd118880%_ _%hd118858118877%_)) + (_%K118857118874%_ _%hd118880%_)) + (_%else118855118869%_))) + (gx#raise-syntax-error '#f '"Bad identifier" _%stx118815%_))))) (define gx#&phi-context? gx#phi-context?) (define gx#core-context-shift - (lambda (_%ctx118717%_ _%phi118718%_) - (letrec ((_%make-phi118720%_ - (lambda (_%super118776%_) - (let ((__obj121490 + (lambda (_%ctx118754%_ _%phi118755%_) + (letrec ((_%make-phi118757%_ + (lambda (_%super118813%_) + (let ((__obj121527 (##structure gx#phi-context::t '#f @@ -2973,579 +2973,579 @@ '#f '#f))) (gx#phi-context:::init!__% - __obj121490 + __obj121527 (##gensym 'phi) - _%super118776%_) - __obj121490))) - (_%make-phi/up118721%_ - (lambda (_%ctx118771%_ _%super118772%_) - (let ((_%ctx+1118774%_ - (_%make-phi118720%_ _%super118772%_))) + _%super118813%_) + __obj121527))) + (_%make-phi/up118758%_ + (lambda (_%ctx118808%_ _%super118809%_) + (let ((_%ctx+1118811%_ + (_%make-phi118757%_ _%super118809%_))) (##unchecked-structure-set! - _%ctx118771%_ - _%ctx+1118774%_ + _%ctx118808%_ + _%ctx+1118811%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx+1118774%_ - _%ctx118771%_ + _%ctx+1118811%_ + _%ctx118808%_ '5 '#f '#f) - _%ctx+1118774%_))) - (_%make-phi/down118722%_ - (lambda (_%ctx118766%_ _%super118767%_) - (let ((_%ctx-1118769%_ - (_%make-phi118720%_ _%super118767%_))) + _%ctx+1118811%_))) + (_%make-phi/down118759%_ + (lambda (_%ctx118803%_ _%super118804%_) + (let ((_%ctx-1118806%_ + (_%make-phi118757%_ _%super118804%_))) (##unchecked-structure-set! - _%ctx-1118769%_ - _%ctx118766%_ + _%ctx-1118806%_ + _%ctx118803%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx118766%_ - _%ctx-1118769%_ + _%ctx118803%_ + _%ctx-1118806%_ '5 '#f '#f) - _%ctx-1118769%_))) - (_%shift118723%_ - (lambda (_%ctx118749%_ - _%delta118750%_ - _%make-delta-context118751%_ - _%phi118752%_ - _%K118753%_) - (let ((_%$e118755%_ + _%ctx-1118806%_))) + (_%shift118760%_ + (lambda (_%ctx118786%_ + _%delta118787%_ + _%make-delta-context118788%_ + _%phi118789%_ + _%K118790%_) + (let ((_%$e118792%_ (##unchecked-structure-ref - _%ctx118749%_ + _%ctx118786%_ '3 '#f '#f))) - (if _%$e118755%_ - ((lambda (_%super118758%_) - (let* ((_%super118760%_ - (_%K118753%_ - _%super118758%_ - _%delta118750%_)) - (_%ctx+d118762%_ - (_%make-delta-context118751%_ - _%ctx118749%_ - _%super118760%_))) - (_%K118753%_ - _%ctx+d118762%_ - (fx- _%phi118752%_ _%delta118750%_)))) - _%$e118755%_) - (error '"Bad context" _%ctx118749%_)))))) - (let _%K118725%_ ((_%ctx118727%_ _%ctx118717%_) - (_%phi118728%_ _%phi118718%_)) - (if (fxzero? _%phi118728%_) - _%ctx118727%_ - (if (##structure-instance-of? _%ctx118727%_ 'gx#phi-context::t) - (if (fxpositive? _%phi118728%_) - (let ((_%$e118732%_ + (if _%$e118792%_ + ((lambda (_%super118795%_) + (let* ((_%super118797%_ + (_%K118790%_ + _%super118795%_ + _%delta118787%_)) + (_%ctx+d118799%_ + (_%make-delta-context118788%_ + _%ctx118786%_ + _%super118797%_))) + (_%K118790%_ + _%ctx+d118799%_ + (fx- _%phi118789%_ _%delta118787%_)))) + _%$e118792%_) + (error '"Bad context" _%ctx118786%_)))))) + (let _%K118762%_ ((_%ctx118764%_ _%ctx118754%_) + (_%phi118765%_ _%phi118755%_)) + (if (fxzero? _%phi118765%_) + _%ctx118764%_ + (if (##structure-instance-of? _%ctx118764%_ 'gx#phi-context::t) + (if (fxpositive? _%phi118765%_) + (let ((_%$e118769%_ (##unchecked-structure-ref - _%ctx118727%_ + _%ctx118764%_ '4 '#f '#f))) - (if _%$e118732%_ - ((lambda (_%g118734118736%_) - (_%K118725%_ - _%g118734118736%_ - (##fx- _%phi118728%_ '1))) - _%$e118732%_) - (_%shift118723%_ - _%ctx118727%_ + (if _%$e118769%_ + ((lambda (_%g118771118773%_) + (_%K118762%_ + _%g118771118773%_ + (##fx- _%phi118765%_ '1))) + _%$e118769%_) + (_%shift118760%_ + _%ctx118764%_ '1 - _%make-phi/up118721%_ - _%phi118728%_ - _%K118725%_))) - (let ((_%$e118740%_ + _%make-phi/up118758%_ + _%phi118765%_ + _%K118762%_))) + (let ((_%$e118777%_ (##unchecked-structure-ref - _%ctx118727%_ + _%ctx118764%_ '5 '#f '#f))) - (if _%$e118740%_ - ((lambda (_%g118742118744%_) - (_%K118725%_ - _%g118742118744%_ - (##fx+ _%phi118728%_ '1))) - _%$e118740%_) - (_%shift118723%_ - _%ctx118727%_ + (if _%$e118777%_ + ((lambda (_%g118779118781%_) + (_%K118762%_ + _%g118779118781%_ + (##fx+ _%phi118765%_ '1))) + _%$e118777%_) + (_%shift118760%_ + _%ctx118764%_ '-1 - _%make-phi/down118722%_ - _%phi118728%_ - _%K118725%_)))) - _%ctx118727%_)))))) + _%make-phi/down118759%_ + _%phi118765%_ + _%K118762%_)))) + _%ctx118764%_)))))) (define gx#core-context-get - (lambda (_%ctx118714%_ _%key118715%_) + (lambda (_%ctx118751%_ _%key118752%_) (hash-get - (##unchecked-structure-ref _%ctx118714%_ '2 '#f '#f) - _%key118715%_))) + (##unchecked-structure-ref _%ctx118751%_ '2 '#f '#f) + _%key118752%_))) (define gx#core-context-put! - (lambda (_%ctx118710%_ _%key118711%_ _%val118712%_) + (lambda (_%ctx118747%_ _%key118748%_ _%val118749%_) (hash-put! - (##unchecked-structure-ref _%ctx118710%_ '2 '#f '#f) - _%key118711%_ - _%val118712%_))) + (##unchecked-structure-ref _%ctx118747%_ '2 '#f '#f) + _%key118748%_ + _%val118749%_))) (define gx#core-context-resolve - (lambda (_%ctx118696%_ _%key118697%_) - (let _%lp118699%_ ((_%ctx118701%_ _%ctx118696%_)) - (let ((_%$e118703%_ - (gx#core-context-get _%ctx118701%_ _%key118697%_))) - (if _%$e118703%_ - _%$e118703%_ - (let ((_%$e118706%_ + (lambda (_%ctx118733%_ _%key118734%_) + (let _%lp118736%_ ((_%ctx118738%_ _%ctx118733%_)) + (let ((_%$e118740%_ + (gx#core-context-get _%ctx118738%_ _%key118734%_))) + (if _%$e118740%_ + _%$e118740%_ + (let ((_%$e118743%_ (if (##structure-instance-of? - _%ctx118701%_ + _%ctx118738%_ 'gx#phi-context::t) - (##unchecked-structure-ref _%ctx118701%_ '3 '#f '#f) + (##unchecked-structure-ref _%ctx118738%_ '3 '#f '#f) '#f))) - (if _%$e118706%_ (_%lp118699%_ _%$e118706%_) '#f))))))) + (if _%$e118743%_ (_%lp118736%_ _%$e118743%_) '#f))))))) (define gx#core-context-bind! - (lambda (_%ctx118685%_ _%key118686%_ _%val118687%_ _%rebind118688%_) - (let ((_%$e118690%_ (gx#core-context-get _%ctx118685%_ _%key118686%_))) - (if _%$e118690%_ - ((lambda (_%xval118693%_) + (lambda (_%ctx118722%_ _%key118723%_ _%val118724%_ _%rebind118725%_) + (let ((_%$e118727%_ (gx#core-context-get _%ctx118722%_ _%key118723%_))) + (if _%$e118727%_ + ((lambda (_%xval118730%_) (gx#core-context-put! - _%ctx118685%_ - _%key118686%_ - (_%rebind118688%_ _%xval118693%_))) - _%$e118690%_) + _%ctx118722%_ + _%key118723%_ + (_%rebind118725%_ _%xval118730%_))) + _%$e118727%_) (gx#core-context-put! - _%ctx118685%_ - _%key118686%_ - _%val118687%_))))) + _%ctx118722%_ + _%key118723%_ + _%val118724%_))))) (define gx#core-context-top__% - (lambda (_%ctx118660%_ _%stop?118661%_) - (let _%lp118663%_ ((_%ctx118665%_ _%ctx118660%_)) - (if (_%stop?118661%_ _%ctx118665%_) - _%ctx118665%_ - (if (##structure-instance-of? _%ctx118665%_ 'gx#phi-context::t) - (_%lp118663%_ - (##unchecked-structure-ref _%ctx118665%_ '3 '#f '#f)) + (lambda (_%ctx118697%_ _%stop?118698%_) + (let _%lp118700%_ ((_%ctx118702%_ _%ctx118697%_)) + (if (_%stop?118698%_ _%ctx118702%_) + _%ctx118702%_ + (if (##structure-instance-of? _%ctx118702%_ 'gx#phi-context::t) + (_%lp118700%_ + (##unchecked-structure-ref _%ctx118702%_ '3 '#f '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_%ctx118674%_ (gx#current-expander-context)) - (_%stop?118676%_ gx#top-context?)) - (gx#core-context-top__% _%ctx118674%_ _%stop?118676%_)))) + (let* ((_%ctx118711%_ (gx#current-expander-context)) + (_%stop?118713%_ gx#top-context?)) + (gx#core-context-top__% _%ctx118711%_ _%stop?118713%_)))) (define gx#core-context-top__1 - (lambda (_%ctx118678%_) - (let ((_%stop?118680%_ gx#top-context?)) - (gx#core-context-top__% _%ctx118678%_ _%stop?118680%_)))) + (lambda (_%ctx118715%_) + (let ((_%stop?118717%_ gx#top-context?)) + (gx#core-context-top__% _%ctx118715%_ _%stop?118717%_)))) (define gx#core-context-top - (lambda _g121520_ - (let ((_g121519_ (##length _g121520_))) - (cond ((##fx= _g121519_ 0) (apply gx#core-context-top__0 _g121520_)) - ((##fx= _g121519_ 1) (apply gx#core-context-top__1 _g121520_)) - ((##fx= _g121519_ 2) (apply gx#core-context-top__% _g121520_)) + (lambda _g121557_ + (let ((_g121556_ (##length _g121557_))) + (cond ((##fx= _g121556_ 0) (apply gx#core-context-top__0 _g121557_)) + ((##fx= _g121556_ 1) (apply gx#core-context-top__1 _g121557_)) + ((##fx= _g121556_ 2) (apply gx#core-context-top__% _g121557_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g121520_)))))) + _g121557_)))))) (define gx#core-context-root__% - (lambda (_%ctx118645%_) - (let _%lp118647%_ ((_%ctx118649%_ _%ctx118645%_)) - (if (##structure-instance-of? _%ctx118649%_ 'gx#phi-context::t) - (_%lp118647%_ - (##unchecked-structure-ref _%ctx118649%_ '3 '#f '#f)) - _%ctx118649%_)))) + (lambda (_%ctx118682%_) + (let _%lp118684%_ ((_%ctx118686%_ _%ctx118682%_)) + (if (##structure-instance-of? _%ctx118686%_ 'gx#phi-context::t) + (_%lp118684%_ + (##unchecked-structure-ref _%ctx118686%_ '3 '#f '#f)) + _%ctx118686%_)))) (define gx#core-context-root__0 (lambda () - (let ((_%ctx118655%_ (gx#current-expander-context))) - (gx#core-context-root__% _%ctx118655%_)))) + (let ((_%ctx118692%_ (gx#current-expander-context))) + (gx#core-context-root__% _%ctx118692%_)))) (define gx#core-context-root - (lambda _g121522_ - (let ((_g121521_ (##length _g121522_))) - (cond ((##fx= _g121521_ 0) (apply gx#core-context-root__0 _g121522_)) - ((##fx= _g121521_ 1) (apply gx#core-context-root__% _g121522_)) + (lambda _g121559_ + (let ((_g121558_ (##length _g121559_))) + (cond ((##fx= _g121558_ 0) (apply gx#core-context-root__0 _g121559_)) + ((##fx= _g121558_ 1) (apply gx#core-context-root__% _g121559_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g121522_)))))) + _g121559_)))))) (define gx#core-context-rebind?__% - (lambda (_%ctx118627%_ . _%ignore118628%_) - (let ((_%$e118630%_ (gx#current-expander-allow-rebind?))) - (if _%$e118630%_ - _%$e118630%_ - (if (##structure-instance-of? _%ctx118627%_ 'gx#top-context::t) + (lambda (_%ctx118664%_ . _%ignore118665%_) + (let ((_%$e118667%_ (gx#current-expander-allow-rebind?))) + (if _%$e118667%_ + _%$e118667%_ + (if (##structure-instance-of? _%ctx118664%_ 'gx#top-context::t) (if (##structure-instance-of? - _%ctx118627%_ + _%ctx118664%_ 'gx#module-context::t) '#f (not (##structure-instance-of? - _%ctx118627%_ + _%ctx118664%_ 'gx#prelude-context::t))) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_%ctx118637%_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _%ctx118637%_)))) + (let ((_%ctx118674%_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _%ctx118674%_)))) (define gx#core-context-rebind? - (lambda _g121524_ - (let ((_g121523_ (##length _g121524_))) - (cond ((##fx= _g121523_ 0) - (apply gx#core-context-rebind?__0 _g121524_)) - ((##fx= _g121523_ 1) - (apply gx#core-context-rebind?__% _g121524_)) - ((##fx>= _g121523_ 1) - (apply gx#core-context-rebind?__% _g121524_)) + (lambda _g121561_ + (let ((_g121560_ (##length _g121561_))) + (cond ((##fx= _g121560_ 0) + (apply gx#core-context-rebind?__0 _g121561_)) + ((##fx= _g121560_ 1) + (apply gx#core-context-rebind?__% _g121561_)) + ((##fx>= _g121560_ 1) + (apply gx#core-context-rebind?__% _g121561_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g121524_)))))) + _g121561_)))))) (define gx#core-context-namespace__% - (lambda (_%ctx118610%_) - (let ((_%$e118612%_ (gx#core-context-top__1 _%ctx118610%_))) - (if _%$e118612%_ - ((lambda (_%ctx118615%_) + (lambda (_%ctx118647%_) + (let ((_%$e118649%_ (gx#core-context-top__1 _%ctx118647%_))) + (if _%$e118649%_ + ((lambda (_%ctx118652%_) (if (##structure-instance-of? - _%ctx118615%_ + _%ctx118652%_ 'gx#module-context::t) - (##unchecked-structure-ref _%ctx118615%_ '6 '#f '#f) + (##unchecked-structure-ref _%ctx118652%_ '6 '#f '#f) '#f)) - _%$e118612%_) + _%$e118649%_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_%ctx118622%_ (gx#current-expander-context))) - (gx#core-context-namespace__% _%ctx118622%_)))) + (let ((_%ctx118659%_ (gx#current-expander-context))) + (gx#core-context-namespace__% _%ctx118659%_)))) (define gx#core-context-namespace - (lambda _g121526_ - (let ((_g121525_ (##length _g121526_))) - (cond ((##fx= _g121525_ 0) - (apply gx#core-context-namespace__0 _g121526_)) - ((##fx= _g121525_ 1) - (apply gx#core-context-namespace__% _g121526_)) + (lambda _g121563_ + (let ((_g121562_ (##length _g121563_))) + (cond ((##fx= _g121562_ 0) + (apply gx#core-context-namespace__0 _g121563_)) + ((##fx= _g121562_ 1) + (apply gx#core-context-namespace__% _g121563_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g121526_)))))) + _g121563_)))))) (define gx#expander-binding?__% - (lambda (_%bind118596%_ _%is?118597%_) + (lambda (_%bind118633%_ _%is?118634%_) (if (##structure-direct-instance-of? - _%bind118596%_ + _%bind118633%_ 'gx#syntax-binding::t) - (_%is?118597%_ - (##unchecked-structure-ref _%bind118596%_ '4 '#f '#f)) + (_%is?118634%_ + (##unchecked-structure-ref _%bind118633%_ '4 '#f '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_%bind118602%_) - (let ((_%is?118604%_ gx#expander?)) - (gx#expander-binding?__% _%bind118602%_ _%is?118604%_)))) + (lambda (_%bind118639%_) + (let ((_%is?118641%_ gx#expander?)) + (gx#expander-binding?__% _%bind118639%_ _%is?118641%_)))) (define gx#expander-binding? - (lambda _g121528_ - (let ((_g121527_ (##length _g121528_))) - (cond ((##fx= _g121527_ 1) (apply gx#expander-binding?__0 _g121528_)) - ((##fx= _g121527_ 2) (apply gx#expander-binding?__% _g121528_)) + (lambda _g121565_ + (let ((_g121564_ (##length _g121565_))) + (cond ((##fx= _g121564_ 1) (apply gx#expander-binding?__0 _g121565_)) + ((##fx= _g121564_ 2) (apply gx#expander-binding?__% _g121565_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g121528_)))))) + _g121565_)))))) (define gx#core-expander-binding? - (lambda (_%bind118593%_) - (gx#expander-binding?__% _%bind118593%_ gx#core-expander?))) + (lambda (_%bind118630%_) + (gx#expander-binding?__% _%bind118630%_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_%bind118591%_) - (gx#expander-binding?__% _%bind118591%_ gx#expression-form?))) + (lambda (_%bind118628%_) + (gx#expander-binding?__% _%bind118628%_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_%bind118585%_) - (letrec ((_%direct-special-form?118587%_ - (lambda (_%obj118589%_) + (lambda (_%bind118622%_) + (letrec ((_%direct-special-form?118624%_ + (lambda (_%obj118626%_) (##structure-direct-instance-of? - _%obj118589%_ + _%obj118626%_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _%bind118585%_ - _%direct-special-form?118587%_)))) + _%bind118622%_ + _%direct-special-form?118624%_)))) (define gx#special-form-binding? - (lambda (_%bind118583%_) - (gx#expander-binding?__% _%bind118583%_ gx#special-form?))) + (lambda (_%bind118620%_) + (gx#expander-binding?__% _%bind118620%_ gx#special-form?))) (define gx#feature-binding? - (lambda (_%bind118574%_) - (letrec ((_%feature?118576%_ - (lambda (_%e118578%_) - (let ((_%$e118580%_ + (lambda (_%bind118611%_) + (letrec ((_%feature?118613%_ + (lambda (_%e118615%_) + (let ((_%$e118617%_ (##structure-instance-of? - _%e118578%_ + _%e118615%_ 'gx#feature-expander::t))) - (if _%$e118580%_ - _%$e118580%_ + (if _%$e118617%_ + _%$e118617%_ (##structure-instance-of? - _%e118578%_ + _%e118615%_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _%bind118574%_ _%feature?118576%_)))) + (gx#expander-binding?__% _%bind118611%_ _%feature?118613%_)))) (define gx#private-feature-binding? - (lambda (_%bind118572%_) - (gx#expander-binding?__% _%bind118572%_ gx#private-feature-expander?))) + (lambda (_%bind118609%_) + (gx#expander-binding?__% _%bind118609%_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_%id118559%_ _%bound?118560%_) - (if (gx#identifier? _%id118559%_) - (_%bound?118560%_ (gx#resolve-identifier__0 _%id118559%_)) + (lambda (_%id118596%_ _%bound?118597%_) + (if (gx#identifier? _%id118596%_) + (_%bound?118597%_ (gx#resolve-identifier__0 _%id118596%_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_%id118565%_) - (let ((_%bound?118567%_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _%id118565%_ _%bound?118567%_)))) + (lambda (_%id118602%_) + (let ((_%bound?118604%_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _%id118602%_ _%bound?118604%_)))) (define gx#core-bound-identifier? - (lambda _g121530_ - (let ((_g121529_ (##length _g121530_))) - (cond ((##fx= _g121529_ 1) - (apply gx#core-bound-identifier?__0 _g121530_)) - ((##fx= _g121529_ 2) - (apply gx#core-bound-identifier?__% _g121530_)) + (lambda _g121567_ + (let ((_g121566_ (##length _g121567_))) + (cond ((##fx= _g121566_ 1) + (apply gx#core-bound-identifier?__0 _g121567_)) + ((##fx= _g121566_ 2) + (apply gx#core-bound-identifier?__% _g121567_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g121530_)))))) + _g121567_)))))) (define gx#core-identifier=? - (lambda (_%x118549%_ _%y118550%_) - (letrec ((_%y=?118552%_ - (lambda (_%xid118556%_) - ((if (list? _%y118550%_) memq eq?) - _%xid118556%_ - _%y118550%_)))) - (let ((_%bind118554%_ (gx#resolve-identifier__0 _%x118549%_))) - (if (##structure-instance-of? _%bind118554%_ 'gx#binding::t) - (_%y=?118552%_ - (##unchecked-structure-ref _%bind118554%_ '1 '#f '#f)) - (_%y=?118552%_ (gx#stx-e _%x118549%_))))))) + (lambda (_%x118586%_ _%y118587%_) + (letrec ((_%y=?118589%_ + (lambda (_%xid118593%_) + ((if (list? _%y118587%_) memq eq?) + _%xid118593%_ + _%y118587%_)))) + (let ((_%bind118591%_ (gx#resolve-identifier__0 _%x118586%_))) + (if (##structure-instance-of? _%bind118591%_ 'gx#binding::t) + (_%y=?118589%_ + (##unchecked-structure-ref _%bind118591%_ '1 '#f '#f)) + (_%y=?118589%_ (gx#stx-e _%x118586%_))))))) (define gx#core-extern-symbol? - (lambda (_%e118547%_) - (if (interned-symbol? _%e118547%_) - (string-index__0 (symbol->string _%e118547%_) '#\#) + (lambda (_%e118584%_) + (if (interned-symbol? _%e118584%_) + (string-index__0 (symbol->string _%e118584%_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_%stx118500%_ _%src118501%_ _%ctx118502%_ _%marks118503%_) - (if (##structure? _%stx118500%_) - (let ((_%$e118505%_ (gx#sealed-syntax-unwrap _%stx118500%_))) - (if _%$e118505%_ - _%$e118505%_ - (if (gx#identifier? _%stx118500%_) - (let ((_%id118509%_ - (gx#stx-unwrap__% _%stx118500%_ _%marks118503%_))) + (lambda (_%stx118537%_ _%src118538%_ _%ctx118539%_ _%marks118540%_) + (if (##structure? _%stx118537%_) + (let ((_%$e118542%_ (gx#sealed-syntax-unwrap _%stx118537%_))) + (if _%$e118542%_ + _%$e118542%_ + (if (gx#identifier? _%stx118537%_) + (let ((_%id118546%_ + (gx#stx-unwrap__% _%stx118537%_ _%marks118540%_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _%id118509%_ '1 '#f '#f) - (let ((_%$e118511%_ + (##unchecked-structure-ref _%id118546%_ '1 '#f '#f) + (let ((_%$e118548%_ (##unchecked-structure-ref - _%id118509%_ + _%id118546%_ '2 '#f '#f))) - (if _%$e118511%_ _%$e118511%_ _%src118501%_)) - _%ctx118502%_ - (##unchecked-structure-ref _%id118509%_ '3 '#f '#f))) + (if _%$e118548%_ _%$e118548%_ _%src118538%_)) + _%ctx118539%_ + (##unchecked-structure-ref _%id118546%_ '3 '#f '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _%stx118500%_) - (let ((_%$e118515%_ (gx#stx-source _%stx118500%_))) - (if _%$e118515%_ _%$e118515%_ _%src118501%_)) - _%ctx118502%_ - (reverse _%marks118503%_))))) + (gx#stx-e _%stx118537%_) + (let ((_%$e118552%_ (gx#stx-source _%stx118537%_))) + (if _%$e118552%_ _%$e118552%_ _%src118538%_)) + _%ctx118539%_ + (reverse _%marks118540%_))))) (##structure gx#syntax-quote::t - _%stx118500%_ - _%src118501%_ - _%ctx118502%_ - (reverse _%marks118503%_))))) + _%stx118537%_ + _%src118538%_ + _%ctx118539%_ + (reverse _%marks118540%_))))) (define gx#core-quote-syntax__0 - (lambda (_%stx118521%_) - (let* ((_%src118523%_ '#f) - (_%ctx118525%_ (gx#current-expander-context)) - (_%marks118527%_ (gx#current-expander-marks))) + (lambda (_%stx118558%_) + (let* ((_%src118560%_ '#f) + (_%ctx118562%_ (gx#current-expander-context)) + (_%marks118564%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118521%_ - _%src118523%_ - _%ctx118525%_ - _%marks118527%_)))) + _%stx118558%_ + _%src118560%_ + _%ctx118562%_ + _%marks118564%_)))) (define gx#core-quote-syntax__1 - (lambda (_%stx118529%_ _%src118530%_) - (let* ((_%ctx118532%_ (gx#current-expander-context)) - (_%marks118534%_ (gx#current-expander-marks))) + (lambda (_%stx118566%_ _%src118567%_) + (let* ((_%ctx118569%_ (gx#current-expander-context)) + (_%marks118571%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118529%_ - _%src118530%_ - _%ctx118532%_ - _%marks118534%_)))) + _%stx118566%_ + _%src118567%_ + _%ctx118569%_ + _%marks118571%_)))) (define gx#core-quote-syntax__2 - (lambda (_%stx118536%_ _%src118537%_ _%ctx118538%_) - (let ((_%marks118540%_ (gx#current-expander-marks))) + (lambda (_%stx118573%_ _%src118574%_ _%ctx118575%_) + (let ((_%marks118577%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118536%_ - _%src118537%_ - _%ctx118538%_ - _%marks118540%_)))) + _%stx118573%_ + _%src118574%_ + _%ctx118575%_ + _%marks118577%_)))) (define gx#core-quote-syntax - (lambda _g121532_ - (let ((_g121531_ (##length _g121532_))) - (cond ((##fx= _g121531_ 1) (apply gx#core-quote-syntax__0 _g121532_)) - ((##fx= _g121531_ 2) (apply gx#core-quote-syntax__1 _g121532_)) - ((##fx= _g121531_ 3) (apply gx#core-quote-syntax__2 _g121532_)) - ((##fx= _g121531_ 4) (apply gx#core-quote-syntax__% _g121532_)) + (lambda _g121569_ + (let ((_g121568_ (##length _g121569_))) + (cond ((##fx= _g121568_ 1) (apply gx#core-quote-syntax__0 _g121569_)) + ((##fx= _g121568_ 2) (apply gx#core-quote-syntax__1 _g121569_)) + ((##fx= _g121568_ 3) (apply gx#core-quote-syntax__2 _g121569_)) + ((##fx= _g121568_ 4) (apply gx#core-quote-syntax__% _g121569_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g121532_)))))) + _g121569_)))))) (define gx#core-cons - (lambda (_%hd118496%_ _%tl118497%_) - (cons (gx#core-quote-syntax__0 _%hd118496%_) _%tl118497%_))) + (lambda (_%hd118533%_ _%tl118534%_) + (cons (gx#core-quote-syntax__0 _%hd118533%_) _%tl118534%_))) (define gx#core-list - (lambda (_%hd118493%_ . _%rest118494%_) - (cons (gx#core-quote-syntax__0 _%hd118493%_) _%rest118494%_))) + (lambda (_%hd118530%_ . _%rest118531%_) + (cons (gx#core-quote-syntax__0 _%hd118530%_) _%rest118531%_))) (define gx#core-cons* - (lambda (_%hd118490%_ . _%rest118491%_) - (apply cons* (gx#core-quote-syntax__0 _%hd118490%_) _%rest118491%_))) + (lambda (_%hd118527%_ . _%rest118528%_) + (apply cons* (gx#core-quote-syntax__0 _%hd118527%_) _%rest118528%_))) (define gx#core-resolve-path__% - (lambda (_%stx-path118459%_ _%rel118460%_) - (let ((_%path118477%_ (gx#stx-e _%stx-path118459%_)) - (_%reldir118478%_ - (let _%lp118462%_ ((_%relsrc118464%_ - (let ((_%$e118474%_ - (gx#stx-source _%stx-path118459%_))) - (if _%$e118474%_ - _%$e118474%_ - _%rel118460%_)))) - (if (##structure-instance-of? _%relsrc118464%_ 'gerbil#AST::t) - (_%lp118462%_ - (let ((_%$e118467%_ (gx#stx-source _%relsrc118464%_))) - (if _%$e118467%_ - _%$e118467%_ - (gx#stx-e _%relsrc118464%_)))) - (if (source-location-path? _%relsrc118464%_) + (lambda (_%stx-path118496%_ _%rel118497%_) + (let ((_%path118514%_ (gx#stx-e _%stx-path118496%_)) + (_%reldir118515%_ + (let _%lp118499%_ ((_%relsrc118501%_ + (let ((_%$e118511%_ + (gx#stx-source _%stx-path118496%_))) + (if _%$e118511%_ + _%$e118511%_ + _%rel118497%_)))) + (if (##structure-instance-of? _%relsrc118501%_ 'gerbil#AST::t) + (_%lp118499%_ + (let ((_%$e118504%_ (gx#stx-source _%relsrc118501%_))) + (if _%$e118504%_ + _%$e118504%_ + (gx#stx-e _%relsrc118501%_)))) + (if (source-location-path? _%relsrc118501%_) (path-directory - (source-location-path _%relsrc118464%_)) - (if (string? _%relsrc118464%_) - (path-directory _%relsrc118464%_) + (source-location-path _%relsrc118501%_)) + (if (string? _%relsrc118501%_) + (path-directory _%relsrc118501%_) (if (null? (gx#current-expander-path)) (current-directory) (path-directory (car (gx#current-expander-path)))))))))) - (path-expand _%path118477%_ (path-normalize _%reldir118478%_))))) + (path-expand _%path118514%_ (path-normalize _%reldir118515%_))))) (define gx#core-resolve-path__0 - (lambda (_%stx-path118483%_) - (let ((_%rel118485%_ '#f)) - (gx#core-resolve-path__% _%stx-path118483%_ _%rel118485%_)))) + (lambda (_%stx-path118520%_) + (let ((_%rel118522%_ '#f)) + (gx#core-resolve-path__% _%stx-path118520%_ _%rel118522%_)))) (define gx#core-resolve-path - (lambda _g121534_ - (let ((_g121533_ (##length _g121534_))) - (cond ((##fx= _g121533_ 1) (apply gx#core-resolve-path__0 _g121534_)) - ((##fx= _g121533_ 2) (apply gx#core-resolve-path__% _g121534_)) + (lambda _g121571_ + (let ((_g121570_ (##length _g121571_))) + (cond ((##fx= _g121570_ 1) (apply gx#core-resolve-path__0 _g121571_)) + ((##fx= _g121570_ 2) (apply gx#core-resolve-path__% _g121571_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g121534_)))))) + _g121571_)))))) (define gx#core-deserialize-mark__% - (lambda (_%repr118415%_ _%ctx118416%_) - (let* ((_%repr118417118424%_ _%repr118415%_) - (_%E118419118428%_ + (lambda (_%repr118452%_ _%ctx118453%_) + (let* ((_%repr118454118461%_ _%repr118452%_) + (_%E118456118465%_ (lambda () (error '"No clause matching" - _%repr118417118424%_ + _%repr118454118461%_ '([phi . subs])) '#!void)) - (_%K118420118436%_ - (lambda (_%subs118431%_ _%phi118432%_) - (let ((_%subst118434%_ - (if (null? _%subs118431%_) + (_%K118457118473%_ + (lambda (_%subs118468%_ _%phi118469%_) + (let ((_%subst118471%_ + (if (null? _%subs118468%_) '#f - (list->hash-table-eq _%subs118431%_)))) + (list->hash-table-eq _%subs118468%_)))) (##structure gx#expander-mark::t - _%subst118434%_ - _%ctx118416%_ - _%phi118432%_ + _%subst118471%_ + _%ctx118453%_ + _%phi118469%_ '#f))))) - (if (pair? _%repr118417118424%_) - (let ((_%hd118421118439%_ (##car _%repr118417118424%_)) - (_%tl118422118441%_ (##cdr _%repr118417118424%_))) - (let* ((_%phi118444%_ _%hd118421118439%_) - (_%subs118446%_ _%tl118422118441%_)) - (_%K118420118436%_ _%subs118446%_ _%phi118444%_))) - (_%E118419118428%_))))) + (if (pair? _%repr118454118461%_) + (let ((_%hd118458118476%_ (##car _%repr118454118461%_)) + (_%tl118459118478%_ (##cdr _%repr118454118461%_))) + (let* ((_%phi118481%_ _%hd118458118476%_) + (_%subs118483%_ _%tl118459118478%_)) + (_%K118457118473%_ _%subs118483%_ _%phi118481%_))) + (_%E118456118465%_))))) (define gx#core-deserialize-mark__0 - (lambda (_%repr118451%_) - (let ((_%ctx118453%_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _%repr118451%_ _%ctx118453%_)))) + (lambda (_%repr118488%_) + (let ((_%ctx118490%_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _%repr118488%_ _%ctx118490%_)))) (define gx#core-deserialize-mark - (lambda _g121536_ - (let ((_g121535_ (##length _g121536_))) - (cond ((##fx= _g121535_ 1) - (apply gx#core-deserialize-mark__0 _g121536_)) - ((##fx= _g121535_ 2) - (apply gx#core-deserialize-mark__% _g121536_)) + (lambda _g121573_ + (let ((_g121572_ (##length _g121573_))) + (cond ((##fx= _g121572_ 1) + (apply gx#core-deserialize-mark__0 _g121573_)) + ((##fx= _g121572_ 2) + (apply gx#core-deserialize-mark__% _g121573_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g121536_)))))) + _g121573_)))))) (define gx#syntax-local-rewrap - (lambda (_%stx118412%_) - (gx#stx-rewrap _%stx118412%_ (gx#current-expander-marks)))) + (lambda (_%stx118449%_) + (gx#stx-rewrap _%stx118449%_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_%stx118410%_) - (gx#stx-unwrap__% _%stx118410%_ (gx#current-expander-marks)))) + (lambda (_%stx118447%_) + (gx#stx-unwrap__% _%stx118447%_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_%stx118380%_) - (let* ((_%g118381118389%_ (gx#current-expander-marks)) - (_%else118383118397%_ (lambda () _%stx118380%_)) - (_%K118385118402%_ - (lambda (_%hd118400%_) - (gx#stx-apply-mark _%stx118380%_ _%hd118400%_)))) - (if (pair? _%g118381118389%_) - (let* ((_%hd118386118405%_ (##car _%g118381118389%_)) - (_%hd118408%_ _%hd118386118405%_)) - (_%K118385118402%_ _%hd118408%_)) - (_%else118383118397%_))))) + (lambda (_%stx118417%_) + (let* ((_%g118418118426%_ (gx#current-expander-marks)) + (_%else118420118434%_ (lambda () _%stx118417%_)) + (_%K118422118439%_ + (lambda (_%hd118437%_) + (gx#stx-apply-mark _%stx118417%_ _%hd118437%_)))) + (if (pair? _%g118418118426%_) + (let* ((_%hd118423118442%_ (##car _%g118418118426%_)) + (_%hd118445%_ _%hd118423118442%_)) + (_%K118422118439%_ _%hd118445%_)) + (_%else118420118434%_))))) (define gx#syntax-local-e__% - (lambda (_%stx118365%_ _%E118366%_) - (let ((_%bind118368%_ (gx#resolve-identifier__0 _%stx118365%_))) + (lambda (_%stx118402%_ _%E118403%_) + (let ((_%bind118405%_ (gx#resolve-identifier__0 _%stx118402%_))) (if (##structure-direct-instance-of? - _%bind118368%_ + _%bind118405%_ 'gx#syntax-binding::t) - (##unchecked-structure-ref _%bind118368%_ '4 '#f '#f) - (_%E118366%_ _%stx118365%_))))) + (##unchecked-structure-ref _%bind118405%_ '4 '#f '#f) + (_%E118403%_ _%stx118402%_))))) (define gx#syntax-local-e__0 - (lambda (_%stx118373%_) - (let ((_%E118375%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _%stx118373%_ _%E118375%_)))) + (lambda (_%stx118410%_) + (let ((_%E118412%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _%stx118410%_ _%E118412%_)))) (define gx#syntax-local-e - (lambda _g121538_ - (let ((_g121537_ (##length _g121538_))) - (cond ((##fx= _g121537_ 1) (apply gx#syntax-local-e__0 _g121538_)) - ((##fx= _g121537_ 2) (apply gx#syntax-local-e__% _g121538_)) + (lambda _g121575_ + (let ((_g121574_ (##length _g121575_))) + (cond ((##fx= _g121574_ 1) (apply gx#syntax-local-e__0 _g121575_)) + ((##fx= _g121574_ 2) (apply gx#syntax-local-e__% _g121575_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g121538_)))))) + _g121575_)))))) (define gx#syntax-local-value__% - (lambda (_%stx118349%_ _%E118350%_) - (let ((_%e118352%_ (gx#syntax-local-e__% _%stx118349%_ _%E118350%_))) - (if (##structure-instance-of? _%e118352%_ 'gx#expander::t) - (##unchecked-structure-ref _%e118352%_ '1 '#f '#f) - _%e118352%_)))) + (lambda (_%stx118386%_ _%E118387%_) + (let ((_%e118389%_ (gx#syntax-local-e__% _%stx118386%_ _%E118387%_))) + (if (##structure-instance-of? _%e118389%_ 'gx#expander::t) + (##unchecked-structure-ref _%e118389%_ '1 '#f '#f) + _%e118389%_)))) (define gx#syntax-local-value__0 - (lambda (_%stx118357%_) - (let ((_%E118359%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _%stx118357%_ _%E118359%_)))) + (lambda (_%stx118394%_) + (let ((_%E118396%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _%stx118394%_ _%E118396%_)))) (define gx#syntax-local-value - (lambda _g121540_ - (let ((_g121539_ (##length _g121540_))) - (cond ((##fx= _g121539_ 1) - (apply gx#syntax-local-value__0 _g121540_)) - ((##fx= _g121539_ 2) - (apply gx#syntax-local-value__% _g121540_)) + (lambda _g121577_ + (let ((_g121576_ (##length _g121577_))) + (cond ((##fx= _g121576_ 1) + (apply gx#syntax-local-value__0 _g121577_)) + ((##fx= _g121576_ 2) + (apply gx#syntax-local-value__% _g121577_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g121540_)))))) + _g121577_)))))) (define gx#raise-syntax-ref-error - (lambda (_%stx118346%_) + (lambda (_%stx118383%_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _%stx118346%_))))) + _%stx118383%_))))) diff --git a/src/bootstrap/gerbil/expander/core~1.scm b/src/bootstrap/gerbil/expander/core~1.scm index 885483fe2..55d8f0be4 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]#_g121542_| + (define |gx[1]#_g121579_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121544_| + (define |gx[1]#_g121581_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121546_| + (define |gx[1]#_g121583_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121548_| + (define |gx[1]#_g121585_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121549_| + (define |gx[1]#_g121586_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121551_| + (define |gx[1]#_g121588_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121552_| + (define |gx[1]#_g121589_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121554_| + (define |gx[1]#_g121591_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121555_| + (define |gx[1]#_g121592_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121557_| + (define |gx[1]#_g121594_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121558_| + (define |gx[1]#_g121595_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121560_| + (define |gx[1]#_g121597_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121562_| + (define |gx[1]#_g121599_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121564_| + (define |gx[1]#_g121601_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121566_| + (define |gx[1]#_g121603_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121568_| + (define |gx[1]#_g121605_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121569_| + (define |gx[1]#_g121606_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121571_| + (define |gx[1]#_g121608_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121572_| + (define |gx[1]#_g121609_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121574_| + (define |gx[1]#_g121611_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121575_| + (define |gx[1]#_g121612_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121577_| + (define |gx[1]#_g121614_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121578_| + (define |gx[1]#_g121615_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121581_| + (define |gx[1]#_g121618_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121583_| + (define |gx[1]#_g121620_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121585_| + (define |gx[1]#_g121622_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121587_| + (define |gx[1]#_g121624_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121588_| + (define |gx[1]#_g121625_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121589_| + (define |gx[1]#_g121626_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121590_| + (define |gx[1]#_g121627_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121591_| + (define |gx[1]#_g121628_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121593_| + (define |gx[1]#_g121630_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121594_| + (define |gx[1]#_g121631_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121595_| + (define |gx[1]#_g121632_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121596_| + (define |gx[1]#_g121633_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121597_| + (define |gx[1]#_g121634_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121599_| + (define |gx[1]#_g121636_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121600_| + (define |gx[1]#_g121637_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121601_| + (define |gx[1]#_g121638_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121602_| + (define |gx[1]#_g121639_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121603_| + (define |gx[1]#_g121640_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121605_| + (define |gx[1]#_g121642_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121606_| + (define |gx[1]#_g121643_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121607_| + (define |gx[1]#_g121644_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121608_| + (define |gx[1]#_g121645_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121609_| + (define |gx[1]#_g121646_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121611_| + (define |gx[1]#_g121648_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121613_| + (define |gx[1]#_g121650_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121615_| + (define |gx[1]#_g121652_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121617_| + (define |gx[1]#_g121654_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121619_| + (define |gx[1]#_g121656_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121620_| + (define |gx[1]#_g121657_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121621_| + (define |gx[1]#_g121658_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121622_| + (define |gx[1]#_g121659_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121623_| + (define |gx[1]#_g121660_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121625_| + (define |gx[1]#_g121662_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121626_| + (define |gx[1]#_g121663_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121627_| + (define |gx[1]#_g121664_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121628_| + (define |gx[1]#_g121665_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121629_| + (define |gx[1]#_g121666_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121631_| + (define |gx[1]#_g121668_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121632_| + (define |gx[1]#_g121669_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121633_| + (define |gx[1]#_g121670_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121634_| + (define |gx[1]#_g121671_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121635_| + (define |gx[1]#_g121672_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121637_| + (define |gx[1]#_g121674_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121638_| + (define |gx[1]#_g121675_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121639_| + (define |gx[1]#_g121676_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121640_| + (define |gx[1]#_g121677_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121641_| + (define |gx[1]#_g121678_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121643_| + (define |gx[1]#_g121680_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121645_| + (define |gx[1]#_g121682_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121647_| + (define |gx[1]#_g121684_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121649_| + (define |gx[1]#_g121686_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121651_| + (define |gx[1]#_g121688_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g121652_| + (define |gx[1]#_g121689_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121653_| + (define |gx[1]#_g121690_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121654_| + (define |gx[1]#_g121691_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g121655_| + (define |gx[1]#_g121692_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121656_| + (define |gx[1]#_g121693_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g121657_| + (define |gx[1]#_g121694_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121658_| + (define |gx[1]#_g121695_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121659_| + (define |gx[1]#_g121696_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121660_| + (define |gx[1]#_g121697_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121661_| + (define |gx[1]#_g121698_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121663_| + (define |gx[1]#_g121700_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121664_| + (define |gx[1]#_g121701_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121665_| + (define |gx[1]#_g121702_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121666_| + (define |gx[1]#_g121703_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121667_| + (define |gx[1]#_g121704_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121668_| + (define |gx[1]#_g121705_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121669_| + (define |gx[1]#_g121706_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121670_| + (define |gx[1]#_g121707_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121671_| + (define |gx[1]#_g121708_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121672_| + (define |gx[1]#_g121709_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121673_| + (define |gx[1]#_g121710_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121675_| + (define |gx[1]#_g121712_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g121676_| + (define |gx[1]#_g121713_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121677_| + (define |gx[1]#_g121714_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121678_| + (define |gx[1]#_g121715_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g121679_| + (define |gx[1]#_g121716_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121680_| + (define |gx[1]#_g121717_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g121681_| + (define |gx[1]#_g121718_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121682_| + (define |gx[1]#_g121719_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121683_| + (define |gx[1]#_g121720_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121684_| + (define |gx[1]#_g121721_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121685_| + (define |gx[1]#_g121722_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121687_| + (define |gx[1]#_g121724_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121688_| + (define |gx[1]#_g121725_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121689_| + (define |gx[1]#_g121726_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121690_| + (define |gx[1]#_g121727_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121691_| + (define |gx[1]#_g121728_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121692_| + (define |gx[1]#_g121729_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121693_| + (define |gx[1]#_g121730_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121694_| + (define |gx[1]#_g121731_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121695_| + (define |gx[1]#_g121732_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121696_| + (define |gx[1]#_g121733_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121697_| + (define |gx[1]#_g121734_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121700_| + (define |gx[1]#_g121737_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121702_| + (define |gx[1]#_g121739_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121704_| + (define |gx[1]#_g121741_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121706_| + (define |gx[1]#_g121743_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121707_| + (define |gx[1]#_g121744_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121708_| + (define |gx[1]#_g121745_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121709_| + (define |gx[1]#_g121746_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121710_| + (define |gx[1]#_g121747_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121711_| + (define |gx[1]#_g121748_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121712_| + (define |gx[1]#_g121749_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121713_| + (define |gx[1]#_g121750_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121715_| + (define |gx[1]#_g121752_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121716_| + (define |gx[1]#_g121753_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121717_| + (define |gx[1]#_g121754_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121718_| + (define |gx[1]#_g121755_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121719_| + (define |gx[1]#_g121756_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121720_| + (define |gx[1]#_g121757_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121721_| + (define |gx[1]#_g121758_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121722_| + (define |gx[1]#_g121759_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121724_| + (define |gx[1]#_g121761_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121725_| + (define |gx[1]#_g121762_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121726_| + (define |gx[1]#_g121763_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121727_| + (define |gx[1]#_g121764_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121728_| + (define |gx[1]#_g121765_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121729_| + (define |gx[1]#_g121766_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121730_| + (define |gx[1]#_g121767_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121731_| + (define |gx[1]#_g121768_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121733_| + (define |gx[1]#_g121770_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121734_| + (define |gx[1]#_g121771_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121735_| + (define |gx[1]#_g121772_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121736_| + (define |gx[1]#_g121773_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121737_| + (define |gx[1]#_g121774_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121738_| + (define |gx[1]#_g121775_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121739_| + (define |gx[1]#_g121776_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121740_| + (define |gx[1]#_g121777_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121743_| + (define |gx[1]#_g121780_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121745_| + (define |gx[1]#_g121782_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121747_| + (define |gx[1]#_g121784_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121749_| + (define |gx[1]#_g121786_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121750_| + (define |gx[1]#_g121787_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121751_| + (define |gx[1]#_g121788_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121752_| + (define |gx[1]#_g121789_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121753_| + (define |gx[1]#_g121790_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121755_| + (define |gx[1]#_g121792_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121756_| + (define |gx[1]#_g121793_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121757_| + (define |gx[1]#_g121794_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121758_| + (define |gx[1]#_g121795_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121759_| + (define |gx[1]#_g121796_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121761_| + (define |gx[1]#_g121798_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121762_| + (define |gx[1]#_g121799_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121763_| + (define |gx[1]#_g121800_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121764_| + (define |gx[1]#_g121801_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121765_| + (define |gx[1]#_g121802_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121767_| + (define |gx[1]#_g121804_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121768_| + (define |gx[1]#_g121805_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121769_| + (define |gx[1]#_g121806_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121770_| + (define |gx[1]#_g121807_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121771_| + (define |gx[1]#_g121808_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121773_| + (define |gx[1]#_g121810_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121775_| + (define |gx[1]#_g121812_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121777_| + (define |gx[1]#_g121814_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121779_| + (define |gx[1]#_g121816_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121780_| + (define |gx[1]#_g121817_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121781_| + (define |gx[1]#_g121818_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121783_| + (define |gx[1]#_g121820_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121784_| + (define |gx[1]#_g121821_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121785_| + (define |gx[1]#_g121822_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121787_| + (define |gx[1]#_g121824_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121788_| + (define |gx[1]#_g121825_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121789_| + (define |gx[1]#_g121826_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121791_| + (define |gx[1]#_g121828_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121792_| + (define |gx[1]#_g121829_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121793_| + (define |gx[1]#_g121830_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121795_| + (define |gx[1]#_g121832_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121797_| + (define |gx[1]#_g121834_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121799_| + (define |gx[1]#_g121836_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121801_| + (define |gx[1]#_g121838_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121803_| + (define |gx[1]#_g121840_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121804_| + (define |gx[1]#_g121841_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121805_| + (define |gx[1]#_g121842_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121807_| + (define |gx[1]#_g121844_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121808_| + (define |gx[1]#_g121845_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121809_| + (define |gx[1]#_g121846_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121811_| + (define |gx[1]#_g121848_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121812_| + (define |gx[1]#_g121849_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121813_| + (define |gx[1]#_g121850_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121815_| + (define |gx[1]#_g121852_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121816_| + (define |gx[1]#_g121853_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121817_| + (define |gx[1]#_g121854_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121819_| + (define |gx[1]#_g121856_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121821_| + (define |gx[1]#_g121858_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121823_| + (define |gx[1]#_g121860_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121825_| + (define |gx[1]#_g121862_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121827_| + (define |gx[1]#_g121864_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121828_| + (define |gx[1]#_g121865_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121829_| + (define |gx[1]#_g121866_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121831_| + (define |gx[1]#_g121868_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121832_| + (define |gx[1]#_g121869_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121833_| + (define |gx[1]#_g121870_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121835_| + (define |gx[1]#_g121872_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121836_| + (define |gx[1]#_g121873_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121837_| + (define |gx[1]#_g121874_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121839_| + (define |gx[1]#_g121876_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121840_| + (define |gx[1]#_g121877_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121841_| + (define |gx[1]#_g121878_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121844_| + (define |gx[1]#_g121881_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121846_| + (define |gx[1]#_g121883_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121848_| + (define |gx[1]#_g121885_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121850_| + (define |gx[1]#_g121887_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121851_| + (define |gx[1]#_g121888_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121852_| + (define |gx[1]#_g121889_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121854_| + (define |gx[1]#_g121891_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121855_| + (define |gx[1]#_g121892_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121856_| + (define |gx[1]#_g121893_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121858_| + (define |gx[1]#_g121895_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121859_| + (define |gx[1]#_g121896_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121860_| + (define |gx[1]#_g121897_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121862_| + (define |gx[1]#_g121899_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121863_| + (define |gx[1]#_g121900_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121864_| + (define |gx[1]#_g121901_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121866_| + (define |gx[1]#_g121903_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121868_| + (define |gx[1]#_g121905_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121870_| + (define |gx[1]#_g121907_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121872_| + (define |gx[1]#_g121909_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121874_| + (define |gx[1]#_g121911_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121875_| + (define |gx[1]#_g121912_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121876_| + (define |gx[1]#_g121913_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121877_| + (define |gx[1]#_g121914_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121879_| + (define |gx[1]#_g121916_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121880_| + (define |gx[1]#_g121917_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121881_| + (define |gx[1]#_g121918_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121882_| + (define |gx[1]#_g121919_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121884_| + (define |gx[1]#_g121921_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121885_| + (define |gx[1]#_g121922_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121886_| + (define |gx[1]#_g121923_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121887_| + (define |gx[1]#_g121924_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121889_| + (define |gx[1]#_g121926_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121890_| + (define |gx[1]#_g121927_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121891_| + (define |gx[1]#_g121928_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121892_| + (define |gx[1]#_g121929_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121895_| + (define |gx[1]#_g121932_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121897_| + (define |gx[1]#_g121934_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121899_| + (define |gx[1]#_g121936_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121901_| + (define |gx[1]#_g121938_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121902_| + (define |gx[1]#_g121939_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121903_| + (define |gx[1]#_g121940_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121905_| + (define |gx[1]#_g121942_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121906_| + (define |gx[1]#_g121943_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121907_| + (define |gx[1]#_g121944_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121909_| + (define |gx[1]#_g121946_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121910_| + (define |gx[1]#_g121947_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121911_| + (define |gx[1]#_g121948_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121913_| + (define |gx[1]#_g121950_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121914_| + (define |gx[1]#_g121951_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121915_| + (define |gx[1]#_g121952_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121918_| + (define |gx[1]#_g121955_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121920_| + (define |gx[1]#_g121957_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121922_| + (define |gx[1]#_g121959_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121924_| + (define |gx[1]#_g121961_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121925_| + (define |gx[1]#_g121962_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121926_| + (define |gx[1]#_g121963_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121927_| + (define |gx[1]#_g121964_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121929_| + (define |gx[1]#_g121966_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121930_| + (define |gx[1]#_g121967_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121931_| + (define |gx[1]#_g121968_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121932_| + (define |gx[1]#_g121969_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121934_| + (define |gx[1]#_g121971_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121935_| + (define |gx[1]#_g121972_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121936_| + (define |gx[1]#_g121973_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121937_| + (define |gx[1]#_g121974_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121939_| + (define |gx[1]#_g121976_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121940_| + (define |gx[1]#_g121977_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121941_| + (define |gx[1]#_g121978_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121942_| + (define |gx[1]#_g121979_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121945_| + (define |gx[1]#_g121982_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121947_| + (define |gx[1]#_g121984_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121949_| + (define |gx[1]#_g121986_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121951_| + (define |gx[1]#_g121988_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121952_| + (define |gx[1]#_g121989_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121953_| + (define |gx[1]#_g121990_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121954_| + (define |gx[1]#_g121991_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121955_| + (define |gx[1]#_g121992_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121956_| + (define |gx[1]#_g121993_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121958_| + (define |gx[1]#_g121995_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121959_| + (define |gx[1]#_g121996_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121960_| + (define |gx[1]#_g121997_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121961_| + (define |gx[1]#_g121998_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121962_| + (define |gx[1]#_g121999_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121963_| + (define |gx[1]#_g122000_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121965_| + (define |gx[1]#_g122002_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121966_| + (define |gx[1]#_g122003_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121967_| + (define |gx[1]#_g122004_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121968_| + (define |gx[1]#_g122005_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121969_| + (define |gx[1]#_g122006_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121970_| + (define |gx[1]#_g122007_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121972_| + (define |gx[1]#_g122009_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121973_| + (define |gx[1]#_g122010_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121974_| + (define |gx[1]#_g122011_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121975_| + (define |gx[1]#_g122012_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121976_| + (define |gx[1]#_g122013_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121977_| + (define |gx[1]#_g122014_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121980_| + (define |gx[1]#_g122017_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121982_| + (define |gx[1]#_g122019_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121984_| + (define |gx[1]#_g122021_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121986_| + (define |gx[1]#_g122023_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121987_| + (define |gx[1]#_g122024_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121988_| + (define |gx[1]#_g122025_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121989_| + (define |gx[1]#_g122026_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121991_| + (define |gx[1]#_g122028_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121992_| + (define |gx[1]#_g122029_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121993_| + (define |gx[1]#_g122030_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121994_| + (define |gx[1]#_g122031_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121996_| + (define |gx[1]#_g122033_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121997_| + (define |gx[1]#_g122034_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121998_| + (define |gx[1]#_g122035_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121999_| + (define |gx[1]#_g122036_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122001_| + (define |gx[1]#_g122038_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122002_| + (define |gx[1]#_g122039_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122003_| + (define |gx[1]#_g122040_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122004_| + (define |gx[1]#_g122041_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122006_| + (define |gx[1]#_g122043_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122008_| + (define |gx[1]#_g122045_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122010_| + (define |gx[1]#_g122047_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122012_| + (define |gx[1]#_g122049_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122014_| + (define |gx[1]#_g122051_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122016_| + (define |gx[1]#_g122053_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122018_| + (define |gx[1]#_g122055_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122020_| + (define |gx[1]#_g122057_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122022_| + (define |gx[1]#_g122059_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122024_| + (define |gx[1]#_g122061_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122026_| + (define |gx[1]#_g122063_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122028_| + (define |gx[1]#_g122065_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122029_| + (define |gx[1]#_g122066_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122030_| + (define |gx[1]#_g122067_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122032_| + (define |gx[1]#_g122069_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122033_| + (define |gx[1]#_g122070_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122034_| + (define |gx[1]#_g122071_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122036_| + (define |gx[1]#_g122073_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122037_| + (define |gx[1]#_g122074_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122038_| + (define |gx[1]#_g122075_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122040_| + (define |gx[1]#_g122077_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122041_| + (define |gx[1]#_g122078_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122042_| + (define |gx[1]#_g122079_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122044_| + (define |gx[1]#_g122081_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122046_| + (define |gx[1]#_g122083_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122048_| + (define |gx[1]#_g122085_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122050_| + (define |gx[1]#_g122087_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122052_| + (define |gx[1]#_g122089_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122053_| + (define |gx[1]#_g122090_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122054_| + (define |gx[1]#_g122091_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122056_| + (define |gx[1]#_g122093_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122057_| + (define |gx[1]#_g122094_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122058_| + (define |gx[1]#_g122095_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122060_| + (define |gx[1]#_g122097_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122061_| + (define |gx[1]#_g122098_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122062_| + (define |gx[1]#_g122099_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122064_| + (define |gx[1]#_g122101_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122065_| + (define |gx[1]#_g122102_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122066_| + (define |gx[1]#_g122103_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122069_| + (define |gx[1]#_g122106_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122071_| + (define |gx[1]#_g122108_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122073_| + (define |gx[1]#_g122110_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122075_| + (define |gx[1]#_g122112_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122076_| + (define |gx[1]#_g122113_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122077_| + (define |gx[1]#_g122114_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122079_| + (define |gx[1]#_g122116_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122080_| + (define |gx[1]#_g122117_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122081_| + (define |gx[1]#_g122118_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122083_| + (define |gx[1]#_g122120_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122084_| + (define |gx[1]#_g122121_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122085_| + (define |gx[1]#_g122122_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122087_| + (define |gx[1]#_g122124_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122088_| + (define |gx[1]#_g122125_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122089_| + (define |gx[1]#_g122126_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122091_| + (define |gx[1]#_g122128_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122093_| + (define |gx[1]#_g122130_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122095_| + (define |gx[1]#_g122132_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122097_| + (define |gx[1]#_g122134_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122099_| + (define |gx[1]#_g122136_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122100_| + (define |gx[1]#_g122137_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122101_| + (define |gx[1]#_g122138_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122103_| + (define |gx[1]#_g122140_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122104_| + (define |gx[1]#_g122141_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122105_| + (define |gx[1]#_g122142_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122107_| + (define |gx[1]#_g122144_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122108_| + (define |gx[1]#_g122145_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122109_| + (define |gx[1]#_g122146_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122111_| + (define |gx[1]#_g122148_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122112_| + (define |gx[1]#_g122149_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122113_| + (define |gx[1]#_g122150_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122116_| + (define |gx[1]#_g122153_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122118_| + (define |gx[1]#_g122155_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122120_| + (define |gx[1]#_g122157_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122122_| + (define |gx[1]#_g122159_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122123_| + (define |gx[1]#_g122160_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122124_| + (define |gx[1]#_g122161_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122126_| + (define |gx[1]#_g122163_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122127_| + (define |gx[1]#_g122164_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122128_| + (define |gx[1]#_g122165_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122130_| + (define |gx[1]#_g122167_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122131_| + (define |gx[1]#_g122168_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122132_| + (define |gx[1]#_g122169_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122134_| + (define |gx[1]#_g122171_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122135_| + (define |gx[1]#_g122172_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122136_| + (define |gx[1]#_g122173_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122138_| + (define |gx[1]#_g122175_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122140_| + (define |gx[1]#_g122177_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122142_| + (define |gx[1]#_g122179_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122144_| + (define |gx[1]#_g122181_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122146_| + (define |gx[1]#_g122183_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122147_| + (define |gx[1]#_g122184_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122148_| + (define |gx[1]#_g122185_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122150_| + (define |gx[1]#_g122187_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122151_| + (define |gx[1]#_g122188_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122152_| + (define |gx[1]#_g122189_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122154_| + (define |gx[1]#_g122191_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122155_| + (define |gx[1]#_g122192_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122156_| + (define |gx[1]#_g122193_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122158_| + (define |gx[1]#_g122195_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122159_| + (define |gx[1]#_g122196_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122160_| + (define |gx[1]#_g122197_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122163_| + (define |gx[1]#_g122200_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122165_| + (define |gx[1]#_g122202_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122167_| + (define |gx[1]#_g122204_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122169_| + (define |gx[1]#_g122206_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122171_| + (define |gx[1]#_g122208_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122173_| + (define |gx[1]#_g122210_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122175_| + (define |gx[1]#_g122212_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122177_| + (define |gx[1]#_g122214_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122179_| + (define |gx[1]#_g122216_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122181_| + (define |gx[1]#_g122218_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122183_| + (define |gx[1]#_g122220_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122185_| + (define |gx[1]#_g122222_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122187_| + (define |gx[1]#_g122224_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122189_| + (define |gx[1]#_g122226_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122191_| + (define |gx[1]#_g122228_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122194_| + (define |gx[1]#_g122231_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122196_| + (define |gx[1]#_g122233_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122198_| + (define |gx[1]#_g122235_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122200_| + (define |gx[1]#_g122237_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122202_| + (define |gx[1]#_g122239_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122204_| + (define |gx[1]#_g122241_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122206_| + (define |gx[1]#_g122243_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122209_| + (define |gx[1]#_g122246_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122211_| + (define |gx[1]#_g122248_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122213_| + (define |gx[1]#_g122250_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122215_| + (define |gx[1]#_g122252_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122217_| + (define |gx[1]#_g122254_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122219_| + (define |gx[1]#_g122256_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122221_| + (define |gx[1]#_g122258_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122223_| + (define |gx[1]#_g122260_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122225_| + (define |gx[1]#_g122262_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122227_| + (define |gx[1]#_g122264_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122229_| + (define |gx[1]#_g122266_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122231_| + (define |gx[1]#_g122268_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122233_| + (define |gx[1]#_g122270_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122235_| + (define |gx[1]#_g122272_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122237_| + (define |gx[1]#_g122274_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122240_| + (define |gx[1]#_g122277_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122242_| + (define |gx[1]#_g122279_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122244_| + (define |gx[1]#_g122281_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122246_| + (define |gx[1]#_g122283_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122247_| + (define |gx[1]#_g122284_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122248_| + (define |gx[1]#_g122285_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122250_| + (define |gx[1]#_g122287_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122251_| + (define |gx[1]#_g122288_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122252_| + (define |gx[1]#_g122289_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122254_| + (define |gx[1]#_g122291_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122255_| + (define |gx[1]#_g122292_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122256_| + (define |gx[1]#_g122293_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122258_| + (define |gx[1]#_g122295_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122259_| + (define |gx[1]#_g122296_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122260_| + (define |gx[1]#_g122297_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122262_| + (define |gx[1]#_g122299_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122264_| + (define |gx[1]#_g122301_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g122266_| + (define |gx[1]#_g122303_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122268_| + (define |gx[1]#_g122305_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g122269_| + (define |gx[1]#_g122306_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122270_| + (define |gx[1]#_g122307_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122271_| + (define |gx[1]#_g122308_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g122273_| + (define |gx[1]#_g122310_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122274_| + (define |gx[1]#_g122311_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122275_| + (define |gx[1]#_g122312_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122276_| + (define |gx[1]#_g122313_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122278_| + (define |gx[1]#_g122315_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g122279_| + (define |gx[1]#_g122316_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122280_| + (define |gx[1]#_g122317_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122281_| + (define |gx[1]#_g122318_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g122283_| + (define |gx[1]#_g122320_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122284_| + (define |gx[1]#_g122321_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122285_| + (define |gx[1]#_g122322_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122286_| + (define |gx[1]#_g122323_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj121460 + (let ((__obj121497 (let () (declare (not safe)) (##structure @@ -3601,7 +3601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121460 + __obj121497 'gx#expander-context::t '1 '#f @@ -3609,73 +3609,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121460 + __obj121497 'expander-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121460 '(id table) '4 '#f '#f)) + (##unchecked-structure-set! __obj121497 '(id table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121460 '(id table) '6 '#f '#f)) + (##unchecked-structure-set! __obj121497 '(id table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121460 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121497 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121460 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121497 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121460 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121497 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121460 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121497 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121460 ':init! '11 '#f '#f)) - (let ((__tmp121541 |gx[1]#_g121542_|)) + (##unchecked-structure-set! __obj121497 ':init! '11 '#f '#f)) + (let ((__tmp121578 |gx[1]#_g121579_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121460 __tmp121541 '12 '#f '#f)) - (let ((__tmp121543 |gx[1]#_g121544_|)) + (##unchecked-structure-set! __obj121497 __tmp121578 '12 '#f '#f)) + (let ((__tmp121580 |gx[1]#_g121581_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121460 __tmp121543 '13 '#f '#f)) - (let ((__tmp121545 |gx[1]#_g121546_|)) + (##unchecked-structure-set! __obj121497 __tmp121580 '13 '#f '#f)) + (let ((__tmp121582 |gx[1]#_g121583_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121460 __tmp121545 '14 '#f '#f)) - (let ((__tmp121547 - (cons (cons 'id |gx[1]#_g121548_|) - (cons (cons 'table |gx[1]#_g121549_|) '())))) + (##unchecked-structure-set! __obj121497 __tmp121582 '14 '#f '#f)) + (let ((__tmp121584 + (cons (cons 'id |gx[1]#_g121585_|) + (cons (cons 'table |gx[1]#_g121586_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121460 __tmp121547 '15 '#f '#f)) - (let ((__tmp121550 - (cons (cons 'id |gx[1]#_g121551_|) - (cons (cons 'table |gx[1]#_g121552_|) '())))) + (##unchecked-structure-set! __obj121497 __tmp121584 '15 '#f '#f)) + (let ((__tmp121587 + (cons (cons 'id |gx[1]#_g121588_|) + (cons (cons 'table |gx[1]#_g121589_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121460 __tmp121550 '16 '#f '#f)) - (let ((__tmp121553 - (cons (cons 'id |gx[1]#_g121554_|) - (cons (cons 'table |gx[1]#_g121555_|) '())))) + (##unchecked-structure-set! __obj121497 __tmp121587 '16 '#f '#f)) + (let ((__tmp121590 + (cons (cons 'id |gx[1]#_g121591_|) + (cons (cons 'table |gx[1]#_g121592_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121460 __tmp121553 '17 '#f '#f)) - (let ((__tmp121556 - (cons (cons 'id |gx[1]#_g121557_|) - (cons (cons 'table |gx[1]#_g121558_|) '())))) + (##unchecked-structure-set! __obj121497 __tmp121590 '17 '#f '#f)) + (let ((__tmp121593 + (cons (cons 'id |gx[1]#_g121594_|) + (cons (cons 'table |gx[1]#_g121595_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121460 __tmp121556 '18 '#f '#f)) + (##unchecked-structure-set! __obj121497 __tmp121593 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121460 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121497 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121460 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121497 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121460 '() '20 '#f '#f)) - __obj121460)) + (##unchecked-structure-set! __obj121497 '() '20 '#f '#f)) + __obj121497)) (define |gx[:0:]#root-context| - (let ((__obj121461 + (let ((__obj121498 (let () (declare (not safe)) (##structure @@ -3704,76 +3704,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121461 + __obj121498 'gx#root-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121461 'root-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121498 'root-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121461 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121498 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121461 '(id table) '6 '#f '#f)) - (let ((__tmp121559 (cons |gx[1]#_g121560_| '()))) + (##unchecked-structure-set! __obj121498 '(id table) '6 '#f '#f)) + (let ((__tmp121596 (cons |gx[1]#_g121597_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121461 __tmp121559 '3 '#f '#f)) + (##unchecked-structure-set! __obj121498 __tmp121596 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121461 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121498 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121461 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121498 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121461 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121498 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121461 '#f '11 '#f '#f)) - (let ((__tmp121561 |gx[1]#_g121562_|)) + (##unchecked-structure-set! __obj121498 '#f '11 '#f '#f)) + (let ((__tmp121598 |gx[1]#_g121599_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121461 __tmp121561 '12 '#f '#f)) - (let ((__tmp121563 |gx[1]#_g121564_|)) + (##unchecked-structure-set! __obj121498 __tmp121598 '12 '#f '#f)) + (let ((__tmp121600 |gx[1]#_g121601_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121461 __tmp121563 '13 '#f '#f)) - (let ((__tmp121565 |gx[1]#_g121566_|)) + (##unchecked-structure-set! __obj121498 __tmp121600 '13 '#f '#f)) + (let ((__tmp121602 |gx[1]#_g121603_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121461 __tmp121565 '14 '#f '#f)) - (let ((__tmp121567 - (cons (cons 'id |gx[1]#_g121568_|) - (cons (cons 'table |gx[1]#_g121569_|) '())))) + (##unchecked-structure-set! __obj121498 __tmp121602 '14 '#f '#f)) + (let ((__tmp121604 + (cons (cons 'id |gx[1]#_g121605_|) + (cons (cons 'table |gx[1]#_g121606_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121461 __tmp121567 '15 '#f '#f)) - (let ((__tmp121570 - (cons (cons 'id |gx[1]#_g121571_|) - (cons (cons 'table |gx[1]#_g121572_|) '())))) + (##unchecked-structure-set! __obj121498 __tmp121604 '15 '#f '#f)) + (let ((__tmp121607 + (cons (cons 'id |gx[1]#_g121608_|) + (cons (cons 'table |gx[1]#_g121609_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121461 __tmp121570 '16 '#f '#f)) - (let ((__tmp121573 - (cons (cons 'id |gx[1]#_g121574_|) - (cons (cons 'table |gx[1]#_g121575_|) '())))) + (##unchecked-structure-set! __obj121498 __tmp121607 '16 '#f '#f)) + (let ((__tmp121610 + (cons (cons 'id |gx[1]#_g121611_|) + (cons (cons 'table |gx[1]#_g121612_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121461 __tmp121573 '17 '#f '#f)) - (let ((__tmp121576 - (cons (cons 'id |gx[1]#_g121577_|) - (cons (cons 'table |gx[1]#_g121578_|) '())))) + (##unchecked-structure-set! __obj121498 __tmp121610 '17 '#f '#f)) + (let ((__tmp121613 + (cons (cons 'id |gx[1]#_g121614_|) + (cons (cons 'table |gx[1]#_g121615_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121461 __tmp121576 '18 '#f '#f)) + (##unchecked-structure-set! __obj121498 __tmp121613 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121461 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121498 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121461 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121498 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121461 '() '20 '#f '#f)) - __obj121461)) + (##unchecked-structure-set! __obj121498 '() '20 '#f '#f)) + __obj121498)) (define |gx[:0:]#phi-context| - (let ((__obj121462 + (let ((__obj121499 (let () (declare (not safe)) (##structure @@ -3802,97 +3802,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121462 + __obj121499 'gx#phi-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121462 'phi-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121499 'phi-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121462 '(super up down) '4 '#f '#f)) + (##unchecked-structure-set! __obj121499 '(super up down) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121462 + __obj121499 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121579 (cons |gx[1]#_g121560_| '()))) + (let ((__tmp121616 (cons |gx[1]#_g121597_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121462 __tmp121579 '3 '#f '#f)) + (##unchecked-structure-set! __obj121499 __tmp121616 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121462 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121499 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121462 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121499 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121462 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121499 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121462 '#f '11 '#f '#f)) - (let ((__tmp121580 |gx[1]#_g121581_|)) + (##unchecked-structure-set! __obj121499 '#f '11 '#f '#f)) + (let ((__tmp121617 |gx[1]#_g121618_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121462 __tmp121580 '12 '#f '#f)) - (let ((__tmp121582 |gx[1]#_g121583_|)) + (##unchecked-structure-set! __obj121499 __tmp121617 '12 '#f '#f)) + (let ((__tmp121619 |gx[1]#_g121620_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121462 __tmp121582 '13 '#f '#f)) - (let ((__tmp121584 |gx[1]#_g121585_|)) + (##unchecked-structure-set! __obj121499 __tmp121619 '13 '#f '#f)) + (let ((__tmp121621 |gx[1]#_g121622_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121462 __tmp121584 '14 '#f '#f)) - (let ((__tmp121586 - (cons (cons 'super |gx[1]#_g121587_|) - (cons (cons 'up |gx[1]#_g121588_|) - (cons (cons 'down |gx[1]#_g121589_|) - (cons (cons 'id |gx[1]#_g121590_|) - (cons (cons 'table |gx[1]#_g121591_|) + (##unchecked-structure-set! __obj121499 __tmp121621 '14 '#f '#f)) + (let ((__tmp121623 + (cons (cons 'super |gx[1]#_g121624_|) + (cons (cons 'up |gx[1]#_g121625_|) + (cons (cons 'down |gx[1]#_g121626_|) + (cons (cons 'id |gx[1]#_g121627_|) + (cons (cons 'table |gx[1]#_g121628_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121462 __tmp121586 '15 '#f '#f)) - (let ((__tmp121592 - (cons (cons 'super |gx[1]#_g121593_|) - (cons (cons 'up |gx[1]#_g121594_|) - (cons (cons 'down |gx[1]#_g121595_|) - (cons (cons 'id |gx[1]#_g121596_|) - (cons (cons 'table |gx[1]#_g121597_|) + (##unchecked-structure-set! __obj121499 __tmp121623 '15 '#f '#f)) + (let ((__tmp121629 + (cons (cons 'super |gx[1]#_g121630_|) + (cons (cons 'up |gx[1]#_g121631_|) + (cons (cons 'down |gx[1]#_g121632_|) + (cons (cons 'id |gx[1]#_g121633_|) + (cons (cons 'table |gx[1]#_g121634_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121462 __tmp121592 '16 '#f '#f)) - (let ((__tmp121598 - (cons (cons 'super |gx[1]#_g121599_|) - (cons (cons 'up |gx[1]#_g121600_|) - (cons (cons 'down |gx[1]#_g121601_|) - (cons (cons 'id |gx[1]#_g121602_|) - (cons (cons 'table |gx[1]#_g121603_|) + (##unchecked-structure-set! __obj121499 __tmp121629 '16 '#f '#f)) + (let ((__tmp121635 + (cons (cons 'super |gx[1]#_g121636_|) + (cons (cons 'up |gx[1]#_g121637_|) + (cons (cons 'down |gx[1]#_g121638_|) + (cons (cons 'id |gx[1]#_g121639_|) + (cons (cons 'table |gx[1]#_g121640_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121462 __tmp121598 '17 '#f '#f)) - (let ((__tmp121604 - (cons (cons 'super |gx[1]#_g121605_|) - (cons (cons 'up |gx[1]#_g121606_|) - (cons (cons 'down |gx[1]#_g121607_|) - (cons (cons 'id |gx[1]#_g121608_|) - (cons (cons 'table |gx[1]#_g121609_|) + (##unchecked-structure-set! __obj121499 __tmp121635 '17 '#f '#f)) + (let ((__tmp121641 + (cons (cons 'super |gx[1]#_g121642_|) + (cons (cons 'up |gx[1]#_g121643_|) + (cons (cons 'down |gx[1]#_g121644_|) + (cons (cons 'id |gx[1]#_g121645_|) + (cons (cons 'table |gx[1]#_g121646_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121462 __tmp121604 '18 '#f '#f)) + (##unchecked-structure-set! __obj121499 __tmp121641 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121462 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121499 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121462 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121499 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121462 '() '20 '#f '#f)) - __obj121462)) + (##unchecked-structure-set! __obj121499 '() '20 '#f '#f)) + __obj121499)) (define |gx[:0:]#top-context| - (let ((__obj121463 + (let ((__obj121500 (let () (declare (not safe)) (##structure @@ -3921,97 +3921,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121463 + __obj121500 'gx#top-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121463 'top-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121500 'top-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121463 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121500 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121463 + __obj121500 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121610 (cons |gx[1]#_g121611_| '()))) + (let ((__tmp121647 (cons |gx[1]#_g121648_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121463 __tmp121610 '3 '#f '#f)) + (##unchecked-structure-set! __obj121500 __tmp121647 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121463 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121500 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121463 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121500 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121463 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121500 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121463 '#f '11 '#f '#f)) - (let ((__tmp121612 |gx[1]#_g121613_|)) + (##unchecked-structure-set! __obj121500 '#f '11 '#f '#f)) + (let ((__tmp121649 |gx[1]#_g121650_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121463 __tmp121612 '12 '#f '#f)) - (let ((__tmp121614 |gx[1]#_g121615_|)) + (##unchecked-structure-set! __obj121500 __tmp121649 '12 '#f '#f)) + (let ((__tmp121651 |gx[1]#_g121652_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121463 __tmp121614 '13 '#f '#f)) - (let ((__tmp121616 |gx[1]#_g121617_|)) + (##unchecked-structure-set! __obj121500 __tmp121651 '13 '#f '#f)) + (let ((__tmp121653 |gx[1]#_g121654_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121463 __tmp121616 '14 '#f '#f)) - (let ((__tmp121618 - (cons (cons 'super |gx[1]#_g121619_|) - (cons (cons 'up |gx[1]#_g121620_|) - (cons (cons 'down |gx[1]#_g121621_|) - (cons (cons 'id |gx[1]#_g121622_|) - (cons (cons 'table |gx[1]#_g121623_|) + (##unchecked-structure-set! __obj121500 __tmp121653 '14 '#f '#f)) + (let ((__tmp121655 + (cons (cons 'super |gx[1]#_g121656_|) + (cons (cons 'up |gx[1]#_g121657_|) + (cons (cons 'down |gx[1]#_g121658_|) + (cons (cons 'id |gx[1]#_g121659_|) + (cons (cons 'table |gx[1]#_g121660_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121463 __tmp121618 '15 '#f '#f)) - (let ((__tmp121624 - (cons (cons 'super |gx[1]#_g121625_|) - (cons (cons 'up |gx[1]#_g121626_|) - (cons (cons 'down |gx[1]#_g121627_|) - (cons (cons 'id |gx[1]#_g121628_|) - (cons (cons 'table |gx[1]#_g121629_|) + (##unchecked-structure-set! __obj121500 __tmp121655 '15 '#f '#f)) + (let ((__tmp121661 + (cons (cons 'super |gx[1]#_g121662_|) + (cons (cons 'up |gx[1]#_g121663_|) + (cons (cons 'down |gx[1]#_g121664_|) + (cons (cons 'id |gx[1]#_g121665_|) + (cons (cons 'table |gx[1]#_g121666_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121463 __tmp121624 '16 '#f '#f)) - (let ((__tmp121630 - (cons (cons 'super |gx[1]#_g121631_|) - (cons (cons 'up |gx[1]#_g121632_|) - (cons (cons 'down |gx[1]#_g121633_|) - (cons (cons 'id |gx[1]#_g121634_|) - (cons (cons 'table |gx[1]#_g121635_|) + (##unchecked-structure-set! __obj121500 __tmp121661 '16 '#f '#f)) + (let ((__tmp121667 + (cons (cons 'super |gx[1]#_g121668_|) + (cons (cons 'up |gx[1]#_g121669_|) + (cons (cons 'down |gx[1]#_g121670_|) + (cons (cons 'id |gx[1]#_g121671_|) + (cons (cons 'table |gx[1]#_g121672_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121463 __tmp121630 '17 '#f '#f)) - (let ((__tmp121636 - (cons (cons 'super |gx[1]#_g121637_|) - (cons (cons 'up |gx[1]#_g121638_|) - (cons (cons 'down |gx[1]#_g121639_|) - (cons (cons 'id |gx[1]#_g121640_|) - (cons (cons 'table |gx[1]#_g121641_|) + (##unchecked-structure-set! __obj121500 __tmp121667 '17 '#f '#f)) + (let ((__tmp121673 + (cons (cons 'super |gx[1]#_g121674_|) + (cons (cons 'up |gx[1]#_g121675_|) + (cons (cons 'down |gx[1]#_g121676_|) + (cons (cons 'id |gx[1]#_g121677_|) + (cons (cons 'table |gx[1]#_g121678_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121463 __tmp121636 '18 '#f '#f)) + (##unchecked-structure-set! __obj121500 __tmp121673 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121463 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121500 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121463 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121500 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121463 '() '20 '#f '#f)) - __obj121463)) + (##unchecked-structure-set! __obj121500 '() '20 '#f '#f)) + __obj121500)) (define |gx[:0:]#module-context| - (let ((__obj121464 + (let ((__obj121501 (let () (declare (not safe)) (##structure @@ -4040,18 +4040,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121464 + __obj121501 'gx#module-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121464 'module-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121501 'module-context '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121464 + __obj121501 '(ns path import export e code) '4 '#f @@ -4059,127 +4059,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121464 + __obj121501 '(id table super up down ns path import export e code) '6 '#f '#f)) - (let ((__tmp121642 (cons |gx[1]#_g121643_| '()))) + (let ((__tmp121679 (cons |gx[1]#_g121680_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121464 __tmp121642 '3 '#f '#f)) + (##unchecked-structure-set! __obj121501 __tmp121679 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121464 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121501 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121464 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121501 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121464 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121501 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121464 '#f '11 '#f '#f)) - (let ((__tmp121644 |gx[1]#_g121645_|)) + (##unchecked-structure-set! __obj121501 '#f '11 '#f '#f)) + (let ((__tmp121681 |gx[1]#_g121682_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121464 __tmp121644 '12 '#f '#f)) - (let ((__tmp121646 |gx[1]#_g121647_|)) + (##unchecked-structure-set! __obj121501 __tmp121681 '12 '#f '#f)) + (let ((__tmp121683 |gx[1]#_g121684_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121464 __tmp121646 '13 '#f '#f)) - (let ((__tmp121648 |gx[1]#_g121649_|)) + (##unchecked-structure-set! __obj121501 __tmp121683 '13 '#f '#f)) + (let ((__tmp121685 |gx[1]#_g121686_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121464 __tmp121648 '14 '#f '#f)) - (let ((__tmp121650 - (cons (cons 'ns |gx[1]#_g121651_|) - (cons (cons 'path |gx[1]#_g121652_|) - (cons (cons 'import |gx[1]#_g121653_|) - (cons (cons 'export |gx[1]#_g121654_|) - (cons (cons 'e |gx[1]#_g121655_|) + (##unchecked-structure-set! __obj121501 __tmp121685 '14 '#f '#f)) + (let ((__tmp121687 + (cons (cons 'ns |gx[1]#_g121688_|) + (cons (cons 'path |gx[1]#_g121689_|) + (cons (cons 'import |gx[1]#_g121690_|) + (cons (cons 'export |gx[1]#_g121691_|) + (cons (cons 'e |gx[1]#_g121692_|) (cons (cons 'code - |gx[1]#_g121656_|) + |gx[1]#_g121693_|) (cons (cons 'super - |gx[1]#_g121657_|) + |gx[1]#_g121694_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121658_|) - (cons (cons 'down |gx[1]#_g121659_|) - (cons (cons 'id |gx[1]#_g121660_|) - (cons (cons 'table |gx[1]#_g121661_|) + |gx[1]#_g121695_|) + (cons (cons 'down |gx[1]#_g121696_|) + (cons (cons 'id |gx[1]#_g121697_|) + (cons (cons 'table |gx[1]#_g121698_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121464 __tmp121650 '15 '#f '#f)) - (let ((__tmp121662 - (cons (cons 'ns |gx[1]#_g121663_|) - (cons (cons 'path |gx[1]#_g121664_|) - (cons (cons 'import |gx[1]#_g121665_|) - (cons (cons 'export |gx[1]#_g121666_|) - (cons (cons 'e |gx[1]#_g121667_|) + (##unchecked-structure-set! __obj121501 __tmp121687 '15 '#f '#f)) + (let ((__tmp121699 + (cons (cons 'ns |gx[1]#_g121700_|) + (cons (cons 'path |gx[1]#_g121701_|) + (cons (cons 'import |gx[1]#_g121702_|) + (cons (cons 'export |gx[1]#_g121703_|) + (cons (cons 'e |gx[1]#_g121704_|) (cons (cons 'code - |gx[1]#_g121668_|) + |gx[1]#_g121705_|) (cons (cons 'super - |gx[1]#_g121669_|) + |gx[1]#_g121706_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121670_|) - (cons (cons 'down |gx[1]#_g121671_|) - (cons (cons 'id |gx[1]#_g121672_|) - (cons (cons 'table |gx[1]#_g121673_|) + |gx[1]#_g121707_|) + (cons (cons 'down |gx[1]#_g121708_|) + (cons (cons 'id |gx[1]#_g121709_|) + (cons (cons 'table |gx[1]#_g121710_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121464 __tmp121662 '16 '#f '#f)) - (let ((__tmp121674 - (cons (cons 'ns |gx[1]#_g121675_|) - (cons (cons 'path |gx[1]#_g121676_|) - (cons (cons 'import |gx[1]#_g121677_|) - (cons (cons 'export |gx[1]#_g121678_|) - (cons (cons 'e |gx[1]#_g121679_|) + (##unchecked-structure-set! __obj121501 __tmp121699 '16 '#f '#f)) + (let ((__tmp121711 + (cons (cons 'ns |gx[1]#_g121712_|) + (cons (cons 'path |gx[1]#_g121713_|) + (cons (cons 'import |gx[1]#_g121714_|) + (cons (cons 'export |gx[1]#_g121715_|) + (cons (cons 'e |gx[1]#_g121716_|) (cons (cons 'code - |gx[1]#_g121680_|) + |gx[1]#_g121717_|) (cons (cons 'super - |gx[1]#_g121681_|) + |gx[1]#_g121718_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121682_|) - (cons (cons 'down |gx[1]#_g121683_|) - (cons (cons 'id |gx[1]#_g121684_|) - (cons (cons 'table |gx[1]#_g121685_|) + |gx[1]#_g121719_|) + (cons (cons 'down |gx[1]#_g121720_|) + (cons (cons 'id |gx[1]#_g121721_|) + (cons (cons 'table |gx[1]#_g121722_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121464 __tmp121674 '17 '#f '#f)) - (let ((__tmp121686 - (cons (cons 'ns |gx[1]#_g121687_|) - (cons (cons 'path |gx[1]#_g121688_|) - (cons (cons 'import |gx[1]#_g121689_|) - (cons (cons 'export |gx[1]#_g121690_|) - (cons (cons 'e |gx[1]#_g121691_|) + (##unchecked-structure-set! __obj121501 __tmp121711 '17 '#f '#f)) + (let ((__tmp121723 + (cons (cons 'ns |gx[1]#_g121724_|) + (cons (cons 'path |gx[1]#_g121725_|) + (cons (cons 'import |gx[1]#_g121726_|) + (cons (cons 'export |gx[1]#_g121727_|) + (cons (cons 'e |gx[1]#_g121728_|) (cons (cons 'code - |gx[1]#_g121692_|) + |gx[1]#_g121729_|) (cons (cons 'super - |gx[1]#_g121693_|) + |gx[1]#_g121730_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121694_|) - (cons (cons 'down |gx[1]#_g121695_|) - (cons (cons 'id |gx[1]#_g121696_|) - (cons (cons 'table |gx[1]#_g121697_|) + |gx[1]#_g121731_|) + (cons (cons 'down |gx[1]#_g121732_|) + (cons (cons 'id |gx[1]#_g121733_|) + (cons (cons 'table |gx[1]#_g121734_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121464 __tmp121686 '18 '#f '#f)) + (##unchecked-structure-set! __obj121501 __tmp121723 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121464 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121501 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121464 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121501 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121464 '() '20 '#f '#f)) - __obj121464)) + (##unchecked-structure-set! __obj121501 '() '20 '#f '#f)) + __obj121501)) (define |gx[:0:]#prelude-context| - (let ((__obj121465 + (let ((__obj121502 (let () (declare (not safe)) (##structure @@ -4208,129 +4208,129 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121465 + __obj121502 'gx#prelude-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121465 'prelude-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121502 'prelude-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121465 '(path import e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121502 '(path import e) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121465 + __obj121502 '(id table super up down path import e) '6 '#f '#f)) - (let ((__tmp121698 (cons |gx[1]#_g121643_| '()))) + (let ((__tmp121735 (cons |gx[1]#_g121680_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121465 __tmp121698 '3 '#f '#f)) + (##unchecked-structure-set! __obj121502 __tmp121735 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121465 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121502 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121465 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121502 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121465 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121502 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121465 '#f '11 '#f '#f)) - (let ((__tmp121699 |gx[1]#_g121700_|)) + (##unchecked-structure-set! __obj121502 '#f '11 '#f '#f)) + (let ((__tmp121736 |gx[1]#_g121737_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121465 __tmp121699 '12 '#f '#f)) - (let ((__tmp121701 |gx[1]#_g121702_|)) + (##unchecked-structure-set! __obj121502 __tmp121736 '12 '#f '#f)) + (let ((__tmp121738 |gx[1]#_g121739_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121465 __tmp121701 '13 '#f '#f)) - (let ((__tmp121703 |gx[1]#_g121704_|)) + (##unchecked-structure-set! __obj121502 __tmp121738 '13 '#f '#f)) + (let ((__tmp121740 |gx[1]#_g121741_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121465 __tmp121703 '14 '#f '#f)) - (let ((__tmp121705 - (cons (cons 'path |gx[1]#_g121706_|) - (cons (cons 'import |gx[1]#_g121707_|) - (cons (cons 'e |gx[1]#_g121708_|) - (cons (cons 'super |gx[1]#_g121709_|) - (cons (cons 'up |gx[1]#_g121710_|) + (##unchecked-structure-set! __obj121502 __tmp121740 '14 '#f '#f)) + (let ((__tmp121742 + (cons (cons 'path |gx[1]#_g121743_|) + (cons (cons 'import |gx[1]#_g121744_|) + (cons (cons 'e |gx[1]#_g121745_|) + (cons (cons 'super |gx[1]#_g121746_|) + (cons (cons 'up |gx[1]#_g121747_|) (cons (cons 'down - |gx[1]#_g121711_|) + |gx[1]#_g121748_|) (cons (cons 'id - |gx[1]#_g121712_|) + |gx[1]#_g121749_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121713_|) + |gx[1]#_g121750_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121465 __tmp121705 '15 '#f '#f)) - (let ((__tmp121714 - (cons (cons 'path |gx[1]#_g121715_|) - (cons (cons 'import |gx[1]#_g121716_|) - (cons (cons 'e |gx[1]#_g121717_|) - (cons (cons 'super |gx[1]#_g121718_|) - (cons (cons 'up |gx[1]#_g121719_|) + (##unchecked-structure-set! __obj121502 __tmp121742 '15 '#f '#f)) + (let ((__tmp121751 + (cons (cons 'path |gx[1]#_g121752_|) + (cons (cons 'import |gx[1]#_g121753_|) + (cons (cons 'e |gx[1]#_g121754_|) + (cons (cons 'super |gx[1]#_g121755_|) + (cons (cons 'up |gx[1]#_g121756_|) (cons (cons 'down - |gx[1]#_g121720_|) + |gx[1]#_g121757_|) (cons (cons 'id - |gx[1]#_g121721_|) + |gx[1]#_g121758_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121722_|) + |gx[1]#_g121759_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121465 __tmp121714 '16 '#f '#f)) - (let ((__tmp121723 - (cons (cons 'path |gx[1]#_g121724_|) - (cons (cons 'import |gx[1]#_g121725_|) - (cons (cons 'e |gx[1]#_g121726_|) - (cons (cons 'super |gx[1]#_g121727_|) - (cons (cons 'up |gx[1]#_g121728_|) + (##unchecked-structure-set! __obj121502 __tmp121751 '16 '#f '#f)) + (let ((__tmp121760 + (cons (cons 'path |gx[1]#_g121761_|) + (cons (cons 'import |gx[1]#_g121762_|) + (cons (cons 'e |gx[1]#_g121763_|) + (cons (cons 'super |gx[1]#_g121764_|) + (cons (cons 'up |gx[1]#_g121765_|) (cons (cons 'down - |gx[1]#_g121729_|) + |gx[1]#_g121766_|) (cons (cons 'id - |gx[1]#_g121730_|) + |gx[1]#_g121767_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121731_|) + |gx[1]#_g121768_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121465 __tmp121723 '17 '#f '#f)) - (let ((__tmp121732 - (cons (cons 'path |gx[1]#_g121733_|) - (cons (cons 'import |gx[1]#_g121734_|) - (cons (cons 'e |gx[1]#_g121735_|) - (cons (cons 'super |gx[1]#_g121736_|) - (cons (cons 'up |gx[1]#_g121737_|) + (##unchecked-structure-set! __obj121502 __tmp121760 '17 '#f '#f)) + (let ((__tmp121769 + (cons (cons 'path |gx[1]#_g121770_|) + (cons (cons 'import |gx[1]#_g121771_|) + (cons (cons 'e |gx[1]#_g121772_|) + (cons (cons 'super |gx[1]#_g121773_|) + (cons (cons 'up |gx[1]#_g121774_|) (cons (cons 'down - |gx[1]#_g121738_|) + |gx[1]#_g121775_|) (cons (cons 'id - |gx[1]#_g121739_|) + |gx[1]#_g121776_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121740_|) + |gx[1]#_g121777_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121465 __tmp121732 '18 '#f '#f)) + (##unchecked-structure-set! __obj121502 __tmp121769 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121465 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121502 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121465 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121502 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121465 '() '20 '#f '#f)) - __obj121465)) + (##unchecked-structure-set! __obj121502 '() '20 '#f '#f)) + __obj121502)) (define |gx[:0:]#local-context| - (let ((__obj121466 + (let ((__obj121503 (let () (declare (not safe)) (##structure @@ -4359,97 +4359,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121466 + __obj121503 'gx#local-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121466 'local-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121503 'local-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121466 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121503 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121466 + __obj121503 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121741 (cons |gx[1]#_g121611_| '()))) + (let ((__tmp121778 (cons |gx[1]#_g121648_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121466 __tmp121741 '3 '#f '#f)) + (##unchecked-structure-set! __obj121503 __tmp121778 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121466 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121503 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121466 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121503 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121466 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121503 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121466 '#f '11 '#f '#f)) - (let ((__tmp121742 |gx[1]#_g121743_|)) + (##unchecked-structure-set! __obj121503 '#f '11 '#f '#f)) + (let ((__tmp121779 |gx[1]#_g121780_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121466 __tmp121742 '12 '#f '#f)) - (let ((__tmp121744 |gx[1]#_g121745_|)) + (##unchecked-structure-set! __obj121503 __tmp121779 '12 '#f '#f)) + (let ((__tmp121781 |gx[1]#_g121782_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121466 __tmp121744 '13 '#f '#f)) - (let ((__tmp121746 |gx[1]#_g121747_|)) + (##unchecked-structure-set! __obj121503 __tmp121781 '13 '#f '#f)) + (let ((__tmp121783 |gx[1]#_g121784_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121466 __tmp121746 '14 '#f '#f)) - (let ((__tmp121748 - (cons (cons 'super |gx[1]#_g121749_|) - (cons (cons 'up |gx[1]#_g121750_|) - (cons (cons 'down |gx[1]#_g121751_|) - (cons (cons 'id |gx[1]#_g121752_|) - (cons (cons 'table |gx[1]#_g121753_|) + (##unchecked-structure-set! __obj121503 __tmp121783 '14 '#f '#f)) + (let ((__tmp121785 + (cons (cons 'super |gx[1]#_g121786_|) + (cons (cons 'up |gx[1]#_g121787_|) + (cons (cons 'down |gx[1]#_g121788_|) + (cons (cons 'id |gx[1]#_g121789_|) + (cons (cons 'table |gx[1]#_g121790_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121466 __tmp121748 '15 '#f '#f)) - (let ((__tmp121754 - (cons (cons 'super |gx[1]#_g121755_|) - (cons (cons 'up |gx[1]#_g121756_|) - (cons (cons 'down |gx[1]#_g121757_|) - (cons (cons 'id |gx[1]#_g121758_|) - (cons (cons 'table |gx[1]#_g121759_|) + (##unchecked-structure-set! __obj121503 __tmp121785 '15 '#f '#f)) + (let ((__tmp121791 + (cons (cons 'super |gx[1]#_g121792_|) + (cons (cons 'up |gx[1]#_g121793_|) + (cons (cons 'down |gx[1]#_g121794_|) + (cons (cons 'id |gx[1]#_g121795_|) + (cons (cons 'table |gx[1]#_g121796_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121466 __tmp121754 '16 '#f '#f)) - (let ((__tmp121760 - (cons (cons 'super |gx[1]#_g121761_|) - (cons (cons 'up |gx[1]#_g121762_|) - (cons (cons 'down |gx[1]#_g121763_|) - (cons (cons 'id |gx[1]#_g121764_|) - (cons (cons 'table |gx[1]#_g121765_|) + (##unchecked-structure-set! __obj121503 __tmp121791 '16 '#f '#f)) + (let ((__tmp121797 + (cons (cons 'super |gx[1]#_g121798_|) + (cons (cons 'up |gx[1]#_g121799_|) + (cons (cons 'down |gx[1]#_g121800_|) + (cons (cons 'id |gx[1]#_g121801_|) + (cons (cons 'table |gx[1]#_g121802_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121466 __tmp121760 '17 '#f '#f)) - (let ((__tmp121766 - (cons (cons 'super |gx[1]#_g121767_|) - (cons (cons 'up |gx[1]#_g121768_|) - (cons (cons 'down |gx[1]#_g121769_|) - (cons (cons 'id |gx[1]#_g121770_|) - (cons (cons 'table |gx[1]#_g121771_|) + (##unchecked-structure-set! __obj121503 __tmp121797 '17 '#f '#f)) + (let ((__tmp121803 + (cons (cons 'super |gx[1]#_g121804_|) + (cons (cons 'up |gx[1]#_g121805_|) + (cons (cons 'down |gx[1]#_g121806_|) + (cons (cons 'id |gx[1]#_g121807_|) + (cons (cons 'table |gx[1]#_g121808_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121466 __tmp121766 '18 '#f '#f)) + (##unchecked-structure-set! __obj121503 __tmp121803 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121466 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121503 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121466 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121503 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121466 '() '20 '#f '#f)) - __obj121466)) + (##unchecked-structure-set! __obj121503 '() '20 '#f '#f)) + __obj121503)) (define |gx[:0:]#binding| - (let ((__obj121467 + (let ((__obj121504 (let () (declare (not safe)) (##structure @@ -4477,76 +4477,76 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 'gx#binding::t '1 '#f '#f)) + (##unchecked-structure-set! __obj121504 'gx#binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 'binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121504 'binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 '(id key phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj121504 '(id key phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 '(id key phi) '6 '#f '#f)) + (##unchecked-structure-set! __obj121504 '(id key phi) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121504 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121504 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121504 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121504 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 '#f '11 '#f '#f)) - (let ((__tmp121772 |gx[1]#_g121773_|)) + (##unchecked-structure-set! __obj121504 '#f '11 '#f '#f)) + (let ((__tmp121809 |gx[1]#_g121810_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121467 __tmp121772 '12 '#f '#f)) - (let ((__tmp121774 |gx[1]#_g121775_|)) + (##unchecked-structure-set! __obj121504 __tmp121809 '12 '#f '#f)) + (let ((__tmp121811 |gx[1]#_g121812_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121467 __tmp121774 '13 '#f '#f)) - (let ((__tmp121776 |gx[1]#_g121777_|)) + (##unchecked-structure-set! __obj121504 __tmp121811 '13 '#f '#f)) + (let ((__tmp121813 |gx[1]#_g121814_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121467 __tmp121776 '14 '#f '#f)) - (let ((__tmp121778 - (cons (cons 'id |gx[1]#_g121779_|) - (cons (cons 'key |gx[1]#_g121780_|) - (cons (cons 'phi |gx[1]#_g121781_|) '()))))) + (##unchecked-structure-set! __obj121504 __tmp121813 '14 '#f '#f)) + (let ((__tmp121815 + (cons (cons 'id |gx[1]#_g121816_|) + (cons (cons 'key |gx[1]#_g121817_|) + (cons (cons 'phi |gx[1]#_g121818_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121467 __tmp121778 '15 '#f '#f)) - (let ((__tmp121782 - (cons (cons 'id |gx[1]#_g121783_|) - (cons (cons 'key |gx[1]#_g121784_|) - (cons (cons 'phi |gx[1]#_g121785_|) '()))))) + (##unchecked-structure-set! __obj121504 __tmp121815 '15 '#f '#f)) + (let ((__tmp121819 + (cons (cons 'id |gx[1]#_g121820_|) + (cons (cons 'key |gx[1]#_g121821_|) + (cons (cons 'phi |gx[1]#_g121822_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121467 __tmp121782 '16 '#f '#f)) - (let ((__tmp121786 - (cons (cons 'id |gx[1]#_g121787_|) - (cons (cons 'key |gx[1]#_g121788_|) - (cons (cons 'phi |gx[1]#_g121789_|) '()))))) + (##unchecked-structure-set! __obj121504 __tmp121819 '16 '#f '#f)) + (let ((__tmp121823 + (cons (cons 'id |gx[1]#_g121824_|) + (cons (cons 'key |gx[1]#_g121825_|) + (cons (cons 'phi |gx[1]#_g121826_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121467 __tmp121786 '17 '#f '#f)) - (let ((__tmp121790 - (cons (cons 'id |gx[1]#_g121791_|) - (cons (cons 'key |gx[1]#_g121792_|) - (cons (cons 'phi |gx[1]#_g121793_|) '()))))) + (##unchecked-structure-set! __obj121504 __tmp121823 '17 '#f '#f)) + (let ((__tmp121827 + (cons (cons 'id |gx[1]#_g121828_|) + (cons (cons 'key |gx[1]#_g121829_|) + (cons (cons 'phi |gx[1]#_g121830_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121467 __tmp121790 '18 '#f '#f)) + (##unchecked-structure-set! __obj121504 __tmp121827 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121504 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121504 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121467 '() '20 '#f '#f)) - __obj121467)) + (##unchecked-structure-set! __obj121504 '() '20 '#f '#f)) + __obj121504)) (define |gx[:0:]#runtime-binding| - (let ((__obj121468 + (let ((__obj121505 (let () (declare (not safe)) (##structure @@ -4575,80 +4575,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121468 + __obj121505 'gx#runtime-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121468 'runtime-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121505 'runtime-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121468 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121505 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121468 '(id key phi) '6 '#f '#f)) - (let ((__tmp121794 (cons |gx[1]#_g121795_| '()))) + (##unchecked-structure-set! __obj121505 '(id key phi) '6 '#f '#f)) + (let ((__tmp121831 (cons |gx[1]#_g121832_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121468 __tmp121794 '3 '#f '#f)) + (##unchecked-structure-set! __obj121505 __tmp121831 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121468 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121505 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121468 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121505 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121468 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121505 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121468 '#f '11 '#f '#f)) - (let ((__tmp121796 |gx[1]#_g121797_|)) + (##unchecked-structure-set! __obj121505 '#f '11 '#f '#f)) + (let ((__tmp121833 |gx[1]#_g121834_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121468 __tmp121796 '12 '#f '#f)) - (let ((__tmp121798 |gx[1]#_g121799_|)) + (##unchecked-structure-set! __obj121505 __tmp121833 '12 '#f '#f)) + (let ((__tmp121835 |gx[1]#_g121836_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121468 __tmp121798 '13 '#f '#f)) - (let ((__tmp121800 |gx[1]#_g121801_|)) + (##unchecked-structure-set! __obj121505 __tmp121835 '13 '#f '#f)) + (let ((__tmp121837 |gx[1]#_g121838_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121468 __tmp121800 '14 '#f '#f)) - (let ((__tmp121802 - (cons (cons 'id |gx[1]#_g121803_|) - (cons (cons 'key |gx[1]#_g121804_|) - (cons (cons 'phi |gx[1]#_g121805_|) '()))))) + (##unchecked-structure-set! __obj121505 __tmp121837 '14 '#f '#f)) + (let ((__tmp121839 + (cons (cons 'id |gx[1]#_g121840_|) + (cons (cons 'key |gx[1]#_g121841_|) + (cons (cons 'phi |gx[1]#_g121842_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121468 __tmp121802 '15 '#f '#f)) - (let ((__tmp121806 - (cons (cons 'id |gx[1]#_g121807_|) - (cons (cons 'key |gx[1]#_g121808_|) - (cons (cons 'phi |gx[1]#_g121809_|) '()))))) + (##unchecked-structure-set! __obj121505 __tmp121839 '15 '#f '#f)) + (let ((__tmp121843 + (cons (cons 'id |gx[1]#_g121844_|) + (cons (cons 'key |gx[1]#_g121845_|) + (cons (cons 'phi |gx[1]#_g121846_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121468 __tmp121806 '16 '#f '#f)) - (let ((__tmp121810 - (cons (cons 'id |gx[1]#_g121811_|) - (cons (cons 'key |gx[1]#_g121812_|) - (cons (cons 'phi |gx[1]#_g121813_|) '()))))) + (##unchecked-structure-set! __obj121505 __tmp121843 '16 '#f '#f)) + (let ((__tmp121847 + (cons (cons 'id |gx[1]#_g121848_|) + (cons (cons 'key |gx[1]#_g121849_|) + (cons (cons 'phi |gx[1]#_g121850_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121468 __tmp121810 '17 '#f '#f)) - (let ((__tmp121814 - (cons (cons 'id |gx[1]#_g121815_|) - (cons (cons 'key |gx[1]#_g121816_|) - (cons (cons 'phi |gx[1]#_g121817_|) '()))))) + (##unchecked-structure-set! __obj121505 __tmp121847 '17 '#f '#f)) + (let ((__tmp121851 + (cons (cons 'id |gx[1]#_g121852_|) + (cons (cons 'key |gx[1]#_g121853_|) + (cons (cons 'phi |gx[1]#_g121854_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121468 __tmp121814 '18 '#f '#f)) + (##unchecked-structure-set! __obj121505 __tmp121851 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121468 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121505 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121468 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121505 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121468 '() '20 '#f '#f)) - __obj121468)) + (##unchecked-structure-set! __obj121505 '() '20 '#f '#f)) + __obj121505)) (define |gx[:0:]#local-binding| - (let ((__obj121469 + (let ((__obj121506 (let () (declare (not safe)) (##structure @@ -4677,80 +4677,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121469 + __obj121506 'gx#local-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121469 'local-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121506 'local-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121469 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121506 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121469 '(id key phi) '6 '#f '#f)) - (let ((__tmp121818 (cons |gx[1]#_g121819_| '()))) + (##unchecked-structure-set! __obj121506 '(id key phi) '6 '#f '#f)) + (let ((__tmp121855 (cons |gx[1]#_g121856_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121469 __tmp121818 '3 '#f '#f)) + (##unchecked-structure-set! __obj121506 __tmp121855 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121469 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121506 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121469 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121506 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121469 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121506 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121469 '#f '11 '#f '#f)) - (let ((__tmp121820 |gx[1]#_g121821_|)) + (##unchecked-structure-set! __obj121506 '#f '11 '#f '#f)) + (let ((__tmp121857 |gx[1]#_g121858_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121469 __tmp121820 '12 '#f '#f)) - (let ((__tmp121822 |gx[1]#_g121823_|)) + (##unchecked-structure-set! __obj121506 __tmp121857 '12 '#f '#f)) + (let ((__tmp121859 |gx[1]#_g121860_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121469 __tmp121822 '13 '#f '#f)) - (let ((__tmp121824 |gx[1]#_g121825_|)) + (##unchecked-structure-set! __obj121506 __tmp121859 '13 '#f '#f)) + (let ((__tmp121861 |gx[1]#_g121862_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121469 __tmp121824 '14 '#f '#f)) - (let ((__tmp121826 - (cons (cons 'id |gx[1]#_g121827_|) - (cons (cons 'key |gx[1]#_g121828_|) - (cons (cons 'phi |gx[1]#_g121829_|) '()))))) + (##unchecked-structure-set! __obj121506 __tmp121861 '14 '#f '#f)) + (let ((__tmp121863 + (cons (cons 'id |gx[1]#_g121864_|) + (cons (cons 'key |gx[1]#_g121865_|) + (cons (cons 'phi |gx[1]#_g121866_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121469 __tmp121826 '15 '#f '#f)) - (let ((__tmp121830 - (cons (cons 'id |gx[1]#_g121831_|) - (cons (cons 'key |gx[1]#_g121832_|) - (cons (cons 'phi |gx[1]#_g121833_|) '()))))) + (##unchecked-structure-set! __obj121506 __tmp121863 '15 '#f '#f)) + (let ((__tmp121867 + (cons (cons 'id |gx[1]#_g121868_|) + (cons (cons 'key |gx[1]#_g121869_|) + (cons (cons 'phi |gx[1]#_g121870_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121469 __tmp121830 '16 '#f '#f)) - (let ((__tmp121834 - (cons (cons 'id |gx[1]#_g121835_|) - (cons (cons 'key |gx[1]#_g121836_|) - (cons (cons 'phi |gx[1]#_g121837_|) '()))))) + (##unchecked-structure-set! __obj121506 __tmp121867 '16 '#f '#f)) + (let ((__tmp121871 + (cons (cons 'id |gx[1]#_g121872_|) + (cons (cons 'key |gx[1]#_g121873_|) + (cons (cons 'phi |gx[1]#_g121874_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121469 __tmp121834 '17 '#f '#f)) - (let ((__tmp121838 - (cons (cons 'id |gx[1]#_g121839_|) - (cons (cons 'key |gx[1]#_g121840_|) - (cons (cons 'phi |gx[1]#_g121841_|) '()))))) + (##unchecked-structure-set! __obj121506 __tmp121871 '17 '#f '#f)) + (let ((__tmp121875 + (cons (cons 'id |gx[1]#_g121876_|) + (cons (cons 'key |gx[1]#_g121877_|) + (cons (cons 'phi |gx[1]#_g121878_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121469 __tmp121838 '18 '#f '#f)) + (##unchecked-structure-set! __obj121506 __tmp121875 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121469 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121506 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121469 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121506 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121469 '() '20 '#f '#f)) - __obj121469)) + (##unchecked-structure-set! __obj121506 '() '20 '#f '#f)) + __obj121506)) (define |gx[:0:]#top-binding| - (let ((__obj121470 + (let ((__obj121507 (let () (declare (not safe)) (##structure @@ -4779,80 +4779,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121470 + __obj121507 'gx#top-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121470 'top-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121507 'top-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121470 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121507 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121470 '(id key phi) '6 '#f '#f)) - (let ((__tmp121842 (cons |gx[1]#_g121819_| '()))) + (##unchecked-structure-set! __obj121507 '(id key phi) '6 '#f '#f)) + (let ((__tmp121879 (cons |gx[1]#_g121856_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121470 __tmp121842 '3 '#f '#f)) + (##unchecked-structure-set! __obj121507 __tmp121879 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121470 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121507 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121470 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121507 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121470 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121507 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121470 '#f '11 '#f '#f)) - (let ((__tmp121843 |gx[1]#_g121844_|)) + (##unchecked-structure-set! __obj121507 '#f '11 '#f '#f)) + (let ((__tmp121880 |gx[1]#_g121881_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121470 __tmp121843 '12 '#f '#f)) - (let ((__tmp121845 |gx[1]#_g121846_|)) + (##unchecked-structure-set! __obj121507 __tmp121880 '12 '#f '#f)) + (let ((__tmp121882 |gx[1]#_g121883_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121470 __tmp121845 '13 '#f '#f)) - (let ((__tmp121847 |gx[1]#_g121848_|)) + (##unchecked-structure-set! __obj121507 __tmp121882 '13 '#f '#f)) + (let ((__tmp121884 |gx[1]#_g121885_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121470 __tmp121847 '14 '#f '#f)) - (let ((__tmp121849 - (cons (cons 'id |gx[1]#_g121850_|) - (cons (cons 'key |gx[1]#_g121851_|) - (cons (cons 'phi |gx[1]#_g121852_|) '()))))) + (##unchecked-structure-set! __obj121507 __tmp121884 '14 '#f '#f)) + (let ((__tmp121886 + (cons (cons 'id |gx[1]#_g121887_|) + (cons (cons 'key |gx[1]#_g121888_|) + (cons (cons 'phi |gx[1]#_g121889_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121470 __tmp121849 '15 '#f '#f)) - (let ((__tmp121853 - (cons (cons 'id |gx[1]#_g121854_|) - (cons (cons 'key |gx[1]#_g121855_|) - (cons (cons 'phi |gx[1]#_g121856_|) '()))))) + (##unchecked-structure-set! __obj121507 __tmp121886 '15 '#f '#f)) + (let ((__tmp121890 + (cons (cons 'id |gx[1]#_g121891_|) + (cons (cons 'key |gx[1]#_g121892_|) + (cons (cons 'phi |gx[1]#_g121893_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121470 __tmp121853 '16 '#f '#f)) - (let ((__tmp121857 - (cons (cons 'id |gx[1]#_g121858_|) - (cons (cons 'key |gx[1]#_g121859_|) - (cons (cons 'phi |gx[1]#_g121860_|) '()))))) + (##unchecked-structure-set! __obj121507 __tmp121890 '16 '#f '#f)) + (let ((__tmp121894 + (cons (cons 'id |gx[1]#_g121895_|) + (cons (cons 'key |gx[1]#_g121896_|) + (cons (cons 'phi |gx[1]#_g121897_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121470 __tmp121857 '17 '#f '#f)) - (let ((__tmp121861 - (cons (cons 'id |gx[1]#_g121862_|) - (cons (cons 'key |gx[1]#_g121863_|) - (cons (cons 'phi |gx[1]#_g121864_|) '()))))) + (##unchecked-structure-set! __obj121507 __tmp121894 '17 '#f '#f)) + (let ((__tmp121898 + (cons (cons 'id |gx[1]#_g121899_|) + (cons (cons 'key |gx[1]#_g121900_|) + (cons (cons 'phi |gx[1]#_g121901_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121470 __tmp121861 '18 '#f '#f)) + (##unchecked-structure-set! __obj121507 __tmp121898 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121470 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121507 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121470 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121507 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121470 '() '20 '#f '#f)) - __obj121470)) + (##unchecked-structure-set! __obj121507 '() '20 '#f '#f)) + __obj121507)) (define |gx[:0:]#module-binding| - (let ((__obj121471 + (let ((__obj121508 (let () (declare (not safe)) (##structure @@ -4881,89 +4881,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121471 + __obj121508 'gx#module-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121471 'module-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121508 'module-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121471 '(context) '4 '#f '#f)) + (##unchecked-structure-set! __obj121508 '(context) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121471 + __obj121508 '(id key phi context) '6 '#f '#f)) - (let ((__tmp121865 (cons |gx[1]#_g121866_| '()))) + (let ((__tmp121902 (cons |gx[1]#_g121903_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121471 __tmp121865 '3 '#f '#f)) + (##unchecked-structure-set! __obj121508 __tmp121902 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121471 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121508 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121471 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121508 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121471 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121508 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121471 '#f '11 '#f '#f)) - (let ((__tmp121867 |gx[1]#_g121868_|)) + (##unchecked-structure-set! __obj121508 '#f '11 '#f '#f)) + (let ((__tmp121904 |gx[1]#_g121905_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121471 __tmp121867 '12 '#f '#f)) - (let ((__tmp121869 |gx[1]#_g121870_|)) + (##unchecked-structure-set! __obj121508 __tmp121904 '12 '#f '#f)) + (let ((__tmp121906 |gx[1]#_g121907_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121471 __tmp121869 '13 '#f '#f)) - (let ((__tmp121871 |gx[1]#_g121872_|)) + (##unchecked-structure-set! __obj121508 __tmp121906 '13 '#f '#f)) + (let ((__tmp121908 |gx[1]#_g121909_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121471 __tmp121871 '14 '#f '#f)) - (let ((__tmp121873 - (cons (cons 'context |gx[1]#_g121874_|) - (cons (cons 'id |gx[1]#_g121875_|) - (cons (cons 'key |gx[1]#_g121876_|) - (cons (cons 'phi |gx[1]#_g121877_|) '())))))) + (##unchecked-structure-set! __obj121508 __tmp121908 '14 '#f '#f)) + (let ((__tmp121910 + (cons (cons 'context |gx[1]#_g121911_|) + (cons (cons 'id |gx[1]#_g121912_|) + (cons (cons 'key |gx[1]#_g121913_|) + (cons (cons 'phi |gx[1]#_g121914_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121471 __tmp121873 '15 '#f '#f)) - (let ((__tmp121878 - (cons (cons 'context |gx[1]#_g121879_|) - (cons (cons 'id |gx[1]#_g121880_|) - (cons (cons 'key |gx[1]#_g121881_|) - (cons (cons 'phi |gx[1]#_g121882_|) '())))))) + (##unchecked-structure-set! __obj121508 __tmp121910 '15 '#f '#f)) + (let ((__tmp121915 + (cons (cons 'context |gx[1]#_g121916_|) + (cons (cons 'id |gx[1]#_g121917_|) + (cons (cons 'key |gx[1]#_g121918_|) + (cons (cons 'phi |gx[1]#_g121919_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121471 __tmp121878 '16 '#f '#f)) - (let ((__tmp121883 - (cons (cons 'context |gx[1]#_g121884_|) - (cons (cons 'id |gx[1]#_g121885_|) - (cons (cons 'key |gx[1]#_g121886_|) - (cons (cons 'phi |gx[1]#_g121887_|) '())))))) + (##unchecked-structure-set! __obj121508 __tmp121915 '16 '#f '#f)) + (let ((__tmp121920 + (cons (cons 'context |gx[1]#_g121921_|) + (cons (cons 'id |gx[1]#_g121922_|) + (cons (cons 'key |gx[1]#_g121923_|) + (cons (cons 'phi |gx[1]#_g121924_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121471 __tmp121883 '17 '#f '#f)) - (let ((__tmp121888 - (cons (cons 'context |gx[1]#_g121889_|) - (cons (cons 'id |gx[1]#_g121890_|) - (cons (cons 'key |gx[1]#_g121891_|) - (cons (cons 'phi |gx[1]#_g121892_|) '())))))) + (##unchecked-structure-set! __obj121508 __tmp121920 '17 '#f '#f)) + (let ((__tmp121925 + (cons (cons 'context |gx[1]#_g121926_|) + (cons (cons 'id |gx[1]#_g121927_|) + (cons (cons 'key |gx[1]#_g121928_|) + (cons (cons 'phi |gx[1]#_g121929_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121471 __tmp121888 '18 '#f '#f)) + (##unchecked-structure-set! __obj121508 __tmp121925 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121471 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121508 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121471 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121508 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121471 '() '20 '#f '#f)) - __obj121471)) + (##unchecked-structure-set! __obj121508 '() '20 '#f '#f)) + __obj121508)) (define |gx[:0:]#extern-binding| - (let ((__obj121472 + (let ((__obj121509 (let () (declare (not safe)) (##structure @@ -4992,80 +4992,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121472 + __obj121509 'gx#extern-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121472 'extern-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121509 'extern-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121472 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121509 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121472 '(id key phi) '6 '#f '#f)) - (let ((__tmp121893 (cons |gx[1]#_g121866_| '()))) + (##unchecked-structure-set! __obj121509 '(id key phi) '6 '#f '#f)) + (let ((__tmp121930 (cons |gx[1]#_g121903_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121472 __tmp121893 '3 '#f '#f)) + (##unchecked-structure-set! __obj121509 __tmp121930 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121472 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121509 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121472 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121509 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121472 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121509 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121472 '#f '11 '#f '#f)) - (let ((__tmp121894 |gx[1]#_g121895_|)) + (##unchecked-structure-set! __obj121509 '#f '11 '#f '#f)) + (let ((__tmp121931 |gx[1]#_g121932_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121472 __tmp121894 '12 '#f '#f)) - (let ((__tmp121896 |gx[1]#_g121897_|)) + (##unchecked-structure-set! __obj121509 __tmp121931 '12 '#f '#f)) + (let ((__tmp121933 |gx[1]#_g121934_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121472 __tmp121896 '13 '#f '#f)) - (let ((__tmp121898 |gx[1]#_g121899_|)) + (##unchecked-structure-set! __obj121509 __tmp121933 '13 '#f '#f)) + (let ((__tmp121935 |gx[1]#_g121936_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121472 __tmp121898 '14 '#f '#f)) - (let ((__tmp121900 - (cons (cons 'id |gx[1]#_g121901_|) - (cons (cons 'key |gx[1]#_g121902_|) - (cons (cons 'phi |gx[1]#_g121903_|) '()))))) + (##unchecked-structure-set! __obj121509 __tmp121935 '14 '#f '#f)) + (let ((__tmp121937 + (cons (cons 'id |gx[1]#_g121938_|) + (cons (cons 'key |gx[1]#_g121939_|) + (cons (cons 'phi |gx[1]#_g121940_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121472 __tmp121900 '15 '#f '#f)) - (let ((__tmp121904 - (cons (cons 'id |gx[1]#_g121905_|) - (cons (cons 'key |gx[1]#_g121906_|) - (cons (cons 'phi |gx[1]#_g121907_|) '()))))) + (##unchecked-structure-set! __obj121509 __tmp121937 '15 '#f '#f)) + (let ((__tmp121941 + (cons (cons 'id |gx[1]#_g121942_|) + (cons (cons 'key |gx[1]#_g121943_|) + (cons (cons 'phi |gx[1]#_g121944_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121472 __tmp121904 '16 '#f '#f)) - (let ((__tmp121908 - (cons (cons 'id |gx[1]#_g121909_|) - (cons (cons 'key |gx[1]#_g121910_|) - (cons (cons 'phi |gx[1]#_g121911_|) '()))))) + (##unchecked-structure-set! __obj121509 __tmp121941 '16 '#f '#f)) + (let ((__tmp121945 + (cons (cons 'id |gx[1]#_g121946_|) + (cons (cons 'key |gx[1]#_g121947_|) + (cons (cons 'phi |gx[1]#_g121948_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121472 __tmp121908 '17 '#f '#f)) - (let ((__tmp121912 - (cons (cons 'id |gx[1]#_g121913_|) - (cons (cons 'key |gx[1]#_g121914_|) - (cons (cons 'phi |gx[1]#_g121915_|) '()))))) + (##unchecked-structure-set! __obj121509 __tmp121945 '17 '#f '#f)) + (let ((__tmp121949 + (cons (cons 'id |gx[1]#_g121950_|) + (cons (cons 'key |gx[1]#_g121951_|) + (cons (cons 'phi |gx[1]#_g121952_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121472 __tmp121912 '18 '#f '#f)) + (##unchecked-structure-set! __obj121509 __tmp121949 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121472 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121509 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121472 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121509 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121472 '() '20 '#f '#f)) - __obj121472)) + (##unchecked-structure-set! __obj121509 '() '20 '#f '#f)) + __obj121509)) (define |gx[:0:]#syntax-binding| - (let ((__obj121473 + (let ((__obj121510 (let () (declare (not safe)) (##structure @@ -5094,84 +5094,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121473 + __obj121510 'gx#syntax-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121473 'syntax-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121510 'syntax-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121473 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121510 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121473 '(id key phi e) '6 '#f '#f)) - (let ((__tmp121916 (cons |gx[1]#_g121795_| '()))) + (##unchecked-structure-set! __obj121510 '(id key phi e) '6 '#f '#f)) + (let ((__tmp121953 (cons |gx[1]#_g121832_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121473 __tmp121916 '3 '#f '#f)) + (##unchecked-structure-set! __obj121510 __tmp121953 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121473 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121510 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121473 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121510 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121473 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121510 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121473 '#f '11 '#f '#f)) - (let ((__tmp121917 |gx[1]#_g121918_|)) + (##unchecked-structure-set! __obj121510 '#f '11 '#f '#f)) + (let ((__tmp121954 |gx[1]#_g121955_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121473 __tmp121917 '12 '#f '#f)) - (let ((__tmp121919 |gx[1]#_g121920_|)) + (##unchecked-structure-set! __obj121510 __tmp121954 '12 '#f '#f)) + (let ((__tmp121956 |gx[1]#_g121957_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121473 __tmp121919 '13 '#f '#f)) - (let ((__tmp121921 |gx[1]#_g121922_|)) + (##unchecked-structure-set! __obj121510 __tmp121956 '13 '#f '#f)) + (let ((__tmp121958 |gx[1]#_g121959_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121473 __tmp121921 '14 '#f '#f)) - (let ((__tmp121923 - (cons (cons 'e |gx[1]#_g121924_|) - (cons (cons 'id |gx[1]#_g121925_|) - (cons (cons 'key |gx[1]#_g121926_|) - (cons (cons 'phi |gx[1]#_g121927_|) '())))))) + (##unchecked-structure-set! __obj121510 __tmp121958 '14 '#f '#f)) + (let ((__tmp121960 + (cons (cons 'e |gx[1]#_g121961_|) + (cons (cons 'id |gx[1]#_g121962_|) + (cons (cons 'key |gx[1]#_g121963_|) + (cons (cons 'phi |gx[1]#_g121964_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121473 __tmp121923 '15 '#f '#f)) - (let ((__tmp121928 - (cons (cons 'e |gx[1]#_g121929_|) - (cons (cons 'id |gx[1]#_g121930_|) - (cons (cons 'key |gx[1]#_g121931_|) - (cons (cons 'phi |gx[1]#_g121932_|) '())))))) + (##unchecked-structure-set! __obj121510 __tmp121960 '15 '#f '#f)) + (let ((__tmp121965 + (cons (cons 'e |gx[1]#_g121966_|) + (cons (cons 'id |gx[1]#_g121967_|) + (cons (cons 'key |gx[1]#_g121968_|) + (cons (cons 'phi |gx[1]#_g121969_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121473 __tmp121928 '16 '#f '#f)) - (let ((__tmp121933 - (cons (cons 'e |gx[1]#_g121934_|) - (cons (cons 'id |gx[1]#_g121935_|) - (cons (cons 'key |gx[1]#_g121936_|) - (cons (cons 'phi |gx[1]#_g121937_|) '())))))) + (##unchecked-structure-set! __obj121510 __tmp121965 '16 '#f '#f)) + (let ((__tmp121970 + (cons (cons 'e |gx[1]#_g121971_|) + (cons (cons 'id |gx[1]#_g121972_|) + (cons (cons 'key |gx[1]#_g121973_|) + (cons (cons 'phi |gx[1]#_g121974_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121473 __tmp121933 '17 '#f '#f)) - (let ((__tmp121938 - (cons (cons 'e |gx[1]#_g121939_|) - (cons (cons 'id |gx[1]#_g121940_|) - (cons (cons 'key |gx[1]#_g121941_|) - (cons (cons 'phi |gx[1]#_g121942_|) '())))))) + (##unchecked-structure-set! __obj121510 __tmp121970 '17 '#f '#f)) + (let ((__tmp121975 + (cons (cons 'e |gx[1]#_g121976_|) + (cons (cons 'id |gx[1]#_g121977_|) + (cons (cons 'key |gx[1]#_g121978_|) + (cons (cons 'phi |gx[1]#_g121979_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121473 __tmp121938 '18 '#f '#f)) + (##unchecked-structure-set! __obj121510 __tmp121975 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121473 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121510 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121473 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121510 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121473 '() '20 '#f '#f)) - __obj121473)) + (##unchecked-structure-set! __obj121510 '() '20 '#f '#f)) + __obj121510)) (define |gx[:0:]#import-binding| - (let ((__obj121474 + (let ((__obj121511 (let () (declare (not safe)) (##structure @@ -5200,18 +5200,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121474 + __obj121511 'gx#import-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121474 'import-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121511 'import-binding '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121474 + __obj121511 '(e context weak?) '4 '#f @@ -5219,91 +5219,91 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121474 + __obj121511 '(id key phi e context weak?) '6 '#f '#f)) - (let ((__tmp121943 (cons |gx[1]#_g121795_| '()))) + (let ((__tmp121980 (cons |gx[1]#_g121832_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121474 __tmp121943 '3 '#f '#f)) + (##unchecked-structure-set! __obj121511 __tmp121980 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121474 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121511 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121474 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121511 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121474 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121511 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121474 '#f '11 '#f '#f)) - (let ((__tmp121944 |gx[1]#_g121945_|)) + (##unchecked-structure-set! __obj121511 '#f '11 '#f '#f)) + (let ((__tmp121981 |gx[1]#_g121982_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121474 __tmp121944 '12 '#f '#f)) - (let ((__tmp121946 |gx[1]#_g121947_|)) + (##unchecked-structure-set! __obj121511 __tmp121981 '12 '#f '#f)) + (let ((__tmp121983 |gx[1]#_g121984_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121474 __tmp121946 '13 '#f '#f)) - (let ((__tmp121948 |gx[1]#_g121949_|)) + (##unchecked-structure-set! __obj121511 __tmp121983 '13 '#f '#f)) + (let ((__tmp121985 |gx[1]#_g121986_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121474 __tmp121948 '14 '#f '#f)) - (let ((__tmp121950 - (cons (cons 'e |gx[1]#_g121951_|) - (cons (cons 'context |gx[1]#_g121952_|) - (cons (cons 'weak? |gx[1]#_g121953_|) - (cons (cons 'id |gx[1]#_g121954_|) - (cons (cons 'key |gx[1]#_g121955_|) + (##unchecked-structure-set! __obj121511 __tmp121985 '14 '#f '#f)) + (let ((__tmp121987 + (cons (cons 'e |gx[1]#_g121988_|) + (cons (cons 'context |gx[1]#_g121989_|) + (cons (cons 'weak? |gx[1]#_g121990_|) + (cons (cons 'id |gx[1]#_g121991_|) + (cons (cons 'key |gx[1]#_g121992_|) (cons (cons 'phi - |gx[1]#_g121956_|) + |gx[1]#_g121993_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121474 __tmp121950 '15 '#f '#f)) - (let ((__tmp121957 - (cons (cons 'e |gx[1]#_g121958_|) - (cons (cons 'context |gx[1]#_g121959_|) - (cons (cons 'weak? |gx[1]#_g121960_|) - (cons (cons 'id |gx[1]#_g121961_|) - (cons (cons 'key |gx[1]#_g121962_|) + (##unchecked-structure-set! __obj121511 __tmp121987 '15 '#f '#f)) + (let ((__tmp121994 + (cons (cons 'e |gx[1]#_g121995_|) + (cons (cons 'context |gx[1]#_g121996_|) + (cons (cons 'weak? |gx[1]#_g121997_|) + (cons (cons 'id |gx[1]#_g121998_|) + (cons (cons 'key |gx[1]#_g121999_|) (cons (cons 'phi - |gx[1]#_g121963_|) + |gx[1]#_g122000_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121474 __tmp121957 '16 '#f '#f)) - (let ((__tmp121964 - (cons (cons 'e |gx[1]#_g121965_|) - (cons (cons 'context |gx[1]#_g121966_|) - (cons (cons 'weak? |gx[1]#_g121967_|) - (cons (cons 'id |gx[1]#_g121968_|) - (cons (cons 'key |gx[1]#_g121969_|) + (##unchecked-structure-set! __obj121511 __tmp121994 '16 '#f '#f)) + (let ((__tmp122001 + (cons (cons 'e |gx[1]#_g122002_|) + (cons (cons 'context |gx[1]#_g122003_|) + (cons (cons 'weak? |gx[1]#_g122004_|) + (cons (cons 'id |gx[1]#_g122005_|) + (cons (cons 'key |gx[1]#_g122006_|) (cons (cons 'phi - |gx[1]#_g121970_|) + |gx[1]#_g122007_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121474 __tmp121964 '17 '#f '#f)) - (let ((__tmp121971 - (cons (cons 'e |gx[1]#_g121972_|) - (cons (cons 'context |gx[1]#_g121973_|) - (cons (cons 'weak? |gx[1]#_g121974_|) - (cons (cons 'id |gx[1]#_g121975_|) - (cons (cons 'key |gx[1]#_g121976_|) + (##unchecked-structure-set! __obj121511 __tmp122001 '17 '#f '#f)) + (let ((__tmp122008 + (cons (cons 'e |gx[1]#_g122009_|) + (cons (cons 'context |gx[1]#_g122010_|) + (cons (cons 'weak? |gx[1]#_g122011_|) + (cons (cons 'id |gx[1]#_g122012_|) + (cons (cons 'key |gx[1]#_g122013_|) (cons (cons 'phi - |gx[1]#_g121977_|) + |gx[1]#_g122014_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121474 __tmp121971 '18 '#f '#f)) + (##unchecked-structure-set! __obj121511 __tmp122008 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121474 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121511 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121474 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121511 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121474 '() '20 '#f '#f)) - __obj121474)) + (##unchecked-structure-set! __obj121511 '() '20 '#f '#f)) + __obj121511)) (define |gx[:0:]#alias-binding| - (let ((__obj121475 + (let ((__obj121512 (let () (declare (not safe)) (##structure @@ -5332,84 +5332,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121475 + __obj121512 'gx#alias-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121475 'alias-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121512 'alias-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121475 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121512 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121475 '(id key phi e) '6 '#f '#f)) - (let ((__tmp121978 (cons |gx[1]#_g121795_| '()))) + (##unchecked-structure-set! __obj121512 '(id key phi e) '6 '#f '#f)) + (let ((__tmp122015 (cons |gx[1]#_g121832_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121475 __tmp121978 '3 '#f '#f)) + (##unchecked-structure-set! __obj121512 __tmp122015 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121475 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121512 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121475 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121512 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121475 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121512 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121475 '#f '11 '#f '#f)) - (let ((__tmp121979 |gx[1]#_g121980_|)) + (##unchecked-structure-set! __obj121512 '#f '11 '#f '#f)) + (let ((__tmp122016 |gx[1]#_g122017_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121475 __tmp121979 '12 '#f '#f)) - (let ((__tmp121981 |gx[1]#_g121982_|)) + (##unchecked-structure-set! __obj121512 __tmp122016 '12 '#f '#f)) + (let ((__tmp122018 |gx[1]#_g122019_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121475 __tmp121981 '13 '#f '#f)) - (let ((__tmp121983 |gx[1]#_g121984_|)) + (##unchecked-structure-set! __obj121512 __tmp122018 '13 '#f '#f)) + (let ((__tmp122020 |gx[1]#_g122021_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121475 __tmp121983 '14 '#f '#f)) - (let ((__tmp121985 - (cons (cons 'e |gx[1]#_g121986_|) - (cons (cons 'id |gx[1]#_g121987_|) - (cons (cons 'key |gx[1]#_g121988_|) - (cons (cons 'phi |gx[1]#_g121989_|) '())))))) + (##unchecked-structure-set! __obj121512 __tmp122020 '14 '#f '#f)) + (let ((__tmp122022 + (cons (cons 'e |gx[1]#_g122023_|) + (cons (cons 'id |gx[1]#_g122024_|) + (cons (cons 'key |gx[1]#_g122025_|) + (cons (cons 'phi |gx[1]#_g122026_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121475 __tmp121985 '15 '#f '#f)) - (let ((__tmp121990 - (cons (cons 'e |gx[1]#_g121991_|) - (cons (cons 'id |gx[1]#_g121992_|) - (cons (cons 'key |gx[1]#_g121993_|) - (cons (cons 'phi |gx[1]#_g121994_|) '())))))) + (##unchecked-structure-set! __obj121512 __tmp122022 '15 '#f '#f)) + (let ((__tmp122027 + (cons (cons 'e |gx[1]#_g122028_|) + (cons (cons 'id |gx[1]#_g122029_|) + (cons (cons 'key |gx[1]#_g122030_|) + (cons (cons 'phi |gx[1]#_g122031_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121475 __tmp121990 '16 '#f '#f)) - (let ((__tmp121995 - (cons (cons 'e |gx[1]#_g121996_|) - (cons (cons 'id |gx[1]#_g121997_|) - (cons (cons 'key |gx[1]#_g121998_|) - (cons (cons 'phi |gx[1]#_g121999_|) '())))))) + (##unchecked-structure-set! __obj121512 __tmp122027 '16 '#f '#f)) + (let ((__tmp122032 + (cons (cons 'e |gx[1]#_g122033_|) + (cons (cons 'id |gx[1]#_g122034_|) + (cons (cons 'key |gx[1]#_g122035_|) + (cons (cons 'phi |gx[1]#_g122036_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121475 __tmp121995 '17 '#f '#f)) - (let ((__tmp122000 - (cons (cons 'e |gx[1]#_g122001_|) - (cons (cons 'id |gx[1]#_g122002_|) - (cons (cons 'key |gx[1]#_g122003_|) - (cons (cons 'phi |gx[1]#_g122004_|) '())))))) + (##unchecked-structure-set! __obj121512 __tmp122032 '17 '#f '#f)) + (let ((__tmp122037 + (cons (cons 'e |gx[1]#_g122038_|) + (cons (cons 'id |gx[1]#_g122039_|) + (cons (cons 'key |gx[1]#_g122040_|) + (cons (cons 'phi |gx[1]#_g122041_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121475 __tmp122000 '18 '#f '#f)) + (##unchecked-structure-set! __obj121512 __tmp122037 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121475 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121512 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121475 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121512 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121475 '() '20 '#f '#f)) - __obj121475)) + (##unchecked-structure-set! __obj121512 '() '20 '#f '#f)) + __obj121512)) (define |gx[:0:]#expander| - (let ((__obj121476 + (let ((__obj121513 (let () (declare (not safe)) (##structure @@ -5437,64 +5437,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 'gx#expander::t '1 '#f '#f)) + (##unchecked-structure-set! __obj121513 'gx#expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 'expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121513 'expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121513 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 '(e) '6 '#f '#f)) + (##unchecked-structure-set! __obj121513 '(e) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121513 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121513 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121513 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121513 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 '#f '11 '#f '#f)) - (let ((__tmp122005 |gx[1]#_g122006_|)) + (##unchecked-structure-set! __obj121513 '#f '11 '#f '#f)) + (let ((__tmp122042 |gx[1]#_g122043_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121476 __tmp122005 '12 '#f '#f)) - (let ((__tmp122007 |gx[1]#_g122008_|)) + (##unchecked-structure-set! __obj121513 __tmp122042 '12 '#f '#f)) + (let ((__tmp122044 |gx[1]#_g122045_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121476 __tmp122007 '13 '#f '#f)) - (let ((__tmp122009 |gx[1]#_g122010_|)) + (##unchecked-structure-set! __obj121513 __tmp122044 '13 '#f '#f)) + (let ((__tmp122046 |gx[1]#_g122047_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121476 __tmp122009 '14 '#f '#f)) - (let ((__tmp122011 (cons (cons 'e |gx[1]#_g122012_|) '()))) + (##unchecked-structure-set! __obj121513 __tmp122046 '14 '#f '#f)) + (let ((__tmp122048 (cons (cons 'e |gx[1]#_g122049_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121476 __tmp122011 '15 '#f '#f)) - (let ((__tmp122013 (cons (cons 'e |gx[1]#_g122014_|) '()))) + (##unchecked-structure-set! __obj121513 __tmp122048 '15 '#f '#f)) + (let ((__tmp122050 (cons (cons 'e |gx[1]#_g122051_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121476 __tmp122013 '16 '#f '#f)) - (let ((__tmp122015 (cons (cons 'e |gx[1]#_g122016_|) '()))) + (##unchecked-structure-set! __obj121513 __tmp122050 '16 '#f '#f)) + (let ((__tmp122052 (cons (cons 'e |gx[1]#_g122053_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121476 __tmp122015 '17 '#f '#f)) - (let ((__tmp122017 (cons (cons 'e |gx[1]#_g122018_|) '()))) + (##unchecked-structure-set! __obj121513 __tmp122052 '17 '#f '#f)) + (let ((__tmp122054 (cons (cons 'e |gx[1]#_g122055_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121476 __tmp122017 '18 '#f '#f)) + (##unchecked-structure-set! __obj121513 __tmp122054 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121513 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121513 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121476 '() '20 '#f '#f)) - __obj121476)) + (##unchecked-structure-set! __obj121513 '() '20 '#f '#f)) + __obj121513)) (define |gx[:0:]#core-expander| - (let ((__obj121477 + (let ((__obj121514 (let () (declare (not safe)) (##structure @@ -5523,18 +5523,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121477 + __obj121514 'gx#core-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121477 'core-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121514 'core-expander '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121477 + __obj121514 '(id compile-top) '4 '#f @@ -5542,71 +5542,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121477 + __obj121514 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122019 (cons |gx[1]#_g122020_| '()))) + (let ((__tmp122056 (cons |gx[1]#_g122057_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121477 __tmp122019 '3 '#f '#f)) + (##unchecked-structure-set! __obj121514 __tmp122056 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121477 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121514 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121477 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121514 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121477 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121514 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121477 '#f '11 '#f '#f)) - (let ((__tmp122021 |gx[1]#_g122022_|)) + (##unchecked-structure-set! __obj121514 '#f '11 '#f '#f)) + (let ((__tmp122058 |gx[1]#_g122059_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121477 __tmp122021 '12 '#f '#f)) - (let ((__tmp122023 |gx[1]#_g122024_|)) + (##unchecked-structure-set! __obj121514 __tmp122058 '12 '#f '#f)) + (let ((__tmp122060 |gx[1]#_g122061_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121477 __tmp122023 '13 '#f '#f)) - (let ((__tmp122025 |gx[1]#_g122026_|)) + (##unchecked-structure-set! __obj121514 __tmp122060 '13 '#f '#f)) + (let ((__tmp122062 |gx[1]#_g122063_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121477 __tmp122025 '14 '#f '#f)) - (let ((__tmp122027 - (cons (cons 'id |gx[1]#_g122028_|) - (cons (cons 'compile-top |gx[1]#_g122029_|) - (cons (cons 'e |gx[1]#_g122030_|) '()))))) + (##unchecked-structure-set! __obj121514 __tmp122062 '14 '#f '#f)) + (let ((__tmp122064 + (cons (cons 'id |gx[1]#_g122065_|) + (cons (cons 'compile-top |gx[1]#_g122066_|) + (cons (cons 'e |gx[1]#_g122067_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121477 __tmp122027 '15 '#f '#f)) - (let ((__tmp122031 - (cons (cons 'id |gx[1]#_g122032_|) - (cons (cons 'compile-top |gx[1]#_g122033_|) - (cons (cons 'e |gx[1]#_g122034_|) '()))))) + (##unchecked-structure-set! __obj121514 __tmp122064 '15 '#f '#f)) + (let ((__tmp122068 + (cons (cons 'id |gx[1]#_g122069_|) + (cons (cons 'compile-top |gx[1]#_g122070_|) + (cons (cons 'e |gx[1]#_g122071_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121477 __tmp122031 '16 '#f '#f)) - (let ((__tmp122035 - (cons (cons 'id |gx[1]#_g122036_|) - (cons (cons 'compile-top |gx[1]#_g122037_|) - (cons (cons 'e |gx[1]#_g122038_|) '()))))) + (##unchecked-structure-set! __obj121514 __tmp122068 '16 '#f '#f)) + (let ((__tmp122072 + (cons (cons 'id |gx[1]#_g122073_|) + (cons (cons 'compile-top |gx[1]#_g122074_|) + (cons (cons 'e |gx[1]#_g122075_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121477 __tmp122035 '17 '#f '#f)) - (let ((__tmp122039 - (cons (cons 'id |gx[1]#_g122040_|) - (cons (cons 'compile-top |gx[1]#_g122041_|) - (cons (cons 'e |gx[1]#_g122042_|) '()))))) + (##unchecked-structure-set! __obj121514 __tmp122072 '17 '#f '#f)) + (let ((__tmp122076 + (cons (cons 'id |gx[1]#_g122077_|) + (cons (cons 'compile-top |gx[1]#_g122078_|) + (cons (cons 'e |gx[1]#_g122079_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121477 __tmp122039 '18 '#f '#f)) + (##unchecked-structure-set! __obj121514 __tmp122076 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121477 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121514 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121477 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121514 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121477 '() '20 '#f '#f)) - __obj121477)) + (##unchecked-structure-set! __obj121514 '() '20 '#f '#f)) + __obj121514)) (define |gx[:0:]#expression-form| - (let ((__obj121478 + (let ((__obj121515 (let () (declare (not safe)) (##structure @@ -5635,85 +5635,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121478 + __obj121515 'gx#expression-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121478 'expression-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121515 'expression-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121478 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121515 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121478 + __obj121515 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122043 (cons |gx[1]#_g122044_| '()))) + (let ((__tmp122080 (cons |gx[1]#_g122081_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121478 __tmp122043 '3 '#f '#f)) + (##unchecked-structure-set! __obj121515 __tmp122080 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121478 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121515 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121478 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121515 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121478 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121515 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121478 '#f '11 '#f '#f)) - (let ((__tmp122045 |gx[1]#_g122046_|)) + (##unchecked-structure-set! __obj121515 '#f '11 '#f '#f)) + (let ((__tmp122082 |gx[1]#_g122083_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121478 __tmp122045 '12 '#f '#f)) - (let ((__tmp122047 |gx[1]#_g122048_|)) + (##unchecked-structure-set! __obj121515 __tmp122082 '12 '#f '#f)) + (let ((__tmp122084 |gx[1]#_g122085_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121478 __tmp122047 '13 '#f '#f)) - (let ((__tmp122049 |gx[1]#_g122050_|)) + (##unchecked-structure-set! __obj121515 __tmp122084 '13 '#f '#f)) + (let ((__tmp122086 |gx[1]#_g122087_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121478 __tmp122049 '14 '#f '#f)) - (let ((__tmp122051 - (cons (cons 'id |gx[1]#_g122052_|) - (cons (cons 'compile-top |gx[1]#_g122053_|) - (cons (cons 'e |gx[1]#_g122054_|) '()))))) + (##unchecked-structure-set! __obj121515 __tmp122086 '14 '#f '#f)) + (let ((__tmp122088 + (cons (cons 'id |gx[1]#_g122089_|) + (cons (cons 'compile-top |gx[1]#_g122090_|) + (cons (cons 'e |gx[1]#_g122091_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121478 __tmp122051 '15 '#f '#f)) - (let ((__tmp122055 - (cons (cons 'id |gx[1]#_g122056_|) - (cons (cons 'compile-top |gx[1]#_g122057_|) - (cons (cons 'e |gx[1]#_g122058_|) '()))))) + (##unchecked-structure-set! __obj121515 __tmp122088 '15 '#f '#f)) + (let ((__tmp122092 + (cons (cons 'id |gx[1]#_g122093_|) + (cons (cons 'compile-top |gx[1]#_g122094_|) + (cons (cons 'e |gx[1]#_g122095_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121478 __tmp122055 '16 '#f '#f)) - (let ((__tmp122059 - (cons (cons 'id |gx[1]#_g122060_|) - (cons (cons 'compile-top |gx[1]#_g122061_|) - (cons (cons 'e |gx[1]#_g122062_|) '()))))) + (##unchecked-structure-set! __obj121515 __tmp122092 '16 '#f '#f)) + (let ((__tmp122096 + (cons (cons 'id |gx[1]#_g122097_|) + (cons (cons 'compile-top |gx[1]#_g122098_|) + (cons (cons 'e |gx[1]#_g122099_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121478 __tmp122059 '17 '#f '#f)) - (let ((__tmp122063 - (cons (cons 'id |gx[1]#_g122064_|) - (cons (cons 'compile-top |gx[1]#_g122065_|) - (cons (cons 'e |gx[1]#_g122066_|) '()))))) + (##unchecked-structure-set! __obj121515 __tmp122096 '17 '#f '#f)) + (let ((__tmp122100 + (cons (cons 'id |gx[1]#_g122101_|) + (cons (cons 'compile-top |gx[1]#_g122102_|) + (cons (cons 'e |gx[1]#_g122103_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121478 __tmp122063 '18 '#f '#f)) + (##unchecked-structure-set! __obj121515 __tmp122100 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121478 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121515 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121478 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121515 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121478 '() '20 '#f '#f)) - __obj121478)) + (##unchecked-structure-set! __obj121515 '() '20 '#f '#f)) + __obj121515)) (define |gx[:0:]#special-form| - (let ((__obj121479 + (let ((__obj121516 (let () (declare (not safe)) (##structure @@ -5742,85 +5742,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121479 + __obj121516 'gx#special-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121479 'special-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121516 'special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121479 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121516 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121479 + __obj121516 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122067 (cons |gx[1]#_g122044_| '()))) + (let ((__tmp122104 (cons |gx[1]#_g122081_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121479 __tmp122067 '3 '#f '#f)) + (##unchecked-structure-set! __obj121516 __tmp122104 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121479 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121516 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121479 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121516 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121479 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121516 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121479 '#f '11 '#f '#f)) - (let ((__tmp122068 |gx[1]#_g122069_|)) + (##unchecked-structure-set! __obj121516 '#f '11 '#f '#f)) + (let ((__tmp122105 |gx[1]#_g122106_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121479 __tmp122068 '12 '#f '#f)) - (let ((__tmp122070 |gx[1]#_g122071_|)) + (##unchecked-structure-set! __obj121516 __tmp122105 '12 '#f '#f)) + (let ((__tmp122107 |gx[1]#_g122108_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121479 __tmp122070 '13 '#f '#f)) - (let ((__tmp122072 |gx[1]#_g122073_|)) + (##unchecked-structure-set! __obj121516 __tmp122107 '13 '#f '#f)) + (let ((__tmp122109 |gx[1]#_g122110_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121479 __tmp122072 '14 '#f '#f)) - (let ((__tmp122074 - (cons (cons 'id |gx[1]#_g122075_|) - (cons (cons 'compile-top |gx[1]#_g122076_|) - (cons (cons 'e |gx[1]#_g122077_|) '()))))) + (##unchecked-structure-set! __obj121516 __tmp122109 '14 '#f '#f)) + (let ((__tmp122111 + (cons (cons 'id |gx[1]#_g122112_|) + (cons (cons 'compile-top |gx[1]#_g122113_|) + (cons (cons 'e |gx[1]#_g122114_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121479 __tmp122074 '15 '#f '#f)) - (let ((__tmp122078 - (cons (cons 'id |gx[1]#_g122079_|) - (cons (cons 'compile-top |gx[1]#_g122080_|) - (cons (cons 'e |gx[1]#_g122081_|) '()))))) + (##unchecked-structure-set! __obj121516 __tmp122111 '15 '#f '#f)) + (let ((__tmp122115 + (cons (cons 'id |gx[1]#_g122116_|) + (cons (cons 'compile-top |gx[1]#_g122117_|) + (cons (cons 'e |gx[1]#_g122118_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121479 __tmp122078 '16 '#f '#f)) - (let ((__tmp122082 - (cons (cons 'id |gx[1]#_g122083_|) - (cons (cons 'compile-top |gx[1]#_g122084_|) - (cons (cons 'e |gx[1]#_g122085_|) '()))))) + (##unchecked-structure-set! __obj121516 __tmp122115 '16 '#f '#f)) + (let ((__tmp122119 + (cons (cons 'id |gx[1]#_g122120_|) + (cons (cons 'compile-top |gx[1]#_g122121_|) + (cons (cons 'e |gx[1]#_g122122_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121479 __tmp122082 '17 '#f '#f)) - (let ((__tmp122086 - (cons (cons 'id |gx[1]#_g122087_|) - (cons (cons 'compile-top |gx[1]#_g122088_|) - (cons (cons 'e |gx[1]#_g122089_|) '()))))) + (##unchecked-structure-set! __obj121516 __tmp122119 '17 '#f '#f)) + (let ((__tmp122123 + (cons (cons 'id |gx[1]#_g122124_|) + (cons (cons 'compile-top |gx[1]#_g122125_|) + (cons (cons 'e |gx[1]#_g122126_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121479 __tmp122086 '18 '#f '#f)) + (##unchecked-structure-set! __obj121516 __tmp122123 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121479 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121516 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121479 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121516 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121479 '() '20 '#f '#f)) - __obj121479)) + (##unchecked-structure-set! __obj121516 '() '20 '#f '#f)) + __obj121516)) (define |gx[:0:]#definition-form| - (let ((__obj121480 + (let ((__obj121517 (let () (declare (not safe)) (##structure @@ -5849,85 +5849,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121480 + __obj121517 'gx#definition-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121480 'definition-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121517 'definition-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121480 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121517 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121480 + __obj121517 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122090 (cons |gx[1]#_g122091_| '()))) + (let ((__tmp122127 (cons |gx[1]#_g122128_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121480 __tmp122090 '3 '#f '#f)) + (##unchecked-structure-set! __obj121517 __tmp122127 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121480 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121517 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121480 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121517 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121480 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121517 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121480 '#f '11 '#f '#f)) - (let ((__tmp122092 |gx[1]#_g122093_|)) + (##unchecked-structure-set! __obj121517 '#f '11 '#f '#f)) + (let ((__tmp122129 |gx[1]#_g122130_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121480 __tmp122092 '12 '#f '#f)) - (let ((__tmp122094 |gx[1]#_g122095_|)) + (##unchecked-structure-set! __obj121517 __tmp122129 '12 '#f '#f)) + (let ((__tmp122131 |gx[1]#_g122132_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121480 __tmp122094 '13 '#f '#f)) - (let ((__tmp122096 |gx[1]#_g122097_|)) + (##unchecked-structure-set! __obj121517 __tmp122131 '13 '#f '#f)) + (let ((__tmp122133 |gx[1]#_g122134_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121480 __tmp122096 '14 '#f '#f)) - (let ((__tmp122098 - (cons (cons 'id |gx[1]#_g122099_|) - (cons (cons 'compile-top |gx[1]#_g122100_|) - (cons (cons 'e |gx[1]#_g122101_|) '()))))) + (##unchecked-structure-set! __obj121517 __tmp122133 '14 '#f '#f)) + (let ((__tmp122135 + (cons (cons 'id |gx[1]#_g122136_|) + (cons (cons 'compile-top |gx[1]#_g122137_|) + (cons (cons 'e |gx[1]#_g122138_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121480 __tmp122098 '15 '#f '#f)) - (let ((__tmp122102 - (cons (cons 'id |gx[1]#_g122103_|) - (cons (cons 'compile-top |gx[1]#_g122104_|) - (cons (cons 'e |gx[1]#_g122105_|) '()))))) + (##unchecked-structure-set! __obj121517 __tmp122135 '15 '#f '#f)) + (let ((__tmp122139 + (cons (cons 'id |gx[1]#_g122140_|) + (cons (cons 'compile-top |gx[1]#_g122141_|) + (cons (cons 'e |gx[1]#_g122142_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121480 __tmp122102 '16 '#f '#f)) - (let ((__tmp122106 - (cons (cons 'id |gx[1]#_g122107_|) - (cons (cons 'compile-top |gx[1]#_g122108_|) - (cons (cons 'e |gx[1]#_g122109_|) '()))))) + (##unchecked-structure-set! __obj121517 __tmp122139 '16 '#f '#f)) + (let ((__tmp122143 + (cons (cons 'id |gx[1]#_g122144_|) + (cons (cons 'compile-top |gx[1]#_g122145_|) + (cons (cons 'e |gx[1]#_g122146_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121480 __tmp122106 '17 '#f '#f)) - (let ((__tmp122110 - (cons (cons 'id |gx[1]#_g122111_|) - (cons (cons 'compile-top |gx[1]#_g122112_|) - (cons (cons 'e |gx[1]#_g122113_|) '()))))) + (##unchecked-structure-set! __obj121517 __tmp122143 '17 '#f '#f)) + (let ((__tmp122147 + (cons (cons 'id |gx[1]#_g122148_|) + (cons (cons 'compile-top |gx[1]#_g122149_|) + (cons (cons 'e |gx[1]#_g122150_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121480 __tmp122110 '18 '#f '#f)) + (##unchecked-structure-set! __obj121517 __tmp122147 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121480 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121517 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121480 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121517 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121480 '() '20 '#f '#f)) - __obj121480)) + (##unchecked-structure-set! __obj121517 '() '20 '#f '#f)) + __obj121517)) (define |gx[:0:]#top-special-form| - (let ((__obj121481 + (let ((__obj121518 (let () (declare (not safe)) (##structure @@ -5956,7 +5956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121481 + __obj121518 'gx#top-special-form::t '1 '#f @@ -5964,82 +5964,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121481 + __obj121518 'top-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121481 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121518 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121481 + __obj121518 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122114 (cons |gx[1]#_g122091_| '()))) + (let ((__tmp122151 (cons |gx[1]#_g122128_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121481 __tmp122114 '3 '#f '#f)) + (##unchecked-structure-set! __obj121518 __tmp122151 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121481 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121518 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121481 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121518 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121481 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121518 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121481 '#f '11 '#f '#f)) - (let ((__tmp122115 |gx[1]#_g122116_|)) + (##unchecked-structure-set! __obj121518 '#f '11 '#f '#f)) + (let ((__tmp122152 |gx[1]#_g122153_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121481 __tmp122115 '12 '#f '#f)) - (let ((__tmp122117 |gx[1]#_g122118_|)) + (##unchecked-structure-set! __obj121518 __tmp122152 '12 '#f '#f)) + (let ((__tmp122154 |gx[1]#_g122155_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121481 __tmp122117 '13 '#f '#f)) - (let ((__tmp122119 |gx[1]#_g122120_|)) + (##unchecked-structure-set! __obj121518 __tmp122154 '13 '#f '#f)) + (let ((__tmp122156 |gx[1]#_g122157_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121481 __tmp122119 '14 '#f '#f)) - (let ((__tmp122121 - (cons (cons 'id |gx[1]#_g122122_|) - (cons (cons 'compile-top |gx[1]#_g122123_|) - (cons (cons 'e |gx[1]#_g122124_|) '()))))) + (##unchecked-structure-set! __obj121518 __tmp122156 '14 '#f '#f)) + (let ((__tmp122158 + (cons (cons 'id |gx[1]#_g122159_|) + (cons (cons 'compile-top |gx[1]#_g122160_|) + (cons (cons 'e |gx[1]#_g122161_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121481 __tmp122121 '15 '#f '#f)) - (let ((__tmp122125 - (cons (cons 'id |gx[1]#_g122126_|) - (cons (cons 'compile-top |gx[1]#_g122127_|) - (cons (cons 'e |gx[1]#_g122128_|) '()))))) + (##unchecked-structure-set! __obj121518 __tmp122158 '15 '#f '#f)) + (let ((__tmp122162 + (cons (cons 'id |gx[1]#_g122163_|) + (cons (cons 'compile-top |gx[1]#_g122164_|) + (cons (cons 'e |gx[1]#_g122165_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121481 __tmp122125 '16 '#f '#f)) - (let ((__tmp122129 - (cons (cons 'id |gx[1]#_g122130_|) - (cons (cons 'compile-top |gx[1]#_g122131_|) - (cons (cons 'e |gx[1]#_g122132_|) '()))))) + (##unchecked-structure-set! __obj121518 __tmp122162 '16 '#f '#f)) + (let ((__tmp122166 + (cons (cons 'id |gx[1]#_g122167_|) + (cons (cons 'compile-top |gx[1]#_g122168_|) + (cons (cons 'e |gx[1]#_g122169_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121481 __tmp122129 '17 '#f '#f)) - (let ((__tmp122133 - (cons (cons 'id |gx[1]#_g122134_|) - (cons (cons 'compile-top |gx[1]#_g122135_|) - (cons (cons 'e |gx[1]#_g122136_|) '()))))) + (##unchecked-structure-set! __obj121518 __tmp122166 '17 '#f '#f)) + (let ((__tmp122170 + (cons (cons 'id |gx[1]#_g122171_|) + (cons (cons 'compile-top |gx[1]#_g122172_|) + (cons (cons 'e |gx[1]#_g122173_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121481 __tmp122133 '18 '#f '#f)) + (##unchecked-structure-set! __obj121518 __tmp122170 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121481 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121518 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121481 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121518 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121481 '() '20 '#f '#f)) - __obj121481)) + (##unchecked-structure-set! __obj121518 '() '20 '#f '#f)) + __obj121518)) (define |gx[:0:]#module-special-form| - (let ((__obj121482 + (let ((__obj121519 (let () (declare (not safe)) (##structure @@ -6068,7 +6068,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121482 + __obj121519 'gx#module-special-form::t '1 '#f @@ -6076,82 +6076,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121482 + __obj121519 'module-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121482 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121519 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121482 + __obj121519 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122137 (cons |gx[1]#_g122138_| '()))) + (let ((__tmp122174 (cons |gx[1]#_g122175_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121482 __tmp122137 '3 '#f '#f)) + (##unchecked-structure-set! __obj121519 __tmp122174 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121482 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121519 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121482 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121519 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121482 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121519 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121482 '#f '11 '#f '#f)) - (let ((__tmp122139 |gx[1]#_g122140_|)) + (##unchecked-structure-set! __obj121519 '#f '11 '#f '#f)) + (let ((__tmp122176 |gx[1]#_g122177_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121482 __tmp122139 '12 '#f '#f)) - (let ((__tmp122141 |gx[1]#_g122142_|)) + (##unchecked-structure-set! __obj121519 __tmp122176 '12 '#f '#f)) + (let ((__tmp122178 |gx[1]#_g122179_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121482 __tmp122141 '13 '#f '#f)) - (let ((__tmp122143 |gx[1]#_g122144_|)) + (##unchecked-structure-set! __obj121519 __tmp122178 '13 '#f '#f)) + (let ((__tmp122180 |gx[1]#_g122181_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121482 __tmp122143 '14 '#f '#f)) - (let ((__tmp122145 - (cons (cons 'id |gx[1]#_g122146_|) - (cons (cons 'compile-top |gx[1]#_g122147_|) - (cons (cons 'e |gx[1]#_g122148_|) '()))))) + (##unchecked-structure-set! __obj121519 __tmp122180 '14 '#f '#f)) + (let ((__tmp122182 + (cons (cons 'id |gx[1]#_g122183_|) + (cons (cons 'compile-top |gx[1]#_g122184_|) + (cons (cons 'e |gx[1]#_g122185_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121482 __tmp122145 '15 '#f '#f)) - (let ((__tmp122149 - (cons (cons 'id |gx[1]#_g122150_|) - (cons (cons 'compile-top |gx[1]#_g122151_|) - (cons (cons 'e |gx[1]#_g122152_|) '()))))) + (##unchecked-structure-set! __obj121519 __tmp122182 '15 '#f '#f)) + (let ((__tmp122186 + (cons (cons 'id |gx[1]#_g122187_|) + (cons (cons 'compile-top |gx[1]#_g122188_|) + (cons (cons 'e |gx[1]#_g122189_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121482 __tmp122149 '16 '#f '#f)) - (let ((__tmp122153 - (cons (cons 'id |gx[1]#_g122154_|) - (cons (cons 'compile-top |gx[1]#_g122155_|) - (cons (cons 'e |gx[1]#_g122156_|) '()))))) + (##unchecked-structure-set! __obj121519 __tmp122186 '16 '#f '#f)) + (let ((__tmp122190 + (cons (cons 'id |gx[1]#_g122191_|) + (cons (cons 'compile-top |gx[1]#_g122192_|) + (cons (cons 'e |gx[1]#_g122193_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121482 __tmp122153 '17 '#f '#f)) - (let ((__tmp122157 - (cons (cons 'id |gx[1]#_g122158_|) - (cons (cons 'compile-top |gx[1]#_g122159_|) - (cons (cons 'e |gx[1]#_g122160_|) '()))))) + (##unchecked-structure-set! __obj121519 __tmp122190 '17 '#f '#f)) + (let ((__tmp122194 + (cons (cons 'id |gx[1]#_g122195_|) + (cons (cons 'compile-top |gx[1]#_g122196_|) + (cons (cons 'e |gx[1]#_g122197_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121482 __tmp122157 '18 '#f '#f)) + (##unchecked-structure-set! __obj121519 __tmp122194 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121482 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121519 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121482 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121519 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121482 '() '20 '#f '#f)) - __obj121482)) + (##unchecked-structure-set! __obj121519 '() '20 '#f '#f)) + __obj121519)) (define |gx[:0:]#feature-expander| - (let ((__obj121483 + (let ((__obj121520 (let () (declare (not safe)) (##structure @@ -6180,7 +6180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121483 + __obj121520 'gx#feature-expander::t '1 '#f @@ -6188,65 +6188,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121483 + __obj121520 'feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121483 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121520 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121483 '(e) '6 '#f '#f)) - (let ((__tmp122161 (cons |gx[1]#_g122020_| '()))) + (##unchecked-structure-set! __obj121520 '(e) '6 '#f '#f)) + (let ((__tmp122198 (cons |gx[1]#_g122057_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121483 __tmp122161 '3 '#f '#f)) + (##unchecked-structure-set! __obj121520 __tmp122198 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121483 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121520 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121483 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121520 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121483 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121520 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121483 '#f '11 '#f '#f)) - (let ((__tmp122162 |gx[1]#_g122163_|)) + (##unchecked-structure-set! __obj121520 '#f '11 '#f '#f)) + (let ((__tmp122199 |gx[1]#_g122200_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121483 __tmp122162 '12 '#f '#f)) - (let ((__tmp122164 |gx[1]#_g122165_|)) + (##unchecked-structure-set! __obj121520 __tmp122199 '12 '#f '#f)) + (let ((__tmp122201 |gx[1]#_g122202_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121483 __tmp122164 '13 '#f '#f)) - (let ((__tmp122166 |gx[1]#_g122167_|)) + (##unchecked-structure-set! __obj121520 __tmp122201 '13 '#f '#f)) + (let ((__tmp122203 |gx[1]#_g122204_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121483 __tmp122166 '14 '#f '#f)) - (let ((__tmp122168 (cons (cons 'e |gx[1]#_g122169_|) '()))) + (##unchecked-structure-set! __obj121520 __tmp122203 '14 '#f '#f)) + (let ((__tmp122205 (cons (cons 'e |gx[1]#_g122206_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121483 __tmp122168 '15 '#f '#f)) - (let ((__tmp122170 (cons (cons 'e |gx[1]#_g122171_|) '()))) + (##unchecked-structure-set! __obj121520 __tmp122205 '15 '#f '#f)) + (let ((__tmp122207 (cons (cons 'e |gx[1]#_g122208_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121483 __tmp122170 '16 '#f '#f)) - (let ((__tmp122172 (cons (cons 'e |gx[1]#_g122173_|) '()))) + (##unchecked-structure-set! __obj121520 __tmp122207 '16 '#f '#f)) + (let ((__tmp122209 (cons (cons 'e |gx[1]#_g122210_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121483 __tmp122172 '17 '#f '#f)) - (let ((__tmp122174 (cons (cons 'e |gx[1]#_g122175_|) '()))) + (##unchecked-structure-set! __obj121520 __tmp122209 '17 '#f '#f)) + (let ((__tmp122211 (cons (cons 'e |gx[1]#_g122212_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121483 __tmp122174 '18 '#f '#f)) + (##unchecked-structure-set! __obj121520 __tmp122211 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121483 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121520 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121483 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121520 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121483 '() '20 '#f '#f)) - __obj121483)) + (##unchecked-structure-set! __obj121520 '() '20 '#f '#f)) + __obj121520)) (define |gx[:0:]#private-feature-expander| - (let ((__obj121484 + (let ((__obj121521 (let () (declare (not safe)) (##structure @@ -6275,7 +6275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121484 + __obj121521 'gx#private-feature-expander::t '1 '#f @@ -6283,65 +6283,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121484 + __obj121521 'private-feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121484 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121521 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121484 '(e) '6 '#f '#f)) - (let ((__tmp122176 (cons |gx[1]#_g122177_| '()))) + (##unchecked-structure-set! __obj121521 '(e) '6 '#f '#f)) + (let ((__tmp122213 (cons |gx[1]#_g122214_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121484 __tmp122176 '3 '#f '#f)) + (##unchecked-structure-set! __obj121521 __tmp122213 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121484 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121521 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121484 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121521 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121484 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121521 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121484 '#f '11 '#f '#f)) - (let ((__tmp122178 |gx[1]#_g122179_|)) + (##unchecked-structure-set! __obj121521 '#f '11 '#f '#f)) + (let ((__tmp122215 |gx[1]#_g122216_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121484 __tmp122178 '12 '#f '#f)) - (let ((__tmp122180 |gx[1]#_g122181_|)) + (##unchecked-structure-set! __obj121521 __tmp122215 '12 '#f '#f)) + (let ((__tmp122217 |gx[1]#_g122218_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121484 __tmp122180 '13 '#f '#f)) - (let ((__tmp122182 |gx[1]#_g122183_|)) + (##unchecked-structure-set! __obj121521 __tmp122217 '13 '#f '#f)) + (let ((__tmp122219 |gx[1]#_g122220_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121484 __tmp122182 '14 '#f '#f)) - (let ((__tmp122184 (cons (cons 'e |gx[1]#_g122185_|) '()))) + (##unchecked-structure-set! __obj121521 __tmp122219 '14 '#f '#f)) + (let ((__tmp122221 (cons (cons 'e |gx[1]#_g122222_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121484 __tmp122184 '15 '#f '#f)) - (let ((__tmp122186 (cons (cons 'e |gx[1]#_g122187_|) '()))) + (##unchecked-structure-set! __obj121521 __tmp122221 '15 '#f '#f)) + (let ((__tmp122223 (cons (cons 'e |gx[1]#_g122224_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121484 __tmp122186 '16 '#f '#f)) - (let ((__tmp122188 (cons (cons 'e |gx[1]#_g122189_|) '()))) + (##unchecked-structure-set! __obj121521 __tmp122223 '16 '#f '#f)) + (let ((__tmp122225 (cons (cons 'e |gx[1]#_g122226_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121484 __tmp122188 '17 '#f '#f)) - (let ((__tmp122190 (cons (cons 'e |gx[1]#_g122191_|) '()))) + (##unchecked-structure-set! __obj121521 __tmp122225 '17 '#f '#f)) + (let ((__tmp122227 (cons (cons 'e |gx[1]#_g122228_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121484 __tmp122190 '18 '#f '#f)) + (##unchecked-structure-set! __obj121521 __tmp122227 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121484 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121521 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121484 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121521 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121484 '() '20 '#f '#f)) - __obj121484)) + (##unchecked-structure-set! __obj121521 '() '20 '#f '#f)) + __obj121521)) (define |gx[:0:]#reserved-expander| - (let ((__obj121485 + (let ((__obj121522 (let () (declare (not safe)) (##structure @@ -6370,7 +6370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121485 + __obj121522 'gx#reserved-expander::t '1 '#f @@ -6378,65 +6378,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121485 + __obj121522 'reserved-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121485 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121522 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121485 '(e) '6 '#f '#f)) - (let ((__tmp122192 (cons |gx[1]#_g122020_| '()))) + (##unchecked-structure-set! __obj121522 '(e) '6 '#f '#f)) + (let ((__tmp122229 (cons |gx[1]#_g122057_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121485 __tmp122192 '3 '#f '#f)) + (##unchecked-structure-set! __obj121522 __tmp122229 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121485 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121522 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121485 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121522 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121485 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121522 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121485 '#f '11 '#f '#f)) - (let ((__tmp122193 |gx[1]#_g122194_|)) + (##unchecked-structure-set! __obj121522 '#f '11 '#f '#f)) + (let ((__tmp122230 |gx[1]#_g122231_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121485 __tmp122193 '12 '#f '#f)) - (let ((__tmp122195 |gx[1]#_g122196_|)) + (##unchecked-structure-set! __obj121522 __tmp122230 '12 '#f '#f)) + (let ((__tmp122232 |gx[1]#_g122233_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121485 __tmp122195 '13 '#f '#f)) - (let ((__tmp122197 |gx[1]#_g122198_|)) + (##unchecked-structure-set! __obj121522 __tmp122232 '13 '#f '#f)) + (let ((__tmp122234 |gx[1]#_g122235_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121485 __tmp122197 '14 '#f '#f)) - (let ((__tmp122199 (cons (cons 'e |gx[1]#_g122200_|) '()))) + (##unchecked-structure-set! __obj121522 __tmp122234 '14 '#f '#f)) + (let ((__tmp122236 (cons (cons 'e |gx[1]#_g122237_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121485 __tmp122199 '15 '#f '#f)) - (let ((__tmp122201 (cons (cons 'e |gx[1]#_g122202_|) '()))) + (##unchecked-structure-set! __obj121522 __tmp122236 '15 '#f '#f)) + (let ((__tmp122238 (cons (cons 'e |gx[1]#_g122239_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121485 __tmp122201 '16 '#f '#f)) - (let ((__tmp122203 (cons (cons 'e |gx[1]#_g122204_|) '()))) + (##unchecked-structure-set! __obj121522 __tmp122238 '16 '#f '#f)) + (let ((__tmp122240 (cons (cons 'e |gx[1]#_g122241_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121485 __tmp122203 '17 '#f '#f)) - (let ((__tmp122205 (cons (cons 'e |gx[1]#_g122206_|) '()))) + (##unchecked-structure-set! __obj121522 __tmp122240 '17 '#f '#f)) + (let ((__tmp122242 (cons (cons 'e |gx[1]#_g122243_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121485 __tmp122205 '18 '#f '#f)) + (##unchecked-structure-set! __obj121522 __tmp122242 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121485 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121522 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121485 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121522 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121485 '() '20 '#f '#f)) - __obj121485)) + (##unchecked-structure-set! __obj121522 '() '20 '#f '#f)) + __obj121522)) (define |gx[:0:]#macro-expander| - (let ((__obj121486 + (let ((__obj121523 (let () (declare (not safe)) (##structure @@ -6465,68 +6465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121486 + __obj121523 'gx#macro-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121486 'macro-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121523 'macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121486 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121523 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121486 '(e) '6 '#f '#f)) - (let ((__tmp122207 (cons |gx[1]#_g122020_| '()))) + (##unchecked-structure-set! __obj121523 '(e) '6 '#f '#f)) + (let ((__tmp122244 (cons |gx[1]#_g122057_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121486 __tmp122207 '3 '#f '#f)) + (##unchecked-structure-set! __obj121523 __tmp122244 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121486 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121523 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121486 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121523 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121486 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121523 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121486 '#f '11 '#f '#f)) - (let ((__tmp122208 |gx[1]#_g122209_|)) + (##unchecked-structure-set! __obj121523 '#f '11 '#f '#f)) + (let ((__tmp122245 |gx[1]#_g122246_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121486 __tmp122208 '12 '#f '#f)) - (let ((__tmp122210 |gx[1]#_g122211_|)) + (##unchecked-structure-set! __obj121523 __tmp122245 '12 '#f '#f)) + (let ((__tmp122247 |gx[1]#_g122248_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121486 __tmp122210 '13 '#f '#f)) - (let ((__tmp122212 |gx[1]#_g122213_|)) + (##unchecked-structure-set! __obj121523 __tmp122247 '13 '#f '#f)) + (let ((__tmp122249 |gx[1]#_g122250_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121486 __tmp122212 '14 '#f '#f)) - (let ((__tmp122214 (cons (cons 'e |gx[1]#_g122215_|) '()))) + (##unchecked-structure-set! __obj121523 __tmp122249 '14 '#f '#f)) + (let ((__tmp122251 (cons (cons 'e |gx[1]#_g122252_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121486 __tmp122214 '15 '#f '#f)) - (let ((__tmp122216 (cons (cons 'e |gx[1]#_g122217_|) '()))) + (##unchecked-structure-set! __obj121523 __tmp122251 '15 '#f '#f)) + (let ((__tmp122253 (cons (cons 'e |gx[1]#_g122254_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121486 __tmp122216 '16 '#f '#f)) - (let ((__tmp122218 (cons (cons 'e |gx[1]#_g122219_|) '()))) + (##unchecked-structure-set! __obj121523 __tmp122253 '16 '#f '#f)) + (let ((__tmp122255 (cons (cons 'e |gx[1]#_g122256_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121486 __tmp122218 '17 '#f '#f)) - (let ((__tmp122220 (cons (cons 'e |gx[1]#_g122221_|) '()))) + (##unchecked-structure-set! __obj121523 __tmp122255 '17 '#f '#f)) + (let ((__tmp122257 (cons (cons 'e |gx[1]#_g122258_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121486 __tmp122220 '18 '#f '#f)) + (##unchecked-structure-set! __obj121523 __tmp122257 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121486 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121523 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121486 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121523 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121486 '() '20 '#f '#f)) - __obj121486)) + (##unchecked-structure-set! __obj121523 '() '20 '#f '#f)) + __obj121523)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj121487 + (let ((__obj121524 (let () (declare (not safe)) (##structure @@ -6555,7 +6555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121487 + __obj121524 'gx#rename-macro-expander::t '1 '#f @@ -6563,65 +6563,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121487 + __obj121524 'rename-macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121487 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121524 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121487 '(e) '6 '#f '#f)) - (let ((__tmp122222 (cons |gx[1]#_g122223_| '()))) + (##unchecked-structure-set! __obj121524 '(e) '6 '#f '#f)) + (let ((__tmp122259 (cons |gx[1]#_g122260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121487 __tmp122222 '3 '#f '#f)) + (##unchecked-structure-set! __obj121524 __tmp122259 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121487 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121524 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121487 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121524 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121487 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121524 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121487 '#f '11 '#f '#f)) - (let ((__tmp122224 |gx[1]#_g122225_|)) + (##unchecked-structure-set! __obj121524 '#f '11 '#f '#f)) + (let ((__tmp122261 |gx[1]#_g122262_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121487 __tmp122224 '12 '#f '#f)) - (let ((__tmp122226 |gx[1]#_g122227_|)) + (##unchecked-structure-set! __obj121524 __tmp122261 '12 '#f '#f)) + (let ((__tmp122263 |gx[1]#_g122264_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121487 __tmp122226 '13 '#f '#f)) - (let ((__tmp122228 |gx[1]#_g122229_|)) + (##unchecked-structure-set! __obj121524 __tmp122263 '13 '#f '#f)) + (let ((__tmp122265 |gx[1]#_g122266_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121487 __tmp122228 '14 '#f '#f)) - (let ((__tmp122230 (cons (cons 'e |gx[1]#_g122231_|) '()))) + (##unchecked-structure-set! __obj121524 __tmp122265 '14 '#f '#f)) + (let ((__tmp122267 (cons (cons 'e |gx[1]#_g122268_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121487 __tmp122230 '15 '#f '#f)) - (let ((__tmp122232 (cons (cons 'e |gx[1]#_g122233_|) '()))) + (##unchecked-structure-set! __obj121524 __tmp122267 '15 '#f '#f)) + (let ((__tmp122269 (cons (cons 'e |gx[1]#_g122270_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121487 __tmp122232 '16 '#f '#f)) - (let ((__tmp122234 (cons (cons 'e |gx[1]#_g122235_|) '()))) + (##unchecked-structure-set! __obj121524 __tmp122269 '16 '#f '#f)) + (let ((__tmp122271 (cons (cons 'e |gx[1]#_g122272_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121487 __tmp122234 '17 '#f '#f)) - (let ((__tmp122236 (cons (cons 'e |gx[1]#_g122237_|) '()))) + (##unchecked-structure-set! __obj121524 __tmp122271 '17 '#f '#f)) + (let ((__tmp122273 (cons (cons 'e |gx[1]#_g122274_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121487 __tmp122236 '18 '#f '#f)) + (##unchecked-structure-set! __obj121524 __tmp122273 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121487 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121524 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121487 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121524 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121487 '() '20 '#f '#f)) - __obj121487)) + (##unchecked-structure-set! __obj121524 '() '20 '#f '#f)) + __obj121524)) (define |gx[:0:]#user-expander| - (let ((__obj121488 + (let ((__obj121525 (let () (declare (not safe)) (##structure @@ -6650,80 +6650,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121488 + __obj121525 'gx#user-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121488 'user-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121525 'user-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121488 '(context phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj121525 '(context phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121488 '(e context phi) '6 '#f '#f)) - (let ((__tmp122238 (cons |gx[1]#_g122223_| '()))) + (##unchecked-structure-set! __obj121525 '(e context phi) '6 '#f '#f)) + (let ((__tmp122275 (cons |gx[1]#_g122260_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121488 __tmp122238 '3 '#f '#f)) + (##unchecked-structure-set! __obj121525 __tmp122275 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121488 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121525 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121488 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121525 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121488 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121525 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121488 '#f '11 '#f '#f)) - (let ((__tmp122239 |gx[1]#_g122240_|)) + (##unchecked-structure-set! __obj121525 '#f '11 '#f '#f)) + (let ((__tmp122276 |gx[1]#_g122277_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121488 __tmp122239 '12 '#f '#f)) - (let ((__tmp122241 |gx[1]#_g122242_|)) + (##unchecked-structure-set! __obj121525 __tmp122276 '12 '#f '#f)) + (let ((__tmp122278 |gx[1]#_g122279_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121488 __tmp122241 '13 '#f '#f)) - (let ((__tmp122243 |gx[1]#_g122244_|)) + (##unchecked-structure-set! __obj121525 __tmp122278 '13 '#f '#f)) + (let ((__tmp122280 |gx[1]#_g122281_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121488 __tmp122243 '14 '#f '#f)) - (let ((__tmp122245 - (cons (cons 'context |gx[1]#_g122246_|) - (cons (cons 'phi |gx[1]#_g122247_|) - (cons (cons 'e |gx[1]#_g122248_|) '()))))) + (##unchecked-structure-set! __obj121525 __tmp122280 '14 '#f '#f)) + (let ((__tmp122282 + (cons (cons 'context |gx[1]#_g122283_|) + (cons (cons 'phi |gx[1]#_g122284_|) + (cons (cons 'e |gx[1]#_g122285_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121488 __tmp122245 '15 '#f '#f)) - (let ((__tmp122249 - (cons (cons 'context |gx[1]#_g122250_|) - (cons (cons 'phi |gx[1]#_g122251_|) - (cons (cons 'e |gx[1]#_g122252_|) '()))))) + (##unchecked-structure-set! __obj121525 __tmp122282 '15 '#f '#f)) + (let ((__tmp122286 + (cons (cons 'context |gx[1]#_g122287_|) + (cons (cons 'phi |gx[1]#_g122288_|) + (cons (cons 'e |gx[1]#_g122289_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121488 __tmp122249 '16 '#f '#f)) - (let ((__tmp122253 - (cons (cons 'context |gx[1]#_g122254_|) - (cons (cons 'phi |gx[1]#_g122255_|) - (cons (cons 'e |gx[1]#_g122256_|) '()))))) + (##unchecked-structure-set! __obj121525 __tmp122286 '16 '#f '#f)) + (let ((__tmp122290 + (cons (cons 'context |gx[1]#_g122291_|) + (cons (cons 'phi |gx[1]#_g122292_|) + (cons (cons 'e |gx[1]#_g122293_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121488 __tmp122253 '17 '#f '#f)) - (let ((__tmp122257 - (cons (cons 'context |gx[1]#_g122258_|) - (cons (cons 'phi |gx[1]#_g122259_|) - (cons (cons 'e |gx[1]#_g122260_|) '()))))) + (##unchecked-structure-set! __obj121525 __tmp122290 '17 '#f '#f)) + (let ((__tmp122294 + (cons (cons 'context |gx[1]#_g122295_|) + (cons (cons 'phi |gx[1]#_g122296_|) + (cons (cons 'e |gx[1]#_g122297_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121488 __tmp122257 '18 '#f '#f)) + (##unchecked-structure-set! __obj121525 __tmp122294 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121488 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121525 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121488 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121525 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121488 '() '20 '#f '#f)) - __obj121488)) + (##unchecked-structure-set! __obj121525 '() '20 '#f '#f)) + __obj121525)) (define |gx[:0:]#expander-mark| - (let ((__obj121489 + (let ((__obj121526 (let () (declare (not safe)) (##structure @@ -6752,18 +6752,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121489 + __obj121526 'gx#expander-mark::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121489 'expander-mark '2 '#f '#f)) + (##unchecked-structure-set! __obj121526 'expander-mark '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121489 + __obj121526 '(subst context phi trace) '4 '#f @@ -6771,74 +6771,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121489 + __obj121526 '(subst context phi trace) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121489 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121526 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121489 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121526 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121489 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121526 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121489 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121526 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121489 '#f '11 '#f '#f)) - (let ((__tmp122261 |gx[1]#_g122262_|)) + (##unchecked-structure-set! __obj121526 '#f '11 '#f '#f)) + (let ((__tmp122298 |gx[1]#_g122299_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121489 __tmp122261 '12 '#f '#f)) - (let ((__tmp122263 |gx[1]#_g122264_|)) + (##unchecked-structure-set! __obj121526 __tmp122298 '12 '#f '#f)) + (let ((__tmp122300 |gx[1]#_g122301_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121489 __tmp122263 '13 '#f '#f)) - (let ((__tmp122265 |gx[1]#_g122266_|)) + (##unchecked-structure-set! __obj121526 __tmp122300 '13 '#f '#f)) + (let ((__tmp122302 |gx[1]#_g122303_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121489 __tmp122265 '14 '#f '#f)) - (let ((__tmp122267 - (cons (cons 'subst |gx[1]#_g122268_|) - (cons (cons 'context |gx[1]#_g122269_|) - (cons (cons 'phi |gx[1]#_g122270_|) - (cons (cons 'trace |gx[1]#_g122271_|) + (##unchecked-structure-set! __obj121526 __tmp122302 '14 '#f '#f)) + (let ((__tmp122304 + (cons (cons 'subst |gx[1]#_g122305_|) + (cons (cons 'context |gx[1]#_g122306_|) + (cons (cons 'phi |gx[1]#_g122307_|) + (cons (cons 'trace |gx[1]#_g122308_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121489 __tmp122267 '15 '#f '#f)) - (let ((__tmp122272 - (cons (cons 'subst |gx[1]#_g122273_|) - (cons (cons 'context |gx[1]#_g122274_|) - (cons (cons 'phi |gx[1]#_g122275_|) - (cons (cons 'trace |gx[1]#_g122276_|) + (##unchecked-structure-set! __obj121526 __tmp122304 '15 '#f '#f)) + (let ((__tmp122309 + (cons (cons 'subst |gx[1]#_g122310_|) + (cons (cons 'context |gx[1]#_g122311_|) + (cons (cons 'phi |gx[1]#_g122312_|) + (cons (cons 'trace |gx[1]#_g122313_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121489 __tmp122272 '16 '#f '#f)) - (let ((__tmp122277 - (cons (cons 'subst |gx[1]#_g122278_|) - (cons (cons 'context |gx[1]#_g122279_|) - (cons (cons 'phi |gx[1]#_g122280_|) - (cons (cons 'trace |gx[1]#_g122281_|) + (##unchecked-structure-set! __obj121526 __tmp122309 '16 '#f '#f)) + (let ((__tmp122314 + (cons (cons 'subst |gx[1]#_g122315_|) + (cons (cons 'context |gx[1]#_g122316_|) + (cons (cons 'phi |gx[1]#_g122317_|) + (cons (cons 'trace |gx[1]#_g122318_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121489 __tmp122277 '17 '#f '#f)) - (let ((__tmp122282 - (cons (cons 'subst |gx[1]#_g122283_|) - (cons (cons 'context |gx[1]#_g122284_|) - (cons (cons 'phi |gx[1]#_g122285_|) - (cons (cons 'trace |gx[1]#_g122286_|) + (##unchecked-structure-set! __obj121526 __tmp122314 '17 '#f '#f)) + (let ((__tmp122319 + (cons (cons 'subst |gx[1]#_g122320_|) + (cons (cons 'context |gx[1]#_g122321_|) + (cons (cons 'phi |gx[1]#_g122322_|) + (cons (cons 'trace |gx[1]#_g122323_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121489 __tmp122282 '18 '#f '#f)) + (##unchecked-structure-set! __obj121526 __tmp122319 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121489 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121526 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121489 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121526 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121489 '() '20 '#f '#f)) - __obj121489)))) + (##unchecked-structure-set! __obj121526 '() '20 '#f '#f)) + __obj121526)))) diff --git a/src/bootstrap/gerbil/expander/init~0.scm b/src/bootstrap/gerbil/expander/init~0.scm index a0676eac8..01f230b83 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 1733687560) + (define gerbil/expander/init::timestamp 1733870075) (begin - (let ((__tmp133074 - (let ((__obj133072 + (let ((__tmp133111 + (let ((__obj133109 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj133072)) - __obj133072))) + (gx#top-context:::init!__0 __obj133109)) + __obj133109))) (declare (not safe)) - (gx#current-expander-context __tmp133074)) + (gx#current-expander-context __tmp133111)) (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 ((__tmp133075 - (let ((__obj133073 + (let ((__tmp133112 + (let ((__obj133110 (let () (declare (not safe)) (##structure @@ -37,7 +37,7 @@ '#f)))) (let () (declare (not safe)) - (gx#prelude-context:::init!__0 __obj133073 '#f)) - __obj133073))) + (gx#prelude-context:::init!__0 __obj133110 '#f)) + __obj133110))) (declare (not safe)) - (gx#core-bind-root-syntax!__% ': __tmp133075 '#t)))) + (gx#core-bind-root-syntax!__% ': __tmp133112 '#t)))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index 262c2fd91..0bfac44c3 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -279,10 +279,8 @@ package: gerbil/expander #f #f #f - ((:init! . gx#export-expander:::init!) - (apply-export-expander - . - gx#export-expander::apply-export-expander)))) + ((apply-export-expander . gx#export-expander::apply-export-expander) + (:init! . gx#export-expander:::init!)))) (declare-type gx#export-expander::t (optimizer-resolve-class '(typedecl gx#export-expander::t) 'class::t)) diff --git a/src/bootstrap/gerbil/expander/module~0.scm b/src/bootstrap/gerbil/expander/module~0.scm index 9aafa19be..30c9fab09 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 1733687560) + (define gerbil/expander/module::timestamp 1733870074) (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 _%$args128923%_ - (apply make-instance gx#module-import::t _%$args128923%_))) + (lambda _%$args128960%_ + (apply make-instance gx#module-import::t _%$args128960%_))) (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 _%$args128920%_ - (apply make-instance gx#module-export::t _%$args128920%_))) + (lambda _%$args128957%_ + (apply make-instance gx#module-export::t _%$args128957%_))) (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 _%$args128917%_ - (apply make-instance gx#import-set::t _%$args128917%_))) + (lambda _%$args128954%_ + (apply make-instance gx#import-set::t _%$args128954%_))) (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 _%$args128914%_ - (apply make-instance gx#export-set::t _%$args128914%_))) + (lambda _%$args128951%_ + (apply make-instance gx#export-set::t _%$args128951%_))) (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 _%$args128911%_ - (apply make-instance gx#import-expander::t _%$args128911%_))) + (lambda _%$args128948%_ + (apply make-instance gx#import-expander::t _%$args128948%_))) (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 _%$args128908%_ - (apply make-instance gx#export-expander::t _%$args128908%_))) + (lambda _%$args128945%_ + (apply make-instance gx#export-expander::t _%$args128945%_))) (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 _%$args128905%_ - (apply make-instance gx#import-export-expander::t _%$args128905%_))) + (lambda _%$args128942%_ + (apply make-instance gx#import-export-expander::t _%$args128942%_))) (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 (_%path128902%_ _%fun128903%_) + (lambda (_%path128939%_ _%fun128940%_) (call-with-input-file - (cons 'path: (cons _%path128902%_ gx#source-file-settings)) - _%fun128903%_))) + (cons 'path: (cons _%path128939%_ gx#source-file-settings)) + _%fun128940%_))) (define gx#module-context:::init! - (lambda (_%self125354128883%_ - _%id128885%_ - _%super128886%_ - _%ns128887%_ - _%path128888%_) - (let* ((_%self128890%_ _%self125354128883%_) - (_%self128892%_ _%self128890%_)) - (if (##fx< '11 (##structure-length _%self128892%_)) + (lambda (_%self125391128920%_ + _%id128922%_ + _%super128923%_ + _%ns128924%_ + _%path128925%_) + (let* ((_%self128927%_ _%self125391128920%_) + (_%self128929%_ _%self128927%_)) + (if (##fx< '11 (##structure-length _%self128929%_)) (begin (##unchecked-structure-set! - _%self128892%_ - _%id128885%_ + _%self128929%_ + _%id128922%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128892%_ + _%self128929%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self128892%_ - _%super128886%_ + _%self128929%_ + _%super128923%_ '3 '#f '#f) - (##unchecked-structure-set! _%self128892%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self128892%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self128929%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self128929%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self128892%_ - _%ns128887%_ + _%self128929%_ + _%ns128924%_ '6 '#f '#f) (##unchecked-structure-set! - _%self128892%_ - _%path128888%_ + _%self128929%_ + _%path128925%_ '7 '#f '#f) - (##unchecked-structure-set! _%self128892%_ '() '8 '#f '#f) - (##unchecked-structure-set! _%self128892%_ '() '9 '#f '#f) - (##unchecked-structure-set! _%self128892%_ '#f '10 '#f '#f) - (##unchecked-structure-set! _%self128892%_ '#f '11 '#f '#f) + (##unchecked-structure-set! _%self128929%_ '() '8 '#f '#f) + (##unchecked-structure-set! _%self128929%_ '() '9 '#f '#f) + (##unchecked-structure-set! _%self128929%_ '#f '10 '#f '#f) + (##unchecked-structure-set! _%self128929%_ '#f '11 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128892%_ + _%self128929%_ '11 - (##vector-length _%self128892%_)))))) + (##vector-length _%self128929%_)))))) (__bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_%self125355128714%_ _%ctx128716%_ _%root128717%_) - (let* ((_%self128719%_ _%self125355128714%_) - (_%self128721%_ _%self128719%_) - (_%super128737%_ - (let ((_%$e128731%_ _%root128717%_)) - (if _%$e128731%_ - _%$e128731%_ - (let ((_%$e128734%_ (gx#core-context-root__0))) - (if _%$e128734%_ - _%$e128734%_ - (let ((__obj128967 + (lambda (_%self125392128751%_ _%ctx128753%_ _%root128754%_) + (let* ((_%self128756%_ _%self125392128751%_) + (_%self128758%_ _%self128756%_) + (_%super128774%_ + (let ((_%$e128768%_ _%root128754%_)) + (if _%$e128768%_ + _%$e128768%_ + (let ((_%$e128771%_ (gx#core-context-root__0))) + (if _%$e128771%_ + _%$e128771%_ + (let ((__obj129004 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor128968 + (let ((__constructor129005 (direct-method-ref gx#root-context::t - __obj128967 + __obj129004 ':init!))) - (if __constructor128968 - (__constructor128968 __obj128967) + (if __constructor129005 + (__constructor129005 __obj129004) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj128967))))))) - (if _%ctx128716%_ - (let ((_%id128740%_ + __obj129004))))))) + (if _%ctx128753%_ + (let ((_%id128777%_ (##structure-ref - _%ctx128716%_ + _%ctx128753%_ '1 gx#expander-context::t '#f)) - (_%path128741%_ + (_%path128778%_ (##structure-ref - _%ctx128716%_ + _%ctx128753%_ '7 gx#module-context::t '#f)) - (_%in128742%_ + (_%in128779%_ (map gx#core-module-export->import (##structure-ref - _%ctx128716%_ + _%ctx128753%_ '9 gx#module-context::t '#f))) - (_%e128743%_ + (_%e128780%_ (__make-promise - (lambda () (gx#eval-module _%ctx128716%_))))) - (if (##fx< '8 (##structure-length _%self128721%_)) + (lambda () (gx#eval-module _%ctx128753%_))))) + (if (##fx< '8 (##structure-length _%self128758%_)) (begin (##unchecked-structure-set! - _%self128721%_ - _%id128740%_ + _%self128758%_ + _%id128777%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128721%_ - (make-hash-table-eq 'size: (##length _%in128742%_)) + _%self128758%_ + (make-hash-table-eq 'size: (##length _%in128779%_)) '2 '#f '#f) (##unchecked-structure-set! - _%self128721%_ - _%super128737%_ + _%self128758%_ + _%super128774%_ '3 '#f '#f) (##unchecked-structure-set! - _%self128721%_ + _%self128758%_ '#f '4 '#f '#f) (##unchecked-structure-set! - _%self128721%_ + _%self128758%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self128721%_ - _%path128741%_ + _%self128758%_ + _%path128778%_ '6 '#f '#f) (##unchecked-structure-set! - _%self128721%_ - _%in128742%_ + _%self128758%_ + _%in128779%_ '7 '#f '#f) (##unchecked-structure-set! - _%self128721%_ - _%e128743%_ + _%self128758%_ + _%e128780%_ '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128721%_ + _%self128758%_ '8 - (##vector-length _%self128721%_))) + (##vector-length _%self128758%_))) (##for-each - (lambda (_%g128744128746%_) + (lambda (_%g128781128783%_) (gx#core-bind-weak-import!__% - _%g128744128746%_ - _%self128721%_)) - _%in128742%_)) - (if (##fx< '8 (##structure-length _%self128721%_)) + _%g128781128783%_ + _%self128758%_)) + _%in128779%_)) + (if (##fx< '8 (##structure-length _%self128758%_)) (begin - (##unchecked-structure-set! _%self128721%_ '#f '1 '#f '#f) + (##unchecked-structure-set! _%self128758%_ '#f '1 '#f '#f) (##unchecked-structure-set! - _%self128721%_ + _%self128758%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self128721%_ - _%super128737%_ + _%self128758%_ + _%super128774%_ '3 '#f '#f) - (##unchecked-structure-set! _%self128721%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self128721%_ '#f '5 '#f '#f) - (##unchecked-structure-set! _%self128721%_ '#f '6 '#f '#f) - (##unchecked-structure-set! _%self128721%_ '() '7 '#f '#f) - (##unchecked-structure-set! _%self128721%_ '#f '8 '#f '#f) + (##unchecked-structure-set! _%self128758%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self128758%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self128758%_ '#f '6 '#f '#f) + (##unchecked-structure-set! _%self128758%_ '() '7 '#f '#f) + (##unchecked-structure-set! _%self128758%_ '#f '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128721%_ + _%self128758%_ '8 - (##vector-length _%self128721%_))))))) + (##vector-length _%self128758%_))))))) (define gx#prelude-context:::init!__0 - (lambda (_%self125355128752%_ _%ctx128753%_) - (let ((_%root128755%_ '#f)) + (lambda (_%self125392128789%_ _%ctx128790%_) + (let ((_%root128792%_ '#f)) (gx#prelude-context:::init!__% - _%self125355128752%_ - _%ctx128753%_ - _%root128755%_)))) + _%self125392128789%_ + _%ctx128790%_ + _%root128792%_)))) (define gx#prelude-context:::init! - (lambda _g128974_ - (let ((_g128973_ (##length _g128974_))) - (cond ((##fx= _g128973_ 2) - (apply gx#prelude-context:::init!__0 _g128974_)) - ((##fx= _g128973_ 3) - (apply gx#prelude-context:::init!__% _g128974_)) + (lambda _g129011_ + (let ((_g129010_ (##length _g129011_))) + (cond ((##fx= _g129010_ 2) + (apply gx#prelude-context:::init!__0 _g129011_)) + ((##fx= _g129010_ 3) + (apply gx#prelude-context:::init!__% _g129011_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g128974_)))))) + _g129011_)))))) (__bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_%self128588%_ _%e128589%_) - (if (##fx< '3 (##structure-length _%self128588%_)) + (lambda (_%self128625%_ _%e128626%_) + (if (##fx< '3 (##structure-length _%self128625%_)) (begin (##unchecked-structure-set! - _%self128588%_ - _%e128589%_ + _%self128625%_ + _%e128626%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128588%_ + _%self128625%_ (gx#current-expander-context) '2 '#f '#f) (##unchecked-structure-set! - _%self128588%_ + _%self128625%_ (##fx- (gx#current-expander-phi) '1) '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128588%_ + _%self128625%_ '3 - (##vector-length _%self128588%_))))) + (##vector-length _%self128625%_))))) (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 (_%g128214128217%_ _%g128215128219%_) + (lambda (_%g128251128254%_ _%g128252128256%_) (gx#core-apply-user-expander__% - _%g128214128217%_ - _%g128215128219%_ + _%g128251128254%_ + _%g128252128256%_ '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 (_%g128085128088%_ _%g128086128090%_) + (lambda (_%g128122128125%_ _%g128123128127%_) (gx#core-apply-user-expander__% - _%g128085128088%_ - _%g128086128090%_ + _%g128122128125%_ + _%g128123128127%_ '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 (_%ctx127956%_) - (let* ((_%path127958%_ - (##structure-ref _%ctx127956%_ '7 gx#module-context::t '#f)) - (_%path127960%_ - (if (pair? _%path127958%_) - (##last _%path127958%_) - _%path127958%_))) - (if (string? _%path127960%_) _%path127960%_ '#f)))) + (lambda (_%ctx127993%_) + (let* ((_%path127995%_ + (##structure-ref _%ctx127993%_ '7 gx#module-context::t '#f)) + (_%path127997%_ + (if (pair? _%path127995%_) + (##last _%path127995%_) + _%path127995%_))) + (if (string? _%path127997%_) _%path127997%_ '#f)))) (define gx#import-module__% - (lambda (_%path127932%_ _%reload?127933%_ _%eval?127934%_) - (let ((_%ctx127936%_ + (lambda (_%path127969%_ _%reload?127970%_ _%eval?127971%_) + (let ((_%ctx127973%_ ((gx#current-expander-module-import) - _%path127932%_ - _%reload?127933%_))) - (if (and _%ctx127936%_ _%eval?127934%_) - (gx#eval-module _%ctx127936%_) + _%path127969%_ + _%reload?127970%_))) + (if (and _%ctx127973%_ _%eval?127971%_) + (gx#eval-module _%ctx127973%_) '#!void) - _%ctx127936%_))) + _%ctx127973%_))) (define gx#import-module__0 - (lambda (_%path127941%_) - (let* ((_%reload?127943%_ '#f) (_%eval?127945%_ '#f)) + (lambda (_%path127978%_) + (let* ((_%reload?127980%_ '#f) (_%eval?127982%_ '#f)) (gx#import-module__% - _%path127941%_ - _%reload?127943%_ - _%eval?127945%_)))) + _%path127978%_ + _%reload?127980%_ + _%eval?127982%_)))) (define gx#import-module__1 - (lambda (_%path127947%_ _%reload?127948%_) - (let ((_%eval?127950%_ '#f)) + (lambda (_%path127984%_ _%reload?127985%_) + (let ((_%eval?127987%_ '#f)) (gx#import-module__% - _%path127947%_ - _%reload?127948%_ - _%eval?127950%_)))) + _%path127984%_ + _%reload?127985%_ + _%eval?127987%_)))) (define gx#import-module - (lambda _g128976_ - (let ((_g128975_ (##length _g128976_))) - (cond ((##fx= _g128975_ 1) (apply gx#import-module__0 _g128976_)) - ((##fx= _g128975_ 2) (apply gx#import-module__1 _g128976_)) - ((##fx= _g128975_ 3) (apply gx#import-module__% _g128976_)) + (lambda _g129013_ + (let ((_g129012_ (##length _g129013_))) + (cond ((##fx= _g129012_ 1) (apply gx#import-module__0 _g129013_)) + ((##fx= _g129012_ 2) (apply gx#import-module__1 _g129013_)) + ((##fx= _g129012_ 3) (apply gx#import-module__% _g129013_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g128976_)))))) + _g129013_)))))) (define gx#eval-module - (lambda (_%mod127929%_) - ((gx#current-expander-module-eval) _%mod127929%_))) + (lambda (_%mod127966%_) + ((gx#current-expander-module-eval) _%mod127966%_))) (define gx#core-eval-module - (lambda (_%obj127909%_) - (letrec ((_%force-e127911%_ - (lambda (_%getf127925%_ _%e127926%_) + (lambda (_%obj127946%_) + (letrec ((_%force-e127948%_ + (lambda (_%getf127962%_ _%e127963%_) (__call-with-parameters - (lambda () (force (_%getf127925%_ _%e127926%_))) + (lambda () (force (_%getf127962%_ _%e127963%_))) gx#current-expander-context - _%e127926%_ + _%e127963%_ gx#current-expander-phi '0)))) - (let _%recur127913%_ ((_%e127915%_ _%obj127909%_)) - (if (##structure-instance-of? _%e127915%_ 'gx#module-context::t) + (let _%recur127950%_ ((_%e127952%_ _%obj127946%_)) + (if (##structure-instance-of? _%e127952%_ 'gx#module-context::t) (let () - (let ((_%$e127918%_ - (gx#core-context-prelude__% _%e127915%_))) - (if _%$e127918%_ (_%recur127913%_ _%$e127918%_) '#!void)) - (_%force-e127911%_ gx#module-context-e _%e127915%_)) + (let ((_%$e127955%_ + (gx#core-context-prelude__% _%e127952%_))) + (if _%$e127955%_ (_%recur127950%_ _%$e127955%_) '#!void)) + (_%force-e127948%_ gx#module-context-e _%e127952%_)) (if (##structure-instance-of? - _%e127915%_ + _%e127952%_ 'gx#prelude-context::t) - (_%force-e127911%_ gx#prelude-context-e _%e127915%_) - (if (gx#stx-string? _%e127915%_) - (_%recur127913%_ + (_%force-e127948%_ gx#prelude-context-e _%e127952%_) + (if (gx#stx-string? _%e127952%_) + (_%recur127950%_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _%e127915%_))) - (if (gx#core-library-module-path? _%e127915%_) - (_%recur127913%_ + (gx#core-resolve-module-path__0 _%e127952%_))) + (if (gx#core-library-module-path? _%e127952%_) + (_%recur127950%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%e127915%_))) - (error '"cannot eval module" _%obj127909%_))))))))) + _%e127952%_))) + (error '"cannot eval module" _%obj127946%_))))))))) (define gx#core-context-prelude__% - (lambda (_%ctx127889%_) - (let _%lp127891%_ ((_%e127893%_ _%ctx127889%_)) - (if (or (##structure-instance-of? _%e127893%_ 'gx#module-context::t) - (##structure-instance-of? _%e127893%_ 'gx#local-context::t)) - (_%lp127891%_ (##unchecked-structure-ref _%e127893%_ '3 '#f '#f)) - (if (##structure-instance-of? _%e127893%_ 'gx#prelude-context::t) - _%e127893%_ + (lambda (_%ctx127926%_) + (let _%lp127928%_ ((_%e127930%_ _%ctx127926%_)) + (if (or (##structure-instance-of? _%e127930%_ 'gx#module-context::t) + (##structure-instance-of? _%e127930%_ 'gx#local-context::t)) + (_%lp127928%_ (##unchecked-structure-ref _%e127930%_ '3 '#f '#f)) + (if (##structure-instance-of? _%e127930%_ 'gx#prelude-context::t) + _%e127930%_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_%ctx127905%_ (gx#current-expander-context))) - (gx#core-context-prelude__% _%ctx127905%_)))) + (let ((_%ctx127942%_ (gx#current-expander-context))) + (gx#core-context-prelude__% _%ctx127942%_)))) (define gx#core-context-prelude - (lambda _g128978_ - (let ((_g128977_ (##length _g128978_))) - (cond ((##fx= _g128977_ 0) - (apply gx#core-context-prelude__0 _g128978_)) - ((##fx= _g128977_ 1) - (apply gx#core-context-prelude__% _g128978_)) + (lambda _g129015_ + (let ((_g129014_ (##length _g129015_))) + (cond ((##fx= _g129014_ 0) + (apply gx#core-context-prelude__0 _g129015_)) + ((##fx= _g129014_ 1) + (apply gx#core-context-prelude__% _g129015_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g128978_)))))) + _g129015_)))))) (define gx#core-module->prelude-context - (lambda (_%ctx127880%_) - (let ((_%$e127882%_ (__hash-get gx#__module-registry _%ctx127880%_))) - (if _%$e127882%_ - _%$e127882%_ - (let ((_%pre127886%_ - (let ((__obj128969 + (lambda (_%ctx127917%_) + (let ((_%$e127919%_ (__hash-get gx#__module-registry _%ctx127917%_))) + (if _%$e127919%_ + _%$e127919%_ + (let ((_%pre127923%_ + (let ((__obj129006 (##structure gx#prelude-context::t '#f @@ -720,52 +720,52 @@ '#f '#f))) (gx#prelude-context:::init!__0 - __obj128969 - _%ctx127880%_) - __obj128969))) - (__hash-put! gx#__module-registry _%ctx127880%_ _%pre127886%_) - _%pre127886%_))))) + __obj129006 + _%ctx127917%_) + __obj129006))) + (__hash-put! gx#__module-registry _%ctx127917%_ _%pre127923%_) + _%pre127923%_))))) (define gx#core-import-module__% - (lambda (_%rpath127752%_ _%reload?127753%_) - (letrec ((_%import-source127755%_ - (lambda (_%path127844%_) - (if (member _%path127844%_ (gx#current-expander-path)) - (error '"Cyclic expansion" _%path127844%_) + (lambda (_%rpath127789%_ _%reload?127790%_) + (letrec ((_%import-source127792%_ + (lambda (_%path127881%_) + (if (member _%path127881%_ (gx#current-expander-path)) + (error '"Cyclic expansion" _%path127881%_) '#!void) (__call-with-parameters (lambda () - (let ((_g128979_ (gx#core-read-module _%path127844%_))) + (let ((_g129016_ (gx#core-read-module _%path127881%_))) (begin - (let ((_g128980_ - (if (##values? _g128979_) - (##vector-length _g128979_) + (let ((_g129017_ + (if (##values? _g129016_) + (##vector-length _g129016_) 1))) - (if (not (##fx= _g128980_ 4)) - (error "Context expects 4 values" _g128980_))) - (let ((_%pre127847%_ (##vector-ref _g128979_ 0)) - (_%id127848%_ (##vector-ref _g128979_ 1)) - (_%ns127849%_ (##vector-ref _g128979_ 2)) - (_%body127850%_ (##vector-ref _g128979_ 3))) - (let* ((_%prelude127860%_ + (if (not (##fx= _g129017_ 4)) + (error "Context expects 4 values" _g129017_))) + (let ((_%pre127884%_ (##vector-ref _g129016_ 0)) + (_%id127885%_ (##vector-ref _g129016_ 1)) + (_%ns127886%_ (##vector-ref _g129016_ 2)) + (_%body127887%_ (##vector-ref _g129016_ 3))) + (let* ((_%prelude127897%_ (if (##structure-instance-of? - _%pre127847%_ + _%pre127884%_ 'gx#prelude-context::t) - _%pre127847%_ + _%pre127884%_ (if (##structure-instance-of? - _%pre127847%_ + _%pre127884%_ 'gx#module-context::t) (gx#core-module->prelude-context - _%pre127847%_) - (if (string? _%pre127847%_) + _%pre127884%_) + (if (string? _%pre127884%_) (gx#core-module->prelude-context (gx#core-import-module__0 - _%pre127847%_)) - (if (not _%pre127847%_) - (let ((_%$e127856%_ + _%pre127884%_)) + (if (not _%pre127884%_) + (let ((_%$e127893%_ (gx#current-expander-module-prelude))) - (if _%$e127856%_ - _%$e127856%_ - (let ((__obj128970 + (if _%$e127893%_ + _%$e127893%_ + (let ((__obj129007 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -777,14 +777,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init!__0 __obj128970 '#f) - __obj128970))) + (gx#prelude-context:::init!__0 __obj129007 '#f) + __obj129007))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"cannot import module; unknown prelude" - _%rpath127752%_ - _%pre127847%_)))))) - (_%ctx127862%_ - (let ((__obj128971 + _%rpath127789%_ + _%pre127884%_)))))) + (_%ctx127899%_ + (let ((__obj129008 (##structure gx#module-context::t '#f @@ -799,44 +799,44 @@ '#f '#f))) (gx#module-context:::init! - __obj128971 - _%id127848%_ - _%prelude127860%_ - _%ns127849%_ - _%path127844%_) - __obj128971)) - (_%body127864%_ + __obj129008 + _%id127885%_ + _%prelude127897%_ + _%ns127886%_ + _%path127881%_) + __obj129008)) + (_%body127901%_ (gx#core-expand-module-begin - _%body127850%_ - _%ctx127862%_)) - (_%body127866%_ + _%body127887%_ + _%ctx127899%_)) + (_%body127903%_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _%body127864%_) - _%path127844%_ - _%ctx127862%_ + (gx#core-cons '%#begin _%body127901%_) + _%path127881%_ + _%ctx127899%_ '()))) (##unchecked-structure-set! - _%ctx127862%_ + _%ctx127899%_ (__make-promise - (lambda () (gx#eval-syntax* _%body127866%_))) + (lambda () (gx#eval-syntax* _%body127903%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx127862%_ - _%body127866%_ + _%ctx127899%_ + _%body127903%_ '11 '#f '#f) (__hash-put! gx#__module-registry - _%path127844%_ - _%ctx127862%_) + _%path127881%_ + _%ctx127899%_) (__hash-put! gx#__module-registry - _%id127848%_ - _%ctx127862%_) - _%ctx127862%_))))) + _%id127885%_ + _%ctx127899%_) + _%ctx127899%_))))) 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 _%path127844%_ (gx#current-expander-path)) + (cons _%path127881%_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_%import-submodule127756%_ - (lambda (_%rpath127772%_) - (let* ((_%rpath127773127780%_ _%rpath127772%_) - (_%E127775127784%_ + (_%import-submodule127793%_ + (lambda (_%rpath127809%_) + (let* ((_%rpath127810127817%_ _%rpath127809%_) + (_%E127812127821%_ (lambda () (error '"No clause matching" - _%rpath127773127780%_ + _%rpath127810127817%_ '([origin . refs])) '#!void)) - (_%K127776127832%_ - (lambda (_%refs127787%_ _%origin127788%_) - (let ((_%ctx127790%_ - (if _%origin127788%_ + (_%K127813127869%_ + (lambda (_%refs127824%_ _%origin127825%_) + (let ((_%ctx127827%_ + (if _%origin127825%_ (gx#core-import-module__% - _%origin127788%_ - _%reload?127753%_) + _%origin127825%_ + _%reload?127790%_) (gx#current-expander-context)))) - (let _%lp127792%_ ((_%rest127794%_ - _%refs127787%_) - (_%ctx127795%_ - _%ctx127790%_)) - (let* ((_%rest127796127804%_ _%rest127794%_) - (_%else127798127812%_ - (lambda () _%ctx127795%_)) - (_%K127800127820%_ - (lambda (_%rest127815%_ _%id127816%_) - (let ((_%bind127818%_ + (let _%lp127829%_ ((_%rest127831%_ + _%refs127824%_) + (_%ctx127832%_ + _%ctx127827%_)) + (let* ((_%rest127833127841%_ _%rest127831%_) + (_%else127835127849%_ + (lambda () _%ctx127832%_)) + (_%K127837127857%_ + (lambda (_%rest127852%_ _%id127853%_) + (let ((_%bind127855%_ (gx#resolve-identifier__% - _%id127816%_ + _%id127853%_ '0 - _%ctx127795%_))) + _%ctx127832%_))) (if (and (##structure-direct-instance-of? - _%bind127818%_ + _%bind127855%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind127818%_ + _%bind127855%_ '4 '#f '#f) 'gx#module-context::t)) - (_%lp127792%_ - _%rest127815%_ + (_%lp127829%_ + _%rest127852%_ (##unchecked-structure-ref - _%bind127818%_ + _%bind127855%_ '4 '#f '#f)) (error '"cannot import submodule; not bound as a module" - _%rpath127772%_ - _%id127816%_ - _%bind127818%_)))))) - (if (pair? _%rest127796127804%_) - (let ((_%hd127801127823%_ - (##car _%rest127796127804%_)) - (_%tl127802127825%_ - (##cdr _%rest127796127804%_))) - (let* ((_%id127828%_ - _%hd127801127823%_) - (_%rest127830%_ - _%tl127802127825%_)) - (_%K127800127820%_ - _%rest127830%_ - _%id127828%_))) - (_%else127798127812%_)))))))) - (if (pair? _%rpath127773127780%_) - (let ((_%hd127777127835%_ - (##car _%rpath127773127780%_)) - (_%tl127778127837%_ - (##cdr _%rpath127773127780%_))) - (let* ((_%origin127840%_ _%hd127777127835%_) - (_%refs127842%_ _%tl127778127837%_)) - (_%K127776127832%_ - _%refs127842%_ - _%origin127840%_))) - (_%E127775127784%_)))))) - (let ((_%$e127758%_ - (if (not _%reload?127753%_) - (__hash-get gx#__module-registry _%rpath127752%_) + _%rpath127809%_ + _%id127853%_ + _%bind127855%_)))))) + (if (pair? _%rest127833127841%_) + (let ((_%hd127838127860%_ + (##car _%rest127833127841%_)) + (_%tl127839127862%_ + (##cdr _%rest127833127841%_))) + (let* ((_%id127865%_ + _%hd127838127860%_) + (_%rest127867%_ + _%tl127839127862%_)) + (_%K127837127857%_ + _%rest127867%_ + _%id127865%_))) + (_%else127835127849%_)))))))) + (if (pair? _%rpath127810127817%_) + (let ((_%hd127814127872%_ + (##car _%rpath127810127817%_)) + (_%tl127815127874%_ + (##cdr _%rpath127810127817%_))) + (let* ((_%origin127877%_ _%hd127814127872%_) + (_%refs127879%_ _%tl127815127874%_)) + (_%K127813127869%_ + _%refs127879%_ + _%origin127877%_))) + (_%E127812127821%_)))))) + (let ((_%$e127795%_ + (if (not _%reload?127790%_) + (__hash-get gx#__module-registry _%rpath127789%_) '#f))) - (if _%$e127758%_ - _%$e127758%_ - (if (list? _%rpath127752%_) - (_%import-submodule127756%_ _%rpath127752%_) - (if (gx#core-library-module-path? _%rpath127752%_) - (let ((_%ctx127763%_ + (if _%$e127795%_ + _%$e127795%_ + (if (list? _%rpath127789%_) + (_%import-submodule127793%_ _%rpath127789%_) + (if (gx#core-library-module-path? _%rpath127789%_) + (let ((_%ctx127800%_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _%rpath127752%_) - _%reload?127753%_))) + _%rpath127789%_) + _%reload?127790%_))) (__hash-put! gx#__module-registry - _%rpath127752%_ - _%ctx127763%_) - _%ctx127763%_) - (let* ((_%npath127766%_ - (path-normalize _%rpath127752%_)) - (_%$e127768%_ - (if (not _%reload?127753%_) + _%rpath127789%_ + _%ctx127800%_) + _%ctx127800%_) + (let* ((_%npath127803%_ + (path-normalize _%rpath127789%_)) + (_%$e127805%_ + (if (not _%reload?127790%_) (__hash-get gx#__module-registry - _%npath127766%_) + _%npath127803%_) '#f))) - (if _%$e127768%_ - _%$e127768%_ - (_%import-source127755%_ - _%npath127766%_)))))))))) + (if _%$e127805%_ + _%$e127805%_ + (_%import-source127792%_ + _%npath127803%_)))))))))) (define gx#core-import-module__0 - (lambda (_%rpath127873%_) - (let ((_%reload?127875%_ '#f)) - (gx#core-import-module__% _%rpath127873%_ _%reload?127875%_)))) + (lambda (_%rpath127910%_) + (let ((_%reload?127912%_ '#f)) + (gx#core-import-module__% _%rpath127910%_ _%reload?127912%_)))) (define gx#core-import-module - (lambda _g128982_ - (let ((_g128981_ (##length _g128982_))) - (cond ((##fx= _g128981_ 1) - (apply gx#core-import-module__0 _g128982_)) - ((##fx= _g128981_ 2) - (apply gx#core-import-module__% _g128982_)) + (lambda _g129019_ + (let ((_g129018_ (##length _g129019_))) + (cond ((##fx= _g129018_ 1) + (apply gx#core-import-module__0 _g129019_)) + ((##fx= _g129018_ 2) + (apply gx#core-import-module__% _g129019_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g128982_)))))) + _g129019_)))))) (define gx#core-read-module - (lambda (_%path127741%_) + (lambda (_%path127778%_) (__with-catch - (lambda (_%exn127743%_) - (if (and (datum-parsing-exception? _%exn127743%_) - (eq? (datum-parsing-exception-filepos _%exn127743%_) '0)) - (gx#core-read-module/lang _%path127741%_) + (lambda (_%exn127780%_) + (if (and (datum-parsing-exception? _%exn127780%_) + (eq? (datum-parsing-exception-filepos _%exn127780%_) '0)) + (gx#core-read-module/lang _%path127778%_) (gx#raise-syntax-error 'read-module '"error reading module" - _%path127741%_ + _%path127778%_ (__call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_%g127745127747%_) - (display-exception__% _%exn127743%_ _%g127745127747%_)))) + (lambda (_%g127782127784%_) + (display-exception__% _%exn127780%_ _%g127782127784%_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _%path127741%_))))) + (lambda () (gx#core-read-module/sexp _%path127778%_))))) (define gx#core-read-module/sexp - (lambda (_%path127593%_) - (let _%lp127595%_ ((_%body127597%_ - (read-syntax-from-file _%path127593%_)) - (_%pre127598%_ '#f) - (_%ns127599%_ '#f) - (_%pkg127600%_ '#f)) - (let* ((_%e127601127625%_ _%body127597%_) - (_%E127617127651%_ + (lambda (_%path127630%_) + (let _%lp127632%_ ((_%body127634%_ + (read-syntax-from-file _%path127630%_)) + (_%pre127635%_ '#f) + (_%ns127636%_ '#f) + (_%pkg127637%_ '#f)) + (let* ((_%e127638127662%_ _%body127634%_) + (_%E127654127688%_ (lambda () - (let ((_g128983_ - (if _%pkg127600%_ - (values _%pre127598%_ - _%ns127599%_ - _%pkg127600%_) + (let ((_g129020_ + (if _%pkg127637%_ + (values _%pre127635%_ + _%ns127636%_ + _%pkg127637%_) (gx#core-read-module-package - _%path127593%_ - _%pre127598%_ - _%ns127599%_)))) + _%path127630%_ + _%pre127635%_ + _%ns127636%_)))) (begin - (let ((_g128984_ - (if (##values? _g128983_) - (##vector-length _g128983_) + (let ((_g129021_ + (if (##values? _g129020_) + (##vector-length _g129020_) 1))) - (if (not (##fx= _g128984_ 3)) - (error "Context expects 3 values" _g128984_))) - (let ((_%pre127629%_ (##vector-ref _g128983_ 0)) - (_%ns127630%_ (##vector-ref _g128983_ 1)) - (_%pkg127631%_ (##vector-ref _g128983_ 2))) - (let* ((_%prelude127637%_ + (if (not (##fx= _g129021_ 3)) + (error "Context expects 3 values" _g129021_))) + (let ((_%pre127666%_ (##vector-ref _g129020_ 0)) + (_%ns127667%_ (##vector-ref _g129020_ 1)) + (_%pkg127668%_ (##vector-ref _g129020_ 2))) + (let* ((_%prelude127674%_ (if (gx#core-bound-module-prelude? - _%pre127629%_) - (gx#syntax-local-e__0 _%pre127629%_) + _%pre127666%_) + (gx#syntax-local-e__0 _%pre127666%_) (if (gx#core-library-module-path? - _%pre127629%_) + _%pre127666%_) (gx#core-resolve-library-module-path - _%pre127629%_) - (if (gx#stx-string? _%pre127629%_) + _%pre127666%_) + (if (gx#stx-string? _%pre127666%_) (gx#core-resolve-module-path__% - _%pre127629%_ - _%path127593%_) - (gx#stx-e _%pre127629%_))))) - (_%path-id127639%_ + _%pre127666%_ + _%path127630%_) + (gx#stx-e _%pre127666%_))))) + (_%path-id127676%_ (gx#core-module-path->namespace - _%path127593%_)) - (_%pkg-id127641%_ - (if _%pkg127631%_ + _%path127630%_)) + (_%pkg-id127678%_ + (if _%pkg127668%_ (##string-append - _%pkg127631%_ + _%pkg127668%_ '"/" - _%path-id127639%_) - _%path-id127639%_)) - (_%module-id127643%_ - (##string->symbol _%pkg-id127641%_)) - (_%module-ns127648%_ - (if (eq? _%ns127630%_ '#!void) + _%path-id127676%_) + _%path-id127676%_)) + (_%module-id127680%_ + (##string->symbol _%pkg-id127678%_)) + (_%module-ns127685%_ + (if (eq? _%ns127667%_ '#!void) '#f - (let ((_%$e127645%_ _%ns127630%_)) - (if _%$e127645%_ - _%$e127645%_ - _%pkg-id127641%_))))) - (values _%prelude127637%_ - _%module-id127643%_ - _%module-ns127648%_ - _%body127597%_))))))) - (_%E127610127683%_ + (let ((_%$e127682%_ _%ns127667%_)) + (if _%$e127682%_ + _%$e127682%_ + _%pkg-id127678%_))))) + (values _%prelude127674%_ + _%module-id127680%_ + _%module-ns127685%_ + _%body127634%_))))))) + (_%E127647127720%_ (lambda () - (if (gx#stx-pair? _%e127601127625%_) - (let ((_%e127618127655%_ - (gx#syntax-e _%e127601127625%_))) - (let ((_%hd127619127658%_ (##car _%e127618127655%_)) - (_%tl127620127660%_ (##cdr _%e127618127655%_))) - (if (eq? (gx#stx-e _%hd127619127658%_) 'package:) - (if (gx#stx-pair? _%tl127620127660%_) - (let ((_%e127621127663%_ - (gx#syntax-e _%tl127620127660%_))) - (let ((_%hd127622127666%_ - (##car _%e127621127663%_)) - (_%tl127623127668%_ - (##cdr _%e127621127663%_))) - (let* ((_%pkg127671%_ - _%hd127622127666%_) - (_%rest127673%_ - _%tl127623127668%_) - (_%pkg127681%_ + (if (gx#stx-pair? _%e127638127662%_) + (let ((_%e127655127692%_ + (gx#syntax-e _%e127638127662%_))) + (let ((_%hd127656127695%_ (##car _%e127655127692%_)) + (_%tl127657127697%_ (##cdr _%e127655127692%_))) + (if (eq? (gx#stx-e _%hd127656127695%_) 'package:) + (if (gx#stx-pair? _%tl127657127697%_) + (let ((_%e127658127700%_ + (gx#syntax-e _%tl127657127697%_))) + (let ((_%hd127659127703%_ + (##car _%e127658127700%_)) + (_%tl127660127705%_ + (##cdr _%e127658127700%_))) + (let* ((_%pkg127708%_ + _%hd127659127703%_) + (_%rest127710%_ + _%tl127660127705%_) + (_%pkg127718%_ (if (gx#identifier? - _%pkg127671%_) + _%pkg127708%_) (symbol->string - (gx#stx-e _%pkg127671%_)) + (gx#stx-e _%pkg127708%_)) (if (or (gx#stx-string? - _%pkg127671%_) + _%pkg127708%_) (gx#stx-false? - _%pkg127671%_)) + _%pkg127708%_)) (gx#stx-e - _%pkg127671%_) + _%pkg127708%_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _%pkg127671%_))))) - (_%lp127595%_ - _%rest127673%_ - _%pre127598%_ - _%ns127599%_ - _%pkg127681%_)))) - (_%E127617127651%_)) - (_%E127617127651%_)))) - (_%E127617127651%_)))) - (_%E127603127713%_ + _%pkg127708%_))))) + (_%lp127632%_ + _%rest127710%_ + _%pre127635%_ + _%ns127636%_ + _%pkg127718%_)))) + (_%E127654127688%_)) + (_%E127654127688%_)))) + (_%E127654127688%_)))) + (_%E127640127750%_ (lambda () - (if (gx#stx-pair? _%e127601127625%_) - (let ((_%e127611127687%_ - (gx#syntax-e _%e127601127625%_))) - (let ((_%hd127612127690%_ (##car _%e127611127687%_)) - (_%tl127613127692%_ (##cdr _%e127611127687%_))) - (if (eq? (gx#stx-e _%hd127612127690%_) 'namespace:) - (if (gx#stx-pair? _%tl127613127692%_) - (let ((_%e127614127695%_ - (gx#syntax-e _%tl127613127692%_))) - (let ((_%hd127615127698%_ - (##car _%e127614127695%_)) - (_%tl127616127700%_ - (##cdr _%e127614127695%_))) - (let* ((_%ns127703%_ - _%hd127615127698%_) - (_%rest127705%_ - _%tl127616127700%_) - (_%ns127711%_ + (if (gx#stx-pair? _%e127638127662%_) + (let ((_%e127648127724%_ + (gx#syntax-e _%e127638127662%_))) + (let ((_%hd127649127727%_ (##car _%e127648127724%_)) + (_%tl127650127729%_ (##cdr _%e127648127724%_))) + (if (eq? (gx#stx-e _%hd127649127727%_) 'namespace:) + (if (gx#stx-pair? _%tl127650127729%_) + (let ((_%e127651127732%_ + (gx#syntax-e _%tl127650127729%_))) + (let ((_%hd127652127735%_ + (##car _%e127651127732%_)) + (_%tl127653127737%_ + (##cdr _%e127651127732%_))) + (let* ((_%ns127740%_ + _%hd127652127735%_) + (_%rest127742%_ + _%tl127653127737%_) + (_%ns127748%_ (if (gx#identifier? - _%ns127703%_) + _%ns127740%_) (symbol->string - (gx#stx-e _%ns127703%_)) + (gx#stx-e _%ns127740%_)) (if (gx#stx-string? - _%ns127703%_) - (gx#stx-e _%ns127703%_) + _%ns127740%_) + (gx#stx-e _%ns127740%_) (if (gx#stx-false? - _%ns127703%_) + _%ns127740%_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _%ns127703%_)))))) - (_%lp127595%_ - _%rest127705%_ - _%pre127598%_ - _%ns127711%_ - _%pkg127600%_)))) - (_%E127610127683%_)) - (_%E127610127683%_)))) - (_%E127610127683%_)))) - (_%E127602127737%_ + _%ns127740%_)))))) + (_%lp127632%_ + _%rest127742%_ + _%pre127635%_ + _%ns127748%_ + _%pkg127637%_)))) + (_%E127647127720%_)) + (_%E127647127720%_)))) + (_%E127647127720%_)))) + (_%E127639127774%_ (lambda () - (if (gx#stx-pair? _%e127601127625%_) - (let ((_%e127604127717%_ - (gx#syntax-e _%e127601127625%_))) - (let ((_%hd127605127720%_ (##car _%e127604127717%_)) - (_%tl127606127722%_ (##cdr _%e127604127717%_))) - (if (eq? (gx#stx-e _%hd127605127720%_) 'prelude:) - (if (gx#stx-pair? _%tl127606127722%_) - (let ((_%e127607127725%_ - (gx#syntax-e _%tl127606127722%_))) - (let ((_%hd127608127728%_ - (##car _%e127607127725%_)) - (_%tl127609127730%_ - (##cdr _%e127607127725%_))) - (let* ((_%prelude127733%_ - _%hd127608127728%_) - (_%rest127735%_ - _%tl127609127730%_)) - (_%lp127595%_ - _%rest127735%_ - _%prelude127733%_ - _%ns127599%_ - _%pkg127600%_)))) - (_%E127603127713%_)) - (_%E127603127713%_)))) - (_%E127603127713%_))))) - (_%E127602127737%_))))) + (if (gx#stx-pair? _%e127638127662%_) + (let ((_%e127641127754%_ + (gx#syntax-e _%e127638127662%_))) + (let ((_%hd127642127757%_ (##car _%e127641127754%_)) + (_%tl127643127759%_ (##cdr _%e127641127754%_))) + (if (eq? (gx#stx-e _%hd127642127757%_) 'prelude:) + (if (gx#stx-pair? _%tl127643127759%_) + (let ((_%e127644127762%_ + (gx#syntax-e _%tl127643127759%_))) + (let ((_%hd127645127765%_ + (##car _%e127644127762%_)) + (_%tl127646127767%_ + (##cdr _%e127644127762%_))) + (let* ((_%prelude127770%_ + _%hd127645127765%_) + (_%rest127772%_ + _%tl127646127767%_)) + (_%lp127632%_ + _%rest127772%_ + _%prelude127770%_ + _%ns127636%_ + _%pkg127637%_)))) + (_%E127640127750%_)) + (_%E127640127750%_)))) + (_%E127640127750%_))))) + (_%E127639127774%_))))) (define gx#core-read-module/lang - (lambda (_%path127415%_) - (letrec ((_%default-read-module-body127417%_ - (lambda (_%inp127585%_) - (let _%lp127587%_ ((_%body127589%_ '())) - (let ((_%next127591%_ (read-syntax__% _%inp127585%_))) - (if (eof-object? _%next127591%_) - (reverse _%body127589%_) - (_%lp127587%_ - (cons _%next127591%_ _%body127589%_))))))) - (_%read-body127418%_ - (lambda (_%inp127503%_ - _%pre127504%_ - _%ns127505%_ - _%pkg127506%_ - _%args127507%_) - (let ((_g128985_ - (if _%pkg127506%_ - (values _%pre127504%_ - _%ns127505%_ - _%pkg127506%_) + (lambda (_%path127452%_) + (letrec ((_%default-read-module-body127454%_ + (lambda (_%inp127622%_) + (let _%lp127624%_ ((_%body127626%_ '())) + (let ((_%next127628%_ (read-syntax__% _%inp127622%_))) + (if (eof-object? _%next127628%_) + (reverse _%body127626%_) + (_%lp127624%_ + (cons _%next127628%_ _%body127626%_))))))) + (_%read-body127455%_ + (lambda (_%inp127540%_ + _%pre127541%_ + _%ns127542%_ + _%pkg127543%_ + _%args127544%_) + (let ((_g129022_ + (if _%pkg127543%_ + (values _%pre127541%_ + _%ns127542%_ + _%pkg127543%_) (gx#core-read-module-package - _%path127415%_ - _%pre127504%_ - _%ns127505%_)))) + _%path127452%_ + _%pre127541%_ + _%ns127542%_)))) (begin - (let ((_g128986_ - (if (##values? _g128985_) - (##vector-length _g128985_) + (let ((_g129023_ + (if (##values? _g129022_) + (##vector-length _g129022_) 1))) - (if (not (##fx= _g128986_ 3)) - (error "Context expects 3 values" _g128986_))) - (let ((_%pre127509%_ (##vector-ref _g128985_ 0)) - (_%ns127510%_ (##vector-ref _g128985_ 1)) - (_%pkg127511%_ (##vector-ref _g128985_ 2))) - (let* ((_%prelude127513%_ - (gx#import-module__0 _%pre127509%_)) - (_%read-module-body127568%_ - (let ((_%$e127559%_ - (__find (lambda (_%e127514127516%_) - (let* ((_%g127518127528%_ - _%e127514127516%_) - (_%else127520127536%_ + (if (not (##fx= _g129023_ 3)) + (error "Context expects 3 values" _g129023_))) + (let ((_%pre127546%_ (##vector-ref _g129022_ 0)) + (_%ns127547%_ (##vector-ref _g129022_ 1)) + (_%pkg127548%_ (##vector-ref _g129022_ 2))) + (let* ((_%prelude127550%_ + (gx#import-module__0 _%pre127546%_)) + (_%read-module-body127605%_ + (let ((_%$e127596%_ + (__find (lambda (_%e127551127553%_) + (let* ((_%g127555127565%_ + _%e127551127553%_) + (_%else127557127573%_ (lambda () '#f)) - (_%K127522127540%_ + (_%K127559127577%_ (lambda () '#t))) (if (##structure-direct-instance-of? - _%g127518127528%_ + _%g127555127565%_ 'gx#module-export::t) - (let* ((_%e127523127543%_ + (let* ((_%e127560127580%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##unchecked-structure-ref - _%g127518127528%_ + _%g127555127565%_ '1 '#f '#f)) - (_%e127524127546%_ + (_%e127561127583%_ (##unchecked-structure-ref - _%g127518127528%_ + _%g127555127565%_ '2 '#f '#f)) - (_%e127525127549%_ + (_%e127562127586%_ (##unchecked-structure-ref - _%g127518127528%_ + _%g127555127565%_ '3 '#f '#f))) - (if (##eq? _%e127525127549%_ '1) - (let ((_%e127526127552%_ + (if (##eq? _%e127562127586%_ '1) + (let ((_%e127563127589%_ (##unchecked-structure-ref - _%g127518127528%_ + _%g127555127565%_ '4 '#f '#f))) - (if ((lambda (_%g127554127556%_) - (eq? _%g127554127556%_ 'read-module-body)) - _%e127526127552%_) - (_%K127522127540%_) - (_%else127520127536%_))) - (_%else127520127536%_))) - (_%else127520127536%_)))) + (if ((lambda (_%g127591127593%_) + (eq? _%g127591127593%_ 'read-module-body)) + _%e127563127589%_) + (_%K127559127577%_) + (_%else127557127573%_))) + (_%else127557127573%_))) + (_%else127557127573%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _%prelude127513%_ + _%prelude127550%_ '9 '#f '#f)))) - (if _%$e127559%_ - ((lambda (_%xport127562%_) - (let ((_%proc127565%_ + (if _%$e127596%_ + ((lambda (_%xport127599%_) + (let ((_%proc127602%_ (__with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _%xport127562%_) + _%xport127599%_) '1 gx#binding::t '#f)))))) - (if (procedure? _%proc127565%_) - _%proc127565%_ + (if (procedure? _%proc127602%_) + _%proc127602%_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _%path127415%_ - _%pre127509%_ - _%proc127565%_)))) - _%$e127559%_) - _%default-read-module-body127417%_))) - (_%path-id127570%_ + _%path127452%_ + _%pre127546%_ + _%proc127602%_)))) + _%$e127596%_) + _%default-read-module-body127454%_))) + (_%path-id127607%_ (gx#core-module-path->namespace - _%path127415%_)) - (_%pkg-id127572%_ - (if _%pkg127511%_ + _%path127452%_)) + (_%pkg-id127609%_ + (if _%pkg127548%_ (##string-append - _%pkg127511%_ + _%pkg127548%_ '"/" - _%path-id127570%_) - _%path-id127570%_)) - (_%module-id127574%_ - (##string->symbol _%pkg-id127572%_)) - (_%module-ns127579%_ - (let ((_%$e127576%_ _%ns127510%_)) - (if _%$e127576%_ - _%$e127576%_ - _%pkg-id127572%_))) - (_%body127582%_ + _%path-id127607%_) + _%path-id127607%_)) + (_%module-id127611%_ + (##string->symbol _%pkg-id127609%_)) + (_%module-ns127616%_ + (let ((_%$e127613%_ _%ns127547%_)) + (if _%$e127613%_ + _%$e127613%_ + _%pkg-id127609%_))) + (_%body127619%_ (__call-with-parameters (lambda () - (_%read-module-body127568%_ - _%inp127503%_)) + (_%read-module-body127605%_ + _%inp127540%_)) gx#current-module-reader-path - _%path127415%_ + _%path127452%_ gx#current-module-reader-args - _%args127507%_))) - (values _%prelude127513%_ - _%module-id127574%_ - _%module-ns127579%_ - _%body127582%_))))))) - (_%string-e127419%_ - (lambda (_%obj127497%_ _%what127498%_) - (if (string? _%obj127497%_) - _%obj127497%_ - (if (symbol? _%obj127497%_) - (##symbol->string _%obj127497%_) + _%args127544%_))) + (values _%prelude127550%_ + _%module-id127611%_ + _%module-ns127616%_ + _%body127619%_))))))) + (_%string-e127456%_ + (lambda (_%obj127534%_ _%what127535%_) + (if (string? _%obj127534%_) + _%obj127534%_ + (if (symbol? _%obj127534%_) + (##symbol->string _%obj127534%_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _%what127498%_) - _%path127415%_ - _%obj127497%_))))) - (_%read-lang-args127420%_ - (lambda (_%inp127452%_ _%args127453%_) - (let* ((_%args127454127462%_ _%args127453%_) - (_%else127456127470%_ + (string-append '"Illegal module " _%what127535%_) + _%path127452%_ + _%obj127534%_))))) + (_%read-lang-args127457%_ + (lambda (_%inp127489%_ _%args127490%_) + (let* ((_%args127491127499%_ _%args127490%_) + (_%else127493127507%_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _%path127415%_))) - (_%K127458127485%_ - (lambda (_%args127473%_ _%prelude127474%_) - (let* ((_%pkg127476%_ - (pgetq__0 'package: _%args127473%_)) - (_%pkg127478%_ - (if _%pkg127476%_ - (_%string-e127419%_ - _%pkg127476%_ + _%path127452%_))) + (_%K127495127522%_ + (lambda (_%args127510%_ _%prelude127511%_) + (let* ((_%pkg127513%_ + (pgetq__0 'package: _%args127510%_)) + (_%pkg127515%_ + (if _%pkg127513%_ + (_%string-e127456%_ + _%pkg127513%_ '"package") '#f)) - (_%ns127480%_ - (pgetq__0 'namespace: _%args127473%_)) - (_%ns127482%_ - (if _%ns127480%_ - (_%string-e127419%_ - _%ns127480%_ + (_%ns127517%_ + (pgetq__0 'namespace: _%args127510%_)) + (_%ns127519%_ + (if _%ns127517%_ + (_%string-e127456%_ + _%ns127517%_ '"namespace") '#f))) - (_%read-body127418%_ - _%inp127452%_ - _%prelude127474%_ - _%ns127482%_ - _%pkg127478%_ - _%args127473%_))))) - (if (pair? _%args127454127462%_) - (let ((_%hd127459127488%_ - (##car _%args127454127462%_)) - (_%tl127460127490%_ - (##cdr _%args127454127462%_))) - (let* ((_%prelude127493%_ _%hd127459127488%_) - (_%args127495%_ _%tl127460127490%_)) - (_%K127458127485%_ - _%args127495%_ - _%prelude127493%_))) - (_%else127456127470%_))))) - (_%read-lang127421%_ - (lambda (_%inp127426%_) - (let* ((_%head127428%_ (read-line _%inp127426%_)) - (_%$e127430%_ - (string-index__0 _%head127428%_ '#\space))) - (if _%$e127430%_ - ((lambda (_%ix127433%_) - (let ((_%lang127435%_ + (_%read-body127455%_ + _%inp127489%_ + _%prelude127511%_ + _%ns127519%_ + _%pkg127515%_ + _%args127510%_))))) + (if (pair? _%args127491127499%_) + (let ((_%hd127496127525%_ + (##car _%args127491127499%_)) + (_%tl127497127527%_ + (##cdr _%args127491127499%_))) + (let* ((_%prelude127530%_ _%hd127496127525%_) + (_%args127532%_ _%tl127497127527%_)) + (_%K127495127522%_ + _%args127532%_ + _%prelude127530%_))) + (_%else127493127507%_))))) + (_%read-lang127458%_ + (lambda (_%inp127463%_) + (let* ((_%head127465%_ (read-line _%inp127463%_)) + (_%$e127467%_ + (string-index__0 _%head127465%_ '#\space))) + (if _%$e127467%_ + ((lambda (_%ix127470%_) + (let ((_%lang127472%_ (substring - _%head127428%_ + _%head127465%_ '0 - _%ix127433%_))) - (if (equal? _%lang127435%_ '"#lang") - (let* ((_%rest127437%_ + _%ix127470%_))) + (if (equal? _%lang127472%_ '"#lang") + (let* ((_%rest127474%_ (substring - _%head127428%_ - (##fx+ _%ix127433%_ '1) - (string-length _%head127428%_))) - (_%args127448%_ + _%head127465%_ + (##fx+ _%ix127470%_ '1) + (string-length _%head127465%_))) + (_%args127485%_ (__with-catch - (lambda (_%g127438127440%_) + (lambda (_%g127475127477%_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _%path127415%_ - _%g127438127440%_)) + _%path127452%_ + _%g127475127477%_)) (lambda () (call-with-input-string - _%rest127437%_ - (lambda (_%g127443127445%_) + _%rest127474%_ + (lambda (_%g127480127482%_) (read-all - _%g127443127445%_ + _%g127480127482%_ read))))))) - (_%read-lang-args127420%_ - _%inp127426%_ - _%args127448%_)) + (_%read-lang-args127457%_ + _%inp127463%_ + _%args127485%_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127415%_)))) - _%$e127430%_) + _%path127452%_)))) + _%$e127467%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127415%_))))) - (_%read-e127422%_ - (lambda (_%inp127424%_) - (if (eq? (peek-char _%inp127424%_) '#\#) - (_%read-lang127421%_ _%inp127424%_) + _%path127452%_))))) + (_%read-e127459%_ + (lambda (_%inp127461%_) + (if (eq? (peek-char _%inp127461%_) '#\#) + (_%read-lang127458%_ _%inp127461%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127415%_))))) - (gx#call-with-input-source-file _%path127415%_ _%read-e127422%_)))) + _%path127452%_))))) + (gx#call-with-input-source-file _%path127452%_ _%read-e127459%_)))) (define gx#core-read-module-package - (lambda (_%path127363%_ _%pre127364%_ _%ns127365%_) - (letrec ((_%string-e127367%_ - (lambda (_%e127410%_) - (if (symbol? _%e127410%_) - (##symbol->string _%e127410%_) - (if (string? _%e127410%_) - _%e127410%_ + (lambda (_%path127400%_ _%pre127401%_ _%ns127402%_) + (letrec ((_%string-e127404%_ + (lambda (_%e127447%_) + (if (symbol? _%e127447%_) + (##symbol->string _%e127447%_) + (if (string? _%e127447%_) + _%e127447%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%e127410%_)))))) - (let _%lp127369%_ ((_%dir127371%_ (path-directory _%path127363%_)) - (_%pkg-path127372%_ '())) - (let ((_%gerbil.pkg127374%_ - (path-expand '"gerbil.pkg" _%dir127371%_))) - (if (##file-exists? _%gerbil.pkg127374%_) - (let ((_%plist127376%_ - (gx#core-library-package-plist__% _%dir127371%_ '#t))) - (if (null? _%plist127376%_) - (let ((_%pkg127379%_ - (if (null? _%pkg-path127372%_) + _%e127447%_)))))) + (let _%lp127406%_ ((_%dir127408%_ (path-directory _%path127400%_)) + (_%pkg-path127409%_ '())) + (let ((_%gerbil.pkg127411%_ + (path-expand '"gerbil.pkg" _%dir127408%_))) + (if (##file-exists? _%gerbil.pkg127411%_) + (let ((_%plist127413%_ + (gx#core-library-package-plist__% _%dir127408%_ '#t))) + (if (null? _%plist127413%_) + (let ((_%pkg127416%_ + (if (null? _%pkg-path127409%_) '#f - (string-join _%pkg-path127372%_ '"/")))) - (values _%pre127364%_ _%ns127365%_ _%pkg127379%_)) - (if (list? _%plist127376%_) - (let* ((_%root127382%_ - (pgetq__0 'package: _%plist127376%_)) - (_%pkg127386%_ - (let ((_%pkg-path127384%_ - (if _%root127382%_ - (cons (_%string-e127367%_ - _%root127382%_) - _%pkg-path127372%_) - _%pkg-path127372%_))) - (if (null? _%pkg-path127384%_) + (string-join _%pkg-path127409%_ '"/")))) + (values _%pre127401%_ _%ns127402%_ _%pkg127416%_)) + (if (list? _%plist127413%_) + (let* ((_%root127419%_ + (pgetq__0 'package: _%plist127413%_)) + (_%pkg127423%_ + (let ((_%pkg-path127421%_ + (if _%root127419%_ + (cons (_%string-e127404%_ + _%root127419%_) + _%pkg-path127409%_) + _%pkg-path127409%_))) + (if (null? _%pkg-path127421%_) '#f (string-join - _%pkg-path127384%_ + _%pkg-path127421%_ '"/")))) - (_%ns127393%_ - (let ((_%ns127391%_ - (let ((_%$e127388%_ _%ns127365%_)) - (if _%$e127388%_ - _%$e127388%_ + (_%ns127430%_ + (let ((_%ns127428%_ + (let ((_%$e127425%_ _%ns127402%_)) + (if _%$e127425%_ + _%$e127425%_ (pgetq__0 'namespace: - _%plist127376%_))))) - (if _%ns127391%_ - (_%string-e127367%_ _%ns127391%_) + _%plist127413%_))))) + (if _%ns127428%_ + (_%string-e127404%_ _%ns127428%_) '#f))) - (_%pre127398%_ - (let ((_%$e127395%_ _%pre127364%_)) - (if _%$e127395%_ - _%$e127395%_ + (_%pre127435%_ + (let ((_%$e127432%_ _%pre127401%_)) + (if _%$e127432%_ + _%$e127432%_ (pgetq__0 'prelude: - _%plist127376%_))))) - (values _%pre127398%_ - _%ns127393%_ - _%pkg127386%_)) + _%plist127413%_))))) + (values _%pre127435%_ + _%ns127430%_ + _%pkg127423%_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%plist127376%_)))) - (let ((_%dir*127402%_ + _%plist127413%_)))) + (let ((_%dir*127439%_ (path-strip-trailing-directory-separator - _%dir127371%_))) - (if (or (__string-empty? _%dir*127402%_) - (equal? _%dir127371%_ _%dir*127402%_)) - (values _%pre127364%_ _%ns127365%_ '#f) - (let ((_%xpath127407%_ - (path-strip-directory _%dir*127402%_)) - (_%xdir127408%_ (path-directory _%dir*127402%_))) - (_%lp127369%_ - _%xdir127408%_ - (cons _%xpath127407%_ _%pkg-path127372%_))))))))))) + _%dir127408%_))) + (if (or (__string-empty? _%dir*127439%_) + (equal? _%dir127408%_ _%dir*127439%_)) + (values _%pre127401%_ _%ns127402%_ '#f) + (let ((_%xpath127444%_ + (path-strip-directory _%dir*127439%_)) + (_%xdir127445%_ (path-directory _%dir*127439%_))) + (_%lp127406%_ + _%xdir127445%_ + (cons _%xpath127444%_ _%pkg-path127409%_))))))))))) (define gx#core-module-path->namespace - (lambda (_%path127361%_) - (path-strip-extension (path-strip-directory _%path127361%_)))) + (lambda (_%path127398%_) + (path-strip-extension (path-strip-directory _%path127398%_)))) (define gx#core-module-path->id - (lambda (_%path127359%_) - (##string->symbol (gx#core-module-path->namespace _%path127359%_)))) + (lambda (_%path127396%_) + (##string->symbol (gx#core-module-path->namespace _%path127396%_)))) (define gx#core-resolve-module-path__% - (lambda (_%stx-path127338%_ _%rel127339%_) - (let* ((_%path127341%_ (gx#stx-e _%stx-path127338%_)) - (_%path127343%_ - (if (__string-empty? (path-extension _%path127341%_)) - (##string-append _%path127341%_ '".ss") - _%path127341%_))) + (lambda (_%stx-path127375%_ _%rel127376%_) + (let* ((_%path127378%_ (gx#stx-e _%stx-path127375%_)) + (_%path127380%_ + (if (__string-empty? (path-extension _%path127378%_)) + (##string-append _%path127378%_ '".ss") + _%path127378%_))) (gx#core-resolve-path__% - _%path127343%_ - (let ((_%$e127346%_ (gx#stx-source _%stx-path127338%_))) - (if _%$e127346%_ _%$e127346%_ _%rel127339%_)))))) + _%path127380%_ + (let ((_%$e127383%_ (gx#stx-source _%stx-path127375%_))) + (if _%$e127383%_ _%$e127383%_ _%rel127376%_)))))) (define gx#core-resolve-module-path__0 - (lambda (_%stx-path127352%_) - (let ((_%rel127354%_ '#f)) - (gx#core-resolve-module-path__% _%stx-path127352%_ _%rel127354%_)))) + (lambda (_%stx-path127389%_) + (let ((_%rel127391%_ '#f)) + (gx#core-resolve-module-path__% _%stx-path127389%_ _%rel127391%_)))) (define gx#core-resolve-module-path - (lambda _g128988_ - (let ((_g128987_ (##length _g128988_))) - (cond ((##fx= _g128987_ 1) - (apply gx#core-resolve-module-path__0 _g128988_)) - ((##fx= _g128987_ 2) - (apply gx#core-resolve-module-path__% _g128988_)) + (lambda _g129025_ + (let ((_g129024_ (##length _g129025_))) + (cond ((##fx= _g129024_ 1) + (apply gx#core-resolve-module-path__0 _g129025_)) + ((##fx= _g129024_ 2) + (apply gx#core-resolve-module-path__% _g129025_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g128988_)))))) + _g129025_)))))) (define gx#core-resolve-library-module-path - (lambda (_%libpath127223%_) - (let* ((_%spath127225%_ (symbol->string (gx#stx-e _%libpath127223%_))) - (_%spath127227%_ + (lambda (_%libpath127260%_) + (let* ((_%spath127262%_ (symbol->string (gx#stx-e _%libpath127260%_))) + (_%spath127264%_ (substring - _%spath127225%_ + _%spath127262%_ '1 - (##string-length _%spath127225%_))) - (_%ext127229%_ (path-extension _%spath127227%_)) - (_%ssi127231%_ - (if (__string-empty? _%ext127229%_) - (##string-append _%spath127227%_ '".ssi") + (##string-length _%spath127262%_))) + (_%ext127266%_ (path-extension _%spath127264%_)) + (_%ssi127268%_ + (if (__string-empty? _%ext127266%_) + (##string-append _%spath127264%_ '".ssi") (##string-append - (path-strip-extension _%spath127227%_) + (path-strip-extension _%spath127264%_) '".ssi"))) - (_%srcs127235%_ - (if (__string-empty? _%ext127229%_) - (##map (lambda (_%ext127233%_) - (string-append _%spath127227%_ _%ext127233%_)) + (_%srcs127272%_ + (if (__string-empty? _%ext127266%_) + (##map (lambda (_%ext127270%_) + (string-append _%spath127264%_ _%ext127270%_)) '(".ss" ".sld" ".scm")) - (cons _%spath127227%_ '())))) - (let _%lp127238%_ ((_%rest127240%_ (load-path))) - (let* ((_%rest127241127250%_ _%rest127240%_) - (_%E127244127254%_ + (cons _%spath127264%_ '())))) + (let _%lp127275%_ ((_%rest127277%_ (load-path))) + (let* ((_%rest127278127287%_ _%rest127277%_) + (_%E127281127291%_ (lambda () (error '"No clause matching" - _%rest127241127250%_ + _%rest127278127287%_ '([dir . rest]) '([])) '#!void))) - (let ((_%K127246127325%_ - (lambda (_%rest127265%_ _%dir127266%_) - (letrec ((_%resolve127268%_ - (lambda (_%ssi127281%_ _%srcs127282%_) - (let ((_%compiled-path127284%_ + (let ((_%K127283127362%_ + (lambda (_%rest127302%_ _%dir127303%_) + (letrec ((_%resolve127305%_ + (lambda (_%ssi127318%_ _%srcs127319%_) + (let ((_%compiled-path127321%_ (path-expand - _%ssi127281%_ - _%dir127266%_))) + _%ssi127318%_ + _%dir127303%_))) (if (##file-exists? - _%compiled-path127284%_) + _%compiled-path127321%_) (path-normalize - _%compiled-path127284%_) - (let _%lpr127286%_ ((_%rest-src127288%_ - _%srcs127282%_)) - (let* ((_%rest-src127289127297%_ - _%rest-src127288%_) - (_%else127291127305%_ + _%compiled-path127321%_) + (let _%lpr127323%_ ((_%rest-src127325%_ + _%srcs127319%_)) + (let* ((_%rest-src127326127334%_ + _%rest-src127325%_) + (_%else127328127342%_ (lambda () - (_%lp127238%_ - _%rest127265%_))) - (_%K127293127313%_ - (lambda (_%rest-src127308%_ - _%src127309%_) - (let ((_%src-path127311%_ + (_%lp127275%_ + _%rest127302%_))) + (_%K127330127350%_ + (lambda (_%rest-src127345%_ + _%src127346%_) + (let ((_%src-path127348%_ (path-expand - _%src127309%_ - _%dir127266%_))) + _%src127346%_ + _%dir127303%_))) (if (##file-exists? - _%src-path127311%_) + _%src-path127348%_) (path-normalize - _%src-path127311%_) - (_%lpr127286%_ - _%rest-src127308%_)))))) - (if (pair? _%rest-src127289127297%_) - (let ((_%hd127294127316%_ - (##car _%rest-src127289127297%_)) - (_%tl127295127318%_ - (##cdr _%rest-src127289127297%_))) - (let* ((_%src127321%_ - _%hd127294127316%_) - (_%rest-src127323%_ - _%tl127295127318%_)) - (_%K127293127313%_ - _%rest-src127323%_ - _%src127321%_))) - (_%else127291127305%_))))))))) - (let ((_%$e127270%_ + _%src-path127348%_) + (_%lpr127323%_ + _%rest-src127345%_)))))) + (if (pair? _%rest-src127326127334%_) + (let ((_%hd127331127353%_ + (##car _%rest-src127326127334%_)) + (_%tl127332127355%_ + (##cdr _%rest-src127326127334%_))) + (let* ((_%src127358%_ + _%hd127331127353%_) + (_%rest-src127360%_ + _%tl127332127355%_)) + (_%K127330127350%_ + _%rest-src127360%_ + _%src127358%_))) + (_%else127328127342%_))))))))) + (let ((_%$e127307%_ (gx#core-library-package-path-prefix - _%dir127266%_))) - (if _%$e127270%_ - ((lambda (_%prefix127273%_) + _%dir127303%_))) + (if _%$e127307%_ + ((lambda (_%prefix127310%_) (if (string-prefix? - _%prefix127273%_ - _%spath127227%_) - (let ((_%ssi127277%_ + _%prefix127310%_ + _%spath127264%_) + (let ((_%ssi127314%_ (substring - _%ssi127231%_ - (string-length _%prefix127273%_) - (##string-length _%ssi127231%_))) - (_%srcs127278%_ - (##map (lambda (_%src127275%_) + _%ssi127268%_ + (string-length _%prefix127310%_) + (##string-length _%ssi127268%_))) + (_%srcs127315%_ + (##map (lambda (_%src127312%_) (substring - _%src127275%_ + _%src127312%_ (string-length - _%prefix127273%_) + _%prefix127310%_) (string-length - _%src127275%_))) - _%srcs127235%_))) - (_%resolve127268%_ - _%ssi127277%_ - _%srcs127278%_)) - (_%lp127238%_ _%rest127265%_))) - _%$e127270%_) - (_%resolve127268%_ - _%ssi127231%_ - _%srcs127235%_)))))) - (_%K127245127259%_ + _%src127312%_))) + _%srcs127272%_))) + (_%resolve127305%_ + _%ssi127314%_ + _%srcs127315%_)) + (_%lp127275%_ _%rest127302%_))) + _%$e127307%_) + (_%resolve127305%_ + _%ssi127268%_ + _%srcs127272%_)))))) + (_%K127282127296%_ (lambda () (gx#raise-syntax-error '#f '"cannot find library module" - _%libpath127223%_)))) - (let ((_%try-match127243127262%_ + _%libpath127260%_)))) + (let ((_%try-match127280127299%_ (lambda () - (if (null? _%rest127241127250%_) - (_%K127245127259%_) - (_%E127244127254%_))))) - (if (pair? _%rest127241127250%_) - (let ((_%tl127248127330%_ (##cdr _%rest127241127250%_)) - (_%hd127247127328%_ (##car _%rest127241127250%_))) - (let ((_%dir127333%_ _%hd127247127328%_) - (_%rest127335%_ _%tl127248127330%_)) - (_%K127246127325%_ _%rest127335%_ _%dir127333%_))) - (_%try-match127243127262%_))))))))) + (if (null? _%rest127278127287%_) + (_%K127282127296%_) + (_%E127281127291%_))))) + (if (pair? _%rest127278127287%_) + (let ((_%tl127285127367%_ (##cdr _%rest127278127287%_)) + (_%hd127284127365%_ (##car _%rest127278127287%_))) + (let ((_%dir127370%_ _%hd127284127365%_) + (_%rest127372%_ _%tl127285127367%_)) + (_%K127283127362%_ _%rest127372%_ _%dir127370%_))) + (_%try-match127280127299%_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_%modpath127191%_) - (letrec ((_%resolve127193%_ - (lambda (_%path127214%_ _%base127215%_) - (let ((_%$e127217%_ - (string-rindex__0 _%base127215%_ '#\/))) - (if _%$e127217%_ - ((lambda (_%idx127220%_) + (lambda (_%modpath127228%_) + (letrec ((_%resolve127230%_ + (lambda (_%path127251%_ _%base127252%_) + (let ((_%$e127254%_ + (string-rindex__0 _%base127252%_ '#\/))) + (if _%$e127254%_ + ((lambda (_%idx127257%_) (gx#core-resolve-library-module-path (##string->symbol (string-append '":" - (substring _%base127215%_ '0 _%idx127220%_) + (substring _%base127252%_ '0 _%idx127257%_) '"/" - _%path127214%_)))) - _%$e127217%_) + _%path127251%_)))) + _%$e127254%_) (gx#core-resolve-library-module-path (##string->symbol - (string-append '":" _%path127214%_)))))))) - (let ((_%spath127195%_ (symbol->string (gx#stx-e _%modpath127191%_))) - (_%mod127196%_ + (string-append '":" _%path127251%_)))))))) + (let ((_%spath127232%_ (symbol->string (gx#stx-e _%modpath127228%_))) + (_%mod127233%_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _%mod127196%_ + (if _%mod127233%_ '#!void (gx#raise-syntax-error '#f '"cannot resolve relative module path; not in module context" - _%modpath127191%_)) - (let ((_%mpath127198%_ + _%modpath127228%_)) + (let ((_%mpath127235%_ (symbol->string (##structure-ref - _%mod127196%_ + _%mod127233%_ '1 gx#expander-context::t '#f)))) - (let _%lp127200%_ ((_%spath127202%_ _%spath127195%_) - (_%mpath127203%_ _%mpath127198%_)) - (if (string-prefix? '"../" _%spath127202%_) - (let ((_%$e127206%_ - (string-rindex__0 _%mpath127203%_ '#\/))) - (if _%$e127206%_ - ((lambda (_%idx127209%_) - (_%lp127200%_ + (let _%lp127237%_ ((_%spath127239%_ _%spath127232%_) + (_%mpath127240%_ _%mpath127235%_)) + (if (string-prefix? '"../" _%spath127239%_) + (let ((_%$e127243%_ + (string-rindex__0 _%mpath127240%_ '#\/))) + (if _%$e127243%_ + ((lambda (_%idx127246%_) + (_%lp127237%_ (substring - _%spath127202%_ + _%spath127239%_ '3 - (string-length _%spath127202%_)) - (substring _%mpath127203%_ '0 _%idx127209%_))) - _%$e127206%_) + (string-length _%spath127239%_)) + (substring _%mpath127240%_ '0 _%idx127246%_))) + _%$e127243%_) (gx#raise-syntax-error '#f '"cannot resolve relative module path; illegal traversal" - _%modpath127191%_))) - (if (string-prefix? '"./" _%spath127202%_) - (_%lp127200%_ + _%modpath127228%_))) + (if (string-prefix? '"./" _%spath127239%_) + (_%lp127237%_ (substring - _%spath127202%_ + _%spath127239%_ '2 - (string-length _%spath127202%_)) - _%mpath127203%_) - (_%resolve127193%_ - _%spath127202%_ - _%mpath127203%_))))))))) + (string-length _%spath127239%_)) + _%mpath127240%_) + (_%resolve127230%_ + _%spath127239%_ + _%mpath127240%_))))))))) (define gx#core-library-package-path-prefix - (lambda (_%dir127183%_) - (let ((_%$e127185%_ + (lambda (_%dir127220%_) + (let ((_%$e127222%_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _%dir127183%_)))) - (if _%$e127185%_ - ((lambda (_%pkg127188%_) - (##string-append (symbol->string _%pkg127188%_) '"/")) - _%$e127185%_) + (gx#core-library-package-plist__0 _%dir127220%_)))) + (if _%$e127222%_ + ((lambda (_%pkg127225%_) + (##string-append (symbol->string _%pkg127225%_) '"/")) + _%$e127222%_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_%dir127153%_ _%exists?127154%_) - (let ((_%$e127156%_ (__hash-get gx#__module-pkg-cache _%dir127153%_))) - (if _%$e127156%_ - _%$e127156%_ - (let* ((_%gerbil.pkg127160%_ - (path-expand '"gerbil.pkg" _%dir127153%_)) - (_%plist127170%_ - (if (or _%exists?127154%_ - (##file-exists? _%gerbil.pkg127160%_)) - (let ((_%e127165%_ + (lambda (_%dir127190%_ _%exists?127191%_) + (let ((_%$e127193%_ (__hash-get gx#__module-pkg-cache _%dir127190%_))) + (if _%$e127193%_ + _%$e127193%_ + (let* ((_%gerbil.pkg127197%_ + (path-expand '"gerbil.pkg" _%dir127190%_)) + (_%plist127207%_ + (if (or _%exists?127191%_ + (##file-exists? _%gerbil.pkg127197%_)) + (let ((_%e127202%_ (gx#call-with-input-source-file - _%gerbil.pkg127160%_ + _%gerbil.pkg127197%_ read))) - (if (eof-object? _%e127165%_) + (if (eof-object? _%e127202%_) '() - (if (list? _%e127165%_) - _%e127165%_ + (if (list? _%e127202%_) + _%e127202%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%gerbil.pkg127160%_ - _%e127165%_)))) + _%gerbil.pkg127197%_ + _%e127202%_)))) '()))) (__hash-put! gx#__module-pkg-cache - _%dir127153%_ - _%plist127170%_) - _%plist127170%_))))) + _%dir127190%_ + _%plist127207%_) + _%plist127207%_))))) (define gx#core-library-package-plist__0 - (lambda (_%dir127176%_) - (let ((_%exists?127178%_ '#f)) - (gx#core-library-package-plist__% _%dir127176%_ _%exists?127178%_)))) + (lambda (_%dir127213%_) + (let ((_%exists?127215%_ '#f)) + (gx#core-library-package-plist__% _%dir127213%_ _%exists?127215%_)))) (define gx#core-library-package-plist - (lambda _g128990_ - (let ((_g128989_ (##length _g128990_))) - (cond ((##fx= _g128989_ 1) - (apply gx#core-library-package-plist__0 _g128990_)) - ((##fx= _g128989_ 2) - (apply gx#core-library-package-plist__% _g128990_)) + (lambda _g129027_ + (let ((_g129026_ (##length _g129027_))) + (cond ((##fx= _g129026_ 1) + (apply gx#core-library-package-plist__0 _g129027_)) + ((##fx= _g129026_ 2) + (apply gx#core-library-package-plist__% _g129027_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g128990_)))))) + _g129027_)))))) (define gx#core-library-module-path? - (lambda (_%stx127150%_) - (gx#core-special-module-path? _%stx127150%_ '#\:))) + (lambda (_%stx127187%_) + (gx#core-special-module-path? _%stx127187%_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_%stx127148%_) - (gx#core-special-module-path? _%stx127148%_ '#\.))) + (lambda (_%stx127185%_) + (gx#core-special-module-path? _%stx127185%_ '#\.))) (define gx#core-special-module-path? - (lambda (_%stx127143%_ _%char127144%_) - (if (gx#identifier? _%stx127143%_) - (if (interned-symbol? (gx#stx-e _%stx127143%_)) - (let ((_%str127146%_ - (symbol->string (gx#stx-e _%stx127143%_)))) - (if (##fx> (##string-length _%str127146%_) '1) - (eq? (string-ref _%str127146%_ '0) _%char127144%_) + (lambda (_%stx127180%_ _%char127181%_) + (if (gx#identifier? _%stx127180%_) + (if (interned-symbol? (gx#stx-e _%stx127180%_)) + (let ((_%str127183%_ + (symbol->string (gx#stx-e _%stx127180%_)))) + (if (##fx> (##string-length _%str127183%_) '1) + (eq? (string-ref _%str127183%_ '0) _%char127181%_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_%stx127137%_) + (lambda (_%stx127174%_) (gx#core-bound-identifier?__% - _%stx127137%_ - (lambda (_%g127138127140%_) - (gx#expander-binding?__% _%g127138127140%_ gx#prelude-context?))))) + _%stx127174%_ + (lambda (_%g127175127177%_) + (gx#expander-binding?__% _%g127175127177%_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_%stx127131%_) + (lambda (_%stx127168%_) (gx#core-bound-identifier?__% - _%stx127131%_ - (lambda (_%g127132127134%_) - (gx#expander-binding?__% _%g127132127134%_ gx#module-context?))))) + _%stx127168%_ + (lambda (_%g127169127171%_) + (gx#expander-binding?__% _%g127169127171%_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_%stx127118%_) - (letrec ((_%module-prelude?127120%_ - (lambda (_%e127126%_) - (let ((_%$e127128%_ + (lambda (_%stx127155%_) + (letrec ((_%module-prelude?127157%_ + (lambda (_%e127163%_) + (let ((_%$e127165%_ (##structure-instance-of? - _%e127126%_ + _%e127163%_ 'gx#module-context::t))) - (if _%$e127128%_ - _%$e127128%_ + (if _%$e127165%_ + _%$e127165%_ (##structure-instance-of? - _%e127126%_ + _%e127163%_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _%stx127118%_ - (lambda (_%g127121127123%_) + _%stx127155%_ + (lambda (_%g127158127160%_) (gx#expander-binding?__% - _%g127121127123%_ - _%module-prelude?127120%_)))))) + _%g127158127160%_ + _%module-prelude?127157%_)))))) (define gx#core-bind-import!__% - (lambda (_%in127048%_ _%ctx127049%_ _%force-weak?127050%_) - (let* ((_%in127051127060%_ _%in127048%_) - (_%E127053127064%_ + (lambda (_%in127085%_ _%ctx127086%_ _%force-weak?127087%_) + (let* ((_%in127088127097%_ _%in127085%_) + (_%E127090127101%_ (lambda () (error '"No clause matching" - _%in127051127060%_ + _%in127088127097%_ '((module-import source key phi weak?))) '#!void)) - (_%K127054127077%_ - (lambda (_%weak?127067%_ - _%phi127068%_ - _%key127069%_ - _%source127070%_) + (_%K127091127114%_ + (lambda (_%weak?127104%_ + _%phi127105%_ + _%key127106%_ + _%source127107%_) (gx#core-bind!__% - _%key127069%_ - (let ((_%e127072%_ - (gx#core-resolve-module-export _%source127070%_))) + _%key127106%_ + (let ((_%e127109%_ + (gx#core-resolve-module-export _%source127107%_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _%e127072%_ '1 '#f '#f) - _%key127069%_ - _%phi127068%_ - _%e127072%_ - (##unchecked-structure-ref _%source127070%_ '1 '#f '#f) - (let ((_%$e127074%_ _%force-weak?127050%_)) - (if _%$e127074%_ _%$e127074%_ _%weak?127067%_)))) + (##unchecked-structure-ref _%e127109%_ '1 '#f '#f) + _%key127106%_ + _%phi127105%_ + _%e127109%_ + (##unchecked-structure-ref _%source127107%_ '1 '#f '#f) + (let ((_%$e127111%_ _%force-weak?127087%_)) + (if _%$e127111%_ _%$e127111%_ _%weak?127104%_)))) gx#core-context-rebind? - _%phi127068%_ - _%ctx127049%_)))) + _%phi127105%_ + _%ctx127086%_)))) (if (##structure-direct-instance-of? - _%in127051127060%_ + _%in127088127097%_ 'gx#module-import::t) - (let* ((_%e127055127080%_ + (let* ((_%e127092127117%_ (##unchecked-structure-ref - _%in127051127060%_ + _%in127088127097%_ '1 '#f '#f)) - (_%source127083%_ _%e127055127080%_) - (_%e127056127085%_ + (_%source127120%_ _%e127092127117%_) + (_%e127093127122%_ (##unchecked-structure-ref - _%in127051127060%_ + _%in127088127097%_ '2 '#f '#f)) - (_%key127088%_ _%e127056127085%_) - (_%e127057127090%_ + (_%key127125%_ _%e127093127122%_) + (_%e127094127127%_ (##unchecked-structure-ref - _%in127051127060%_ + _%in127088127097%_ '3 '#f '#f)) - (_%phi127093%_ _%e127057127090%_) - (_%e127058127095%_ + (_%phi127130%_ _%e127094127127%_) + (_%e127095127132%_ (##unchecked-structure-ref - _%in127051127060%_ + _%in127088127097%_ '4 '#f '#f)) - (_%weak?127098%_ _%e127058127095%_)) - (_%K127054127077%_ - _%weak?127098%_ - _%phi127093%_ - _%key127088%_ - _%source127083%_)) - (_%E127053127064%_))))) + (_%weak?127135%_ _%e127095127132%_)) + (_%K127091127114%_ + _%weak?127135%_ + _%phi127130%_ + _%key127125%_ + _%source127120%_)) + (_%E127090127101%_))))) (define gx#core-bind-import!__0 - (lambda (_%in127103%_) - (let* ((_%ctx127105%_ (gx#current-expander-context)) - (_%force-weak?127107%_ '#f)) + (lambda (_%in127140%_) + (let* ((_%ctx127142%_ (gx#current-expander-context)) + (_%force-weak?127144%_ '#f)) (gx#core-bind-import!__% - _%in127103%_ - _%ctx127105%_ - _%force-weak?127107%_)))) + _%in127140%_ + _%ctx127142%_ + _%force-weak?127144%_)))) (define gx#core-bind-import!__1 - (lambda (_%in127109%_ _%ctx127110%_) - (let ((_%force-weak?127112%_ '#f)) + (lambda (_%in127146%_ _%ctx127147%_) + (let ((_%force-weak?127149%_ '#f)) (gx#core-bind-import!__% - _%in127109%_ - _%ctx127110%_ - _%force-weak?127112%_)))) + _%in127146%_ + _%ctx127147%_ + _%force-weak?127149%_)))) (define gx#core-bind-import! - (lambda _g128992_ - (let ((_g128991_ (##length _g128992_))) - (cond ((##fx= _g128991_ 1) (apply gx#core-bind-import!__0 _g128992_)) - ((##fx= _g128991_ 2) (apply gx#core-bind-import!__1 _g128992_)) - ((##fx= _g128991_ 3) (apply gx#core-bind-import!__% _g128992_)) + (lambda _g129029_ + (let ((_g129028_ (##length _g129029_))) + (cond ((##fx= _g129028_ 1) (apply gx#core-bind-import!__0 _g129029_)) + ((##fx= _g129028_ 2) (apply gx#core-bind-import!__1 _g129029_)) + ((##fx= _g129028_ 3) (apply gx#core-bind-import!__% _g129029_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g128992_)))))) + _g129029_)))))) (define gx#core-bind-weak-import!__% - (lambda (_%in127034%_ _%ctx127035%_) - (gx#core-bind-import!__% _%in127034%_ _%ctx127035%_ '#t))) + (lambda (_%in127071%_ _%ctx127072%_) + (gx#core-bind-import!__% _%in127071%_ _%ctx127072%_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_%in127040%_) - (let ((_%ctx127042%_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _%in127040%_ _%ctx127042%_)))) + (lambda (_%in127077%_) + (let ((_%ctx127079%_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _%in127077%_ _%ctx127079%_)))) (define gx#core-bind-weak-import! - (lambda _g128994_ - (let ((_g128993_ (##length _g128994_))) - (cond ((##fx= _g128993_ 1) - (apply gx#core-bind-weak-import!__0 _g128994_)) - ((##fx= _g128993_ 2) - (apply gx#core-bind-weak-import!__% _g128994_)) + (lambda _g129031_ + (let ((_g129030_ (##length _g129031_))) + (cond ((##fx= _g129030_ 1) + (apply gx#core-bind-weak-import!__0 _g129031_)) + ((##fx= _g129030_ 2) + (apply gx#core-bind-weak-import!__% _g129031_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g128994_)))))) + _g129031_)))))) (define gx#core-resolve-module-export - (lambda (_%out126925%_) - (letrec ((_%subst126927%_ - (lambda (_%key126973%_) - (let* ((_%key126974126982%_ _%key126973%_) - (_%else126976126990%_ (lambda () _%key126973%_)) - (_%K126978127021%_ - (lambda (_%mark126993%_ _%id126994%_) - (let* ((_%mark126995127001%_ _%mark126993%_) - (_%E126997127005%_ + (lambda (_%out126962%_) + (letrec ((_%subst126964%_ + (lambda (_%key127010%_) + (let* ((_%key127011127019%_ _%key127010%_) + (_%else127013127027%_ (lambda () _%key127010%_)) + (_%K127015127058%_ + (lambda (_%mark127030%_ _%id127031%_) + (let* ((_%mark127032127038%_ _%mark127030%_) + (_%E127034127042%_ (lambda () (error '"No clause matching" - _%mark126995127001%_ + _%mark127032127038%_ '((expander-mark subst))) '#!void)) - (_%K126998127013%_ - (lambda (_%subst127008%_) - (let ((_%$e127010%_ - (if _%subst127008%_ + (_%K127035127050%_ + (lambda (_%subst127045%_) + (let ((_%$e127047%_ + (if _%subst127045%_ (hash-get - _%subst127008%_ - _%id126994%_) + _%subst127045%_ + _%id127031%_) '#f))) - (if _%$e127010%_ - _%$e127010%_ + (if _%$e127047%_ + _%$e127047%_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _%key126973%_)))))) + _%key127010%_)))))) (if (##structure-instance-of? - _%mark126995127001%_ + _%mark127032127038%_ 'gx#expander-mark::t) - (let* ((_%e126999127016%_ + (let* ((_%e127036127053%_ (##unchecked-structure-ref - _%mark126995127001%_ + _%mark127032127038%_ '1 '#f '#f)) - (_%subst127019%_ _%e126999127016%_)) - (_%K126998127013%_ _%subst127019%_)) - (_%E126997127005%_)))))) - (if (pair? _%key126974126982%_) - (let ((_%hd126979127024%_ - (##car _%key126974126982%_)) - (_%tl126980127026%_ - (##cdr _%key126974126982%_))) - (let* ((_%id127029%_ _%hd126979127024%_) - (_%mark127031%_ _%tl126980127026%_)) - (_%K126978127021%_ _%mark127031%_ _%id127029%_))) - (_%else126976126990%_)))))) - (let* ((_%out126928126938%_ _%out126925%_) - (_%E126930126942%_ + (_%subst127056%_ _%e127036127053%_)) + (_%K127035127050%_ _%subst127056%_)) + (_%E127034127042%_)))))) + (if (pair? _%key127011127019%_) + (let ((_%hd127016127061%_ + (##car _%key127011127019%_)) + (_%tl127017127063%_ + (##cdr _%key127011127019%_))) + (let* ((_%id127066%_ _%hd127016127061%_) + (_%mark127068%_ _%tl127017127063%_)) + (_%K127015127058%_ _%mark127068%_ _%id127066%_))) + (_%else127013127027%_)))))) + (let* ((_%out126965126975%_ _%out126962%_) + (_%E126967126979%_ (lambda () (error '"No clause matching" - _%out126928126938%_ + _%out126965126975%_ '((module-export ctx key phi _ _))) '#!void)) - (_%K126931126949%_ - (lambda (_%phi126945%_ _%key126946%_ _%ctx126947%_) + (_%K126968126986%_ + (lambda (_%phi126982%_ _%key126983%_ _%ctx126984%_) (gx#core-context-resolve - (gx#core-context-shift _%ctx126947%_ _%phi126945%_) - (_%subst126927%_ _%key126946%_))))) + (gx#core-context-shift _%ctx126984%_ _%phi126982%_) + (_%subst126964%_ _%key126983%_))))) (if (##structure-direct-instance-of? - _%out126928126938%_ + _%out126965126975%_ 'gx#module-export::t) - (let* ((_%e126932126952%_ + (let* ((_%e126969126989%_ (##unchecked-structure-ref - _%out126928126938%_ + _%out126965126975%_ '1 '#f '#f)) - (_%ctx126955%_ _%e126932126952%_) - (_%e126933126957%_ + (_%ctx126992%_ _%e126969126989%_) + (_%e126970126994%_ (##unchecked-structure-ref - _%out126928126938%_ + _%out126965126975%_ '2 '#f '#f)) - (_%key126960%_ _%e126933126957%_) - (_%e126934126962%_ + (_%key126997%_ _%e126970126994%_) + (_%e126971126999%_ (##unchecked-structure-ref - _%out126928126938%_ + _%out126965126975%_ '3 '#f '#f)) - (_%phi126965%_ _%e126934126962%_) - (_%e126935126967%_ + (_%phi127002%_ _%e126971126999%_) + (_%e126972127004%_ (##unchecked-structure-ref - _%out126928126938%_ + _%out126965126975%_ '4 '#f '#f)) - (_%e126936126970%_ + (_%e126973127007%_ (##unchecked-structure-ref - _%out126928126938%_ + _%out126965126975%_ '5 '#f '#f))) - (_%K126931126949%_ - _%phi126965%_ - _%key126960%_ - _%ctx126955%_)) - (_%E126930126942%_)))))) + (_%K126968126986%_ + _%phi127002%_ + _%key126997%_ + _%ctx126992%_)) + (_%E126967126979%_)))))) (define gx#core-module-export->import__% - (lambda (_%out126850%_ _%rename126851%_ _%dphi126852%_) - (let* ((_%out126853126863%_ _%out126850%_) - (_%E126855126867%_ + (lambda (_%out126887%_ _%rename126888%_ _%dphi126889%_) + (let* ((_%out126890126900%_ _%out126887%_) + (_%E126892126904%_ (lambda () (error '"No clause matching" - _%out126853126863%_ + _%out126890126900%_ '((module-export ctx key phi name weak?))) '#!void)) - (_%K126856126879%_ - (lambda (_%weak?126870%_ - _%name126871%_ - _%phi126872%_ - _%key126873%_ - _%ctx126874%_) + (_%K126893126916%_ + (lambda (_%weak?126907%_ + _%name126908%_ + _%phi126909%_ + _%key126910%_ + _%ctx126911%_) (##structure gx#module-import::t - _%out126850%_ - (let ((_%$e126876%_ _%rename126851%_)) - (if _%$e126876%_ _%$e126876%_ _%name126871%_)) - (fx+ _%phi126872%_ _%dphi126852%_) - _%weak?126870%_)))) + _%out126887%_ + (let ((_%$e126913%_ _%rename126888%_)) + (if _%$e126913%_ _%$e126913%_ _%name126908%_)) + (fx+ _%phi126909%_ _%dphi126889%_) + _%weak?126907%_)))) (if (##structure-direct-instance-of? - _%out126853126863%_ + _%out126890126900%_ 'gx#module-export::t) - (let* ((_%e126857126882%_ + (let* ((_%e126894126919%_ (##unchecked-structure-ref - _%out126853126863%_ + _%out126890126900%_ '1 '#f '#f)) - (_%ctx126885%_ _%e126857126882%_) - (_%e126858126887%_ + (_%ctx126922%_ _%e126894126919%_) + (_%e126895126924%_ (##unchecked-structure-ref - _%out126853126863%_ + _%out126890126900%_ '2 '#f '#f)) - (_%key126890%_ _%e126858126887%_) - (_%e126859126892%_ + (_%key126927%_ _%e126895126924%_) + (_%e126896126929%_ (##unchecked-structure-ref - _%out126853126863%_ + _%out126890126900%_ '3 '#f '#f)) - (_%phi126895%_ _%e126859126892%_) - (_%e126860126897%_ + (_%phi126932%_ _%e126896126929%_) + (_%e126897126934%_ (##unchecked-structure-ref - _%out126853126863%_ + _%out126890126900%_ '4 '#f '#f)) - (_%name126900%_ _%e126860126897%_) - (_%e126861126902%_ + (_%name126937%_ _%e126897126934%_) + (_%e126898126939%_ (##unchecked-structure-ref - _%out126853126863%_ + _%out126890126900%_ '5 '#f '#f)) - (_%weak?126905%_ _%e126861126902%_)) - (_%K126856126879%_ - _%weak?126905%_ - _%name126900%_ - _%phi126895%_ - _%key126890%_ - _%ctx126885%_)) - (_%E126855126867%_))))) + (_%weak?126942%_ _%e126898126939%_)) + (_%K126893126916%_ + _%weak?126942%_ + _%name126937%_ + _%phi126932%_ + _%key126927%_ + _%ctx126922%_)) + (_%E126892126904%_))))) (define gx#core-module-export->import__0 - (lambda (_%out126910%_) - (let* ((_%rename126912%_ '#f) (_%dphi126914%_ '0)) + (lambda (_%out126947%_) + (let* ((_%rename126949%_ '#f) (_%dphi126951%_ '0)) (gx#core-module-export->import__% - _%out126910%_ - _%rename126912%_ - _%dphi126914%_)))) + _%out126947%_ + _%rename126949%_ + _%dphi126951%_)))) (define gx#core-module-export->import__1 - (lambda (_%out126916%_ _%rename126917%_) - (let ((_%dphi126919%_ '0)) + (lambda (_%out126953%_ _%rename126954%_) + (let ((_%dphi126956%_ '0)) (gx#core-module-export->import__% - _%out126916%_ - _%rename126917%_ - _%dphi126919%_)))) + _%out126953%_ + _%rename126954%_ + _%dphi126956%_)))) (define gx#core-module-export->import - (lambda _g128996_ - (let ((_g128995_ (##length _g128996_))) - (cond ((##fx= _g128995_ 1) - (apply gx#core-module-export->import__0 _g128996_)) - ((##fx= _g128995_ 2) - (apply gx#core-module-export->import__1 _g128996_)) - ((##fx= _g128995_ 3) - (apply gx#core-module-export->import__% _g128996_)) + (lambda _g129033_ + (let ((_g129032_ (##length _g129033_))) + (cond ((##fx= _g129032_ 1) + (apply gx#core-module-export->import__0 _g129033_)) + ((##fx= _g129032_ 2) + (apply gx#core-module-export->import__1 _g129033_)) + ((##fx= _g129032_ 3) + (apply gx#core-module-export->import__% _g129033_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g128996_)))))) + _g129033_)))))) (define gx#core-expand-module% - (lambda (_%stx126749%_) - (letrec ((_%make-context126751%_ - (lambda (_%id126828%_) - (let* ((_%super126830%_ (gx#current-expander-context)) - (_%bind-id126832%_ (gx#stx-e _%id126828%_)) - (_%mod-id126834%_ + (lambda (_%stx126786%_) + (letrec ((_%make-context126788%_ + (lambda (_%id126865%_) + (let* ((_%super126867%_ (gx#current-expander-context)) + (_%bind-id126869%_ (gx#stx-e _%id126865%_)) + (_%mod-id126871%_ (if (##structure-instance-of? - _%super126830%_ + _%super126867%_ 'gx#module-context::t) (make-symbol__1 (##unchecked-structure-ref - _%super126830%_ + _%super126867%_ '1 '#f '#f) '"~" - _%bind-id126832%_) - _%bind-id126832%_)) - (_%ns126836%_ (symbol->string _%mod-id126834%_)) - (_%path126846%_ + _%bind-id126869%_) + _%bind-id126869%_)) + (_%ns126873%_ (symbol->string _%mod-id126871%_)) + (_%path126883%_ (if (##structure-instance-of? - _%super126830%_ + _%super126867%_ 'gx#module-context::t) - (let ((_%path126838%_ + (let ((_%path126875%_ (##unchecked-structure-ref - _%super126830%_ + _%super126867%_ '7 '#f '#f))) - (if (or (pair? _%path126838%_) - (null? _%path126838%_)) - (cons _%bind-id126832%_ _%path126838%_) - (if (not _%path126838%_) - _%bind-id126832%_ - (cons _%bind-id126832%_ - (cons _%path126838%_ '()))))) - _%bind-id126832%_)) - (__obj128972 + (if (or (pair? _%path126875%_) + (null? _%path126875%_)) + (cons _%bind-id126869%_ _%path126875%_) + (if (not _%path126875%_) + _%bind-id126869%_ + (cons _%bind-id126869%_ + (cons _%path126875%_ '()))))) + _%bind-id126869%_)) + (__obj129009 (##structure gx#module-context::t '#f @@ -2179,702 +2179,702 @@ '#f '#f))) (gx#module-context:::init! - __obj128972 - _%mod-id126834%_ - _%super126830%_ - _%ns126836%_ - _%path126846%_) - __obj128972))) - (_%valid-module-id?126752%_ - (lambda (_%id126803%_) - (let* ((_%str126805%_ (symbol->string _%id126803%_)) - (_%len126807%_ (##string-length _%str126805%_))) - (if (##fx>= _%len126807%_ '1) - (let _%loop126810%_ ((_%index126812%_ + __obj129009 + _%mod-id126871%_ + _%super126867%_ + _%ns126873%_ + _%path126883%_) + __obj129009))) + (_%valid-module-id?126789%_ + (lambda (_%id126840%_) + (let* ((_%str126842%_ (symbol->string _%id126840%_)) + (_%len126844%_ (##string-length _%str126842%_))) + (if (##fx>= _%len126844%_ '1) + (let _%loop126847%_ ((_%index126849%_ (##fx- (##string-length - _%str126805%_) + _%str126842%_) '1))) - (if (##fx>= _%index126812%_ '0) - (let ((_%c126814%_ + (if (##fx>= _%index126849%_ '0) + (let ((_%c126851%_ (string-ref - _%str126805%_ - _%index126812%_))) - (if (or (and (##char>=? _%c126814%_ '#\a) - (##char<=? _%c126814%_ '#\z)) - (and (##char>=? _%c126814%_ '#\A) - (##char<=? _%c126814%_ '#\Z)) - (and (##char>=? _%c126814%_ '#\0) - (##char<=? _%c126814%_ '#\9)) - (##char=? _%c126814%_ '#\_) - (##char=? _%c126814%_ '#\-)) - (_%loop126810%_ - (##fx- _%index126812%_ '1)) + _%str126842%_ + _%index126849%_))) + (if (or (and (##char>=? _%c126851%_ '#\a) + (##char<=? _%c126851%_ '#\z)) + (and (##char>=? _%c126851%_ '#\A) + (##char<=? _%c126851%_ '#\Z)) + (and (##char>=? _%c126851%_ '#\0) + (##char<=? _%c126851%_ '#\9)) + (##char=? _%c126851%_ '#\_) + (##char=? _%c126851%_ '#\-)) + (_%loop126847%_ + (##fx- _%index126849%_ '1)) '#f)) '#t)) '#f))))) - (let* ((_%e126753126763%_ _%stx126749%_) - (_%E126755126767%_ + (let* ((_%e126790126800%_ _%stx126786%_) + (_%E126792126804%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126753126763%_))) - (_%E126754126799%_ + _%e126790126800%_))) + (_%E126791126836%_ (lambda () - (if (gx#stx-pair? _%e126753126763%_) - (let ((_%e126756126771%_ - (gx#syntax-e _%e126753126763%_))) - (let ((_%hd126757126774%_ (##car _%e126756126771%_)) - (_%tl126758126776%_ (##cdr _%e126756126771%_))) - (if (gx#stx-pair? _%tl126758126776%_) - (let ((_%e126759126779%_ - (gx#syntax-e _%tl126758126776%_))) - (let ((_%hd126760126782%_ - (##car _%e126759126779%_)) - (_%tl126761126784%_ - (##cdr _%e126759126779%_))) - (let* ((_%id126787%_ _%hd126760126782%_) - (_%body126789%_ _%tl126761126784%_)) - (if (and (gx#identifier? _%id126787%_) - (gx#stx-list? _%body126789%_)) - (if (_%valid-module-id?126752%_ + (if (gx#stx-pair? _%e126790126800%_) + (let ((_%e126793126808%_ + (gx#syntax-e _%e126790126800%_))) + (let ((_%hd126794126811%_ (##car _%e126793126808%_)) + (_%tl126795126813%_ (##cdr _%e126793126808%_))) + (if (gx#stx-pair? _%tl126795126813%_) + (let ((_%e126796126816%_ + (gx#syntax-e _%tl126795126813%_))) + (let ((_%hd126797126819%_ + (##car _%e126796126816%_)) + (_%tl126798126821%_ + (##cdr _%e126796126816%_))) + (let* ((_%id126824%_ _%hd126797126819%_) + (_%body126826%_ _%tl126798126821%_)) + (if (and (gx#identifier? _%id126824%_) + (gx#stx-list? _%body126826%_)) + (if (_%valid-module-id?126789%_ (gx#stx-e (gx#datum->syntax__0 '#f 'id))) - (let* ((_%ctx126791%_ - (_%make-context126751%_ - _%id126787%_)) - (_%body126793%_ + (let* ((_%ctx126828%_ + (_%make-context126788%_ + _%id126824%_)) + (_%body126830%_ (gx#core-expand-module-begin - _%body126789%_ - _%ctx126791%_)) - (_%body126795%_ + _%body126826%_ + _%ctx126828%_)) + (_%body126832%_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body126793%_) + _%body126830%_) (gx#stx-source - _%stx126749%_)))) + _%stx126786%_)))) (##unchecked-structure-set! - _%ctx126791%_ + _%ctx126828%_ (__make-promise (lambda () (gx#eval-syntax* - _%body126795%_))) + _%body126832%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx126791%_ - _%body126795%_ + _%ctx126828%_ + _%body126832%_ '11 '#f '#f) (gx#core-bind-syntax!__0 - _%id126787%_ - _%ctx126791%_) + _%id126824%_ + _%ctx126828%_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _%id126787%_) - _%body126795%_) + _%id126824%_) + _%body126832%_) (gx#stx-source - _%stx126749%_))) + _%stx126786%_))) (gx#raise-syntax-error '#f '"invalid module id; allowed characters are A-Z,a-z,0-9,_,-" - _%stx126749%_ + _%stx126786%_ (gx#datum->syntax__0 '#f 'id))) - (_%E126755126767%_))))) - (_%E126755126767%_)))) - (_%E126755126767%_))))) - (_%E126754126799%_))))) + (_%E126792126804%_))))) + (_%E126792126804%_)))) + (_%E126792126804%_))))) + (_%E126791126836%_))))) (define gx#core-expand-module-begin - (lambda (_%body126715%_ _%ctx126716%_) + (lambda (_%body126752%_ _%ctx126753%_) (__call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_%stx126719%_ - (gx#core-expand-head (cons '%%begin-module _%body126715%_))) - (_%e126720126727%_ _%stx126719%_) - (_%E126722126731%_ + (let* ((_%stx126756%_ + (gx#core-expand-head (cons '%%begin-module _%body126752%_))) + (_%e126757126764%_ _%stx126756%_) + (_%E126759126768%_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _%stx126719%_))) - (_%E126721126745%_ + _%stx126756%_))) + (_%E126758126782%_ (lambda () - (if (gx#stx-pair? _%e126720126727%_) - (let ((_%e126723126735%_ - (gx#syntax-e _%e126720126727%_))) - (let ((_%hd126724126738%_ (##car _%e126723126735%_)) - (_%tl126725126740%_ - (##cdr _%e126723126735%_))) - (if (and (gx#identifier? _%hd126724126738%_) + (if (gx#stx-pair? _%e126757126764%_) + (let ((_%e126760126772%_ + (gx#syntax-e _%e126757126764%_))) + (let ((_%hd126761126775%_ (##car _%e126760126772%_)) + (_%tl126762126777%_ + (##cdr _%e126760126772%_))) + (if (and (gx#identifier? _%hd126761126775%_) (gx#core-identifier=? - _%hd126724126738%_ + _%hd126761126775%_ '%#begin-module)) - (let ((_%body126743%_ _%tl126725126740%_)) - (if (gx#sealed-syntax? _%stx126719%_) - _%body126743%_ + (let ((_%body126780%_ _%tl126762126777%_)) + (if (gx#sealed-syntax? _%stx126756%_) + _%body126780%_ (gx#core-expand-module-body - _%body126743%_))) - (_%E126722126731%_)))) - (_%E126722126731%_))))) - (_%E126721126745%_))) + _%body126780%_))) + (_%E126759126768%_)))) + (_%E126759126768%_))))) + (_%E126758126782%_))) gx#current-expander-context - _%ctx126716%_ + _%ctx126753%_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_%body126511%_) - (letrec ((_%expand-special126513%_ - (lambda (_%hd126642%_ _%K126643%_ _%rest126644%_ _%r126645%_) - (let* ((_%e126646126663%_ _%hd126642%_) - (_%E126658126667%_ + (lambda (_%body126548%_) + (letrec ((_%expand-special126550%_ + (lambda (_%hd126679%_ _%K126680%_ _%rest126681%_ _%r126682%_) + (let* ((_%e126683126700%_ _%hd126679%_) + (_%E126695126704%_ (lambda () - (_%K126643%_ - _%rest126644%_ - (cons (gx#core-expand-top _%hd126642%_) - _%r126645%_)))) - (_%E126648126679%_ + (_%K126680%_ + _%rest126681%_ + (cons (gx#core-expand-top _%hd126679%_) + _%r126682%_)))) + (_%E126685126716%_ (lambda () - (if (gx#stx-pair? _%e126646126663%_) - (let ((_%e126659126671%_ - (gx#syntax-e _%e126646126663%_))) - (let ((_%hd126660126674%_ - (##car _%e126659126671%_)) - (_%tl126661126676%_ - (##cdr _%e126659126671%_))) + (if (gx#stx-pair? _%e126683126700%_) + (let ((_%e126696126708%_ + (gx#syntax-e _%e126683126700%_))) + (let ((_%hd126697126711%_ + (##car _%e126696126708%_)) + (_%tl126698126713%_ + (##cdr _%e126696126708%_))) (if (and (gx#identifier? - _%hd126660126674%_) + _%hd126697126711%_) (gx#core-identifier=? - _%hd126660126674%_ + _%hd126697126711%_ '%#export)) - (_%K126643%_ - _%rest126644%_ - (cons _%hd126642%_ _%r126645%_)) - (_%E126658126667%_)))) - (_%E126658126667%_)))) - (_%E126647126711%_ + (_%K126680%_ + _%rest126681%_ + (cons _%hd126679%_ _%r126682%_)) + (_%E126695126704%_)))) + (_%E126695126704%_)))) + (_%E126684126748%_ (lambda () - (if (gx#stx-pair? _%e126646126663%_) - (let ((_%e126649126683%_ - (gx#syntax-e _%e126646126663%_))) - (let ((_%hd126650126686%_ - (##car _%e126649126683%_)) - (_%tl126651126688%_ - (##cdr _%e126649126683%_))) + (if (gx#stx-pair? _%e126683126700%_) + (let ((_%e126686126720%_ + (gx#syntax-e _%e126683126700%_))) + (let ((_%hd126687126723%_ + (##car _%e126686126720%_)) + (_%tl126688126725%_ + (##cdr _%e126686126720%_))) (if (and (gx#identifier? - _%hd126650126686%_) + _%hd126687126723%_) (gx#core-identifier=? - _%hd126650126686%_ + _%hd126687126723%_ '%#define-values)) - (if (gx#stx-pair? _%tl126651126688%_) - (let ((_%e126652126691%_ + (if (gx#stx-pair? _%tl126688126725%_) + (let ((_%e126689126728%_ (gx#syntax-e - _%tl126651126688%_))) - (let ((_%hd126653126694%_ - (##car _%e126652126691%_)) - (_%tl126654126696%_ - (##cdr _%e126652126691%_))) - (let ((_%hd-bind126699%_ - _%hd126653126694%_)) + _%tl126688126725%_))) + (let ((_%hd126690126731%_ + (##car _%e126689126728%_)) + (_%tl126691126733%_ + (##cdr _%e126689126728%_))) + (let ((_%hd-bind126736%_ + _%hd126690126731%_)) (if (gx#stx-pair? - _%tl126654126696%_) - (let ((_%e126655126701%_ + _%tl126691126733%_) + (let ((_%e126692126738%_ (gx#syntax-e - _%tl126654126696%_))) - (let ((_%hd126656126704%_ + _%tl126691126733%_))) + (let ((_%hd126693126741%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e126655126701%_)) - (_%tl126657126706%_ (##cdr _%e126655126701%_))) - (let ((_%expr126709%_ _%hd126656126704%_)) - (if (gx#stx-null? _%tl126657126706%_) - (if (gx#core-bind-values? _%hd-bind126699%_) + (##car _%e126692126738%_)) + (_%tl126694126743%_ (##cdr _%e126692126738%_))) + (let ((_%expr126746%_ _%hd126693126741%_)) + (if (gx#stx-null? _%tl126694126743%_) + (if (gx#core-bind-values? _%hd-bind126736%_) (begin - (gx#core-bind-values!__0 _%hd-bind126699%_) - (_%K126643%_ - _%rest126644%_ - (cons _%hd126642%_ _%r126645%_))) - (_%E126648126679%_)) - (_%E126648126679%_))))) - (_%E126648126679%_))))) + (gx#core-bind-values!__0 _%hd-bind126736%_) + (_%K126680%_ + _%rest126681%_ + (cons _%hd126679%_ _%r126682%_))) + (_%E126685126716%_)) + (_%E126685126716%_))))) + (_%E126685126716%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126648126679%_)) - (_%E126648126679%_)))) - (_%E126648126679%_))))) - (_%E126647126711%_)))) - (_%expand-body126514%_ - (lambda (_%rbody126516%_) - (let _%lp126518%_ ((_%rest126520%_ _%rbody126516%_) - (_%body126521%_ '())) - (let* ((_%rest126522126530%_ _%rest126520%_) - (_%else126524126538%_ (lambda () _%body126521%_)) - (_%K126526126630%_ - (lambda (_%rest126541%_ _%hd126542%_) - (let* ((_%e126543126564%_ _%hd126542%_) - (_%E126559126568%_ + (_%E126685126716%_)) + (_%E126685126716%_)))) + (_%E126685126716%_))))) + (_%E126684126748%_)))) + (_%expand-body126551%_ + (lambda (_%rbody126553%_) + (let _%lp126555%_ ((_%rest126557%_ _%rbody126553%_) + (_%body126558%_ '())) + (let* ((_%rest126559126567%_ _%rest126557%_) + (_%else126561126575%_ (lambda () _%body126558%_)) + (_%K126563126667%_ + (lambda (_%rest126578%_ _%hd126579%_) + (let* ((_%e126580126601%_ _%hd126579%_) + (_%E126596126605%_ (lambda () - (_%lp126518%_ - _%rest126541%_ + (_%lp126555%_ + _%rest126578%_ (cons (gx#core-expand-expression - _%hd126542%_) - _%body126521%_)))) - (_%E126555126582%_ + _%hd126579%_) + _%body126558%_)))) + (_%E126592126619%_ (lambda () - (if (gx#stx-pair? _%e126543126564%_) - (let ((_%e126560126572%_ + (if (gx#stx-pair? _%e126580126601%_) + (let ((_%e126597126609%_ (gx#syntax-e - _%e126543126564%_))) - (let ((_%hd126561126575%_ - (##car _%e126560126572%_)) - (_%tl126562126577%_ - (##cdr _%e126560126572%_))) - (let ((_%form126580%_ - _%hd126561126575%_)) + _%e126580126601%_))) + (let ((_%hd126598126612%_ + (##car _%e126597126609%_)) + (_%tl126599126614%_ + (##cdr _%e126597126609%_))) + (let ((_%form126617%_ + _%hd126598126612%_)) (if (gx#core-bound-identifier?__% - _%form126580%_ + _%form126617%_ gx#special-form-binding?) - (_%lp126518%_ - _%rest126541%_ - (cons _%hd126542%_ - _%body126521%_)) - (_%E126559126568%_))))) - (_%E126559126568%_)))) - (_%E126545126594%_ + (_%lp126555%_ + _%rest126578%_ + (cons _%hd126579%_ + _%body126558%_)) + (_%E126596126605%_))))) + (_%E126596126605%_)))) + (_%E126582126631%_ (lambda () - (if (gx#stx-pair? _%e126543126564%_) - (let ((_%e126556126586%_ + (if (gx#stx-pair? _%e126580126601%_) + (let ((_%e126593126623%_ (gx#syntax-e - _%e126543126564%_))) - (let ((_%hd126557126589%_ - (##car _%e126556126586%_)) - (_%tl126558126591%_ - (##cdr _%e126556126586%_))) + _%e126580126601%_))) + (let ((_%hd126594126626%_ + (##car _%e126593126623%_)) + (_%tl126595126628%_ + (##cdr _%e126593126623%_))) (if (and (gx#identifier? - _%hd126557126589%_) + _%hd126594126626%_) (gx#core-identifier=? - _%hd126557126589%_ + _%hd126594126626%_ '%#export)) - (_%lp126518%_ - _%rest126541%_ + (_%lp126555%_ + _%rest126578%_ (cons (gx#core-expand-export%__0 - _%hd126542%_) - _%body126521%_)) - (_%E126555126582%_)))) - (_%E126555126582%_)))) - (_%E126544126626%_ + _%hd126579%_) + _%body126558%_)) + (_%E126592126619%_)))) + (_%E126592126619%_)))) + (_%E126581126663%_ (lambda () - (if (gx#stx-pair? _%e126543126564%_) - (let ((_%e126546126598%_ + (if (gx#stx-pair? _%e126580126601%_) + (let ((_%e126583126635%_ (gx#syntax-e - _%e126543126564%_))) - (let ((_%hd126547126601%_ - (##car _%e126546126598%_)) - (_%tl126548126603%_ - (##cdr _%e126546126598%_))) + _%e126580126601%_))) + (let ((_%hd126584126638%_ + (##car _%e126583126635%_)) + (_%tl126585126640%_ + (##cdr _%e126583126635%_))) (if (and (gx#identifier? - _%hd126547126601%_) + _%hd126584126638%_) (gx#core-identifier=? - _%hd126547126601%_ + _%hd126584126638%_ '%#define-values)) (if (gx#stx-pair? - _%tl126548126603%_) - (let ((_%e126549126606%_ + _%tl126585126640%_) + (let ((_%e126586126643%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl126548126603%_))) - (let ((_%hd126550126609%_ (##car _%e126549126606%_)) - (_%tl126551126611%_ (##cdr _%e126549126606%_))) - (let ((_%hd-bind126614%_ _%hd126550126609%_)) - (if (gx#stx-pair? _%tl126551126611%_) - (let ((_%e126552126616%_ - (gx#syntax-e _%tl126551126611%_))) - (let ((_%hd126553126619%_ - (##car _%e126552126616%_)) - (_%tl126554126621%_ - (##cdr _%e126552126616%_))) - (let ((_%expr126624%_ _%hd126553126619%_)) - (if (gx#stx-null? _%tl126554126621%_) - (_%lp126518%_ - _%rest126541%_ + (gx#syntax-e _%tl126585126640%_))) + (let ((_%hd126587126646%_ (##car _%e126586126643%_)) + (_%tl126588126648%_ (##cdr _%e126586126643%_))) + (let ((_%hd-bind126651%_ _%hd126587126646%_)) + (if (gx#stx-pair? _%tl126588126648%_) + (let ((_%e126589126653%_ + (gx#syntax-e _%tl126588126648%_))) + (let ((_%hd126590126656%_ + (##car _%e126589126653%_)) + (_%tl126591126658%_ + (##cdr _%e126589126653%_))) + (let ((_%expr126661%_ _%hd126590126656%_)) + (if (gx#stx-null? _%tl126591126658%_) + (_%lp126555%_ + _%rest126578%_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _%hd-bind126614%_) + _%hd-bind126651%_) (gx#core-expand-expression - _%expr126624%_)) - (gx#stx-source _%hd126542%_)) - _%body126521%_)) - (_%E126545126594%_))))) - (_%E126545126594%_))))) - (_%E126545126594%_)) - (_%E126545126594%_)))) + _%expr126661%_)) + (gx#stx-source _%hd126579%_)) + _%body126558%_)) + (_%E126582126631%_))))) + (_%E126582126631%_))))) + (_%E126582126631%_)) + (_%E126582126631%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126545126594%_))))) - (_%E126544126626%_))))) - (if (pair? _%rest126522126530%_) - (let ((_%hd126527126633%_ - (##car _%rest126522126530%_)) - (_%tl126528126635%_ - (##cdr _%rest126522126530%_))) - (let* ((_%hd126638%_ _%hd126527126633%_) - (_%rest126640%_ _%tl126528126635%_)) - (_%K126526126630%_ - _%rest126640%_ - _%hd126638%_))) - (_%else126524126538%_))))))) - (_%expand-body126514%_ + (_%E126582126631%_))))) + (_%E126581126663%_))))) + (if (pair? _%rest126559126567%_) + (let ((_%hd126564126670%_ + (##car _%rest126559126567%_)) + (_%tl126565126672%_ + (##cdr _%rest126559126567%_))) + (let* ((_%hd126675%_ _%hd126564126670%_) + (_%rest126677%_ _%tl126565126672%_)) + (_%K126563126667%_ + _%rest126677%_ + _%hd126675%_))) + (_%else126561126575%_))))))) + (_%expand-body126551%_ (gx#core-expand-block__% - (cons '%#begin-module _%body126511%_) - _%expand-special126513%_ + (cons '%#begin-module _%body126548%_) + _%expand-special126550%_ '#f values))))) (define gx#core-expand-import/export - (lambda (_%stx126352%_ - _%expanded?126353%_ - _%method126354%_ - _%current-phi126355%_ - _%expand1126356%_) - (letrec ((_%K126358%_ - (lambda (_%rest126478%_ _%r126479%_) - (let* ((_%e126480126487%_ _%rest126478%_) - (_%E126482126491%_ (lambda () _%r126479%_)) - (_%E126481126507%_ + (lambda (_%stx126389%_ + _%expanded?126390%_ + _%method126391%_ + _%current-phi126392%_ + _%expand1126393%_) + (letrec ((_%K126395%_ + (lambda (_%rest126515%_ _%r126516%_) + (let* ((_%e126517126524%_ _%rest126515%_) + (_%E126519126528%_ (lambda () _%r126516%_)) + (_%E126518126544%_ (lambda () - (if (gx#stx-pair? _%e126480126487%_) - (let ((_%e126483126495%_ - (gx#syntax-e _%e126480126487%_))) - (let ((_%hd126484126498%_ - (##car _%e126483126495%_)) - (_%tl126485126500%_ - (##cdr _%e126483126495%_))) - (let* ((_%hd126503%_ _%hd126484126498%_) - (_%rest126505%_ - _%tl126485126500%_)) - (_%step126359%_ - _%hd126503%_ - _%rest126505%_ - _%r126479%_)))) - (_%E126482126491%_))))) - (_%E126481126507%_)))) - (_%step126359%_ - (lambda (_%hd126392%_ _%rest126393%_ _%r126394%_) - (let* ((_%e126395126413%_ _%hd126392%_) - (_%E126408126417%_ + (if (gx#stx-pair? _%e126517126524%_) + (let ((_%e126520126532%_ + (gx#syntax-e _%e126517126524%_))) + (let ((_%hd126521126535%_ + (##car _%e126520126532%_)) + (_%tl126522126537%_ + (##cdr _%e126520126532%_))) + (let* ((_%hd126540%_ _%hd126521126535%_) + (_%rest126542%_ + _%tl126522126537%_)) + (_%step126396%_ + _%hd126540%_ + _%rest126542%_ + _%r126516%_)))) + (_%E126519126528%_))))) + (_%E126518126544%_)))) + (_%step126396%_ + (lambda (_%hd126429%_ _%rest126430%_ _%r126431%_) + (let* ((_%e126432126450%_ _%hd126429%_) + (_%E126445126454%_ (lambda () - (if (_%expanded?126353%_ (gx#stx-e _%hd126392%_)) - (_%K126358%_ - _%rest126393%_ - (cons (gx#stx-e _%hd126392%_) _%r126394%_)) - (_%expand1126356%_ - _%hd126392%_ - _%K126358%_ - _%rest126393%_ - _%r126394%_)))) - (_%E126404126433%_ + (if (_%expanded?126390%_ (gx#stx-e _%hd126429%_)) + (_%K126395%_ + _%rest126430%_ + (cons (gx#stx-e _%hd126429%_) _%r126431%_)) + (_%expand1126393%_ + _%hd126429%_ + _%K126395%_ + _%rest126430%_ + _%r126431%_)))) + (_%E126441126470%_ (lambda () - (if (gx#stx-pair? _%e126395126413%_) - (let ((_%e126409126421%_ - (gx#syntax-e _%e126395126413%_))) - (let ((_%hd126410126424%_ - (##car _%e126409126421%_)) - (_%tl126411126426%_ - (##cdr _%e126409126421%_))) - (let* ((_%macro126429%_ - _%hd126410126424%_) - (_%body126431%_ - _%tl126411126426%_)) + (if (gx#stx-pair? _%e126432126450%_) + (let ((_%e126446126458%_ + (gx#syntax-e _%e126432126450%_))) + (let ((_%hd126447126461%_ + (##car _%e126446126458%_)) + (_%tl126448126463%_ + (##cdr _%e126446126458%_))) + (let* ((_%macro126466%_ + _%hd126447126461%_) + (_%body126468%_ + _%tl126448126463%_)) (if (gx#core-bound-identifier?__% - _%macro126429%_ + _%macro126466%_ gx#syntax-binding?) - (_%K126358%_ + (_%K126395%_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _%macro126429%_) - _%hd126392%_ - _%method126354%_) - _%rest126393%_) - _%r126394%_) - (_%E126408126417%_))))) - (_%E126408126417%_)))) - (_%E126397126447%_ + _%macro126466%_) + _%hd126429%_ + _%method126391%_) + _%rest126430%_) + _%r126431%_) + (_%E126445126454%_))))) + (_%E126445126454%_)))) + (_%E126434126484%_ (lambda () - (if (gx#stx-pair? _%e126395126413%_) - (let ((_%e126405126437%_ - (gx#syntax-e _%e126395126413%_))) - (let ((_%hd126406126440%_ - (##car _%e126405126437%_)) - (_%tl126407126442%_ - (##cdr _%e126405126437%_))) - (if (eq? (gx#stx-e _%hd126406126440%_) + (if (gx#stx-pair? _%e126432126450%_) + (let ((_%e126442126474%_ + (gx#syntax-e _%e126432126450%_))) + (let ((_%hd126443126477%_ + (##car _%e126442126474%_)) + (_%tl126444126479%_ + (##cdr _%e126442126474%_))) + (if (eq? (gx#stx-e _%hd126443126477%_) 'begin:) - (let ((_%body126445%_ - _%tl126407126442%_)) - (_%K126358%_ + (let ((_%body126482%_ + _%tl126444126479%_)) + (_%K126395%_ (gx#stx-foldr cons - _%rest126393%_ - _%body126445%_) - _%r126394%_)) - (_%E126404126433%_)))) - (_%E126404126433%_)))) - (_%E126396126474%_ + _%rest126430%_ + _%body126482%_) + _%r126431%_)) + (_%E126441126470%_)))) + (_%E126441126470%_)))) + (_%E126433126511%_ (lambda () - (if (gx#stx-pair? _%e126395126413%_) - (let ((_%e126398126451%_ - (gx#syntax-e _%e126395126413%_))) - (let ((_%hd126399126454%_ - (##car _%e126398126451%_)) - (_%tl126400126456%_ - (##cdr _%e126398126451%_))) - (if (eq? (gx#stx-e _%hd126399126454%_) + (if (gx#stx-pair? _%e126432126450%_) + (let ((_%e126435126488%_ + (gx#syntax-e _%e126432126450%_))) + (let ((_%hd126436126491%_ + (##car _%e126435126488%_)) + (_%tl126437126493%_ + (##cdr _%e126435126488%_))) + (if (eq? (gx#stx-e _%hd126436126491%_) 'phi:) - (if (gx#stx-pair? _%tl126400126456%_) - (let ((_%e126401126459%_ + (if (gx#stx-pair? _%tl126437126493%_) + (let ((_%e126438126496%_ (gx#syntax-e - _%tl126400126456%_))) - (let ((_%hd126402126462%_ - (##car _%e126401126459%_)) - (_%tl126403126464%_ - (##cdr _%e126401126459%_))) - (let* ((_%dphi126467%_ - _%hd126402126462%_) - (_%body126469%_ - _%tl126403126464%_)) + _%tl126437126493%_))) + (let ((_%hd126439126499%_ + (##car _%e126438126496%_)) + (_%tl126440126501%_ + (##cdr _%e126438126496%_))) + (let* ((_%dphi126504%_ + _%hd126439126499%_) + (_%body126506%_ + _%tl126440126501%_)) (if (gx#stx-fixnum? - _%dphi126467%_) - (let ((_%rbody126472%_ + _%dphi126504%_) + (let ((_%rbody126509%_ (__call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%K126358%_ _%body126469%_ '())) - _%current-phi126355%_ - (fx+ (gx#stx-e _%dphi126467%_) - (_%current-phi126355%_))))) - (_%K126358%_ - _%rest126393%_ - (__foldr1 cons _%r126394%_ _%rbody126472%_))) - (_%E126397126447%_))))) + (_%K126395%_ _%body126506%_ '())) + _%current-phi126392%_ + (fx+ (gx#stx-e _%dphi126504%_) + (_%current-phi126392%_))))) + (_%K126395%_ + _%rest126430%_ + (__foldr1 cons _%r126431%_ _%rbody126509%_))) + (_%E126434126484%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126397126447%_)) - (_%E126397126447%_)))) - (_%E126397126447%_))))) - (_%E126396126474%_))))) - (let* ((_%e126360126367%_ _%stx126352%_) - (_%E126362126371%_ + (_%E126434126484%_)) + (_%E126434126484%_)))) + (_%E126434126484%_))))) + (_%E126433126511%_))))) + (let* ((_%e126397126404%_ _%stx126389%_) + (_%E126399126408%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126360126367%_))) - (_%E126361126388%_ + _%e126397126404%_))) + (_%E126398126425%_ (lambda () - (if (gx#stx-pair? _%e126360126367%_) - (let ((_%e126363126375%_ - (gx#syntax-e _%e126360126367%_))) - (let ((_%hd126364126378%_ (##car _%e126363126375%_)) - (_%tl126365126380%_ (##cdr _%e126363126375%_))) - (let ((_%body126383%_ _%tl126365126380%_)) - (if (_%current-phi126355%_) - (_%K126358%_ _%body126383%_ '()) + (if (gx#stx-pair? _%e126397126404%_) + (let ((_%e126400126412%_ + (gx#syntax-e _%e126397126404%_))) + (let ((_%hd126401126415%_ (##car _%e126400126412%_)) + (_%tl126402126417%_ (##cdr _%e126400126412%_))) + (let ((_%body126420%_ _%tl126402126417%_)) + (if (_%current-phi126392%_) + (_%K126395%_ _%body126420%_ '()) (__call-with-parameters - (lambda () (_%K126358%_ _%body126383%_ '())) - _%current-phi126355%_ + (lambda () (_%K126395%_ _%body126420%_ '())) + _%current-phi126392%_ (gx#current-expander-phi)))))) - (_%E126362126371%_))))) - (_%E126361126388%_))))) + (_%E126399126408%_))))) + (_%E126398126425%_))))) (define gx#core-expand-import%__% - (lambda (_%stx126006%_ _%internal-expand?126007%_) - (letrec ((_%expand1126009%_ - (lambda (_%hd126324%_ _%K126325%_ _%rest126326%_ _%r126327%_) - (if (gx#core-bound-module? _%hd126324%_) - (_%import1126010%_ - (gx#syntax-local-e__0 _%hd126324%_) - _%K126325%_ - _%rest126326%_ - _%r126327%_) - (if (gx#core-library-module-path? _%hd126324%_) - (_%import1126010%_ + (lambda (_%stx126043%_ _%internal-expand?126044%_) + (letrec ((_%expand1126046%_ + (lambda (_%hd126361%_ _%K126362%_ _%rest126363%_ _%r126364%_) + (if (gx#core-bound-module? _%hd126361%_) + (_%import1126047%_ + (gx#syntax-local-e__0 _%hd126361%_) + _%K126362%_ + _%rest126363%_ + _%r126364%_) + (if (gx#core-library-module-path? _%hd126361%_) + (_%import1126047%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd126324%_)) - _%K126325%_ - _%rest126326%_ - _%r126327%_) + _%hd126361%_)) + _%K126362%_ + _%rest126363%_ + _%r126364%_) (if (gx#core-library-relative-module-path? - _%hd126324%_) - (_%import1126010%_ + _%hd126361%_) + (_%import1126047%_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd126324%_)) - _%K126325%_ - _%rest126326%_ - _%r126327%_) - (let ((_%e126333%_ (gx#stx-e _%hd126324%_))) - (if (pair? _%e126333%_) - (let ((_%$e126336%_ - (gx#stx-e (##car _%e126333%_)))) - (if (eq? 'spec: _%$e126336%_) - (_%import-spec126013%_ - _%hd126324%_ - _%K126325%_ - _%rest126326%_ - _%r126327%_) - (if (eq? 'in: _%$e126336%_) - (_%import-submodule126011%_ - _%hd126324%_ - _%K126325%_ - _%rest126326%_ - _%r126327%_) + _%hd126361%_)) + _%K126362%_ + _%rest126363%_ + _%r126364%_) + (let ((_%e126370%_ (gx#stx-e _%hd126361%_))) + (if (pair? _%e126370%_) + (let ((_%$e126373%_ + (gx#stx-e (##car _%e126370%_)))) + (if (eq? 'spec: _%$e126373%_) + (_%import-spec126050%_ + _%hd126361%_ + _%K126362%_ + _%rest126363%_ + _%r126364%_) + (if (eq? 'in: _%$e126373%_) + (_%import-submodule126048%_ + _%hd126361%_ + _%K126362%_ + _%rest126363%_ + _%r126364%_) (if (eq? 'runtime: - _%$e126336%_) - (_%import-runtime126012%_ - _%hd126324%_ - _%K126325%_ - _%rest126326%_ - _%r126327%_) + _%$e126373%_) + (_%import-runtime126049%_ + _%hd126361%_ + _%K126362%_ + _%rest126363%_ + _%r126364%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx126006%_ - _%hd126324%_))))) - (if (string? _%e126333%_) - (_%import1126010%_ + _%stx126043%_ + _%hd126361%_))))) + (if (string? _%e126370%_) + (_%import1126047%_ (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd126324%_ - (gx#stx-source _%stx126006%_))) - _%K126325%_ - _%rest126326%_ - _%r126327%_) + _%hd126361%_ + (gx#stx-source _%stx126043%_))) + _%K126362%_ + _%rest126363%_ + _%r126364%_) (if (##structure-instance-of? - _%e126333%_ + _%e126370%_ 'gx#module-context::t) - (_%K126325%_ - _%rest126326%_ - (cons _%e126333%_ _%r126327%_)) + (_%K126362%_ + _%rest126363%_ + (cons _%e126370%_ _%r126364%_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx126006%_ - _%hd126324%_)))))))))) - (_%import1126010%_ - (lambda (_%ctx126313%_ - _%K126314%_ - _%rest126315%_ - _%r126316%_) - (let ((_%dphi126318%_ + _%stx126043%_ + _%hd126361%_)))))))))) + (_%import1126047%_ + (lambda (_%ctx126350%_ + _%K126351%_ + _%rest126352%_ + _%r126353%_) + (let ((_%dphi126355%_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_%K126314%_ - _%rest126315%_ + (_%K126351%_ + _%rest126352%_ (cons (##structure gx#import-set::t - _%ctx126313%_ - _%dphi126318%_ - (map (lambda (_%g126319126321%_) + _%ctx126350%_ + _%dphi126355%_ + (map (lambda (_%g126356126358%_) (gx#core-module-export->import__% - _%g126319126321%_ + _%g126356126358%_ '#f - _%dphi126318%_)) + _%dphi126355%_)) (##unchecked-structure-ref - _%ctx126313%_ + _%ctx126350%_ '9 '#f '#f))) - _%r126316%_))))) - (_%import-submodule126011%_ - (lambda (_%hd126280%_ _%K126281%_ _%rest126282%_ _%r126283%_) - (let* ((_%e126284126291%_ _%hd126280%_) - (_%E126286126295%_ + _%r126353%_))))) + (_%import-submodule126048%_ + (lambda (_%hd126317%_ _%K126318%_ _%rest126319%_ _%r126320%_) + (let* ((_%e126321126328%_ _%hd126317%_) + (_%E126323126332%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126284126291%_))) - (_%E126285126309%_ + _%e126321126328%_))) + (_%E126322126346%_ (lambda () - (if (gx#stx-pair? _%e126284126291%_) - (let ((_%e126287126299%_ - (gx#syntax-e _%e126284126291%_))) - (let ((_%hd126288126302%_ - (##car _%e126287126299%_)) - (_%tl126289126304%_ - (##cdr _%e126287126299%_))) - (let ((_%spath126307%_ - _%tl126289126304%_)) - (_%import1126010%_ - (_%import-spec-source126014%_ - _%spath126307%_) - _%K126281%_ - _%rest126282%_ - _%r126283%_)))) - (_%E126286126295%_))))) - (_%E126285126309%_)))) - (_%import-runtime126012%_ - (lambda (_%hd126247%_ _%K126248%_ _%rest126249%_ _%r126250%_) - (let* ((_%e126251126258%_ _%hd126247%_) - (_%E126253126262%_ + (if (gx#stx-pair? _%e126321126328%_) + (let ((_%e126324126336%_ + (gx#syntax-e _%e126321126328%_))) + (let ((_%hd126325126339%_ + (##car _%e126324126336%_)) + (_%tl126326126341%_ + (##cdr _%e126324126336%_))) + (let ((_%spath126344%_ + _%tl126326126341%_)) + (_%import1126047%_ + (_%import-spec-source126051%_ + _%spath126344%_) + _%K126318%_ + _%rest126319%_ + _%r126320%_)))) + (_%E126323126332%_))))) + (_%E126322126346%_)))) + (_%import-runtime126049%_ + (lambda (_%hd126284%_ _%K126285%_ _%rest126286%_ _%r126287%_) + (let* ((_%e126288126295%_ _%hd126284%_) + (_%E126290126299%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126251126258%_))) - (_%E126252126276%_ + _%e126288126295%_))) + (_%E126289126313%_ (lambda () - (if (gx#stx-pair? _%e126251126258%_) - (let ((_%e126254126266%_ - (gx#syntax-e _%e126251126258%_))) - (let ((_%hd126255126269%_ - (##car _%e126254126266%_)) - (_%tl126256126271%_ - (##cdr _%e126254126266%_))) - (let ((_%spath126274%_ - _%tl126256126271%_)) - (_%K126248%_ - _%rest126249%_ - (cons (_%import-spec-source126014%_ - _%spath126274%_) - _%r126250%_))))) - (_%E126253126262%_))))) - (_%E126252126276%_)))) - (_%import-spec126013%_ - (lambda (_%hd126085%_ _%K126086%_ _%rest126087%_ _%r126088%_) - (let* ((_%e126089126106%_ _%hd126085%_) - (_%E126098126110%_ + (if (gx#stx-pair? _%e126288126295%_) + (let ((_%e126291126303%_ + (gx#syntax-e _%e126288126295%_))) + (let ((_%hd126292126306%_ + (##car _%e126291126303%_)) + (_%tl126293126308%_ + (##cdr _%e126291126303%_))) + (let ((_%spath126311%_ + _%tl126293126308%_)) + (_%K126285%_ + _%rest126286%_ + (cons (_%import-spec-source126051%_ + _%spath126311%_) + _%r126287%_))))) + (_%E126290126299%_))))) + (_%E126289126313%_)))) + (_%import-spec126050%_ + (lambda (_%hd126122%_ _%K126123%_ _%rest126124%_ _%r126125%_) + (let* ((_%e126126126143%_ _%hd126122%_) + (_%E126135126147%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126089126106%_))) - (_%E126091126221%_ + _%e126126126143%_))) + (_%E126128126258%_ (lambda () - (if (gx#stx-pair? _%e126089126106%_) - (let ((_%e126099126114%_ - (gx#syntax-e _%e126089126106%_))) - (let ((_%hd126100126117%_ - (##car _%e126099126114%_)) - (_%tl126101126119%_ - (##cdr _%e126099126114%_))) - (if (gx#stx-pair? _%tl126101126119%_) - (let ((_%e126102126122%_ + (if (gx#stx-pair? _%e126126126143%_) + (let ((_%e126136126151%_ + (gx#syntax-e _%e126126126143%_))) + (let ((_%hd126137126154%_ + (##car _%e126136126151%_)) + (_%tl126138126156%_ + (##cdr _%e126136126151%_))) + (if (gx#stx-pair? _%tl126138126156%_) + (let ((_%e126139126159%_ (gx#syntax-e - _%tl126101126119%_))) - (let ((_%hd126103126125%_ - (##car _%e126102126122%_)) - (_%tl126104126127%_ - (##cdr _%e126102126122%_))) - (let* ((_%path126130%_ - _%hd126103126125%_) - (_%specs126132%_ - _%tl126104126127%_)) - (let ((_%src-ctx126134%_ - (_%import-spec-source126014%_ - _%path126130%_)) - (_%exports126135%_ + _%tl126138126156%_))) + (let ((_%hd126140126162%_ + (##car _%e126139126159%_)) + (_%tl126141126164%_ + (##cdr _%e126139126159%_))) + (let* ((_%path126167%_ + _%hd126140126162%_) + (_%specs126169%_ + _%tl126141126164%_)) + (let ((_%src-ctx126171%_ + (_%import-spec-source126051%_ + _%path126167%_)) + (_%exports126172%_ (make-hash-table__% '#f absent-value @@ -2885,215 +2885,215 @@ absent-value absent-value absent-value)) - (_%specs126136%_ + (_%specs126173%_ (gx#syntax->list - _%specs126132%_))) + _%specs126169%_))) (for-each - (lambda (_%out126138%_) + (lambda (_%out126175%_) (__hash-put! - _%exports126135%_ + _%exports126172%_ (cons (##unchecked-structure-ref - _%out126138%_ + _%out126175%_ '3 '#f '#f) (##unchecked-structure-ref - _%out126138%_ + _%out126175%_ '4 '#f '#f)) - _%out126138%_)) + _%out126175%_)) (##unchecked-structure-ref - _%src-ctx126134%_ + _%src-ctx126171%_ '9 '#f '#f)) - (_%K126086%_ - _%rest126087%_ + (_%K126123%_ + _%rest126124%_ (__foldl1 - (lambda (_%spec126140%_ - _%r126141%_) - (let* ((_%e126142126158%_ - _%spec126140%_) - (_%E126144126162%_ + (lambda (_%spec126177%_ + _%r126178%_) + (let* ((_%e126179126195%_ + _%spec126177%_) + (_%E126181126199%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid syntax-case clause" - _%e126142126158%_))) - (_%E126143126217%_ + _%e126179126195%_))) + (_%E126180126254%_ (lambda () - (if (gx#stx-pair? _%e126142126158%_) - (let ((_%e126145126166%_ - (gx#syntax-e _%e126142126158%_))) - (let ((_%hd126146126169%_ - (##car _%e126145126166%_)) - (_%tl126147126171%_ - (##cdr _%e126145126166%_))) - (let ((_%phi126174%_ _%hd126146126169%_)) - (if (gx#stx-pair? _%tl126147126171%_) - (let ((_%e126148126176%_ - (gx#syntax-e _%tl126147126171%_))) - (let ((_%hd126149126179%_ - (##car _%e126148126176%_)) - (_%tl126150126181%_ - (##cdr _%e126148126176%_))) - (let ((_%name126184%_ - _%hd126149126179%_)) + (if (gx#stx-pair? _%e126179126195%_) + (let ((_%e126182126203%_ + (gx#syntax-e _%e126179126195%_))) + (let ((_%hd126183126206%_ + (##car _%e126182126203%_)) + (_%tl126184126208%_ + (##cdr _%e126182126203%_))) + (let ((_%phi126211%_ _%hd126183126206%_)) + (if (gx#stx-pair? _%tl126184126208%_) + (let ((_%e126185126213%_ + (gx#syntax-e _%tl126184126208%_))) + (let ((_%hd126186126216%_ + (##car _%e126185126213%_)) + (_%tl126187126218%_ + (##cdr _%e126185126213%_))) + (let ((_%name126221%_ + _%hd126186126216%_)) (if (gx#stx-pair? - _%tl126150126181%_) - (let ((_%e126151126186%_ + _%tl126187126218%_) + (let ((_%e126188126223%_ (gx#syntax-e - _%tl126150126181%_))) - (let ((_%hd126152126189%_ - (##car _%e126151126186%_)) - (_%tl126153126191%_ - (##cdr _%e126151126186%_))) - (let ((_%src-phi126194%_ - _%hd126152126189%_)) + _%tl126187126218%_))) + (let ((_%hd126189126226%_ + (##car _%e126188126223%_)) + (_%tl126190126228%_ + (##cdr _%e126188126223%_))) + (let ((_%src-phi126231%_ + _%hd126189126226%_)) (if (gx#stx-pair? - _%tl126153126191%_) - (let ((_%e126154126196%_ + _%tl126190126228%_) + (let ((_%e126191126233%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl126153126191%_))) - (let ((_%hd126155126199%_ (##car _%e126154126196%_)) - (_%tl126156126201%_ (##cdr _%e126154126196%_))) - (let ((_%src-name126204%_ _%hd126155126199%_)) - (if (gx#stx-null? _%tl126156126201%_) - (if (and (gx#stx-fixnum? _%src-phi126194%_) - (gx#identifier? _%src-name126204%_) - (gx#stx-fixnum? _%phi126174%_) - (gx#identifier? _%name126184%_)) - (let ((_%src-phi126206%_ - (gx#stx-e _%src-phi126194%_)) - (_%src-name126207%_ + (gx#syntax-e _%tl126190126228%_))) + (let ((_%hd126192126236%_ (##car _%e126191126233%_)) + (_%tl126193126238%_ (##cdr _%e126191126233%_))) + (let ((_%src-name126241%_ _%hd126192126236%_)) + (if (gx#stx-null? _%tl126193126238%_) + (if (and (gx#stx-fixnum? _%src-phi126231%_) + (gx#identifier? _%src-name126241%_) + (gx#stx-fixnum? _%phi126211%_) + (gx#identifier? _%name126221%_)) + (let ((_%src-phi126243%_ + (gx#stx-e _%src-phi126231%_)) + (_%src-name126244%_ (gx#core-identifier-key - _%src-name126204%_)) - (_%phi126208%_ (gx#stx-e _%phi126174%_)) - (_%name126209%_ + _%src-name126241%_)) + (_%phi126245%_ (gx#stx-e _%phi126211%_)) + (_%name126246%_ (gx#core-identifier-key - _%name126184%_))) - (let ((_%$e126211%_ + _%name126221%_))) + (let ((_%$e126248%_ (__hash-get - _%exports126135%_ - (cons _%src-phi126206%_ - _%src-name126207%_)))) - (if _%$e126211%_ - ((lambda (_%out126214%_) + _%exports126172%_ + (cons _%src-phi126243%_ + _%src-name126244%_)))) + (if _%$e126248%_ + ((lambda (_%out126251%_) (cons (gx#core-module-export->import__% - _%out126214%_ - _%name126209%_ - (fx- _%phi126208%_ - _%src-phi126206%_)) - _%r126141%_)) - _%$e126211%_) + _%out126251%_ + _%name126246%_ + (fx- _%phi126245%_ + _%src-phi126243%_)) + _%r126178%_)) + _%$e126248%_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _%stx126006%_ - _%hd126085%_)))) - (_%E126144126162%_)) - (_%E126144126162%_))))) - (_%E126144126162%_))))) + _%stx126043%_ + _%hd126122%_)))) + (_%E126181126199%_)) + (_%E126181126199%_))))) + (_%E126181126199%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126144126162%_))))) - (_%E126144126162%_))))) - (_%E126144126162%_))))) - (_%E126143126217%_))) + (_%E126181126199%_))))) + (_%E126181126199%_))))) + (_%E126181126199%_))))) + (_%E126180126254%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r126088%_ - _%specs126136%_)))))) - (_%E126098126110%_)))) - (_%E126098126110%_)))) - (_%E126090126243%_ + _%r126125%_ + _%specs126173%_)))))) + (_%E126135126147%_)))) + (_%E126135126147%_)))) + (_%E126127126280%_ (lambda () - (if (gx#stx-pair? _%e126089126106%_) - (let ((_%e126092126225%_ - (gx#syntax-e _%e126089126106%_))) - (let ((_%hd126093126228%_ - (##car _%e126092126225%_)) - (_%tl126094126230%_ - (##cdr _%e126092126225%_))) - (if (gx#stx-pair? _%tl126094126230%_) - (let ((_%e126095126233%_ + (if (gx#stx-pair? _%e126126126143%_) + (let ((_%e126129126262%_ + (gx#syntax-e _%e126126126143%_))) + (let ((_%hd126130126265%_ + (##car _%e126129126262%_)) + (_%tl126131126267%_ + (##cdr _%e126129126262%_))) + (if (gx#stx-pair? _%tl126131126267%_) + (let ((_%e126132126270%_ (gx#syntax-e - _%tl126094126230%_))) - (let ((_%hd126096126236%_ - (##car _%e126095126233%_)) - (_%tl126097126238%_ - (##cdr _%e126095126233%_))) - (let ((_%path126241%_ - _%hd126096126236%_)) + _%tl126131126267%_))) + (let ((_%hd126133126273%_ + (##car _%e126132126270%_)) + (_%tl126134126275%_ + (##cdr _%e126132126270%_))) + (let ((_%path126278%_ + _%hd126133126273%_)) (if (gx#stx-null? - _%tl126097126238%_) - (_%K126086%_ - _%rest126087%_ - (cons (_%import-spec-source126014%_ - _%path126241%_) - _%r126088%_)) - (_%E126091126221%_))))) - (_%E126091126221%_)))) - (_%E126091126221%_))))) - (_%E126090126243%_)))) - (_%import-spec-source126014%_ - (lambda (_%spath126083%_) + _%tl126134126275%_) + (_%K126123%_ + _%rest126124%_ + (cons (_%import-spec-source126051%_ + _%path126278%_) + _%r126125%_)) + (_%E126128126258%_))))) + (_%E126128126258%_)))) + (_%E126128126258%_))))) + (_%E126127126280%_)))) + (_%import-spec-source126051%_ + (lambda (_%spath126120%_) (gx#core-import-nested-module - _%spath126083%_ - _%stx126006%_))) - (_%import!126015%_ - (lambda (_%rbody126028%_) - (letrec* ((_%current-ctx126030%_ + _%spath126120%_ + _%stx126043%_))) + (_%import!126052%_ + (lambda (_%rbody126065%_) + (letrec* ((_%current-ctx126067%_ (gx#current-expander-context)) - (_%deps126031%_ (make-hash-table-eq)) - (_%bind!126032%_ - (lambda (_%hd126081%_) + (_%deps126068%_ (make-hash-table-eq)) + (_%bind!126069%_ + (lambda (_%hd126118%_) (gx#core-bind-import!__1 - _%hd126081%_ - _%current-ctx126030%_)))) - (let _%lp126034%_ ((_%rest126036%_ _%rbody126028%_) - (_%body126037%_ '())) - (let* ((_%rest126038126046%_ _%rest126036%_) - (_%else126040126057%_ + _%hd126118%_ + _%current-ctx126067%_)))) + (let _%lp126071%_ ((_%rest126073%_ _%rbody126065%_) + (_%body126074%_ '())) + (let* ((_%rest126075126083%_ _%rest126073%_) + (_%else126077126094%_ (lambda () (if (##structure-instance-of? - _%current-ctx126030%_ + _%current-ctx126067%_ 'gx#module-context::t) (##unchecked-structure-set! - _%current-ctx126030%_ + _%current-ctx126067%_ (__foldl1 cons (##unchecked-structure-ref - _%current-ctx126030%_ + _%current-ctx126067%_ '8 '#f '#f) - _%body126037%_) + _%body126074%_) '8 '#f '#f) '#!void) (__hash-for-each - (lambda (_%ctx126054%_ _%_126055%_) - (gx#eval-module _%ctx126054%_)) - _%deps126031%_) - _%body126037%_)) - (_%K126042126069%_ - (lambda (_%rest126060%_ _%hd126061%_) + (lambda (_%ctx126091%_ _%_126092%_) + (gx#eval-module _%ctx126091%_)) + _%deps126068%_) + _%body126074%_)) + (_%K126079126106%_ + (lambda (_%rest126097%_ _%hd126098%_) (if (##structure-direct-instance-of? - _%hd126061%_ + _%hd126098%_ 'gx#module-import::t) (let () - (_%bind!126032%_ _%hd126061%_) + (_%bind!126069%_ _%hd126098%_) (if (and (fxpositive? (##unchecked-structure-ref - _%hd126061%_ + _%hd126098%_ '3 '#f '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _%hd126061%_ + _%hd126098%_ '1 '#f '#f) @@ -3101,10 +3101,10 @@ '#f '#f))) (__hash-put! - _%deps126031%_ + _%deps126068%_ (##unchecked-structure-ref (##unchecked-structure-ref - _%hd126061%_ + _%hd126098%_ '1 '#f '#f) @@ -3114,155 +3114,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _%hd126061%_ + _%hd126098%_ 'gx#import-set::t) (let () (for-each - _%bind!126032%_ + _%bind!126069%_ (##unchecked-structure-ref - _%hd126061%_ + _%hd126098%_ '3 '#f '#f)) (if (fxpositive? (##unchecked-structure-ref - _%hd126061%_ + _%hd126098%_ '2 '#f '#f)) (__hash-put! - _%deps126031%_ + _%deps126068%_ (##unchecked-structure-ref - _%hd126061%_ + _%hd126098%_ '1 '#f '#f) '#t) '#!void)) - (let ((_%$e126065%_ + (let ((_%$e126102%_ (##structure-instance-of? - _%hd126061%_ + _%hd126098%_ 'gx#module-context::t))) - (if _%$e126065%_ - _%$e126065%_ + (if _%$e126102%_ + _%$e126102%_ (gx#raise-syntax-error '#f '"Unexpected import" - _%stx126006%_ - _%hd126061%_))))) - (_%lp126034%_ - _%rest126060%_ - (cons _%hd126061%_ _%body126037%_))))) - (if (pair? _%rest126038126046%_) - (let ((_%hd126043126072%_ - (##car _%rest126038126046%_)) - (_%tl126044126074%_ - (##cdr _%rest126038126046%_))) - (let* ((_%hd126077%_ _%hd126043126072%_) - (_%rest126079%_ _%tl126044126074%_)) - (_%K126042126069%_ - _%rest126079%_ - _%hd126077%_))) - (_%else126040126057%_))))))) - (_%expanded-import?126016%_ - (lambda (_%e126020%_) - (let ((_%$e126022%_ + _%stx126043%_ + _%hd126098%_))))) + (_%lp126071%_ + _%rest126097%_ + (cons _%hd126098%_ _%body126074%_))))) + (if (pair? _%rest126075126083%_) + (let ((_%hd126080126109%_ + (##car _%rest126075126083%_)) + (_%tl126081126111%_ + (##cdr _%rest126075126083%_))) + (let* ((_%hd126114%_ _%hd126080126109%_) + (_%rest126116%_ _%tl126081126111%_)) + (_%K126079126106%_ + _%rest126116%_ + _%hd126114%_))) + (_%else126077126094%_))))))) + (_%expanded-import?126053%_ + (lambda (_%e126057%_) + (let ((_%$e126059%_ (##structure-direct-instance-of? - _%e126020%_ + _%e126057%_ 'gx#import-set::t))) - (if _%$e126022%_ - _%$e126022%_ - (let ((_%$e126025%_ + (if _%$e126059%_ + _%$e126059%_ + (let ((_%$e126062%_ (##structure-direct-instance-of? - _%e126020%_ + _%e126057%_ 'gx#module-import::t))) - (if _%$e126025%_ - _%$e126025%_ + (if _%$e126062%_ + _%$e126062%_ (##structure-instance-of? - _%e126020%_ + _%e126057%_ 'gx#module-context::t)))))))) - (let ((_%rbody126018%_ + (let ((_%rbody126055%_ (gx#core-expand-import/export - _%stx126006%_ - _%expanded-import?126016%_ + _%stx126043%_ + _%expanded-import?126053%_ 'apply-import-expander gx#current-import-expander-phi - _%expand1126009%_))) - (if _%internal-expand?126007%_ - (reverse _%rbody126018%_) + _%expand1126046%_))) + (if _%internal-expand?126044%_ + (reverse _%rbody126055%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_%import!126015%_ _%rbody126018%_)) - (gx#stx-source _%stx126006%_))))))) + (gx#core-cons '%#import (_%import!126052%_ _%rbody126055%_)) + (gx#stx-source _%stx126043%_))))))) (define gx#core-expand-import%__0 - (lambda (_%stx126345%_) - (let ((_%internal-expand?126347%_ '#f)) + (lambda (_%stx126382%_) + (let ((_%internal-expand?126384%_ '#f)) (gx#core-expand-import%__% - _%stx126345%_ - _%internal-expand?126347%_)))) + _%stx126382%_ + _%internal-expand?126384%_)))) (define gx#core-expand-import% - (lambda _g128998_ - (let ((_g128997_ (##length _g128998_))) - (cond ((##fx= _g128997_ 1) - (apply gx#core-expand-import%__0 _g128998_)) - ((##fx= _g128997_ 2) - (apply gx#core-expand-import%__% _g128998_)) + (lambda _g129035_ + (let ((_g129034_ (##length _g129035_))) + (cond ((##fx= _g129034_ 1) + (apply gx#core-expand-import%__0 _g129035_)) + ((##fx= _g129034_ 2) + (apply gx#core-expand-import%__% _g129035_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g128998_)))))) + _g129035_)))))) (define gx#core-import-nested-module - (lambda (_%spath125933%_ _%where125934%_) - (let* ((_%e125935125942%_ _%spath125933%_) - (_%E125937125946%_ + (lambda (_%spath125970%_ _%where125971%_) + (let* ((_%e125972125979%_ _%spath125970%_) + (_%E125974125983%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125935125942%_))) - (_%E125936126001%_ + _%e125972125979%_))) + (_%E125973126038%_ (lambda () - (if (gx#stx-pair? _%e125935125942%_) - (let ((_%e125938125950%_ - (gx#syntax-e _%e125935125942%_))) - (let ((_%hd125939125953%_ (##car _%e125938125950%_)) - (_%tl125940125955%_ (##cdr _%e125938125950%_))) - (let* ((_%origin125958%_ _%hd125939125953%_) - (_%sub125960%_ _%tl125940125955%_) - (_%origin-ctx125962%_ - (if (gx#stx-false? _%origin125958%_) + (if (gx#stx-pair? _%e125972125979%_) + (let ((_%e125975125987%_ + (gx#syntax-e _%e125972125979%_))) + (let ((_%hd125976125990%_ (##car _%e125975125987%_)) + (_%tl125977125992%_ (##cdr _%e125975125987%_))) + (let* ((_%origin125995%_ _%hd125976125990%_) + (_%sub125997%_ _%tl125977125992%_) + (_%origin-ctx125999%_ + (if (gx#stx-false? _%origin125995%_) (gx#current-expander-context) - (gx#import-module__0 _%origin125958%_)))) - (let _%lp125964%_ ((_%rest125966%_ _%sub125960%_) - (_%ctx125967%_ - _%origin-ctx125962%_)) - (let* ((_%e125968125975%_ _%rest125966%_) - (_%E125970125979%_ - (lambda () _%ctx125967%_)) - (_%E125969125997%_ + (gx#import-module__0 _%origin125995%_)))) + (let _%lp126001%_ ((_%rest126003%_ _%sub125997%_) + (_%ctx126004%_ + _%origin-ctx125999%_)) + (let* ((_%e126005126012%_ _%rest126003%_) + (_%E126007126016%_ + (lambda () _%ctx126004%_)) + (_%E126006126034%_ (lambda () - (if (gx#stx-pair? _%e125968125975%_) - (let ((_%e125971125983%_ + (if (gx#stx-pair? _%e126005126012%_) + (let ((_%e126008126020%_ (gx#syntax-e - _%e125968125975%_))) - (let ((_%hd125972125986%_ - (##car _%e125971125983%_)) - (_%tl125973125988%_ - (##cdr _%e125971125983%_))) - (let* ((_%id125991%_ - _%hd125972125986%_) - (_%rest125993%_ - _%tl125973125988%_) - (_%bind125995%_ + _%e126005126012%_))) + (let ((_%hd126009126023%_ + (##car _%e126008126020%_)) + (_%tl126010126025%_ + (##cdr _%e126008126020%_))) + (let* ((_%id126028%_ + _%hd126009126023%_) + (_%rest126030%_ + _%tl126010126025%_) + (_%bind126032%_ (gx#resolve-identifier__% - _%id125991%_ + _%id126028%_ '0 - _%ctx125967%_))) + _%ctx126004%_))) (if (and (##structure-direct-instance-of? - _%bind125995%_ + _%bind126032%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind125995%_ + _%bind126032%_ '4 '#f '#f) @@ -3271,804 +3271,804 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _%where125934%_ - _%spath125933%_ - _%id125991%_)) - (_%lp125964%_ - _%rest125993%_ + _%where125971%_ + _%spath125970%_ + _%id126028%_)) + (_%lp126001%_ + _%rest126030%_ (##unchecked-structure-ref - _%bind125995%_ + _%bind126032%_ '4 '#f '#f))))) - (_%E125970125979%_))))) - (_%E125969125997%_)))))) - (_%E125937125946%_))))) - (_%E125936126001%_)))) + (_%E126007126016%_))))) + (_%E126006126034%_)))))) + (_%E125974125983%_))))) + (_%E125973126038%_)))) (define gx#core-expand-import-source - (lambda (_%hd125931%_) + (lambda (_%hd125968%_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _%hd125931%_ '())) + (cons 'import-internal% (cons _%hd125968%_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_%stx125425%_ _%internal-expand?125426%_) - (letrec* ((_%make-export__128926128927%_ - (lambda (_%bind125879%_ - _%phi125880%_ - _%ctx125881%_ - _%name125882%_) - (let* ((_%key125884%_ + (lambda (_%stx125462%_ _%internal-expand?125463%_) + (letrec* ((_%make-export__128963128964%_ + (lambda (_%bind125916%_ + _%phi125917%_ + _%ctx125918%_ + _%name125919%_) + (let* ((_%key125921%_ (##unchecked-structure-ref - _%bind125879%_ + _%bind125916%_ '2 '#f '#f)) - (_%export-key125886%_ - (if _%name125882%_ - (gx#core-identifier-key _%name125882%_) - _%key125884%_))) + (_%export-key125923%_ + (if _%name125919%_ + (gx#core-identifier-key _%name125919%_) + _%key125921%_))) (##structure gx#module-export::t - _%ctx125881%_ - _%key125884%_ - _%phi125880%_ - _%export-key125886%_ - (let ((_%$e125889%_ + _%ctx125918%_ + _%key125921%_ + _%phi125917%_ + _%export-key125923%_ + (let ((_%$e125926%_ (##structure-instance-of? - _%bind125879%_ + _%bind125916%_ 'gx#extern-binding::t))) - (if _%$e125889%_ - _%$e125889%_ + (if _%$e125926%_ + _%$e125926%_ (##structure-direct-instance-of? - _%bind125879%_ + _%bind125916%_ 'gx#import-binding::t))))))) - (_%make-export__0__128928128931%_ - (lambda (_%bind125895%_) - (let* ((_%phi125897%_ (gx#current-export-expander-phi)) - (_%ctx125899%_ (gx#current-expander-context)) - (_%name125901%_ '#f)) - (_%make-export__128926128927%_ - _%bind125895%_ - _%phi125897%_ - _%ctx125899%_ - _%name125901%_)))) - (_%make-export__1__128929128932%_ - (lambda (_%bind125903%_ _%phi125904%_) - (let* ((_%ctx125906%_ (gx#current-expander-context)) - (_%name125908%_ '#f)) - (_%make-export__128926128927%_ - _%bind125903%_ - _%phi125904%_ - _%ctx125906%_ - _%name125908%_)))) - (_%make-export__2__128930128933%_ - (lambda (_%bind125910%_ _%phi125911%_ _%ctx125912%_) - (let ((_%name125914%_ '#f)) - (_%make-export__128926128927%_ - _%bind125910%_ - _%phi125911%_ - _%ctx125912%_ - _%name125914%_)))) - (_%make-export125428%_ - (lambda _g129000_ - (let ((_g128999_ (##length _g129000_))) - (cond ((##fx= _g128999_ 1) - (apply _%make-export__0__128928128931%_ - _g129000_)) - ((##fx= _g128999_ 2) - (apply _%make-export__1__128929128932%_ - _g129000_)) - ((##fx= _g128999_ 3) - (apply _%make-export__2__128930128933%_ - _g129000_)) - ((##fx= _g128999_ 4) - (apply _%make-export__128926128927%_ _g129000_)) + (_%make-export__0__128965128968%_ + (lambda (_%bind125932%_) + (let* ((_%phi125934%_ (gx#current-export-expander-phi)) + (_%ctx125936%_ (gx#current-expander-context)) + (_%name125938%_ '#f)) + (_%make-export__128963128964%_ + _%bind125932%_ + _%phi125934%_ + _%ctx125936%_ + _%name125938%_)))) + (_%make-export__1__128966128969%_ + (lambda (_%bind125940%_ _%phi125941%_) + (let* ((_%ctx125943%_ (gx#current-expander-context)) + (_%name125945%_ '#f)) + (_%make-export__128963128964%_ + _%bind125940%_ + _%phi125941%_ + _%ctx125943%_ + _%name125945%_)))) + (_%make-export__2__128967128970%_ + (lambda (_%bind125947%_ _%phi125948%_ _%ctx125949%_) + (let ((_%name125951%_ '#f)) + (_%make-export__128963128964%_ + _%bind125947%_ + _%phi125948%_ + _%ctx125949%_ + _%name125951%_)))) + (_%make-export125465%_ + (lambda _g129037_ + (let ((_g129036_ (##length _g129037_))) + (cond ((##fx= _g129036_ 1) + (apply _%make-export__0__128965128968%_ + _g129037_)) + ((##fx= _g129036_ 2) + (apply _%make-export__1__128966128969%_ + _g129037_)) + ((##fx= _g129036_ 3) + (apply _%make-export__2__128967128970%_ + _g129037_)) + ((##fx= _g129036_ 4) + (apply _%make-export__128963128964%_ _g129037_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g129000_)))))) - (_%expand1125429%_ - (lambda (_%hd125584%_ - _%K125585%_ - _%rest125586%_ - _%r125587%_) - (let* ((_%e125588125620%_ _%hd125584%_) - (_%E125615125624%_ + _g129037_)))))) + (_%expand1125466%_ + (lambda (_%hd125621%_ + _%K125622%_ + _%rest125623%_ + _%r125624%_) + (let* ((_%e125625125657%_ _%hd125621%_) + (_%E125652125661%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _%stx125425%_ - _%hd125584%_))) - (_%E125605125708%_ + _%stx125462%_ + _%hd125621%_))) + (_%E125642125745%_ (lambda () - (if (gx#stx-pair? _%e125588125620%_) - (let ((_%e125616125628%_ - (gx#syntax-e _%e125588125620%_))) - (let ((_%hd125617125631%_ - (##car _%e125616125628%_)) - (_%tl125618125633%_ - (##cdr _%e125616125628%_))) - (if (eq? (gx#stx-e _%hd125617125631%_) + (if (gx#stx-pair? _%e125625125657%_) + (let ((_%e125653125665%_ + (gx#syntax-e _%e125625125657%_))) + (let ((_%hd125654125668%_ + (##car _%e125653125665%_)) + (_%tl125655125670%_ + (##cdr _%e125653125665%_))) + (if (eq? (gx#stx-e _%hd125654125668%_) 'import:) - (let ((_%in125636%_ - _%tl125618125633%_)) - (if (gx#stx-list? _%in125636%_) - (let _%lp125638%_ ((_%in-rest125640%_ + (let ((_%in125673%_ + _%tl125655125670%_)) + (if (gx#stx-list? _%in125673%_) + (let _%lp125675%_ ((_%in-rest125677%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in125636%_) - (_%r125641%_ _%r125587%_)) + _%in125673%_) + (_%r125678%_ _%r125624%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%e125642125649%_ - _%in-rest125640%_) - (_%E125644125653%_ + (let* ((_%e125679125686%_ + _%in-rest125677%_) + (_%E125681125690%_ (lambda () - (_%K125585%_ - _%rest125586%_ - _%r125641%_))) - (_%E125643125704%_ + (_%K125622%_ + _%rest125623%_ + _%r125678%_))) + (_%E125680125741%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e125642125649%_) - (let ((_%e125645125657%_ - (gx#syntax-e _%e125642125649%_))) - (let ((_%hd125646125660%_ (##car _%e125645125657%_)) - (_%tl125647125662%_ - (##cdr _%e125645125657%_))) - (let* ((_%hd125665%_ _%hd125646125660%_) - (_%in-rest125667%_ _%tl125647125662%_) - (_%src125702%_ - (if (gx#core-bound-module? _%hd125665%_) - (gx#syntax-local-e__0 _%hd125665%_) + _%e125679125686%_) + (let ((_%e125682125694%_ + (gx#syntax-e _%e125679125686%_))) + (let ((_%hd125683125697%_ (##car _%e125682125694%_)) + (_%tl125684125699%_ + (##cdr _%e125682125694%_))) + (let* ((_%hd125702%_ _%hd125683125697%_) + (_%in-rest125704%_ _%tl125684125699%_) + (_%src125739%_ + (if (gx#core-bound-module? _%hd125702%_) + (gx#syntax-local-e__0 _%hd125702%_) (if (gx#core-library-module-path? - _%hd125665%_) + _%hd125702%_) (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd125665%_)) + _%hd125702%_)) (if (gx#core-library-relative-module-path? - _%hd125665%_) + _%hd125702%_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd125665%_)) + _%hd125702%_)) (if (gx#stx-string? - _%hd125665%_) + _%hd125702%_) (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd125665%_ + _%hd125702%_ (gx#stx-source - _%stx125425%_))) - (let* ((_%e125673125680%_ - _%hd125665%_) - (_%E125675125684%_ + _%stx125462%_))) + (let* ((_%e125710125717%_ + _%hd125702%_) + (_%E125712125721%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _%stx125425%_ - _%hd125665%_))) - (_%E125674125698%_ + _%stx125462%_ + _%hd125702%_))) + (_%E125711125735%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e125673125680%_) - (let ((_%e125676125688%_ - (gx#syntax-e _%e125673125680%_))) - (let ((_%hd125677125691%_ - (##car _%e125676125688%_)) - (_%tl125678125693%_ - (##cdr _%e125676125688%_))) - (if (eq? (gx#stx-e _%hd125677125691%_) 'in:) - (let ((_%spath125696%_ _%tl125678125693%_)) + _%e125710125717%_) + (let ((_%e125713125725%_ + (gx#syntax-e _%e125710125717%_))) + (let ((_%hd125714125728%_ + (##car _%e125713125725%_)) + (_%tl125715125730%_ + (##cdr _%e125713125725%_))) + (if (eq? (gx#stx-e _%hd125714125728%_) 'in:) + (let ((_%spath125733%_ _%tl125715125730%_)) (gx#core-import-nested-module - _%spath125696%_ - _%stx125425%_)) - (_%E125675125684%_)))) - (_%E125675125684%_))))) - (_%E125674125698%_)))))))) + _%spath125733%_ + _%stx125462%_)) + (_%E125712125721%_)))) + (_%E125712125721%_))))) + (_%E125711125735%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp125638%_ - _%in-rest125667%_ - (_%export-imports125430%_ - _%src125702%_ - _%r125641%_))))) - (_%E125644125653%_))))) + (_%lp125675%_ + _%in-rest125704%_ + (_%export-imports125467%_ + _%src125739%_ + _%r125678%_))))) + (_%E125681125690%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125643125704%_))) - (_%E125615125624%_))) - (_%E125615125624%_)))) - (_%E125615125624%_)))) - (_%E125592125748%_ + (_%E125680125741%_))) + (_%E125652125661%_))) + (_%E125652125661%_)))) + (_%E125652125661%_)))) + (_%E125629125785%_ (lambda () - (if (gx#stx-pair? _%e125588125620%_) - (let ((_%e125606125712%_ - (gx#syntax-e _%e125588125620%_))) - (let ((_%hd125607125715%_ - (##car _%e125606125712%_)) - (_%tl125608125717%_ - (##cdr _%e125606125712%_))) - (if (eq? (gx#stx-e _%hd125607125715%_) + (if (gx#stx-pair? _%e125625125657%_) + (let ((_%e125643125749%_ + (gx#syntax-e _%e125625125657%_))) + (let ((_%hd125644125752%_ + (##car _%e125643125749%_)) + (_%tl125645125754%_ + (##cdr _%e125643125749%_))) + (if (eq? (gx#stx-e _%hd125644125752%_) 'rename:) (if (gx#stx-pair? - _%tl125608125717%_) - (let ((_%e125609125720%_ + _%tl125645125754%_) + (let ((_%e125646125757%_ (gx#syntax-e - _%tl125608125717%_))) - (let ((_%hd125610125723%_ - (##car _%e125609125720%_)) - (_%tl125611125725%_ - (##cdr _%e125609125720%_))) - (let ((_%id125728%_ - _%hd125610125723%_)) + _%tl125645125754%_))) + (let ((_%hd125647125760%_ + (##car _%e125646125757%_)) + (_%tl125648125762%_ + (##cdr _%e125646125757%_))) + (let ((_%id125765%_ + _%hd125647125760%_)) (if (gx#stx-pair? - _%tl125611125725%_) - (let ((_%e125612125730%_ + _%tl125648125762%_) + (let ((_%e125649125767%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl125611125725%_))) - (let ((_%hd125613125733%_ (##car _%e125612125730%_)) - (_%tl125614125735%_ (##cdr _%e125612125730%_))) - (let ((_%name125738%_ _%hd125613125733%_)) - (if (gx#stx-null? _%tl125614125735%_) - (let* ((_%phi125740%_ + _%tl125648125762%_))) + (let ((_%hd125650125770%_ (##car _%e125649125767%_)) + (_%tl125651125772%_ (##cdr _%e125649125767%_))) + (let ((_%name125775%_ _%hd125650125770%_)) + (if (gx#stx-null? _%tl125651125772%_) + (let* ((_%phi125777%_ (gx#current-export-expander-phi)) - (_%$e125742%_ + (_%$e125779%_ (gx#core-resolve-identifier__1 - _%id125728%_ - _%phi125740%_))) - (if _%$e125742%_ - ((lambda (_%bind125745%_) - (_%K125585%_ - _%rest125586%_ - (cons (_%make-export__128926128927%_ - _%bind125745%_ - _%phi125740%_ + _%id125765%_ + _%phi125777%_))) + (if _%$e125779%_ + ((lambda (_%bind125782%_) + (_%K125622%_ + _%rest125623%_ + (cons (_%make-export__128963128964%_ + _%bind125782%_ + _%phi125777%_ (gx#current-expander-context) - _%name125738%_) - _%r125587%_))) - _%$e125742%_) + _%name125775%_) + _%r125624%_))) + _%$e125779%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125425%_ - _%hd125584%_ - _%id125728%_))) - (_%E125605125708%_))))) - (_%E125605125708%_))))) + _%stx125462%_ + _%hd125621%_ + _%id125765%_))) + (_%E125642125745%_))))) + (_%E125642125745%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125605125708%_)) - (_%E125605125708%_)))) - (_%E125605125708%_)))) - (_%E125591125798%_ + (_%E125642125745%_)) + (_%E125642125745%_)))) + (_%E125642125745%_)))) + (_%E125628125835%_ (lambda () - (if (gx#stx-pair? _%e125588125620%_) - (let ((_%e125593125752%_ - (gx#syntax-e _%e125588125620%_))) - (let ((_%hd125594125755%_ - (##car _%e125593125752%_)) - (_%tl125595125757%_ - (##cdr _%e125593125752%_))) - (if (eq? (gx#stx-e _%hd125594125755%_) + (if (gx#stx-pair? _%e125625125657%_) + (let ((_%e125630125789%_ + (gx#syntax-e _%e125625125657%_))) + (let ((_%hd125631125792%_ + (##car _%e125630125789%_)) + (_%tl125632125794%_ + (##cdr _%e125630125789%_))) + (if (eq? (gx#stx-e _%hd125631125792%_) 'spec:) (if (gx#stx-pair? - _%tl125595125757%_) - (let ((_%e125596125760%_ + _%tl125632125794%_) + (let ((_%e125633125797%_ (gx#syntax-e - _%tl125595125757%_))) - (let ((_%hd125597125763%_ - (##car _%e125596125760%_)) - (_%tl125598125765%_ - (##cdr _%e125596125760%_))) - (let ((_%phi125768%_ - _%hd125597125763%_)) + _%tl125632125794%_))) + (let ((_%hd125634125800%_ + (##car _%e125633125797%_)) + (_%tl125635125802%_ + (##cdr _%e125633125797%_))) + (let ((_%phi125805%_ + _%hd125634125800%_)) (if (gx#stx-pair? - _%tl125598125765%_) - (let ((_%e125599125770%_ + _%tl125635125802%_) + (let ((_%e125636125807%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl125598125765%_))) - (let ((_%hd125600125773%_ (##car _%e125599125770%_)) - (_%tl125601125775%_ (##cdr _%e125599125770%_))) - (let ((_%id125778%_ _%hd125600125773%_)) - (if (gx#stx-pair? _%tl125601125775%_) - (let ((_%e125602125780%_ - (gx#syntax-e _%tl125601125775%_))) - (let ((_%hd125603125783%_ - (##car _%e125602125780%_)) - (_%tl125604125785%_ - (##cdr _%e125602125780%_))) - (let ((_%name125788%_ _%hd125603125783%_)) - (if (gx#stx-null? _%tl125604125785%_) - (if (and (gx#stx-fixnum? _%phi125768%_) - (gx#identifier? _%id125778%_) - (gx#identifier? _%name125788%_)) - (let* ((_%phi125790%_ - (gx#stx-e _%phi125768%_)) - (_%$e125792%_ + _%tl125635125802%_))) + (let ((_%hd125637125810%_ (##car _%e125636125807%_)) + (_%tl125638125812%_ (##cdr _%e125636125807%_))) + (let ((_%id125815%_ _%hd125637125810%_)) + (if (gx#stx-pair? _%tl125638125812%_) + (let ((_%e125639125817%_ + (gx#syntax-e _%tl125638125812%_))) + (let ((_%hd125640125820%_ + (##car _%e125639125817%_)) + (_%tl125641125822%_ + (##cdr _%e125639125817%_))) + (let ((_%name125825%_ _%hd125640125820%_)) + (if (gx#stx-null? _%tl125641125822%_) + (if (and (gx#stx-fixnum? _%phi125805%_) + (gx#identifier? _%id125815%_) + (gx#identifier? _%name125825%_)) + (let* ((_%phi125827%_ + (gx#stx-e _%phi125805%_)) + (_%$e125829%_ (gx#core-resolve-identifier__1 - _%id125778%_ - _%phi125790%_))) - (if _%$e125792%_ - ((lambda (_%bind125795%_) - (_%K125585%_ - _%rest125586%_ - (cons (_%make-export__128926128927%_ - _%bind125795%_ - _%phi125790%_ + _%id125815%_ + _%phi125827%_))) + (if _%$e125829%_ + ((lambda (_%bind125832%_) + (_%K125622%_ + _%rest125623%_ + (cons (_%make-export__128963128964%_ + _%bind125832%_ + _%phi125827%_ (gx#current-expander-context) - _%name125788%_) - _%r125587%_))) - _%$e125792%_) + _%name125825%_) + _%r125624%_))) + _%$e125829%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125425%_ - _%hd125584%_ - _%id125778%_))) - (_%E125592125748%_)) - (_%E125592125748%_))))) - (_%E125592125748%_))))) - (_%E125592125748%_))))) + _%stx125462%_ + _%hd125621%_ + _%id125815%_))) + (_%E125629125785%_)) + (_%E125629125785%_))))) + (_%E125629125785%_))))) + (_%E125629125785%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125592125748%_)) - (_%E125592125748%_)))) - (_%E125592125748%_)))) - (_%E125590125810%_ + (_%E125629125785%_)) + (_%E125629125785%_)))) + (_%E125629125785%_)))) + (_%E125627125847%_ (lambda () - (let ((_%id125802%_ _%e125588125620%_)) - (if (gx#identifier? _%id125802%_) - (let ((_%$e125804%_ + (let ((_%id125839%_ _%e125625125657%_)) + (if (gx#identifier? _%id125839%_) + (let ((_%$e125841%_ (gx#core-resolve-identifier__1 - _%id125802%_ + _%id125839%_ (gx#current-export-expander-phi)))) - (if _%$e125804%_ - ((lambda (_%bind125807%_) - (_%K125585%_ - _%rest125586%_ - (cons (_%make-export__0__128928128931%_ - _%bind125807%_) - _%r125587%_))) - _%$e125804%_) + (if _%$e125841%_ + ((lambda (_%bind125844%_) + (_%K125622%_ + _%rest125623%_ + (cons (_%make-export__0__128965128968%_ + _%bind125844%_) + _%r125624%_))) + _%$e125841%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125425%_ - _%hd125584%_))) - (_%E125591125798%_))))) - (_%E125589125874%_ + _%stx125462%_ + _%hd125621%_))) + (_%E125628125835%_))))) + (_%E125626125911%_ (lambda () - (if (eq? (gx#stx-e _%e125588125620%_) '#t) - (let* ((_%current-ctx125814%_ + (if (eq? (gx#stx-e _%e125625125657%_) '#t) + (let* ((_%current-ctx125851%_ (gx#current-expander-context)) - (_%current-phi125816%_ + (_%current-phi125853%_ (gx#current-export-expander-phi)) - (_%phi-ctx125818%_ + (_%phi-ctx125855%_ (gx#core-context-shift - _%current-ctx125814%_ - _%current-phi125816%_)) - (_%phi-bind125820%_ + _%current-ctx125851%_ + _%current-phi125853%_)) + (_%phi-bind125857%_ (hash->list (##unchecked-structure-ref - _%phi-ctx125818%_ + _%phi-ctx125855%_ '2 '#f '#f)))) - (let _%lp125823%_ ((_%bind-rest125825%_ - _%phi-bind125820%_) - (_%set125826%_ '())) - (let* ((_%bind-rest125827125837%_ - _%bind-rest125825%_) - (_%else125829125845%_ + (let _%lp125860%_ ((_%bind-rest125862%_ + _%phi-bind125857%_) + (_%set125863%_ '())) + (let* ((_%bind-rest125864125874%_ + _%bind-rest125862%_) + (_%else125866125882%_ (lambda () - (_%K125585%_ - _%rest125586%_ + (_%K125622%_ + _%rest125623%_ (cons (##structure gx#export-set::t '#f - _%current-phi125816%_ - _%set125826%_) - _%r125587%_)))) - (_%K125831125855%_ - (lambda (_%bind-rest125848%_ - _%bind125849%_ - _%key125850%_) + _%current-phi125853%_ + _%set125863%_) + _%r125624%_)))) + (_%K125868125892%_ + (lambda (_%bind-rest125885%_ + _%bind125886%_ + _%key125887%_) (if (or (##structure-direct-instance-of? - _%bind125849%_ + _%bind125886%_ 'gx#import-binding::t) (gx#private-feature-binding? - _%bind125849%_)) - (_%lp125823%_ - _%bind-rest125848%_ - _%set125826%_) - (_%lp125823%_ - _%bind-rest125848%_ - (cons (_%make-export__2__128930128933%_ - _%bind125849%_ - _%current-phi125816%_ - _%current-ctx125814%_) - _%set125826%_)))))) - (if (pair? _%bind-rest125827125837%_) - (let ((_%hd125832125858%_ - (##car _%bind-rest125827125837%_)) - (_%tl125833125860%_ - (##cdr _%bind-rest125827125837%_))) - (if (pair? _%hd125832125858%_) - (let ((_%hd125834125863%_ - (##car _%hd125832125858%_)) - (_%tl125835125865%_ - (##cdr _%hd125832125858%_))) - (let* ((_%key125868%_ - _%hd125834125863%_) - (_%bind125870%_ - _%tl125835125865%_) - (_%bind-rest125872%_ - _%tl125833125860%_)) - (_%K125831125855%_ - _%bind-rest125872%_ - _%bind125870%_ - _%key125868%_))) - (_%else125829125845%_))) - (_%else125829125845%_))))) - (_%E125590125810%_))))) - (_%E125589125874%_)))) - (_%export-imports125430%_ - (lambda (_%src125460%_ _%r125461%_) - (letrec* ((_%current-ctx125463%_ + _%bind125886%_)) + (_%lp125860%_ + _%bind-rest125885%_ + _%set125863%_) + (_%lp125860%_ + _%bind-rest125885%_ + (cons (_%make-export__2__128967128970%_ + _%bind125886%_ + _%current-phi125853%_ + _%current-ctx125851%_) + _%set125863%_)))))) + (if (pair? _%bind-rest125864125874%_) + (let ((_%hd125869125895%_ + (##car _%bind-rest125864125874%_)) + (_%tl125870125897%_ + (##cdr _%bind-rest125864125874%_))) + (if (pair? _%hd125869125895%_) + (let ((_%hd125871125900%_ + (##car _%hd125869125895%_)) + (_%tl125872125902%_ + (##cdr _%hd125869125895%_))) + (let* ((_%key125905%_ + _%hd125871125900%_) + (_%bind125907%_ + _%tl125872125902%_) + (_%bind-rest125909%_ + _%tl125870125897%_)) + (_%K125868125892%_ + _%bind-rest125909%_ + _%bind125907%_ + _%key125905%_))) + (_%else125866125882%_))) + (_%else125866125882%_))))) + (_%E125627125847%_))))) + (_%E125626125911%_)))) + (_%export-imports125467%_ + (lambda (_%src125497%_ _%r125498%_) + (letrec* ((_%current-ctx125500%_ (gx#current-expander-context)) - (_%current-phi125464%_ + (_%current-phi125501%_ (gx#current-export-expander-phi)) - (_%import->export125465%_ - (lambda (_%in125546%_) - (let* ((_%in125547125555%_ _%in125546%_) - (_%E125549125559%_ + (_%import->export125502%_ + (lambda (_%in125583%_) + (let* ((_%in125584125592%_ _%in125583%_) + (_%E125586125596%_ (lambda () (error '"No clause matching" - _%in125547125555%_ + _%in125584125592%_ '((module-import out key phi))) '#!void)) - (_%K125550125566%_ - (lambda (_%phi125562%_ - _%key125563%_ - _%out125564%_) + (_%K125587125603%_ + (lambda (_%phi125599%_ + _%key125600%_ + _%out125601%_) (##structure gx#module-export::t - _%current-ctx125463%_ - _%key125563%_ - _%phi125562%_ - _%key125563%_ + _%current-ctx125500%_ + _%key125600%_ + _%phi125599%_ + _%key125600%_ '#t)))) (if (##structure-direct-instance-of? - _%in125547125555%_ + _%in125584125592%_ 'gx#module-import::t) - (let* ((_%e125551125569%_ + (let* ((_%e125588125606%_ (##unchecked-structure-ref - _%in125547125555%_ + _%in125584125592%_ '1 '#f '#f)) - (_%out125572%_ - _%e125551125569%_) - (_%e125552125574%_ + (_%out125609%_ + _%e125588125606%_) + (_%e125589125611%_ (##unchecked-structure-ref - _%in125547125555%_ + _%in125584125592%_ '2 '#f '#f)) - (_%key125577%_ - _%e125552125574%_) - (_%e125553125579%_ + (_%key125614%_ + _%e125589125611%_) + (_%e125590125616%_ (##unchecked-structure-ref - _%in125547125555%_ + _%in125584125592%_ '3 '#f '#f)) - (_%phi125582%_ - _%e125553125579%_)) - (_%K125550125566%_ - _%phi125582%_ - _%key125577%_ - _%out125572%_)) - (_%E125549125559%_))))) - (_%fold-e125466%_ - (lambda (_%in125468%_ _%r125469%_) - (let* ((_%in125470125484%_ _%in125468%_) - (_%else125473125492%_ - (lambda () _%r125469%_))) - (let ((_%K125479125528%_ - (lambda (_%phi125524%_ - _%key125525%_ - _%out125526%_) - (if (and (fx= _%phi125524%_ - _%current-phi125464%_) - (eq? _%src125460%_ + (_%phi125619%_ + _%e125590125616%_)) + (_%K125587125603%_ + _%phi125619%_ + _%key125614%_ + _%out125609%_)) + (_%E125586125596%_))))) + (_%fold-e125503%_ + (lambda (_%in125505%_ _%r125506%_) + (let* ((_%in125507125521%_ _%in125505%_) + (_%else125510125529%_ + (lambda () _%r125506%_))) + (let ((_%K125516125565%_ + (lambda (_%phi125561%_ + _%key125562%_ + _%out125563%_) + (if (and (fx= _%phi125561%_ + _%current-phi125501%_) + (eq? _%src125497%_ (##unchecked-structure-ref - _%out125526%_ + _%out125563%_ '1 '#f '#f))) - (cons (_%import->export125465%_ - _%in125468%_) - _%r125469%_) - _%r125469%_))) - (_%K125475125503%_ - (lambda (_%imports125496%_ - _%phi125497%_ - _%ctx125498%_) - (if (and (fx= _%phi125497%_ - _%current-phi125464%_) - (eq? _%src125460%_ - _%ctx125498%_)) + (cons (_%import->export125502%_ + _%in125505%_) + _%r125506%_) + _%r125506%_))) + (_%K125512125540%_ + (lambda (_%imports125533%_ + _%phi125534%_ + _%ctx125535%_) + (if (and (fx= _%phi125534%_ + _%current-phi125501%_) + (eq? _%src125497%_ + _%ctx125535%_)) (__foldl1 - (lambda (_%in125500%_ - _%r125501%_) - (cons (_%import->export125465%_ - _%in125500%_) - _%r125501%_)) - _%r125469%_ - _%imports125496%_) - _%r125469%_)))) - (let ((_%try-match125472125521%_ + (lambda (_%in125537%_ + _%r125538%_) + (cons (_%import->export125502%_ + _%in125537%_) + _%r125538%_)) + _%r125506%_ + _%imports125533%_) + _%r125506%_)))) + (let ((_%try-match125509125558%_ (lambda () (if (##structure-direct-instance-of? - _%in125470125484%_ + _%in125507125521%_ 'gx#import-set::t) - (let* ((_%e125476125506%_ + (let* ((_%e125513125543%_ (##unchecked-structure-ref - _%in125470125484%_ + _%in125507125521%_ '1 '#f '#f)) - (_%e125477125511%_ + (_%e125514125548%_ (##unchecked-structure-ref - _%in125470125484%_ + _%in125507125521%_ '2 '#f '#f)) - (_%e125478125516%_ + (_%e125515125553%_ (##unchecked-structure-ref - _%in125470125484%_ + _%in125507125521%_ '3 '#f '#f))) - (let ((_%ctx125509%_ - _%e125476125506%_) - (_%phi125514%_ - _%e125477125511%_) - (_%imports125519%_ - _%e125478125516%_)) - (_%K125475125503%_ - _%imports125519%_ - _%phi125514%_ - _%ctx125509%_))) - (_%else125473125492%_))))) + (let ((_%ctx125546%_ + _%e125513125543%_) + (_%phi125551%_ + _%e125514125548%_) + (_%imports125556%_ + _%e125515125553%_)) + (_%K125512125540%_ + _%imports125556%_ + _%phi125551%_ + _%ctx125546%_))) + (_%else125510125529%_))))) (if (##structure-direct-instance-of? - _%in125470125484%_ + _%in125507125521%_ 'gx#module-import::t) - (let* ((_%e125480125531%_ + (let* ((_%e125517125568%_ (##unchecked-structure-ref - _%in125470125484%_ + _%in125507125521%_ '1 '#f '#f)) - (_%e125481125536%_ + (_%e125518125573%_ (##unchecked-structure-ref - _%in125470125484%_ + _%in125507125521%_ '2 '#f '#f)) - (_%e125482125541%_ + (_%e125519125578%_ (##unchecked-structure-ref - _%in125470125484%_ + _%in125507125521%_ '3 '#f '#f))) - (let ((_%out125534%_ - _%e125480125531%_) - (_%key125539%_ - _%e125481125536%_) - (_%phi125544%_ - _%e125482125541%_)) - (_%K125479125528%_ - _%phi125544%_ - _%key125539%_ - _%out125534%_))) - (_%try-match125472125521%_)))))))) + (let ((_%out125571%_ + _%e125517125568%_) + (_%key125576%_ + _%e125518125573%_) + (_%phi125581%_ + _%e125519125578%_)) + (_%K125516125565%_ + _%phi125581%_ + _%key125576%_ + _%out125571%_))) + (_%try-match125509125558%_)))))))) (cons (##structure gx#export-set::t - _%src125460%_ - _%current-phi125464%_ + _%src125497%_ + _%current-phi125501%_ (__foldl1 - _%fold-e125466%_ + _%fold-e125503%_ '() (##unchecked-structure-ref - _%current-ctx125463%_ + _%current-ctx125500%_ '8 '#f '#f))) - _%r125461%_)))) - (_%export!125431%_ - (lambda (_%rbody125447%_) - (letrec* ((_%current-ctx125449%_ + _%r125498%_)))) + (_%export!125468%_ + (lambda (_%rbody125484%_) + (letrec* ((_%current-ctx125486%_ (gx#current-expander-context)) - (_%fold-e125450%_ - (lambda (_%out125454%_ _%r125455%_) + (_%fold-e125487%_ + (lambda (_%out125491%_ _%r125492%_) (if (##structure-direct-instance-of? - _%out125454%_ + _%out125491%_ 'gx#module-export::t) - (cons _%out125454%_ _%r125455%_) + (cons _%out125491%_ _%r125492%_) (if (##structure-direct-instance-of? - _%out125454%_ + _%out125491%_ 'gx#export-set::t) (__foldl1 cons - _%r125455%_ + _%r125492%_ (##unchecked-structure-ref - _%out125454%_ + _%out125491%_ '3 '#f '#f)) - _%r125455%_))))) - (let ((_%body125452%_ (reverse _%rbody125447%_))) + _%r125492%_))))) + (let ((_%body125489%_ (reverse _%rbody125484%_))) (##unchecked-structure-set! - _%current-ctx125449%_ + _%current-ctx125486%_ (__foldl1 - _%fold-e125450%_ + _%fold-e125487%_ (##unchecked-structure-ref - _%current-ctx125449%_ + _%current-ctx125486%_ '9 '#f '#f) - _%body125452%_) + _%body125489%_) '9 '#f '#f) - _%body125452%_)))) - (_%expanded-export?125432%_ - (lambda (_%e125442%_) - (let ((_%$e125444%_ + _%body125489%_)))) + (_%expanded-export?125469%_ + (lambda (_%e125479%_) + (let ((_%$e125481%_ (##structure-direct-instance-of? - _%e125442%_ + _%e125479%_ 'gx#module-export::t))) - (if _%$e125444%_ - _%$e125444%_ + (if _%$e125481%_ + _%$e125481%_ (##structure-direct-instance-of? - _%e125442%_ + _%e125479%_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _%internal-expand?125426%_) - (let ((_%rbody125438%_ + _%internal-expand?125463%_) + (let ((_%rbody125475%_ (gx#core-expand-import/export - _%stx125425%_ - _%expanded-export?125432%_ + _%stx125462%_ + _%expanded-export?125469%_ 'apply-export-expander gx#current-export-expander-phi - _%expand1125429%_))) - (if _%internal-expand?125426%_ - (reverse _%rbody125438%_) + _%expand1125466%_))) + (if _%internal-expand?125463%_ + (reverse _%rbody125475%_) (gx#core-quote-syntax__1 (gx#core-cons '%#export - (_%export!125431%_ _%rbody125438%_)) - (gx#stx-source _%stx125425%_)))) + (_%export!125468%_ _%rbody125475%_)) + (gx#stx-source _%stx125462%_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _%stx125425%_)) + (gx#stx-source _%stx125462%_)) (gx#raise-syntax-error '#f '"Illegal context" - _%stx125425%_)))))) + _%stx125462%_)))))) (define gx#core-expand-export%__0 - (lambda (_%stx125924%_) - (let ((_%internal-expand?125926%_ '#f)) + (lambda (_%stx125961%_) + (let ((_%internal-expand?125963%_ '#f)) (gx#core-expand-export%__% - _%stx125924%_ - _%internal-expand?125926%_)))) + _%stx125961%_ + _%internal-expand?125963%_)))) (define gx#core-expand-export% - (lambda _g129002_ - (let ((_g129001_ (##length _g129002_))) - (cond ((##fx= _g129001_ 1) - (apply gx#core-expand-export%__0 _g129002_)) - ((##fx= _g129001_ 2) - (apply gx#core-expand-export%__% _g129002_)) + (lambda _g129039_ + (let ((_g129038_ (##length _g129039_))) + (cond ((##fx= _g129038_ 1) + (apply gx#core-expand-export%__0 _g129039_)) + ((##fx= _g129038_ 2) + (apply gx#core-expand-export%__% _g129039_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g129002_)))))) + _g129039_)))))) (define gx#core-expand-export-source - (lambda (_%hd125422%_) + (lambda (_%hd125459%_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _%hd125422%_ '())) + (cons 'export-macro% (cons _%hd125459%_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_%stx125392%_) - (let* ((_%e125393125400%_ _%stx125392%_) - (_%E125395125404%_ + (lambda (_%stx125429%_) + (let* ((_%e125430125437%_ _%stx125429%_) + (_%E125432125441%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125393125400%_))) - (_%E125394125418%_ + _%e125430125437%_))) + (_%E125431125455%_ (lambda () - (if (gx#stx-pair? _%e125393125400%_) - (let ((_%e125396125408%_ - (gx#syntax-e _%e125393125400%_))) - (let ((_%hd125397125411%_ (##car _%e125396125408%_)) - (_%tl125398125413%_ (##cdr _%e125396125408%_))) - (let ((_%body125416%_ _%tl125398125413%_)) - (if (gx#identifier-list? _%body125416%_) + (if (gx#stx-pair? _%e125430125437%_) + (let ((_%e125433125445%_ + (gx#syntax-e _%e125430125437%_))) + (let ((_%hd125434125448%_ (##car _%e125433125445%_)) + (_%tl125435125450%_ (##cdr _%e125433125445%_))) + (let ((_%body125453%_ _%tl125435125450%_)) + (if (gx#identifier-list? _%body125453%_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _%body125416%_) + _%body125453%_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _%body125416%_)) - (gx#stx-source _%stx125392%_))) - (_%E125395125404%_))))) - (_%E125395125404%_))))) - (_%E125394125418%_)))) + _%body125453%_)) + (gx#stx-source _%stx125429%_))) + (_%E125432125441%_))))) + (_%E125432125441%_))))) + (_%E125431125455%_)))) (define gx#core-bind-feature!__% - (lambda (_%id125358%_ _%private?125359%_ _%phi125360%_ _%ctx125361%_) + (lambda (_%id125395%_ _%private?125396%_ _%phi125397%_ _%ctx125398%_) (gx#core-bind-syntax!__% - _%id125358%_ - ((if _%private?125359%_ + _%id125395%_ + ((if _%private?125396%_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _%id125358%_)) - _%private?125359%_ - _%phi125360%_ - _%ctx125361%_))) + (gx#stx-e _%id125395%_)) + _%private?125396%_ + _%phi125397%_ + _%ctx125398%_))) (define gx#core-bind-feature!__0 - (lambda (_%id125366%_) - (let* ((_%private?125368%_ '#f) - (_%phi125370%_ (gx#current-expander-phi)) - (_%ctx125372%_ (gx#current-expander-context))) + (lambda (_%id125403%_) + (let* ((_%private?125405%_ '#f) + (_%phi125407%_ (gx#current-expander-phi)) + (_%ctx125409%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125366%_ - _%private?125368%_ - _%phi125370%_ - _%ctx125372%_)))) + _%id125403%_ + _%private?125405%_ + _%phi125407%_ + _%ctx125409%_)))) (define gx#core-bind-feature!__1 - (lambda (_%id125374%_ _%private?125375%_) - (let* ((_%phi125377%_ (gx#current-expander-phi)) - (_%ctx125379%_ (gx#current-expander-context))) + (lambda (_%id125411%_ _%private?125412%_) + (let* ((_%phi125414%_ (gx#current-expander-phi)) + (_%ctx125416%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125374%_ - _%private?125375%_ - _%phi125377%_ - _%ctx125379%_)))) + _%id125411%_ + _%private?125412%_ + _%phi125414%_ + _%ctx125416%_)))) (define gx#core-bind-feature!__2 - (lambda (_%id125381%_ _%private?125382%_ _%phi125383%_) - (let ((_%ctx125385%_ (gx#current-expander-context))) + (lambda (_%id125418%_ _%private?125419%_ _%phi125420%_) + (let ((_%ctx125422%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125381%_ - _%private?125382%_ - _%phi125383%_ - _%ctx125385%_)))) + _%id125418%_ + _%private?125419%_ + _%phi125420%_ + _%ctx125422%_)))) (define gx#core-bind-feature! - (lambda _g129004_ - (let ((_g129003_ (##length _g129004_))) - (cond ((##fx= _g129003_ 1) - (apply gx#core-bind-feature!__0 _g129004_)) - ((##fx= _g129003_ 2) - (apply gx#core-bind-feature!__1 _g129004_)) - ((##fx= _g129003_ 3) - (apply gx#core-bind-feature!__2 _g129004_)) - ((##fx= _g129003_ 4) - (apply gx#core-bind-feature!__% _g129004_)) + (lambda _g129041_ + (let ((_g129040_ (##length _g129041_))) + (cond ((##fx= _g129040_ 1) + (apply gx#core-bind-feature!__0 _g129041_)) + ((##fx= _g129040_ 2) + (apply gx#core-bind-feature!__1 _g129041_)) + ((##fx= _g129040_ 3) + (apply gx#core-bind-feature!__2 _g129041_)) + ((##fx= _g129040_ 4) + (apply gx#core-bind-feature!__% _g129041_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g129004_)))))))) + _g129041_)))))))) diff --git a/src/bootstrap/gerbil/expander/module~1.scm b/src/bootstrap/gerbil/expander/module~1.scm index a85557058..56b9fa393 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]#_g129006_| + (define |gx[1]#_g129043_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129008_| + (define |gx[1]#_g129045_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g129010_| + (define |gx[1]#_g129047_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129012_| + (define |gx[1]#_g129049_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129013_| + (define |gx[1]#_g129050_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129014_| + (define |gx[1]#_g129051_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129015_| + (define |gx[1]#_g129052_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129017_| + (define |gx[1]#_g129054_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129018_| + (define |gx[1]#_g129055_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129019_| + (define |gx[1]#_g129056_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129020_| + (define |gx[1]#_g129057_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129022_| + (define |gx[1]#_g129059_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129023_| + (define |gx[1]#_g129060_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129024_| + (define |gx[1]#_g129061_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129025_| + (define |gx[1]#_g129062_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129027_| + (define |gx[1]#_g129064_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129028_| + (define |gx[1]#_g129065_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129029_| + (define |gx[1]#_g129066_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129030_| + (define |gx[1]#_g129067_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129032_| + (define |gx[1]#_g129069_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129034_| + (define |gx[1]#_g129071_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g129036_| + (define |gx[1]#_g129073_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129038_| + (define |gx[1]#_g129075_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129039_| + (define |gx[1]#_g129076_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g129040_| + (define |gx[1]#_g129077_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129041_| + (define |gx[1]#_g129078_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129042_| + (define |gx[1]#_g129079_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129044_| + (define |gx[1]#_g129081_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129045_| + (define |gx[1]#_g129082_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129046_| + (define |gx[1]#_g129083_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129047_| + (define |gx[1]#_g129084_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129048_| + (define |gx[1]#_g129085_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129050_| + (define |gx[1]#_g129087_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129051_| + (define |gx[1]#_g129088_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g129052_| + (define |gx[1]#_g129089_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129053_| + (define |gx[1]#_g129090_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129054_| + (define |gx[1]#_g129091_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129056_| + (define |gx[1]#_g129093_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129057_| + (define |gx[1]#_g129094_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129058_| + (define |gx[1]#_g129095_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129059_| + (define |gx[1]#_g129096_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129060_| + (define |gx[1]#_g129097_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129062_| + (define |gx[1]#_g129099_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129064_| + (define |gx[1]#_g129101_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g129066_| + (define |gx[1]#_g129103_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129068_| + (define |gx[1]#_g129105_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129069_| + (define |gx[1]#_g129106_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129070_| + (define |gx[1]#_g129107_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129072_| + (define |gx[1]#_g129109_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129073_| + (define |gx[1]#_g129110_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129074_| + (define |gx[1]#_g129111_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129076_| + (define |gx[1]#_g129113_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129077_| + (define |gx[1]#_g129114_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129078_| + (define |gx[1]#_g129115_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129080_| + (define |gx[1]#_g129117_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129081_| + (define |gx[1]#_g129118_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129082_| + (define |gx[1]#_g129119_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129084_| + (define |gx[1]#_g129121_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129086_| + (define |gx[1]#_g129123_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g129088_| + (define |gx[1]#_g129125_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129090_| + (define |gx[1]#_g129127_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129091_| + (define |gx[1]#_g129128_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129092_| + (define |gx[1]#_g129129_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129094_| + (define |gx[1]#_g129131_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129095_| + (define |gx[1]#_g129132_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129096_| + (define |gx[1]#_g129133_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129098_| + (define |gx[1]#_g129135_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129099_| + (define |gx[1]#_g129136_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129100_| + (define |gx[1]#_g129137_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129102_| + (define |gx[1]#_g129139_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129103_| + (define |gx[1]#_g129140_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129104_| + (define |gx[1]#_g129141_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129106_| + (define |gx[1]#_g129143_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129108_| + (define |gx[1]#_g129145_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129110_| + (define |gx[1]#_g129147_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129112_| + (define |gx[1]#_g129149_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129114_| + (define |gx[1]#_g129151_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129115_| + (define |gx[1]#_g129152_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129116_| + (define |gx[1]#_g129153_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129118_| + (define |gx[1]#_g129155_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129119_| + (define |gx[1]#_g129156_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129120_| + (define |gx[1]#_g129157_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129122_| + (define |gx[1]#_g129159_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129123_| + (define |gx[1]#_g129160_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129124_| + (define |gx[1]#_g129161_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129126_| + (define |gx[1]#_g129163_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129127_| + (define |gx[1]#_g129164_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129128_| + (define |gx[1]#_g129165_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129131_| + (define |gx[1]#_g129168_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129133_| + (define |gx[1]#_g129170_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129135_| + (define |gx[1]#_g129172_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129137_| + (define |gx[1]#_g129174_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129138_| + (define |gx[1]#_g129175_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129139_| + (define |gx[1]#_g129176_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129141_| + (define |gx[1]#_g129178_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129142_| + (define |gx[1]#_g129179_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129143_| + (define |gx[1]#_g129180_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129145_| + (define |gx[1]#_g129182_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129146_| + (define |gx[1]#_g129183_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129147_| + (define |gx[1]#_g129184_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129149_| + (define |gx[1]#_g129186_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129150_| + (define |gx[1]#_g129187_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129151_| + (define |gx[1]#_g129188_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129153_| + (define |gx[1]#_g129190_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129154_| + (define |gx[1]#_g129191_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129156_| + (define |gx[1]#_g129193_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129158_| + (define |gx[1]#_g129195_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129160_| + (define |gx[1]#_g129197_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129162_| + (define |gx[1]#_g129199_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129163_| + (define |gx[1]#_g129200_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129164_| + (define |gx[1]#_g129201_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129166_| + (define |gx[1]#_g129203_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129167_| + (define |gx[1]#_g129204_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129168_| + (define |gx[1]#_g129205_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129170_| + (define |gx[1]#_g129207_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129171_| + (define |gx[1]#_g129208_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129172_| + (define |gx[1]#_g129209_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129174_| + (define |gx[1]#_g129211_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129175_| + (define |gx[1]#_g129212_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129176_| + (define |gx[1]#_g129213_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj128960 + (let ((__obj128997 (let () (declare (not safe)) (##structure @@ -871,18 +871,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128960 + __obj128997 'gx#module-import::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128960 'module-import '2 '#f '#f)) + (##unchecked-structure-set! __obj128997 'module-import '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128960 + __obj128997 '(source name phi weak?) '4 '#f @@ -890,79 +890,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128960 + __obj128997 '(source name phi weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128960 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj128997 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128960 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128997 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128960 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj128997 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128960 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128997 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128960 '#f '11 '#f '#f)) - (let ((__tmp129005 |gx[1]#_g129006_|)) + (##unchecked-structure-set! __obj128997 '#f '11 '#f '#f)) + (let ((__tmp129042 |gx[1]#_g129043_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128960 __tmp129005 '12 '#f '#f)) - (let ((__tmp129007 |gx[1]#_g129008_|)) + (##unchecked-structure-set! __obj128997 __tmp129042 '12 '#f '#f)) + (let ((__tmp129044 |gx[1]#_g129045_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128960 __tmp129007 '13 '#f '#f)) - (let ((__tmp129009 |gx[1]#_g129010_|)) + (##unchecked-structure-set! __obj128997 __tmp129044 '13 '#f '#f)) + (let ((__tmp129046 |gx[1]#_g129047_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128960 __tmp129009 '14 '#f '#f)) - (let ((__tmp129011 - (cons (cons 'source |gx[1]#_g129012_|) - (cons (cons 'name |gx[1]#_g129013_|) - (cons (cons 'phi |gx[1]#_g129014_|) - (cons (cons 'weak? |gx[1]#_g129015_|) + (##unchecked-structure-set! __obj128997 __tmp129046 '14 '#f '#f)) + (let ((__tmp129048 + (cons (cons 'source |gx[1]#_g129049_|) + (cons (cons 'name |gx[1]#_g129050_|) + (cons (cons 'phi |gx[1]#_g129051_|) + (cons (cons 'weak? |gx[1]#_g129052_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128960 __tmp129011 '15 '#f '#f)) - (let ((__tmp129016 - (cons (cons 'source |gx[1]#_g129017_|) - (cons (cons 'name |gx[1]#_g129018_|) - (cons (cons 'phi |gx[1]#_g129019_|) - (cons (cons 'weak? |gx[1]#_g129020_|) + (##unchecked-structure-set! __obj128997 __tmp129048 '15 '#f '#f)) + (let ((__tmp129053 + (cons (cons 'source |gx[1]#_g129054_|) + (cons (cons 'name |gx[1]#_g129055_|) + (cons (cons 'phi |gx[1]#_g129056_|) + (cons (cons 'weak? |gx[1]#_g129057_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128960 __tmp129016 '16 '#f '#f)) - (let ((__tmp129021 - (cons (cons 'source |gx[1]#_g129022_|) - (cons (cons 'name |gx[1]#_g129023_|) - (cons (cons 'phi |gx[1]#_g129024_|) - (cons (cons 'weak? |gx[1]#_g129025_|) + (##unchecked-structure-set! __obj128997 __tmp129053 '16 '#f '#f)) + (let ((__tmp129058 + (cons (cons 'source |gx[1]#_g129059_|) + (cons (cons 'name |gx[1]#_g129060_|) + (cons (cons 'phi |gx[1]#_g129061_|) + (cons (cons 'weak? |gx[1]#_g129062_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128960 __tmp129021 '17 '#f '#f)) - (let ((__tmp129026 - (cons (cons 'source |gx[1]#_g129027_|) - (cons (cons 'name |gx[1]#_g129028_|) - (cons (cons 'phi |gx[1]#_g129029_|) - (cons (cons 'weak? |gx[1]#_g129030_|) + (##unchecked-structure-set! __obj128997 __tmp129058 '17 '#f '#f)) + (let ((__tmp129063 + (cons (cons 'source |gx[1]#_g129064_|) + (cons (cons 'name |gx[1]#_g129065_|) + (cons (cons 'phi |gx[1]#_g129066_|) + (cons (cons 'weak? |gx[1]#_g129067_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128960 __tmp129026 '18 '#f '#f)) + (##unchecked-structure-set! __obj128997 __tmp129063 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128960 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128997 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128960 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128997 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128960 '() '20 '#f '#f)) - __obj128960)) + (##unchecked-structure-set! __obj128997 '() '20 '#f '#f)) + __obj128997)) (define |gx[:0:]#module-export| - (let ((__obj128961 + (let ((__obj128998 (let () (declare (not safe)) (##structure @@ -991,18 +991,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128961 + __obj128998 'gx#module-export::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128961 'module-export '2 '#f '#f)) + (##unchecked-structure-set! __obj128998 'module-export '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128961 + __obj128998 '(context key phi name weak?) '4 '#f @@ -1010,83 +1010,83 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128961 + __obj128998 '(context key phi name weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128961 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj128998 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128961 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128998 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128961 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj128998 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128961 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128998 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128961 '#f '11 '#f '#f)) - (let ((__tmp129031 |gx[1]#_g129032_|)) + (##unchecked-structure-set! __obj128998 '#f '11 '#f '#f)) + (let ((__tmp129068 |gx[1]#_g129069_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128961 __tmp129031 '12 '#f '#f)) - (let ((__tmp129033 |gx[1]#_g129034_|)) + (##unchecked-structure-set! __obj128998 __tmp129068 '12 '#f '#f)) + (let ((__tmp129070 |gx[1]#_g129071_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128961 __tmp129033 '13 '#f '#f)) - (let ((__tmp129035 |gx[1]#_g129036_|)) + (##unchecked-structure-set! __obj128998 __tmp129070 '13 '#f '#f)) + (let ((__tmp129072 |gx[1]#_g129073_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128961 __tmp129035 '14 '#f '#f)) - (let ((__tmp129037 - (cons (cons 'context |gx[1]#_g129038_|) - (cons (cons 'key |gx[1]#_g129039_|) - (cons (cons 'phi |gx[1]#_g129040_|) - (cons (cons 'name |gx[1]#_g129041_|) - (cons (cons 'weak? |gx[1]#_g129042_|) + (##unchecked-structure-set! __obj128998 __tmp129072 '14 '#f '#f)) + (let ((__tmp129074 + (cons (cons 'context |gx[1]#_g129075_|) + (cons (cons 'key |gx[1]#_g129076_|) + (cons (cons 'phi |gx[1]#_g129077_|) + (cons (cons 'name |gx[1]#_g129078_|) + (cons (cons 'weak? |gx[1]#_g129079_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128961 __tmp129037 '15 '#f '#f)) - (let ((__tmp129043 - (cons (cons 'context |gx[1]#_g129044_|) - (cons (cons 'key |gx[1]#_g129045_|) - (cons (cons 'phi |gx[1]#_g129046_|) - (cons (cons 'name |gx[1]#_g129047_|) - (cons (cons 'weak? |gx[1]#_g129048_|) + (##unchecked-structure-set! __obj128998 __tmp129074 '15 '#f '#f)) + (let ((__tmp129080 + (cons (cons 'context |gx[1]#_g129081_|) + (cons (cons 'key |gx[1]#_g129082_|) + (cons (cons 'phi |gx[1]#_g129083_|) + (cons (cons 'name |gx[1]#_g129084_|) + (cons (cons 'weak? |gx[1]#_g129085_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128961 __tmp129043 '16 '#f '#f)) - (let ((__tmp129049 - (cons (cons 'context |gx[1]#_g129050_|) - (cons (cons 'key |gx[1]#_g129051_|) - (cons (cons 'phi |gx[1]#_g129052_|) - (cons (cons 'name |gx[1]#_g129053_|) - (cons (cons 'weak? |gx[1]#_g129054_|) + (##unchecked-structure-set! __obj128998 __tmp129080 '16 '#f '#f)) + (let ((__tmp129086 + (cons (cons 'context |gx[1]#_g129087_|) + (cons (cons 'key |gx[1]#_g129088_|) + (cons (cons 'phi |gx[1]#_g129089_|) + (cons (cons 'name |gx[1]#_g129090_|) + (cons (cons 'weak? |gx[1]#_g129091_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128961 __tmp129049 '17 '#f '#f)) - (let ((__tmp129055 - (cons (cons 'context |gx[1]#_g129056_|) - (cons (cons 'key |gx[1]#_g129057_|) - (cons (cons 'phi |gx[1]#_g129058_|) - (cons (cons 'name |gx[1]#_g129059_|) - (cons (cons 'weak? |gx[1]#_g129060_|) + (##unchecked-structure-set! __obj128998 __tmp129086 '17 '#f '#f)) + (let ((__tmp129092 + (cons (cons 'context |gx[1]#_g129093_|) + (cons (cons 'key |gx[1]#_g129094_|) + (cons (cons 'phi |gx[1]#_g129095_|) + (cons (cons 'name |gx[1]#_g129096_|) + (cons (cons 'weak? |gx[1]#_g129097_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128961 __tmp129055 '18 '#f '#f)) + (##unchecked-structure-set! __obj128998 __tmp129092 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128961 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128998 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128961 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128998 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128961 '() '20 '#f '#f)) - __obj128961)) + (##unchecked-structure-set! __obj128998 '() '20 '#f '#f)) + __obj128998)) (define |gx[:0:]#import-set| - (let ((__obj128962 + (let ((__obj128999 (let () (declare (not safe)) (##structure @@ -1115,18 +1115,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128962 + __obj128999 'gx#import-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128962 'import-set '2 '#f '#f)) + (##unchecked-structure-set! __obj128999 'import-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128962 + __obj128999 '(source phi imports) '4 '#f @@ -1134,71 +1134,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128962 + __obj128999 '(source phi imports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128962 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj128999 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128962 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj128999 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128962 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj128999 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128962 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj128999 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128962 '#f '11 '#f '#f)) - (let ((__tmp129061 |gx[1]#_g129062_|)) + (##unchecked-structure-set! __obj128999 '#f '11 '#f '#f)) + (let ((__tmp129098 |gx[1]#_g129099_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128962 __tmp129061 '12 '#f '#f)) - (let ((__tmp129063 |gx[1]#_g129064_|)) + (##unchecked-structure-set! __obj128999 __tmp129098 '12 '#f '#f)) + (let ((__tmp129100 |gx[1]#_g129101_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128962 __tmp129063 '13 '#f '#f)) - (let ((__tmp129065 |gx[1]#_g129066_|)) + (##unchecked-structure-set! __obj128999 __tmp129100 '13 '#f '#f)) + (let ((__tmp129102 |gx[1]#_g129103_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128962 __tmp129065 '14 '#f '#f)) - (let ((__tmp129067 - (cons (cons 'source |gx[1]#_g129068_|) - (cons (cons 'phi |gx[1]#_g129069_|) - (cons (cons 'imports |gx[1]#_g129070_|) '()))))) + (##unchecked-structure-set! __obj128999 __tmp129102 '14 '#f '#f)) + (let ((__tmp129104 + (cons (cons 'source |gx[1]#_g129105_|) + (cons (cons 'phi |gx[1]#_g129106_|) + (cons (cons 'imports |gx[1]#_g129107_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128962 __tmp129067 '15 '#f '#f)) - (let ((__tmp129071 - (cons (cons 'source |gx[1]#_g129072_|) - (cons (cons 'phi |gx[1]#_g129073_|) - (cons (cons 'imports |gx[1]#_g129074_|) '()))))) + (##unchecked-structure-set! __obj128999 __tmp129104 '15 '#f '#f)) + (let ((__tmp129108 + (cons (cons 'source |gx[1]#_g129109_|) + (cons (cons 'phi |gx[1]#_g129110_|) + (cons (cons 'imports |gx[1]#_g129111_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128962 __tmp129071 '16 '#f '#f)) - (let ((__tmp129075 - (cons (cons 'source |gx[1]#_g129076_|) - (cons (cons 'phi |gx[1]#_g129077_|) - (cons (cons 'imports |gx[1]#_g129078_|) '()))))) + (##unchecked-structure-set! __obj128999 __tmp129108 '16 '#f '#f)) + (let ((__tmp129112 + (cons (cons 'source |gx[1]#_g129113_|) + (cons (cons 'phi |gx[1]#_g129114_|) + (cons (cons 'imports |gx[1]#_g129115_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128962 __tmp129075 '17 '#f '#f)) - (let ((__tmp129079 - (cons (cons 'source |gx[1]#_g129080_|) - (cons (cons 'phi |gx[1]#_g129081_|) - (cons (cons 'imports |gx[1]#_g129082_|) '()))))) + (##unchecked-structure-set! __obj128999 __tmp129112 '17 '#f '#f)) + (let ((__tmp129116 + (cons (cons 'source |gx[1]#_g129117_|) + (cons (cons 'phi |gx[1]#_g129118_|) + (cons (cons 'imports |gx[1]#_g129119_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128962 __tmp129079 '18 '#f '#f)) + (##unchecked-structure-set! __obj128999 __tmp129116 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128962 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj128999 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128962 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj128999 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128962 '() '20 '#f '#f)) - __obj128962)) + (##unchecked-structure-set! __obj128999 '() '20 '#f '#f)) + __obj128999)) (define |gx[:0:]#export-set| - (let ((__obj128963 + (let ((__obj129000 (let () (declare (not safe)) (##structure @@ -1227,18 +1227,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128963 + __obj129000 'gx#export-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128963 'export-set '2 '#f '#f)) + (##unchecked-structure-set! __obj129000 'export-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128963 + __obj129000 '(source phi exports) '4 '#f @@ -1246,71 +1246,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128963 + __obj129000 '(source phi exports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128963 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj129000 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128963 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj129000 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128963 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj129000 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128963 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129000 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128963 '#f '11 '#f '#f)) - (let ((__tmp129083 |gx[1]#_g129084_|)) + (##unchecked-structure-set! __obj129000 '#f '11 '#f '#f)) + (let ((__tmp129120 |gx[1]#_g129121_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128963 __tmp129083 '12 '#f '#f)) - (let ((__tmp129085 |gx[1]#_g129086_|)) + (##unchecked-structure-set! __obj129000 __tmp129120 '12 '#f '#f)) + (let ((__tmp129122 |gx[1]#_g129123_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128963 __tmp129085 '13 '#f '#f)) - (let ((__tmp129087 |gx[1]#_g129088_|)) + (##unchecked-structure-set! __obj129000 __tmp129122 '13 '#f '#f)) + (let ((__tmp129124 |gx[1]#_g129125_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128963 __tmp129087 '14 '#f '#f)) - (let ((__tmp129089 - (cons (cons 'source |gx[1]#_g129090_|) - (cons (cons 'phi |gx[1]#_g129091_|) - (cons (cons 'exports |gx[1]#_g129092_|) '()))))) + (##unchecked-structure-set! __obj129000 __tmp129124 '14 '#f '#f)) + (let ((__tmp129126 + (cons (cons 'source |gx[1]#_g129127_|) + (cons (cons 'phi |gx[1]#_g129128_|) + (cons (cons 'exports |gx[1]#_g129129_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128963 __tmp129089 '15 '#f '#f)) - (let ((__tmp129093 - (cons (cons 'source |gx[1]#_g129094_|) - (cons (cons 'phi |gx[1]#_g129095_|) - (cons (cons 'exports |gx[1]#_g129096_|) '()))))) + (##unchecked-structure-set! __obj129000 __tmp129126 '15 '#f '#f)) + (let ((__tmp129130 + (cons (cons 'source |gx[1]#_g129131_|) + (cons (cons 'phi |gx[1]#_g129132_|) + (cons (cons 'exports |gx[1]#_g129133_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128963 __tmp129093 '16 '#f '#f)) - (let ((__tmp129097 - (cons (cons 'source |gx[1]#_g129098_|) - (cons (cons 'phi |gx[1]#_g129099_|) - (cons (cons 'exports |gx[1]#_g129100_|) '()))))) + (##unchecked-structure-set! __obj129000 __tmp129130 '16 '#f '#f)) + (let ((__tmp129134 + (cons (cons 'source |gx[1]#_g129135_|) + (cons (cons 'phi |gx[1]#_g129136_|) + (cons (cons 'exports |gx[1]#_g129137_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128963 __tmp129097 '17 '#f '#f)) - (let ((__tmp129101 - (cons (cons 'source |gx[1]#_g129102_|) - (cons (cons 'phi |gx[1]#_g129103_|) - (cons (cons 'exports |gx[1]#_g129104_|) '()))))) + (##unchecked-structure-set! __obj129000 __tmp129134 '17 '#f '#f)) + (let ((__tmp129138 + (cons (cons 'source |gx[1]#_g129139_|) + (cons (cons 'phi |gx[1]#_g129140_|) + (cons (cons 'exports |gx[1]#_g129141_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128963 __tmp129101 '18 '#f '#f)) + (##unchecked-structure-set! __obj129000 __tmp129138 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128963 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129000 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128963 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129000 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128963 '() '20 '#f '#f)) - __obj128963)) + (##unchecked-structure-set! __obj129000 '() '20 '#f '#f)) + __obj129000)) (define |gx[:0:]#import-expander| - (let ((__obj128964 + (let ((__obj129001 (let () (declare (not safe)) (##structure @@ -1339,80 +1339,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128964 + __obj129001 'gx#import-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128964 'import-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj129001 'import-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128964 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj129001 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128964 '(e context phi) '6 '#f '#f)) - (let ((__tmp129105 (cons |gx[1]#_g129106_| '()))) + (##unchecked-structure-set! __obj129001 '(e context phi) '6 '#f '#f)) + (let ((__tmp129142 (cons |gx[1]#_g129143_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj128964 __tmp129105 '3 '#f '#f)) + (##unchecked-structure-set! __obj129001 __tmp129142 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128964 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj129001 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128964 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj129001 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128964 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129001 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128964 ':init! '11 '#f '#f)) - (let ((__tmp129107 |gx[1]#_g129108_|)) + (##unchecked-structure-set! __obj129001 ':init! '11 '#f '#f)) + (let ((__tmp129144 |gx[1]#_g129145_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128964 __tmp129107 '12 '#f '#f)) - (let ((__tmp129109 |gx[1]#_g129110_|)) + (##unchecked-structure-set! __obj129001 __tmp129144 '12 '#f '#f)) + (let ((__tmp129146 |gx[1]#_g129147_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128964 __tmp129109 '13 '#f '#f)) - (let ((__tmp129111 |gx[1]#_g129112_|)) + (##unchecked-structure-set! __obj129001 __tmp129146 '13 '#f '#f)) + (let ((__tmp129148 |gx[1]#_g129149_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128964 __tmp129111 '14 '#f '#f)) - (let ((__tmp129113 - (cons (cons 'context |gx[1]#_g129114_|) - (cons (cons 'phi |gx[1]#_g129115_|) - (cons (cons 'e |gx[1]#_g129116_|) '()))))) + (##unchecked-structure-set! __obj129001 __tmp129148 '14 '#f '#f)) + (let ((__tmp129150 + (cons (cons 'context |gx[1]#_g129151_|) + (cons (cons 'phi |gx[1]#_g129152_|) + (cons (cons 'e |gx[1]#_g129153_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128964 __tmp129113 '15 '#f '#f)) - (let ((__tmp129117 - (cons (cons 'context |gx[1]#_g129118_|) - (cons (cons 'phi |gx[1]#_g129119_|) - (cons (cons 'e |gx[1]#_g129120_|) '()))))) + (##unchecked-structure-set! __obj129001 __tmp129150 '15 '#f '#f)) + (let ((__tmp129154 + (cons (cons 'context |gx[1]#_g129155_|) + (cons (cons 'phi |gx[1]#_g129156_|) + (cons (cons 'e |gx[1]#_g129157_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128964 __tmp129117 '16 '#f '#f)) - (let ((__tmp129121 - (cons (cons 'context |gx[1]#_g129122_|) - (cons (cons 'phi |gx[1]#_g129123_|) - (cons (cons 'e |gx[1]#_g129124_|) '()))))) + (##unchecked-structure-set! __obj129001 __tmp129154 '16 '#f '#f)) + (let ((__tmp129158 + (cons (cons 'context |gx[1]#_g129159_|) + (cons (cons 'phi |gx[1]#_g129160_|) + (cons (cons 'e |gx[1]#_g129161_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128964 __tmp129121 '17 '#f '#f)) - (let ((__tmp129125 - (cons (cons 'context |gx[1]#_g129126_|) - (cons (cons 'phi |gx[1]#_g129127_|) - (cons (cons 'e |gx[1]#_g129128_|) '()))))) + (##unchecked-structure-set! __obj129001 __tmp129158 '17 '#f '#f)) + (let ((__tmp129162 + (cons (cons 'context |gx[1]#_g129163_|) + (cons (cons 'phi |gx[1]#_g129164_|) + (cons (cons 'e |gx[1]#_g129165_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128964 __tmp129125 '18 '#f '#f)) + (##unchecked-structure-set! __obj129001 __tmp129162 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128964 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129001 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128964 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129001 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128964 '() '20 '#f '#f)) - __obj128964)) + (##unchecked-structure-set! __obj129001 '() '20 '#f '#f)) + __obj129001)) (define |gx[:0:]#export-expander| - (let ((__obj128965 + (let ((__obj129002 (let () (declare (not safe)) (##structure @@ -1441,80 +1441,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128965 + __obj129002 'gx#export-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128965 'export-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj129002 'export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128965 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj129002 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128965 '(e context phi) '6 '#f '#f)) - (let ((__tmp129129 (cons |gx[1]#_g129106_| '()))) + (##unchecked-structure-set! __obj129002 '(e context phi) '6 '#f '#f)) + (let ((__tmp129166 (cons |gx[1]#_g129143_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj128965 __tmp129129 '3 '#f '#f)) + (##unchecked-structure-set! __obj129002 __tmp129166 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128965 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj129002 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128965 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj129002 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128965 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129002 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128965 ':init! '11 '#f '#f)) - (let ((__tmp129130 |gx[1]#_g129131_|)) + (##unchecked-structure-set! __obj129002 ':init! '11 '#f '#f)) + (let ((__tmp129167 |gx[1]#_g129168_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128965 __tmp129130 '12 '#f '#f)) - (let ((__tmp129132 |gx[1]#_g129133_|)) + (##unchecked-structure-set! __obj129002 __tmp129167 '12 '#f '#f)) + (let ((__tmp129169 |gx[1]#_g129170_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128965 __tmp129132 '13 '#f '#f)) - (let ((__tmp129134 |gx[1]#_g129135_|)) + (##unchecked-structure-set! __obj129002 __tmp129169 '13 '#f '#f)) + (let ((__tmp129171 |gx[1]#_g129172_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128965 __tmp129134 '14 '#f '#f)) - (let ((__tmp129136 - (cons (cons 'context |gx[1]#_g129137_|) - (cons (cons 'phi |gx[1]#_g129138_|) - (cons (cons 'e |gx[1]#_g129139_|) '()))))) + (##unchecked-structure-set! __obj129002 __tmp129171 '14 '#f '#f)) + (let ((__tmp129173 + (cons (cons 'context |gx[1]#_g129174_|) + (cons (cons 'phi |gx[1]#_g129175_|) + (cons (cons 'e |gx[1]#_g129176_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128965 __tmp129136 '15 '#f '#f)) - (let ((__tmp129140 - (cons (cons 'context |gx[1]#_g129141_|) - (cons (cons 'phi |gx[1]#_g129142_|) - (cons (cons 'e |gx[1]#_g129143_|) '()))))) + (##unchecked-structure-set! __obj129002 __tmp129173 '15 '#f '#f)) + (let ((__tmp129177 + (cons (cons 'context |gx[1]#_g129178_|) + (cons (cons 'phi |gx[1]#_g129179_|) + (cons (cons 'e |gx[1]#_g129180_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128965 __tmp129140 '16 '#f '#f)) - (let ((__tmp129144 - (cons (cons 'context |gx[1]#_g129145_|) - (cons (cons 'phi |gx[1]#_g129146_|) - (cons (cons 'e |gx[1]#_g129147_|) '()))))) + (##unchecked-structure-set! __obj129002 __tmp129177 '16 '#f '#f)) + (let ((__tmp129181 + (cons (cons 'context |gx[1]#_g129182_|) + (cons (cons 'phi |gx[1]#_g129183_|) + (cons (cons 'e |gx[1]#_g129184_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128965 __tmp129144 '17 '#f '#f)) - (let ((__tmp129148 - (cons (cons 'context |gx[1]#_g129149_|) - (cons (cons 'phi |gx[1]#_g129150_|) - (cons (cons 'e |gx[1]#_g129151_|) '()))))) + (##unchecked-structure-set! __obj129002 __tmp129181 '17 '#f '#f)) + (let ((__tmp129185 + (cons (cons 'context |gx[1]#_g129186_|) + (cons (cons 'phi |gx[1]#_g129187_|) + (cons (cons 'e |gx[1]#_g129188_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128965 __tmp129148 '18 '#f '#f)) + (##unchecked-structure-set! __obj129002 __tmp129185 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128965 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129002 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128965 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129002 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128965 '() '20 '#f '#f)) - __obj128965)) + (##unchecked-structure-set! __obj129002 '() '20 '#f '#f)) + __obj129002)) (define |gx[:0:]#import-export-expander| - (let ((__obj128966 + (let ((__obj129003 (let () (declare (not safe)) (##structure @@ -1543,7 +1543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128966 + __obj129003 'gx#import-export-expander::t '1 '#f @@ -1551,73 +1551,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128966 + __obj129003 'import-export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128966 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj129003 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128966 '(e context phi) '6 '#f '#f)) - (let ((__tmp129152 - (cons |gx[1]#_g129153_| (cons |gx[1]#_g129154_| '())))) + (##unchecked-structure-set! __obj129003 '(e context phi) '6 '#f '#f)) + (let ((__tmp129189 + (cons |gx[1]#_g129190_| (cons |gx[1]#_g129191_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj128966 __tmp129152 '3 '#f '#f)) + (##unchecked-structure-set! __obj129003 __tmp129189 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128966 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj129003 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128966 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj129003 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128966 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129003 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128966 ':init! '11 '#f '#f)) - (let ((__tmp129155 |gx[1]#_g129156_|)) + (##unchecked-structure-set! __obj129003 ':init! '11 '#f '#f)) + (let ((__tmp129192 |gx[1]#_g129193_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128966 __tmp129155 '12 '#f '#f)) - (let ((__tmp129157 |gx[1]#_g129158_|)) + (##unchecked-structure-set! __obj129003 __tmp129192 '12 '#f '#f)) + (let ((__tmp129194 |gx[1]#_g129195_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128966 __tmp129157 '13 '#f '#f)) - (let ((__tmp129159 |gx[1]#_g129160_|)) + (##unchecked-structure-set! __obj129003 __tmp129194 '13 '#f '#f)) + (let ((__tmp129196 |gx[1]#_g129197_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128966 __tmp129159 '14 '#f '#f)) - (let ((__tmp129161 - (cons (cons 'context |gx[1]#_g129162_|) - (cons (cons 'phi |gx[1]#_g129163_|) - (cons (cons 'e |gx[1]#_g129164_|) '()))))) + (##unchecked-structure-set! __obj129003 __tmp129196 '14 '#f '#f)) + (let ((__tmp129198 + (cons (cons 'context |gx[1]#_g129199_|) + (cons (cons 'phi |gx[1]#_g129200_|) + (cons (cons 'e |gx[1]#_g129201_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128966 __tmp129161 '15 '#f '#f)) - (let ((__tmp129165 - (cons (cons 'context |gx[1]#_g129166_|) - (cons (cons 'phi |gx[1]#_g129167_|) - (cons (cons 'e |gx[1]#_g129168_|) '()))))) + (##unchecked-structure-set! __obj129003 __tmp129198 '15 '#f '#f)) + (let ((__tmp129202 + (cons (cons 'context |gx[1]#_g129203_|) + (cons (cons 'phi |gx[1]#_g129204_|) + (cons (cons 'e |gx[1]#_g129205_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128966 __tmp129165 '16 '#f '#f)) - (let ((__tmp129169 - (cons (cons 'context |gx[1]#_g129170_|) - (cons (cons 'phi |gx[1]#_g129171_|) - (cons (cons 'e |gx[1]#_g129172_|) '()))))) + (##unchecked-structure-set! __obj129003 __tmp129202 '16 '#f '#f)) + (let ((__tmp129206 + (cons (cons 'context |gx[1]#_g129207_|) + (cons (cons 'phi |gx[1]#_g129208_|) + (cons (cons 'e |gx[1]#_g129209_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128966 __tmp129169 '17 '#f '#f)) - (let ((__tmp129173 - (cons (cons 'context |gx[1]#_g129174_|) - (cons (cons 'phi |gx[1]#_g129175_|) - (cons (cons 'e |gx[1]#_g129176_|) '()))))) + (##unchecked-structure-set! __obj129003 __tmp129206 '17 '#f '#f)) + (let ((__tmp129210 + (cons (cons 'context |gx[1]#_g129211_|) + (cons (cons 'phi |gx[1]#_g129212_|) + (cons (cons 'e |gx[1]#_g129213_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128966 __tmp129173 '18 '#f '#f)) + (##unchecked-structure-set! __obj129003 __tmp129210 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128966 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129003 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128966 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129003 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128966 '() '20 '#f '#f)) - __obj128966)))) + (##unchecked-structure-set! __obj129003 '() '20 '#f '#f)) + __obj129003)))) diff --git a/src/bootstrap/gerbil/expander/root~0.scm b/src/bootstrap/gerbil/expander/root~0.scm index dc16f5e28..845836f54 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 1733687560) + (define gerbil/expander/root::timestamp 1733870075) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,603 +262,603 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_%self130367131447%_ _%bind?131449%_) - (let* ((_%self131451%_ _%self130367131447%_) - (_%self131453%_ _%self131451%_)) - (if (##fx< '2 (##structure-length _%self131453%_)) + (lambda (_%self130404131484%_ _%bind?131486%_) + (let* ((_%self131488%_ _%self130404131484%_) + (_%self131490%_ _%self131488%_)) + (if (##fx< '2 (##structure-length _%self131490%_)) (begin - (##unchecked-structure-set! _%self131453%_ 'root '1 '#f '#f) + (##unchecked-structure-set! _%self131490%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self131453%_ + _%self131490%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131453%_ + _%self131490%_ '2 - (##vector-length _%self131453%_))) - (if _%bind?131449%_ + (##vector-length _%self131490%_))) + (if _%bind?131486%_ (begin - (let ((__method131516 + (let ((__method131553 (__method-ref - _%self131453%_ + _%self131490%_ 'bind-core-syntax-expanders!))) - (if __method131516 - (__method131516 _%self131453%_) + (if __method131553 + (__method131553 _%self131490%_) (begin (error '"Missing method" - _%self131453%_ + _%self131490%_ 'bind-core-syntax-expanders!) '#!void))) - (let ((__method131517 + (let ((__method131554 (__method-ref - _%self131453%_ + _%self131490%_ 'bind-core-macro-expanders!))) - (if __method131517 - (__method131517 _%self131453%_) + (if __method131554 + (__method131554 _%self131490%_) (begin (error '"Missing method" - _%self131453%_ + _%self131490%_ 'bind-core-macro-expanders!) '#!void))) - (let ((__method131518 - (__method-ref _%self131453%_ 'bind-core-features!))) - (if __method131518 - (__method131518 _%self131453%_) + (let ((__method131555 + (__method-ref _%self131490%_ 'bind-core-features!))) + (if __method131555 + (__method131555 _%self131490%_) (begin (error '"Missing method" - _%self131453%_ + _%self131490%_ 'bind-core-features!) '#!void)))) '#!void)))) (define gx#root-context:::init!__0 - (lambda (_%self130367131466%_) - (let ((_%bind?131468%_ '#t)) - (gx#root-context:::init!__% _%self130367131466%_ _%bind?131468%_)))) + (lambda (_%self130404131503%_) + (let ((_%bind?131505%_ '#t)) + (gx#root-context:::init!__% _%self130404131503%_ _%bind?131505%_)))) (define gx#root-context:::init! - (lambda _g131521_ - (let ((_g131520_ (##length _g131521_))) - (cond ((##fx= _g131520_ 1) - (apply gx#root-context:::init!__0 _g131521_)) - ((##fx= _g131520_ 2) - (apply gx#root-context:::init!__% _g131521_)) + (lambda _g131558_ + (let ((_g131557_ (##length _g131558_))) + (cond ((##fx= _g131557_ 1) + (apply gx#root-context:::init!__0 _g131558_)) + ((##fx= _g131557_ 2) + (apply gx#root-context:::init!__% _g131558_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g131521_)))))) + _g131558_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass131472 __method-table131473) - (let ((__bind-core-features!131474 + (lambda (__klass131509 __method-table131510) + (let ((__bind-core-syntax-expanders!131511 (__make-promise (lambda () - (let ((__method131477 + (let ((__method131514 (symbolic-table-ref - __method-table131473 - 'bind-core-features! + __method-table131510 + 'bind-core-syntax-expanders! '#f))) - (if __method131477 - __method131477 - (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-macro-expanders!131475 + (if __method131514 + __method131514 + (error '"Missing method" + 'bind-core-syntax-expanders!)))))) + (__bind-core-macro-expanders!131512 (__make-promise (lambda () - (let ((__method131478 + (let ((__method131515 (symbolic-table-ref - __method-table131473 + __method-table131510 'bind-core-macro-expanders! '#f))) - (if __method131478 - __method131478 + (if __method131515 + __method131515 (error '"Missing method" 'bind-core-macro-expanders!)))))) - (__bind-core-syntax-expanders!131476 + (__bind-core-features!131513 (__make-promise (lambda () - (let ((__method131479 + (let ((__method131516 (symbolic-table-ref - __method-table131473 - 'bind-core-syntax-expanders! + __method-table131510 + 'bind-core-features! '#f))) - (if __method131479 - __method131479 - (error '"Missing method" - 'bind-core-syntax-expanders!))))))) - (let ((_%opt-lambda131445131463%_ - (lambda (_%self130367131447%_ _%bind?131449%_) - (let* ((_%self131451%_ _%self130367131447%_) - (_%self131453%_ _%self131451%_)) - (if (##fx< '2 (##structure-length _%self131453%_)) + (if __method131516 + __method131516 + (error '"Missing method" 'bind-core-features!))))))) + (let ((_%opt-lambda131482131500%_ + (lambda (_%self130404131484%_ _%bind?131486%_) + (let* ((_%self131488%_ _%self130404131484%_) + (_%self131490%_ _%self131488%_)) + (if (##fx< '2 (##structure-length _%self131490%_)) (begin (##unchecked-structure-set! - _%self131453%_ + _%self131490%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self131453%_ + _%self131490%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131453%_ + _%self131490%_ '2 - (##vector-length _%self131453%_))) - (if _%bind?131449%_ + (##vector-length _%self131490%_))) + (if _%bind?131486%_ (begin - ((force __bind-core-syntax-expanders!131476) - _%self131453%_) - ((force __bind-core-macro-expanders!131475) - _%self131453%_) - ((force __bind-core-features!131474) - _%self131453%_)) + ((force __bind-core-syntax-expanders!131511) + _%self131490%_) + ((force __bind-core-macro-expanders!131512) + _%self131490%_) + ((force __bind-core-features!131513) + _%self131490%_)) '#!void))))) - (lambda _g131523_ - (let ((_g131522_ (##length _g131523_))) - (cond ((##fx= _g131522_ 1) - (apply (lambda (_%self130367131466%_) - (let ((_%bind?131468%_ '#t)) - (_%opt-lambda131445131463%_ - _%self130367131466%_ - _%bind?131468%_))) - _g131523_)) - ((##fx= _g131522_ 2) - (apply _%opt-lambda131445131463%_ _g131523_)) + (lambda _g131560_ + (let ((_g131559_ (##length _g131560_))) + (cond ((##fx= _g131559_ 1) + (apply (lambda (_%self130404131503%_) + (let ((_%bind?131505%_ '#t)) + (_%opt-lambda131482131500%_ + _%self130404131503%_ + _%bind?131505%_))) + _g131560_)) + ((##fx= _g131559_ 2) + (apply _%opt-lambda131482131500%_ _g131560_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g131523_))))))))) + _g131560_))))))))) (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 (_%self130368131290%_ _%super131292%_) - (let* ((_%self131294%_ _%self130368131290%_) - (_%self131296%_ _%self131294%_) - (_%super131312%_ - (let ((_%$e131306%_ _%super131292%_)) - (if _%$e131306%_ - _%$e131306%_ - (let ((_%$e131309%_ (gx#core-context-root__0))) - (if _%$e131309%_ - _%$e131309%_ - (let ((__obj131519 + (lambda (_%self130405131327%_ _%super131329%_) + (let* ((_%self131331%_ _%self130405131327%_) + (_%self131333%_ _%self131331%_) + (_%super131349%_ + (let ((_%$e131343%_ _%super131329%_)) + (if _%$e131343%_ + _%$e131343%_ + (let ((_%$e131346%_ (gx#core-context-root__0))) + (if _%$e131346%_ + _%$e131346%_ + (let ((__obj131556 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init!__0 __obj131519) - __obj131519))))))) - (if (##fx< '5 (##structure-length _%self131296%_)) + (gx#root-context:::init!__0 __obj131556) + __obj131556))))))) + (if (##fx< '5 (##structure-length _%self131333%_)) (begin - (##unchecked-structure-set! _%self131296%_ 'top '1 '#f '#f) + (##unchecked-structure-set! _%self131333%_ 'top '1 '#f '#f) (##unchecked-structure-set! - _%self131296%_ + _%self131333%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self131296%_ - _%super131312%_ + _%self131333%_ + _%super131349%_ '3 '#f '#f) - (##unchecked-structure-set! _%self131296%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self131296%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self131333%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self131333%_ '#f '5 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131296%_ + _%self131333%_ '5 - (##vector-length _%self131296%_)))))) + (##vector-length _%self131333%_)))))) (define gx#top-context:::init!__0 - (lambda (_%self130368131317%_) - (let ((_%super131319%_ '#f)) - (gx#top-context:::init!__% _%self130368131317%_ _%super131319%_)))) + (lambda (_%self130405131354%_) + (let ((_%super131356%_ '#f)) + (gx#top-context:::init!__% _%self130405131354%_ _%super131356%_)))) (define gx#top-context:::init! - (lambda _g131525_ - (let ((_g131524_ (##length _g131525_))) - (cond ((##fx= _g131524_ 1) - (apply gx#top-context:::init!__0 _g131525_)) - ((##fx= _g131524_ 2) - (apply gx#top-context:::init!__% _g131525_)) + (lambda _g131562_ + (let ((_g131561_ (##length _g131562_))) + (cond ((##fx= _g131561_ 1) + (apply gx#top-context:::init!__0 _g131562_)) + ((##fx= _g131561_ 2) + (apply gx#top-context:::init!__% _g131562_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g131525_)))))) + _g131562_)))))) (__bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_%self130369131008%_ _%bindings131010%_) - (let* ((_%self131012%_ _%self130369131008%_) - (_%self131014%_ _%self131012%_)) + (lambda (_%self130406131045%_ _%bindings131047%_) + (let* ((_%self131049%_ _%self130406131045%_) + (_%self131051%_ _%self131049%_)) (for-each - (lambda (_%bind131024%_) - (let* ((_%bind131025131032%_ _%bind131024%_) - (_%E131027131036%_ + (lambda (_%bind131061%_) + (let* ((_%bind131062131069%_ _%bind131061%_) + (_%E131064131073%_ (lambda () (error '"No clause matching" - _%bind131025131032%_ + _%bind131062131069%_ '([id . rest])) '#!void)) - (_%K131028131145%_ - (lambda (_%rest131039%_ _%id131040%_) + (_%K131065131182%_ + (lambda (_%rest131076%_ _%id131077%_) (gx#core-context-put! - _%self131014%_ - _%id131040%_ + _%self131051%_ + _%id131077%_ (##structure gx#syntax-binding::t - _%id131040%_ - _%id131040%_ + _%id131077%_ + _%id131077%_ '#f - (let* ((_%rest131041131052%_ _%rest131039%_) - (_%E131043131056%_ + (let* ((_%rest131078131089%_ _%rest131076%_) + (_%E131080131093%_ (lambda () (error '"No clause matching" - _%rest131041131052%_ + _%rest131078131089%_ '([key expander compiler])) '#!void)) - (_%K131044131121%_ - (lambda (_%compiler131059%_ - _%expander131060%_ - _%key131061%_) - ((let* ((_%key131062131075%_ _%key131061%_) - (_%E131068131079%_ + (_%K131081131158%_ + (lambda (_%compiler131096%_ + _%expander131097%_ + _%key131098%_) + ((let* ((_%key131099131112%_ _%key131098%_) + (_%E131105131116%_ (lambda () (error '"No clause matching" - _%key131062131075%_ + _%key131099131112%_ '(top:) '(module:) '(define:) '(special:) '(expr:)) '#!void))) - (let ((_%K131073131115%_ + (let ((_%K131110131152%_ (lambda () gx#make-top-special-form)) - (_%K131072131108%_ + (_%K131109131145%_ (lambda () gx#make-module-special-form)) - (_%K131071131100%_ + (_%K131108131137%_ (lambda () gx#make-definition-form)) - (_%K131070131092%_ + (_%K131107131129%_ (lambda () gx#make-special-form)) - (_%K131069131084%_ + (_%K131106131121%_ (lambda () gx#make-expression-form))) - (let* ((_%try-match131067131087%_ + (let* ((_%try-match131104131124%_ (lambda () - (if (##eq? _%key131062131075%_ + (if (##eq? _%key131099131112%_ 'expr:) - (_%K131069131084%_) - (_%E131068131079%_)))) - (_%try-match131066131095%_ + (_%K131106131121%_) + (_%E131105131116%_)))) + (_%try-match131103131132%_ (lambda () - (if (##eq? _%key131062131075%_ + (if (##eq? _%key131099131112%_ 'special:) - (_%K131070131092%_) - (_%try-match131067131087%_)))) - (_%try-match131065131103%_ + (_%K131107131129%_) + (_%try-match131104131124%_)))) + (_%try-match131102131140%_ (lambda () - (if (##eq? _%key131062131075%_ + (if (##eq? _%key131099131112%_ 'define:) - (_%K131071131100%_) - (_%try-match131066131095%_)))) - (_%try-match131064131111%_ + (_%K131108131137%_) + (_%try-match131103131132%_)))) + (_%try-match131101131148%_ (lambda () - (if (##eq? _%key131062131075%_ + (if (##eq? _%key131099131112%_ 'module:) - (_%K131072131108%_) - (_%try-match131065131103%_))))) - (if (##eq? _%key131062131075%_ 'top:) - (_%K131073131115%_) - (_%try-match131064131111%_))))) - _%expander131060%_ - _%id131040%_ - (let ((_%$e131118%_ _%compiler131059%_)) - (if _%$e131118%_ - _%$e131118%_ + (_%K131109131145%_) + (_%try-match131102131140%_))))) + (if (##eq? _%key131099131112%_ 'top:) + (_%K131110131152%_) + (_%try-match131101131148%_))))) + _%expander131097%_ + _%id131077%_ + (let ((_%$e131155%_ _%compiler131096%_)) + (if _%$e131155%_ + _%$e131155%_ gx#core-compile-top-error)))))) - (if (pair? _%rest131041131052%_) - (let ((_%hd131045131124%_ - (##car _%rest131041131052%_)) - (_%tl131046131126%_ - (##cdr _%rest131041131052%_))) - (let ((_%key131129%_ _%hd131045131124%_)) - (if (pair? _%tl131046131126%_) - (let ((_%hd131047131131%_ - (##car _%tl131046131126%_)) - (_%tl131048131133%_ - (##cdr _%tl131046131126%_))) - (let ((_%expander131136%_ - _%hd131047131131%_)) - (if (pair? _%tl131048131133%_) - (let ((_%hd131049131138%_ - (##car _%tl131048131133%_)) - (_%tl131050131140%_ - (##cdr _%tl131048131133%_))) - (let ((_%compiler131143%_ - _%hd131049131138%_)) - (if (null? _%tl131050131140%_) - (_%K131044131121%_ - _%compiler131143%_ - _%expander131136%_ - _%key131129%_) - (_%E131043131056%_)))) - (_%E131043131056%_)))) - (_%E131043131056%_)))) - (_%E131043131056%_)))))))) - (if (pair? _%bind131025131032%_) - (let ((_%hd131029131148%_ (##car _%bind131025131032%_)) - (_%tl131030131150%_ (##cdr _%bind131025131032%_))) - (let* ((_%id131153%_ _%hd131029131148%_) - (_%rest131155%_ _%tl131030131150%_)) - (_%K131028131145%_ _%rest131155%_ _%id131153%_))) - (_%E131027131036%_)))) - _%bindings131010%_)))) + (if (pair? _%rest131078131089%_) + (let ((_%hd131082131161%_ + (##car _%rest131078131089%_)) + (_%tl131083131163%_ + (##cdr _%rest131078131089%_))) + (let ((_%key131166%_ _%hd131082131161%_)) + (if (pair? _%tl131083131163%_) + (let ((_%hd131084131168%_ + (##car _%tl131083131163%_)) + (_%tl131085131170%_ + (##cdr _%tl131083131163%_))) + (let ((_%expander131173%_ + _%hd131084131168%_)) + (if (pair? _%tl131085131170%_) + (let ((_%hd131086131175%_ + (##car _%tl131085131170%_)) + (_%tl131087131177%_ + (##cdr _%tl131085131170%_))) + (let ((_%compiler131180%_ + _%hd131086131175%_)) + (if (null? _%tl131087131177%_) + (_%K131081131158%_ + _%compiler131180%_ + _%expander131173%_ + _%key131166%_) + (_%E131080131093%_)))) + (_%E131080131093%_)))) + (_%E131080131093%_)))) + (_%E131080131093%_)))))))) + (if (pair? _%bind131062131069%_) + (let ((_%hd131066131185%_ (##car _%bind131062131069%_)) + (_%tl131067131187%_ (##cdr _%bind131062131069%_))) + (let* ((_%id131190%_ _%hd131066131185%_) + (_%rest131192%_ _%tl131067131187%_)) + (_%K131065131182%_ _%rest131192%_ _%id131190%_))) + (_%E131064131073%_)))) + _%bindings131047%_)))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_%self130369131160%_) - (let ((_%bindings131162%_ gx#*core-syntax-expanders*)) + (lambda (_%self130406131197%_) + (let ((_%bindings131199%_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _%self130369131160%_ - _%bindings131162%_)))) + _%self130406131197%_ + _%bindings131199%_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g131527_ - (let ((_g131526_ (##length _g131527_))) - (cond ((##fx= _g131526_ 1) + (lambda _g131564_ + (let ((_g131563_ (##length _g131564_))) + (cond ((##fx= _g131563_ 1) (apply gx#expander-context::bind-core-syntax-expanders!__0 - _g131527_)) - ((##fx= _g131526_ 2) + _g131564_)) + ((##fx= _g131563_ 2) (apply gx#expander-context::bind-core-syntax-expanders!__% - _g131527_)) + _g131564_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g131527_)))))) + _g131564_)))))) (__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 (_%self130370130767%_ _%bindings130769%_) - (let* ((_%self130771%_ _%self130370130767%_) - (_%self130773%_ _%self130771%_)) + (lambda (_%self130407130804%_ _%bindings130806%_) + (let* ((_%self130808%_ _%self130407130804%_) + (_%self130810%_ _%self130808%_)) (for-each - (lambda (_%bind130783%_) - (let* ((_%bind130784130791%_ _%bind130783%_) - (_%E130786130795%_ + (lambda (_%bind130820%_) + (let* ((_%bind130821130828%_ _%bind130820%_) + (_%E130823130832%_ (lambda () (error '"No clause matching" - _%bind130784130791%_ + _%bind130821130828%_ '([id . rest])) '#!void)) - (_%K130787130863%_ - (lambda (_%rest130798%_ _%id130799%_) + (_%K130824130900%_ + (lambda (_%rest130835%_ _%id130836%_) (gx#core-context-put! - _%self130773%_ - _%id130799%_ + _%self130810%_ + _%id130836%_ (##structure gx#syntax-binding::t - _%id130799%_ - _%id130799%_ + _%id130836%_ + _%id130836%_ '#f - (let* ((_%rest130800130815%_ _%rest130798%_) - (_%E130804130819%_ + (let* ((_%rest130837130852%_ _%rest130835%_) + (_%E130841130856%_ (lambda () (error '"No clause matching" - _%rest130800130815%_ + _%rest130837130852%_ '(['=> core-id]) '([proc]) '([])) '#!void))) - (let ((_%K130809130848%_ - (lambda (_%core-id130846%_) + (let ((_%K130846130885%_ + (lambda (_%core-id130883%_) (##structure gx#rename-macro-expander::t - _%core-id130846%_))) - (_%K130806130833%_ - (lambda (_%proc130831%_) + _%core-id130883%_))) + (_%K130843130870%_ + (lambda (_%proc130868%_) (##structure gx#macro-expander::t - _%proc130831%_))) - (_%K130805130824%_ + _%proc130868%_))) + (_%K130842130861%_ (lambda () (##structure gx#reserved-expander::t - _%id130799%_)))) - (let ((_%try-match130803130827%_ + _%id130836%_)))) + (let ((_%try-match130840130864%_ (lambda () - (if (null? _%rest130800130815%_) - (_%K130805130824%_) - (_%E130804130819%_))))) - (if (pair? _%rest130800130815%_) - (let ((_%tl130811130853%_ - (##cdr _%rest130800130815%_)) - (_%hd130810130851%_ - (##car _%rest130800130815%_))) - (if (##eq? _%hd130810130851%_ '=>) - (if (pair? _%tl130811130853%_) - (let ((_%tl130813130858%_ - (##cdr _%tl130811130853%_)) - (_%hd130812130856%_ - (##car _%tl130811130853%_))) - (if (null? _%tl130813130858%_) - (let ((_%core-id130861%_ - _%hd130812130856%_)) + (if (null? _%rest130837130852%_) + (_%K130842130861%_) + (_%E130841130856%_))))) + (if (pair? _%rest130837130852%_) + (let ((_%tl130848130890%_ + (##cdr _%rest130837130852%_)) + (_%hd130847130888%_ + (##car _%rest130837130852%_))) + (if (##eq? _%hd130847130888%_ '=>) + (if (pair? _%tl130848130890%_) + (let ((_%tl130850130895%_ + (##cdr _%tl130848130890%_)) + (_%hd130849130893%_ + (##car _%tl130848130890%_))) + (if (null? _%tl130850130895%_) + (let ((_%core-id130898%_ + _%hd130849130893%_)) (##structure gx#rename-macro-expander::t - _%core-id130861%_)) - (_%E130804130819%_))) - (if (null? _%tl130811130853%_) - (let ((_%proc130841%_ - _%hd130810130851%_)) + _%core-id130898%_)) + (_%E130841130856%_))) + (if (null? _%tl130848130890%_) + (let ((_%proc130878%_ + _%hd130847130888%_)) (##structure gx#macro-expander::t - _%proc130841%_)) - (_%E130804130819%_))) - (if (null? _%tl130811130853%_) - (let ((_%proc130841%_ - _%hd130810130851%_)) + _%proc130878%_)) + (_%E130841130856%_))) + (if (null? _%tl130848130890%_) + (let ((_%proc130878%_ + _%hd130847130888%_)) (##structure gx#macro-expander::t - _%proc130841%_)) - (_%E130804130819%_)))) - (_%try-match130803130827%_)))))))))) - (if (pair? _%bind130784130791%_) - (let ((_%hd130788130866%_ (##car _%bind130784130791%_)) - (_%tl130789130868%_ (##cdr _%bind130784130791%_))) - (let* ((_%id130871%_ _%hd130788130866%_) - (_%rest130873%_ _%tl130789130868%_)) - (_%K130787130863%_ _%rest130873%_ _%id130871%_))) - (_%E130786130795%_)))) - _%bindings130769%_)))) + _%proc130878%_)) + (_%E130841130856%_)))) + (_%try-match130840130864%_)))))))))) + (if (pair? _%bind130821130828%_) + (let ((_%hd130825130903%_ (##car _%bind130821130828%_)) + (_%tl130826130905%_ (##cdr _%bind130821130828%_))) + (let* ((_%id130908%_ _%hd130825130903%_) + (_%rest130910%_ _%tl130826130905%_)) + (_%K130824130900%_ _%rest130910%_ _%id130908%_))) + (_%E130823130832%_)))) + _%bindings130806%_)))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_%self130370130878%_) - (let ((_%bindings130880%_ gx#*core-macro-expanders*)) + (lambda (_%self130407130915%_) + (let ((_%bindings130917%_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _%self130370130878%_ - _%bindings130880%_)))) + _%self130407130915%_ + _%bindings130917%_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g131529_ - (let ((_g131528_ (##length _g131529_))) - (cond ((##fx= _g131528_ 1) + (lambda _g131566_ + (let ((_g131565_ (##length _g131566_))) + (cond ((##fx= _g131565_ 1) (apply gx#expander-context::bind-core-macro-expanders!__0 - _g131529_)) - ((##fx= _g131528_ 2) + _g131566_)) + ((##fx= _g131565_ 2) (apply gx#expander-context::bind-core-macro-expanders!__% - _g131529_)) + _g131566_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g131529_)))))) + _g131566_)))))) (__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 (_%self130371130497%_) - (let* ((_%self130500%_ _%self130371130497%_) - (_%self130502%_ _%self130500%_)) - (letrec ((_%linux-variant?130512%_ - (lambda (_%sys-type130612%_) - (let* ((_%g130613130621%_ + (lambda (_%self130408130534%_) + (let* ((_%self130537%_ _%self130408130534%_) + (_%self130539%_ _%self130537%_)) + (letrec ((_%linux-variant?130549%_ + (lambda (_%sys-type130649%_) + (let* ((_%g130650130658%_ (__string-split - (symbol->string _%sys-type130612%_) + (symbol->string _%sys-type130649%_) '#\-)) - (_%else130615130629%_ (lambda () '#f)) - (_%K130617130634%_ - (lambda (_%rest130632%_) - (not (null? _%rest130632%_))))) - (if (pair? _%g130613130621%_) - (let ((_%hd130618130637%_ - (##car _%g130613130621%_)) - (_%tl130619130639%_ - (##cdr _%g130613130621%_))) - (if (equal? _%hd130618130637%_ '"linux") - (let ((_%rest130642%_ _%tl130619130639%_)) - (_%K130617130634%_ _%rest130642%_)) - (_%else130615130629%_))) - (_%else130615130629%_))))) - (_%bsd-variant130513%_ - (lambda (_%sys-type130571%_) - (let ((_%sys-type-str130573%_ - (symbol->string _%sys-type130571%_))) - (let _%lp130575%_ ((_%rest130577%_ + (_%else130652130666%_ (lambda () '#f)) + (_%K130654130671%_ + (lambda (_%rest130669%_) + (not (null? _%rest130669%_))))) + (if (pair? _%g130650130658%_) + (let ((_%hd130655130674%_ + (##car _%g130650130658%_)) + (_%tl130656130676%_ + (##cdr _%g130650130658%_))) + (if (equal? _%hd130655130674%_ '"linux") + (let ((_%rest130679%_ _%tl130656130676%_)) + (_%K130654130671%_ _%rest130679%_)) + (_%else130652130666%_))) + (_%else130652130666%_))))) + (_%bsd-variant130550%_ + (lambda (_%sys-type130608%_) + (let ((_%sys-type-str130610%_ + (symbol->string _%sys-type130608%_))) + (let _%lp130612%_ ((_%rest130614%_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_%rest130578130586%_ _%rest130577%_) - (_%else130580130594%_ (lambda () '#f)) - (_%K130582130600%_ - (lambda (_%rest130597%_ _%sys130598%_) + (let* ((_%rest130615130623%_ _%rest130614%_) + (_%else130617130631%_ (lambda () '#f)) + (_%K130619130637%_ + (lambda (_%rest130634%_ _%sys130635%_) (if (string-prefix? - _%sys130598%_ - _%sys-type-str130573%_) - _%sys130598%_ - (_%lp130575%_ _%rest130597%_))))) - (if (pair? _%rest130578130586%_) - (let ((_%hd130583130603%_ - (##car _%rest130578130586%_)) - (_%tl130584130605%_ - (##cdr _%rest130578130586%_))) - (let* ((_%sys130608%_ _%hd130583130603%_) - (_%rest130610%_ _%tl130584130605%_)) - (_%K130582130600%_ - _%rest130610%_ - _%sys130608%_))) - (_%else130580130594%_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _%self130502%_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self130502%_) - (let* ((_%g130514130526%_ (system-type)) - (_%else130516130534%_ (lambda () '#!void)) - (_%K130518130547%_ - (lambda (_%sys-type130537%_ - _%sys-vendor130538%_ - _%sys-cpu130539%_) + _%sys130635%_ + _%sys-type-str130610%_) + _%sys130635%_ + (_%lp130612%_ _%rest130634%_))))) + (if (pair? _%rest130615130623%_) + (let ((_%hd130620130640%_ + (##car _%rest130615130623%_)) + (_%tl130621130642%_ + (##cdr _%rest130615130623%_))) + (let* ((_%sys130645%_ _%hd130620130640%_) + (_%rest130647%_ _%tl130621130642%_)) + (_%K130619130637%_ + _%rest130647%_ + _%sys130645%_))) + (_%else130617130631%_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _%self130539%_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self130539%_) + (let* ((_%g130551130563%_ (system-type)) + (_%else130553130571%_ (lambda () '#!void)) + (_%K130555130584%_ + (lambda (_%sys-type130574%_ + _%sys-vendor130575%_ + _%sys-cpu130576%_) (gx#core-bind-feature!__% - _%sys-cpu130539%_ + _%sys-cpu130576%_ '#f '0 - _%self130502%_) + _%self130539%_) (gx#core-bind-feature!__% - _%sys-type130537%_ + _%sys-type130574%_ '#f '0 - _%self130502%_) - (if (_%linux-variant?130512%_ _%sys-type130537%_) + _%self130539%_) + (if (_%linux-variant?130549%_ _%sys-type130574%_) (gx#core-bind-feature!__% (##string->symbol '"linux") '#f '0 - _%self130502%_) - (let ((_%$e130542%_ - (_%bsd-variant130513%_ _%sys-type130537%_))) - (if _%$e130542%_ - ((lambda (_%sys-prefix130545%_) + _%self130539%_) + (let ((_%$e130579%_ + (_%bsd-variant130550%_ _%sys-type130574%_))) + (if _%$e130579%_ + ((lambda (_%sys-prefix130582%_) (gx#core-bind-feature!__% (##string->symbol '"bsd") '#f '0 - _%self130502%_) + _%self130539%_) (gx#core-bind-feature!__% - (string->symbol _%sys-prefix130545%_) + (string->symbol _%sys-prefix130582%_) '#f '0 - _%self130502%_)) - _%$e130542%_) + _%self130539%_)) + _%$e130579%_) '#!void)))))) - (if (pair? _%g130514130526%_) - (let ((_%hd130519130550%_ (##car _%g130514130526%_)) - (_%tl130520130552%_ (##cdr _%g130514130526%_))) - (let ((_%sys-cpu130555%_ _%hd130519130550%_)) - (if (pair? _%tl130520130552%_) - (let ((_%hd130521130557%_ (##car _%tl130520130552%_)) - (_%tl130522130559%_ - (##cdr _%tl130520130552%_))) - (let ((_%sys-vendor130562%_ _%hd130521130557%_)) - (if (pair? _%tl130522130559%_) - (let ((_%hd130523130564%_ - (##car _%tl130522130559%_)) - (_%tl130524130566%_ - (##cdr _%tl130522130559%_))) - (let ((_%sys-type130569%_ - _%hd130523130564%_)) - (if (null? _%tl130524130566%_) - (_%K130518130547%_ - _%sys-type130569%_ - _%sys-vendor130562%_ - _%sys-cpu130555%_) + (if (pair? _%g130551130563%_) + (let ((_%hd130556130587%_ (##car _%g130551130563%_)) + (_%tl130557130589%_ (##cdr _%g130551130563%_))) + (let ((_%sys-cpu130592%_ _%hd130556130587%_)) + (if (pair? _%tl130557130589%_) + (let ((_%hd130558130594%_ (##car _%tl130557130589%_)) + (_%tl130559130596%_ + (##cdr _%tl130557130589%_))) + (let ((_%sys-vendor130599%_ _%hd130558130594%_)) + (if (pair? _%tl130559130596%_) + (let ((_%hd130560130601%_ + (##car _%tl130559130596%_)) + (_%tl130561130603%_ + (##cdr _%tl130559130596%_))) + (let ((_%sys-type130606%_ + _%hd130560130601%_)) + (if (null? _%tl130561130603%_) + (_%K130555130584%_ + _%sys-type130606%_ + _%sys-vendor130599%_ + _%sys-cpu130592%_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self130502%_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self130539%_) '#!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 76f717c55..2298f5690 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 1733687560) + (define gerbil/expander/stxcase::timestamp 1733870075) (begin (define gx#syntax-pattern::t - (let ((__tmp132928 (list gx#expander::t)) - (__tmp132927 (cons (cons 'struct: '#t) '()))) + (let ((__tmp132965 (list gx#expander::t)) + (__tmp132964 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp132928 + __tmp132965 '(id depth) - __tmp132927 + __tmp132964 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (__make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _%$args132924%_ - (apply make-instance gx#syntax-pattern::t _%$args132924%_))) + (lambda _%$args132961%_ + (apply make-instance gx#syntax-pattern::t _%$args132961%_))) (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 (_%self131531132908%_ _%stx132910%_) - (let* ((_%self132912%_ _%self131531132908%_) - (_%self132914%_ _%self132912%_)) + (lambda (_%self131568132945%_ _%stx132947%_) + (let* ((_%self132949%_ _%self131568132945%_) + (_%self132951%_ _%self132949%_)) (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _%stx132910%_)))) + _%stx132947%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -85,602 +85,602 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_%stx132374%_) - (letrec ((_%generate132376%_ - (lambda (_%e132616%_) - (letrec ((_%BUG132618%_ - (lambda (_%q132783%_) + (lambda (_%stx132411%_) + (letrec ((_%generate132413%_ + (lambda (_%e132653%_) + (letrec ((_%BUG132655%_ + (lambda (_%q132820%_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _%stx132374%_ - _%e132616%_ - _%q132783%_)))) - (_%local-pattern-e132619%_ - (lambda (_%pat132781%_) - (let ((__tmp132929 + _%stx132411%_ + _%e132653%_ + _%q132820%_)))) + (_%local-pattern-e132656%_ + (lambda (_%pat132818%_) + (let ((__tmp132966 (##structure-ref - _%pat132781%_ + _%pat132818%_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp132929)))) - (_%getvar132620%_ - (lambda (_%q132778%_ _%vars132779%_) + (gx#syntax-local-rewrap __tmp132966)))) + (_%getvar132657%_ + (lambda (_%q132815%_ _%vars132816%_) (let () (declare (not safe)) (agetq__% - _%q132778%_ - _%vars132779%_ - _%BUG132618%_)))) - (_%getarg132621%_ - (lambda (_%arg132744%_ _%vars132745%_) - (let* ((_%arg132746132753%_ _%arg132744%_) - (_%E132748132757%_ + _%q132815%_ + _%vars132816%_ + _%BUG132655%_)))) + (_%getarg132658%_ + (lambda (_%arg132781%_ _%vars132782%_) + (let* ((_%arg132783132790%_ _%arg132781%_) + (_%E132785132794%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arg132746132753%_ + _%arg132783132790%_ '([tag . e]))) '#!void)) - (_%K132749132766%_ - (lambda (_%e132760%_ _%tag132761%_) - (let ((_%$e132763%_ _%tag132761%_)) - (if (eq? 'ref _%$e132763%_) - (_%getvar132620%_ - _%e132760%_ - _%vars132745%_) - (if (eq? 'pattern _%$e132763%_) - (_%local-pattern-e132619%_ - _%e132760%_) - (_%BUG132618%_ - _%arg132744%_))))))) - (if (pair? _%arg132746132753%_) - (let ((_%hd132750132769%_ + (_%K132786132803%_ + (lambda (_%e132797%_ _%tag132798%_) + (let ((_%$e132800%_ _%tag132798%_)) + (if (eq? 'ref _%$e132800%_) + (_%getvar132657%_ + _%e132797%_ + _%vars132782%_) + (if (eq? 'pattern _%$e132800%_) + (_%local-pattern-e132656%_ + _%e132797%_) + (_%BUG132655%_ + _%arg132781%_))))))) + (if (pair? _%arg132783132790%_) + (let ((_%hd132787132806%_ (let () (declare (not safe)) - (##car _%arg132746132753%_))) - (_%tl132751132771%_ + (##car _%arg132783132790%_))) + (_%tl132788132808%_ (let () (declare (not safe)) - (##cdr _%arg132746132753%_)))) - (let* ((_%tag132774%_ - _%hd132750132769%_) - (_%e132776%_ - _%tl132751132771%_)) - (_%K132749132766%_ - _%e132776%_ - _%tag132774%_))) - (_%E132748132757%_)))))) - (let _%recur132623%_ ((_%e132625%_ _%e132616%_) - (_%vars132626%_ '())) - (let* ((_%e132627132634%_ _%e132625%_) - (_%E132629132638%_ + (##cdr _%arg132783132790%_)))) + (let* ((_%tag132811%_ + _%hd132787132806%_) + (_%e132813%_ + _%tl132788132808%_)) + (_%K132786132803%_ + _%e132813%_ + _%tag132811%_))) + (_%E132785132794%_)))))) + (let _%recur132660%_ ((_%e132662%_ _%e132653%_) + (_%vars132663%_ '())) + (let* ((_%e132664132671%_ _%e132662%_) + (_%E132666132675%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e132627132634%_ + _%e132664132671%_ '([tag . body]))) '#!void)) - (_%K132630132732%_ - (lambda (_%body132641%_ _%tag132642%_) - (let ((_%$e132644%_ _%tag132642%_)) - (if (eq? 'datum _%$e132644%_) + (_%K132667132769%_ + (lambda (_%body132678%_ _%tag132679%_) + (let ((_%$e132681%_ _%tag132679%_)) + (if (eq? 'datum _%$e132681%_) (let () (declare (not safe)) - (gx#core-list 'quote _%body132641%_)) - (if (eq? 'term _%$e132644%_) - (let ((_%id132647%_ + (gx#core-list 'quote _%body132678%_)) + (if (eq? 'term _%$e132681%_) + (let ((_%id132684%_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _%body132641%_)))) + _%body132678%_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132647%_ + _%id132684%_ 'gx#identifier-wrap::t)) - (let ((_%marks132650%_ + (let ((_%marks132687%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%id132647%_ + _%id132684%_ '3 '#f '#f)))) - (if (null? _%marks132650%_) - (let ((__tmp132930 + (if (null? _%marks132687%_) + (let ((__tmp132967 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _%body132641%_)))) + (gx#core-list 'quote _%body132678%_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp132930)) - (let ((__tmp132932 + (gx#core-list 'datum->syntax '#f __tmp132967)) + (let ((__tmp132969 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _%body132641%_))) - (__tmp132931 + (gx#core-list 'quote-syntax _%body132678%_))) + (__tmp132968 (let () (declare (not safe)) - (gx#core-list 'quote _%body132641%_)))) + (gx#core-list 'quote _%body132678%_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp132932 - __tmp132931 + __tmp132969 + __tmp132968 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132647%_ + _%id132684%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _%body132641%_)) - (_%BUG132618%_ - _%e132625%_)))) - (if (eq? 'pattern _%$e132644%_) - (_%local-pattern-e132619%_ - _%body132641%_) - (if (eq? 'ref _%$e132644%_) - (_%getvar132620%_ - _%body132641%_ - _%vars132626%_) + _%body132678%_)) + (_%BUG132655%_ + _%e132662%_)))) + (if (eq? 'pattern _%$e132681%_) + (_%local-pattern-e132656%_ + _%body132678%_) + (if (eq? 'ref _%$e132681%_) + (_%getvar132657%_ + _%body132678%_ + _%vars132663%_) (if (eq? 'cons - _%$e132644%_) - (let ((__tmp132934 - (_%recur132623%_ - (car _%body132641%_) - _%vars132626%_)) - (__tmp132933 - (_%recur132623%_ - (cdr _%body132641%_) - _%vars132626%_))) + _%$e132681%_) + (let ((__tmp132971 + (_%recur132660%_ + (car _%body132678%_) + _%vars132663%_)) + (__tmp132970 + (_%recur132660%_ + (cdr _%body132678%_) + _%vars132663%_))) (declare (not safe)) (gx#core-list 'cons - __tmp132934 - __tmp132933)) + __tmp132971 + __tmp132970)) (if (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e132644%_) - (let ((__tmp132935 - (_%recur132623%_ _%body132641%_ _%vars132626%_))) + _%$e132681%_) + (let ((__tmp132972 + (_%recur132660%_ _%body132678%_ _%vars132663%_))) (declare (not safe)) - (gx#core-list 'list->vector __tmp132935)) - (if (eq? 'box _%$e132644%_) - (let ((__tmp132936 - (_%recur132623%_ - _%body132641%_ - _%vars132626%_))) + (gx#core-list 'list->vector __tmp132972)) + (if (eq? 'box _%$e132681%_) + (let ((__tmp132973 + (_%recur132660%_ + _%body132678%_ + _%vars132663%_))) (declare (not safe)) - (gx#core-list 'box __tmp132936)) - (if (eq? 'splice _%$e132644%_) - (let* ((_%body132653132664%_ _%body132641%_) - (_%E132655132668%_ + (gx#core-list 'box __tmp132973)) + (if (eq? 'splice _%$e132681%_) + (let* ((_%body132690132701%_ _%body132678%_) + (_%E132692132705%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body132653132664%_ + _%body132690132701%_ '([depth hd iv . args]))) '#!void)) - (_%K132656132706%_ - (lambda (_%args132671%_ - _%iv132672%_ - _%hd132673%_ - _%depth132674%_) - (let* ((_%targets132680%_ - (map (lambda (_%g132675132677%_) - (_%getarg132621%_ - _%g132675132677%_ - _%vars132626%_)) - _%args132671%_)) - (_%fold-in132682%_ + (_%K132693132743%_ + (lambda (_%args132708%_ + _%iv132709%_ + _%hd132710%_ + _%depth132711%_) + (let* ((_%targets132717%_ + (map (lambda (_%g132712132714%_) + (_%getarg132658%_ + _%g132712132714%_ + _%vars132663%_)) + _%args132708%_)) + (_%fold-in132719%_ (let () (declare (not safe)) - (gx#gentemps _%args132671%_))) - (_%fold-out132684%_ + (gx#gentemps _%args132708%_))) + (_%fold-out132721%_ (let () (declare (not safe)) (gx#genident__0))) - (_%lambda-args132686%_ - (let ((__tmp132937 - (cons _%fold-out132684%_ + (_%lambda-args132723%_ + (let ((__tmp132974 + (cons _%fold-out132721%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp132937 - _%fold-in132682%_))) - (_%lambda-body132703%_ + __tmp132974 + _%fold-in132719%_))) + (_%lambda-body132740%_ (if (let () (declare (not safe)) - (##fx> _%depth132674%_ '1)) - (let ((_%r-args132694%_ - (map (lambda (_%arg132688%_) + (##fx> _%depth132711%_ '1)) + (let ((_%r-args132731%_ + (map (lambda (_%arg132725%_) (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _%arg132688%_))) - _%args132671%_)) - (_%r-vars132695%_ - (let ((__tmp132938 - (lambda (_%arg132690%_ _%var132691%_ _%r132692%_) - (cons (cons (cdr _%arg132690%_) _%var132691%_) - _%r132692%_)))) + (cdr _%arg132725%_))) + _%args132708%_)) + (_%r-vars132732%_ + (let ((__tmp132975 + (lambda (_%arg132727%_ _%var132728%_ _%r132729%_) + (cons (cons (cdr _%arg132727%_) _%var132728%_) + _%r132729%_)))) (declare (not safe)) (__foldr2 - __tmp132938 - _%vars132626%_ - _%args132671%_ - _%fold-in132682%_)))) + __tmp132975 + _%vars132663%_ + _%args132708%_ + _%fold-in132719%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%recur132623%_ + (_%recur132660%_ (cons 'splice (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##fx- _%depth132674%_ '1)) - (cons _%hd132673%_ - (cons (cons 'var _%fold-out132684%_) - _%r-args132694%_)))) + (##fx- _%depth132711%_ '1)) + (cons _%hd132710%_ + (cons (cons 'var _%fold-out132721%_) + _%r-args132731%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r-vars132695%_)) - (let* ((_%hd-vars132701%_ - (let ((__tmp132939 + _%r-vars132732%_)) + (let* ((_%hd-vars132738%_ + (let ((__tmp132976 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%arg132697%_ _%var132698%_ _%r132699%_) - (cons (cons (cdr _%arg132697%_) _%var132698%_) - _%r132699%_)))) + (lambda (_%arg132734%_ _%var132735%_ _%r132736%_) + (cons (cons (cdr _%arg132734%_) _%var132735%_) + _%r132736%_)))) (declare (not safe)) (__foldr2 - __tmp132939 - _%vars132626%_ - _%args132671%_ - _%fold-in132682%_))) - (__tmp132940 - (_%recur132623%_ _%hd132673%_ _%hd-vars132701%_))) + __tmp132976 + _%vars132663%_ + _%args132708%_ + _%fold-in132719%_))) + (__tmp132977 + (_%recur132660%_ _%hd132710%_ _%hd-vars132738%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp132940 - _%fold-out132684%_))))) - (let ((__tmp132944 - (if (let ((__tmp132945 + __tmp132977 + _%fold-out132721%_))))) + (let ((__tmp132981 + (if (let ((__tmp132982 (let () (declare (not safe)) (##length - _%targets132680%_)))) + _%targets132717%_)))) (declare (not safe)) - (##fx> __tmp132945 '1)) + (##fx> __tmp132982 '1)) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _%targets132680%_)) + _%targets132717%_)) '#!void)) - (__tmp132941 - (let ((__tmp132943 + (__tmp132978 + (let ((__tmp132980 (let () (declare (not safe)) (gx#core-list 'lambda% - _%lambda-args132686%_ - _%lambda-body132703%_))) - (__tmp132942 - (_%recur132623%_ - _%iv132672%_ - _%vars132626%_))) + _%lambda-args132723%_ + _%lambda-body132740%_))) + (__tmp132979 + (_%recur132660%_ + _%iv132709%_ + _%vars132663%_))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp132943 - __tmp132942 - _%targets132680%_)))) + __tmp132980 + __tmp132979 + _%targets132717%_)))) (declare (not safe)) (gx#core-list 'begin - __tmp132944 - __tmp132941)))))) - (if (pair? _%body132653132664%_) - (let ((_%hd132657132709%_ + __tmp132981 + __tmp132978)))))) + (if (pair? _%body132690132701%_) + (let ((_%hd132694132746%_ (let () (declare (not safe)) - (##car _%body132653132664%_))) - (_%tl132658132711%_ + (##car _%body132690132701%_))) + (_%tl132695132748%_ (let () (declare (not safe)) - (##cdr _%body132653132664%_)))) - (let ((_%depth132714%_ _%hd132657132709%_)) - (if (pair? _%tl132658132711%_) - (let ((_%hd132659132716%_ + (##cdr _%body132690132701%_)))) + (let ((_%depth132751%_ _%hd132694132746%_)) + (if (pair? _%tl132695132748%_) + (let ((_%hd132696132753%_ (let () (declare (not safe)) - (##car _%tl132658132711%_))) - (_%tl132660132718%_ + (##car _%tl132695132748%_))) + (_%tl132697132755%_ (let () (declare (not safe)) - (##cdr _%tl132658132711%_)))) - (let ((_%hd132721%_ - _%hd132659132716%_)) - (if (pair? _%tl132660132718%_) - (let ((_%hd132661132723%_ + (##cdr _%tl132695132748%_)))) + (let ((_%hd132758%_ + _%hd132696132753%_)) + (if (pair? _%tl132697132755%_) + (let ((_%hd132698132760%_ (let () (declare (not safe)) - (##car _%tl132660132718%_))) - (_%tl132662132725%_ + (##car _%tl132697132755%_))) + (_%tl132699132762%_ (let () (declare (not safe)) - (##cdr _%tl132660132718%_)))) - (let* ((_%iv132728%_ - _%hd132661132723%_) - (_%args132730%_ - _%tl132662132725%_)) - (_%K132656132706%_ - _%args132730%_ - _%iv132728%_ - _%hd132721%_ - _%depth132714%_))) - (_%E132655132668%_)))) - (_%E132655132668%_)))) - (_%E132655132668%_))) - (if (eq? 'var _%$e132644%_) - _%body132641%_ - (_%BUG132618%_ _%e132625%_)))))))))))))) + (##cdr _%tl132697132755%_)))) + (let* ((_%iv132765%_ + _%hd132698132760%_) + (_%args132767%_ + _%tl132699132762%_)) + (_%K132693132743%_ + _%args132767%_ + _%iv132765%_ + _%hd132758%_ + _%depth132751%_))) + (_%E132692132705%_)))) + (_%E132692132705%_)))) + (_%E132692132705%_))) + (if (eq? 'var _%$e132681%_) + _%body132678%_ + (_%BUG132655%_ _%e132662%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e132627132634%_) - (let ((_%hd132631132735%_ + (if (pair? _%e132664132671%_) + (let ((_%hd132668132772%_ (let () (declare (not safe)) - (##car _%e132627132634%_))) - (_%tl132632132737%_ + (##car _%e132664132671%_))) + (_%tl132669132774%_ (let () (declare (not safe)) - (##cdr _%e132627132634%_)))) - (let* ((_%tag132740%_ _%hd132631132735%_) - (_%body132742%_ _%tl132632132737%_)) - (_%K132630132732%_ - _%body132742%_ - _%tag132740%_))) - (_%E132629132638%_))))))) - (_%parse132377%_ - (lambda (_%e132418%_) - (letrec ((_%make-cons132420%_ - (lambda (_%hd132608%_ _%tl132609%_) - (let ((_g132946_ _%hd132608%_) - (_g132948_ _%tl132609%_)) + (##cdr _%e132664132671%_)))) + (let* ((_%tag132777%_ _%hd132668132772%_) + (_%body132779%_ _%tl132669132774%_)) + (_%K132667132769%_ + _%body132779%_ + _%tag132777%_))) + (_%E132666132675%_))))))) + (_%parse132414%_ + (lambda (_%e132455%_) + (letrec ((_%make-cons132457%_ + (lambda (_%hd132645%_ _%tl132646%_) + (let ((_g132983_ _%hd132645%_) + (_g132985_ _%tl132646%_)) (begin - (let ((_g132947_ + (let ((_g132984_ (let () (declare (not safe)) - (if (##values? _g132946_) - (##vector-length _g132946_) + (if (##values? _g132983_) + (##vector-length _g132983_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132947_ 2))) + (##fx= _g132984_ 2))) (error "Context expects 2 values" - _g132947_))) - (let ((_g132949_ + _g132984_))) + (let ((_g132986_ (let () (declare (not safe)) - (if (##values? _g132948_) - (##vector-length _g132948_) + (if (##values? _g132985_) + (##vector-length _g132985_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132949_ 2))) + (##fx= _g132986_ 2))) (error "Context expects 2 values" - _g132949_))) - (let ((_%hd-e132611%_ + _g132986_))) + (let ((_%hd-e132648%_ (let () (declare (not safe)) - (##vector-ref _g132946_ 0))) - (_%hd-vars132612%_ + (##vector-ref _g132983_ 0))) + (_%hd-vars132649%_ (let () (declare (not safe)) - (##vector-ref _g132946_ 1)))) - (let ((_%tl-e132613%_ + (##vector-ref _g132983_ 1)))) + (let ((_%tl-e132650%_ (let () (declare (not safe)) - (##vector-ref _g132948_ 0))) - (_%tl-vars132614%_ + (##vector-ref _g132985_ 0))) + (_%tl-vars132651%_ (let () (declare (not safe)) - (##vector-ref _g132948_ 1)))) + (##vector-ref _g132985_ 1)))) (values (cons 'cons - (cons _%hd-e132611%_ - _%tl-e132613%_)) - (append _%hd-vars132612%_ - _%tl-vars132614%_)))))))) - (_%make-splice132421%_ - (lambda (_%where132544%_ - _%depth132545%_ - _%hd132546%_ - _%tl132547%_) - (let ((_g132950_ _%hd132546%_) - (_g132952_ _%tl132547%_)) + (cons _%hd-e132648%_ + _%tl-e132650%_)) + (append _%hd-vars132649%_ + _%tl-vars132651%_)))))))) + (_%make-splice132458%_ + (lambda (_%where132581%_ + _%depth132582%_ + _%hd132583%_ + _%tl132584%_) + (let ((_g132987_ _%hd132583%_) + (_g132989_ _%tl132584%_)) (begin - (let ((_g132951_ + (let ((_g132988_ (let () (declare (not safe)) - (if (##values? _g132950_) - (##vector-length _g132950_) + (if (##values? _g132987_) + (##vector-length _g132987_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132951_ 2))) + (##fx= _g132988_ 2))) (error "Context expects 2 values" - _g132951_))) - (let ((_g132953_ + _g132988_))) + (let ((_g132990_ (let () (declare (not safe)) - (if (##values? _g132952_) - (##vector-length _g132952_) + (if (##values? _g132989_) + (##vector-length _g132989_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132953_ 2))) + (##fx= _g132990_ 2))) (error "Context expects 2 values" - _g132953_))) - (let ((_%hd-e132549%_ + _g132990_))) + (let ((_%hd-e132586%_ (let () (declare (not safe)) - (##vector-ref _g132950_ 0))) - (_%hd-vars132550%_ + (##vector-ref _g132987_ 0))) + (_%hd-vars132587%_ (let () (declare (not safe)) - (##vector-ref _g132950_ 1)))) - (let ((_%tl-e132551%_ + (##vector-ref _g132987_ 1)))) + (let ((_%tl-e132588%_ (let () (declare (not safe)) - (##vector-ref _g132952_ 0))) - (_%tl-vars132552%_ + (##vector-ref _g132989_ 0))) + (_%tl-vars132589%_ (let () (declare (not safe)) - (##vector-ref _g132952_ 1)))) - (let _%lp132554%_ ((_%rest132556%_ - _%hd-vars132550%_) - (_%targets132557%_ + (##vector-ref _g132989_ 1)))) + (let _%lp132591%_ ((_%rest132593%_ + _%hd-vars132587%_) + (_%targets132594%_ '()) - (_%vars132558%_ - _%tl-vars132552%_)) - (let* ((_%rest132559132569%_ - _%rest132556%_) - (_%else132561132577%_ + (_%vars132595%_ + _%tl-vars132589%_)) + (let* ((_%rest132596132606%_ + _%rest132593%_) + (_%else132598132614%_ (lambda () - (if (null? _%targets132557%_) + (if (null? _%targets132594%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx132374%_ - _%where132544%_)) + _%stx132411%_ + _%where132581%_)) (values (cons 'splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%depth132545%_ - (cons _%hd-e132549%_ - (cons _%tl-e132551%_ - _%targets132557%_)))) - _%vars132558%_)))) + (cons _%depth132582%_ + (cons _%hd-e132586%_ + (cons _%tl-e132588%_ + _%targets132594%_)))) + _%vars132595%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K132563132589%_ - (lambda (_%rest132580%_ - _%hd-pat132581%_ - _%hd-depth*132582%_) - (let ((_%hd-depth132584%_ - (fx- _%hd-depth*132582%_ - _%depth132545%_))) + (_%K132600132626%_ + (lambda (_%rest132617%_ + _%hd-pat132618%_ + _%hd-depth*132619%_) + (let ((_%hd-depth132621%_ + (fx- _%hd-depth*132619%_ + _%depth132582%_))) (if (let () (declare (not safe)) (##fxpositive? - _%hd-depth132584%_)) - (_%lp132554%_ - _%rest132580%_ + _%hd-depth132621%_)) + (_%lp132591%_ + _%rest132617%_ (cons (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd-pat132581%_) - _%targets132557%_) - (cons (cons _%hd-depth132584%_ _%hd-pat132581%_) - _%vars132558%_)) + _%hd-pat132618%_) + _%targets132594%_) + (cons (cons _%hd-depth132621%_ _%hd-pat132618%_) + _%vars132595%_)) (if (let () (declare (not safe)) - (##fxzero? _%hd-depth132584%_)) - (_%lp132554%_ - _%rest132580%_ - (cons (cons 'pattern _%hd-pat132581%_) - _%targets132557%_) - _%vars132558%_) + (##fxzero? _%hd-depth132621%_)) + (_%lp132591%_ + _%rest132617%_ + (cons (cons 'pattern _%hd-pat132618%_) + _%targets132594%_) + _%vars132595%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _%stx132374%_ - _%where132544%_)))))))) + _%stx132411%_ + _%where132581%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest132559132569%_) - (let ((_%hd132564132592%_ + (if (pair? _%rest132596132606%_) + (let ((_%hd132601132629%_ (let () (declare (not safe)) - (##car _%rest132559132569%_))) - (_%tl132565132594%_ + (##car _%rest132596132606%_))) + (_%tl132602132631%_ (let () (declare (not safe)) - (##cdr _%rest132559132569%_)))) - (if (pair? _%hd132564132592%_) - (let ((_%hd132566132597%_ + (##cdr _%rest132596132606%_)))) + (if (pair? _%hd132601132629%_) + (let ((_%hd132603132634%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%hd132564132592%_))) - (_%tl132567132599%_ - (let () (declare (not safe)) (##cdr _%hd132564132592%_)))) - (let* ((_%hd-depth*132602%_ _%hd132566132597%_) - (_%hd-pat132604%_ _%tl132567132599%_) - (_%rest132606%_ _%tl132565132594%_)) - (_%K132563132589%_ - _%rest132606%_ - _%hd-pat132604%_ - _%hd-depth*132602%_))) - (_%else132561132577%_))) + (##car _%hd132601132629%_))) + (_%tl132604132636%_ + (let () (declare (not safe)) (##cdr _%hd132601132629%_)))) + (let* ((_%hd-depth*132639%_ _%hd132603132634%_) + (_%hd-pat132641%_ _%tl132604132636%_) + (_%rest132643%_ _%tl132602132631%_)) + (_%K132600132626%_ + _%rest132643%_ + _%hd-pat132641%_ + _%hd-depth*132639%_))) + (_%else132598132614%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else132561132577%_)))))))))) - (_%recur132422%_ - (lambda (_%e132427%_ _%is-e?132428%_) - (if (_%is-e?132428%_ _%e132427%_) + (_%else132598132614%_)))))))))) + (_%recur132459%_ + (lambda (_%e132464%_ _%is-e?132465%_) + (if (_%is-e?132465%_ _%e132464%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _%stx132374%_)) - (if (gx#syntax-local-pattern? _%e132427%_) - (let* ((_%pat132432%_ + _%stx132411%_)) + (if (gx#syntax-local-pattern? _%e132464%_) + (let* ((_%pat132469%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%e132427%_))) - (_%depth132434%_ + _%e132464%_))) + (_%depth132471%_ (##structure-ref - _%pat132432%_ + _%pat132469%_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _%depth132434%_) - (values (cons 'ref _%pat132432%_) - (cons (cons _%depth132434%_ + (if (fxpositive? _%depth132471%_) + (values (cons 'ref _%pat132469%_) + (cons (cons _%depth132471%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pat132432%_) + _%pat132469%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (cons 'pattern - _%pat132432%_) + _%pat132469%_) '()))) (if (let () (declare (not safe)) - (gx#identifier? _%e132427%_)) - (values (cons 'term _%e132427%_) + (gx#identifier? _%e132464%_)) + (values (cons 'term _%e132464%_) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _%e132427%_)) - (let* ((_%e132438132445%_ - _%e132427%_) - (_%E132440132449%_ + (gx#stx-pair? _%e132464%_)) + (let* ((_%e132475132482%_ + _%e132464%_) + (_%E132477132486%_ (lambda () (let () (declare @@ -688,1989 +688,1989 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132438132445%_)))) - (_%E132439132531%_ + _%e132475132482%_)))) + (_%E132476132568%_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%e132438132445%_)) - (let ((_%e132441132453%_ + (gx#stx-pair? _%e132475132482%_)) + (let ((_%e132478132490%_ (let () (declare (not safe)) - (gx#syntax-e _%e132438132445%_)))) - (let ((_%hd132442132456%_ + (gx#syntax-e _%e132475132482%_)))) + (let ((_%hd132479132493%_ (let () (declare (not safe)) - (##car _%e132441132453%_))) - (_%tl132443132458%_ + (##car _%e132478132490%_))) + (_%tl132480132495%_ (let () (declare (not safe)) - (##cdr _%e132441132453%_)))) - (let* ((_%hd132461%_ _%hd132442132456%_) - (_%rest132463%_ _%tl132443132458%_)) - (if (_%is-e?132428%_ _%hd132461%_) - (let* ((_%e132464132471%_ _%rest132463%_) - (_%E132466132475%_ + (##cdr _%e132478132490%_)))) + (let* ((_%hd132498%_ _%hd132479132493%_) + (_%rest132500%_ _%tl132480132495%_)) + (if (_%is-e?132465%_ _%hd132498%_) + (let* ((_%e132501132508%_ _%rest132500%_) + (_%E132503132512%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _%stx132374%_ - _%e132427%_)))) - (_%E132465132489%_ + _%stx132411%_ + _%e132464%_)))) + (_%E132502132526%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e132464132471%_)) - (let ((_%e132467132479%_ + _%e132501132508%_)) + (let ((_%e132504132516%_ (let () (declare (not safe)) (gx#syntax-e - _%e132464132471%_)))) - (let ((_%hd132468132482%_ + _%e132501132508%_)))) + (let ((_%hd132505132519%_ (let () (declare (not safe)) - (##car _%e132467132479%_))) - (_%tl132469132484%_ + (##car _%e132504132516%_))) + (_%tl132506132521%_ (let () (declare (not safe)) - (##cdr _%e132467132479%_)))) - (let ((_%rest132487%_ - _%hd132468132482%_)) + (##cdr _%e132504132516%_)))) + (let ((_%rest132524%_ + _%hd132505132519%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132469132484%_)) - (_%recur132422%_ - _%rest132487%_ + _%tl132506132521%_)) + (_%recur132459%_ + _%rest132524%_ false) - (_%E132466132475%_))))) - (_%E132466132475%_))))) - (_%E132465132489%_)) - (let _%lp132493%_ ((_%rest132495%_ - _%rest132463%_) - (_%depth132496%_ '0)) - (let* ((_%e132497132504%_ _%rest132495%_) - (_%E132499132508%_ + (_%E132503132512%_))))) + (_%E132503132512%_))))) + (_%E132502132526%_)) + (let _%lp132530%_ ((_%rest132532%_ + _%rest132500%_) + (_%depth132533%_ '0)) + (let* ((_%e132534132541%_ _%rest132532%_) + (_%E132536132545%_ (lambda () - (if (fxpositive? _%depth132496%_) - (_%make-splice132421%_ - _%e132427%_ - _%depth132496%_ - (_%recur132422%_ - _%hd132461%_ - _%is-e?132428%_) - (_%recur132422%_ - _%rest132495%_ - _%is-e?132428%_)) - (_%make-cons132420%_ - (_%recur132422%_ - _%hd132461%_ - _%is-e?132428%_) - (_%recur132422%_ - _%rest132495%_ - _%is-e?132428%_))))) - (_%E132498132527%_ + (if (fxpositive? _%depth132533%_) + (_%make-splice132458%_ + _%e132464%_ + _%depth132533%_ + (_%recur132459%_ + _%hd132498%_ + _%is-e?132465%_) + (_%recur132459%_ + _%rest132532%_ + _%is-e?132465%_)) + (_%make-cons132457%_ + (_%recur132459%_ + _%hd132498%_ + _%is-e?132465%_) + (_%recur132459%_ + _%rest132532%_ + _%is-e?132465%_))))) + (_%E132535132564%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e132497132504%_)) - (let ((_%e132500132512%_ + _%e132534132541%_)) + (let ((_%e132537132549%_ (let () (declare (not safe)) (gx#syntax-e - _%e132497132504%_)))) - (let ((_%hd132501132515%_ + _%e132534132541%_)))) + (let ((_%hd132538132552%_ (let () (declare (not safe)) - (##car _%e132500132512%_))) - (_%tl132502132517%_ + (##car _%e132537132549%_))) + (_%tl132539132554%_ (let () (declare (not safe)) - (##cdr _%e132500132512%_)))) - (let* ((_%rest-hd132520%_ - _%hd132501132515%_) - (_%rest-tl132522%_ - _%tl132502132517%_)) - (if (_%is-e?132428%_ - _%rest-hd132520%_) - (_%lp132493%_ - _%rest-tl132522%_ + (##cdr _%e132537132549%_)))) + (let* ((_%rest-hd132557%_ + _%hd132538132552%_) + (_%rest-tl132559%_ + _%tl132539132554%_)) + (if (_%is-e?132465%_ + _%rest-hd132557%_) + (_%lp132530%_ + _%rest-tl132559%_ (let () (declare (not safe)) - (##fx+ _%depth132496%_ + (##fx+ _%depth132533%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1))) - (if (fxpositive? _%depth132496%_) - (_%make-splice132421%_ - _%e132427%_ - _%depth132496%_ - (_%recur132422%_ _%hd132461%_ _%is-e?132428%_) - (_%recur132422%_ _%rest132495%_ _%is-e?132428%_)) - (_%make-cons132420%_ - (_%recur132422%_ _%hd132461%_ _%is-e?132428%_) - (_%recur132422%_ _%rest132495%_ _%is-e?132428%_))))))) + (if (fxpositive? _%depth132533%_) + (_%make-splice132458%_ + _%e132464%_ + _%depth132533%_ + (_%recur132459%_ _%hd132498%_ _%is-e?132465%_) + (_%recur132459%_ _%rest132532%_ _%is-e?132465%_)) + (_%make-cons132457%_ + (_%recur132459%_ _%hd132498%_ _%is-e?132465%_) + (_%recur132459%_ _%rest132532%_ _%is-e?132465%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132499132508%_))))) - (_%E132498132527%_))))))) - (_%E132440132449%_))))) + (_%E132536132545%_))))) + (_%E132535132564%_))))))) + (_%E132477132486%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132439132531%_)) + (_%E132476132568%_)) (if (let () (declare (not safe)) (gx#stx-vector? - _%e132427%_)) - (let ((_g132954_ - (_%recur132422%_ + _%e132464%_)) + (let ((_g132991_ + (_%recur132459%_ (vector->list (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-unwrap__0 _%e132427%_))) - _%is-e?132428%_))) + (gx#stx-unwrap__0 _%e132464%_))) + _%is-e?132465%_))) (begin - (let ((_g132955_ + (let ((_g132992_ (let () (declare (not safe)) - (if (##values? _g132954_) - (##vector-length _g132954_) + (if (##values? _g132991_) + (##vector-length _g132991_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g132955_ 2))) - (error "Context expects 2 values" _g132955_))) - (let ((_%e132536%_ + (if (not (let () (declare (not safe)) (##fx= _g132992_ 2))) + (error "Context expects 2 values" _g132992_))) + (let ((_%e132573%_ (let () (declare (not safe)) - (##vector-ref _g132954_ 0))) - (_%vars132537%_ + (##vector-ref _g132991_ 0))) + (_%vars132574%_ (let () (declare (not safe)) - (##vector-ref _g132954_ 1)))) - (values (cons 'vector _%e132536%_) _%vars132537%_)))) + (##vector-ref _g132991_ 1)))) + (values (cons 'vector _%e132573%_) _%vars132574%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _%e132427%_)) - (let ((_g132956_ - (_%recur132422%_ + _%e132464%_)) + (let ((_g132993_ + (_%recur132459%_ (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-unwrap__0 _%e132427%_))) - _%is-e?132428%_))) + (gx#stx-unwrap__0 _%e132464%_))) + _%is-e?132465%_))) (begin - (let ((_g132957_ + (let ((_g132994_ (let () (declare (not safe)) - (if (##values? _g132956_) - (##vector-length _g132956_) + (if (##values? _g132993_) + (##vector-length _g132993_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132957_ 2))) - (error "Context expects 2 values" _g132957_))) - (let ((_%e132540%_ + (##fx= _g132994_ 2))) + (error "Context expects 2 values" _g132994_))) + (let ((_%e132577%_ (let () (declare (not safe)) - (##vector-ref _g132956_ 0))) - (_%vars132541%_ + (##vector-ref _g132993_ 0))) + (_%vars132578%_ (let () (declare (not safe)) - (##vector-ref _g132956_ 1)))) - (values (cons 'box _%e132540%_) _%vars132541%_)))) - (values (cons 'datum _%e132427%_) '())))))))))) + (##vector-ref _g132993_ 1)))) + (values (cons 'box _%e132577%_) _%vars132578%_)))) + (values (cons 'datum _%e132464%_) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g132958_ - (_%recur132422%_ _%e132418%_ gx#ellipsis?))) + (let ((_g132995_ + (_%recur132459%_ _%e132455%_ gx#ellipsis?))) (begin - (let ((_g132959_ + (let ((_g132996_ (let () (declare (not safe)) - (if (##values? _g132958_) - (##vector-length _g132958_) + (if (##values? _g132995_) + (##vector-length _g132995_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132959_ 2))) - (error "Context expects 2 values" _g132959_))) - (let ((_%tree132424%_ + (##fx= _g132996_ 2))) + (error "Context expects 2 values" _g132996_))) + (let ((_%tree132461%_ (let () (declare (not safe)) - (##vector-ref _g132958_ 0))) - (_%vars132425%_ + (##vector-ref _g132995_ 0))) + (_%vars132462%_ (let () (declare (not safe)) - (##vector-ref _g132958_ 1)))) - (if (null? _%vars132425%_) - _%tree132424%_ + (##vector-ref _g132995_ 1)))) + (if (null? _%vars132462%_) + _%tree132461%_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _%stx132374%_ - _%vars132425%_)))))))))) - (let* ((_%e132378132388%_ _%stx132374%_) - (_%E132380132392%_ + _%stx132411%_ + _%vars132462%_)))))))))) + (let* ((_%e132415132425%_ _%stx132411%_) + (_%E132417132429%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _%stx132374%_)))) - (_%E132379132414%_ + _%stx132411%_)))) + (_%E132416132451%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e132378132388%_)) - (let ((_%e132381132396%_ + (gx#stx-pair? _%e132415132425%_)) + (let ((_%e132418132433%_ (let () (declare (not safe)) - (gx#syntax-e _%e132378132388%_)))) - (let ((_%hd132382132399%_ + (gx#syntax-e _%e132415132425%_)))) + (let ((_%hd132419132436%_ (let () (declare (not safe)) - (##car _%e132381132396%_))) - (_%tl132383132401%_ + (##car _%e132418132433%_))) + (_%tl132420132438%_ (let () (declare (not safe)) - (##cdr _%e132381132396%_)))) + (##cdr _%e132418132433%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132383132401%_)) - (let ((_%e132384132404%_ + (gx#stx-pair? _%tl132420132438%_)) + (let ((_%e132421132441%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132383132401%_)))) - (let ((_%hd132385132407%_ + (gx#syntax-e _%tl132420132438%_)))) + (let ((_%hd132422132444%_ (let () (declare (not safe)) - (##car _%e132384132404%_))) - (_%tl132386132409%_ + (##car _%e132421132441%_))) + (_%tl132423132446%_ (let () (declare (not safe)) - (##cdr _%e132384132404%_)))) - (let ((_%form132412%_ _%hd132385132407%_)) + (##cdr _%e132421132441%_)))) + (let ((_%form132449%_ _%hd132422132444%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132386132409%_)) - (let ((__tmp132961 - (_%generate132376%_ - (_%parse132377%_ - _%form132412%_))) - (__tmp132960 + (gx#stx-null? _%tl132423132446%_)) + (let ((__tmp132998 + (_%generate132413%_ + (_%parse132414%_ + _%form132449%_))) + (__tmp132997 (let () (declare (not safe)) (gx#stx-source - _%stx132374%_)))) + _%stx132411%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp132961 - __tmp132960)) - (_%E132380132392%_))))) - (_%E132380132392%_)))) - (_%E132380132392%_))))) - (_%E132379132414%_))))) + __tmp132998 + __tmp132997)) + (_%E132417132429%_))))) + (_%E132417132429%_)))) + (_%E132417132429%_))))) + (_%E132416132451%_))))) (define gx#macro-expand-syntax-case__% - (lambda (_%stx131623%_ - _%identifier=?131624%_ - _%unwrap-e131625%_ - _%wrap-e131626%_) - (letrec ((_%generate-bindings131628%_ - (lambda (_%target132238%_ - _%ids132239%_ - _%clauses132240%_ - _%clause-ids132241%_ - _%E132242%_) - (letrec ((_%generate1132244%_ - (lambda (_%clause132341%_ - _%clause-id132342%_ - _%E132343%_) - (cons (cons _%clause-id132342%_ '()) - (cons (let ((__tmp132963 - (cons _%target132238%_ '())) - (__tmp132962 - (_%generate-clause131630%_ - _%target132238%_ - _%ids132239%_ - _%clause132341%_ - _%E132343%_))) + (lambda (_%stx131660%_ + _%identifier=?131661%_ + _%unwrap-e131662%_ + _%wrap-e131663%_) + (letrec ((_%generate-bindings131665%_ + (lambda (_%target132275%_ + _%ids132276%_ + _%clauses132277%_ + _%clause-ids132278%_ + _%E132279%_) + (letrec ((_%generate1132281%_ + (lambda (_%clause132378%_ + _%clause-id132379%_ + _%E132380%_) + (cons (cons _%clause-id132379%_ '()) + (cons (let ((__tmp133000 + (cons _%target132275%_ '())) + (__tmp132999 + (_%generate-clause131667%_ + _%target132275%_ + _%ids132276%_ + _%clause132378%_ + _%E132380%_))) (declare (not safe)) (gx#core-list 'lambda% - __tmp132963 - __tmp132962)) + __tmp133000 + __tmp132999)) '()))))) - (let _%lp132246%_ ((_%rest132248%_ _%clauses132240%_) - (_%rest-ids132249%_ - _%clause-ids132241%_) - (_%bindings132250%_ '())) - (let* ((_%rest132251132259%_ _%rest132248%_) - (_%else132253132267%_ - (lambda () _%bindings132250%_)) - (_%K132255132329%_ - (lambda (_%rest132270%_ _%clause132271%_) - (let* ((_%rest-ids132272132279%_ - _%rest-ids132249%_) - (_%E132274132283%_ + (let _%lp132283%_ ((_%rest132285%_ _%clauses132277%_) + (_%rest-ids132286%_ + _%clause-ids132278%_) + (_%bindings132287%_ '())) + (let* ((_%rest132288132296%_ _%rest132285%_) + (_%else132290132304%_ + (lambda () _%bindings132287%_)) + (_%K132292132366%_ + (lambda (_%rest132307%_ _%clause132308%_) + (let* ((_%rest-ids132309132316%_ + _%rest-ids132286%_) + (_%E132311132320%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-ids132272132279%_ + _%rest-ids132309132316%_ '([clause-id . rest-ids]))) '#!void)) - (_%K132275132317%_ - (lambda (_%rest-ids132286%_ - _%clause-id132287%_) - (let* ((_%rest-ids132288132296%_ - _%rest-ids132286%_) - (_%else132290132304%_ + (_%K132312132354%_ + (lambda (_%rest-ids132323%_ + _%clause-id132324%_) + (let* ((_%rest-ids132325132333%_ + _%rest-ids132323%_) + (_%else132327132341%_ (lambda () - (cons (_%generate1132244%_ - _%clause132271%_ - _%clause-id132287%_ - _%E132242%_) - _%bindings132250%_))) - (_%K132292132309%_ - (lambda (_%next-clause-id132307%_) - (_%lp132246%_ - _%rest132270%_ - _%rest-ids132286%_ - (cons (_%generate1132244%_ - _%clause132271%_ - _%clause-id132287%_ - _%next-clause-id132307%_) - _%bindings132250%_))))) - (if (pair? _%rest-ids132288132296%_) - (let* ((_%hd132293132312%_ + (cons (_%generate1132281%_ + _%clause132308%_ + _%clause-id132324%_ + _%E132279%_) + _%bindings132287%_))) + (_%K132329132346%_ + (lambda (_%next-clause-id132344%_) + (_%lp132283%_ + _%rest132307%_ + _%rest-ids132323%_ + (cons (_%generate1132281%_ + _%clause132308%_ + _%clause-id132324%_ + _%next-clause-id132344%_) + _%bindings132287%_))))) + (if (pair? _%rest-ids132325132333%_) + (let* ((_%hd132330132349%_ (let () (declare (not safe)) - (##car _%rest-ids132288132296%_))) - (_%next-clause-id132315%_ - _%hd132293132312%_)) - (_%K132292132309%_ - _%next-clause-id132315%_)) - (_%else132290132304%_)))))) - (if (pair? _%rest-ids132272132279%_) - (let ((_%hd132276132320%_ + (##car _%rest-ids132325132333%_))) + (_%next-clause-id132352%_ + _%hd132330132349%_)) + (_%K132329132346%_ + _%next-clause-id132352%_)) + (_%else132327132341%_)))))) + (if (pair? _%rest-ids132309132316%_) + (let ((_%hd132313132357%_ (let () (declare (not safe)) - (##car _%rest-ids132272132279%_))) - (_%tl132277132322%_ + (##car _%rest-ids132309132316%_))) + (_%tl132314132359%_ (let () (declare (not safe)) - (##cdr _%rest-ids132272132279%_)))) - (let* ((_%clause-id132325%_ - _%hd132276132320%_) - (_%rest-ids132327%_ - _%tl132277132322%_)) - (_%K132275132317%_ - _%rest-ids132327%_ - _%clause-id132325%_))) - (_%E132274132283%_)))))) - (if (pair? _%rest132251132259%_) - (let ((_%hd132256132332%_ + (##cdr _%rest-ids132309132316%_)))) + (let* ((_%clause-id132362%_ + _%hd132313132357%_) + (_%rest-ids132364%_ + _%tl132314132359%_)) + (_%K132312132354%_ + _%rest-ids132364%_ + _%clause-id132362%_))) + (_%E132311132320%_)))))) + (if (pair? _%rest132288132296%_) + (let ((_%hd132293132369%_ (let () (declare (not safe)) - (##car _%rest132251132259%_))) - (_%tl132257132334%_ + (##car _%rest132288132296%_))) + (_%tl132294132371%_ (let () (declare (not safe)) - (##cdr _%rest132251132259%_)))) - (let* ((_%clause132337%_ _%hd132256132332%_) - (_%rest132339%_ _%tl132257132334%_)) - (_%K132255132329%_ - _%rest132339%_ - _%clause132337%_))) - (_%else132253132267%_))))))) - (_%generate-body131629%_ - (lambda (_%bindings132198%_ _%body132199%_) - (let _%recur132201%_ ((_%rest132203%_ _%bindings132198%_)) - (let* ((_%rest132204132212%_ _%rest132203%_) - (_%else132206132220%_ (lambda () _%body132199%_)) - (_%K132208132226%_ - (lambda (_%rest132223%_ _%hd132224%_) - (let ((__tmp132965 (cons _%hd132224%_ '())) - (__tmp132964 - (_%recur132201%_ _%rest132223%_))) + (##cdr _%rest132288132296%_)))) + (let* ((_%clause132374%_ _%hd132293132369%_) + (_%rest132376%_ _%tl132294132371%_)) + (_%K132292132366%_ + _%rest132376%_ + _%clause132374%_))) + (_%else132290132304%_))))))) + (_%generate-body131666%_ + (lambda (_%bindings132235%_ _%body132236%_) + (let _%recur132238%_ ((_%rest132240%_ _%bindings132235%_)) + (let* ((_%rest132241132249%_ _%rest132240%_) + (_%else132243132257%_ (lambda () _%body132236%_)) + (_%K132245132263%_ + (lambda (_%rest132260%_ _%hd132261%_) + (let ((__tmp133002 (cons _%hd132261%_ '())) + (__tmp133001 + (_%recur132238%_ _%rest132260%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp132965 - __tmp132964))))) - (if (pair? _%rest132204132212%_) - (let ((_%hd132209132229%_ + __tmp133002 + __tmp133001))))) + (if (pair? _%rest132241132249%_) + (let ((_%hd132246132266%_ (let () (declare (not safe)) - (##car _%rest132204132212%_))) - (_%tl132210132231%_ + (##car _%rest132241132249%_))) + (_%tl132247132268%_ (let () (declare (not safe)) - (##cdr _%rest132204132212%_)))) - (let* ((_%hd132234%_ _%hd132209132229%_) - (_%rest132236%_ _%tl132210132231%_)) - (_%K132208132226%_ - _%rest132236%_ - _%hd132234%_))) - (_%else132206132220%_)))))) - (_%generate-clause131630%_ - (lambda (_%target132061%_ - _%ids132062%_ - _%clause132063%_ - _%E132064%_) - (letrec ((_%generate1132066%_ - (lambda (_%hd132153%_ - _%fender132154%_ - _%body132155%_) - (let ((_g132966_ - (_%parse-clause131632%_ - _%hd132153%_ - _%ids132062%_))) + (##cdr _%rest132241132249%_)))) + (let* ((_%hd132271%_ _%hd132246132266%_) + (_%rest132273%_ _%tl132247132268%_)) + (_%K132245132263%_ + _%rest132273%_ + _%hd132271%_))) + (_%else132243132257%_)))))) + (_%generate-clause131667%_ + (lambda (_%target132098%_ + _%ids132099%_ + _%clause132100%_ + _%E132101%_) + (letrec ((_%generate1132103%_ + (lambda (_%hd132190%_ + _%fender132191%_ + _%body132192%_) + (let ((_g133003_ + (_%parse-clause131669%_ + _%hd132190%_ + _%ids132099%_))) (begin - (let ((_g132967_ + (let ((_g133004_ (let () (declare (not safe)) - (if (##values? _g132966_) - (##vector-length _g132966_) + (if (##values? _g133003_) + (##vector-length _g133003_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132967_ 2))) + (##fx= _g133004_ 2))) (error "Context expects 2 values" - _g132967_))) - (let ((_%e132157%_ + _g133004_))) + (let ((_%e132194%_ (let () (declare (not safe)) - (##vector-ref _g132966_ 0))) - (_%mvars132158%_ + (##vector-ref _g133003_ 0))) + (_%mvars132195%_ (let () (declare (not safe)) - (##vector-ref _g132966_ 1)))) - (let* ((_%pvars132160%_ + (##vector-ref _g133003_ 1)))) + (let* ((_%pvars132197%_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _%mvars132158%_)))) - (_%E132162%_ - (cons _%E132064%_ - (cons _%target132061%_ + _%mvars132195%_)))) + (_%E132199%_ + (cons _%E132101%_ + (cons _%target132098%_ '()))) - (_%K132195%_ - (let ((__tmp132968 - (let ((__tmp132970 - (map (lambda (_%mvar132164%_ + (_%K132232%_ + (let ((__tmp133005 + (let ((__tmp133007 + (map (lambda (_%mvar132201%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pvar132165%_) - (let* ((_%mvar132166132173%_ _%mvar132164%_) - (_%E132168132177%_ + _%pvar132202%_) + (let* ((_%mvar132203132210%_ _%mvar132201%_) + (_%E132205132214%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mvar132166132173%_ + _%mvar132203132210%_ '([id . depth]))) '#!void)) - (_%K132169132183%_ - (lambda (_%depth132180%_ _%id132181%_) - (cons _%id132181%_ - (cons (let ((__tmp132972 + (_%K132206132220%_ + (lambda (_%depth132217%_ _%id132218%_) + (cons _%id132218%_ + (cons (let ((__tmp133009 (let () (declare (not safe)) (gx#core-list 'quote - _%id132181%_))) - (__tmp132971 + _%id132218%_))) + (__tmp133008 (let () (declare (not safe)) (gx#core-list 'quote - _%pvar132165%_)))) + _%pvar132202%_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp132972 - __tmp132971 - _%depth132180%_)) + __tmp133009 + __tmp133008 + _%depth132217%_)) '()))))) - (if (pair? _%mvar132166132173%_) - (let ((_%hd132170132186%_ + (if (pair? _%mvar132203132210%_) + (let ((_%hd132207132223%_ (let () (declare (not safe)) - (##car _%mvar132166132173%_))) - (_%tl132171132188%_ + (##car _%mvar132203132210%_))) + (_%tl132208132225%_ (let () (declare (not safe)) - (##cdr _%mvar132166132173%_)))) - (let* ((_%id132191%_ _%hd132170132186%_) - (_%depth132193%_ _%tl132171132188%_)) - (_%K132169132183%_ - _%depth132193%_ - _%id132191%_))) - (_%E132168132177%_)))) - _%mvars132158%_ - _%pvars132160%_)) - (__tmp132969 - (if (eq? _%fender132154%_ '#t) - _%body132155%_ + (##cdr _%mvar132203132210%_)))) + (let* ((_%id132228%_ _%hd132207132223%_) + (_%depth132230%_ _%tl132208132225%_)) + (_%K132206132220%_ + _%depth132230%_ + _%id132228%_))) + (_%E132205132214%_)))) + _%mvars132195%_ + _%pvars132197%_)) + (__tmp133006 + (if (eq? _%fender132191%_ '#t) + _%body132192%_ (let () (declare (not safe)) (gx#core-list 'if - _%fender132154%_ - _%body132155%_ - _%E132162%_))))) + _%fender132191%_ + _%body132192%_ + _%E132199%_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp132970 __tmp132969)))) + (gx#core-list 'let-syntax __tmp133007 __tmp133006)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _%pvars132160%_ - __tmp132968)))) - (_%generate-match131631%_ - _%hd132153%_ - _%target132061%_ - _%e132157%_ - _%mvars132158%_ - _%K132195%_ - _%E132162%_)))))))) - (let* ((_%e132067132087%_ _%clause132063%_) - (_%E132076132091%_ + _%pvars132197%_ + __tmp133005)))) + (_%generate-match131668%_ + _%hd132190%_ + _%target132098%_ + _%e132194%_ + _%mvars132195%_ + _%K132232%_ + _%E132199%_)))))))) + (let* ((_%e132104132124%_ _%clause132100%_) + (_%E132113132128%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132067132087%_)))) - (_%E132069132125%_ + _%e132104132124%_)))) + (_%E132106132162%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e132067132087%_)) - (let ((_%e132077132095%_ + (gx#stx-pair? _%e132104132124%_)) + (let ((_%e132114132132%_ (let () (declare (not safe)) - (gx#syntax-e _%e132067132087%_)))) - (let ((_%hd132078132098%_ + (gx#syntax-e _%e132104132124%_)))) + (let ((_%hd132115132135%_ (let () (declare (not safe)) - (##car _%e132077132095%_))) - (_%tl132079132100%_ + (##car _%e132114132132%_))) + (_%tl132116132137%_ (let () (declare (not safe)) - (##cdr _%e132077132095%_)))) - (let ((_%hd132103%_ - _%hd132078132098%_)) + (##cdr _%e132114132132%_)))) + (let ((_%hd132140%_ + _%hd132115132135%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132079132100%_)) - (let ((_%e132080132105%_ + _%tl132116132137%_)) + (let ((_%e132117132142%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132079132100%_)))) - (let ((_%hd132081132108%_ + _%tl132116132137%_)))) + (let ((_%hd132118132145%_ (let () (declare (not safe)) - (##car _%e132080132105%_))) - (_%tl132082132110%_ + (##car _%e132117132142%_))) + (_%tl132119132147%_ (let () (declare (not safe)) - (##cdr _%e132080132105%_)))) - (let ((_%fender132113%_ - _%hd132081132108%_)) + (##cdr _%e132117132142%_)))) + (let ((_%fender132150%_ + _%hd132118132145%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132082132110%_)) - (let ((_%e132083132115%_ + _%tl132119132147%_)) + (let ((_%e132120132152%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl132082132110%_)))) - (let ((_%hd132084132118%_ + (gx#syntax-e _%tl132119132147%_)))) + (let ((_%hd132121132155%_ (let () (declare (not safe)) - (##car _%e132083132115%_))) - (_%tl132085132120%_ + (##car _%e132120132152%_))) + (_%tl132122132157%_ (let () (declare (not safe)) - (##cdr _%e132083132115%_)))) - (let ((_%body132123%_ _%hd132084132118%_)) + (##cdr _%e132120132152%_)))) + (let ((_%body132160%_ _%hd132121132155%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132085132120%_)) - (_%generate1132066%_ - _%hd132103%_ - _%fender132113%_ - _%body132123%_) - (_%E132076132091%_))))) - (_%E132076132091%_))))) + (gx#stx-null? _%tl132122132157%_)) + (_%generate1132103%_ + _%hd132140%_ + _%fender132150%_ + _%body132160%_) + (_%E132113132128%_))))) + (_%E132113132128%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132076132091%_))))) - (_%E132076132091%_)))) - (_%E132068132149%_ + (_%E132113132128%_))))) + (_%E132113132128%_)))) + (_%E132105132186%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e132067132087%_)) - (let ((_%e132070132129%_ + (gx#stx-pair? _%e132104132124%_)) + (let ((_%e132107132166%_ (let () (declare (not safe)) - (gx#syntax-e _%e132067132087%_)))) - (let ((_%hd132071132132%_ + (gx#syntax-e _%e132104132124%_)))) + (let ((_%hd132108132169%_ (let () (declare (not safe)) - (##car _%e132070132129%_))) - (_%tl132072132134%_ + (##car _%e132107132166%_))) + (_%tl132109132171%_ (let () (declare (not safe)) - (##cdr _%e132070132129%_)))) - (let ((_%hd132137%_ - _%hd132071132132%_)) + (##cdr _%e132107132166%_)))) + (let ((_%hd132174%_ + _%hd132108132169%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132072132134%_)) - (let ((_%e132073132139%_ + _%tl132109132171%_)) + (let ((_%e132110132176%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132072132134%_)))) - (let ((_%hd132074132142%_ + _%tl132109132171%_)))) + (let ((_%hd132111132179%_ (let () (declare (not safe)) - (##car _%e132073132139%_))) - (_%tl132075132144%_ + (##car _%e132110132176%_))) + (_%tl132112132181%_ (let () (declare (not safe)) - (##cdr _%e132073132139%_)))) - (let ((_%body132147%_ - _%hd132074132142%_)) + (##cdr _%e132110132176%_)))) + (let ((_%body132184%_ + _%hd132111132179%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132075132144%_)) - (_%generate1132066%_ - _%hd132137%_ + _%tl132112132181%_)) + (_%generate1132103%_ + _%hd132174%_ '#t - _%body132147%_) - (_%E132069132125%_))))) - (_%E132069132125%_))))) - (_%E132069132125%_))))) - (_%E132068132149%_))))) - (_%generate-match131631%_ - (lambda (_%where131810%_ - _%target131811%_ - _%hd131812%_ - _%mvars131813%_ - _%K131814%_ - _%E131815%_) - (letrec ((_%BUG131817%_ - (lambda (_%q132059%_) + _%body132184%_) + (_%E132106132162%_))))) + (_%E132106132162%_))))) + (_%E132106132162%_))))) + (_%E132105132186%_))))) + (_%generate-match131668%_ + (lambda (_%where131847%_ + _%target131848%_ + _%hd131849%_ + _%mvars131850%_ + _%K131851%_ + _%E131852%_) + (letrec ((_%BUG131854%_ + (lambda (_%q132096%_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _%stx131623%_ - _%hd131812%_ - _%q132059%_)))) - (_%recur131818%_ - (lambda (_%e131909%_ - _%vars131910%_ - _%target131911%_ - _%E131912%_ - _%k131913%_) - (let* ((_%e131914131921%_ _%e131909%_) - (_%E131916131925%_ + _%stx131660%_ + _%hd131849%_ + _%q132096%_)))) + (_%recur131855%_ + (lambda (_%e131946%_ + _%vars131947%_ + _%target131948%_ + _%E131949%_ + _%k131950%_) + (let* ((_%e131951131958%_ _%e131946%_) + (_%E131953131962%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131914131921%_ + _%e131951131958%_ '([tag . body]))) '#!void)) - (_%K131917132047%_ - (lambda (_%body131928%_ _%tag131929%_) - (let ((_%$e131931%_ _%tag131929%_)) - (if (eq? 'any _%$e131931%_) - (_%k131913%_ _%vars131910%_) - (if (eq? 'id _%$e131931%_) - (let ((__tmp132977 + (_%K131954132084%_ + (lambda (_%body131965%_ _%tag131966%_) + (let ((_%$e131968%_ _%tag131966%_)) + (if (eq? 'any _%$e131968%_) + (_%k131950%_ _%vars131947%_) + (if (eq? 'id _%$e131968%_) + (let ((__tmp133014 (let () (declare (not safe)) (gx#core-list 'identifier? - _%target131911%_))) - (__tmp132973 - (let ((__tmp132975 + _%target131948%_))) + (__tmp133010 + (let ((__tmp133012 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp132976 + (let ((__tmp133013 (let () (declare (not safe)) (gx#core-list - _%wrap-e131626%_ - _%body131928%_)))) + _%wrap-e131663%_ + _%body131965%_)))) (declare (not safe)) (gx#core-list - _%identifier=?131624%_ - __tmp132976 - _%target131911%_))) - (__tmp132974 (_%k131913%_ _%vars131910%_))) + _%identifier=?131661%_ + __tmp133013 + _%target131948%_))) + (__tmp133011 (_%k131950%_ _%vars131947%_))) (declare (not safe)) - (gx#core-list 'if __tmp132975 __tmp132974 _%E131912%_)))) + (gx#core-list 'if __tmp133012 __tmp133011 _%E131949%_)))) (declare (not safe)) - (gx#core-list 'if __tmp132977 __tmp132973 _%E131912%_)) + (gx#core-list 'if __tmp133014 __tmp133010 _%E131949%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (eq? 'var _%$e131931%_) - (_%k131913%_ - (cons (cons _%body131928%_ + (if (eq? 'var _%$e131968%_) + (_%k131950%_ + (cons (cons _%body131965%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%target131911%_) - _%vars131910%_)) - (if (eq? 'cons _%$e131931%_) - (let ((_%$e131934%_ + _%target131948%_) + _%vars131947%_)) + (if (eq? 'cons _%$e131968%_) + (let ((_%$e131971%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$hd131935%_ + (_%$hd131972%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl131936%_ + (_%$tl131973%_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp132983 + (let ((__tmp133020 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _%target131911%_))) - (__tmp132978 - (let ((__tmp132982 - (cons (cons (cons _%$e131934%_ '()) + (gx#core-list 'stx-pair? _%target131948%_))) + (__tmp133015 + (let ((__tmp133019 + (cons (cons (cons _%$e131971%_ '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e131625%_ - _%target131911%_)) + _%unwrap-e131662%_ + _%target131948%_)) '())) '())) - (__tmp132979 - (let ((__tmp132981 - (cons (cons (cons _%$hd131935%_ '()) + (__tmp133016 + (let ((__tmp133018 + (cons (cons (cons _%$hd131972%_ '()) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#core-list '##car _%$e131934%_)) + (gx#core-list '##car _%$e131971%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%$tl131936%_ + (cons (cons (cons _%$tl131973%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##cdr _%$e131934%_)) + (gx#core-list '##cdr _%$e131971%_)) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132980 - (let* ((_%body131937131944%_ - _%body131928%_) - (_%E131939131948%_ + (__tmp133017 + (let* ((_%body131974131981%_ + _%body131965%_) + (_%E131976131985%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body131937131944%_ + _%body131974131981%_ '([hd . tl]))) '#!void)) - (_%K131940131956%_ - (lambda (_%tl131951%_ - _%hd131952%_) - (_%recur131818%_ - _%hd131952%_ - _%vars131910%_ - _%$hd131935%_ - _%E131912%_ - (lambda (_%vars131954%_) - (_%recur131818%_ - _%tl131951%_ - _%vars131954%_ - _%$tl131936%_ - _%E131912%_ - _%k131913%_)))))) - (if (pair? _%body131937131944%_) - (let ((_%hd131941131959%_ + (_%K131977131993%_ + (lambda (_%tl131988%_ + _%hd131989%_) + (_%recur131855%_ + _%hd131989%_ + _%vars131947%_ + _%$hd131972%_ + _%E131949%_ + (lambda (_%vars131991%_) + (_%recur131855%_ + _%tl131988%_ + _%vars131991%_ + _%$tl131973%_ + _%E131949%_ + _%k131950%_)))))) + (if (pair? _%body131974131981%_) + (let ((_%hd131978131996%_ (let () (declare (not safe)) - (##car _%body131937131944%_))) - (_%tl131942131961%_ + (##car _%body131974131981%_))) + (_%tl131979131998%_ (let () (declare (not safe)) - (##cdr _%body131937131944%_)))) - (let* ((_%hd131964%_ - _%hd131941131959%_) - (_%tl131966%_ - _%tl131942131961%_)) - (_%K131940131956%_ - _%tl131966%_ - _%hd131964%_))) - (_%E131939131948%_))))) + (##cdr _%body131974131981%_)))) + (let* ((_%hd132001%_ + _%hd131978131996%_) + (_%tl132003%_ + _%tl131979131998%_)) + (_%K131977131993%_ + _%tl132003%_ + _%hd132001%_))) + (_%E131976131985%_))))) (declare (not safe)) (gx#core-list 'let-values - __tmp132981 - __tmp132980)))) + __tmp133018 + __tmp133017)))) (declare (not safe)) (gx#core-list 'let-values - __tmp132982 - __tmp132979)))) + __tmp133019 + __tmp133016)))) (declare (not safe)) (gx#core-list 'if - __tmp132983 - __tmp132978 - _%E131912%_))) - (if (eq? 'splice _%$e131931%_) - (let* ((_%body131967131974%_ _%body131928%_) - (_%E131969131978%_ + __tmp133020 + __tmp133015 + _%E131949%_))) + (if (eq? 'splice _%$e131968%_) + (let* ((_%body132004132011%_ _%body131965%_) + (_%E132006132015%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body131967131974%_ + _%body132004132011%_ '([hd . tl]))) '#!void)) - (_%K131970132029%_ - (lambda (_%tl131981%_ _%hd131982%_) - (let* ((_%rlen131984%_ - (_%splice-rlen131819%_ _%tl131981%_)) - (_%$target131986%_ + (_%K132007132066%_ + (lambda (_%tl132018%_ _%hd132019%_) + (let* ((_%rlen132021%_ + (_%splice-rlen131856%_ _%tl132018%_)) + (_%$target132023%_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_%$hd131988%_ + (_%$hd132025%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl131990%_ + (_%$tl132027%_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_%$lp131992%_ + (_%$lp132029%_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_%$lp-e131994%_ + (_%$lp-e132031%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$lp-hd131996%_ + (_%$lp-hd132033%_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_%$lp-tl131998%_ + (_%$lp-tl132035%_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_%svars132000%_ - (_%splice-vars131820%_ _%hd131982%_)) - (_%lvars132002%_ + (_%svars132037%_ + (_%splice-vars131857%_ _%hd132019%_)) + (_%lvars132039%_ (let () (declare (not safe)) - (gx#gentemps _%svars132000%_))) - (_%tlvars132004%_ + (gx#gentemps _%svars132037%_))) + (_%tlvars132041%_ (let () (declare (not safe)) - (gx#gentemps _%svars132000%_))) - (_%linit132008%_ - (map (lambda (_%var132006%_) + (gx#gentemps _%svars132037%_))) + (_%linit132045%_ + (map (lambda (_%var132043%_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _%lvars132002%_))) - (letrec ((_%make-loop132011%_ - (lambda (_%vars132015%_) - (let ((__tmp132985 - (cons (cons (cons _%$lp131992%_ + _%lvars132039%_))) + (letrec ((_%make-loop132048%_ + (lambda (_%vars132052%_) + (let ((__tmp133022 + (cons (cons (cons _%$lp132029%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp132998 - (cons _%$hd131988%_ _%lvars132002%_)) - (__tmp132986 - (let ((__tmp132997 + (cons (let ((__tmp133035 + (cons _%$hd132025%_ _%lvars132039%_)) + (__tmp133023 + (let ((__tmp133034 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _%$hd131988%_))) - (__tmp132991 - (let ((__tmp132996 - (cons (cons (cons _%$lp-e131994%_ + _%$hd132025%_))) + (__tmp133028 + (let ((__tmp133033 + (cons (cons (cons _%$lp-e132031%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e131625%_ - _%$hd131988%_)) + _%unwrap-e131662%_ + _%$hd132025%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132992 - (let ((__tmp132995 - (cons (cons (cons _%$lp-hd131996%_ + (__tmp133029 + (let ((__tmp133032 + (cons (cons (cons _%$lp-hd132033%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##car _%$lp-e131994%_)) + (gx#core-list '##car _%$lp-e132031%_)) '())) - (cons (cons (cons _%$lp-tl131998%_ '()) + (cons (cons (cons _%$lp-tl132035%_ '()) (cons (let () (declare (not safe)) (gx#core-list '##cdr - _%$lp-e131994%_)) + _%$lp-e132031%_)) '())) '()))) - (__tmp132993 - (_%recur131818%_ - _%hd131982%_ + (__tmp133030 + (_%recur131855%_ + _%hd132019%_ '() - _%$lp-hd131996%_ - _%E131912%_ - (lambda (_%hdvars132017%_) - (cons _%$lp131992%_ - (cons _%$lp-tl131998%_ - (map (lambda (_%svar132019%_ - _%lvar132020%_) - (let ((__tmp132994 + _%$lp-hd132033%_ + _%E131949%_ + (lambda (_%hdvars132054%_) + (cons _%$lp132029%_ + (cons _%$lp-tl132035%_ + (map (lambda (_%svar132056%_ + _%lvar132057%_) + (let ((__tmp133031 (let () (declare (not safe)) (agetq__% - _%svar132019%_ - _%hdvars132017%_ - _%BUG131817%_)))) + _%svar132056%_ + _%hdvars132054%_ + _%BUG131854%_)))) (declare (not safe)) (gx#core-list 'cons - __tmp132994 - _%lvar132020%_))) - _%svars132000%_ - _%lvars132002%_))))))) + __tmp133031 + _%lvar132057%_))) + _%svars132037%_ + _%lvars132039%_))))))) (declare (not safe)) - (gx#core-list 'let-values __tmp132995 __tmp132993)))) + (gx#core-list 'let-values __tmp133032 __tmp133030)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp132996 - __tmp132992))) - (__tmp132987 - (let ((__tmp132990 - (map (lambda (_%lvar132022%_ + __tmp133033 + __tmp133029))) + (__tmp133024 + (let ((__tmp133027 + (map (lambda (_%lvar132059%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar132023%_) - (cons (cons _%tlvar132023%_ '()) + _%tlvar132060%_) + (cons (cons _%tlvar132060%_ '()) (cons (let () (declare (not safe)) - (gx#core-list 'reverse _%lvar132022%_)) + (gx#core-list 'reverse _%lvar132059%_)) '()))) - _%lvars132002%_ - _%tlvars132004%_)) + _%lvars132039%_ + _%tlvars132041%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132988 - (_%k131913%_ - (let ((__tmp132989 - (lambda (_%svar132025%_ + (__tmp133025 + (_%k131950%_ + (let ((__tmp133026 + (lambda (_%svar132062%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar132026%_ - _%r132027%_) - (cons (cons _%svar132025%_ _%tlvar132026%_) - _%r132027%_)))) + _%tlvar132063%_ + _%r132064%_) + (cons (cons _%svar132062%_ _%tlvar132063%_) + _%r132064%_)))) (declare (not safe)) (__foldl2 - __tmp132989 - _%vars132015%_ - _%svars132000%_ - _%tlvars132004%_))))) + __tmp133026 + _%vars132052%_ + _%svars132037%_ + _%tlvars132041%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp132990 - __tmp132988)))) + __tmp133027 + __tmp133025)))) (declare (not safe)) (gx#core-list 'if - __tmp132997 - __tmp132991 - __tmp132987)))) + __tmp133034 + __tmp133028 + __tmp133024)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp132998 - __tmp132986)) + __tmp133035 + __tmp133023)) '())) '())) - (__tmp132984 - (cons _%$lp131992%_ (cons _%$target131986%_ _%linit132008%_)))) + (__tmp133021 + (cons _%$lp132029%_ (cons _%$target132023%_ _%linit132045%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp132985 - __tmp132984))))) - (let ((_%body132013%_ - (let ((__tmp133000 - (cons (cons (cons _%$target131986%_ + __tmp133022 + __tmp133021))))) + (let ((_%body132050%_ + (let ((__tmp133037 + (cons (cons (cons _%$target132023%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tl131990%_ '())) + (cons _%$tl132027%_ '())) (cons (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _%target131911%_ - _%rlen131984%_)) + _%target131948%_ + _%rlen132021%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp132999 - (_%recur131818%_ - _%tl131981%_ - _%vars131910%_ - _%$tl131990%_ - _%E131912%_ - _%make-loop132011%_))) + (__tmp133036 + (_%recur131855%_ + _%tl132018%_ + _%vars131947%_ + _%$tl132027%_ + _%E131949%_ + _%make-loop132048%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp133000 - __tmp132999)))) - (let ((__tmp133004 + __tmp133037 + __tmp133036)))) + (let ((__tmp133041 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _%target131911%_))) - (__tmp133001 - (if (zero? _%rlen131984%_) - _%body132013%_ - (let ((__tmp133002 - (let ((__tmp133003 + _%target131948%_))) + (__tmp133038 + (if (zero? _%rlen132021%_) + _%body132050%_ + (let ((__tmp133039 + (let ((__tmp133040 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _%target131911%_)))) + (gx#core-list 'stx-length _%target131948%_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp133003 _%rlen131984%_)))) + (gx#core-list 'fx>= __tmp133040 _%rlen132021%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp133002 - _%body132013%_ - _%E131912%_))))) + __tmp133039 + _%body132050%_ + _%E131949%_))))) (declare (not safe)) (gx#core-list 'if - __tmp133004 - __tmp133001 - _%E131912%_)))))))) - (if (pair? _%body131967131974%_) - (let ((_%hd131971132032%_ + __tmp133041 + __tmp133038 + _%E131949%_)))))))) + (if (pair? _%body132004132011%_) + (let ((_%hd132008132069%_ (let () (declare (not safe)) - (##car _%body131967131974%_))) - (_%tl131972132034%_ + (##car _%body132004132011%_))) + (_%tl132009132071%_ (let () (declare (not safe)) - (##cdr _%body131967131974%_)))) - (let* ((_%hd132037%_ _%hd131971132032%_) - (_%tl132039%_ _%tl131972132034%_)) - (_%K131970132029%_ - _%tl132039%_ - _%hd132037%_))) - (_%E131969131978%_))) - (if (eq? 'null _%$e131931%_) - (let ((__tmp133006 + (##cdr _%body132004132011%_)))) + (let* ((_%hd132074%_ _%hd132008132069%_) + (_%tl132076%_ _%tl132009132071%_)) + (_%K132007132066%_ + _%tl132076%_ + _%hd132074%_))) + (_%E132006132015%_))) + (if (eq? 'null _%$e131968%_) + (let ((__tmp133043 (let () (declare (not safe)) (gx#core-list 'stx-null? - _%target131911%_))) - (__tmp133005 (_%k131913%_ _%vars131910%_))) + _%target131948%_))) + (__tmp133042 (_%k131950%_ _%vars131947%_))) (declare (not safe)) (gx#core-list 'if - __tmp133006 - __tmp133005 - _%E131912%_)) - (if (eq? 'vector _%$e131931%_) - (let ((_%$e132041%_ + __tmp133043 + __tmp133042 + _%E131949%_)) + (if (eq? 'vector _%$e131968%_) + (let ((_%$e132078%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp133011 + (let ((__tmp133048 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _%target131911%_))) - (__tmp133007 - (let ((__tmp133009 - (cons (cons (cons _%$e132041%_ + _%target131948%_))) + (__tmp133044 + (let ((__tmp133046 + (cons (cons (cons _%$e132078%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp133010 + (cons (let ((__tmp133047 (let () (declare (not safe)) (gx#core-list - _%unwrap-e131625%_ - _%target131911%_)))) + _%unwrap-e131662%_ + _%target131948%_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp133010)) + (gx#core-list 'vector->list __tmp133047)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133008 - (_%recur131818%_ - _%body131928%_ - _%vars131910%_ - _%$e132041%_ - _%E131912%_ - _%k131913%_))) + (__tmp133045 + (_%recur131855%_ + _%body131965%_ + _%vars131947%_ + _%$e132078%_ + _%E131949%_ + _%k131950%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp133009 - __tmp133008)))) + __tmp133046 + __tmp133045)))) (declare (not safe)) (gx#core-list 'if - __tmp133011 - __tmp133007 - _%E131912%_))) - (if (eq? 'box _%$e131931%_) - (let ((_%$e132043%_ + __tmp133048 + __tmp133044 + _%E131949%_))) + (if (eq? 'box _%$e131968%_) + (let ((_%$e132080%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp133016 + (let ((__tmp133053 (let () (declare (not safe)) (gx#core-list 'stx-box? - _%target131911%_))) - (__tmp133012 - (let ((__tmp133014 - (cons (cons (cons _%$e132043%_ + _%target131948%_))) + (__tmp133049 + (let ((__tmp133051 + (cons (cons (cons _%$e132080%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp133015 + (cons (let ((__tmp133052 (let () (declare (not safe)) (gx#core-list - _%unwrap-e131625%_ - _%target131911%_)))) + _%unwrap-e131662%_ + _%target131948%_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp133015)) + (gx#core-list 'unbox __tmp133052)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133013 - (_%recur131818%_ - _%body131928%_ - _%vars131910%_ - _%$e132043%_ - _%E131912%_ - _%k131913%_))) + (__tmp133050 + (_%recur131855%_ + _%body131965%_ + _%vars131947%_ + _%$e132080%_ + _%E131949%_ + _%k131950%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp133014 - __tmp133013)))) + __tmp133051 + __tmp133050)))) (declare (not safe)) (gx#core-list 'if - __tmp133016 - __tmp133012 - _%E131912%_))) - (if (eq? 'datum _%$e131931%_) - (let ((_%$e132045%_ + __tmp133053 + __tmp133049 + _%E131949%_))) + (if (eq? 'datum _%$e131968%_) + (let ((_%$e132082%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp133022 + (let ((__tmp133059 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _%target131911%_))) - (__tmp133017 - (let ((__tmp133021 - (cons (cons (cons _%$e132045%_ + _%target131948%_))) + (__tmp133054 + (let ((__tmp133058 + (cons (cons (cons _%$e132082%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list 'stx-e _%target131911%_)) + (gx#core-list 'stx-e _%target131948%_)) '())) '())) - (__tmp133018 - (let ((__tmp133020 + (__tmp133055 + (let ((__tmp133057 (let () (declare (not safe)) - (gx#core-list 'equal? _%$e132045%_ _%body131928%_))) - (__tmp133019 (_%k131913%_ _%vars131910%_))) + (gx#core-list 'equal? _%$e132082%_ _%body131965%_))) + (__tmp133056 (_%k131950%_ _%vars131947%_))) (declare (not safe)) - (gx#core-list 'if __tmp133020 __tmp133019 _%E131912%_)))) + (gx#core-list 'if __tmp133057 __tmp133056 _%E131949%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp133021 - __tmp133018)))) + __tmp133058 + __tmp133055)))) (declare (not safe)) (gx#core-list 'if - __tmp133022 - __tmp133017 - _%E131912%_))) - (_%BUG131817%_ - _%e131909%_)))))))))))))) + __tmp133059 + __tmp133054 + _%E131949%_))) + (_%BUG131854%_ + _%e131946%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e131914131921%_) - (let ((_%hd131918132050%_ + (if (pair? _%e131951131958%_) + (let ((_%hd131955132087%_ (let () (declare (not safe)) - (##car _%e131914131921%_))) - (_%tl131919132052%_ + (##car _%e131951131958%_))) + (_%tl131956132089%_ (let () (declare (not safe)) - (##cdr _%e131914131921%_)))) - (let* ((_%tag132055%_ - _%hd131918132050%_) - (_%body132057%_ - _%tl131919132052%_)) - (_%K131917132047%_ - _%body132057%_ - _%tag132055%_))) - (_%E131916131925%_))))) - (_%splice-rlen131819%_ - (lambda (_%e131871%_) - (let _%lp131873%_ ((_%e131875%_ _%e131871%_) - (_%n131876%_ '0)) - (let* ((_%e131877131884%_ _%e131875%_) - (_%E131879131888%_ + (##cdr _%e131951131958%_)))) + (let* ((_%tag132092%_ + _%hd131955132087%_) + (_%body132094%_ + _%tl131956132089%_)) + (_%K131954132084%_ + _%body132094%_ + _%tag132092%_))) + (_%E131953131962%_))))) + (_%splice-rlen131856%_ + (lambda (_%e131908%_) + (let _%lp131910%_ ((_%e131912%_ _%e131908%_) + (_%n131913%_ '0)) + (let* ((_%e131914131921%_ _%e131912%_) + (_%E131916131925%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131877131884%_ + _%e131914131921%_ '([tag . body]))) '#!void)) - (_%K131880131897%_ - (lambda (_%body131891%_ - _%tag131892%_) - (let ((_%$e131894%_ _%tag131892%_)) - (if (eq? 'splice _%$e131894%_) + (_%K131917131934%_ + (lambda (_%body131928%_ + _%tag131929%_) + (let ((_%$e131931%_ _%tag131929%_)) + (if (eq? 'splice _%$e131931%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _%stx131623%_ - _%where131810%_)) - (if (eq? 'cons _%$e131894%_) - (_%lp131873%_ - (cdr _%body131891%_) + _%stx131660%_ + _%where131847%_)) + (if (eq? 'cons _%$e131931%_) + (_%lp131910%_ + (cdr _%body131928%_) (let () (declare (not safe)) - (##fx+ _%n131876%_ + (##fx+ _%n131913%_ '1))) - _%n131876%_)))))) - (if (pair? _%e131877131884%_) - (let ((_%hd131881131900%_ + _%n131913%_)))))) + (if (pair? _%e131914131921%_) + (let ((_%hd131918131937%_ (let () (declare (not safe)) - (##car _%e131877131884%_))) - (_%tl131882131902%_ + (##car _%e131914131921%_))) + (_%tl131919131939%_ (let () (declare (not safe)) - (##cdr _%e131877131884%_)))) - (let* ((_%tag131905%_ - _%hd131881131900%_) - (_%body131907%_ - _%tl131882131902%_)) - (_%K131880131897%_ - _%body131907%_ - _%tag131905%_))) - (_%E131879131888%_)))))) - (_%splice-vars131820%_ - (lambda (_%e131827%_) - (let _%recur131829%_ ((_%e131831%_ _%e131827%_) - (_%vars131832%_ '())) - (let* ((_%e131833131840%_ _%e131831%_) - (_%E131835131844%_ + (##cdr _%e131914131921%_)))) + (let* ((_%tag131942%_ + _%hd131918131937%_) + (_%body131944%_ + _%tl131919131939%_)) + (_%K131917131934%_ + _%body131944%_ + _%tag131942%_))) + (_%E131916131925%_)))))) + (_%splice-vars131857%_ + (lambda (_%e131864%_) + (let _%recur131866%_ ((_%e131868%_ _%e131864%_) + (_%vars131869%_ '())) + (let* ((_%e131870131877%_ _%e131868%_) + (_%E131872131881%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131833131840%_ + _%e131870131877%_ '([tag . body]))) '#!void)) - (_%K131836131859%_ - (lambda (_%body131847%_ - _%tag131848%_) - (let ((_%$e131850%_ _%tag131848%_)) - (if (eq? 'var _%$e131850%_) - (cons _%body131847%_ - _%vars131832%_) + (_%K131873131896%_ + (lambda (_%body131884%_ + _%tag131885%_) + (let ((_%$e131887%_ _%tag131885%_)) + (if (eq? 'var _%$e131887%_) + (cons _%body131884%_ + _%vars131869%_) (if (or (eq? 'cons - _%$e131850%_) + _%$e131887%_) (eq? 'splice - _%$e131850%_)) - (_%recur131829%_ - (cdr _%body131847%_) - (_%recur131829%_ - (car _%body131847%_) - _%vars131832%_)) + _%$e131887%_)) + (_%recur131866%_ + (cdr _%body131884%_) + (_%recur131866%_ + (car _%body131884%_) + _%vars131869%_)) (if (or (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e131850%_) - (eq? 'box _%$e131850%_)) - (_%recur131829%_ _%body131847%_ _%vars131832%_) - _%vars131832%_))))))) + _%$e131887%_) + (eq? 'box _%$e131887%_)) + (_%recur131866%_ _%body131884%_ _%vars131869%_) + _%vars131869%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e131833131840%_) - (let ((_%hd131837131862%_ + (if (pair? _%e131870131877%_) + (let ((_%hd131874131899%_ (let () (declare (not safe)) - (##car _%e131833131840%_))) - (_%tl131838131864%_ + (##car _%e131870131877%_))) + (_%tl131875131901%_ (let () (declare (not safe)) - (##cdr _%e131833131840%_)))) - (let* ((_%tag131867%_ - _%hd131837131862%_) - (_%body131869%_ - _%tl131838131864%_)) - (_%K131836131859%_ - _%body131869%_ - _%tag131867%_))) - (_%E131835131844%_)))))) - (_%make-body131821%_ - (lambda (_%vars131823%_) - (cons _%K131814%_ - (map (lambda (_%mvar131825%_) - (let ((__tmp133023 - (car _%mvar131825%_))) + (##cdr _%e131870131877%_)))) + (let* ((_%tag131904%_ + _%hd131874131899%_) + (_%body131906%_ + _%tl131875131901%_)) + (_%K131873131896%_ + _%body131906%_ + _%tag131904%_))) + (_%E131872131881%_)))))) + (_%make-body131858%_ + (lambda (_%vars131860%_) + (cons _%K131851%_ + (map (lambda (_%mvar131862%_) + (let ((__tmp133060 + (car _%mvar131862%_))) (declare (not safe)) (agetq__% - __tmp133023 - _%vars131823%_ - _%BUG131817%_))) - _%mvars131813%_))))) - (_%recur131818%_ - _%hd131812%_ + __tmp133060 + _%vars131860%_ + _%BUG131854%_))) + _%mvars131850%_))))) + (_%recur131855%_ + _%hd131849%_ '() - _%target131811%_ - _%E131815%_ - _%make-body131821%_)))) - (_%parse-clause131632%_ - (lambda (_%hd131704%_ _%ids131705%_) - (let _%recur131707%_ ((_%e131709%_ _%hd131704%_) - (_%vars131710%_ '()) - (_%depth131711%_ '0)) + _%target131848%_ + _%E131852%_ + _%make-body131858%_)))) + (_%parse-clause131669%_ + (lambda (_%hd131741%_ _%ids131742%_) + (let _%recur131744%_ ((_%e131746%_ _%hd131741%_) + (_%vars131747%_ '()) + (_%depth131748%_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _%e131709%_)) + (gx#identifier? _%e131746%_)) (if (let () (declare (not safe)) - (gx#underscore? _%e131709%_)) - (values '(any) _%vars131710%_) + (gx#underscore? _%e131746%_)) + (values '(any) _%vars131747%_) (if (let () (declare (not safe)) - (gx#ellipsis? _%e131709%_)) + (gx#ellipsis? _%e131746%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx131623%_ - _%hd131704%_)) - (if (let ((__tmp133024 - (lambda (_%id131716%_) + _%stx131660%_ + _%hd131741%_)) + (if (let ((__tmp133061 + (lambda (_%id131753%_) (let () (declare (not safe)) (gx#bound-identifier=? - _%e131709%_ - _%id131716%_))))) + _%e131746%_ + _%id131753%_))))) (declare (not safe)) - (__find __tmp133024 _%ids131705%_)) - (values (cons 'id _%e131709%_) - _%vars131710%_) - (if (let ((__tmp133025 - (lambda (_%var131719%_) - (let ((__tmp133026 - (car _%var131719%_))) + (__find __tmp133061 _%ids131742%_)) + (values (cons 'id _%e131746%_) + _%vars131747%_) + (if (let ((__tmp133062 + (lambda (_%var131756%_) + (let ((__tmp133063 + (car _%var131756%_))) (declare (not safe)) (gx#bound-identifier=? - _%e131709%_ - __tmp133026))))) + _%e131746%_ + __tmp133063))))) (declare (not safe)) - (__find __tmp133025 - _%vars131710%_)) + (__find __tmp133062 + _%vars131747%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _%stx131623%_ - _%e131709%_)) - (values (cons 'var _%e131709%_) - (cons (cons _%e131709%_ - _%depth131711%_) - _%vars131710%_)))))) + _%stx131660%_ + _%e131746%_)) + (values (cons 'var _%e131746%_) + (cons (cons _%e131746%_ + _%depth131748%_) + _%vars131747%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%e131709%_)) - (let* ((_%e131723131730%_ _%e131709%_) - (_%E131725131734%_ + (gx#stx-pair? _%e131746%_)) + (let* ((_%e131760131767%_ _%e131746%_) + (_%E131762131771%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131723131730%_)))) - (_%E131724131795%_ + _%e131760131767%_)))) + (_%E131761131832%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131723131730%_)) - (let ((_%e131726131738%_ + (gx#stx-pair? _%e131760131767%_)) + (let ((_%e131763131775%_ (let () (declare (not safe)) (gx#syntax-e - _%e131723131730%_)))) - (let ((_%hd131727131741%_ + _%e131760131767%_)))) + (let ((_%hd131764131778%_ (let () (declare (not safe)) - (##car _%e131726131738%_))) - (_%tl131728131743%_ + (##car _%e131763131775%_))) + (_%tl131765131780%_ (let () (declare (not safe)) - (##cdr _%e131726131738%_)))) - (let* ((_%hd131746%_ - _%hd131727131741%_) - (_%rest131748%_ - _%tl131728131743%_) - (_%make-pair131763%_ - (lambda (_%tag131750%_ + (##cdr _%e131763131775%_)))) + (let* ((_%hd131783%_ + _%hd131764131778%_) + (_%rest131785%_ + _%tl131765131780%_) + (_%make-pair131800%_ + (lambda (_%tag131787%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd131751%_ - _%tl131752%_) - (let* ((_%hd-depth131754%_ - (if (eq? _%tag131750%_ 'splice) + _%hd131788%_ + _%tl131789%_) + (let* ((_%hd-depth131791%_ + (if (eq? _%tag131787%_ 'splice) (let () (declare (not safe)) - (##fx+ _%depth131711%_ '1)) - _%depth131711%_)) - (_g133027_ - (_%recur131707%_ - _%hd131751%_ - _%vars131710%_ - _%hd-depth131754%_))) + (##fx+ _%depth131748%_ '1)) + _%depth131748%_)) + (_g133064_ + (_%recur131744%_ + _%hd131788%_ + _%vars131747%_ + _%hd-depth131791%_))) (begin - (let ((_g133028_ + (let ((_g133065_ (let () (declare (not safe)) - (if (##values? _g133027_) - (##vector-length _g133027_) + (if (##values? _g133064_) + (##vector-length _g133064_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133028_ 2))) - (error "Context expects 2 values" _g133028_))) - (let ((_%hd131756%_ + (##fx= _g133065_ 2))) + (error "Context expects 2 values" _g133065_))) + (let ((_%hd131793%_ (let () (declare (not safe)) - (##vector-ref _g133027_ 0))) - (_%vars131757%_ + (##vector-ref _g133064_ 0))) + (_%vars131794%_ (let () (declare (not safe)) - (##vector-ref _g133027_ 1)))) - (let ((_g133029_ - (_%recur131707%_ - _%tl131752%_ - _%vars131757%_ - _%depth131711%_))) + (##vector-ref _g133064_ 1)))) + (let ((_g133066_ + (_%recur131744%_ + _%tl131789%_ + _%vars131794%_ + _%depth131748%_))) (begin - (let ((_g133030_ + (let ((_g133067_ (let () (declare (not safe)) - (if (##values? _g133029_) - (##vector-length _g133029_) + (if (##values? _g133066_) + (##vector-length _g133066_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133030_ 2))) + (##fx= _g133067_ 2))) (error "Context expects 2 values" - _g133030_))) - (let ((_%tl131759%_ + _g133067_))) + (let ((_%tl131796%_ (let () (declare (not safe)) - (##vector-ref _g133029_ 0))) - (_%vars131760%_ + (##vector-ref _g133066_ 0))) + (_%vars131797%_ (let () (declare (not safe)) - (##vector-ref _g133029_ 1)))) - (values (cons _%tag131750%_ - (cons _%hd131756%_ _%tl131759%_)) - _%vars131760%_))))))))) - (_%e131764131771%_ _%rest131748%_) - (_%E131766131775%_ + (##vector-ref _g133066_ 1)))) + (values (cons _%tag131787%_ + (cons _%hd131793%_ _%tl131796%_)) + _%vars131797%_))))))))) + (_%e131801131808%_ _%rest131785%_) + (_%E131803131812%_ (lambda () - (_%make-pair131763%_ 'cons _%hd131746%_ _%rest131748%_))) - (_%E131765131791%_ + (_%make-pair131800%_ 'cons _%hd131783%_ _%rest131785%_))) + (_%E131802131828%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131764131771%_)) - (let ((_%e131767131779%_ + (gx#stx-pair? _%e131801131808%_)) + (let ((_%e131804131816%_ (let () (declare (not safe)) - (gx#syntax-e _%e131764131771%_)))) - (let ((_%hd131768131782%_ + (gx#syntax-e _%e131801131808%_)))) + (let ((_%hd131805131819%_ (let () (declare (not safe)) - (##car _%e131767131779%_))) - (_%tl131769131784%_ + (##car _%e131804131816%_))) + (_%tl131806131821%_ (let () (declare (not safe)) - (##cdr _%e131767131779%_)))) - (let* ((_%rest-hd131787%_ _%hd131768131782%_) - (_%rest-tl131789%_ _%tl131769131784%_)) + (##cdr _%e131804131816%_)))) + (let* ((_%rest-hd131824%_ _%hd131805131819%_) + (_%rest-tl131826%_ _%tl131806131821%_)) (if (let () (declare (not safe)) - (gx#ellipsis? _%rest-hd131787%_)) - (_%make-pair131763%_ + (gx#ellipsis? _%rest-hd131824%_)) + (_%make-pair131800%_ 'splice - _%hd131746%_ - _%rest-tl131789%_) - (_%make-pair131763%_ + _%hd131783%_ + _%rest-tl131826%_) + (_%make-pair131800%_ 'cons - _%hd131746%_ - _%rest131748%_))))) - (_%E131766131775%_))))) + _%hd131783%_ + _%rest131785%_))))) + (_%E131803131812%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131765131791%_)))) - (_%E131725131734%_))))) - (_%E131724131795%_)) + (_%E131802131828%_)))) + (_%E131762131771%_))))) + (_%E131761131832%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%e131709%_)) - (values '(null) _%vars131710%_) + (gx#stx-null? _%e131746%_)) + (values '(null) _%vars131747%_) (if (let () (declare (not safe)) - (gx#stx-vector? _%e131709%_)) - (let ((_g133031_ - (_%recur131707%_ + (gx#stx-vector? _%e131746%_)) + (let ((_g133068_ + (_%recur131744%_ (vector->list (let () (declare (not safe)) - (gx#syntax-e _%e131709%_))) - _%vars131710%_ - _%depth131711%_))) + (gx#syntax-e _%e131746%_))) + _%vars131747%_ + _%depth131748%_))) (begin - (let ((_g133032_ + (let ((_g133069_ (let () (declare (not safe)) - (if (##values? _g133031_) + (if (##values? _g133068_) (##vector-length - _g133031_) + _g133068_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133032_ 2))) + (##fx= _g133069_ 2))) (error "Context expects 2 values" - _g133032_))) - (let ((_%e131801%_ + _g133069_))) + (let ((_%e131838%_ (let () (declare (not safe)) - (##vector-ref _g133031_ 0))) - (_%vars131802%_ + (##vector-ref _g133068_ 0))) + (_%vars131839%_ (let () (declare (not safe)) (##vector-ref - _g133031_ + _g133068_ 1)))) - (values (cons 'vector _%e131801%_) - _%vars131802%_)))) + (values (cons 'vector _%e131838%_) + _%vars131839%_)))) (if (let () (declare (not safe)) - (gx#stx-box? _%e131709%_)) - (let ((_g133033_ - (_%recur131707%_ + (gx#stx-box? _%e131746%_)) + (let ((_g133070_ + (_%recur131744%_ (unbox (let () (declare (not safe)) (gx#syntax-e - _%e131709%_))) - _%vars131710%_ - _%depth131711%_))) + _%e131746%_))) + _%vars131747%_ + _%depth131748%_))) (begin - (let ((_g133034_ + (let ((_g133071_ (let () (declare (not safe)) (if (##values? - _g133033_) + _g133070_) (##vector-length - _g133033_) + _g133070_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133034_ + (##fx= _g133071_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g133034_))) - (let ((_%e131805%_ + _g133071_))) + (let ((_%e131842%_ (let () (declare (not safe)) (##vector-ref - _g133033_ + _g133070_ 0))) - (_%vars131806%_ + (_%vars131843%_ (let () (declare (not safe)) (##vector-ref - _g133033_ + _g133070_ 1)))) - (values (cons 'box _%e131805%_) - _%vars131806%_)))) + (values (cons 'box _%e131842%_) + _%vars131843%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%e131709%_)) + (gx#stx-datum? _%e131746%_)) (values (cons 'datum (let () (declare (not safe)) (gx#stx-e - _%e131709%_))) - _%vars131710%_) + _%e131746%_))) + _%vars131747%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _%stx131623%_ - _%e131709%_)))))))))))) - (let* ((_%e131633131646%_ _%stx131623%_) - (_%E131635131650%_ + _%stx131660%_ + _%e131746%_)))))))))))) + (let* ((_%e131670131683%_ _%stx131660%_) + (_%E131672131687%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131633131646%_)))) - (_%E131634131700%_ + _%e131670131683%_)))) + (_%E131671131737%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131633131646%_)) - (let ((_%e131636131654%_ + (gx#stx-pair? _%e131670131683%_)) + (let ((_%e131673131691%_ (let () (declare (not safe)) - (gx#syntax-e _%e131633131646%_)))) - (let ((_%hd131637131657%_ + (gx#syntax-e _%e131670131683%_)))) + (let ((_%hd131674131694%_ (let () (declare (not safe)) - (##car _%e131636131654%_))) - (_%tl131638131659%_ + (##car _%e131673131691%_))) + (_%tl131675131696%_ (let () (declare (not safe)) - (##cdr _%e131636131654%_)))) + (##cdr _%e131673131691%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131638131659%_)) - (let ((_%e131639131662%_ + (gx#stx-pair? _%tl131675131696%_)) + (let ((_%e131676131699%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131638131659%_)))) - (let ((_%hd131640131665%_ + (gx#syntax-e _%tl131675131696%_)))) + (let ((_%hd131677131702%_ (let () (declare (not safe)) - (##car _%e131639131662%_))) - (_%tl131641131667%_ + (##car _%e131676131699%_))) + (_%tl131678131704%_ (let () (declare (not safe)) - (##cdr _%e131639131662%_)))) - (let ((_%expr131670%_ _%hd131640131665%_)) + (##cdr _%e131676131699%_)))) + (let ((_%expr131707%_ _%hd131677131702%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131641131667%_)) - (let ((_%e131642131672%_ + (gx#stx-pair? _%tl131678131704%_)) + (let ((_%e131679131709%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131641131667%_)))) - (let ((_%hd131643131675%_ + _%tl131678131704%_)))) + (let ((_%hd131680131712%_ (let () (declare (not safe)) - (##car _%e131642131672%_))) - (_%tl131644131677%_ + (##car _%e131679131709%_))) + (_%tl131681131714%_ (let () (declare (not safe)) - (##cdr _%e131642131672%_)))) - (let* ((_%ids131680%_ - _%hd131643131675%_) - (_%clauses131682%_ - _%tl131644131677%_)) + (##cdr _%e131679131709%_)))) + (let* ((_%ids131717%_ + _%hd131680131712%_) + (_%clauses131719%_ + _%tl131681131714%_)) (if (let () (declare (not safe)) (gx#identifier-list? - _%ids131680%_)) + _%ids131717%_)) (if (let () (declare (not safe)) (gx#stx-list? - _%clauses131682%_)) - (let* ((_%ids131687%_ + _%clauses131719%_)) + (let* ((_%ids131724%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax->list _%ids131680%_))) - (_%clauses131689%_ + (gx#syntax->list _%ids131717%_))) + (_%clauses131726%_ (let () (declare (not safe)) - (gx#syntax->list _%clauses131682%_))) - (_%clause-ids131691%_ + (gx#syntax->list _%clauses131719%_))) + (_%clause-ids131728%_ (let () (declare (not safe)) - (gx#gentemps _%clauses131689%_))) - (_%E131693%_ + (gx#gentemps _%clauses131726%_))) + (_%E131730%_ (let () (declare (not safe)) (gx#genident__0))) - (_%target131695%_ + (_%target131732%_ (let () (declare (not safe)) (gx#genident__0))) - (_%first131697%_ - (if (null? _%clauses131689%_) - _%E131693%_ - (car _%clause-ids131691%_)))) - (let ((__tmp133036 - (let ((__tmp133037 - (let ((__tmp133039 - (let ((__tmp133041 - (cons (cons (cons _%E131693%_ + (_%first131734%_ + (if (null? _%clauses131726%_) + _%E131730%_ + (car _%clause-ids131728%_)))) + (let ((__tmp133073 + (let ((__tmp133074 + (let ((__tmp133076 + (let ((__tmp133078 + (cons (cons (cons _%E131730%_ '()) - (cons (let ((__tmp133043 + (cons (let ((__tmp133080 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%target131695%_ '())) - (__tmp133042 + (cons _%target131732%_ '())) + (__tmp133079 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _%target131695%_)))) + _%target131732%_)))) (declare (not safe)) - (gx#core-list 'lambda% __tmp133043 __tmp133042)) + (gx#core-list 'lambda% __tmp133080 __tmp133079)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (__tmp133040 - (_%generate-body131629%_ - (_%generate-bindings131628%_ - _%target131695%_ - _%ids131687%_ - _%clauses131689%_ - _%clause-ids131691%_ - _%E131693%_) - (cons _%first131697%_ - (cons _%expr131670%_ + (__tmp133077 + (_%generate-body131666%_ + (_%generate-bindings131665%_ + _%target131732%_ + _%ids131724%_ + _%clauses131726%_ + _%clause-ids131728%_ + _%E131730%_) + (cons _%first131734%_ + (cons _%expr131707%_ '()))))) (declare (not safe)) (gx#core-list 'let-values - __tmp133041 - __tmp133040))) - (__tmp133038 + __tmp133078 + __tmp133077))) + (__tmp133075 (let () (declare (not safe)) - (gx#stx-source _%stx131623%_)))) + (gx#stx-source _%stx131660%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp133039 - __tmp133038)))) + __tmp133076 + __tmp133075)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp133037))) - (__tmp133035 + __tmp133074))) + (__tmp133072 (let () (declare (not safe)) - (gx#stx-source _%stx131623%_)))) + (gx#stx-source _%stx131660%_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp133036 __tmp133035))) + (gx#stx-wrap-source __tmp133073 __tmp133072))) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _%stx131623%_))) + _%stx131660%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _%stx131623%_ - _%ids131680%_)))))) - (_%E131635131650%_))))) - (_%E131635131650%_)))) - (_%E131635131650%_))))) - (_%E131634131700%_))))) + _%stx131660%_ + _%ids131717%_)))))) + (_%E131672131687%_))))) + (_%E131672131687%_)))) + (_%E131672131687%_))))) + (_%E131671131737%_))))) (define gx#macro-expand-syntax-case__0 - (lambda (_%stx132348%_) - (let* ((_%identifier=?132350%_ 'free-identifier=?) - (_%unwrap-e132352%_ 'syntax-e) - (_%wrap-e132354%_ 'quote-syntax)) + (lambda (_%stx132385%_) + (let* ((_%identifier=?132387%_ 'free-identifier=?) + (_%unwrap-e132389%_ 'syntax-e) + (_%wrap-e132391%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132348%_ - _%identifier=?132350%_ - _%unwrap-e132352%_ - _%wrap-e132354%_)))) + _%stx132385%_ + _%identifier=?132387%_ + _%unwrap-e132389%_ + _%wrap-e132391%_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_%stx132356%_ _%identifier=?132357%_) - (let* ((_%unwrap-e132359%_ 'syntax-e) (_%wrap-e132361%_ 'quote-syntax)) + (lambda (_%stx132393%_ _%identifier=?132394%_) + (let* ((_%unwrap-e132396%_ 'syntax-e) (_%wrap-e132398%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132356%_ - _%identifier=?132357%_ - _%unwrap-e132359%_ - _%wrap-e132361%_)))) + _%stx132393%_ + _%identifier=?132394%_ + _%unwrap-e132396%_ + _%wrap-e132398%_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_%stx132363%_ _%identifier=?132364%_ _%unwrap-e132365%_) - (let ((_%wrap-e132367%_ 'quote-syntax)) + (lambda (_%stx132400%_ _%identifier=?132401%_ _%unwrap-e132402%_) + (let ((_%wrap-e132404%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132363%_ - _%identifier=?132364%_ - _%unwrap-e132365%_ - _%wrap-e132367%_)))) + _%stx132400%_ + _%identifier=?132401%_ + _%unwrap-e132402%_ + _%wrap-e132404%_)))) (define gx#macro-expand-syntax-case - (lambda _g133045_ - (let ((_g133044_ (let () (declare (not safe)) (##length _g133045_)))) - (cond ((let () (declare (not safe)) (##fx= _g133044_ 1)) - (apply gx#macro-expand-syntax-case__0 _g133045_)) - ((let () (declare (not safe)) (##fx= _g133044_ 2)) - (apply gx#macro-expand-syntax-case__1 _g133045_)) - ((let () (declare (not safe)) (##fx= _g133044_ 3)) - (apply gx#macro-expand-syntax-case__2 _g133045_)) - ((let () (declare (not safe)) (##fx= _g133044_ 4)) - (apply gx#macro-expand-syntax-case__% _g133045_)) + (lambda _g133082_ + (let ((_g133081_ (let () (declare (not safe)) (##length _g133082_)))) + (cond ((let () (declare (not safe)) (##fx= _g133081_ 1)) + (apply gx#macro-expand-syntax-case__0 _g133082_)) + ((let () (declare (not safe)) (##fx= _g133081_ 2)) + (apply gx#macro-expand-syntax-case__1 _g133082_)) + ((let () (declare (not safe)) (##fx= _g133081_ 3)) + (apply gx#macro-expand-syntax-case__2 _g133082_)) + ((let () (declare (not safe)) (##fx= _g133081_ 4)) + (apply gx#macro-expand-syntax-case__% _g133082_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g133045_)))))) + _g133082_)))))) (define gx#syntax-local-pattern? - (lambda (_%stx131620%_) - (if (let () (declare (not safe)) (gx#identifier? _%stx131620%_)) - (let ((__tmp133046 + (lambda (_%stx131657%_) + (if (let () (declare (not safe)) (gx#identifier? _%stx131657%_)) + (let ((__tmp133083 (let () (declare (not safe)) - (gx#syntax-local-e__% _%stx131620%_ false)))) + (gx#syntax-local-e__% _%stx131657%_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp133046 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp133083 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_%hd131578%_ . _%rest131579%_) - (let ((_%len131581%_ (length _%hd131578%_))) - (let _%lp131583%_ ((_%rest131585%_ _%rest131579%_)) - (let* ((_%rest131586131594%_ _%rest131585%_) - (_%else131588131602%_ (lambda () '#!void)) - (_%K131590131608%_ - (lambda (_%rest131605%_ _%hd131606%_) - (if (let ((__tmp133047 (length _%hd131606%_))) + (lambda (_%hd131615%_ . _%rest131616%_) + (let ((_%len131618%_ (length _%hd131615%_))) + (let _%lp131620%_ ((_%rest131622%_ _%rest131616%_)) + (let* ((_%rest131623131631%_ _%rest131622%_) + (_%else131625131639%_ (lambda () '#!void)) + (_%K131627131645%_ + (lambda (_%rest131642%_ _%hd131643%_) + (if (let ((__tmp133084 (length _%hd131643%_))) (declare (not safe)) - (##fx= _%len131581%_ __tmp133047)) - (_%lp131583%_ _%rest131605%_) + (##fx= _%len131618%_ __tmp133084)) + (_%lp131620%_ _%rest131642%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _%hd131606%_)))))) - (if (pair? _%rest131586131594%_) - (let ((_%hd131591131611%_ + _%hd131643%_)))))) + (if (pair? _%rest131623131631%_) + (let ((_%hd131628131648%_ (let () (declare (not safe)) - (##car _%rest131586131594%_))) - (_%tl131592131613%_ + (##car _%rest131623131631%_))) + (_%tl131629131650%_ (let () (declare (not safe)) - (##cdr _%rest131586131594%_)))) - (let* ((_%hd131616%_ _%hd131591131611%_) - (_%rest131618%_ _%tl131592131613%_)) - (_%K131590131608%_ _%rest131618%_ _%hd131616%_))) + (##cdr _%rest131623131631%_)))) + (let* ((_%hd131653%_ _%hd131628131648%_) + (_%rest131655%_ _%tl131629131650%_)) + (_%K131627131645%_ _%rest131655%_ _%hd131653%_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_%stx131533%_ _%n131534%_) - (let _%lp131536%_ ((_%rest131538%_ _%stx131533%_) (_%r131539%_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _%rest131538%_)) - (let* ((_%g131540131547%_ + (lambda (_%stx131570%_ _%n131571%_) + (let _%lp131573%_ ((_%rest131575%_ _%stx131570%_) (_%r131576%_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _%rest131575%_)) + (let* ((_%g131577131584%_ (let () (declare (not safe)) - (gx#syntax-e _%rest131538%_))) - (_%E131542131551%_ + (gx#syntax-e _%rest131575%_))) + (_%E131579131588%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g131540131547%_ + _%g131577131584%_ '([hd . rest]))) '#!void)) - (_%K131543131557%_ - (lambda (_%rest131554%_ _%hd131555%_) - (_%lp131536%_ - _%rest131554%_ - (cons _%hd131555%_ _%r131539%_))))) - (if (pair? _%g131540131547%_) - (let ((_%hd131544131560%_ + (_%K131580131594%_ + (lambda (_%rest131591%_ _%hd131592%_) + (_%lp131573%_ + _%rest131591%_ + (cons _%hd131592%_ _%r131576%_))))) + (if (pair? _%g131577131584%_) + (let ((_%hd131581131597%_ (let () (declare (not safe)) - (##car _%g131540131547%_))) - (_%tl131545131562%_ + (##car _%g131577131584%_))) + (_%tl131582131599%_ (let () (declare (not safe)) - (##cdr _%g131540131547%_)))) - (let* ((_%hd131565%_ _%hd131544131560%_) - (_%rest131567%_ _%tl131545131562%_)) - (_%K131543131557%_ _%rest131567%_ _%hd131565%_))) - (_%E131542131551%_))) - (let _%lp131569%_ ((_%n131571%_ _%n131534%_) - (_%l131572%_ _%r131539%_) - (_%r131573%_ _%rest131538%_)) - (if (null? _%l131572%_) - (values _%l131572%_ _%r131573%_) - (if (fxpositive? _%n131571%_) - (_%lp131569%_ - (let () (declare (not safe)) (##fx- _%n131571%_ '1)) - (cdr _%l131572%_) - (cons (car _%l131572%_) _%r131573%_)) - (values (reverse _%l131572%_) _%r131573%_)))))))))) + (##cdr _%g131577131584%_)))) + (let* ((_%hd131602%_ _%hd131581131597%_) + (_%rest131604%_ _%tl131582131599%_)) + (_%K131580131594%_ _%rest131604%_ _%hd131602%_))) + (_%E131579131588%_))) + (let _%lp131606%_ ((_%n131608%_ _%n131571%_) + (_%l131609%_ _%r131576%_) + (_%r131610%_ _%rest131575%_)) + (if (null? _%l131609%_) + (values _%l131609%_ _%r131610%_) + (if (fxpositive? _%n131608%_) + (_%lp131606%_ + (let () (declare (not safe)) (##fx- _%n131608%_ '1)) + (cdr _%l131609%_) + (cons (car _%l131609%_) _%r131610%_)) + (values (reverse _%l131609%_) _%r131610%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase~1.scm b/src/bootstrap/gerbil/expander/stxcase~1.scm index de4ded647..945cc8bbb 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]#_g133049_| + (define |gx[1]#_g133086_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g133051_| + (define |gx[1]#_g133088_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g133053_| + (define |gx[1]#_g133090_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g133055_| + (define |gx[1]#_g133092_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g133057_| + (define |gx[1]#_g133094_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g133058_| + (define |gx[1]#_g133095_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g133059_| + (define |gx[1]#_g133096_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g133061_| + (define |gx[1]#_g133098_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133062_| + (define |gx[1]#_g133099_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133063_| + (define |gx[1]#_g133100_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133065_| + (define |gx[1]#_g133102_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g133066_| + (define |gx[1]#_g133103_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g133067_| + (define |gx[1]#_g133104_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g133069_| + (define |gx[1]#_g133106_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133070_| + (define |gx[1]#_g133107_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133071_| + (define |gx[1]#_g133108_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj132926 + (let ((__obj132963 (let () (declare (not safe)) (##structure @@ -142,75 +142,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj132926 + __obj132963 'gx#syntax-pattern::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132926 'syntax-pattern '2 '#f '#f)) + (##unchecked-structure-set! __obj132963 'syntax-pattern '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132926 '(id depth) '4 '#f '#f)) + (##unchecked-structure-set! __obj132963 '(id depth) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132926 '(e id depth) '6 '#f '#f)) - (let ((__tmp133048 (cons |gx[1]#_g133049_| '()))) + (##unchecked-structure-set! __obj132963 '(e id depth) '6 '#f '#f)) + (let ((__tmp133085 (cons |gx[1]#_g133086_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj132926 __tmp133048 '3 '#f '#f)) + (##unchecked-structure-set! __obj132963 __tmp133085 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132926 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj132963 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132926 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj132963 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132926 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj132963 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132926 '#f '11 '#f '#f)) - (let ((__tmp133050 |gx[1]#_g133051_|)) + (##unchecked-structure-set! __obj132963 '#f '11 '#f '#f)) + (let ((__tmp133087 |gx[1]#_g133088_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132926 __tmp133050 '12 '#f '#f)) - (let ((__tmp133052 |gx[1]#_g133053_|)) + (##unchecked-structure-set! __obj132963 __tmp133087 '12 '#f '#f)) + (let ((__tmp133089 |gx[1]#_g133090_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132926 __tmp133052 '13 '#f '#f)) - (let ((__tmp133054 |gx[1]#_g133055_|)) + (##unchecked-structure-set! __obj132963 __tmp133089 '13 '#f '#f)) + (let ((__tmp133091 |gx[1]#_g133092_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132926 __tmp133054 '14 '#f '#f)) - (let ((__tmp133056 - (cons (cons 'id |gx[1]#_g133057_|) - (cons (cons 'depth |gx[1]#_g133058_|) - (cons (cons 'e |gx[1]#_g133059_|) '()))))) + (##unchecked-structure-set! __obj132963 __tmp133091 '14 '#f '#f)) + (let ((__tmp133093 + (cons (cons 'id |gx[1]#_g133094_|) + (cons (cons 'depth |gx[1]#_g133095_|) + (cons (cons 'e |gx[1]#_g133096_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132926 __tmp133056 '15 '#f '#f)) - (let ((__tmp133060 - (cons (cons 'id |gx[1]#_g133061_|) - (cons (cons 'depth |gx[1]#_g133062_|) - (cons (cons 'e |gx[1]#_g133063_|) '()))))) + (##unchecked-structure-set! __obj132963 __tmp133093 '15 '#f '#f)) + (let ((__tmp133097 + (cons (cons 'id |gx[1]#_g133098_|) + (cons (cons 'depth |gx[1]#_g133099_|) + (cons (cons 'e |gx[1]#_g133100_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132926 __tmp133060 '16 '#f '#f)) - (let ((__tmp133064 - (cons (cons 'id |gx[1]#_g133065_|) - (cons (cons 'depth |gx[1]#_g133066_|) - (cons (cons 'e |gx[1]#_g133067_|) '()))))) + (##unchecked-structure-set! __obj132963 __tmp133097 '16 '#f '#f)) + (let ((__tmp133101 + (cons (cons 'id |gx[1]#_g133102_|) + (cons (cons 'depth |gx[1]#_g133103_|) + (cons (cons 'e |gx[1]#_g133104_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132926 __tmp133064 '17 '#f '#f)) - (let ((__tmp133068 - (cons (cons 'id |gx[1]#_g133069_|) - (cons (cons 'depth |gx[1]#_g133070_|) - (cons (cons 'e |gx[1]#_g133071_|) '()))))) + (##unchecked-structure-set! __obj132963 __tmp133101 '17 '#f '#f)) + (let ((__tmp133105 + (cons (cons 'id |gx[1]#_g133106_|) + (cons (cons 'depth |gx[1]#_g133107_|) + (cons (cons 'e |gx[1]#_g133108_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132926 __tmp133068 '18 '#f '#f)) + (##unchecked-structure-set! __obj132963 __tmp133105 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132926 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj132963 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132926 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj132963 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132926 '() '20 '#f '#f)) - __obj132926))) + (##unchecked-structure-set! __obj132963 '() '20 '#f '#f)) + __obj132963))) diff --git a/src/bootstrap/gerbil/expander/stx~0.scm b/src/bootstrap/gerbil/expander/stx~0.scm index 703b2b1d4..dac984012 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 1733687559) + (define gerbil/expander/stx::timestamp 1733870074) (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 _%$args118168%_ - (apply make-instance gx#identifier-wrap::t _%$args118168%_))) + (lambda _%$args118205%_ + (apply make-instance gx#identifier-wrap::t _%$args118205%_))) (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 _%$args118165%_ - (apply make-instance gx#syntax-wrap::t _%$args118165%_))) + (lambda _%$args118202%_ + (apply make-instance gx#syntax-wrap::t _%$args118202%_))) (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 _%$args118162%_ - (apply make-instance gx#syntax-quote::t _%$args118162%_))) + (lambda _%$args118199%_ + (apply make-instance gx#syntax-quote::t _%$args118199%_))) (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 (_%stx118160%_) (symbol? (gx#stx-e _%stx118160%_)))) + (lambda (_%stx118197%_) (symbol? (gx#stx-e _%stx118197%_)))) (define gx#identifier-quote? - (lambda (_%stx118158%_) - (if (##structure-direct-instance-of? _%stx118158%_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _%stx118158%_ '1 '#f '#f)) + (lambda (_%stx118195%_) + (if (##structure-direct-instance-of? _%stx118195%_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _%stx118195%_ '1 '#f '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_%stx118153%_) - (if (##structure-direct-instance-of? _%stx118153%_ 'gx#syntax-quote::t) + (lambda (_%stx118190%_) + (if (##structure-direct-instance-of? _%stx118190%_ 'gx#syntax-quote::t) '#t (if (##structure-direct-instance-of? - _%stx118153%_ + _%stx118190%_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _%stx118153%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx118190%_ '1 '#f '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_%stx118148%_) - (if (##structure-direct-instance-of? _%stx118148%_ 'gx#syntax-quote::t) - _%stx118148%_ + (lambda (_%stx118185%_) + (if (##structure-direct-instance-of? _%stx118185%_ 'gx#syntax-quote::t) + _%stx118185%_ (if (##structure-direct-instance-of? - _%stx118148%_ + _%stx118185%_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _%stx118148%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx118185%_ '1 '#f '#f)) '#f)))) (define gx#syntax-e - (lambda (_%stx118122%_) - (if (##structure-direct-instance-of? _%stx118122%_ 'gx#syntax-wrap::t) - (let _%lp118125%_ ((_%e118127%_ + (lambda (_%stx118159%_) + (if (##structure-direct-instance-of? _%stx118159%_ 'gx#syntax-wrap::t) + (let _%lp118162%_ ((_%e118164%_ (##unchecked-structure-ref - _%stx118122%_ + _%stx118159%_ '1 '#f '#f)) - (_%marks118128%_ + (_%marks118165%_ (cons (##unchecked-structure-ref - _%stx118122%_ + _%stx118159%_ '3 '#f '#f) '()))) - (if (##structure? _%e118127%_) - (let ((_%$e118131%_ - (##type-id (##structure-type _%e118127%_)))) - (if (eq? 'gx#syntax-wrap::t _%$e118131%_) - (_%lp118125%_ - (##unchecked-structure-ref _%e118127%_ '1 '#f '#f) + (if (##structure? _%e118164%_) + (let ((_%$e118168%_ + (##type-id (##structure-type _%e118164%_)))) + (if (eq? 'gx#syntax-wrap::t _%$e118168%_) + (_%lp118162%_ + (##unchecked-structure-ref _%e118164%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e118127%_ '3 '#f '#f) - _%marks118128%_)) - (if (or (eq? 'gx#syntax-quote::t _%$e118131%_) - (eq? 'gx#identifier-wrap::t _%$e118131%_)) - (##unchecked-structure-ref _%e118127%_ '1 '#f '#f) - (if (eq? 'gerbil#AST::t _%$e118131%_) - (_%lp118125%_ + (##unchecked-structure-ref _%e118164%_ '3 '#f '#f) + _%marks118165%_)) + (if (or (eq? 'gx#syntax-quote::t _%$e118168%_) + (eq? 'gx#identifier-wrap::t _%$e118168%_)) + (##unchecked-structure-ref _%e118164%_ '1 '#f '#f) + (if (eq? 'gerbil#AST::t _%$e118168%_) + (_%lp118162%_ (##unchecked-structure-ref - _%e118127%_ + _%e118164%_ '1 '#f '#f) - _%marks118128%_) - _%e118127%_)))) - (if (null? _%marks118128%_) - _%e118127%_ - (if (pair? _%e118127%_) + _%marks118165%_) + _%e118164%_)))) + (if (null? _%marks118165%_) + _%e118164%_ + (if (pair? _%e118164%_) (cons (gx#stx-wrap - (##car _%e118127%_) - _%marks118128%_) + (##car _%e118164%_) + _%marks118165%_) (gx#stx-wrap - (##cdr _%e118127%_) - _%marks118128%_)) - (if (vector? _%e118127%_) + (##cdr _%e118164%_) + _%marks118165%_)) + (if (vector? _%e118164%_) (vector-map - (lambda (_%g118139118141%_) + (lambda (_%g118176118178%_) (gx#stx-wrap - _%g118139118141%_ - _%marks118128%_)) - _%e118127%_) - (if (box? _%e118127%_) + _%g118176118178%_ + _%marks118165%_)) + _%e118164%_) + (if (box? _%e118164%_) (box (gx#stx-wrap - (unbox _%e118127%_) - _%marks118128%_)) - _%e118127%_)))))) - (if (##structure-instance-of? _%stx118122%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx118122%_ '1 '#f '#f) - _%stx118122%_)))) + (unbox _%e118164%_) + _%marks118165%_)) + _%e118164%_)))))) + (if (##structure-instance-of? _%stx118159%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx118159%_ '1 '#f '#f) + _%stx118159%_)))) (define gx#syntax->datum - (lambda (_%stx118115%_) - (if (##structure-instance-of? _%stx118115%_ 'gerbil#AST::t) + (lambda (_%stx118152%_) + (if (##structure-instance-of? _%stx118152%_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _%stx118115%_ '1 '#f '#f)) - (if (pair? _%stx118115%_) - (cons (gx#syntax->datum (##car _%stx118115%_)) - (gx#syntax->datum (##cdr _%stx118115%_))) - (if (vector? _%stx118115%_) - (vector-map gx#syntax->datum _%stx118115%_) - (if (box? _%stx118115%_) - (box (gx#syntax->datum (unbox _%stx118115%_))) - _%stx118115%_)))))) + (##unchecked-structure-ref _%stx118152%_ '1 '#f '#f)) + (if (pair? _%stx118152%_) + (cons (gx#syntax->datum (##car _%stx118152%_)) + (gx#syntax->datum (##cdr _%stx118152%_))) + (if (vector? _%stx118152%_) + (vector-map gx#syntax->datum _%stx118152%_) + (if (box? _%stx118152%_) + (box (gx#syntax->datum (unbox _%stx118152%_))) + _%stx118152%_)))))) (define gx#datum->syntax__% - (lambda (_%stx118049%_ _%datum118050%_ _%src118051%_ _%quote?118052%_) - (letrec ((_%wrap-datum118054%_ - (lambda (_%e118087%_ _%marks118088%_) - (_%wrap-inner118056%_ - _%e118087%_ - (lambda (_%g118089118091%_) + (lambda (_%stx118086%_ _%datum118087%_ _%src118088%_ _%quote?118089%_) + (letrec ((_%wrap-datum118091%_ + (lambda (_%e118124%_ _%marks118125%_) + (_%wrap-inner118093%_ + _%e118124%_ + (lambda (_%g118126118128%_) (##structure gx#identifier-wrap::t - _%g118089118091%_ - _%src118051%_ - _%marks118088%_))))) - (_%wrap-quote118055%_ - (lambda (_%e118079%_ _%ctx118080%_ _%marks118081%_) - (_%wrap-inner118056%_ - _%e118079%_ - (lambda (_%g118082118084%_) + _%g118126118128%_ + _%src118088%_ + _%marks118125%_))))) + (_%wrap-quote118092%_ + (lambda (_%e118116%_ _%ctx118117%_ _%marks118118%_) + (_%wrap-inner118093%_ + _%e118116%_ + (lambda (_%g118119118121%_) (##structure gx#syntax-quote::t - _%g118082118084%_ - _%src118051%_ - _%ctx118080%_ - _%marks118081%_))))) - (_%wrap-inner118056%_ - (lambda (_%e118067%_ _%wrap-e118068%_) - (let _%recur118070%_ ((_%e118072%_ _%e118067%_)) - (if (symbol? _%e118072%_) - (_%wrap-e118068%_ _%e118072%_) - (if (pair? _%e118072%_) - (cons (_%recur118070%_ (##car _%e118072%_)) - (_%recur118070%_ (##cdr _%e118072%_))) - (if (vector? _%e118072%_) - (vector-map _%recur118070%_ _%e118072%_) - (if (box? _%e118072%_) - (box (_%recur118070%_ - (unbox _%e118072%_))) - _%e118072%_))))))) - (_%wrap-outer118057%_ - (lambda (_%e118065%_) - (if (##structure-instance-of? _%e118065%_ 'gerbil#AST::t) - _%e118065%_ - (##structure gx#AST::t _%e118065%_ _%src118051%_))))) - (if (##structure-instance-of? _%datum118050%_ 'gerbil#AST::t) - _%datum118050%_ - (if (not _%stx118049%_) - (##structure gx#AST::t _%datum118050%_ _%src118051%_) - (if (gx#identifier? _%stx118049%_) - (let ((_%stx118062%_ (gx#stx-unwrap__0 _%stx118049%_))) - (_%wrap-outer118057%_ + _%g118119118121%_ + _%src118088%_ + _%ctx118117%_ + _%marks118118%_))))) + (_%wrap-inner118093%_ + (lambda (_%e118104%_ _%wrap-e118105%_) + (let _%recur118107%_ ((_%e118109%_ _%e118104%_)) + (if (symbol? _%e118109%_) + (_%wrap-e118105%_ _%e118109%_) + (if (pair? _%e118109%_) + (cons (_%recur118107%_ (##car _%e118109%_)) + (_%recur118107%_ (##cdr _%e118109%_))) + (if (vector? _%e118109%_) + (vector-map _%recur118107%_ _%e118109%_) + (if (box? _%e118109%_) + (box (_%recur118107%_ + (unbox _%e118109%_))) + _%e118109%_))))))) + (_%wrap-outer118094%_ + (lambda (_%e118102%_) + (if (##structure-instance-of? _%e118102%_ 'gerbil#AST::t) + _%e118102%_ + (##structure gx#AST::t _%e118102%_ _%src118088%_))))) + (if (##structure-instance-of? _%datum118087%_ 'gerbil#AST::t) + _%datum118087%_ + (if (not _%stx118086%_) + (##structure gx#AST::t _%datum118087%_ _%src118088%_) + (if (gx#identifier? _%stx118086%_) + (let ((_%stx118099%_ (gx#stx-unwrap__0 _%stx118086%_))) + (_%wrap-outer118094%_ (if (##structure-direct-instance-of? - _%stx118062%_ + _%stx118099%_ 'gx#syntax-quote::t) - (if _%quote?118052%_ - (_%wrap-quote118055%_ - _%datum118050%_ + (if _%quote?118089%_ + (_%wrap-quote118092%_ + _%datum118087%_ (##unchecked-structure-ref - _%stx118062%_ + _%stx118099%_ '3 '#f '#f) (##unchecked-structure-ref - _%stx118062%_ + _%stx118099%_ '4 '#f '#f)) - (_%wrap-datum118054%_ - _%datum118050%_ + (_%wrap-datum118091%_ + _%datum118087%_ (##unchecked-structure-ref - _%stx118062%_ + _%stx118099%_ '4 '#f '#f))) - (_%wrap-datum118054%_ - _%datum118050%_ + (_%wrap-datum118091%_ + _%datum118087%_ (##unchecked-structure-ref - _%stx118062%_ + _%stx118099%_ '3 '#f '#f))))) (error '"Bad template syntax; expected identifier" - _%stx118049%_))))))) + _%stx118086%_))))))) (define gx#datum->syntax__0 - (lambda (_%stx118097%_ _%datum118098%_) - (let* ((_%src118100%_ '#f) (_%quote?118102%_ '#t)) + (lambda (_%stx118134%_ _%datum118135%_) + (let* ((_%src118137%_ '#f) (_%quote?118139%_ '#t)) (gx#datum->syntax__% - _%stx118097%_ - _%datum118098%_ - _%src118100%_ - _%quote?118102%_)))) + _%stx118134%_ + _%datum118135%_ + _%src118137%_ + _%quote?118139%_)))) (define gx#datum->syntax__1 - (lambda (_%stx118104%_ _%datum118105%_ _%src118106%_) - (let ((_%quote?118108%_ '#t)) + (lambda (_%stx118141%_ _%datum118142%_ _%src118143%_) + (let ((_%quote?118145%_ '#t)) (gx#datum->syntax__% - _%stx118104%_ - _%datum118105%_ - _%src118106%_ - _%quote?118108%_)))) + _%stx118141%_ + _%datum118142%_ + _%src118143%_ + _%quote?118145%_)))) (define gx#datum->syntax - (lambda _g118249_ - (let ((_g118248_ (##length _g118249_))) - (cond ((##fx= _g118248_ 2) (apply gx#datum->syntax__0 _g118249_)) - ((##fx= _g118248_ 3) (apply gx#datum->syntax__1 _g118249_)) - ((##fx= _g118248_ 4) (apply gx#datum->syntax__% _g118249_)) + (lambda _g118286_ + (let ((_g118285_ (##length _g118286_))) + (cond ((##fx= _g118285_ 2) (apply gx#datum->syntax__0 _g118286_)) + ((##fx= _g118285_ 3) (apply gx#datum->syntax__1 _g118286_)) + ((##fx= _g118285_ 4) (apply gx#datum->syntax__% _g118286_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g118249_)))))) + _g118286_)))))) (define gx#stx-unwrap__% - (lambda (_%stx118015%_ _%marks118016%_) - (let _%lp118018%_ ((_%e118020%_ _%stx118015%_) - (_%marks118021%_ _%marks118016%_) - (_%src118022%_ (gx#stx-source _%stx118015%_))) - (if (##structure-direct-instance-of? _%e118020%_ 'gx#syntax-wrap::t) - (_%lp118018%_ - (##unchecked-structure-ref _%e118020%_ '1 '#f '#f) + (lambda (_%stx118052%_ _%marks118053%_) + (let _%lp118055%_ ((_%e118057%_ _%stx118052%_) + (_%marks118058%_ _%marks118053%_) + (_%src118059%_ (gx#stx-source _%stx118052%_))) + (if (##structure-direct-instance-of? _%e118057%_ 'gx#syntax-wrap::t) + (_%lp118055%_ + (##unchecked-structure-ref _%e118057%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e118020%_ '3 '#f '#f) - _%marks118021%_) - (##unchecked-structure-ref _%e118020%_ '2 '#f '#f)) + (##unchecked-structure-ref _%e118057%_ '3 '#f '#f) + _%marks118058%_) + (##unchecked-structure-ref _%e118057%_ '2 '#f '#f)) (if (##structure-direct-instance-of? - _%e118020%_ + _%e118057%_ 'gx#identifier-wrap::t) - (if (null? _%marks118021%_) - _%e118020%_ + (if (null? _%marks118058%_) + _%e118057%_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _%e118020%_ '1 '#f '#f) - (##unchecked-structure-ref _%e118020%_ '2 '#f '#f) + (##unchecked-structure-ref _%e118057%_ '1 '#f '#f) + (##unchecked-structure-ref _%e118057%_ '2 '#f '#f) (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e118020%_ '3 '#f '#f) - _%marks118021%_))) + (##unchecked-structure-ref _%e118057%_ '3 '#f '#f) + _%marks118058%_))) (if (##structure-direct-instance-of? - _%e118020%_ + _%e118057%_ 'gx#syntax-quote::t) - _%e118020%_ - (if (##structure-instance-of? _%e118020%_ 'gerbil#AST::t) - (_%lp118018%_ - (##unchecked-structure-ref _%e118020%_ '1 '#f '#f) - _%marks118021%_ - (##unchecked-structure-ref _%e118020%_ '2 '#f '#f)) - (if (symbol? _%e118020%_) + _%e118057%_ + (if (##structure-instance-of? _%e118057%_ 'gerbil#AST::t) + (_%lp118055%_ + (##unchecked-structure-ref _%e118057%_ '1 '#f '#f) + _%marks118058%_ + (##unchecked-structure-ref _%e118057%_ '2 '#f '#f)) + (if (symbol? _%e118057%_) (##structure gx#identifier-wrap::t - _%e118020%_ - _%src118022%_ - (reverse _%marks118021%_)) - (if (null? _%marks118021%_) - _%e118020%_ - (if (pair? _%e118020%_) + _%e118057%_ + _%src118059%_ + (reverse _%marks118058%_)) + (if (null? _%marks118058%_) + _%e118057%_ + (if (pair? _%e118057%_) (cons (gx#stx-wrap - (##car _%e118020%_) - _%marks118021%_) + (##car _%e118057%_) + _%marks118058%_) (gx#stx-wrap - (##cdr _%e118020%_) - _%marks118021%_)) - (if (vector? _%e118020%_) + (##cdr _%e118057%_) + _%marks118058%_)) + (if (vector? _%e118057%_) (vector-map - (lambda (_%g118031118033%_) + (lambda (_%g118068118070%_) (gx#stx-wrap - _%g118031118033%_ - _%marks118021%_)) - _%e118020%_) - (if (box? _%e118020%_) + _%g118068118070%_ + _%marks118058%_)) + _%e118057%_) + (if (box? _%e118057%_) (box (gx#stx-wrap - (unbox _%e118020%_) - _%marks118021%_)) - _%e118020%_)))))))))))) + (unbox _%e118057%_) + _%marks118058%_)) + _%e118057%_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_%stx118041%_) - (let ((_%marks118043%_ '())) - (gx#stx-unwrap__% _%stx118041%_ _%marks118043%_)))) + (lambda (_%stx118078%_) + (let ((_%marks118080%_ '())) + (gx#stx-unwrap__% _%stx118078%_ _%marks118080%_)))) (define gx#stx-unwrap - (lambda _g118251_ - (let ((_g118250_ (##length _g118251_))) - (cond ((##fx= _g118250_ 1) (apply gx#stx-unwrap__0 _g118251_)) - ((##fx= _g118250_ 2) (apply gx#stx-unwrap__% _g118251_)) + (lambda _g118288_ + (let ((_g118287_ (##length _g118288_))) + (cond ((##fx= _g118287_ 1) (apply gx#stx-unwrap__0 _g118288_)) + ((##fx= _g118287_ 2) (apply gx#stx-unwrap__% _g118288_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g118251_)))))) + _g118288_)))))) (define gx#stx-wrap - (lambda (_%stx118008%_ _%marks118009%_) + (lambda (_%stx118045%_ _%marks118046%_) (__foldl1 - (lambda (_%mark118011%_ _%stx118012%_) - (gx#stx-apply-mark _%stx118012%_ _%mark118011%_)) - _%stx118008%_ - _%marks118009%_))) + (lambda (_%mark118048%_ _%stx118049%_) + (gx#stx-apply-mark _%stx118049%_ _%mark118048%_)) + _%stx118045%_ + _%marks118046%_))) (define gx#stx-rewrap - (lambda (_%stx118002%_ _%marks118003%_) + (lambda (_%stx118039%_ _%marks118040%_) (__foldr1 - (lambda (_%mark118005%_ _%stx118006%_) - (gx#stx-apply-mark _%stx118006%_ _%mark118005%_)) - _%stx118002%_ - _%marks118003%_))) + (lambda (_%mark118042%_ _%stx118043%_) + (gx#stx-apply-mark _%stx118043%_ _%mark118042%_)) + _%stx118039%_ + _%marks118040%_))) (define gx#stx-apply-mark - (lambda (_%stx117996%_ _%mark117997%_) - (if (##structure-direct-instance-of? _%stx117996%_ 'gx#syntax-quote::t) - _%stx117996%_ + (lambda (_%stx118033%_ _%mark118034%_) + (if (##structure-direct-instance-of? _%stx118033%_ 'gx#syntax-quote::t) + _%stx118033%_ (if (and (##structure-direct-instance-of? - _%stx117996%_ + _%stx118033%_ 'gx#syntax-wrap::t) - (eq? _%mark117997%_ + (eq? _%mark118034%_ (##unchecked-structure-ref - _%stx117996%_ + _%stx118033%_ '3 '#f '#f))) - (##unchecked-structure-ref _%stx117996%_ '1 '#f '#f) + (##unchecked-structure-ref _%stx118033%_ '1 '#f '#f) (##structure gx#syntax-wrap::t - _%stx117996%_ - (gx#stx-source _%stx117996%_) - _%mark117997%_))))) + _%stx118033%_ + (gx#stx-source _%stx118033%_) + _%mark118034%_))))) (define gx#apply-mark - (lambda (_%mark117960%_ _%marks117961%_) - (let* ((_%marks117962117970%_ _%marks117961%_) - (_%else117964117978%_ - (lambda () (cons _%mark117960%_ _%marks117961%_))) - (_%K117966117984%_ - (lambda (_%rest117981%_ _%hd117982%_) - (if (eq? _%mark117960%_ _%hd117982%_) - _%rest117981%_ - (cons _%mark117960%_ _%marks117961%_))))) - (if (pair? _%marks117962117970%_) - (let ((_%hd117967117987%_ (##car _%marks117962117970%_)) - (_%tl117968117989%_ (##cdr _%marks117962117970%_))) - (let* ((_%hd117992%_ _%hd117967117987%_) - (_%rest117994%_ _%tl117968117989%_)) - (_%K117966117984%_ _%rest117994%_ _%hd117992%_))) - (_%else117964117978%_))))) + (lambda (_%mark117997%_ _%marks117998%_) + (let* ((_%marks117999118007%_ _%marks117998%_) + (_%else118001118015%_ + (lambda () (cons _%mark117997%_ _%marks117998%_))) + (_%K118003118021%_ + (lambda (_%rest118018%_ _%hd118019%_) + (if (eq? _%mark117997%_ _%hd118019%_) + _%rest118018%_ + (cons _%mark117997%_ _%marks117998%_))))) + (if (pair? _%marks117999118007%_) + (let ((_%hd118004118024%_ (##car _%marks117999118007%_)) + (_%tl118005118026%_ (##cdr _%marks117999118007%_))) + (let* ((_%hd118029%_ _%hd118004118024%_) + (_%rest118031%_ _%tl118005118026%_)) + (_%K118003118021%_ _%rest118031%_ _%hd118029%_))) + (_%else118001118015%_))))) (define gx#stx-e - (lambda (_%stx117955%_) - (if (##structure-direct-instance-of? _%stx117955%_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _%stx117955%_ '1 '#f '#f)) - (if (##structure-instance-of? _%stx117955%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx117955%_ '1 '#f '#f) - _%stx117955%_)))) + (lambda (_%stx117992%_) + (if (##structure-direct-instance-of? _%stx117992%_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _%stx117992%_ '1 '#f '#f)) + (if (##structure-instance-of? _%stx117992%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx117992%_ '1 '#f '#f) + _%stx117992%_)))) (define gx#stx-source - (lambda (_%stx117953%_) - (if (##structure-instance-of? _%stx117953%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx117953%_ '2 '#f '#f) + (lambda (_%stx117990%_) + (if (##structure-instance-of? _%stx117990%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx117990%_ '2 '#f '#f) '#f))) (define gx#stx-wrap-source - (lambda (_%stx117947%_ _%src117948%_) - (if (or (##structure-instance-of? _%stx117947%_ 'gerbil#AST::t) - (not _%src117948%_)) - _%stx117947%_ - (##structure gx#AST::t _%stx117947%_ _%src117948%_)))) + (lambda (_%stx117984%_ _%src117985%_) + (if (or (##structure-instance-of? _%stx117984%_ 'gerbil#AST::t) + (not _%src117985%_)) + _%stx117984%_ + (##structure gx#AST::t _%stx117984%_ _%src117985%_)))) (define gx#stx-datum? - (lambda (_%stx117945%_) (gx#self-quoting? (gx#stx-e _%stx117945%_)))) + (lambda (_%stx117982%_) (gx#self-quoting? (gx#stx-e _%stx117982%_)))) (define gx#self-quoting? - (lambda (_%x117928%_) - (let ((_%$e117930%_ (immediate? _%x117928%_))) - (if _%$e117930%_ - _%$e117930%_ - (let ((_%$e117933%_ (number? _%x117928%_))) - (if _%$e117933%_ - _%$e117933%_ - (let ((_%$e117936%_ (keyword? _%x117928%_))) - (if _%$e117936%_ - _%$e117936%_ - (let ((_%$e117939%_ (string? _%x117928%_))) - (if _%$e117939%_ - _%$e117939%_ - (let ((_%$e117942%_ (vector? _%x117928%_))) - (if _%$e117942%_ - _%$e117942%_ - (u8vector? _%x117928%_))))))))))))) + (lambda (_%x117965%_) + (let ((_%$e117967%_ (immediate? _%x117965%_))) + (if _%$e117967%_ + _%$e117967%_ + (let ((_%$e117970%_ (number? _%x117965%_))) + (if _%$e117970%_ + _%$e117970%_ + (let ((_%$e117973%_ (keyword? _%x117965%_))) + (if _%$e117973%_ + _%$e117973%_ + (let ((_%$e117976%_ (string? _%x117965%_))) + (if _%$e117976%_ + _%$e117976%_ + (let ((_%$e117979%_ (vector? _%x117965%_))) + (if _%$e117979%_ + _%$e117979%_ + (u8vector? _%x117965%_))))))))))))) (define gx#stx-boolean? - (lambda (_%e117926%_) (boolean? (gx#stx-e _%e117926%_)))) + (lambda (_%e117963%_) (boolean? (gx#stx-e _%e117963%_)))) (define gx#stx-keyword? - (lambda (_%e117924%_) (keyword? (gx#stx-e _%e117924%_)))) - (define gx#stx-char? (lambda (_%e117922%_) (char? (gx#stx-e _%e117922%_)))) + (lambda (_%e117961%_) (keyword? (gx#stx-e _%e117961%_)))) + (define gx#stx-char? (lambda (_%e117959%_) (char? (gx#stx-e _%e117959%_)))) (define gx#stx-number? - (lambda (_%e117920%_) (number? (gx#stx-e _%e117920%_)))) + (lambda (_%e117957%_) (number? (gx#stx-e _%e117957%_)))) (define gx#stx-fixnum? - (lambda (_%e117918%_) (fixnum? (gx#stx-e _%e117918%_)))) + (lambda (_%e117955%_) (fixnum? (gx#stx-e _%e117955%_)))) (define gx#stx-string? - (lambda (_%e117916%_) (string? (gx#stx-e _%e117916%_)))) - (define gx#stx-null? (lambda (_%e117914%_) (null? (gx#stx-e _%e117914%_)))) - (define gx#stx-pair? (lambda (_%e117912%_) (pair? (gx#stx-e _%e117912%_)))) + (lambda (_%e117953%_) (string? (gx#stx-e _%e117953%_)))) + (define gx#stx-null? (lambda (_%e117951%_) (null? (gx#stx-e _%e117951%_)))) + (define gx#stx-pair? (lambda (_%e117949%_) (pair? (gx#stx-e _%e117949%_)))) (define gx#stx-list? - (lambda (_%e117874%_) - (let* ((_%g117875117884%_ (gx#stx-e _%e117874%_)) - (_%E117878117888%_ + (lambda (_%e117911%_) + (let* ((_%g117912117921%_ (gx#stx-e _%e117911%_)) + (_%E117915117925%_ (lambda () (error '"No clause matching" - _%g117875117884%_ + _%g117912117921%_ '([_ . rest]) '(tail)) '#!void))) - (let ((_%K117880117904%_ - (lambda (_%rest117902%_) (gx#stx-list? _%rest117902%_))) - (_%K117879117894%_ - (lambda (_%tail117892%_) (null? _%tail117892%_)))) - (if (pair? _%g117875117884%_) - (let* ((_%tl117882117907%_ (##cdr _%g117875117884%_)) - (_%rest117910%_ _%tl117882117907%_)) - (gx#stx-list? _%rest117910%_)) - (let ((_%tail117897%_ _%g117875117884%_)) - (null? _%tail117897%_))))))) + (let ((_%K117917117941%_ + (lambda (_%rest117939%_) (gx#stx-list? _%rest117939%_))) + (_%K117916117931%_ + (lambda (_%tail117929%_) (null? _%tail117929%_)))) + (if (pair? _%g117912117921%_) + (let* ((_%tl117919117944%_ (##cdr _%g117912117921%_)) + (_%rest117947%_ _%tl117919117944%_)) + (gx#stx-list? _%rest117947%_)) + (let ((_%tail117934%_ _%g117912117921%_)) + (null? _%tail117934%_))))))) (define gx#stx-pair/null? - (lambda (_%e117867%_) - (let* ((_%e117869%_ (gx#stx-e _%e117867%_)) - (_%$e117871%_ (pair? _%e117869%_))) - (if _%$e117871%_ _%$e117871%_ (null? _%e117869%_))))) + (lambda (_%e117904%_) + (let* ((_%e117906%_ (gx#stx-e _%e117904%_)) + (_%$e117908%_ (pair? _%e117906%_))) + (if _%$e117908%_ _%$e117908%_ (null? _%e117906%_))))) (define gx#stx-vector? - (lambda (_%e117865%_) (vector? (gx#stx-e _%e117865%_)))) - (define gx#stx-box? (lambda (_%e117863%_) (box? (gx#stx-e _%e117863%_)))) + (lambda (_%e117902%_) (vector? (gx#stx-e _%e117902%_)))) + (define gx#stx-box? (lambda (_%e117900%_) (box? (gx#stx-e _%e117900%_)))) (define gx#stx-eq? - (lambda (_%x117860%_ _%y117861%_) - (eq? (gx#stx-e _%x117860%_) (gx#stx-e _%y117861%_)))) + (lambda (_%x117897%_ _%y117898%_) + (eq? (gx#stx-e _%x117897%_) (gx#stx-e _%y117898%_)))) (define gx#stx-eqv? - (lambda (_%x117857%_ _%y117858%_) - (eqv? (gx#stx-e _%x117857%_) (gx#stx-e _%y117858%_)))) + (lambda (_%x117894%_ _%y117895%_) + (eqv? (gx#stx-e _%x117894%_) (gx#stx-e _%y117895%_)))) (define gx#stx-equal? - (lambda (_%x117854%_ _%y117855%_) - (equal? (gx#stx-e _%x117854%_) (gx#stx-e _%y117855%_)))) - (define gx#stx-false? (lambda (_%x117852%_) (not (gx#stx-e _%x117852%_)))) + (lambda (_%x117891%_ _%y117892%_) + (equal? (gx#stx-e _%x117891%_) (gx#stx-e _%y117892%_)))) + (define gx#stx-false? (lambda (_%x117889%_) (not (gx#stx-e _%x117889%_)))) (define gx#stx-identifier - (lambda (_%template117849%_ . _%args117850%_) + (lambda (_%template117886%_ . _%args117887%_) (gx#datum->syntax__1 - _%template117849%_ - (apply make-symbol (gx#syntax->datum _%args117850%_)) - (gx#stx-source _%template117849%_)))) + _%template117886%_ + (apply make-symbol (gx#syntax->datum _%args117887%_)) + (gx#stx-source _%template117886%_)))) (define gx#stx-identifier-marks - (lambda (_%stx117847%_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx117847%_)))) + (lambda (_%stx117884%_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx117884%_)))) (define gx#stx-identifier-marks* - (lambda (_%stx117842%_) + (lambda (_%stx117879%_) (if (##structure-direct-instance-of? - _%stx117842%_ + _%stx117879%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%stx117842%_ '3 '#f '#f) + (##unchecked-structure-ref _%stx117879%_ '3 '#f '#f) (if (##structure-direct-instance-of? - _%stx117842%_ + _%stx117879%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%stx117842%_ '4 '#f '#f) + (##unchecked-structure-ref _%stx117879%_ '4 '#f '#f) (error '"Bad wrap; expected unwrapped identifier" - _%stx117842%_))))) + _%stx117879%_))))) (define gx#stx-identifier-context - (lambda (_%stx117838%_) - (let ((_%stx117840%_ (gx#stx-unwrap__0 _%stx117838%_))) - (if (gx#identifier-quote? _%stx117840%_) - (##unchecked-structure-ref _%stx117840%_ '3 '#f '#f) + (lambda (_%stx117875%_) + (let ((_%stx117877%_ (gx#stx-unwrap__0 _%stx117875%_))) + (if (gx#identifier-quote? _%stx117877%_) + (##unchecked-structure-ref _%stx117877%_ '3 '#f '#f) '#f)))) (define gx#identifier-list? - (lambda (_%stx117793%_) - (let* ((_%g117794117804%_ (gx#stx-e _%stx117793%_)) - (_%else117797117812%_ (lambda () '#f))) - (let ((_%K117800117826%_ - (lambda (_%rest117823%_ _%hd117824%_) - (if (gx#identifier? _%hd117824%_) - (gx#identifier-list? _%rest117823%_) + (lambda (_%stx117830%_) + (let* ((_%g117831117841%_ (gx#stx-e _%stx117830%_)) + (_%else117834117849%_ (lambda () '#f))) + (let ((_%K117837117863%_ + (lambda (_%rest117860%_ _%hd117861%_) + (if (gx#identifier? _%hd117861%_) + (gx#identifier-list? _%rest117860%_) '#f))) - (_%K117799117817%_ (lambda () '#t))) - (let ((_%try-match117796117820%_ + (_%K117836117854%_ (lambda () '#t))) + (let ((_%try-match117833117857%_ (lambda () - (if (null? _%g117794117804%_) - (_%K117799117817%_) - (_%else117797117812%_))))) - (if (pair? _%g117794117804%_) - (let ((_%tl117802117831%_ (##cdr _%g117794117804%_)) - (_%hd117801117829%_ (##car _%g117794117804%_))) - (let ((_%hd117834%_ _%hd117801117829%_) - (_%rest117836%_ _%tl117802117831%_)) - (_%K117800117826%_ _%rest117836%_ _%hd117834%_))) - (_%try-match117796117820%_))))))) + (if (null? _%g117831117841%_) + (_%K117836117854%_) + (_%else117834117849%_))))) + (if (pair? _%g117831117841%_) + (let ((_%tl117839117868%_ (##cdr _%g117831117841%_)) + (_%hd117838117866%_ (##car _%g117831117841%_))) + (let ((_%hd117871%_ _%hd117838117866%_) + (_%rest117873%_ _%tl117839117868%_)) + (_%K117837117863%_ _%rest117873%_ _%hd117871%_))) + (_%try-match117833117857%_))))))) (define gx#genident__% - (lambda (_%e117770%_ _%src117771%_) + (lambda (_%e117807%_ _%src117808%_) (gx#stx-wrap-source - (gensym (let ((_%e117773%_ (gx#stx-e _%e117770%_))) - (if (interned-symbol? _%e117773%_) _%e117773%_ 'g))) - (let ((_%$e117775%_ (gx#stx-source _%e117770%_))) - (if _%$e117775%_ _%$e117775%_ _%src117771%_))))) + (gensym (let ((_%e117810%_ (gx#stx-e _%e117807%_))) + (if (interned-symbol? _%e117810%_) _%e117810%_ 'g))) + (let ((_%$e117812%_ (gx#stx-source _%e117807%_))) + (if _%$e117812%_ _%$e117812%_ _%src117808%_))))) (define gx#genident__0 (lambda () - (let* ((_%e117782%_ 'g) (_%src117784%_ '#f)) - (gx#genident__% _%e117782%_ _%src117784%_)))) + (let* ((_%e117819%_ 'g) (_%src117821%_ '#f)) + (gx#genident__% _%e117819%_ _%src117821%_)))) (define gx#genident__1 - (lambda (_%e117786%_) - (let ((_%src117788%_ '#f)) - (gx#genident__% _%e117786%_ _%src117788%_)))) + (lambda (_%e117823%_) + (let ((_%src117825%_ '#f)) + (gx#genident__% _%e117823%_ _%src117825%_)))) (define gx#genident - (lambda _g118253_ - (let ((_g118252_ (##length _g118253_))) - (cond ((##fx= _g118252_ 0) (apply gx#genident__0 _g118253_)) - ((##fx= _g118252_ 1) (apply gx#genident__1 _g118253_)) - ((##fx= _g118252_ 2) (apply gx#genident__% _g118253_)) + (lambda _g118290_ + (let ((_g118289_ (##length _g118290_))) + (cond ((##fx= _g118289_ 0) (apply gx#genident__0 _g118290_)) + ((##fx= _g118289_ 1) (apply gx#genident__1 _g118290_)) + ((##fx= _g118289_ 2) (apply gx#genident__% _g118290_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g118253_)))))) + _g118290_)))))) (define gx#gentemps - (lambda (_%stx-lst117767%_) (gx#stx-map1 gx#genident _%stx-lst117767%_))) + (lambda (_%stx-lst117804%_) (gx#stx-map1 gx#genident _%stx-lst117804%_))) (define gx#syntax->list - (lambda (_%stx117765%_) (gx#stx-map1 values _%stx117765%_))) + (lambda (_%stx117802%_) (gx#stx-map1 values _%stx117802%_))) (define gx#stx-car - (lambda (_%stx117762%_) + (lambda (_%stx117799%_) (declare (safe)) - (car (gx#syntax-e _%stx117762%_)))) + (car (gx#syntax-e _%stx117799%_)))) (define gx#stx-cdr - (lambda (_%stx117759%_) + (lambda (_%stx117796%_) (declare (safe)) - (cdr (gx#syntax-e _%stx117759%_)))) + (cdr (gx#syntax-e _%stx117796%_)))) (define gx#stx-length - (lambda (_%stx117724%_) - (let _%lp117726%_ ((_%rest117728%_ _%stx117724%_) (_%n117729%_ '0)) - (let* ((_%g117730117738%_ (gx#stx-e _%rest117728%_)) - (_%else117732117746%_ (lambda () _%n117729%_)) - (_%K117734117751%_ - (lambda (_%rest117749%_) - (_%lp117726%_ _%rest117749%_ (##fx+ _%n117729%_ '1))))) - (if (pair? _%g117730117738%_) - (let* ((_%tl117736117754%_ (##cdr _%g117730117738%_)) - (_%rest117757%_ _%tl117736117754%_)) - (_%K117734117751%_ _%rest117757%_)) - (_%else117732117746%_)))))) + (lambda (_%stx117761%_) + (let _%lp117763%_ ((_%rest117765%_ _%stx117761%_) (_%n117766%_ '0)) + (let* ((_%g117767117775%_ (gx#stx-e _%rest117765%_)) + (_%else117769117783%_ (lambda () _%n117766%_)) + (_%K117771117788%_ + (lambda (_%rest117786%_) + (_%lp117763%_ _%rest117786%_ (##fx+ _%n117766%_ '1))))) + (if (pair? _%g117767117775%_) + (let* ((_%tl117773117791%_ (##cdr _%g117767117775%_)) + (_%rest117794%_ _%tl117773117791%_)) + (_%K117771117788%_ _%rest117794%_)) + (_%else117769117783%_)))))) (define gx#stx-for-each - (lambda _g118255_ - (let ((_g118254_ (##length _g118255_))) - (cond ((##fx= _g118254_ 2) (apply gx#stx-for-each1 _g118255_)) - ((##fx= _g118254_ 3) (apply gx#stx-for-each2 _g118255_)) + (lambda _g118292_ + (let ((_g118291_ (##length _g118292_))) + (cond ((##fx= _g118291_ 2) (apply gx#stx-for-each1 _g118292_)) + ((##fx= _g118291_ 3) (apply gx#stx-for-each2 _g118292_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g118255_)))))) + _g118292_)))))) (define gx#stx-for-each1 - (lambda (_%f117667%_ _%stx117668%_) - (if (procedure? _%f117667%_) + (lambda (_%f117704%_ _%stx117705%_) + (if (procedure? _%f117704%_) '#!void - (error '"expected procedure" _%f117667%_)) - (let _%lp117670%_ ((_%rest117672%_ _%stx117668%_)) - (let* ((_%g117673117683%_ (gx#syntax-e _%rest117672%_)) - (_%else117676117691%_ - (lambda () (_%f117667%_ _%rest117672%_)))) - (let ((_%K117679117705%_ - (lambda (_%rest117702%_ _%hd117703%_) - (_%f117667%_ _%hd117703%_) - (_%lp117670%_ _%rest117702%_))) - (_%K117678117696%_ (lambda () '#!void))) - (let ((_%try-match117675117699%_ + (error '"expected procedure" _%f117704%_)) + (let _%lp117707%_ ((_%rest117709%_ _%stx117705%_)) + (let* ((_%g117710117720%_ (gx#syntax-e _%rest117709%_)) + (_%else117713117728%_ + (lambda () (_%f117704%_ _%rest117709%_)))) + (let ((_%K117716117742%_ + (lambda (_%rest117739%_ _%hd117740%_) + (_%f117704%_ _%hd117740%_) + (_%lp117707%_ _%rest117739%_))) + (_%K117715117733%_ (lambda () '#!void))) + (let ((_%try-match117712117736%_ (lambda () - (if (null? _%g117673117683%_) - (_%K117678117696%_) - (_%else117676117691%_))))) - (if (pair? _%g117673117683%_) - (let ((_%tl117681117710%_ (##cdr _%g117673117683%_)) - (_%hd117680117708%_ (##car _%g117673117683%_))) - (let ((_%hd117713%_ _%hd117680117708%_) - (_%rest117715%_ _%tl117681117710%_)) - (_%K117679117705%_ _%rest117715%_ _%hd117713%_))) - (_%try-match117675117699%_)))))))) + (if (null? _%g117710117720%_) + (_%K117715117733%_) + (_%else117713117728%_))))) + (if (pair? _%g117710117720%_) + (let ((_%tl117718117747%_ (##cdr _%g117710117720%_)) + (_%hd117717117745%_ (##car _%g117710117720%_))) + (let ((_%hd117750%_ _%hd117717117745%_) + (_%rest117752%_ _%tl117718117747%_)) + (_%K117716117742%_ _%rest117752%_ _%hd117750%_))) + (_%try-match117712117736%_)))))))) (define gx#stx-for-each2 - (lambda (_%f117572%_ _%xstx117573%_ _%ystx117574%_) - (if (procedure? _%f117572%_) + (lambda (_%f117609%_ _%xstx117610%_ _%ystx117611%_) + (if (procedure? _%f117609%_) '#!void - (error '"expected procedure" _%f117572%_)) - (let _%lp117576%_ ((_%xrest117578%_ _%xstx117573%_) - (_%yrest117579%_ _%ystx117574%_)) - (let* ((_%g117580117590%_ (gx#syntax-e _%xrest117578%_)) - (_%else117583117598%_ (lambda () '#!void))) - (let ((_%K117586117655%_ - (lambda (_%xrest117624%_ _%xhd117625%_) - (let* ((_%g117626117633%_ (gx#syntax-e _%yrest117579%_)) - (_%E117628117637%_ + (error '"expected procedure" _%f117609%_)) + (let _%lp117613%_ ((_%xrest117615%_ _%xstx117610%_) + (_%yrest117616%_ _%ystx117611%_)) + (let* ((_%g117617117627%_ (gx#syntax-e _%xrest117615%_)) + (_%else117620117635%_ (lambda () '#!void))) + (let ((_%K117623117692%_ + (lambda (_%xrest117661%_ _%xhd117662%_) + (let* ((_%g117663117670%_ (gx#syntax-e _%yrest117616%_)) + (_%E117665117674%_ (lambda () (error '"No clause matching" - _%g117626117633%_ + _%g117663117670%_ '([yhd . yrest])) '#!void)) - (_%K117629117643%_ - (lambda (_%yrest117640%_ _%yhd117641%_) - (_%f117572%_ _%xhd117625%_ _%yhd117641%_) - (_%lp117576%_ - _%xrest117624%_ - _%yrest117640%_)))) - (if (pair? _%g117626117633%_) - (let ((_%hd117630117646%_ (##car _%g117626117633%_)) - (_%tl117631117648%_ - (##cdr _%g117626117633%_))) - (let* ((_%yhd117651%_ _%hd117630117646%_) - (_%yrest117653%_ _%tl117631117648%_)) - (_%K117629117643%_ - _%yrest117653%_ - _%yhd117651%_))) - (_%E117628117637%_))))) - (_%K117585117618%_ + (_%K117666117680%_ + (lambda (_%yrest117677%_ _%yhd117678%_) + (_%f117609%_ _%xhd117662%_ _%yhd117678%_) + (_%lp117613%_ + _%xrest117661%_ + _%yrest117677%_)))) + (if (pair? _%g117663117670%_) + (let ((_%hd117667117683%_ (##car _%g117663117670%_)) + (_%tl117668117685%_ + (##cdr _%g117663117670%_))) + (let* ((_%yhd117688%_ _%hd117667117683%_) + (_%yrest117690%_ _%tl117668117685%_)) + (_%K117666117680%_ + _%yrest117690%_ + _%yhd117688%_))) + (_%E117665117674%_))))) + (_%K117622117655%_ (lambda () - (let* ((_%yrest117602117607%_ _%yrest117579%_) - (_%E117604117611%_ + (let* ((_%yrest117639117644%_ _%yrest117616%_) + (_%E117641117648%_ (lambda () (error '"No clause matching" - _%yrest117602117607%_ + _%yrest117639117644%_ '((? (not stx-null?)))) '#!void)) - (_%K117605117615%_ + (_%K117642117652%_ (lambda () - (_%f117572%_ _%xrest117578%_ _%yrest117579%_)))) - (if (gx#stx-null? _%yrest117602117607%_) - (_%E117604117611%_) - (_%K117605117615%_)))))) - (let ((_%try-match117582117621%_ + (_%f117609%_ _%xrest117615%_ _%yrest117616%_)))) + (if (gx#stx-null? _%yrest117639117644%_) + (_%E117641117648%_) + (_%K117642117652%_)))))) + (let ((_%try-match117619117658%_ (lambda () - (if (null? _%g117580117590%_) - (_%else117583117598%_) - (_%K117585117618%_))))) - (if (pair? _%g117580117590%_) - (let ((_%tl117588117660%_ (##cdr _%g117580117590%_)) - (_%hd117587117658%_ (##car _%g117580117590%_))) - (let ((_%xhd117663%_ _%hd117587117658%_) - (_%xrest117665%_ _%tl117588117660%_)) - (_%K117586117655%_ _%xrest117665%_ _%xhd117663%_))) - (_%try-match117582117621%_)))))))) + (if (null? _%g117617117627%_) + (_%else117620117635%_) + (_%K117622117655%_))))) + (if (pair? _%g117617117627%_) + (let ((_%tl117625117697%_ (##cdr _%g117617117627%_)) + (_%hd117624117695%_ (##car _%g117617117627%_))) + (let ((_%xhd117700%_ _%hd117624117695%_) + (_%xrest117702%_ _%tl117625117697%_)) + (_%K117623117692%_ _%xrest117702%_ _%xhd117700%_))) + (_%try-match117619117658%_)))))))) (define gx#stx-map - (lambda _g118257_ - (let ((_g118256_ (##length _g118257_))) - (cond ((##fx= _g118256_ 2) (apply gx#stx-map1 _g118257_)) - ((##fx= _g118256_ 3) (apply gx#stx-map2 _g118257_)) + (lambda _g118294_ + (let ((_g118293_ (##length _g118294_))) + (cond ((##fx= _g118293_ 2) (apply gx#stx-map1 _g118294_)) + ((##fx= _g118293_ 3) (apply gx#stx-map2 _g118294_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g118257_)))))) + _g118294_)))))) (define gx#stx-map1 - (lambda (_%f117515%_ _%stx117516%_) - (if (procedure? _%f117515%_) + (lambda (_%f117552%_ _%stx117553%_) + (if (procedure? _%f117552%_) '#!void - (error '"expected procedure" _%f117515%_)) - (let _%recur117518%_ ((_%rest117520%_ _%stx117516%_)) - (let* ((_%g117521117531%_ (gx#syntax-e _%rest117520%_)) - (_%else117524117539%_ - (lambda () (_%f117515%_ _%rest117520%_)))) - (let ((_%K117527117553%_ - (lambda (_%rest117550%_ _%hd117551%_) - (cons (_%f117515%_ _%hd117551%_) - (_%recur117518%_ _%rest117550%_)))) - (_%K117526117544%_ (lambda () '()))) - (let ((_%try-match117523117547%_ + (error '"expected procedure" _%f117552%_)) + (let _%recur117555%_ ((_%rest117557%_ _%stx117553%_)) + (let* ((_%g117558117568%_ (gx#syntax-e _%rest117557%_)) + (_%else117561117576%_ + (lambda () (_%f117552%_ _%rest117557%_)))) + (let ((_%K117564117590%_ + (lambda (_%rest117587%_ _%hd117588%_) + (cons (_%f117552%_ _%hd117588%_) + (_%recur117555%_ _%rest117587%_)))) + (_%K117563117581%_ (lambda () '()))) + (let ((_%try-match117560117584%_ (lambda () - (if (null? _%g117521117531%_) - (_%K117526117544%_) - (_%else117524117539%_))))) - (if (pair? _%g117521117531%_) - (let ((_%tl117529117558%_ (##cdr _%g117521117531%_)) - (_%hd117528117556%_ (##car _%g117521117531%_))) - (let ((_%hd117561%_ _%hd117528117556%_) - (_%rest117563%_ _%tl117529117558%_)) - (_%K117527117553%_ _%rest117563%_ _%hd117561%_))) - (_%try-match117523117547%_)))))))) + (if (null? _%g117558117568%_) + (_%K117563117581%_) + (_%else117561117576%_))))) + (if (pair? _%g117558117568%_) + (let ((_%tl117566117595%_ (##cdr _%g117558117568%_)) + (_%hd117565117593%_ (##car _%g117558117568%_))) + (let ((_%hd117598%_ _%hd117565117593%_) + (_%rest117600%_ _%tl117566117595%_)) + (_%K117564117590%_ _%rest117600%_ _%hd117598%_))) + (_%try-match117560117584%_)))))))) (define gx#stx-map2 - (lambda (_%f117420%_ _%xstx117421%_ _%ystx117422%_) - (if (procedure? _%f117420%_) + (lambda (_%f117457%_ _%xstx117458%_ _%ystx117459%_) + (if (procedure? _%f117457%_) '#!void - (error '"expected procedure" _%f117420%_)) - (let _%recur117424%_ ((_%xrest117426%_ _%xstx117421%_) - (_%yrest117427%_ _%ystx117422%_)) - (let* ((_%g117428117438%_ (gx#syntax-e _%xrest117426%_)) - (_%else117431117446%_ (lambda () '()))) - (let ((_%K117434117503%_ - (lambda (_%xrest117472%_ _%xhd117473%_) - (let* ((_%g117474117481%_ (gx#syntax-e _%yrest117427%_)) - (_%E117476117485%_ + (error '"expected procedure" _%f117457%_)) + (let _%recur117461%_ ((_%xrest117463%_ _%xstx117458%_) + (_%yrest117464%_ _%ystx117459%_)) + (let* ((_%g117465117475%_ (gx#syntax-e _%xrest117463%_)) + (_%else117468117483%_ (lambda () '()))) + (let ((_%K117471117540%_ + (lambda (_%xrest117509%_ _%xhd117510%_) + (let* ((_%g117511117518%_ (gx#syntax-e _%yrest117464%_)) + (_%E117513117522%_ (lambda () (error '"No clause matching" - _%g117474117481%_ + _%g117511117518%_ '([yhd . yrest])) '#!void)) - (_%K117477117491%_ - (lambda (_%yrest117488%_ _%yhd117489%_) - (cons (_%f117420%_ _%xhd117473%_ _%yhd117489%_) - (_%recur117424%_ - _%xrest117472%_ - _%yrest117488%_))))) - (if (pair? _%g117474117481%_) - (let ((_%hd117478117494%_ (##car _%g117474117481%_)) - (_%tl117479117496%_ - (##cdr _%g117474117481%_))) - (let* ((_%yhd117499%_ _%hd117478117494%_) - (_%yrest117501%_ _%tl117479117496%_)) - (_%K117477117491%_ - _%yrest117501%_ - _%yhd117499%_))) - (_%E117476117485%_))))) - (_%K117433117466%_ + (_%K117514117528%_ + (lambda (_%yrest117525%_ _%yhd117526%_) + (cons (_%f117457%_ _%xhd117510%_ _%yhd117526%_) + (_%recur117461%_ + _%xrest117509%_ + _%yrest117525%_))))) + (if (pair? _%g117511117518%_) + (let ((_%hd117515117531%_ (##car _%g117511117518%_)) + (_%tl117516117533%_ + (##cdr _%g117511117518%_))) + (let* ((_%yhd117536%_ _%hd117515117531%_) + (_%yrest117538%_ _%tl117516117533%_)) + (_%K117514117528%_ + _%yrest117538%_ + _%yhd117536%_))) + (_%E117513117522%_))))) + (_%K117470117503%_ (lambda () - (let* ((_%yrest117450117455%_ _%yrest117427%_) - (_%E117452117459%_ + (let* ((_%yrest117487117492%_ _%yrest117464%_) + (_%E117489117496%_ (lambda () (error '"No clause matching" - _%yrest117450117455%_ + _%yrest117487117492%_ '((? (not stx-null?)))) '#!void)) - (_%K117453117463%_ + (_%K117490117500%_ (lambda () - (_%f117420%_ _%xrest117426%_ _%yrest117427%_)))) - (if (gx#stx-null? _%yrest117450117455%_) - (_%E117452117459%_) - (_%K117453117463%_)))))) - (let ((_%try-match117430117469%_ + (_%f117457%_ _%xrest117463%_ _%yrest117464%_)))) + (if (gx#stx-null? _%yrest117487117492%_) + (_%E117489117496%_) + (_%K117490117500%_)))))) + (let ((_%try-match117467117506%_ (lambda () - (if (null? _%g117428117438%_) - (_%else117431117446%_) - (_%K117433117466%_))))) - (if (pair? _%g117428117438%_) - (let ((_%tl117436117508%_ (##cdr _%g117428117438%_)) - (_%hd117435117506%_ (##car _%g117428117438%_))) - (let ((_%xhd117511%_ _%hd117435117506%_) - (_%xrest117513%_ _%tl117436117508%_)) - (_%K117434117503%_ _%xrest117513%_ _%xhd117511%_))) - (_%try-match117430117469%_)))))))) + (if (null? _%g117465117475%_) + (_%else117468117483%_) + (_%K117470117503%_))))) + (if (pair? _%g117465117475%_) + (let ((_%tl117473117545%_ (##cdr _%g117465117475%_)) + (_%hd117472117543%_ (##car _%g117465117475%_))) + (let ((_%xhd117548%_ _%hd117472117543%_) + (_%xrest117550%_ _%tl117473117545%_)) + (_%K117471117540%_ _%xrest117550%_ _%xhd117548%_))) + (_%try-match117467117506%_)))))))) (define gx#stx-andmap - (lambda (_%f117370%_ _%stx117371%_) - (if (procedure? _%f117370%_) + (lambda (_%f117407%_ _%stx117408%_) + (if (procedure? _%f117407%_) '#!void - (error '"expected procedure" _%f117370%_)) - (let _%lp117373%_ ((_%rest117375%_ _%stx117371%_)) - (let* ((_%g117376117386%_ (gx#syntax-e _%rest117375%_)) - (_%else117379117394%_ - (lambda () (_%f117370%_ _%rest117375%_)))) - (let ((_%K117382117408%_ - (lambda (_%rest117405%_ _%hd117406%_) - (if (_%f117370%_ _%hd117406%_) - (_%lp117373%_ _%rest117405%_) + (error '"expected procedure" _%f117407%_)) + (let _%lp117410%_ ((_%rest117412%_ _%stx117408%_)) + (let* ((_%g117413117423%_ (gx#syntax-e _%rest117412%_)) + (_%else117416117431%_ + (lambda () (_%f117407%_ _%rest117412%_)))) + (let ((_%K117419117445%_ + (lambda (_%rest117442%_ _%hd117443%_) + (if (_%f117407%_ _%hd117443%_) + (_%lp117410%_ _%rest117442%_) '#f))) - (_%K117381117399%_ (lambda () '#t))) - (let ((_%try-match117378117402%_ + (_%K117418117436%_ (lambda () '#t))) + (let ((_%try-match117415117439%_ (lambda () - (if (null? _%g117376117386%_) - (_%K117381117399%_) - (_%else117379117394%_))))) - (if (pair? _%g117376117386%_) - (let ((_%tl117384117413%_ (##cdr _%g117376117386%_)) - (_%hd117383117411%_ (##car _%g117376117386%_))) - (let ((_%hd117416%_ _%hd117383117411%_) - (_%rest117418%_ _%tl117384117413%_)) - (_%K117382117408%_ _%rest117418%_ _%hd117416%_))) - (_%try-match117378117402%_)))))))) + (if (null? _%g117413117423%_) + (_%K117418117436%_) + (_%else117416117431%_))))) + (if (pair? _%g117413117423%_) + (let ((_%tl117421117450%_ (##cdr _%g117413117423%_)) + (_%hd117420117448%_ (##car _%g117413117423%_))) + (let ((_%hd117453%_ _%hd117420117448%_) + (_%rest117455%_ _%tl117421117450%_)) + (_%K117419117445%_ _%rest117455%_ _%hd117453%_))) + (_%try-match117415117439%_)))))))) (define gx#stx-ormap - (lambda (_%f117317%_ _%stx117318%_) - (if (procedure? _%f117317%_) + (lambda (_%f117354%_ _%stx117355%_) + (if (procedure? _%f117354%_) '#!void - (error '"expected procedure" _%f117317%_)) - (let _%lp117320%_ ((_%rest117322%_ _%stx117318%_)) - (let* ((_%g117323117333%_ (gx#syntax-e _%rest117322%_)) - (_%else117326117341%_ - (lambda () (_%f117317%_ _%rest117322%_)))) - (let ((_%K117329117358%_ - (lambda (_%rest117352%_ _%hd117353%_) - (let ((_%$e117355%_ (_%f117317%_ _%hd117353%_))) - (if _%$e117355%_ - _%$e117355%_ - (_%lp117320%_ _%rest117352%_))))) - (_%K117328117346%_ (lambda () '#f))) - (let ((_%try-match117325117349%_ + (error '"expected procedure" _%f117354%_)) + (let _%lp117357%_ ((_%rest117359%_ _%stx117355%_)) + (let* ((_%g117360117370%_ (gx#syntax-e _%rest117359%_)) + (_%else117363117378%_ + (lambda () (_%f117354%_ _%rest117359%_)))) + (let ((_%K117366117395%_ + (lambda (_%rest117389%_ _%hd117390%_) + (let ((_%$e117392%_ (_%f117354%_ _%hd117390%_))) + (if _%$e117392%_ + _%$e117392%_ + (_%lp117357%_ _%rest117389%_))))) + (_%K117365117383%_ (lambda () '#f))) + (let ((_%try-match117362117386%_ (lambda () - (if (null? _%g117323117333%_) - (_%K117328117346%_) - (_%else117326117341%_))))) - (if (pair? _%g117323117333%_) - (let ((_%tl117331117363%_ (##cdr _%g117323117333%_)) - (_%hd117330117361%_ (##car _%g117323117333%_))) - (let ((_%hd117366%_ _%hd117330117361%_) - (_%rest117368%_ _%tl117331117363%_)) - (_%K117329117358%_ _%rest117368%_ _%hd117366%_))) - (_%try-match117325117349%_)))))))) + (if (null? _%g117360117370%_) + (_%K117365117383%_) + (_%else117363117378%_))))) + (if (pair? _%g117360117370%_) + (let ((_%tl117368117400%_ (##cdr _%g117360117370%_)) + (_%hd117367117398%_ (##car _%g117360117370%_))) + (let ((_%hd117403%_ _%hd117367117398%_) + (_%rest117405%_ _%tl117368117400%_)) + (_%K117366117395%_ _%rest117405%_ _%hd117403%_))) + (_%try-match117362117386%_)))))))) (define gx#stx-foldl - (lambda (_%f117265%_ _%iv117266%_ _%stx117267%_) - (if (procedure? _%f117265%_) + (lambda (_%f117302%_ _%iv117303%_ _%stx117304%_) + (if (procedure? _%f117302%_) '#!void - (error '"expected procedure" _%f117265%_)) - (let _%lp117269%_ ((_%r117271%_ _%iv117266%_) - (_%rest117272%_ _%stx117267%_)) - (let* ((_%g117273117283%_ (gx#syntax-e _%rest117272%_)) - (_%else117276117291%_ - (lambda () (_%f117265%_ _%rest117272%_ _%r117271%_)))) - (let ((_%K117279117305%_ - (lambda (_%rest117302%_ _%hd117303%_) - (_%lp117269%_ - (_%f117265%_ _%hd117303%_ _%r117271%_) - _%rest117302%_))) - (_%K117278117296%_ (lambda () _%r117271%_))) - (let ((_%try-match117275117299%_ + (error '"expected procedure" _%f117302%_)) + (let _%lp117306%_ ((_%r117308%_ _%iv117303%_) + (_%rest117309%_ _%stx117304%_)) + (let* ((_%g117310117320%_ (gx#syntax-e _%rest117309%_)) + (_%else117313117328%_ + (lambda () (_%f117302%_ _%rest117309%_ _%r117308%_)))) + (let ((_%K117316117342%_ + (lambda (_%rest117339%_ _%hd117340%_) + (_%lp117306%_ + (_%f117302%_ _%hd117340%_ _%r117308%_) + _%rest117339%_))) + (_%K117315117333%_ (lambda () _%r117308%_))) + (let ((_%try-match117312117336%_ (lambda () - (if (null? _%g117273117283%_) - (_%K117278117296%_) - (_%else117276117291%_))))) - (if (pair? _%g117273117283%_) - (let ((_%tl117281117310%_ (##cdr _%g117273117283%_)) - (_%hd117280117308%_ (##car _%g117273117283%_))) - (let ((_%hd117313%_ _%hd117280117308%_) - (_%rest117315%_ _%tl117281117310%_)) - (_%K117279117305%_ _%rest117315%_ _%hd117313%_))) - (_%try-match117275117299%_)))))))) + (if (null? _%g117310117320%_) + (_%K117315117333%_) + (_%else117313117328%_))))) + (if (pair? _%g117310117320%_) + (let ((_%tl117318117347%_ (##cdr _%g117310117320%_)) + (_%hd117317117345%_ (##car _%g117310117320%_))) + (let ((_%hd117350%_ _%hd117317117345%_) + (_%rest117352%_ _%tl117318117347%_)) + (_%K117316117342%_ _%rest117352%_ _%hd117350%_))) + (_%try-match117312117336%_)))))))) (define gx#stx-foldr - (lambda (_%f117214%_ _%iv117215%_ _%stx117216%_) - (if (procedure? _%f117214%_) + (lambda (_%f117251%_ _%iv117252%_ _%stx117253%_) + (if (procedure? _%f117251%_) '#!void - (error '"expected procedure" _%f117214%_)) - (let _%recur117218%_ ((_%rest117220%_ _%stx117216%_)) - (let* ((_%g117221117231%_ (gx#syntax-e _%rest117220%_)) - (_%else117224117239%_ - (lambda () (_%f117214%_ _%rest117220%_ _%iv117215%_)))) - (let ((_%K117227117253%_ - (lambda (_%rest117250%_ _%hd117251%_) - (_%f117214%_ - _%hd117251%_ - (_%recur117218%_ _%rest117250%_)))) - (_%K117226117244%_ (lambda () _%iv117215%_))) - (let ((_%try-match117223117247%_ + (error '"expected procedure" _%f117251%_)) + (let _%recur117255%_ ((_%rest117257%_ _%stx117253%_)) + (let* ((_%g117258117268%_ (gx#syntax-e _%rest117257%_)) + (_%else117261117276%_ + (lambda () (_%f117251%_ _%rest117257%_ _%iv117252%_)))) + (let ((_%K117264117290%_ + (lambda (_%rest117287%_ _%hd117288%_) + (_%f117251%_ + _%hd117288%_ + (_%recur117255%_ _%rest117287%_)))) + (_%K117263117281%_ (lambda () _%iv117252%_))) + (let ((_%try-match117260117284%_ (lambda () - (if (null? _%g117221117231%_) - (_%K117226117244%_) - (_%else117224117239%_))))) - (if (pair? _%g117221117231%_) - (let ((_%tl117229117258%_ (##cdr _%g117221117231%_)) - (_%hd117228117256%_ (##car _%g117221117231%_))) - (let ((_%hd117261%_ _%hd117228117256%_) - (_%rest117263%_ _%tl117229117258%_)) - (_%K117227117253%_ _%rest117263%_ _%hd117261%_))) - (_%try-match117223117247%_)))))))) + (if (null? _%g117258117268%_) + (_%K117263117281%_) + (_%else117261117276%_))))) + (if (pair? _%g117258117268%_) + (let ((_%tl117266117295%_ (##cdr _%g117258117268%_)) + (_%hd117265117293%_ (##car _%g117258117268%_))) + (let ((_%hd117298%_ _%hd117265117293%_) + (_%rest117300%_ _%tl117266117295%_)) + (_%K117264117290%_ _%rest117300%_ _%hd117298%_))) + (_%try-match117260117284%_)))))))) (define gx#stx-reverse - (lambda (_%stx117212%_) (gx#stx-foldl cons '() _%stx117212%_))) + (lambda (_%stx117249%_) (gx#stx-foldl cons '() _%stx117249%_))) (define gx#stx-last - (lambda (_%stx117173%_) - (let _%lp117175%_ ((_%rest117177%_ _%stx117173%_)) - (let* ((_%g117178117186%_ (gx#syntax-e _%rest117177%_)) - (_%else117180117194%_ (lambda () _%rest117177%_)) - (_%K117182117200%_ - (lambda (_%rest117197%_ _%hd117198%_) - (if (gx#stx-null? _%rest117197%_) - _%hd117198%_ - (_%lp117175%_ _%rest117197%_))))) - (if (pair? _%g117178117186%_) - (let ((_%hd117183117203%_ (##car _%g117178117186%_)) - (_%tl117184117205%_ (##cdr _%g117178117186%_))) - (let* ((_%hd117208%_ _%hd117183117203%_) - (_%rest117210%_ _%tl117184117205%_)) - (_%K117182117200%_ _%rest117210%_ _%hd117208%_))) - (_%else117180117194%_)))))) + (lambda (_%stx117210%_) + (let _%lp117212%_ ((_%rest117214%_ _%stx117210%_)) + (let* ((_%g117215117223%_ (gx#syntax-e _%rest117214%_)) + (_%else117217117231%_ (lambda () _%rest117214%_)) + (_%K117219117237%_ + (lambda (_%rest117234%_ _%hd117235%_) + (if (gx#stx-null? _%rest117234%_) + _%hd117235%_ + (_%lp117212%_ _%rest117234%_))))) + (if (pair? _%g117215117223%_) + (let ((_%hd117220117240%_ (##car _%g117215117223%_)) + (_%tl117221117242%_ (##cdr _%g117215117223%_))) + (let* ((_%hd117245%_ _%hd117220117240%_) + (_%rest117247%_ _%tl117221117242%_)) + (_%K117219117237%_ _%rest117247%_ _%hd117245%_))) + (_%else117217117231%_)))))) (define gx#stx-last-pair - (lambda (_%stx117144%_) - (let _%lp117146%_ ((_%hd117148%_ _%stx117144%_)) - (let* ((_%g117149117156%_ (gx#syntax-e _%hd117148%_)) - (_%E117151117160%_ + (lambda (_%stx117181%_) + (let _%lp117183%_ ((_%hd117185%_ _%stx117181%_)) + (let* ((_%g117186117193%_ (gx#syntax-e _%hd117185%_)) + (_%E117188117197%_ (lambda () (error '"No clause matching" - _%g117149117156%_ + _%g117186117193%_ '([_ . rest])) '#!void)) - (_%K117152117165%_ - (lambda (_%rest117163%_) - (if (gx#stx-pair? _%rest117163%_) - (_%lp117146%_ _%rest117163%_) - _%hd117148%_)))) - (if (pair? _%g117149117156%_) - (let* ((_%tl117154117168%_ (##cdr _%g117149117156%_)) - (_%rest117171%_ _%tl117154117168%_)) - (_%K117152117165%_ _%rest117171%_)) - (_%E117151117160%_)))))) + (_%K117189117202%_ + (lambda (_%rest117200%_) + (if (gx#stx-pair? _%rest117200%_) + (_%lp117183%_ _%rest117200%_) + _%hd117185%_)))) + (if (pair? _%g117186117193%_) + (let* ((_%tl117191117205%_ (##cdr _%g117186117193%_)) + (_%rest117208%_ _%tl117191117205%_)) + (_%K117189117202%_ _%rest117208%_)) + (_%E117188117197%_)))))) (define gx#stx-list-tail - (lambda (_%stx117113%_ _%k117114%_) - (let _%lp117116%_ ((_%rest117118%_ _%stx117113%_) - (_%k117119%_ _%k117114%_)) - (if (fxpositive? _%k117119%_) - (let* ((_%g117120117127%_ (gx#syntax-e _%rest117118%_)) - (_%E117122117131%_ + (lambda (_%stx117150%_ _%k117151%_) + (let _%lp117153%_ ((_%rest117155%_ _%stx117150%_) + (_%k117156%_ _%k117151%_)) + (if (fxpositive? _%k117156%_) + (let* ((_%g117157117164%_ (gx#syntax-e _%rest117155%_)) + (_%E117159117168%_ (lambda () (error '"No clause matching" - _%g117120117127%_ + _%g117157117164%_ '([_ . rest])) '#!void)) - (_%K117123117136%_ - (lambda (_%rest117134%_) - (_%lp117116%_ _%rest117134%_ (##fx- _%k117119%_ '1))))) - (if (pair? _%g117120117127%_) - (let* ((_%tl117125117139%_ (##cdr _%g117120117127%_)) - (_%rest117142%_ _%tl117125117139%_)) - (_%K117123117136%_ _%rest117142%_)) - (_%E117122117131%_))) - _%rest117118%_)))) + (_%K117160117173%_ + (lambda (_%rest117171%_) + (_%lp117153%_ _%rest117171%_ (##fx- _%k117156%_ '1))))) + (if (pair? _%g117157117164%_) + (let* ((_%tl117162117176%_ (##cdr _%g117157117164%_)) + (_%rest117179%_ _%tl117162117176%_)) + (_%K117160117173%_ _%rest117179%_)) + (_%E117159117168%_))) + _%rest117155%_)))) (define gx#stx-list-ref - (lambda (_%stx117110%_ _%k117111%_) - (gx#stx-car (gx#stx-list-tail _%stx117110%_ _%k117111%_)))) + (lambda (_%stx117147%_ _%k117148%_) + (gx#stx-car (gx#stx-list-tail _%stx117147%_ _%k117148%_)))) (define gx#stx-plist?__% - (lambda (_%stx117022%_ _%key?117023%_) - (if (procedure? _%key?117023%_) + (lambda (_%stx117059%_ _%key?117060%_) + (if (procedure? _%key?117060%_) '#!void - (error '"expected procedure" _%key?117023%_)) - (let _%lp117025%_ ((_%rest117027%_ _%stx117022%_)) - (let* ((_%g117028117038%_ (gx#stx-e _%rest117027%_)) - (_%else117031117046%_ (lambda () '#f))) - (let ((_%K117034117088%_ - (lambda (_%rest117057%_ _%hd117058%_) - (if (_%key?117023%_ _%hd117058%_) - (let* ((_%g117059117067%_ (gx#stx-e _%rest117057%_)) - (_%else117061117075%_ (lambda () '#f)) - (_%K117063117080%_ - (lambda (_%rest117078%_) - (_%lp117025%_ _%rest117078%_)))) - (if (pair? _%g117059117067%_) - (let* ((_%tl117065117083%_ - (##cdr _%g117059117067%_)) - (_%rest117086%_ _%tl117065117083%_)) - (_%lp117025%_ _%rest117086%_)) - (_%else117061117075%_))) + (error '"expected procedure" _%key?117060%_)) + (let _%lp117062%_ ((_%rest117064%_ _%stx117059%_)) + (let* ((_%g117065117075%_ (gx#stx-e _%rest117064%_)) + (_%else117068117083%_ (lambda () '#f))) + (let ((_%K117071117125%_ + (lambda (_%rest117094%_ _%hd117095%_) + (if (_%key?117060%_ _%hd117095%_) + (let* ((_%g117096117104%_ (gx#stx-e _%rest117094%_)) + (_%else117098117112%_ (lambda () '#f)) + (_%K117100117117%_ + (lambda (_%rest117115%_) + (_%lp117062%_ _%rest117115%_)))) + (if (pair? _%g117096117104%_) + (let* ((_%tl117102117120%_ + (##cdr _%g117096117104%_)) + (_%rest117123%_ _%tl117102117120%_)) + (_%lp117062%_ _%rest117123%_)) + (_%else117098117112%_))) '#f))) - (_%K117033117051%_ (lambda () '#t))) - (let ((_%try-match117030117054%_ + (_%K117070117088%_ (lambda () '#t))) + (let ((_%try-match117067117091%_ (lambda () - (if (null? _%g117028117038%_) - (_%K117033117051%_) - (_%else117031117046%_))))) - (if (pair? _%g117028117038%_) - (let ((_%tl117036117093%_ (##cdr _%g117028117038%_)) - (_%hd117035117091%_ (##car _%g117028117038%_))) - (let ((_%hd117096%_ _%hd117035117091%_) - (_%rest117098%_ _%tl117036117093%_)) - (_%K117034117088%_ _%rest117098%_ _%hd117096%_))) - (_%try-match117030117054%_)))))))) + (if (null? _%g117065117075%_) + (_%K117070117088%_) + (_%else117068117083%_))))) + (if (pair? _%g117065117075%_) + (let ((_%tl117073117130%_ (##cdr _%g117065117075%_)) + (_%hd117072117128%_ (##car _%g117065117075%_))) + (let ((_%hd117133%_ _%hd117072117128%_) + (_%rest117135%_ _%tl117073117130%_)) + (_%K117071117125%_ _%rest117135%_ _%hd117133%_))) + (_%try-match117067117091%_)))))))) (define gx#stx-plist?__0 - (lambda (_%stx117103%_) - (let ((_%key?117105%_ gx#stx-keyword?)) - (gx#stx-plist?__% _%stx117103%_ _%key?117105%_)))) + (lambda (_%stx117140%_) + (let ((_%key?117142%_ gx#stx-keyword?)) + (gx#stx-plist?__% _%stx117140%_ _%key?117142%_)))) (define gx#stx-plist? - (lambda _g118259_ - (let ((_g118258_ (##length _g118259_))) - (cond ((##fx= _g118258_ 1) (apply gx#stx-plist?__0 _g118259_)) - ((##fx= _g118258_ 2) (apply gx#stx-plist?__% _g118259_)) + (lambda _g118296_ + (let ((_g118295_ (##length _g118296_))) + (cond ((##fx= _g118295_ 1) (apply gx#stx-plist?__0 _g118296_)) + ((##fx= _g118295_ 2) (apply gx#stx-plist?__% _g118296_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g118259_)))))) + _g118296_)))))) (define gx#stx-getq__% - (lambda (_%key116940%_ _%stx116941%_ _%key=?116942%_) - (if (procedure? _%key=?116942%_) + (lambda (_%key116977%_ _%stx116978%_ _%key=?116979%_) + (if (procedure? _%key=?116979%_) '#!void - (error '"expected procedure" _%key=?116942%_)) - (let _%lp116944%_ ((_%rest116946%_ _%stx116941%_)) - (let* ((_%g116947116955%_ (gx#syntax-e _%rest116946%_)) - (_%else116949116963%_ (lambda () '#f)) - (_%K116951116997%_ - (lambda (_%rest116966%_ _%hd116967%_) - (let* ((_%g116968116975%_ (gx#syntax-e _%rest116966%_)) - (_%E116970116979%_ + (error '"expected procedure" _%key=?116979%_)) + (let _%lp116981%_ ((_%rest116983%_ _%stx116978%_)) + (let* ((_%g116984116992%_ (gx#syntax-e _%rest116983%_)) + (_%else116986117000%_ (lambda () '#f)) + (_%K116988117034%_ + (lambda (_%rest117003%_ _%hd117004%_) + (let* ((_%g117005117012%_ (gx#syntax-e _%rest117003%_)) + (_%E117007117016%_ (lambda () (error '"No clause matching" - _%g116968116975%_ + _%g117005117012%_ '([val . rest])) '#!void)) - (_%K116971116985%_ - (lambda (_%rest116982%_ _%val116983%_) - (if (_%key=?116942%_ _%hd116967%_ _%key116940%_) - _%val116983%_ - (_%lp116944%_ _%rest116982%_))))) - (if (pair? _%g116968116975%_) - (let ((_%hd116972116988%_ (##car _%g116968116975%_)) - (_%tl116973116990%_ (##cdr _%g116968116975%_))) - (let* ((_%val116993%_ _%hd116972116988%_) - (_%rest116995%_ _%tl116973116990%_)) - (_%K116971116985%_ - _%rest116995%_ - _%val116993%_))) - (_%E116970116979%_)))))) - (if (pair? _%g116947116955%_) - (let ((_%hd116952117000%_ (##car _%g116947116955%_)) - (_%tl116953117002%_ (##cdr _%g116947116955%_))) - (let* ((_%hd117005%_ _%hd116952117000%_) - (_%rest117007%_ _%tl116953117002%_)) - (_%K116951116997%_ _%rest117007%_ _%hd117005%_))) - (_%else116949116963%_)))))) + (_%K117008117022%_ + (lambda (_%rest117019%_ _%val117020%_) + (if (_%key=?116979%_ _%hd117004%_ _%key116977%_) + _%val117020%_ + (_%lp116981%_ _%rest117019%_))))) + (if (pair? _%g117005117012%_) + (let ((_%hd117009117025%_ (##car _%g117005117012%_)) + (_%tl117010117027%_ (##cdr _%g117005117012%_))) + (let* ((_%val117030%_ _%hd117009117025%_) + (_%rest117032%_ _%tl117010117027%_)) + (_%K117008117022%_ + _%rest117032%_ + _%val117030%_))) + (_%E117007117016%_)))))) + (if (pair? _%g116984116992%_) + (let ((_%hd116989117037%_ (##car _%g116984116992%_)) + (_%tl116990117039%_ (##cdr _%g116984116992%_))) + (let* ((_%hd117042%_ _%hd116989117037%_) + (_%rest117044%_ _%tl116990117039%_)) + (_%K116988117034%_ _%rest117044%_ _%hd117042%_))) + (_%else116986117000%_)))))) (define gx#stx-getq__0 - (lambda (_%key117012%_ _%stx117013%_) - (let ((_%key=?117015%_ gx#stx-eq?)) - (gx#stx-getq__% _%key117012%_ _%stx117013%_ _%key=?117015%_)))) + (lambda (_%key117049%_ _%stx117050%_) + (let ((_%key=?117052%_ gx#stx-eq?)) + (gx#stx-getq__% _%key117049%_ _%stx117050%_ _%key=?117052%_)))) (define gx#stx-getq - (lambda _g118261_ - (let ((_g118260_ (##length _g118261_))) - (cond ((##fx= _g118260_ 2) (apply gx#stx-getq__0 _g118261_)) - ((##fx= _g118260_ 3) (apply gx#stx-getq__% _g118261_)) + (lambda _g118298_ + (let ((_g118297_ (##length _g118298_))) + (cond ((##fx= _g118297_ 2) (apply gx#stx-getq__0 _g118298_)) + ((##fx= _g118297_ 3) (apply gx#stx-getq__% _g118298_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g118261_)))))))) + _g118298_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx~1.scm b/src/bootstrap/gerbil/expander/stx~1.scm index 6787b15fe..9cfeef1ff 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]#_g118263_| + (define |gx[1]#_g118300_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g118265_| + (define |gx[1]#_g118302_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118267_| + (define |gx[1]#_g118304_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g118269_| + (define |gx[1]#_g118306_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118271_| + (define |gx[1]#_g118308_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118272_| + (define |gx[1]#_g118309_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118273_| + (define |gx[1]#_g118310_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118275_| + (define |gx[1]#_g118312_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118276_| + (define |gx[1]#_g118313_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118277_| + (define |gx[1]#_g118314_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118279_| + (define |gx[1]#_g118316_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118280_| + (define |gx[1]#_g118317_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118281_| + (define |gx[1]#_g118318_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118283_| + (define |gx[1]#_g118320_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118284_| + (define |gx[1]#_g118321_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118285_| + (define |gx[1]#_g118322_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118288_| + (define |gx[1]#_g118325_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118290_| + (define |gx[1]#_g118327_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g118292_| + (define |gx[1]#_g118329_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118294_| + (define |gx[1]#_g118331_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g118295_| + (define |gx[1]#_g118332_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118296_| + (define |gx[1]#_g118333_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118298_| + (define |gx[1]#_g118335_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118299_| + (define |gx[1]#_g118336_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118300_| + (define |gx[1]#_g118337_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118302_| + (define |gx[1]#_g118339_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g118303_| + (define |gx[1]#_g118340_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118304_| + (define |gx[1]#_g118341_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118306_| + (define |gx[1]#_g118343_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118307_| + (define |gx[1]#_g118344_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118308_| + (define |gx[1]#_g118345_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118311_| + (define |gx[1]#_g118348_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118313_| + (define |gx[1]#_g118350_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g118315_| + (define |gx[1]#_g118352_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118317_| + (define |gx[1]#_g118354_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118318_| + (define |gx[1]#_g118355_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118319_| + (define |gx[1]#_g118356_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118320_| + (define |gx[1]#_g118357_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118322_| + (define |gx[1]#_g118359_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118323_| + (define |gx[1]#_g118360_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118324_| + (define |gx[1]#_g118361_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118325_| + (define |gx[1]#_g118362_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118327_| + (define |gx[1]#_g118364_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118328_| + (define |gx[1]#_g118365_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118329_| + (define |gx[1]#_g118366_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118330_| + (define |gx[1]#_g118367_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118332_| + (define |gx[1]#_g118369_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118333_| + (define |gx[1]#_g118370_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118334_| + (define |gx[1]#_g118371_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118335_| + (define |gx[1]#_g118372_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj118245 + (let ((__obj118282 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118245 + __obj118282 'gx#identifier-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118245 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118282 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118245 '(marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj118282 '(marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118245 + __obj118282 '(e source marks) '6 '#f '#f)) - (let ((__tmp118262 (cons |gx[1]#_g118263_| '()))) + (let ((__tmp118299 (cons |gx[1]#_g118300_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118245 __tmp118262 '3 '#f '#f)) + (##unchecked-structure-set! __obj118282 __tmp118299 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118245 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118282 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118245 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118282 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118245 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118282 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118245 '#f '11 '#f '#f)) - (let ((__tmp118264 |gx[1]#_g118265_|)) + (##unchecked-structure-set! __obj118282 '#f '11 '#f '#f)) + (let ((__tmp118301 |gx[1]#_g118302_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118245 __tmp118264 '12 '#f '#f)) - (let ((__tmp118266 |gx[1]#_g118267_|)) + (##unchecked-structure-set! __obj118282 __tmp118301 '12 '#f '#f)) + (let ((__tmp118303 |gx[1]#_g118304_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118245 __tmp118266 '13 '#f '#f)) - (let ((__tmp118268 |gx[1]#_g118269_|)) + (##unchecked-structure-set! __obj118282 __tmp118303 '13 '#f '#f)) + (let ((__tmp118305 |gx[1]#_g118306_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118245 __tmp118268 '14 '#f '#f)) - (let ((__tmp118270 - (cons (cons 'marks |gx[1]#_g118271_|) - (cons (cons 'e |gx[1]#_g118272_|) - (cons (cons 'source |gx[1]#_g118273_|) '()))))) + (##unchecked-structure-set! __obj118282 __tmp118305 '14 '#f '#f)) + (let ((__tmp118307 + (cons (cons 'marks |gx[1]#_g118308_|) + (cons (cons 'e |gx[1]#_g118309_|) + (cons (cons 'source |gx[1]#_g118310_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118245 __tmp118270 '15 '#f '#f)) - (let ((__tmp118274 - (cons (cons 'marks |gx[1]#_g118275_|) - (cons (cons 'e |gx[1]#_g118276_|) - (cons (cons 'source |gx[1]#_g118277_|) '()))))) + (##unchecked-structure-set! __obj118282 __tmp118307 '15 '#f '#f)) + (let ((__tmp118311 + (cons (cons 'marks |gx[1]#_g118312_|) + (cons (cons 'e |gx[1]#_g118313_|) + (cons (cons 'source |gx[1]#_g118314_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118245 __tmp118274 '16 '#f '#f)) - (let ((__tmp118278 - (cons (cons 'marks |gx[1]#_g118279_|) - (cons (cons 'e |gx[1]#_g118280_|) - (cons (cons 'source |gx[1]#_g118281_|) '()))))) + (##unchecked-structure-set! __obj118282 __tmp118311 '16 '#f '#f)) + (let ((__tmp118315 + (cons (cons 'marks |gx[1]#_g118316_|) + (cons (cons 'e |gx[1]#_g118317_|) + (cons (cons 'source |gx[1]#_g118318_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118245 __tmp118278 '17 '#f '#f)) - (let ((__tmp118282 - (cons (cons 'marks |gx[1]#_g118283_|) - (cons (cons 'e |gx[1]#_g118284_|) - (cons (cons 'source |gx[1]#_g118285_|) '()))))) + (##unchecked-structure-set! __obj118282 __tmp118315 '17 '#f '#f)) + (let ((__tmp118319 + (cons (cons 'marks |gx[1]#_g118320_|) + (cons (cons 'e |gx[1]#_g118321_|) + (cons (cons 'source |gx[1]#_g118322_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118245 __tmp118282 '18 '#f '#f)) + (##unchecked-structure-set! __obj118282 __tmp118319 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118245 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118282 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118245 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118282 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118245 '() '20 '#f '#f)) - __obj118245)) + (##unchecked-structure-set! __obj118282 '() '20 '#f '#f)) + __obj118282)) (define |gx[:0:]#syntax-wrap| - (let ((__obj118246 + (let ((__obj118283 (let () (declare (not safe)) (##structure @@ -483,80 +483,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118246 + __obj118283 'gx#syntax-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118246 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118283 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118246 '(mark) '4 '#f '#f)) + (##unchecked-structure-set! __obj118283 '(mark) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118246 '(e source mark) '6 '#f '#f)) - (let ((__tmp118286 (cons |gx[1]#_g118263_| '()))) + (##unchecked-structure-set! __obj118283 '(e source mark) '6 '#f '#f)) + (let ((__tmp118323 (cons |gx[1]#_g118300_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118246 __tmp118286 '3 '#f '#f)) + (##unchecked-structure-set! __obj118283 __tmp118323 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118246 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118283 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118246 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118283 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118246 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118283 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118246 '#f '11 '#f '#f)) - (let ((__tmp118287 |gx[1]#_g118288_|)) + (##unchecked-structure-set! __obj118283 '#f '11 '#f '#f)) + (let ((__tmp118324 |gx[1]#_g118325_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118246 __tmp118287 '12 '#f '#f)) - (let ((__tmp118289 |gx[1]#_g118290_|)) + (##unchecked-structure-set! __obj118283 __tmp118324 '12 '#f '#f)) + (let ((__tmp118326 |gx[1]#_g118327_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118246 __tmp118289 '13 '#f '#f)) - (let ((__tmp118291 |gx[1]#_g118292_|)) + (##unchecked-structure-set! __obj118283 __tmp118326 '13 '#f '#f)) + (let ((__tmp118328 |gx[1]#_g118329_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118246 __tmp118291 '14 '#f '#f)) - (let ((__tmp118293 - (cons (cons 'mark |gx[1]#_g118294_|) - (cons (cons 'e |gx[1]#_g118295_|) - (cons (cons 'source |gx[1]#_g118296_|) '()))))) + (##unchecked-structure-set! __obj118283 __tmp118328 '14 '#f '#f)) + (let ((__tmp118330 + (cons (cons 'mark |gx[1]#_g118331_|) + (cons (cons 'e |gx[1]#_g118332_|) + (cons (cons 'source |gx[1]#_g118333_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118246 __tmp118293 '15 '#f '#f)) - (let ((__tmp118297 - (cons (cons 'mark |gx[1]#_g118298_|) - (cons (cons 'e |gx[1]#_g118299_|) - (cons (cons 'source |gx[1]#_g118300_|) '()))))) + (##unchecked-structure-set! __obj118283 __tmp118330 '15 '#f '#f)) + (let ((__tmp118334 + (cons (cons 'mark |gx[1]#_g118335_|) + (cons (cons 'e |gx[1]#_g118336_|) + (cons (cons 'source |gx[1]#_g118337_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118246 __tmp118297 '16 '#f '#f)) - (let ((__tmp118301 - (cons (cons 'mark |gx[1]#_g118302_|) - (cons (cons 'e |gx[1]#_g118303_|) - (cons (cons 'source |gx[1]#_g118304_|) '()))))) + (##unchecked-structure-set! __obj118283 __tmp118334 '16 '#f '#f)) + (let ((__tmp118338 + (cons (cons 'mark |gx[1]#_g118339_|) + (cons (cons 'e |gx[1]#_g118340_|) + (cons (cons 'source |gx[1]#_g118341_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118246 __tmp118301 '17 '#f '#f)) - (let ((__tmp118305 - (cons (cons 'mark |gx[1]#_g118306_|) - (cons (cons 'e |gx[1]#_g118307_|) - (cons (cons 'source |gx[1]#_g118308_|) '()))))) + (##unchecked-structure-set! __obj118283 __tmp118338 '17 '#f '#f)) + (let ((__tmp118342 + (cons (cons 'mark |gx[1]#_g118343_|) + (cons (cons 'e |gx[1]#_g118344_|) + (cons (cons 'source |gx[1]#_g118345_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118246 __tmp118305 '18 '#f '#f)) + (##unchecked-structure-set! __obj118283 __tmp118342 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118246 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118283 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118246 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118283 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118246 '() '20 '#f '#f)) - __obj118246)) + (##unchecked-structure-set! __obj118283 '() '20 '#f '#f)) + __obj118283)) (define |gx[:0:]#syntax-quote| - (let ((__obj118247 + (let ((__obj118284 (let () (declare (not safe)) (##structure @@ -585,88 +585,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118247 + __obj118284 'gx#syntax-quote::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118247 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118284 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118247 '(context marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj118284 '(context marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118247 + __obj118284 '(e source context marks) '6 '#f '#f)) - (let ((__tmp118309 (cons |gx[1]#_g118263_| '()))) + (let ((__tmp118346 (cons |gx[1]#_g118300_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118247 __tmp118309 '3 '#f '#f)) + (##unchecked-structure-set! __obj118284 __tmp118346 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118247 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118284 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118247 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118284 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118247 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118284 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118247 '#f '11 '#f '#f)) - (let ((__tmp118310 |gx[1]#_g118311_|)) + (##unchecked-structure-set! __obj118284 '#f '11 '#f '#f)) + (let ((__tmp118347 |gx[1]#_g118348_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118247 __tmp118310 '12 '#f '#f)) - (let ((__tmp118312 |gx[1]#_g118313_|)) + (##unchecked-structure-set! __obj118284 __tmp118347 '12 '#f '#f)) + (let ((__tmp118349 |gx[1]#_g118350_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118247 __tmp118312 '13 '#f '#f)) - (let ((__tmp118314 |gx[1]#_g118315_|)) + (##unchecked-structure-set! __obj118284 __tmp118349 '13 '#f '#f)) + (let ((__tmp118351 |gx[1]#_g118352_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118247 __tmp118314 '14 '#f '#f)) - (let ((__tmp118316 - (cons (cons 'context |gx[1]#_g118317_|) - (cons (cons 'marks |gx[1]#_g118318_|) - (cons (cons 'e |gx[1]#_g118319_|) - (cons (cons 'source |gx[1]#_g118320_|) + (##unchecked-structure-set! __obj118284 __tmp118351 '14 '#f '#f)) + (let ((__tmp118353 + (cons (cons 'context |gx[1]#_g118354_|) + (cons (cons 'marks |gx[1]#_g118355_|) + (cons (cons 'e |gx[1]#_g118356_|) + (cons (cons 'source |gx[1]#_g118357_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118247 __tmp118316 '15 '#f '#f)) - (let ((__tmp118321 - (cons (cons 'context |gx[1]#_g118322_|) - (cons (cons 'marks |gx[1]#_g118323_|) - (cons (cons 'e |gx[1]#_g118324_|) - (cons (cons 'source |gx[1]#_g118325_|) + (##unchecked-structure-set! __obj118284 __tmp118353 '15 '#f '#f)) + (let ((__tmp118358 + (cons (cons 'context |gx[1]#_g118359_|) + (cons (cons 'marks |gx[1]#_g118360_|) + (cons (cons 'e |gx[1]#_g118361_|) + (cons (cons 'source |gx[1]#_g118362_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118247 __tmp118321 '16 '#f '#f)) - (let ((__tmp118326 - (cons (cons 'context |gx[1]#_g118327_|) - (cons (cons 'marks |gx[1]#_g118328_|) - (cons (cons 'e |gx[1]#_g118329_|) - (cons (cons 'source |gx[1]#_g118330_|) + (##unchecked-structure-set! __obj118284 __tmp118358 '16 '#f '#f)) + (let ((__tmp118363 + (cons (cons 'context |gx[1]#_g118364_|) + (cons (cons 'marks |gx[1]#_g118365_|) + (cons (cons 'e |gx[1]#_g118366_|) + (cons (cons 'source |gx[1]#_g118367_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118247 __tmp118326 '17 '#f '#f)) - (let ((__tmp118331 - (cons (cons 'context |gx[1]#_g118332_|) - (cons (cons 'marks |gx[1]#_g118333_|) - (cons (cons 'e |gx[1]#_g118334_|) - (cons (cons 'source |gx[1]#_g118335_|) + (##unchecked-structure-set! __obj118284 __tmp118363 '17 '#f '#f)) + (let ((__tmp118368 + (cons (cons 'context |gx[1]#_g118369_|) + (cons (cons 'marks |gx[1]#_g118370_|) + (cons (cons 'e |gx[1]#_g118371_|) + (cons (cons 'source |gx[1]#_g118372_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118247 __tmp118331 '18 '#f '#f)) + (##unchecked-structure-set! __obj118284 __tmp118368 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118247 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118284 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118247 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118284 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118247 '() '20 '#f '#f)) - __obj118247)))) + (##unchecked-structure-set! __obj118284 '() '20 '#f '#f)) + __obj118284)))) diff --git a/src/bootstrap/gerbil/expander/top~0.scm b/src/bootstrap/gerbil/expander/top~0.scm index 57ddb21fa..e2a335c67 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 1733687559) + (define gerbil/expander/top::timestamp 1733870074) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_%stx125298%_) - (letrec ((_%expand-special125300%_ - (lambda (_%hd125302%_ _%K125303%_ _%rest125304%_ _%r125305%_) - (_%K125303%_ - _%rest125304%_ - (cons (gx#core-expand-top _%hd125302%_) _%r125305%_))))) - (gx#core-expand-block__0 _%stx125298%_ _%expand-special125300%_)))) + (lambda (_%stx125335%_) + (letrec ((_%expand-special125337%_ + (lambda (_%hd125339%_ _%K125340%_ _%rest125341%_ _%r125342%_) + (_%K125340%_ + _%rest125341%_ + (cons (gx#core-expand-top _%hd125339%_) _%r125342%_))))) + (gx#core-expand-block__0 _%stx125335%_ _%expand-special125337%_)))) (define gx#core-expand-begin-syntax% - (lambda (_%stx125051%_) - (letrec ((_%expand-special125053%_ - (lambda (_%hd125173%_ _%K125174%_ _%rest125175%_ _%r125176%_) - (let* ((_%K125180%_ - (lambda (_%e125178%_) - (_%K125174%_ - _%rest125175%_ - (cons _%e125178%_ _%r125176%_)))) - (_%e125181125210%_ _%hd125173%_) - (_%E125205125214%_ + (lambda (_%stx125088%_) + (letrec ((_%expand-special125090%_ + (lambda (_%hd125210%_ _%K125211%_ _%rest125212%_ _%r125213%_) + (let* ((_%K125217%_ + (lambda (_%e125215%_) + (_%K125211%_ + _%rest125212%_ + (cons _%e125215%_ _%r125213%_)))) + (_%e125218125247%_ _%hd125210%_) + (_%E125242125251%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125181125210%_))) - (_%E125201125226%_ + _%e125218125247%_))) + (_%E125238125263%_ (lambda () - (if (gx#stx-pair? _%e125181125210%_) - (let ((_%e125206125218%_ - (gx#syntax-e _%e125181125210%_))) - (let ((_%hd125207125221%_ - (##car _%e125206125218%_)) - (_%tl125208125223%_ - (##cdr _%e125206125218%_))) + (if (gx#stx-pair? _%e125218125247%_) + (let ((_%e125243125255%_ + (gx#syntax-e _%e125218125247%_))) + (let ((_%hd125244125258%_ + (##car _%e125243125255%_)) + (_%tl125245125260%_ + (##cdr _%e125243125255%_))) (if (and (gx#identifier? - _%hd125207125221%_) + _%hd125244125258%_) (gx#core-identifier=? - _%hd125207125221%_ + _%hd125244125258%_ '%#define-runtime)) - (_%K125180%_ + (_%K125217%_ (gx#core-expand-define-runtime% - _%hd125173%_)) - (_%E125205125214%_)))) - (_%E125205125214%_)))) - (_%E125197125238%_ + _%hd125210%_)) + (_%E125242125251%_)))) + (_%E125242125251%_)))) + (_%E125234125275%_ (lambda () - (if (gx#stx-pair? _%e125181125210%_) - (let ((_%e125202125230%_ - (gx#syntax-e _%e125181125210%_))) - (let ((_%hd125203125233%_ - (##car _%e125202125230%_)) - (_%tl125204125235%_ - (##cdr _%e125202125230%_))) + (if (gx#stx-pair? _%e125218125247%_) + (let ((_%e125239125267%_ + (gx#syntax-e _%e125218125247%_))) + (let ((_%hd125240125270%_ + (##car _%e125239125267%_)) + (_%tl125241125272%_ + (##cdr _%e125239125267%_))) (if (and (gx#identifier? - _%hd125203125233%_) + _%hd125240125270%_) (gx#core-identifier=? - _%hd125203125233%_ + _%hd125240125270%_ '%#define-alias)) - (_%K125180%_ + (_%K125217%_ (gx#core-expand-define-alias% - _%hd125173%_)) - (_%E125201125226%_)))) - (_%E125201125226%_)))) - (_%E125187125250%_ + _%hd125210%_)) + (_%E125238125263%_)))) + (_%E125238125263%_)))) + (_%E125224125287%_ (lambda () - (if (gx#stx-pair? _%e125181125210%_) - (let ((_%e125198125242%_ - (gx#syntax-e _%e125181125210%_))) - (let ((_%hd125199125245%_ - (##car _%e125198125242%_)) - (_%tl125200125247%_ - (##cdr _%e125198125242%_))) + (if (gx#stx-pair? _%e125218125247%_) + (let ((_%e125235125279%_ + (gx#syntax-e _%e125218125247%_))) + (let ((_%hd125236125282%_ + (##car _%e125235125279%_)) + (_%tl125237125284%_ + (##cdr _%e125235125279%_))) (if (and (gx#identifier? - _%hd125199125245%_) + _%hd125236125282%_) (gx#core-identifier=? - _%hd125199125245%_ + _%hd125236125282%_ '%#define-syntax)) - (_%K125180%_ + (_%K125217%_ (gx#core-expand-define-syntax% - _%hd125173%_)) - (_%E125197125238%_)))) - (_%E125197125238%_)))) - (_%E125183125282%_ + _%hd125210%_)) + (_%E125234125275%_)))) + (_%E125234125275%_)))) + (_%E125220125319%_ (lambda () - (if (gx#stx-pair? _%e125181125210%_) - (let ((_%e125188125254%_ - (gx#syntax-e _%e125181125210%_))) - (let ((_%hd125189125257%_ - (##car _%e125188125254%_)) - (_%tl125190125259%_ - (##cdr _%e125188125254%_))) + (if (gx#stx-pair? _%e125218125247%_) + (let ((_%e125225125291%_ + (gx#syntax-e _%e125218125247%_))) + (let ((_%hd125226125294%_ + (##car _%e125225125291%_)) + (_%tl125227125296%_ + (##cdr _%e125225125291%_))) (if (and (gx#identifier? - _%hd125189125257%_) + _%hd125226125294%_) (gx#core-identifier=? - _%hd125189125257%_ + _%hd125226125294%_ '%#define-values)) - (if (gx#stx-pair? _%tl125190125259%_) - (let ((_%e125191125262%_ + (if (gx#stx-pair? _%tl125227125296%_) + (let ((_%e125228125299%_ (gx#syntax-e - _%tl125190125259%_))) - (let ((_%hd125192125265%_ - (##car _%e125191125262%_)) - (_%tl125193125267%_ - (##cdr _%e125191125262%_))) - (let ((_%hd-bind125270%_ - _%hd125192125265%_)) + _%tl125227125296%_))) + (let ((_%hd125229125302%_ + (##car _%e125228125299%_)) + (_%tl125230125304%_ + (##cdr _%e125228125299%_))) + (let ((_%hd-bind125307%_ + _%hd125229125302%_)) (if (gx#stx-pair? - _%tl125193125267%_) - (let ((_%e125194125272%_ + _%tl125230125304%_) + (let ((_%e125231125309%_ (gx#syntax-e - _%tl125193125267%_))) - (let ((_%hd125195125275%_ + _%tl125230125304%_))) + (let ((_%hd125232125312%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e125194125272%_)) - (_%tl125196125277%_ (##cdr _%e125194125272%_))) - (let ((_%expr125280%_ _%hd125195125275%_)) - (if (gx#stx-null? _%tl125196125277%_) - (if (gx#core-bind-values? _%hd-bind125270%_) + (##car _%e125231125309%_)) + (_%tl125233125314%_ (##cdr _%e125231125309%_))) + (let ((_%expr125317%_ _%hd125232125312%_)) + (if (gx#stx-null? _%tl125233125314%_) + (if (gx#core-bind-values? _%hd-bind125307%_) (begin - (gx#core-bind-values!__0 _%hd-bind125270%_) - (_%K125180%_ _%hd125173%_)) - (_%E125187125250%_)) - (_%E125187125250%_))))) - (_%E125187125250%_))))) + (gx#core-bind-values!__0 _%hd-bind125307%_) + (_%K125217%_ _%hd125210%_)) + (_%E125224125287%_)) + (_%E125224125287%_))))) + (_%E125224125287%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125187125250%_)) - (_%E125187125250%_)))) - (_%E125187125250%_)))) - (_%E125182125294%_ + (_%E125224125287%_)) + (_%E125224125287%_)))) + (_%E125224125287%_)))) + (_%E125219125331%_ (lambda () - (if (gx#stx-pair? _%e125181125210%_) - (let ((_%e125184125286%_ - (gx#syntax-e _%e125181125210%_))) - (let ((_%hd125185125289%_ - (##car _%e125184125286%_)) - (_%tl125186125291%_ - (##cdr _%e125184125286%_))) + (if (gx#stx-pair? _%e125218125247%_) + (let ((_%e125221125323%_ + (gx#syntax-e _%e125218125247%_))) + (let ((_%hd125222125326%_ + (##car _%e125221125323%_)) + (_%tl125223125328%_ + (##cdr _%e125221125323%_))) (if (and (gx#identifier? - _%hd125185125289%_) + _%hd125222125326%_) (gx#core-identifier=? - _%hd125185125289%_ + _%hd125222125326%_ '%#begin-syntax)) - (_%K125180%_ + (_%K125217%_ (gx#core-expand-begin-syntax% - _%hd125173%_)) - (_%E125183125282%_)))) - (_%E125183125282%_))))) - (_%E125182125294%_)))) - (_%eval-body125054%_ - (lambda (_%rbody125062%_) - (let _%lp125064%_ ((_%rest125066%_ _%rbody125062%_) - (_%body125067%_ '()) - (_%ebody125068%_ '())) - (let* ((_%rest125069125077%_ _%rest125066%_) - (_%else125071125085%_ + _%hd125210%_)) + (_%E125220125319%_)))) + (_%E125220125319%_))))) + (_%E125219125331%_)))) + (_%eval-body125091%_ + (lambda (_%rbody125099%_) + (let _%lp125101%_ ((_%rest125103%_ _%rbody125099%_) + (_%body125104%_ '()) + (_%ebody125105%_ '())) + (let* ((_%rest125106125114%_ _%rest125103%_) + (_%else125108125122%_ (lambda () - (values _%body125067%_ + (values _%body125104%_ (gx#eval-syntax* (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%ebody125068%_) - (gx#stx-source _%stx125051%_)))))) - (_%K125073125161%_ - (lambda (_%rest125088%_ _%hd125089%_) - (let* ((_%e125090125107%_ _%hd125089%_) - (_%E125102125111%_ + _%ebody125105%_) + (gx#stx-source _%stx125088%_)))))) + (_%K125110125198%_ + (lambda (_%rest125125%_ _%hd125126%_) + (let* ((_%e125127125144%_ _%hd125126%_) + (_%E125139125148%_ (lambda () - (_%lp125064%_ - _%rest125088%_ - (cons _%hd125089%_ _%body125067%_) - (cons _%hd125089%_ - _%ebody125068%_)))) - (_%E125092125123%_ + (_%lp125101%_ + _%rest125125%_ + (cons _%hd125126%_ _%body125104%_) + (cons _%hd125126%_ + _%ebody125105%_)))) + (_%E125129125160%_ (lambda () - (if (gx#stx-pair? _%e125090125107%_) - (let ((_%e125103125115%_ + (if (gx#stx-pair? _%e125127125144%_) + (let ((_%e125140125152%_ (gx#syntax-e - _%e125090125107%_))) - (let ((_%hd125104125118%_ - (##car _%e125103125115%_)) - (_%tl125105125120%_ - (##cdr _%e125103125115%_))) + _%e125127125144%_))) + (let ((_%hd125141125155%_ + (##car _%e125140125152%_)) + (_%tl125142125157%_ + (##cdr _%e125140125152%_))) (if (and (gx#identifier? - _%hd125104125118%_) + _%hd125141125155%_) (gx#core-identifier=? - _%hd125104125118%_ + _%hd125141125155%_ '%#begin-syntax)) - (_%lp125064%_ - _%rest125088%_ - (cons _%hd125089%_ - _%body125067%_) - _%ebody125068%_) - (_%E125102125111%_)))) - (_%E125102125111%_)))) - (_%E125091125157%_ + (_%lp125101%_ + _%rest125125%_ + (cons _%hd125126%_ + _%body125104%_) + _%ebody125105%_) + (_%E125139125148%_)))) + (_%E125139125148%_)))) + (_%E125128125194%_ (lambda () - (if (gx#stx-pair? _%e125090125107%_) - (let ((_%e125093125127%_ + (if (gx#stx-pair? _%e125127125144%_) + (let ((_%e125130125164%_ (gx#syntax-e - _%e125090125107%_))) - (let ((_%hd125094125130%_ - (##car _%e125093125127%_)) - (_%tl125095125132%_ - (##cdr _%e125093125127%_))) + _%e125127125144%_))) + (let ((_%hd125131125167%_ + (##car _%e125130125164%_)) + (_%tl125132125169%_ + (##cdr _%e125130125164%_))) (if (and (gx#identifier? - _%hd125094125130%_) + _%hd125131125167%_) (gx#core-identifier=? - _%hd125094125130%_ + _%hd125131125167%_ '%#define-values)) (if (gx#stx-pair? - _%tl125095125132%_) - (let ((_%e125096125135%_ + _%tl125132125169%_) + (let ((_%e125133125172%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl125095125132%_))) - (let ((_%hd125097125138%_ (##car _%e125096125135%_)) - (_%tl125098125140%_ (##cdr _%e125096125135%_))) - (let ((_%hd-bind125143%_ _%hd125097125138%_)) - (if (gx#stx-pair? _%tl125098125140%_) - (let ((_%e125099125145%_ - (gx#syntax-e _%tl125098125140%_))) - (let ((_%hd125100125148%_ - (##car _%e125099125145%_)) - (_%tl125101125150%_ - (##cdr _%e125099125145%_))) - (let ((_%expr125153%_ _%hd125100125148%_)) - (if (gx#stx-null? _%tl125101125150%_) - (let ((_%ehd125155%_ + (gx#syntax-e _%tl125132125169%_))) + (let ((_%hd125134125175%_ (##car _%e125133125172%_)) + (_%tl125135125177%_ (##cdr _%e125133125172%_))) + (let ((_%hd-bind125180%_ _%hd125134125175%_)) + (if (gx#stx-pair? _%tl125135125177%_) + (let ((_%e125136125182%_ + (gx#syntax-e _%tl125135125177%_))) + (let ((_%hd125137125185%_ + (##car _%e125136125182%_)) + (_%tl125138125187%_ + (##cdr _%e125136125182%_))) + (let ((_%expr125190%_ _%hd125137125185%_)) + (if (gx#stx-null? _%tl125138125187%_) + (let ((_%ehd125192%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _%hd-bind125143%_) + _%hd-bind125180%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr125153%_) + _%expr125190%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%hd125089%_)))) - (_%lp125064%_ - _%rest125088%_ - (cons _%ehd125155%_ _%body125067%_) - (cons _%ehd125155%_ _%ebody125068%_))) - (_%E125092125123%_))))) - (_%E125092125123%_))))) - (_%E125092125123%_)) - (_%E125092125123%_)))) + (gx#stx-source _%hd125126%_)))) + (_%lp125101%_ + _%rest125125%_ + (cons _%ehd125192%_ _%body125104%_) + (cons _%ehd125192%_ _%ebody125105%_))) + (_%E125129125160%_))))) + (_%E125129125160%_))))) + (_%E125129125160%_)) + (_%E125129125160%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125092125123%_))))) - (_%E125091125157%_))))) - (if (pair? _%rest125069125077%_) - (let ((_%hd125074125164%_ - (##car _%rest125069125077%_)) - (_%tl125075125166%_ - (##cdr _%rest125069125077%_))) - (let* ((_%hd125169%_ _%hd125074125164%_) - (_%rest125171%_ _%tl125075125166%_)) - (_%K125073125161%_ - _%rest125171%_ - _%hd125169%_))) - (_%else125071125085%_))))))) + (_%E125129125160%_))))) + (_%E125128125194%_))))) + (if (pair? _%rest125106125114%_) + (let ((_%hd125111125201%_ + (##car _%rest125106125114%_)) + (_%tl125112125203%_ + (##cdr _%rest125106125114%_))) + (let* ((_%hd125206%_ _%hd125111125201%_) + (_%rest125208%_ _%tl125112125203%_)) + (_%K125110125198%_ + _%rest125208%_ + _%hd125206%_))) + (_%else125108125122%_))))))) (__call-with-parameters (lambda () - (let* ((_%rbody125057%_ + (let* ((_%rbody125094%_ (gx#core-expand-block__1 - _%stx125051%_ - _%expand-special125053%_ + _%stx125088%_ + _%expand-special125090%_ '#f)) - (_g125321_ (_%eval-body125054%_ _%rbody125057%_))) + (_g125358_ (_%eval-body125091%_ _%rbody125094%_))) (begin - (let ((_g125322_ - (if (##values? _g125321_) - (##vector-length _g125321_) + (let ((_g125359_ + (if (##values? _g125358_) + (##vector-length _g125358_) 1))) - (if (not (##fx= _g125322_ 2)) - (error "Context expects 2 values" _g125322_))) - (let ((_%expanded-body125059%_ (##vector-ref _g125321_ 0)) - (_%value125060%_ (##vector-ref _g125321_ 1))) + (if (not (##fx= _g125359_ 2)) + (error "Context expects 2 values" _g125359_))) + (let ((_%expanded-body125096%_ (##vector-ref _g125358_ 0)) + (_%value125097%_ (##vector-ref _g125358_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _%expanded-body125059%_) + (gx#core-cons '%#begin-syntax _%expanded-body125096%_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _%value125060%_ '()))) - (gx#stx-source _%stx125051%_)))))) + (cons _%value125097%_ '()))) + (gx#stx-source _%stx125088%_)))))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_%stx125021%_) - (let* ((_%e125022125029%_ _%stx125021%_) - (_%E125024125033%_ + (lambda (_%stx125058%_) + (let* ((_%e125059125066%_ _%stx125058%_) + (_%E125061125070%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125022125029%_))) - (_%E125023125047%_ + _%e125059125066%_))) + (_%E125060125084%_ (lambda () - (if (gx#stx-pair? _%e125022125029%_) - (let ((_%e125025125037%_ - (gx#syntax-e _%e125022125029%_))) - (let ((_%hd125026125040%_ (##car _%e125025125037%_)) - (_%tl125027125042%_ (##cdr _%e125025125037%_))) - (let ((_%body125045%_ _%tl125027125042%_)) - (if (gx#stx-list? _%body125045%_) + (if (gx#stx-pair? _%e125059125066%_) + (let ((_%e125062125074%_ + (gx#syntax-e _%e125059125066%_))) + (let ((_%hd125063125077%_ (##car _%e125062125074%_)) + (_%tl125064125079%_ (##cdr _%e125062125074%_))) + (let ((_%body125082%_ _%tl125064125079%_)) + (if (gx#stx-list? _%body125082%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _%body125045%_) - (gx#stx-source _%stx125021%_)) - (_%E125024125033%_))))) - (_%E125024125033%_))))) - (_%E125023125047%_)))) + (gx#core-cons '%#begin-foreign _%body125082%_) + (gx#stx-source _%stx125058%_)) + (_%E125061125070%_))))) + (_%E125061125070%_))))) + (_%E125060125084%_)))) (define gx#core-expand-begin-module% - (lambda (_%stx125019%_) - (gx#raise-syntax-error '#f '"Illegal expansion" _%stx125019%_))) + (lambda (_%stx125056%_) + (gx#raise-syntax-error '#f '"Illegal expansion" _%stx125056%_))) (define gx#core-expand-begin-annotation% - (lambda (_%stx124965%_) - (let* ((_%e124966124979%_ _%stx124965%_) - (_%E124968124983%_ + (lambda (_%stx125002%_) + (let* ((_%e125003125016%_ _%stx125002%_) + (_%E125005125020%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124966124979%_))) - (_%E124967125015%_ + _%e125003125016%_))) + (_%E125004125052%_ (lambda () - (if (gx#stx-pair? _%e124966124979%_) - (let ((_%e124969124987%_ - (gx#syntax-e _%e124966124979%_))) - (let ((_%hd124970124990%_ (##car _%e124969124987%_)) - (_%tl124971124992%_ (##cdr _%e124969124987%_))) - (if (gx#stx-pair? _%tl124971124992%_) - (let ((_%e124972124995%_ - (gx#syntax-e _%tl124971124992%_))) - (let ((_%hd124973124998%_ - (##car _%e124972124995%_)) - (_%tl124974125000%_ - (##cdr _%e124972124995%_))) - (let ((_%ann125003%_ _%hd124973124998%_)) - (if (gx#stx-pair? _%tl124974125000%_) - (let ((_%e124975125005%_ + (if (gx#stx-pair? _%e125003125016%_) + (let ((_%e125006125024%_ + (gx#syntax-e _%e125003125016%_))) + (let ((_%hd125007125027%_ (##car _%e125006125024%_)) + (_%tl125008125029%_ (##cdr _%e125006125024%_))) + (if (gx#stx-pair? _%tl125008125029%_) + (let ((_%e125009125032%_ + (gx#syntax-e _%tl125008125029%_))) + (let ((_%hd125010125035%_ + (##car _%e125009125032%_)) + (_%tl125011125037%_ + (##cdr _%e125009125032%_))) + (let ((_%ann125040%_ _%hd125010125035%_)) + (if (gx#stx-pair? _%tl125011125037%_) + (let ((_%e125012125042%_ (gx#syntax-e - _%tl124974125000%_))) - (let ((_%hd124976125008%_ - (##car _%e124975125005%_)) - (_%tl124977125010%_ - (##cdr _%e124975125005%_))) - (let ((_%expr125013%_ - _%hd124976125008%_)) + _%tl125011125037%_))) + (let ((_%hd125013125045%_ + (##car _%e125012125042%_)) + (_%tl125014125047%_ + (##cdr _%e125012125042%_))) + (let ((_%expr125050%_ + _%hd125013125045%_)) (if (gx#stx-null? - _%tl124977125010%_) + _%tl125014125047%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%ann125003%_ + (cons _%ann125040%_ (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr125013%_) + _%expr125050%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx124965%_)) - (_%E124968124983%_))))) - (_%E124968124983%_))))) - (_%E124968124983%_)))) - (_%E124968124983%_))))) - (_%E124967125015%_)))) + _%stx125002%_)) + (_%E125005125020%_))))) + (_%E125005125020%_))))) + (_%E125005125020%_)))) + (_%E125005125020%_))))) + (_%E125004125052%_)))) (define gx#core-expand-local-block - (lambda (_%stx124689%_ _%body124690%_) - (letrec ((_%expand-special124692%_ - (lambda (_%hd124960%_ _%K124961%_ _%rest124962%_ _%r124963%_) - (_%K124961%_ + (lambda (_%stx124726%_ _%body124727%_) + (letrec ((_%expand-special124729%_ + (lambda (_%hd124997%_ _%K124998%_ _%rest124999%_ _%r125000%_) + (_%K124998%_ '() - (cons (_%expand-internal124693%_ - _%hd124960%_ - _%rest124962%_) - _%r124963%_)))) - (_%expand-internal124693%_ - (lambda (_%hd124956%_ _%rest124957%_) + (cons (_%expand-internal124730%_ + _%hd124997%_ + _%rest124999%_) + _%r125000%_)))) + (_%expand-internal124730%_ + (lambda (_%hd124993%_ _%rest124994%_) (__call-with-parameters (lambda () - (_%wrap-internal124695%_ + (_%wrap-internal124732%_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _%hd124956%_ _%rest124957%_)) - (gx#stx-source _%stx124689%_)) - _%expand-internal-special124694%_ + (cons '%#begin (cons _%hd124993%_ _%rest124994%_)) + (gx#stx-source _%stx124726%_)) + _%expand-internal-special124731%_ '#f))) gx#current-expander-context - (let ((__obj125315 + (let ((__obj125352 (##structure gx#local-context::t '#f @@ -399,750 +399,750 @@ '#f '#f '#f))) - (gx#local-context:::init!__0 __obj125315) - __obj125315)))) - (_%expand-internal-special124694%_ - (lambda (_%hd124851%_ _%K124852%_ _%rest124853%_ _%r124854%_) - (let* ((_%e124855124880%_ _%hd124851%_) - (_%E124875124884%_ + (gx#local-context:::init!__0 __obj125352) + __obj125352)))) + (_%expand-internal-special124731%_ + (lambda (_%hd124888%_ _%K124889%_ _%rest124890%_ _%r124891%_) + (let* ((_%e124892124917%_ _%hd124888%_) + (_%E124912124921%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124855124880%_))) - (_%E124871124896%_ + _%e124892124917%_))) + (_%E124908124933%_ (lambda () - (if (gx#stx-pair? _%e124855124880%_) - (let ((_%e124876124888%_ - (gx#syntax-e _%e124855124880%_))) - (let ((_%hd124877124891%_ - (##car _%e124876124888%_)) - (_%tl124878124893%_ - (##cdr _%e124876124888%_))) + (if (gx#stx-pair? _%e124892124917%_) + (let ((_%e124913124925%_ + (gx#syntax-e _%e124892124917%_))) + (let ((_%hd124914124928%_ + (##car _%e124913124925%_)) + (_%tl124915124930%_ + (##cdr _%e124913124925%_))) (if (and (gx#identifier? - _%hd124877124891%_) + _%hd124914124928%_) (gx#core-identifier=? - _%hd124877124891%_ + _%hd124914124928%_ '%#declare)) - (_%K124852%_ - _%rest124853%_ + (_%K124889%_ + _%rest124890%_ (cons (gx#core-expand-declare% - _%hd124851%_) - _%r124854%_)) - (_%E124875124884%_)))) - (_%E124875124884%_)))) - (_%E124867124908%_ + _%hd124888%_) + _%r124891%_)) + (_%E124912124921%_)))) + (_%E124912124921%_)))) + (_%E124904124945%_ (lambda () - (if (gx#stx-pair? _%e124855124880%_) - (let ((_%e124872124900%_ - (gx#syntax-e _%e124855124880%_))) - (let ((_%hd124873124903%_ - (##car _%e124872124900%_)) - (_%tl124874124905%_ - (##cdr _%e124872124900%_))) + (if (gx#stx-pair? _%e124892124917%_) + (let ((_%e124909124937%_ + (gx#syntax-e _%e124892124917%_))) + (let ((_%hd124910124940%_ + (##car _%e124909124937%_)) + (_%tl124911124942%_ + (##cdr _%e124909124937%_))) (if (and (gx#identifier? - _%hd124873124903%_) + _%hd124910124940%_) (gx#core-identifier=? - _%hd124873124903%_ + _%hd124910124940%_ '%#define-alias)) (begin (gx#core-expand-define-alias% - _%hd124851%_) - (_%K124852%_ - _%rest124853%_ - _%r124854%_)) - (_%E124871124896%_)))) - (_%E124871124896%_)))) - (_%E124857124920%_ + _%hd124888%_) + (_%K124889%_ + _%rest124890%_ + _%r124891%_)) + (_%E124908124933%_)))) + (_%E124908124933%_)))) + (_%E124894124957%_ (lambda () - (if (gx#stx-pair? _%e124855124880%_) - (let ((_%e124868124912%_ - (gx#syntax-e _%e124855124880%_))) - (let ((_%hd124869124915%_ - (##car _%e124868124912%_)) - (_%tl124870124917%_ - (##cdr _%e124868124912%_))) + (if (gx#stx-pair? _%e124892124917%_) + (let ((_%e124905124949%_ + (gx#syntax-e _%e124892124917%_))) + (let ((_%hd124906124952%_ + (##car _%e124905124949%_)) + (_%tl124907124954%_ + (##cdr _%e124905124949%_))) (if (and (gx#identifier? - _%hd124869124915%_) + _%hd124906124952%_) (gx#core-identifier=? - _%hd124869124915%_ + _%hd124906124952%_ '%#define-syntax)) (begin (gx#core-expand-define-syntax% - _%hd124851%_) - (_%K124852%_ - _%rest124853%_ - _%r124854%_)) - (_%E124867124908%_)))) - (_%E124867124908%_)))) - (_%E124856124952%_ + _%hd124888%_) + (_%K124889%_ + _%rest124890%_ + _%r124891%_)) + (_%E124904124945%_)))) + (_%E124904124945%_)))) + (_%E124893124989%_ (lambda () - (if (gx#stx-pair? _%e124855124880%_) - (let ((_%e124858124924%_ - (gx#syntax-e _%e124855124880%_))) - (let ((_%hd124859124927%_ - (##car _%e124858124924%_)) - (_%tl124860124929%_ - (##cdr _%e124858124924%_))) + (if (gx#stx-pair? _%e124892124917%_) + (let ((_%e124895124961%_ + (gx#syntax-e _%e124892124917%_))) + (let ((_%hd124896124964%_ + (##car _%e124895124961%_)) + (_%tl124897124966%_ + (##cdr _%e124895124961%_))) (if (and (gx#identifier? - _%hd124859124927%_) + _%hd124896124964%_) (gx#core-identifier=? - _%hd124859124927%_ + _%hd124896124964%_ '%#define-values)) - (if (gx#stx-pair? _%tl124860124929%_) - (let ((_%e124861124932%_ + (if (gx#stx-pair? _%tl124897124966%_) + (let ((_%e124898124969%_ (gx#syntax-e - _%tl124860124929%_))) - (let ((_%hd124862124935%_ - (##car _%e124861124932%_)) - (_%tl124863124937%_ - (##cdr _%e124861124932%_))) - (let ((_%hd-bind124940%_ - _%hd124862124935%_)) + _%tl124897124966%_))) + (let ((_%hd124899124972%_ + (##car _%e124898124969%_)) + (_%tl124900124974%_ + (##cdr _%e124898124969%_))) + (let ((_%hd-bind124977%_ + _%hd124899124972%_)) (if (gx#stx-pair? - _%tl124863124937%_) - (let ((_%e124864124942%_ + _%tl124900124974%_) + (let ((_%e124901124979%_ (gx#syntax-e - _%tl124863124937%_))) - (let ((_%hd124865124945%_ + _%tl124900124974%_))) + (let ((_%hd124902124982%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e124864124942%_)) - (_%tl124866124947%_ (##cdr _%e124864124942%_))) - (let ((_%expr124950%_ _%hd124865124945%_)) - (if (gx#stx-null? _%tl124866124947%_) - (if (gx#core-bind-values? _%hd-bind124940%_) + (##car _%e124901124979%_)) + (_%tl124903124984%_ (##cdr _%e124901124979%_))) + (let ((_%expr124987%_ _%hd124902124982%_)) + (if (gx#stx-null? _%tl124903124984%_) + (if (gx#core-bind-values? _%hd-bind124977%_) (begin - (gx#core-bind-values!__0 _%hd-bind124940%_) - (_%K124852%_ - _%rest124853%_ - (cons _%hd124851%_ _%r124854%_))) - (_%E124857124920%_)) - (_%E124857124920%_))))) - (_%E124857124920%_))))) + (gx#core-bind-values!__0 _%hd-bind124977%_) + (_%K124889%_ + _%rest124890%_ + (cons _%hd124888%_ _%r124891%_))) + (_%E124894124957%_)) + (_%E124894124957%_))))) + (_%E124894124957%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124857124920%_)) - (_%E124857124920%_)))) - (_%E124857124920%_))))) - (_%E124856124952%_)))) - (_%wrap-internal124695%_ - (lambda (_%rbody124697%_) - (let _%lp124699%_ ((_%rest124701%_ _%rbody124697%_) - (_%decls124702%_ '()) - (_%bind124703%_ '()) - (_%body124704%_ '())) - (let* ((_%e124705124712%_ _%rest124701%_) - (_%E124707124761%_ + (_%E124894124957%_)) + (_%E124894124957%_)))) + (_%E124894124957%_))))) + (_%E124893124989%_)))) + (_%wrap-internal124732%_ + (lambda (_%rbody124734%_) + (let _%lp124736%_ ((_%rest124738%_ _%rbody124734%_) + (_%decls124739%_ '()) + (_%bind124740%_ '()) + (_%body124741%_ '())) + (let* ((_%e124742124749%_ _%rest124738%_) + (_%E124744124798%_ (lambda () - (let* ((_%body124756%_ - (let* ((_%body124715124725%_ - _%body124704%_) - (_%else124718124733%_ + (let* ((_%body124793%_ + (let* ((_%body124752124762%_ + _%body124741%_) + (_%else124755124770%_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body124704%_) + _%body124741%_) (gx#stx-source - _%stx124689%_))))) - (let ((_%K124723124753%_ + _%stx124726%_))))) + (let ((_%K124760124790%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _%stx124689%_))) - (_%K124720124739%_ - (lambda (_%expr124737%_) - _%expr124737%_))) - (let ((_%try-match124717124749%_ + _%stx124726%_))) + (_%K124757124776%_ + (lambda (_%expr124774%_) + _%expr124774%_))) + (let ((_%try-match124754124786%_ (lambda () - (if (pair? _%body124715124725%_) - (let ((_%tl124722124744%_ - (##cdr _%body124715124725%_)) - (_%hd124721124742%_ - (##car _%body124715124725%_))) - (if (null? _%tl124722124744%_) - (let ((_%expr124747%_ + (if (pair? _%body124752124762%_) + (let ((_%tl124759124781%_ + (##cdr _%body124752124762%_)) + (_%hd124758124779%_ + (##car _%body124752124762%_))) + (if (null? _%tl124759124781%_) + (let ((_%expr124784%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124721124742%_)) - (_%K124720124739%_ _%expr124747%_)) - (_%else124718124733%_))) - (_%else124718124733%_))))) + _%hd124758124779%_)) + (_%K124757124776%_ _%expr124784%_)) + (_%else124755124770%_))) + (_%else124755124770%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? _%body124715124725%_) - (_%K124723124753%_) - (_%try-match124717124749%_)))))) - (_%body124758%_ - (if (null? _%bind124703%_) - _%body124756%_ + (if (null? _%body124752124762%_) + (_%K124760124790%_) + (_%try-match124754124786%_)))))) + (_%body124795%_ + (if (null? _%bind124740%_) + _%body124793%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _%bind124703%_ - (cons _%body124756%_ + (cons _%bind124740%_ + (cons _%body124793%_ '()))) - (gx#stx-source _%stx124689%_))))) - (if (null? _%decls124702%_) - _%body124758%_ + (gx#stx-source _%stx124726%_))))) + (if (null? _%decls124739%_) + _%body124795%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%decls124702%_ - (cons _%body124758%_ '()))) - (gx#stx-source _%stx124689%_)))))) - (_%E124706124847%_ + (cons _%decls124739%_ + (cons _%body124795%_ '()))) + (gx#stx-source _%stx124726%_)))))) + (_%E124743124884%_ (lambda () - (if (gx#stx-pair? _%e124705124712%_) - (let ((_%e124708124765%_ - (gx#syntax-e _%e124705124712%_))) - (let ((_%hd124709124768%_ - (##car _%e124708124765%_)) - (_%tl124710124770%_ - (##cdr _%e124708124765%_))) - (let* ((_%hd124773%_ - _%hd124709124768%_) - (_%rest124775%_ - _%tl124710124770%_) - (_%e124776124793%_ _%hd124773%_) - (_%E124788124797%_ + (if (gx#stx-pair? _%e124742124749%_) + (let ((_%e124745124802%_ + (gx#syntax-e _%e124742124749%_))) + (let ((_%hd124746124805%_ + (##car _%e124745124802%_)) + (_%tl124747124807%_ + (##cdr _%e124745124802%_))) + (let* ((_%hd124810%_ + _%hd124746124805%_) + (_%rest124812%_ + _%tl124747124807%_) + (_%e124813124830%_ _%hd124810%_) + (_%E124825124834%_ (lambda () - (if (null? _%bind124703%_) - (_%lp124699%_ - _%rest124775%_ - _%decls124702%_ - _%bind124703%_ - (cons _%hd124773%_ - _%body124704%_)) - (_%lp124699%_ - _%rest124775%_ - _%decls124702%_ + (if (null? _%bind124740%_) + (_%lp124736%_ + _%rest124812%_ + _%decls124739%_ + _%bind124740%_ + (cons _%hd124810%_ + _%body124741%_)) + (_%lp124736%_ + _%rest124812%_ + _%decls124739%_ (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%hd124773%_ '())) - _%bind124703%_) - _%body124704%_)))) + (cons _%hd124810%_ '())) + _%bind124740%_) + _%body124741%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124778124811%_ + (_%E124815124848%_ (lambda () (if (gx#stx-pair? - _%e124776124793%_) - (let ((_%e124789124801%_ + _%e124813124830%_) + (let ((_%e124826124838%_ (gx#syntax-e - _%e124776124793%_))) - (let ((_%hd124790124804%_ - (##car _%e124789124801%_)) - (_%tl124791124806%_ - (##cdr _%e124789124801%_))) + _%e124813124830%_))) + (let ((_%hd124827124841%_ + (##car _%e124826124838%_)) + (_%tl124828124843%_ + (##cdr _%e124826124838%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124790124804%_) + _%hd124827124841%_) (gx#core-identifier=? - _%hd124790124804%_ + _%hd124827124841%_ '%#declare)) - (let ((_%xdecls124809%_ _%tl124791124806%_)) - (_%lp124699%_ - _%rest124775%_ - (gx#stx-foldr cons _%decls124702%_ _%xdecls124809%_) - _%bind124703%_ - _%body124704%_)) - (_%E124788124797%_)))) - (_%E124788124797%_)))) + (let ((_%xdecls124846%_ _%tl124828124843%_)) + (_%lp124736%_ + _%rest124812%_ + (gx#stx-foldr cons _%decls124739%_ _%xdecls124846%_) + _%bind124740%_ + _%body124741%_)) + (_%E124825124834%_)))) + (_%E124825124834%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124777124843%_ + (_%E124814124880%_ (lambda () (if (gx#stx-pair? - _%e124776124793%_) - (let ((_%e124779124815%_ + _%e124813124830%_) + (let ((_%e124816124852%_ (gx#syntax-e - _%e124776124793%_))) - (let ((_%hd124780124818%_ - (##car _%e124779124815%_)) - (_%tl124781124820%_ - (##cdr _%e124779124815%_))) + _%e124813124830%_))) + (let ((_%hd124817124855%_ + (##car _%e124816124852%_)) + (_%tl124818124857%_ + (##cdr _%e124816124852%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124780124818%_) + _%hd124817124855%_) (gx#core-identifier=? - _%hd124780124818%_ + _%hd124817124855%_ '%#define-values)) - (if (gx#stx-pair? _%tl124781124820%_) - (let ((_%e124782124823%_ - (gx#syntax-e _%tl124781124820%_))) - (let ((_%hd124783124826%_ - (##car _%e124782124823%_)) - (_%tl124784124828%_ - (##cdr _%e124782124823%_))) - (let ((_%hd-bind124831%_ _%hd124783124826%_)) - (if (gx#stx-pair? _%tl124784124828%_) - (let ((_%e124785124833%_ - (gx#syntax-e _%tl124784124828%_))) - (let ((_%hd124786124836%_ - (##car _%e124785124833%_)) - (_%tl124787124838%_ - (##cdr _%e124785124833%_))) - (let ((_%expr124841%_ - _%hd124786124836%_)) - (if (gx#stx-null? _%tl124787124838%_) - (_%lp124699%_ - _%rest124775%_ - _%decls124702%_ + (if (gx#stx-pair? _%tl124818124857%_) + (let ((_%e124819124860%_ + (gx#syntax-e _%tl124818124857%_))) + (let ((_%hd124820124863%_ + (##car _%e124819124860%_)) + (_%tl124821124865%_ + (##cdr _%e124819124860%_))) + (let ((_%hd-bind124868%_ _%hd124820124863%_)) + (if (gx#stx-pair? _%tl124821124865%_) + (let ((_%e124822124870%_ + (gx#syntax-e _%tl124821124865%_))) + (let ((_%hd124823124873%_ + (##car _%e124822124870%_)) + (_%tl124824124875%_ + (##cdr _%e124822124870%_))) + (let ((_%expr124878%_ + _%hd124823124873%_)) + (if (gx#stx-null? _%tl124824124875%_) + (_%lp124736%_ + _%rest124812%_ + _%decls124739%_ (cons (cons (gx#core-quote-bind-values - _%hd-bind124831%_) + _%hd-bind124868%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr124841%_) + _%expr124878%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind124703%_) - _%body124704%_) - (_%E124778124811%_))))) - (_%E124778124811%_))))) - (_%E124778124811%_)) - (_%E124778124811%_)))) - (_%E124778124811%_))))) + _%bind124740%_) + _%body124741%_) + (_%E124815124848%_))))) + (_%E124815124848%_))))) + (_%E124815124848%_)) + (_%E124815124848%_)))) + (_%E124815124848%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124777124843%_)))) - (_%E124707124761%_))))) - (_%E124706124847%_)))))) + (_%E124814124880%_)))) + (_%E124744124798%_))))) + (_%E124743124884%_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _%body124690%_) - (gx#stx-source _%stx124689%_)) - _%expand-special124692%_)))) + (cons '%#begin _%body124727%_) + (gx#stx-source _%stx124726%_)) + _%expand-special124729%_)))) (define gx#core-expand-declare% - (lambda (_%stx124627%_) - (let* ((_%e124628124635%_ _%stx124627%_) - (_%E124630124639%_ + (lambda (_%stx124664%_) + (let* ((_%e124665124672%_ _%stx124664%_) + (_%E124667124676%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124628124635%_))) - (_%E124629124685%_ + _%e124665124672%_))) + (_%E124666124722%_ (lambda () - (if (gx#stx-pair? _%e124628124635%_) - (let ((_%e124631124643%_ - (gx#syntax-e _%e124628124635%_))) - (let ((_%hd124632124646%_ (##car _%e124631124643%_)) - (_%tl124633124648%_ (##cdr _%e124631124643%_))) - (let ((_%body124651%_ _%tl124633124648%_)) - (if (gx#stx-list? _%body124651%_) + (if (gx#stx-pair? _%e124665124672%_) + (let ((_%e124668124680%_ + (gx#syntax-e _%e124665124672%_))) + (let ((_%hd124669124683%_ (##car _%e124668124680%_)) + (_%tl124670124685%_ (##cdr _%e124668124680%_))) + (let ((_%body124688%_ _%tl124670124685%_)) + (if (gx#stx-list? _%body124688%_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_%decl124653%_) - (let* ((_%e124654124661%_ _%decl124653%_) - (_%E124656124665%_ + (lambda (_%decl124690%_) + (let* ((_%e124691124698%_ _%decl124690%_) + (_%E124693124702%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124654124661%_))) - (_%E124655124681%_ + _%e124691124698%_))) + (_%E124692124718%_ (lambda () (if (gx#stx-pair? - _%e124654124661%_) - (let ((_%e124657124669%_ + _%e124691124698%_) + (let ((_%e124694124706%_ (gx#syntax-e - _%e124654124661%_))) - (let ((_%hd124658124672%_ - (##car _%e124657124669%_)) - (_%tl124659124674%_ - (##cdr _%e124657124669%_))) - (let* ((_%head124677%_ - _%hd124658124672%_) - (_%args124679%_ - _%tl124659124674%_)) + _%e124691124698%_))) + (let ((_%hd124695124709%_ + (##car _%e124694124706%_)) + (_%tl124696124711%_ + (##cdr _%e124694124706%_))) + (let* ((_%head124714%_ + _%hd124695124709%_) + (_%args124716%_ + _%tl124696124711%_)) (if (gx#stx-list? - _%args124679%_) + _%args124716%_) (gx#stx-map1 gx#core-quote-syntax - _%decl124653%_) - (_%E124656124665%_))))) - (_%E124656124665%_))))) - (_%E124655124681%_))) - _%body124651%_)) - (gx#stx-source _%stx124627%_)) - (_%E124630124639%_))))) - (_%E124630124639%_))))) - (_%E124629124685%_)))) + _%decl124690%_) + (_%E124693124702%_))))) + (_%E124693124702%_))))) + (_%E124692124718%_))) + _%body124688%_)) + (gx#stx-source _%stx124664%_)) + (_%E124667124676%_))))) + (_%E124667124676%_))))) + (_%E124666124722%_)))) (define gx#core-expand-extern% - (lambda (_%stx124531%_) - (let* ((_%e124532124539%_ _%stx124531%_) - (_%E124534124543%_ + (lambda (_%stx124568%_) + (let* ((_%e124569124576%_ _%stx124568%_) + (_%E124571124580%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124532124539%_))) - (_%E124533124623%_ + _%e124569124576%_))) + (_%E124570124660%_ (lambda () - (if (gx#stx-pair? _%e124532124539%_) - (let ((_%e124535124547%_ - (gx#syntax-e _%e124532124539%_))) - (let ((_%hd124536124550%_ (##car _%e124535124547%_)) - (_%tl124537124552%_ (##cdr _%e124535124547%_))) - (let ((_%body124555%_ _%tl124537124552%_)) - (let _%lp124557%_ ((_%rest124559%_ _%body124555%_) - (_%r124560%_ '())) - (let* ((_%e124561124575%_ _%rest124559%_) - (_%E124573124579%_ + (if (gx#stx-pair? _%e124569124576%_) + (let ((_%e124572124584%_ + (gx#syntax-e _%e124569124576%_))) + (let ((_%hd124573124587%_ (##car _%e124572124584%_)) + (_%tl124574124589%_ (##cdr _%e124572124584%_))) + (let ((_%body124592%_ _%tl124574124589%_)) + (let _%lp124594%_ ((_%rest124596%_ _%body124592%_) + (_%r124597%_ '())) + (let* ((_%e124598124612%_ _%rest124596%_) + (_%E124610124616%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _%stx124531%_))) - (_%E124563124583%_ + _%stx124568%_))) + (_%E124600124620%_ (lambda () - (if (gx#stx-null? _%e124561124575%_) + (if (gx#stx-null? _%e124598124612%_) (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _%r124560%_)) - (gx#stx-source _%stx124531%_)) - (_%E124573124579%_)))) - (_%E124562124619%_ + (reverse _%r124597%_)) + (gx#stx-source _%stx124568%_)) + (_%E124610124616%_)))) + (_%E124599124656%_ (lambda () - (if (gx#stx-pair? _%e124561124575%_) - (let ((_%e124564124587%_ + (if (gx#stx-pair? _%e124598124612%_) + (let ((_%e124601124624%_ (gx#syntax-e - _%e124561124575%_))) - (let ((_%hd124565124590%_ - (##car _%e124564124587%_)) - (_%tl124566124592%_ - (##cdr _%e124564124587%_))) + _%e124598124612%_))) + (let ((_%hd124602124627%_ + (##car _%e124601124624%_)) + (_%tl124603124629%_ + (##cdr _%e124601124624%_))) (if (gx#stx-pair? - _%hd124565124590%_) - (let ((_%e124567124595%_ + _%hd124602124627%_) + (let ((_%e124604124632%_ (gx#syntax-e - _%hd124565124590%_))) - (let ((_%hd124568124598%_ - (##car _%e124567124595%_)) - (_%tl124569124600%_ - (##cdr _%e124567124595%_))) - (let ((_%id124603%_ - _%hd124568124598%_)) + _%hd124602124627%_))) + (let ((_%hd124605124635%_ + (##car _%e124604124632%_)) + (_%tl124606124637%_ + (##cdr _%e124604124632%_))) + (let ((_%id124640%_ + _%hd124605124635%_)) (if (gx#stx-pair? - _%tl124569124600%_) - (let ((_%e124570124605%_ + _%tl124606124637%_) + (let ((_%e124607124642%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl124569124600%_))) - (let ((_%hd124571124608%_ (##car _%e124570124605%_)) - (_%tl124572124610%_ (##cdr _%e124570124605%_))) - (let ((_%eid124613%_ _%hd124571124608%_)) - (if (gx#stx-null? _%tl124572124610%_) - (let ((_%rest124615%_ _%tl124566124592%_)) - (if (and (gx#identifier? _%id124603%_) - (gx#identifier? _%eid124613%_)) - (let ((_%eid124617%_ - (gx#stx-e _%eid124613%_))) + (gx#syntax-e _%tl124606124637%_))) + (let ((_%hd124608124645%_ (##car _%e124607124642%_)) + (_%tl124609124647%_ (##cdr _%e124607124642%_))) + (let ((_%eid124650%_ _%hd124608124645%_)) + (if (gx#stx-null? _%tl124609124647%_) + (let ((_%rest124652%_ _%tl124603124629%_)) + (if (and (gx#identifier? _%id124640%_) + (gx#identifier? _%eid124650%_)) + (let ((_%eid124654%_ + (gx#stx-e _%eid124650%_))) (gx#core-bind-extern!__0 - _%id124603%_ - _%eid124617%_) - (_%lp124557%_ - _%rest124615%_ + _%id124640%_ + _%eid124654%_) + (_%lp124594%_ + _%rest124652%_ (cons (cons (gx#core-quote-syntax__0 - _%id124603%_) - (cons _%eid124617%_ '())) - _%r124560%_))) - (_%E124563124583%_))) - (_%E124563124583%_))))) - (_%E124563124583%_))))) + _%id124640%_) + (cons _%eid124654%_ '())) + _%r124597%_))) + (_%E124600124620%_))) + (_%E124600124620%_))))) + (_%E124600124620%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124563124583%_)))) - (_%E124563124583%_))))) - (_%E124562124619%_)))))) - (_%E124534124543%_))))) - (_%E124533124623%_)))) + (_%E124600124620%_)))) + (_%E124600124620%_))))) + (_%E124599124656%_)))))) + (_%E124571124580%_))))) + (_%E124570124660%_)))) (define gx#core-expand-define-values% - (lambda (_%stx124477%_) - (let* ((_%e124478124491%_ _%stx124477%_) - (_%E124480124495%_ + (lambda (_%stx124514%_) + (let* ((_%e124515124528%_ _%stx124514%_) + (_%E124517124532%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124478124491%_))) - (_%E124479124527%_ + _%e124515124528%_))) + (_%E124516124564%_ (lambda () - (if (gx#stx-pair? _%e124478124491%_) - (let ((_%e124481124499%_ - (gx#syntax-e _%e124478124491%_))) - (let ((_%hd124482124502%_ (##car _%e124481124499%_)) - (_%tl124483124504%_ (##cdr _%e124481124499%_))) - (if (gx#stx-pair? _%tl124483124504%_) - (let ((_%e124484124507%_ - (gx#syntax-e _%tl124483124504%_))) - (let ((_%hd124485124510%_ - (##car _%e124484124507%_)) - (_%tl124486124512%_ - (##cdr _%e124484124507%_))) - (let ((_%hd124515%_ _%hd124485124510%_)) - (if (gx#stx-pair? _%tl124486124512%_) - (let ((_%e124487124517%_ + (if (gx#stx-pair? _%e124515124528%_) + (let ((_%e124518124536%_ + (gx#syntax-e _%e124515124528%_))) + (let ((_%hd124519124539%_ (##car _%e124518124536%_)) + (_%tl124520124541%_ (##cdr _%e124518124536%_))) + (if (gx#stx-pair? _%tl124520124541%_) + (let ((_%e124521124544%_ + (gx#syntax-e _%tl124520124541%_))) + (let ((_%hd124522124547%_ + (##car _%e124521124544%_)) + (_%tl124523124549%_ + (##cdr _%e124521124544%_))) + (let ((_%hd124552%_ _%hd124522124547%_)) + (if (gx#stx-pair? _%tl124523124549%_) + (let ((_%e124524124554%_ (gx#syntax-e - _%tl124486124512%_))) - (let ((_%hd124488124520%_ - (##car _%e124487124517%_)) - (_%tl124489124522%_ - (##cdr _%e124487124517%_))) - (let ((_%expr124525%_ - _%hd124488124520%_)) + _%tl124523124549%_))) + (let ((_%hd124525124557%_ + (##car _%e124524124554%_)) + (_%tl124526124559%_ + (##cdr _%e124524124554%_))) + (let ((_%expr124562%_ + _%hd124525124557%_)) (if (gx#stx-null? - _%tl124489124522%_) + _%tl124526124559%_) (if (gx#core-bind-values? - _%hd124515%_) + _%hd124552%_) (begin (gx#core-bind-values!__0 - _%hd124515%_) + _%hd124552%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124515%_) - (cons (gx#core-expand-expression _%expr124525%_) + _%hd124552%_) + (cons (gx#core-expand-expression _%expr124562%_) '()))) - (gx#stx-source _%stx124477%_))) - (_%E124480124495%_)) + (gx#stx-source _%stx124514%_))) + (_%E124517124532%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124480124495%_))))) - (_%E124480124495%_))))) - (_%E124480124495%_)))) - (_%E124480124495%_))))) - (_%E124479124527%_)))) + (_%E124517124532%_))))) + (_%E124517124532%_))))) + (_%E124517124532%_)))) + (_%E124517124532%_))))) + (_%E124516124564%_)))) (define gx#core-expand-define-runtime% - (lambda (_%stx124421%_) - (let* ((_%e124422124435%_ _%stx124421%_) - (_%E124424124439%_ + (lambda (_%stx124458%_) + (let* ((_%e124459124472%_ _%stx124458%_) + (_%E124461124476%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124422124435%_))) - (_%E124423124473%_ + _%e124459124472%_))) + (_%E124460124510%_ (lambda () - (if (gx#stx-pair? _%e124422124435%_) - (let ((_%e124425124443%_ - (gx#syntax-e _%e124422124435%_))) - (let ((_%hd124426124446%_ (##car _%e124425124443%_)) - (_%tl124427124448%_ (##cdr _%e124425124443%_))) - (if (gx#stx-pair? _%tl124427124448%_) - (let ((_%e124428124451%_ - (gx#syntax-e _%tl124427124448%_))) - (let ((_%hd124429124454%_ - (##car _%e124428124451%_)) - (_%tl124430124456%_ - (##cdr _%e124428124451%_))) - (let ((_%id124459%_ _%hd124429124454%_)) - (if (gx#stx-pair? _%tl124430124456%_) - (let ((_%e124431124461%_ + (if (gx#stx-pair? _%e124459124472%_) + (let ((_%e124462124480%_ + (gx#syntax-e _%e124459124472%_))) + (let ((_%hd124463124483%_ (##car _%e124462124480%_)) + (_%tl124464124485%_ (##cdr _%e124462124480%_))) + (if (gx#stx-pair? _%tl124464124485%_) + (let ((_%e124465124488%_ + (gx#syntax-e _%tl124464124485%_))) + (let ((_%hd124466124491%_ + (##car _%e124465124488%_)) + (_%tl124467124493%_ + (##cdr _%e124465124488%_))) + (let ((_%id124496%_ _%hd124466124491%_)) + (if (gx#stx-pair? _%tl124467124493%_) + (let ((_%e124468124498%_ (gx#syntax-e - _%tl124430124456%_))) - (let ((_%hd124432124464%_ - (##car _%e124431124461%_)) - (_%tl124433124466%_ - (##cdr _%e124431124461%_))) - (let ((_%binding-id124469%_ - _%hd124432124464%_)) + _%tl124467124493%_))) + (let ((_%hd124469124501%_ + (##car _%e124468124498%_)) + (_%tl124470124503%_ + (##cdr _%e124468124498%_))) + (let ((_%binding-id124506%_ + _%hd124469124501%_)) (if (gx#stx-null? - _%tl124433124466%_) + _%tl124470124503%_) (if (and (gx#identifier? - _%id124459%_) + _%id124496%_) (gx#identifier? - _%binding-id124469%_)) - (let ((_%eid124471%_ + _%binding-id124506%_)) + (let ((_%eid124508%_ (gx#stx-e - _%binding-id124469%_))) + _%binding-id124506%_))) (gx#core-bind-runtime-reference!__0 - _%id124459%_ - _%eid124471%_) + _%id124496%_ + _%eid124508%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id124459%_) - (cons _%eid124471%_ '()))))) - (_%E124424124439%_)) + _%id124496%_) + (cons _%eid124508%_ '()))))) + (_%E124461124476%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124424124439%_))))) - (_%E124424124439%_))))) - (_%E124424124439%_)))) - (_%E124424124439%_))))) - (_%E124423124473%_)))) + (_%E124461124476%_))))) + (_%E124461124476%_))))) + (_%E124461124476%_)))) + (_%E124461124476%_))))) + (_%E124460124510%_)))) (define gx#core-expand-define-syntax% - (lambda (_%stx124364%_) - (let* ((_%e124365124378%_ _%stx124364%_) - (_%E124367124382%_ + (lambda (_%stx124401%_) + (let* ((_%e124402124415%_ _%stx124401%_) + (_%E124404124419%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124365124378%_))) - (_%E124366124417%_ + _%e124402124415%_))) + (_%E124403124454%_ (lambda () - (if (gx#stx-pair? _%e124365124378%_) - (let ((_%e124368124386%_ - (gx#syntax-e _%e124365124378%_))) - (let ((_%hd124369124389%_ (##car _%e124368124386%_)) - (_%tl124370124391%_ (##cdr _%e124368124386%_))) - (if (gx#stx-pair? _%tl124370124391%_) - (let ((_%e124371124394%_ - (gx#syntax-e _%tl124370124391%_))) - (let ((_%hd124372124397%_ - (##car _%e124371124394%_)) - (_%tl124373124399%_ - (##cdr _%e124371124394%_))) - (let ((_%id124402%_ _%hd124372124397%_)) - (if (gx#stx-pair? _%tl124373124399%_) - (let ((_%e124374124404%_ + (if (gx#stx-pair? _%e124402124415%_) + (let ((_%e124405124423%_ + (gx#syntax-e _%e124402124415%_))) + (let ((_%hd124406124426%_ (##car _%e124405124423%_)) + (_%tl124407124428%_ (##cdr _%e124405124423%_))) + (if (gx#stx-pair? _%tl124407124428%_) + (let ((_%e124408124431%_ + (gx#syntax-e _%tl124407124428%_))) + (let ((_%hd124409124434%_ + (##car _%e124408124431%_)) + (_%tl124410124436%_ + (##cdr _%e124408124431%_))) + (let ((_%id124439%_ _%hd124409124434%_)) + (if (gx#stx-pair? _%tl124410124436%_) + (let ((_%e124411124441%_ (gx#syntax-e - _%tl124373124399%_))) - (let ((_%hd124375124407%_ - (##car _%e124374124404%_)) - (_%tl124376124409%_ - (##cdr _%e124374124404%_))) - (let ((_%expr124412%_ - _%hd124375124407%_)) + _%tl124410124436%_))) + (let ((_%hd124412124444%_ + (##car _%e124411124441%_)) + (_%tl124413124446%_ + (##cdr _%e124411124441%_))) + (let ((_%expr124449%_ + _%hd124412124444%_)) (if (gx#stx-null? - _%tl124376124409%_) + _%tl124413124446%_) (if (gx#identifier? - _%id124402%_) - (let ((_g125323_ + _%id124439%_) + (let ((_g125360_ (gx#core-expand-expression+1 - _%expr124412%_))) + _%expr124449%_))) (begin - (let ((_g125324_ + (let ((_g125361_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g125323_) - (##vector-length _g125323_) + (if (##values? _g125360_) + (##vector-length _g125360_) 1))) - (if (not (##fx= _g125324_ 2)) - (error "Context expects 2 values" _g125324_))) - (let ((_%e-stx124414%_ (##vector-ref _g125323_ 0)) - (_%e124415%_ (##vector-ref _g125323_ 1))) + (if (not (##fx= _g125361_ 2)) + (error "Context expects 2 values" _g125361_))) + (let ((_%e-stx124451%_ (##vector-ref _g125360_ 0)) + (_%e124452%_ (##vector-ref _g125360_ 1))) (begin - (gx#core-bind-syntax!__0 _%id124402%_ _%e124415%_) + (gx#core-bind-syntax!__0 _%id124439%_ _%e124452%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _%id124402%_) - (cons _%e-stx124414%_ '()))) - (gx#stx-source _%stx124364%_)))))) - (_%E124367124382%_)) + (cons (gx#core-quote-syntax__0 _%id124439%_) + (cons _%e-stx124451%_ '()))) + (gx#stx-source _%stx124401%_)))))) + (_%E124404124419%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124367124382%_))))) - (_%E124367124382%_))))) - (_%E124367124382%_)))) - (_%E124367124382%_))))) - (_%E124366124417%_)))) + (_%E124404124419%_))))) + (_%E124404124419%_))))) + (_%E124404124419%_)))) + (_%E124404124419%_))))) + (_%E124403124454%_)))) (define gx#core-expand-define-alias% - (lambda (_%stx124308%_) - (let* ((_%e124309124322%_ _%stx124308%_) - (_%E124311124326%_ + (lambda (_%stx124345%_) + (let* ((_%e124346124359%_ _%stx124345%_) + (_%E124348124363%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124309124322%_))) - (_%E124310124360%_ + _%e124346124359%_))) + (_%E124347124397%_ (lambda () - (if (gx#stx-pair? _%e124309124322%_) - (let ((_%e124312124330%_ - (gx#syntax-e _%e124309124322%_))) - (let ((_%hd124313124333%_ (##car _%e124312124330%_)) - (_%tl124314124335%_ (##cdr _%e124312124330%_))) - (if (gx#stx-pair? _%tl124314124335%_) - (let ((_%e124315124338%_ - (gx#syntax-e _%tl124314124335%_))) - (let ((_%hd124316124341%_ - (##car _%e124315124338%_)) - (_%tl124317124343%_ - (##cdr _%e124315124338%_))) - (let ((_%id124346%_ _%hd124316124341%_)) - (if (gx#stx-pair? _%tl124317124343%_) - (let ((_%e124318124348%_ + (if (gx#stx-pair? _%e124346124359%_) + (let ((_%e124349124367%_ + (gx#syntax-e _%e124346124359%_))) + (let ((_%hd124350124370%_ (##car _%e124349124367%_)) + (_%tl124351124372%_ (##cdr _%e124349124367%_))) + (if (gx#stx-pair? _%tl124351124372%_) + (let ((_%e124352124375%_ + (gx#syntax-e _%tl124351124372%_))) + (let ((_%hd124353124378%_ + (##car _%e124352124375%_)) + (_%tl124354124380%_ + (##cdr _%e124352124375%_))) + (let ((_%id124383%_ _%hd124353124378%_)) + (if (gx#stx-pair? _%tl124354124380%_) + (let ((_%e124355124385%_ (gx#syntax-e - _%tl124317124343%_))) - (let ((_%hd124319124351%_ - (##car _%e124318124348%_)) - (_%tl124320124353%_ - (##cdr _%e124318124348%_))) - (let ((_%alias-id124356%_ - _%hd124319124351%_)) + _%tl124354124380%_))) + (let ((_%hd124356124388%_ + (##car _%e124355124385%_)) + (_%tl124357124390%_ + (##cdr _%e124355124385%_))) + (let ((_%alias-id124393%_ + _%hd124356124388%_)) (if (gx#stx-null? - _%tl124320124353%_) + _%tl124357124390%_) (if (and (gx#identifier? - _%id124346%_) + _%id124383%_) (gx#identifier? - _%alias-id124356%_)) - (let ((_%alias-id124358%_ + _%alias-id124393%_)) + (let ((_%alias-id124395%_ (gx#core-quote-syntax__0 - _%alias-id124356%_))) + _%alias-id124393%_))) (gx#core-bind-alias!__0 - _%id124346%_ - _%alias-id124358%_) + _%id124383%_ + _%alias-id124395%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id124346%_) - (cons _%alias-id124358%_ '()))))) - (_%E124311124326%_)) + _%id124383%_) + (cons _%alias-id124395%_ '()))))) + (_%E124348124363%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124311124326%_))))) - (_%E124311124326%_))))) - (_%E124311124326%_)))) - (_%E124311124326%_))))) - (_%E124310124360%_)))) + (_%E124348124363%_))))) + (_%E124348124363%_))))) + (_%E124348124363%_)))) + (_%E124348124363%_))))) + (_%E124347124397%_)))) (define gx#core-expand-lambda%__% - (lambda (_%stx124251%_ _%wrap?124252%_) - (let* ((_%e124253124263%_ _%stx124251%_) - (_%E124255124267%_ + (lambda (_%stx124288%_ _%wrap?124289%_) + (let* ((_%e124290124300%_ _%stx124288%_) + (_%E124292124304%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124253124263%_))) - (_%E124254124294%_ + _%e124290124300%_))) + (_%E124291124331%_ (lambda () - (if (gx#stx-pair? _%e124253124263%_) - (let ((_%e124256124271%_ - (gx#syntax-e _%e124253124263%_))) - (let ((_%hd124257124274%_ (##car _%e124256124271%_)) - (_%tl124258124276%_ (##cdr _%e124256124271%_))) - (if (gx#stx-pair? _%tl124258124276%_) - (let ((_%e124259124279%_ - (gx#syntax-e _%tl124258124276%_))) - (let ((_%hd124260124282%_ - (##car _%e124259124279%_)) - (_%tl124261124284%_ - (##cdr _%e124259124279%_))) - (let* ((_%hd124287%_ _%hd124260124282%_) - (_%body124289%_ _%tl124261124284%_)) - (if (gx#core-bind-values? _%hd124287%_) + (if (gx#stx-pair? _%e124290124300%_) + (let ((_%e124293124308%_ + (gx#syntax-e _%e124290124300%_))) + (let ((_%hd124294124311%_ (##car _%e124293124308%_)) + (_%tl124295124313%_ (##cdr _%e124293124308%_))) + (if (gx#stx-pair? _%tl124295124313%_) + (let ((_%e124296124316%_ + (gx#syntax-e _%tl124295124313%_))) + (let ((_%hd124297124319%_ + (##car _%e124296124316%_)) + (_%tl124298124321%_ + (##cdr _%e124296124316%_))) + (let* ((_%hd124324%_ _%hd124297124319%_) + (_%body124326%_ _%tl124298124321%_)) + (if (gx#core-bind-values? _%hd124324%_) (__call-with-parameters (lambda () (gx#core-bind-values!__0 - _%hd124287%_) - (let ((_%body124292%_ + _%hd124324%_) + (let ((_%body124329%_ (cons (gx#core-quote-bind-values - _%hd124287%_) + _%hd124324%_) (cons (gx#core-expand-local-block - _%stx124251%_ - _%body124289%_) + _%stx124288%_ + _%body124326%_) '())))) - (if _%wrap?124252%_ + (if _%wrap?124289%_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _%body124292%_) + _%body124329%_) (gx#stx-source - _%stx124251%_)) - _%body124292%_))) + _%stx124288%_)) + _%body124329%_))) gx#current-expander-context - (let ((__obj125316 + (let ((__obj125353 (##structure gx#local-context::t '#f @@ -1151,117 +1151,117 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125316) - __obj125316)) - (_%E124255124267%_))))) - (_%E124255124267%_)))) - (_%E124255124267%_))))) - (_%E124254124294%_)))) + __obj125353) + __obj125353)) + (_%E124292124304%_))))) + (_%E124292124304%_)))) + (_%E124292124304%_))))) + (_%E124291124331%_)))) (define gx#core-expand-lambda%__0 - (lambda (_%stx124301%_) - (let ((_%wrap?124303%_ '#t)) - (gx#core-expand-lambda%__% _%stx124301%_ _%wrap?124303%_)))) + (lambda (_%stx124338%_) + (let ((_%wrap?124340%_ '#t)) + (gx#core-expand-lambda%__% _%stx124338%_ _%wrap?124340%_)))) (define gx#core-expand-lambda% - (lambda _g125326_ - (let ((_g125325_ (##length _g125326_))) - (cond ((##fx= _g125325_ 1) - (apply gx#core-expand-lambda%__0 _g125326_)) - ((##fx= _g125325_ 2) - (apply gx#core-expand-lambda%__% _g125326_)) + (lambda _g125363_ + (let ((_g125362_ (##length _g125363_))) + (cond ((##fx= _g125362_ 1) + (apply gx#core-expand-lambda%__0 _g125363_)) + ((##fx= _g125362_ 2) + (apply gx#core-expand-lambda%__% _g125363_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g125326_)))))) + _g125363_)))))) (define gx#core-expand-case-lambda% - (lambda (_%stx124215%_) - (let* ((_%e124216124223%_ _%stx124215%_) - (_%E124218124227%_ + (lambda (_%stx124252%_) + (let* ((_%e124253124260%_ _%stx124252%_) + (_%E124255124264%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124216124223%_))) - (_%E124217124246%_ + _%e124253124260%_))) + (_%E124254124283%_ (lambda () - (if (gx#stx-pair? _%e124216124223%_) - (let ((_%e124219124231%_ - (gx#syntax-e _%e124216124223%_))) - (let ((_%hd124220124234%_ (##car _%e124219124231%_)) - (_%tl124221124236%_ (##cdr _%e124219124231%_))) - (let ((_%clauses124239%_ _%tl124221124236%_)) - (if (gx#stx-list? _%clauses124239%_) + (if (gx#stx-pair? _%e124253124260%_) + (let ((_%e124256124268%_ + (gx#syntax-e _%e124253124260%_))) + (let ((_%hd124257124271%_ (##car _%e124256124268%_)) + (_%tl124258124273%_ (##cdr _%e124256124268%_))) + (let ((_%clauses124276%_ _%tl124258124273%_)) + (if (gx#stx-list? _%clauses124276%_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_%clause124241%_) + (lambda (_%clause124278%_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _%clause124241%_) - (let ((_%$e124243%_ + _%clause124278%_) + (let ((_%$e124280%_ (gx#stx-source - _%clause124241%_))) - (if _%$e124243%_ - _%$e124243%_ - (gx#stx-source _%stx124215%_)))) + _%clause124278%_))) + (if _%$e124280%_ + _%$e124280%_ + (gx#stx-source _%stx124252%_)))) '#f)) - _%clauses124239%_)) - (gx#stx-source _%stx124215%_)) - (_%E124218124227%_))))) - (_%E124218124227%_))))) - (_%E124217124246%_)))) + _%clauses124276%_)) + (gx#stx-source _%stx124252%_)) + (_%E124255124264%_))))) + (_%E124255124264%_))))) + (_%E124254124283%_)))) (define gx#core-expand-let-values% - (lambda (_%stx124169%_) - (let* ((_%e124170124180%_ _%stx124169%_) - (_%E124172124184%_ + (lambda (_%stx124206%_) + (let* ((_%e124207124217%_ _%stx124206%_) + (_%E124209124221%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124170124180%_))) - (_%E124171124211%_ + _%e124207124217%_))) + (_%E124208124248%_ (lambda () - (if (gx#stx-pair? _%e124170124180%_) - (let ((_%e124173124188%_ - (gx#syntax-e _%e124170124180%_))) - (let ((_%hd124174124191%_ (##car _%e124173124188%_)) - (_%tl124175124193%_ (##cdr _%e124173124188%_))) - (if (gx#stx-pair? _%tl124175124193%_) - (let ((_%e124176124196%_ - (gx#syntax-e _%tl124175124193%_))) - (let ((_%hd124177124199%_ - (##car _%e124176124196%_)) - (_%tl124178124201%_ - (##cdr _%e124176124196%_))) - (let* ((_%hd124204%_ _%hd124177124199%_) - (_%body124206%_ _%tl124178124201%_)) - (if (gx#core-expand-let-bind? _%hd124204%_) - (let ((_%expressions124208%_ + (if (gx#stx-pair? _%e124207124217%_) + (let ((_%e124210124225%_ + (gx#syntax-e _%e124207124217%_))) + (let ((_%hd124211124228%_ (##car _%e124210124225%_)) + (_%tl124212124230%_ (##cdr _%e124210124225%_))) + (if (gx#stx-pair? _%tl124212124230%_) + (let ((_%e124213124233%_ + (gx#syntax-e _%tl124212124230%_))) + (let ((_%hd124214124236%_ + (##car _%e124213124233%_)) + (_%tl124215124238%_ + (##cdr _%e124213124233%_))) + (let* ((_%hd124241%_ _%hd124214124236%_) + (_%body124243%_ _%tl124215124238%_)) + (if (gx#core-expand-let-bind? _%hd124241%_) + (let ((_%expressions124245%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd124204%_))) + _%hd124241%_))) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd124204%_) + _%hd124241%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd124204%_ - _%expressions124208%_) + _%hd124241%_ + _%expressions124245%_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx124169%_ - _%body124206%_) + _%stx124206%_ + _%body124243%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx124169%_))) + (gx#stx-source _%stx124206%_))) gx#current-expander-context - (let ((__obj125317 + (let ((__obj125354 (##structure gx#local-context::t '#f @@ -1270,59 +1270,59 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125317) - __obj125317))) - (_%E124172124184%_))))) - (_%E124172124184%_)))) - (_%E124172124184%_))))) - (_%E124171124211%_)))) + __obj125354) + __obj125354))) + (_%E124209124221%_))))) + (_%E124209124221%_)))) + (_%E124209124221%_))))) + (_%E124208124248%_)))) (define gx#core-expand-letrec-values%__% - (lambda (_%stx124114%_ _%form124115%_) - (let* ((_%e124116124126%_ _%stx124114%_) - (_%E124118124130%_ + (lambda (_%stx124151%_ _%form124152%_) + (let* ((_%e124153124163%_ _%stx124151%_) + (_%E124155124167%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124116124126%_))) - (_%E124117124155%_ + _%e124153124163%_))) + (_%E124154124192%_ (lambda () - (if (gx#stx-pair? _%e124116124126%_) - (let ((_%e124119124134%_ - (gx#syntax-e _%e124116124126%_))) - (let ((_%hd124120124137%_ (##car _%e124119124134%_)) - (_%tl124121124139%_ (##cdr _%e124119124134%_))) - (if (gx#stx-pair? _%tl124121124139%_) - (let ((_%e124122124142%_ - (gx#syntax-e _%tl124121124139%_))) - (let ((_%hd124123124145%_ - (##car _%e124122124142%_)) - (_%tl124124124147%_ - (##cdr _%e124122124142%_))) - (let* ((_%hd124150%_ _%hd124123124145%_) - (_%body124152%_ _%tl124124124147%_)) - (if (gx#core-expand-let-bind? _%hd124150%_) + (if (gx#stx-pair? _%e124153124163%_) + (let ((_%e124156124171%_ + (gx#syntax-e _%e124153124163%_))) + (let ((_%hd124157124174%_ (##car _%e124156124171%_)) + (_%tl124158124176%_ (##cdr _%e124156124171%_))) + (if (gx#stx-pair? _%tl124158124176%_) + (let ((_%e124159124179%_ + (gx#syntax-e _%tl124158124176%_))) + (let ((_%hd124160124182%_ + (##car _%e124159124179%_)) + (_%tl124161124184%_ + (##cdr _%e124159124179%_))) + (let* ((_%hd124187%_ _%hd124160124182%_) + (_%body124189%_ _%tl124161124184%_)) + (if (gx#core-expand-let-bind? _%hd124187%_) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd124150%_) + _%hd124187%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _%form124115%_) + _%form124152%_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd124150%_ + _%hd124187%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd124150%_)) + _%hd124187%_)) (cons (gx#core-expand-local-block - _%stx124114%_ - _%body124152%_) + _%stx124151%_ + _%body124189%_) '()))) - (gx#stx-source _%stx124114%_))) + (gx#stx-source _%stx124151%_))) gx#current-expander-context - (let ((__obj125318 + (let ((__obj125355 (##structure gx#local-context::t '#f @@ -1331,200 +1331,200 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125318) - __obj125318)) - (_%E124118124130%_))))) - (_%E124118124130%_)))) - (_%E124118124130%_))))) - (_%E124117124155%_)))) + __obj125355) + __obj125355)) + (_%E124155124167%_))))) + (_%E124155124167%_)))) + (_%E124155124167%_))))) + (_%E124154124192%_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_%stx124162%_) - (let ((_%form124164%_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _%stx124162%_ _%form124164%_)))) + (lambda (_%stx124199%_) + (let ((_%form124201%_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _%stx124199%_ _%form124201%_)))) (define gx#core-expand-letrec-values% - (lambda _g125328_ - (let ((_g125327_ (##length _g125328_))) - (cond ((##fx= _g125327_ 1) - (apply gx#core-expand-letrec-values%__0 _g125328_)) - ((##fx= _g125327_ 2) - (apply gx#core-expand-letrec-values%__% _g125328_)) + (lambda _g125365_ + (let ((_g125364_ (##length _g125365_))) + (cond ((##fx= _g125364_ 1) + (apply gx#core-expand-letrec-values%__0 _g125365_)) + ((##fx= _g125364_ 2) + (apply gx#core-expand-letrec-values%__% _g125365_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g125328_)))))) + _g125365_)))))) (define gx#core-expand-letrec*-values% - (lambda (_%stx124111%_) - (gx#core-expand-letrec-values%__% _%stx124111%_ '%#letrec*-values))) + (lambda (_%stx124148%_) + (gx#core-expand-letrec-values%__% _%stx124148%_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_%stx124068%_) - (if (gx#stx-list? _%stx124068%_) + (lambda (_%stx124105%_) + (if (gx#stx-list? _%stx124105%_) (gx#stx-andmap - (lambda (_%bind124070%_) - (let* ((_%e124071124081%_ _%bind124070%_) - (_%E124073124085%_ (lambda () '#f)) - (_%E124072124107%_ + (lambda (_%bind124107%_) + (let* ((_%e124108124118%_ _%bind124107%_) + (_%E124110124122%_ (lambda () '#f)) + (_%E124109124144%_ (lambda () - (if (gx#stx-pair? _%e124071124081%_) - (let ((_%e124074124089%_ - (gx#syntax-e _%e124071124081%_))) - (let ((_%hd124075124092%_ - (##car _%e124074124089%_)) - (_%tl124076124094%_ - (##cdr _%e124074124089%_))) - (let ((_%hd124097%_ _%hd124075124092%_)) - (if (gx#stx-pair? _%tl124076124094%_) - (let ((_%e124077124099%_ + (if (gx#stx-pair? _%e124108124118%_) + (let ((_%e124111124126%_ + (gx#syntax-e _%e124108124118%_))) + (let ((_%hd124112124129%_ + (##car _%e124111124126%_)) + (_%tl124113124131%_ + (##cdr _%e124111124126%_))) + (let ((_%hd124134%_ _%hd124112124129%_)) + (if (gx#stx-pair? _%tl124113124131%_) + (let ((_%e124114124136%_ (gx#syntax-e - _%tl124076124094%_))) - (let ((_%hd124078124102%_ - (##car _%e124077124099%_)) - (_%tl124079124104%_ - (##cdr _%e124077124099%_))) + _%tl124113124131%_))) + (let ((_%hd124115124139%_ + (##car _%e124114124136%_)) + (_%tl124116124141%_ + (##cdr _%e124114124136%_))) (if (gx#stx-null? - _%tl124079124104%_) + _%tl124116124141%_) (gx#core-bind-values? - _%hd124097%_) - (_%E124073124085%_)))) - (_%E124073124085%_))))) - (_%E124073124085%_))))) - (_%E124072124107%_))) - _%stx124068%_) + _%hd124134%_) + (_%E124110124122%_)))) + (_%E124110124122%_))))) + (_%E124110124122%_))))) + (_%E124109124144%_))) + _%stx124105%_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_%bind124027%_) - (let* ((_%e124028124038%_ _%bind124027%_) - (_%E124030124042%_ + (lambda (_%bind124064%_) + (let* ((_%e124065124075%_ _%bind124064%_) + (_%E124067124079%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124028124038%_))) - (_%E124029124064%_ + _%e124065124075%_))) + (_%E124066124101%_ (lambda () - (if (gx#stx-pair? _%e124028124038%_) - (let ((_%e124031124046%_ - (gx#syntax-e _%e124028124038%_))) - (let ((_%hd124032124049%_ (##car _%e124031124046%_)) - (_%tl124033124051%_ (##cdr _%e124031124046%_))) - (if (gx#stx-pair? _%tl124033124051%_) - (let ((_%e124034124054%_ - (gx#syntax-e _%tl124033124051%_))) - (let ((_%hd124035124057%_ - (##car _%e124034124054%_)) - (_%tl124036124059%_ - (##cdr _%e124034124054%_))) - (let ((_%expr124062%_ _%hd124035124057%_)) - (if (gx#stx-null? _%tl124036124059%_) + (if (gx#stx-pair? _%e124065124075%_) + (let ((_%e124068124083%_ + (gx#syntax-e _%e124065124075%_))) + (let ((_%hd124069124086%_ (##car _%e124068124083%_)) + (_%tl124070124088%_ (##cdr _%e124068124083%_))) + (if (gx#stx-pair? _%tl124070124088%_) + (let ((_%e124071124091%_ + (gx#syntax-e _%tl124070124088%_))) + (let ((_%hd124072124094%_ + (##car _%e124071124091%_)) + (_%tl124073124096%_ + (##cdr _%e124071124091%_))) + (let ((_%expr124099%_ _%hd124072124094%_)) + (if (gx#stx-null? _%tl124073124096%_) (gx#core-expand-expression - _%expr124062%_) - (_%E124030124042%_))))) - (_%E124030124042%_)))) - (_%E124030124042%_))))) - (_%E124029124064%_)))) + _%expr124099%_) + (_%E124067124079%_))))) + (_%E124067124079%_)))) + (_%E124067124079%_))))) + (_%E124066124101%_)))) (define gx#core-expand-let-bind-values! - (lambda (_%bind123986%_) - (let* ((_%e123987123997%_ _%bind123986%_) - (_%E123989124001%_ + (lambda (_%bind124023%_) + (let* ((_%e124024124034%_ _%bind124023%_) + (_%E124026124038%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123987123997%_))) - (_%E123988124023%_ + _%e124024124034%_))) + (_%E124025124060%_ (lambda () - (if (gx#stx-pair? _%e123987123997%_) - (let ((_%e123990124005%_ - (gx#syntax-e _%e123987123997%_))) - (let ((_%hd123991124008%_ (##car _%e123990124005%_)) - (_%tl123992124010%_ (##cdr _%e123990124005%_))) - (let ((_%hd124013%_ _%hd123991124008%_)) - (if (gx#stx-pair? _%tl123992124010%_) - (let ((_%e123993124015%_ - (gx#syntax-e _%tl123992124010%_))) - (let ((_%hd123994124018%_ - (##car _%e123993124015%_)) - (_%tl123995124020%_ - (##cdr _%e123993124015%_))) - (if (gx#stx-null? _%tl123995124020%_) - (gx#core-bind-values!__0 _%hd124013%_) - (_%E123989124001%_)))) - (_%E123989124001%_))))) - (_%E123989124001%_))))) - (_%E123988124023%_)))) + (if (gx#stx-pair? _%e124024124034%_) + (let ((_%e124027124042%_ + (gx#syntax-e _%e124024124034%_))) + (let ((_%hd124028124045%_ (##car _%e124027124042%_)) + (_%tl124029124047%_ (##cdr _%e124027124042%_))) + (let ((_%hd124050%_ _%hd124028124045%_)) + (if (gx#stx-pair? _%tl124029124047%_) + (let ((_%e124030124052%_ + (gx#syntax-e _%tl124029124047%_))) + (let ((_%hd124031124055%_ + (##car _%e124030124052%_)) + (_%tl124032124057%_ + (##cdr _%e124030124052%_))) + (if (gx#stx-null? _%tl124032124057%_) + (gx#core-bind-values!__0 _%hd124050%_) + (_%E124026124038%_)))) + (_%E124026124038%_))))) + (_%E124026124038%_))))) + (_%E124025124060%_)))) (define gx#core-expand-let-bind-quote - (lambda (_%bind123944%_ _%expr123945%_) - (let* ((_%e123946123956%_ _%bind123944%_) - (_%E123948123960%_ + (lambda (_%bind123981%_ _%expr123982%_) + (let* ((_%e123983123993%_ _%bind123981%_) + (_%E123985123997%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123946123956%_))) - (_%E123947123982%_ + _%e123983123993%_))) + (_%E123984124019%_ (lambda () - (if (gx#stx-pair? _%e123946123956%_) - (let ((_%e123949123964%_ - (gx#syntax-e _%e123946123956%_))) - (let ((_%hd123950123967%_ (##car _%e123949123964%_)) - (_%tl123951123969%_ (##cdr _%e123949123964%_))) - (let ((_%hd123972%_ _%hd123950123967%_)) - (if (gx#stx-pair? _%tl123951123969%_) - (let ((_%e123952123974%_ - (gx#syntax-e _%tl123951123969%_))) - (let ((_%hd123953123977%_ - (##car _%e123952123974%_)) - (_%tl123954123979%_ - (##cdr _%e123952123974%_))) - (if (gx#stx-null? _%tl123954123979%_) + (if (gx#stx-pair? _%e123983123993%_) + (let ((_%e123986124001%_ + (gx#syntax-e _%e123983123993%_))) + (let ((_%hd123987124004%_ (##car _%e123986124001%_)) + (_%tl123988124006%_ (##cdr _%e123986124001%_))) + (let ((_%hd124009%_ _%hd123987124004%_)) + (if (gx#stx-pair? _%tl123988124006%_) + (let ((_%e123989124011%_ + (gx#syntax-e _%tl123988124006%_))) + (let ((_%hd123990124014%_ + (##car _%e123989124011%_)) + (_%tl123991124016%_ + (##cdr _%e123989124011%_))) + (if (gx#stx-null? _%tl123991124016%_) (cons (gx#core-quote-bind-values - _%hd123972%_) - (cons _%expr123945%_ '())) - (_%E123948123960%_)))) - (_%E123948123960%_))))) - (_%E123948123960%_))))) - (_%E123947123982%_)))) + _%hd124009%_) + (cons _%expr123982%_ '())) + (_%E123985123997%_)))) + (_%E123985123997%_))))) + (_%E123985123997%_))))) + (_%E123984124019%_)))) (define gx#core-expand-let-syntax% - (lambda (_%stx123898%_) - (let* ((_%e123899123909%_ _%stx123898%_) - (_%E123901123913%_ + (lambda (_%stx123935%_) + (let* ((_%e123936123946%_ _%stx123935%_) + (_%E123938123950%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123899123909%_))) - (_%E123900123940%_ + _%e123936123946%_))) + (_%E123937123977%_ (lambda () - (if (gx#stx-pair? _%e123899123909%_) - (let ((_%e123902123917%_ - (gx#syntax-e _%e123899123909%_))) - (let ((_%hd123903123920%_ (##car _%e123902123917%_)) - (_%tl123904123922%_ (##cdr _%e123902123917%_))) - (if (gx#stx-pair? _%tl123904123922%_) - (let ((_%e123905123925%_ - (gx#syntax-e _%tl123904123922%_))) - (let ((_%hd123906123928%_ - (##car _%e123905123925%_)) - (_%tl123907123930%_ - (##cdr _%e123905123925%_))) - (let* ((_%hd123933%_ _%hd123906123928%_) - (_%body123935%_ _%tl123907123930%_)) + (if (gx#stx-pair? _%e123936123946%_) + (let ((_%e123939123954%_ + (gx#syntax-e _%e123936123946%_))) + (let ((_%hd123940123957%_ (##car _%e123939123954%_)) + (_%tl123941123959%_ (##cdr _%e123939123954%_))) + (if (gx#stx-pair? _%tl123941123959%_) + (let ((_%e123942123962%_ + (gx#syntax-e _%tl123941123959%_))) + (let ((_%hd123943123965%_ + (##car _%e123942123962%_)) + (_%tl123944123967%_ + (##cdr _%e123942123962%_))) + (let* ((_%hd123970%_ _%hd123943123965%_) + (_%body123972%_ _%tl123944123967%_)) (if (gx#core-expand-let-bind-syntax? - _%hd123933%_) - (let ((_%expanders123937%_ + _%hd123970%_) + (let ((_%expanders123974%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd123933%_))) + _%hd123970%_))) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd123933%_ - _%expanders123937%_) + _%hd123970%_ + _%expanders123974%_) (gx#core-expand-local-block - _%stx123898%_ - _%body123935%_)) + _%stx123935%_ + _%body123972%_)) gx#current-expander-context - (let ((__obj125319 + (let ((__obj125356 (##structure gx#local-context::t '#f @@ -1533,63 +1533,63 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125319) - __obj125319))) - (_%E123901123913%_))))) - (_%E123901123913%_)))) - (_%E123901123913%_))))) - (_%E123900123940%_)))) + __obj125356) + __obj125356))) + (_%E123938123950%_))))) + (_%E123938123950%_)))) + (_%E123938123950%_))))) + (_%E123937123977%_)))) (define gx#core-expand-letrec-syntax% - (lambda (_%stx123847%_) - (let* ((_%e123848123858%_ _%stx123847%_) - (_%E123850123862%_ + (lambda (_%stx123884%_) + (let* ((_%e123885123895%_ _%stx123884%_) + (_%E123887123899%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123848123858%_))) - (_%E123849123894%_ + _%e123885123895%_))) + (_%E123886123931%_ (lambda () - (if (gx#stx-pair? _%e123848123858%_) - (let ((_%e123851123866%_ - (gx#syntax-e _%e123848123858%_))) - (let ((_%hd123852123869%_ (##car _%e123851123866%_)) - (_%tl123853123871%_ (##cdr _%e123851123866%_))) - (if (gx#stx-pair? _%tl123853123871%_) - (let ((_%e123854123874%_ - (gx#syntax-e _%tl123853123871%_))) - (let ((_%hd123855123877%_ - (##car _%e123854123874%_)) - (_%tl123856123879%_ - (##cdr _%e123854123874%_))) - (let* ((_%hd123882%_ _%hd123855123877%_) - (_%body123884%_ _%tl123856123879%_)) + (if (gx#stx-pair? _%e123885123895%_) + (let ((_%e123888123903%_ + (gx#syntax-e _%e123885123895%_))) + (let ((_%hd123889123906%_ (##car _%e123888123903%_)) + (_%tl123890123908%_ (##cdr _%e123888123903%_))) + (if (gx#stx-pair? _%tl123890123908%_) + (let ((_%e123891123911%_ + (gx#syntax-e _%tl123890123908%_))) + (let ((_%hd123892123914%_ + (##car _%e123891123911%_)) + (_%tl123893123916%_ + (##cdr _%e123891123911%_))) + (let* ((_%hd123919%_ _%hd123892123914%_) + (_%body123921%_ _%tl123893123916%_)) (if (gx#core-expand-let-bind-syntax? - _%hd123882%_) + _%hd123919%_) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd123882%_ + _%hd123919%_ (make-list - (gx#stx-length _%hd123882%_) + (gx#stx-length _%hd123919%_) '#!void)) (gx#stx-for-each2 - (lambda (_%g123886123889%_ - _%g123887123891%_) + (lambda (_%g123923123926%_ + _%g123924123928%_) (gx#core-expand-let-bind-syntax!__% - _%g123886123889%_ - _%g123887123891%_ + _%g123923123926%_ + _%g123924123928%_ '#t)) - _%hd123882%_ + _%hd123919%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd123882%_)) + _%hd123919%_)) (gx#core-expand-local-block - _%stx123847%_ - _%body123884%_)) + _%stx123884%_ + _%body123921%_)) gx#current-expander-context - (let ((__obj125320 + (let ((__obj125357 (##structure gx#local-context::t '#f @@ -1598,1725 +1598,1725 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125320) - __obj125320)) - (_%E123850123862%_))))) - (_%E123850123862%_)))) - (_%E123850123862%_))))) - (_%E123849123894%_)))) + __obj125357) + __obj125357)) + (_%E123887123899%_))))) + (_%E123887123899%_)))) + (_%E123887123899%_))))) + (_%E123886123931%_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_%stx123804%_) - (if (gx#stx-list? _%stx123804%_) + (lambda (_%stx123841%_) + (if (gx#stx-list? _%stx123841%_) (gx#stx-andmap - (lambda (_%bind123806%_) - (let* ((_%e123807123817%_ _%bind123806%_) - (_%E123809123821%_ (lambda () '#f)) - (_%E123808123843%_ + (lambda (_%bind123843%_) + (let* ((_%e123844123854%_ _%bind123843%_) + (_%E123846123858%_ (lambda () '#f)) + (_%E123845123880%_ (lambda () - (if (gx#stx-pair? _%e123807123817%_) - (let ((_%e123810123825%_ - (gx#syntax-e _%e123807123817%_))) - (let ((_%hd123811123828%_ - (##car _%e123810123825%_)) - (_%tl123812123830%_ - (##cdr _%e123810123825%_))) - (let ((_%hd123833%_ _%hd123811123828%_)) - (if (gx#stx-pair? _%tl123812123830%_) - (let ((_%e123813123835%_ + (if (gx#stx-pair? _%e123844123854%_) + (let ((_%e123847123862%_ + (gx#syntax-e _%e123844123854%_))) + (let ((_%hd123848123865%_ + (##car _%e123847123862%_)) + (_%tl123849123867%_ + (##cdr _%e123847123862%_))) + (let ((_%hd123870%_ _%hd123848123865%_)) + (if (gx#stx-pair? _%tl123849123867%_) + (let ((_%e123850123872%_ (gx#syntax-e - _%tl123812123830%_))) - (let ((_%hd123814123838%_ - (##car _%e123813123835%_)) - (_%tl123815123840%_ - (##cdr _%e123813123835%_))) + _%tl123849123867%_))) + (let ((_%hd123851123875%_ + (##car _%e123850123872%_)) + (_%tl123852123877%_ + (##cdr _%e123850123872%_))) (if (gx#stx-null? - _%tl123815123840%_) - (gx#identifier? _%hd123833%_) - (_%E123809123821%_)))) - (_%E123809123821%_))))) - (_%E123809123821%_))))) - (_%E123808123843%_))) - _%stx123804%_) + _%tl123852123877%_) + (gx#identifier? _%hd123870%_) + (_%E123846123858%_)))) + (_%E123846123858%_))))) + (_%E123846123858%_))))) + (_%E123845123880%_))) + _%stx123841%_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_%bind123760%_) - (let* ((_%e123761123771%_ _%bind123760%_) - (_%E123763123775%_ + (lambda (_%bind123797%_) + (let* ((_%e123798123808%_ _%bind123797%_) + (_%E123800123812%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123761123771%_))) - (_%E123762123800%_ + _%e123798123808%_))) + (_%E123799123837%_ (lambda () - (if (gx#stx-pair? _%e123761123771%_) - (let ((_%e123764123779%_ - (gx#syntax-e _%e123761123771%_))) - (let ((_%hd123765123782%_ (##car _%e123764123779%_)) - (_%tl123766123784%_ (##cdr _%e123764123779%_))) - (if (gx#stx-pair? _%tl123766123784%_) - (let ((_%e123767123787%_ - (gx#syntax-e _%tl123766123784%_))) - (let ((_%hd123768123790%_ - (##car _%e123767123787%_)) - (_%tl123769123792%_ - (##cdr _%e123767123787%_))) - (let ((_%expr123795%_ _%hd123768123790%_)) - (if (gx#stx-null? _%tl123769123792%_) - (let ((_g125329_ + (if (gx#stx-pair? _%e123798123808%_) + (let ((_%e123801123816%_ + (gx#syntax-e _%e123798123808%_))) + (let ((_%hd123802123819%_ (##car _%e123801123816%_)) + (_%tl123803123821%_ (##cdr _%e123801123816%_))) + (if (gx#stx-pair? _%tl123803123821%_) + (let ((_%e123804123824%_ + (gx#syntax-e _%tl123803123821%_))) + (let ((_%hd123805123827%_ + (##car _%e123804123824%_)) + (_%tl123806123829%_ + (##cdr _%e123804123824%_))) + (let ((_%expr123832%_ _%hd123805123827%_)) + (if (gx#stx-null? _%tl123806123829%_) + (let ((_g125366_ (gx#core-expand-expression+1 - _%expr123795%_))) + _%expr123832%_))) (begin - (let ((_g125330_ - (if (##values? _g125329_) + (let ((_g125367_ + (if (##values? _g125366_) (##vector-length - _g125329_) + _g125366_) 1))) - (if (not (##fx= _g125330_ 2)) + (if (not (##fx= _g125367_ 2)) (error "Context expects 2 values" - _g125330_))) - (let ((_%_123797%_ - (##vector-ref _g125329_ 0)) - (_%e123798%_ - (##vector-ref _g125329_ 1))) - _%e123798%_))) - (_%E123763123775%_))))) - (_%E123763123775%_)))) - (_%E123763123775%_))))) - (_%E123762123800%_)))) + _g125367_))) + (let ((_%_123834%_ + (##vector-ref _g125366_ 0)) + (_%e123835%_ + (##vector-ref _g125366_ 1))) + _%e123835%_))) + (_%E123800123812%_))))) + (_%E123800123812%_)))) + (_%E123800123812%_))))) + (_%E123799123837%_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_%bind123705%_ _%e123706%_ _%rebind?123707%_) - (let* ((_%e123708123718%_ _%bind123705%_) - (_%E123710123722%_ + (lambda (_%bind123742%_ _%e123743%_ _%rebind?123744%_) + (let* ((_%e123745123755%_ _%bind123742%_) + (_%E123747123759%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123708123718%_))) - (_%E123709123744%_ + _%e123745123755%_))) + (_%E123746123781%_ (lambda () - (if (gx#stx-pair? _%e123708123718%_) - (let ((_%e123711123726%_ - (gx#syntax-e _%e123708123718%_))) - (let ((_%hd123712123729%_ (##car _%e123711123726%_)) - (_%tl123713123731%_ (##cdr _%e123711123726%_))) - (let ((_%id123734%_ _%hd123712123729%_)) - (if (gx#stx-pair? _%tl123713123731%_) - (let ((_%e123714123736%_ - (gx#syntax-e _%tl123713123731%_))) - (let ((_%hd123715123739%_ - (##car _%e123714123736%_)) - (_%tl123716123741%_ - (##cdr _%e123714123736%_))) - (if (gx#stx-null? _%tl123716123741%_) + (if (gx#stx-pair? _%e123745123755%_) + (let ((_%e123748123763%_ + (gx#syntax-e _%e123745123755%_))) + (let ((_%hd123749123766%_ (##car _%e123748123763%_)) + (_%tl123750123768%_ (##cdr _%e123748123763%_))) + (let ((_%id123771%_ _%hd123749123766%_)) + (if (gx#stx-pair? _%tl123750123768%_) + (let ((_%e123751123773%_ + (gx#syntax-e _%tl123750123768%_))) + (let ((_%hd123752123776%_ + (##car _%e123751123773%_)) + (_%tl123753123778%_ + (##cdr _%e123751123773%_))) + (if (gx#stx-null? _%tl123753123778%_) (gx#core-bind-syntax!__1 - _%id123734%_ - _%e123706%_ - _%rebind?123707%_) - (_%E123710123722%_)))) - (_%E123710123722%_))))) - (_%E123710123722%_))))) - (_%E123709123744%_)))) + _%id123771%_ + _%e123743%_ + _%rebind?123744%_) + (_%E123747123759%_)))) + (_%E123747123759%_))))) + (_%E123747123759%_))))) + (_%E123746123781%_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_%bind123751%_ _%e123752%_) - (let ((_%rebind?123754%_ '#f)) + (lambda (_%bind123788%_ _%e123789%_) + (let ((_%rebind?123791%_ '#f)) (gx#core-expand-let-bind-syntax!__% - _%bind123751%_ - _%e123752%_ - _%rebind?123754%_)))) + _%bind123788%_ + _%e123789%_ + _%rebind?123791%_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g125332_ - (let ((_g125331_ (##length _g125332_))) - (cond ((##fx= _g125331_ 2) - (apply gx#core-expand-let-bind-syntax!__0 _g125332_)) - ((##fx= _g125331_ 3) - (apply gx#core-expand-let-bind-syntax!__% _g125332_)) + (lambda _g125369_ + (let ((_g125368_ (##length _g125369_))) + (cond ((##fx= _g125368_ 2) + (apply gx#core-expand-let-bind-syntax!__0 _g125369_)) + ((##fx= _g125368_ 3) + (apply gx#core-expand-let-bind-syntax!__% _g125369_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g125332_)))))) + _g125369_)))))) (define gx#core-expand-expression% - (lambda (_%stx123663%_) - (let* ((_%e123664123674%_ _%stx123663%_) - (_%E123666123678%_ + (lambda (_%stx123700%_) + (let* ((_%e123701123711%_ _%stx123700%_) + (_%E123703123715%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123664123674%_))) - (_%E123665123700%_ + _%e123701123711%_))) + (_%E123702123737%_ (lambda () - (if (gx#stx-pair? _%e123664123674%_) - (let ((_%e123667123682%_ - (gx#syntax-e _%e123664123674%_))) - (let ((_%hd123668123685%_ (##car _%e123667123682%_)) - (_%tl123669123687%_ (##cdr _%e123667123682%_))) - (if (gx#stx-pair? _%tl123669123687%_) - (let ((_%e123670123690%_ - (gx#syntax-e _%tl123669123687%_))) - (let ((_%hd123671123693%_ - (##car _%e123670123690%_)) - (_%tl123672123695%_ - (##cdr _%e123670123690%_))) - (let ((_%expr123698%_ _%hd123671123693%_)) - (if (gx#stx-null? _%tl123672123695%_) + (if (gx#stx-pair? _%e123701123711%_) + (let ((_%e123704123719%_ + (gx#syntax-e _%e123701123711%_))) + (let ((_%hd123705123722%_ (##car _%e123704123719%_)) + (_%tl123706123724%_ (##cdr _%e123704123719%_))) + (if (gx#stx-pair? _%tl123706123724%_) + (let ((_%e123707123727%_ + (gx#syntax-e _%tl123706123724%_))) + (let ((_%hd123708123730%_ + (##car _%e123707123727%_)) + (_%tl123709123732%_ + (##cdr _%e123707123727%_))) + (let ((_%expr123735%_ _%hd123708123730%_)) + (if (gx#stx-null? _%tl123709123732%_) (gx#core-expand-expression - _%expr123698%_) - (_%E123666123678%_))))) - (_%E123666123678%_)))) - (_%E123666123678%_))))) - (_%E123665123700%_)))) + _%expr123735%_) + (_%E123703123715%_))))) + (_%E123703123715%_)))) + (_%E123703123715%_))))) + (_%E123702123737%_)))) (define gx#core-expand-quote% - (lambda (_%stx123622%_) - (let* ((_%e123623123633%_ _%stx123622%_) - (_%E123625123637%_ + (lambda (_%stx123659%_) + (let* ((_%e123660123670%_ _%stx123659%_) + (_%E123662123674%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123623123633%_))) - (_%E123624123659%_ + _%e123660123670%_))) + (_%E123661123696%_ (lambda () - (if (gx#stx-pair? _%e123623123633%_) - (let ((_%e123626123641%_ - (gx#syntax-e _%e123623123633%_))) - (let ((_%hd123627123644%_ (##car _%e123626123641%_)) - (_%tl123628123646%_ (##cdr _%e123626123641%_))) - (if (gx#stx-pair? _%tl123628123646%_) - (let ((_%e123629123649%_ - (gx#syntax-e _%tl123628123646%_))) - (let ((_%hd123630123652%_ - (##car _%e123629123649%_)) - (_%tl123631123654%_ - (##cdr _%e123629123649%_))) - (let ((_%e123657%_ _%hd123630123652%_)) - (if (gx#stx-null? _%tl123631123654%_) + (if (gx#stx-pair? _%e123660123670%_) + (let ((_%e123663123678%_ + (gx#syntax-e _%e123660123670%_))) + (let ((_%hd123664123681%_ (##car _%e123663123678%_)) + (_%tl123665123683%_ (##cdr _%e123663123678%_))) + (if (gx#stx-pair? _%tl123665123683%_) + (let ((_%e123666123686%_ + (gx#syntax-e _%tl123665123683%_))) + (let ((_%hd123667123689%_ + (##car _%e123666123686%_)) + (_%tl123668123691%_ + (##cdr _%e123666123686%_))) + (let ((_%e123694%_ _%hd123667123689%_)) + (if (gx#stx-null? _%tl123668123691%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _%e123657%_) + _%e123694%_) '())) - (gx#stx-source _%stx123622%_)) - (_%E123625123637%_))))) - (_%E123625123637%_)))) - (_%E123625123637%_))))) - (_%E123624123659%_)))) + (gx#stx-source _%stx123659%_)) + (_%E123662123674%_))))) + (_%E123662123674%_)))) + (_%E123662123674%_))))) + (_%E123661123696%_)))) (define gx#core-expand-quote-syntax% - (lambda (_%stx123581%_) - (let* ((_%e123582123592%_ _%stx123581%_) - (_%E123584123596%_ + (lambda (_%stx123618%_) + (let* ((_%e123619123629%_ _%stx123618%_) + (_%E123621123633%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123582123592%_))) - (_%E123583123618%_ + _%e123619123629%_))) + (_%E123620123655%_ (lambda () - (if (gx#stx-pair? _%e123582123592%_) - (let ((_%e123585123600%_ - (gx#syntax-e _%e123582123592%_))) - (let ((_%hd123586123603%_ (##car _%e123585123600%_)) - (_%tl123587123605%_ (##cdr _%e123585123600%_))) - (if (gx#stx-pair? _%tl123587123605%_) - (let ((_%e123588123608%_ - (gx#syntax-e _%tl123587123605%_))) - (let ((_%hd123589123611%_ - (##car _%e123588123608%_)) - (_%tl123590123613%_ - (##cdr _%e123588123608%_))) - (let ((_%e123616%_ _%hd123589123611%_)) - (if (gx#stx-null? _%tl123590123613%_) + (if (gx#stx-pair? _%e123619123629%_) + (let ((_%e123622123637%_ + (gx#syntax-e _%e123619123629%_))) + (let ((_%hd123623123640%_ (##car _%e123622123637%_)) + (_%tl123624123642%_ (##cdr _%e123622123637%_))) + (if (gx#stx-pair? _%tl123624123642%_) + (let ((_%e123625123645%_ + (gx#syntax-e _%tl123624123642%_))) + (let ((_%hd123626123648%_ + (##car _%e123625123645%_)) + (_%tl123627123650%_ + (##cdr _%e123625123645%_))) + (let ((_%e123653%_ _%hd123626123648%_)) + (if (gx#stx-null? _%tl123627123650%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _%e123616%_) + _%e123653%_) '())) - (gx#stx-source _%stx123581%_)) - (_%E123584123596%_))))) - (_%E123584123596%_)))) - (_%E123584123596%_))))) - (_%E123583123618%_)))) + (gx#stx-source _%stx123618%_)) + (_%E123621123633%_))))) + (_%E123621123633%_)))) + (_%E123621123633%_))))) + (_%E123620123655%_)))) (define gx#core-expand-call% - (lambda (_%stx123538%_) - (let* ((_%e123539123549%_ _%stx123538%_) - (_%E123541123553%_ + (lambda (_%stx123575%_) + (let* ((_%e123576123586%_ _%stx123575%_) + (_%E123578123590%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123539123549%_))) - (_%E123540123577%_ + _%e123576123586%_))) + (_%E123577123614%_ (lambda () - (if (gx#stx-pair? _%e123539123549%_) - (let ((_%e123542123557%_ - (gx#syntax-e _%e123539123549%_))) - (let ((_%hd123543123560%_ (##car _%e123542123557%_)) - (_%tl123544123562%_ (##cdr _%e123542123557%_))) - (if (gx#stx-pair? _%tl123544123562%_) - (let ((_%e123545123565%_ - (gx#syntax-e _%tl123544123562%_))) - (let ((_%hd123546123568%_ - (##car _%e123545123565%_)) - (_%tl123547123570%_ - (##cdr _%e123545123565%_))) - (let* ((_%rator123573%_ _%hd123546123568%_) - (_%args123575%_ _%tl123547123570%_)) - (if (gx#stx-list? _%args123575%_) + (if (gx#stx-pair? _%e123576123586%_) + (let ((_%e123579123594%_ + (gx#syntax-e _%e123576123586%_))) + (let ((_%hd123580123597%_ (##car _%e123579123594%_)) + (_%tl123581123599%_ (##cdr _%e123579123594%_))) + (if (gx#stx-pair? _%tl123581123599%_) + (let ((_%e123582123602%_ + (gx#syntax-e _%tl123581123599%_))) + (let ((_%hd123583123605%_ + (##car _%e123582123602%_)) + (_%tl123584123607%_ + (##cdr _%e123582123602%_))) + (let* ((_%rator123610%_ _%hd123583123605%_) + (_%args123612%_ _%tl123584123607%_)) + (if (gx#stx-list? _%args123612%_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _%rator123573%_) + _%rator123610%_) (gx#stx-map1 gx#core-expand-expression - _%args123575%_)) - (gx#stx-source _%stx123538%_)) - (_%E123541123553%_))))) - (_%E123541123553%_)))) - (_%E123541123553%_))))) - (_%E123540123577%_)))) + _%args123612%_)) + (gx#stx-source _%stx123575%_)) + (_%E123578123590%_))))) + (_%E123578123590%_)))) + (_%E123578123590%_))))) + (_%E123577123614%_)))) (define gx#core-expand-if% - (lambda (_%stx123471%_) - (let* ((_%e123472123488%_ _%stx123471%_) - (_%E123474123492%_ + (lambda (_%stx123508%_) + (let* ((_%e123509123525%_ _%stx123508%_) + (_%E123511123529%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123472123488%_))) - (_%E123473123534%_ + _%e123509123525%_))) + (_%E123510123571%_ (lambda () - (if (gx#stx-pair? _%e123472123488%_) - (let ((_%e123475123496%_ - (gx#syntax-e _%e123472123488%_))) - (let ((_%hd123476123499%_ (##car _%e123475123496%_)) - (_%tl123477123501%_ (##cdr _%e123475123496%_))) - (if (gx#stx-pair? _%tl123477123501%_) - (let ((_%e123478123504%_ - (gx#syntax-e _%tl123477123501%_))) - (let ((_%hd123479123507%_ - (##car _%e123478123504%_)) - (_%tl123480123509%_ - (##cdr _%e123478123504%_))) - (let ((_%test123512%_ _%hd123479123507%_)) - (if (gx#stx-pair? _%tl123480123509%_) - (let ((_%e123481123514%_ + (if (gx#stx-pair? _%e123509123525%_) + (let ((_%e123512123533%_ + (gx#syntax-e _%e123509123525%_))) + (let ((_%hd123513123536%_ (##car _%e123512123533%_)) + (_%tl123514123538%_ (##cdr _%e123512123533%_))) + (if (gx#stx-pair? _%tl123514123538%_) + (let ((_%e123515123541%_ + (gx#syntax-e _%tl123514123538%_))) + (let ((_%hd123516123544%_ + (##car _%e123515123541%_)) + (_%tl123517123546%_ + (##cdr _%e123515123541%_))) + (let ((_%test123549%_ _%hd123516123544%_)) + (if (gx#stx-pair? _%tl123517123546%_) + (let ((_%e123518123551%_ (gx#syntax-e - _%tl123480123509%_))) - (let ((_%hd123482123517%_ - (##car _%e123481123514%_)) - (_%tl123483123519%_ - (##cdr _%e123481123514%_))) - (let ((_%K123522%_ - _%hd123482123517%_)) + _%tl123517123546%_))) + (let ((_%hd123519123554%_ + (##car _%e123518123551%_)) + (_%tl123520123556%_ + (##cdr _%e123518123551%_))) + (let ((_%K123559%_ + _%hd123519123554%_)) (if (gx#stx-pair? - _%tl123483123519%_) - (let ((_%e123484123524%_ + _%tl123520123556%_) + (let ((_%e123521123561%_ (gx#syntax-e - _%tl123483123519%_))) - (let ((_%hd123485123527%_ - (##car _%e123484123524%_)) - (_%tl123486123529%_ - (##cdr _%e123484123524%_))) - (let ((_%E123532%_ - _%hd123485123527%_)) + _%tl123520123556%_))) + (let ((_%hd123522123564%_ + (##car _%e123521123561%_)) + (_%tl123523123566%_ + (##cdr _%e123521123561%_))) + (let ((_%E123569%_ + _%hd123522123564%_)) (if (gx#stx-null? - _%tl123486123529%_) + _%tl123523123566%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if) - (cons (gx#core-expand-expression _%test123512%_) - (cons (gx#core-expand-expression _%K123522%_) + (cons (gx#core-expand-expression _%test123549%_) + (cons (gx#core-expand-expression _%K123559%_) (cons (gx#core-expand-expression - _%E123532%_) + _%E123569%_) '())))) - (gx#stx-source _%stx123471%_)) - (_%E123474123492%_))))) + (gx#stx-source _%stx123508%_)) + (_%E123511123529%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123474123492%_))))) - (_%E123474123492%_))))) - (_%E123474123492%_)))) - (_%E123474123492%_))))) - (_%E123473123534%_)))) + (_%E123511123529%_))))) + (_%E123511123529%_))))) + (_%E123511123529%_)))) + (_%E123511123529%_))))) + (_%E123510123571%_)))) (define gx#core-expand-ref% - (lambda (_%stx123430%_) - (let* ((_%e123431123441%_ _%stx123430%_) - (_%E123433123445%_ + (lambda (_%stx123467%_) + (let* ((_%e123468123478%_ _%stx123467%_) + (_%E123470123482%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123431123441%_))) - (_%E123432123467%_ + _%e123468123478%_))) + (_%E123469123504%_ (lambda () - (if (gx#stx-pair? _%e123431123441%_) - (let ((_%e123434123449%_ - (gx#syntax-e _%e123431123441%_))) - (let ((_%hd123435123452%_ (##car _%e123434123449%_)) - (_%tl123436123454%_ (##cdr _%e123434123449%_))) - (if (gx#stx-pair? _%tl123436123454%_) - (let ((_%e123437123457%_ - (gx#syntax-e _%tl123436123454%_))) - (let ((_%hd123438123460%_ - (##car _%e123437123457%_)) - (_%tl123439123462%_ - (##cdr _%e123437123457%_))) - (let ((_%id123465%_ _%hd123438123460%_)) - (if (gx#stx-null? _%tl123439123462%_) - (if (gx#identifier? _%id123465%_) + (if (gx#stx-pair? _%e123468123478%_) + (let ((_%e123471123486%_ + (gx#syntax-e _%e123468123478%_))) + (let ((_%hd123472123489%_ (##car _%e123471123486%_)) + (_%tl123473123491%_ (##cdr _%e123471123486%_))) + (if (gx#stx-pair? _%tl123473123491%_) + (let ((_%e123474123494%_ + (gx#syntax-e _%tl123473123491%_))) + (let ((_%hd123475123497%_ + (##car _%e123474123494%_)) + (_%tl123476123499%_ + (##cdr _%e123474123494%_))) + (let ((_%id123502%_ _%hd123475123497%_)) + (if (gx#stx-null? _%tl123476123499%_) + (if (gx#identifier? _%id123502%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _%id123465%_ - _%stx123430%_) + _%id123502%_ + _%stx123467%_) '())) - (gx#stx-source _%stx123430%_)) - (_%E123433123445%_)) - (_%E123433123445%_))))) - (_%E123433123445%_)))) - (_%E123433123445%_))))) - (_%E123432123467%_)))) + (gx#stx-source _%stx123467%_)) + (_%E123470123482%_)) + (_%E123470123482%_))))) + (_%E123470123482%_)))) + (_%E123470123482%_))))) + (_%E123469123504%_)))) (define gx#core-expand-setq% - (lambda (_%stx123376%_) - (let* ((_%e123377123390%_ _%stx123376%_) - (_%E123379123394%_ + (lambda (_%stx123413%_) + (let* ((_%e123414123427%_ _%stx123413%_) + (_%E123416123431%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123377123390%_))) - (_%E123378123426%_ + _%e123414123427%_))) + (_%E123415123463%_ (lambda () - (if (gx#stx-pair? _%e123377123390%_) - (let ((_%e123380123398%_ - (gx#syntax-e _%e123377123390%_))) - (let ((_%hd123381123401%_ (##car _%e123380123398%_)) - (_%tl123382123403%_ (##cdr _%e123380123398%_))) - (if (gx#stx-pair? _%tl123382123403%_) - (let ((_%e123383123406%_ - (gx#syntax-e _%tl123382123403%_))) - (let ((_%hd123384123409%_ - (##car _%e123383123406%_)) - (_%tl123385123411%_ - (##cdr _%e123383123406%_))) - (let ((_%id123414%_ _%hd123384123409%_)) - (if (gx#stx-pair? _%tl123385123411%_) - (let ((_%e123386123416%_ + (if (gx#stx-pair? _%e123414123427%_) + (let ((_%e123417123435%_ + (gx#syntax-e _%e123414123427%_))) + (let ((_%hd123418123438%_ (##car _%e123417123435%_)) + (_%tl123419123440%_ (##cdr _%e123417123435%_))) + (if (gx#stx-pair? _%tl123419123440%_) + (let ((_%e123420123443%_ + (gx#syntax-e _%tl123419123440%_))) + (let ((_%hd123421123446%_ + (##car _%e123420123443%_)) + (_%tl123422123448%_ + (##cdr _%e123420123443%_))) + (let ((_%id123451%_ _%hd123421123446%_)) + (if (gx#stx-pair? _%tl123422123448%_) + (let ((_%e123423123453%_ (gx#syntax-e - _%tl123385123411%_))) - (let ((_%hd123387123419%_ - (##car _%e123386123416%_)) - (_%tl123388123421%_ - (##cdr _%e123386123416%_))) - (let ((_%expr123424%_ - _%hd123387123419%_)) + _%tl123422123448%_))) + (let ((_%hd123424123456%_ + (##car _%e123423123453%_)) + (_%tl123425123458%_ + (##cdr _%e123423123453%_))) + (let ((_%expr123461%_ + _%hd123424123456%_)) (if (gx#stx-null? - _%tl123388123421%_) + _%tl123425123458%_) (if (gx#identifier? - _%id123414%_) + _%id123451%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id123414%_ - _%stx123376%_) - (cons (gx#core-expand-expression _%expr123424%_) + _%id123451%_ + _%stx123413%_) + (cons (gx#core-expand-expression _%expr123461%_) '()))) - (gx#stx-source _%stx123376%_)) - (_%E123379123394%_)) + (gx#stx-source _%stx123413%_)) + (_%E123416123431%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123379123394%_))))) - (_%E123379123394%_))))) - (_%E123379123394%_)))) - (_%E123379123394%_))))) - (_%E123378123426%_)))) + (_%E123416123431%_))))) + (_%E123416123431%_))))) + (_%E123416123431%_)))) + (_%E123416123431%_))))) + (_%E123415123463%_)))) (define gx#macro-expand-extern - (lambda (_%stx123221%_) - (letrec ((_%generate123223%_ - (lambda (_%body123253%_) - (let _%lp123255%_ ((_%rest123257%_ _%body123253%_) - (_%ns123258%_ + (lambda (_%stx123258%_) + (letrec ((_%generate123260%_ + (lambda (_%body123290%_) + (let _%lp123292%_ ((_%rest123294%_ _%body123290%_) + (_%ns123295%_ (gx#core-context-namespace__0)) - (_%r123259%_ '())) - (let* ((_%e123260123275%_ _%rest123257%_) - (_%E123273123279%_ + (_%r123296%_ '())) + (let* ((_%e123297123312%_ _%rest123294%_) + (_%E123310123316%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123260123275%_))) - (_%E123269123283%_ + _%e123297123312%_))) + (_%E123306123320%_ (lambda () - (if (gx#stx-null? _%e123260123275%_) - (reverse _%r123259%_) - (_%E123273123279%_)))) - (_%E123262123340%_ + (if (gx#stx-null? _%e123297123312%_) + (reverse _%r123296%_) + (_%E123310123316%_)))) + (_%E123299123377%_ (lambda () - (if (gx#stx-pair? _%e123260123275%_) - (let ((_%e123270123287%_ - (gx#syntax-e _%e123260123275%_))) - (let ((_%hd123271123290%_ - (##car _%e123270123287%_)) - (_%tl123272123292%_ - (##cdr _%e123270123287%_))) - (let* ((_%hd123295%_ - _%hd123271123290%_) - (_%rest123297%_ - _%tl123272123292%_)) - (if (gx#identifier? _%hd123295%_) - (_%lp123255%_ - _%rest123297%_ - _%ns123258%_ - (cons (cons _%hd123295%_ - (cons (if _%ns123258%_ + (if (gx#stx-pair? _%e123297123312%_) + (let ((_%e123307123324%_ + (gx#syntax-e _%e123297123312%_))) + (let ((_%hd123308123327%_ + (##car _%e123307123324%_)) + (_%tl123309123329%_ + (##cdr _%e123307123324%_))) + (let* ((_%hd123332%_ + _%hd123308123327%_) + (_%rest123334%_ + _%tl123309123329%_)) + (if (gx#identifier? _%hd123332%_) + (_%lp123292%_ + _%rest123334%_ + _%ns123295%_ + (cons (cons _%hd123332%_ + (cons (if _%ns123295%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _%hd123295%_ - _%ns123258%_ + _%hd123332%_ + _%ns123295%_ '"#" - _%hd123295%_) - _%hd123295%_) + _%hd123332%_) + _%hd123332%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r123259%_)) - (let* ((_%e123298123308%_ - _%hd123295%_) - (_%E123300123312%_ + _%r123296%_)) + (let* ((_%e123335123345%_ + _%hd123332%_) + (_%E123337123349%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123298123308%_))) - (_%E123299123336%_ + _%e123335123345%_))) + (_%E123336123373%_ (lambda () (if (gx#stx-pair? - _%e123298123308%_) - (let ((_%e123301123316%_ + _%e123335123345%_) + (let ((_%e123338123353%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e123298123308%_))) - (let ((_%hd123302123319%_ (##car _%e123301123316%_)) - (_%tl123303123321%_ (##cdr _%e123301123316%_))) - (let ((_%id123324%_ _%hd123302123319%_)) - (if (gx#stx-pair? _%tl123303123321%_) - (let ((_%e123304123326%_ - (gx#syntax-e _%tl123303123321%_))) - (let ((_%hd123305123329%_ - (##car _%e123304123326%_)) - (_%tl123306123331%_ - (##cdr _%e123304123326%_))) - (let ((_%eid123334%_ _%hd123305123329%_)) - (if (gx#stx-null? _%tl123306123331%_) - (if (and (gx#identifier? _%id123324%_) + (gx#syntax-e _%e123335123345%_))) + (let ((_%hd123339123356%_ (##car _%e123338123353%_)) + (_%tl123340123358%_ (##cdr _%e123338123353%_))) + (let ((_%id123361%_ _%hd123339123356%_)) + (if (gx#stx-pair? _%tl123340123358%_) + (let ((_%e123341123363%_ + (gx#syntax-e _%tl123340123358%_))) + (let ((_%hd123342123366%_ + (##car _%e123341123363%_)) + (_%tl123343123368%_ + (##cdr _%e123341123363%_))) + (let ((_%eid123371%_ _%hd123342123366%_)) + (if (gx#stx-null? _%tl123343123368%_) + (if (and (gx#identifier? _%id123361%_) (gx#identifier? - _%eid123334%_)) - (_%lp123255%_ - _%rest123297%_ - _%ns123258%_ - (cons (cons _%id123324%_ - (cons _%eid123334%_ + _%eid123371%_)) + (_%lp123292%_ + _%rest123334%_ + _%ns123295%_ + (cons (cons _%id123361%_ + (cons _%eid123371%_ '())) - _%r123259%_)) - (_%E123300123312%_)) - (_%E123300123312%_))))) - (_%E123300123312%_))))) - (_%E123300123312%_))))) + _%r123296%_)) + (_%E123337123349%_)) + (_%E123337123349%_))))) + (_%E123337123349%_))))) + (_%E123337123349%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123299123336%_)))))) - (_%E123269123283%_)))) - (_%E123261123372%_ + (_%E123336123373%_)))))) + (_%E123306123320%_)))) + (_%E123298123409%_ (lambda () - (if (gx#stx-pair? _%e123260123275%_) - (let ((_%e123263123344%_ - (gx#syntax-e _%e123260123275%_))) - (let ((_%hd123264123347%_ - (##car _%e123263123344%_)) - (_%tl123265123349%_ - (##cdr _%e123263123344%_))) - (if (eq? (gx#stx-e _%hd123264123347%_) + (if (gx#stx-pair? _%e123297123312%_) + (let ((_%e123300123381%_ + (gx#syntax-e _%e123297123312%_))) + (let ((_%hd123301123384%_ + (##car _%e123300123381%_)) + (_%tl123302123386%_ + (##cdr _%e123300123381%_))) + (if (eq? (gx#stx-e _%hd123301123384%_) 'namespace:) (if (gx#stx-pair? - _%tl123265123349%_) - (let ((_%e123266123352%_ + _%tl123302123386%_) + (let ((_%e123303123389%_ (gx#syntax-e - _%tl123265123349%_))) - (let ((_%hd123267123355%_ - (##car _%e123266123352%_)) - (_%tl123268123357%_ - (##cdr _%e123266123352%_))) - (let* ((_%ns123360%_ - _%hd123267123355%_) - (_%rest123362%_ - _%tl123268123357%_) - (_%ns123370%_ + _%tl123302123386%_))) + (let ((_%hd123304123392%_ + (##car _%e123303123389%_)) + (_%tl123305123394%_ + (##cdr _%e123303123389%_))) + (let* ((_%ns123397%_ + _%hd123304123392%_) + (_%rest123399%_ + _%tl123305123394%_) + (_%ns123407%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ns123360%_) - (symbol->string (gx#stx-e _%ns123360%_)) - (if (or (gx#stx-string? _%ns123360%_) - (gx#stx-false? _%ns123360%_)) - (gx#stx-e _%ns123360%_) + _%ns123397%_) + (symbol->string (gx#stx-e _%ns123397%_)) + (if (or (gx#stx-string? _%ns123397%_) + (gx#stx-false? _%ns123397%_)) + (gx#stx-e _%ns123397%_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _%stx123221%_ - _%ns123360%_))))) - (_%lp123255%_ _%rest123362%_ _%ns123370%_ _%r123259%_)))) + _%stx123258%_ + _%ns123397%_))))) + (_%lp123292%_ _%rest123399%_ _%ns123407%_ _%r123296%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123262123340%_)) - (_%E123262123340%_)))) - (_%E123262123340%_))))) - (_%E123261123372%_)))))) - (let* ((_%e123224123231%_ _%stx123221%_) - (_%E123226123235%_ + (_%E123299123377%_)) + (_%E123299123377%_)))) + (_%E123299123377%_))))) + (_%E123298123409%_)))))) + (let* ((_%e123261123268%_ _%stx123258%_) + (_%E123263123272%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123224123231%_))) - (_%E123225123249%_ + _%e123261123268%_))) + (_%E123262123286%_ (lambda () - (if (gx#stx-pair? _%e123224123231%_) - (let ((_%e123227123239%_ - (gx#syntax-e _%e123224123231%_))) - (let ((_%hd123228123242%_ (##car _%e123227123239%_)) - (_%tl123229123244%_ (##cdr _%e123227123239%_))) - (let ((_%body123247%_ _%tl123229123244%_)) - (if (gx#stx-list? _%body123247%_) + (if (gx#stx-pair? _%e123261123268%_) + (let ((_%e123264123276%_ + (gx#syntax-e _%e123261123268%_))) + (let ((_%hd123265123279%_ (##car _%e123264123276%_)) + (_%tl123266123281%_ (##cdr _%e123264123276%_))) + (let ((_%body123284%_ _%tl123266123281%_)) + (if (gx#stx-list? _%body123284%_) (gx#core-cons '%#extern - (_%generate123223%_ _%body123247%_)) - (_%E123226123235%_))))) - (_%E123226123235%_))))) - (_%E123225123249%_))))) + (_%generate123260%_ _%body123284%_)) + (_%E123263123272%_))))) + (_%E123263123272%_))))) + (_%E123262123286%_))))) (define gx#macro-expand-define-values - (lambda (_%stx123167%_) - (let* ((_%e123168123181%_ _%stx123167%_) - (_%E123170123185%_ + (lambda (_%stx123204%_) + (let* ((_%e123205123218%_ _%stx123204%_) + (_%E123207123222%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123168123181%_))) - (_%E123169123217%_ + _%e123205123218%_))) + (_%E123206123254%_ (lambda () - (if (gx#stx-pair? _%e123168123181%_) - (let ((_%e123171123189%_ - (gx#syntax-e _%e123168123181%_))) - (let ((_%hd123172123192%_ (##car _%e123171123189%_)) - (_%tl123173123194%_ (##cdr _%e123171123189%_))) - (if (gx#stx-pair? _%tl123173123194%_) - (let ((_%e123174123197%_ - (gx#syntax-e _%tl123173123194%_))) - (let ((_%hd123175123200%_ - (##car _%e123174123197%_)) - (_%tl123176123202%_ - (##cdr _%e123174123197%_))) - (let ((_%hd123205%_ _%hd123175123200%_)) - (if (gx#stx-pair? _%tl123176123202%_) - (let ((_%e123177123207%_ + (if (gx#stx-pair? _%e123205123218%_) + (let ((_%e123208123226%_ + (gx#syntax-e _%e123205123218%_))) + (let ((_%hd123209123229%_ (##car _%e123208123226%_)) + (_%tl123210123231%_ (##cdr _%e123208123226%_))) + (if (gx#stx-pair? _%tl123210123231%_) + (let ((_%e123211123234%_ + (gx#syntax-e _%tl123210123231%_))) + (let ((_%hd123212123237%_ + (##car _%e123211123234%_)) + (_%tl123213123239%_ + (##cdr _%e123211123234%_))) + (let ((_%hd123242%_ _%hd123212123237%_)) + (if (gx#stx-pair? _%tl123213123239%_) + (let ((_%e123214123244%_ (gx#syntax-e - _%tl123176123202%_))) - (let ((_%hd123178123210%_ - (##car _%e123177123207%_)) - (_%tl123179123212%_ - (##cdr _%e123177123207%_))) - (let ((_%expr123215%_ - _%hd123178123210%_)) + _%tl123213123239%_))) + (let ((_%hd123215123247%_ + (##car _%e123214123244%_)) + (_%tl123216123249%_ + (##cdr _%e123214123244%_))) + (let ((_%expr123252%_ + _%hd123215123247%_)) (if (gx#stx-null? - _%tl123179123212%_) + _%tl123216123249%_) (if (gx#stx-andmap gx#identifier? - _%hd123205%_) + _%hd123242%_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%hd123205%_) - (cons _%expr123215%_ '()))) - (_%E123170123185%_)) + _%hd123242%_) + (cons _%expr123252%_ '()))) + (_%E123207123222%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123170123185%_))))) - (_%E123170123185%_))))) - (_%E123170123185%_)))) - (_%E123170123185%_))))) - (_%E123169123217%_)))) + (_%E123207123222%_))))) + (_%E123207123222%_))))) + (_%E123207123222%_)))) + (_%E123207123222%_))))) + (_%E123206123254%_)))) (define gx#macro-expand-define-syntax - (lambda (_%stx123113%_) - (let* ((_%e123114123127%_ _%stx123113%_) - (_%E123116123131%_ + (lambda (_%stx123150%_) + (let* ((_%e123151123164%_ _%stx123150%_) + (_%E123153123168%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123114123127%_))) - (_%E123115123163%_ + _%e123151123164%_))) + (_%E123152123200%_ (lambda () - (if (gx#stx-pair? _%e123114123127%_) - (let ((_%e123117123135%_ - (gx#syntax-e _%e123114123127%_))) - (let ((_%hd123118123138%_ (##car _%e123117123135%_)) - (_%tl123119123140%_ (##cdr _%e123117123135%_))) - (if (gx#stx-pair? _%tl123119123140%_) - (let ((_%e123120123143%_ - (gx#syntax-e _%tl123119123140%_))) - (let ((_%hd123121123146%_ - (##car _%e123120123143%_)) - (_%tl123122123148%_ - (##cdr _%e123120123143%_))) - (let ((_%hd123151%_ _%hd123121123146%_)) - (if (gx#stx-pair? _%tl123122123148%_) - (let ((_%e123123123153%_ + (if (gx#stx-pair? _%e123151123164%_) + (let ((_%e123154123172%_ + (gx#syntax-e _%e123151123164%_))) + (let ((_%hd123155123175%_ (##car _%e123154123172%_)) + (_%tl123156123177%_ (##cdr _%e123154123172%_))) + (if (gx#stx-pair? _%tl123156123177%_) + (let ((_%e123157123180%_ + (gx#syntax-e _%tl123156123177%_))) + (let ((_%hd123158123183%_ + (##car _%e123157123180%_)) + (_%tl123159123185%_ + (##cdr _%e123157123180%_))) + (let ((_%hd123188%_ _%hd123158123183%_)) + (if (gx#stx-pair? _%tl123159123185%_) + (let ((_%e123160123190%_ (gx#syntax-e - _%tl123122123148%_))) - (let ((_%hd123124123156%_ - (##car _%e123123123153%_)) - (_%tl123125123158%_ - (##cdr _%e123123123153%_))) - (let ((_%expr123161%_ - _%hd123124123156%_)) + _%tl123159123185%_))) + (let ((_%hd123161123193%_ + (##car _%e123160123190%_)) + (_%tl123162123195%_ + (##cdr _%e123160123190%_))) + (let ((_%expr123198%_ + _%hd123161123193%_)) (if (gx#stx-null? - _%tl123125123158%_) + _%tl123162123195%_) (if (gx#identifier? - _%hd123151%_) + _%hd123188%_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _%hd123151%_ + (cons _%hd123188%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr123161%_ '()))) - (_%E123116123131%_)) + (cons _%expr123198%_ '()))) + (_%E123153123168%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123116123131%_))))) - (_%E123116123131%_))))) - (_%E123116123131%_)))) - (_%E123116123131%_))))) - (_%E123115123163%_)))) + (_%E123153123168%_))))) + (_%E123153123168%_))))) + (_%E123153123168%_)))) + (_%E123153123168%_))))) + (_%E123152123200%_)))) (define gx#macro-expand-define-alias - (lambda (_%stx123059%_) - (let* ((_%e123060123073%_ _%stx123059%_) - (_%E123062123077%_ + (lambda (_%stx123096%_) + (let* ((_%e123097123110%_ _%stx123096%_) + (_%E123099123114%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123060123073%_))) - (_%E123061123109%_ + _%e123097123110%_))) + (_%E123098123146%_ (lambda () - (if (gx#stx-pair? _%e123060123073%_) - (let ((_%e123063123081%_ - (gx#syntax-e _%e123060123073%_))) - (let ((_%hd123064123084%_ (##car _%e123063123081%_)) - (_%tl123065123086%_ (##cdr _%e123063123081%_))) - (if (gx#stx-pair? _%tl123065123086%_) - (let ((_%e123066123089%_ - (gx#syntax-e _%tl123065123086%_))) - (let ((_%hd123067123092%_ - (##car _%e123066123089%_)) - (_%tl123068123094%_ - (##cdr _%e123066123089%_))) - (let ((_%id123097%_ _%hd123067123092%_)) - (if (gx#stx-pair? _%tl123068123094%_) - (let ((_%e123069123099%_ + (if (gx#stx-pair? _%e123097123110%_) + (let ((_%e123100123118%_ + (gx#syntax-e _%e123097123110%_))) + (let ((_%hd123101123121%_ (##car _%e123100123118%_)) + (_%tl123102123123%_ (##cdr _%e123100123118%_))) + (if (gx#stx-pair? _%tl123102123123%_) + (let ((_%e123103123126%_ + (gx#syntax-e _%tl123102123123%_))) + (let ((_%hd123104123129%_ + (##car _%e123103123126%_)) + (_%tl123105123131%_ + (##cdr _%e123103123126%_))) + (let ((_%id123134%_ _%hd123104123129%_)) + (if (gx#stx-pair? _%tl123105123131%_) + (let ((_%e123106123136%_ (gx#syntax-e - _%tl123068123094%_))) - (let ((_%hd123070123102%_ - (##car _%e123069123099%_)) - (_%tl123071123104%_ - (##cdr _%e123069123099%_))) - (let ((_%alias-id123107%_ - _%hd123070123102%_)) + _%tl123105123131%_))) + (let ((_%hd123107123139%_ + (##car _%e123106123136%_)) + (_%tl123108123141%_ + (##cdr _%e123106123136%_))) + (let ((_%alias-id123144%_ + _%hd123107123139%_)) (if (gx#stx-null? - _%tl123071123104%_) + _%tl123108123141%_) (if (and (gx#identifier? - _%id123097%_) + _%id123134%_) (gx#identifier? - _%alias-id123107%_)) + _%alias-id123144%_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _%id123097%_ + (cons _%id123134%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%alias-id123107%_ '()))) - (_%E123062123077%_)) + (cons _%alias-id123144%_ '()))) + (_%E123099123114%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123062123077%_))))) - (_%E123062123077%_))))) - (_%E123062123077%_)))) - (_%E123062123077%_))))) - (_%E123061123109%_)))) + (_%E123099123114%_))))) + (_%E123099123114%_))))) + (_%E123099123114%_)))) + (_%E123099123114%_))))) + (_%E123098123146%_)))) (define gx#macro-expand-lambda% - (lambda (_%stx123016%_) - (let* ((_%e123017123027%_ _%stx123016%_) - (_%E123019123031%_ + (lambda (_%stx123053%_) + (let* ((_%e123054123064%_ _%stx123053%_) + (_%E123056123068%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123017123027%_))) - (_%E123018123055%_ + _%e123054123064%_))) + (_%E123055123092%_ (lambda () - (if (gx#stx-pair? _%e123017123027%_) - (let ((_%e123020123035%_ - (gx#syntax-e _%e123017123027%_))) - (let ((_%hd123021123038%_ (##car _%e123020123035%_)) - (_%tl123022123040%_ (##cdr _%e123020123035%_))) - (if (gx#stx-pair? _%tl123022123040%_) - (let ((_%e123023123043%_ - (gx#syntax-e _%tl123022123040%_))) - (let ((_%hd123024123046%_ - (##car _%e123023123043%_)) - (_%tl123025123048%_ - (##cdr _%e123023123043%_))) - (let* ((_%hd123051%_ _%hd123024123046%_) - (_%body123053%_ _%tl123025123048%_)) + (if (gx#stx-pair? _%e123054123064%_) + (let ((_%e123057123072%_ + (gx#syntax-e _%e123054123064%_))) + (let ((_%hd123058123075%_ (##car _%e123057123072%_)) + (_%tl123059123077%_ (##cdr _%e123057123072%_))) + (if (gx#stx-pair? _%tl123059123077%_) + (let ((_%e123060123080%_ + (gx#syntax-e _%tl123059123077%_))) + (let ((_%hd123061123083%_ + (##car _%e123060123080%_)) + (_%tl123062123085%_ + (##cdr _%e123060123080%_))) + (let* ((_%hd123088%_ _%hd123061123083%_) + (_%body123090%_ _%tl123062123085%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd123051%_) - (gx#stx-list? _%body123053%_) + _%hd123088%_) + (gx#stx-list? _%body123090%_) (not (gx#stx-null? - _%body123053%_))) + _%body123090%_))) (gx#core-cons* '%#lambda - (gx#stx-map1 identity _%hd123051%_) - _%body123053%_) - (_%E123019123031%_))))) - (_%E123019123031%_)))) - (_%E123019123031%_))))) - (_%E123018123055%_)))) + (gx#stx-map1 identity _%hd123088%_) + _%body123090%_) + (_%E123056123068%_))))) + (_%E123056123068%_)))) + (_%E123056123068%_))))) + (_%E123055123092%_)))) (define gx#macro-expand-case-lambda - (lambda (_%stx122952%_) - (letrec ((_%generate122954%_ - (lambda (_%clause122984%_) - (let* ((_%e122985122992%_ _%clause122984%_) - (_%E122987122996%_ + (lambda (_%stx122989%_) + (letrec ((_%generate122991%_ + (lambda (_%clause123021%_) + (let* ((_%e123022123029%_ _%clause123021%_) + (_%E123024123033%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _%stx122952%_ - _%clause122984%_))) - (_%E122986123012%_ + _%stx122989%_ + _%clause123021%_))) + (_%E123023123049%_ (lambda () - (if (gx#stx-pair? _%e122985122992%_) - (let ((_%e122988123000%_ - (gx#syntax-e _%e122985122992%_))) - (let ((_%hd122989123003%_ - (##car _%e122988123000%_)) - (_%tl122990123005%_ - (##cdr _%e122988123000%_))) - (let* ((_%hd123008%_ _%hd122989123003%_) - (_%body123010%_ - _%tl122990123005%_)) + (if (gx#stx-pair? _%e123022123029%_) + (let ((_%e123025123037%_ + (gx#syntax-e _%e123022123029%_))) + (let ((_%hd123026123040%_ + (##car _%e123025123037%_)) + (_%tl123027123042%_ + (##cdr _%e123025123037%_))) + (let* ((_%hd123045%_ _%hd123026123040%_) + (_%body123047%_ + _%tl123027123042%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd123008%_) - (gx#stx-list? _%body123010%_) + _%hd123045%_) + (gx#stx-list? _%body123047%_) (not (gx#stx-null? - _%body123010%_))) + _%body123047%_))) (gx#stx-wrap-source (cons (gx#stx-map1 identity - _%hd123008%_) - _%body123010%_) - (gx#stx-source _%clause122984%_)) - (_%E122987122996%_))))) - (_%E122987122996%_))))) - (_%E122986123012%_))))) - (let* ((_%e122955122962%_ _%stx122952%_) - (_%E122957122966%_ + _%hd123045%_) + _%body123047%_) + (gx#stx-source _%clause123021%_)) + (_%E123024123033%_))))) + (_%E123024123033%_))))) + (_%E123023123049%_))))) + (let* ((_%e122992122999%_ _%stx122989%_) + (_%E122994123003%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122955122962%_))) - (_%E122956122980%_ + _%e122992122999%_))) + (_%E122993123017%_ (lambda () - (if (gx#stx-pair? _%e122955122962%_) - (let ((_%e122958122970%_ - (gx#syntax-e _%e122955122962%_))) - (let ((_%hd122959122973%_ (##car _%e122958122970%_)) - (_%tl122960122975%_ (##cdr _%e122958122970%_))) - (let ((_%clauses122978%_ _%tl122960122975%_)) - (if (gx#stx-list? _%clauses122978%_) + (if (gx#stx-pair? _%e122992122999%_) + (let ((_%e122995123007%_ + (gx#syntax-e _%e122992122999%_))) + (let ((_%hd122996123010%_ (##car _%e122995123007%_)) + (_%tl122997123012%_ (##cdr _%e122995123007%_))) + (let ((_%clauses123015%_ _%tl122997123012%_)) + (if (gx#stx-list? _%clauses123015%_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _%generate122954%_ - _%clauses122978%_)) - (_%E122957122966%_))))) - (_%E122957122966%_))))) - (_%E122956122980%_))))) + _%generate122991%_ + _%clauses123015%_)) + (_%E122994123003%_))))) + (_%E122994123003%_))))) + (_%E122993123017%_))))) (define gx#macro-expand-let-values__% - (lambda (_%stx122853%_ _%form122854%_) - (letrec ((_%generate122856%_ - (lambda (_%bind122899%_) - (let* ((_%e122900122910%_ _%bind122899%_) - (_%E122902122914%_ + (lambda (_%stx122890%_ _%form122891%_) + (letrec ((_%generate122893%_ + (lambda (_%bind122936%_) + (let* ((_%e122937122947%_ _%bind122936%_) + (_%E122939122951%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _%stx122853%_ - _%bind122899%_))) - (_%E122901122938%_ + _%stx122890%_ + _%bind122936%_))) + (_%E122938122975%_ (lambda () - (if (gx#stx-pair? _%e122900122910%_) - (let ((_%e122903122918%_ - (gx#syntax-e _%e122900122910%_))) - (let ((_%hd122904122921%_ - (##car _%e122903122918%_)) - (_%tl122905122923%_ - (##cdr _%e122903122918%_))) - (let ((_%ids122926%_ _%hd122904122921%_)) - (if (gx#stx-pair? _%tl122905122923%_) - (let ((_%e122906122928%_ + (if (gx#stx-pair? _%e122937122947%_) + (let ((_%e122940122955%_ + (gx#syntax-e _%e122937122947%_))) + (let ((_%hd122941122958%_ + (##car _%e122940122955%_)) + (_%tl122942122960%_ + (##cdr _%e122940122955%_))) + (let ((_%ids122963%_ _%hd122941122958%_)) + (if (gx#stx-pair? _%tl122942122960%_) + (let ((_%e122943122965%_ (gx#syntax-e - _%tl122905122923%_))) - (let ((_%hd122907122931%_ - (##car _%e122906122928%_)) - (_%tl122908122933%_ - (##cdr _%e122906122928%_))) - (let ((_%expr122936%_ - _%hd122907122931%_)) + _%tl122942122960%_))) + (let ((_%hd122944122968%_ + (##car _%e122943122965%_)) + (_%tl122945122970%_ + (##cdr _%e122943122965%_))) + (let ((_%expr122973%_ + _%hd122944122968%_)) (if (gx#stx-null? - _%tl122908122933%_) + _%tl122945122970%_) (if (gx#stx-andmap gx#identifier? - _%ids122926%_) + _%ids122963%_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%ids122926%_) - (cons _%expr122936%_ '())) - (_%E122902122914%_)) - (_%E122902122914%_))))) + _%ids122963%_) + (cons _%expr122973%_ '())) + (_%E122939122951%_)) + (_%E122939122951%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122902122914%_))))) - (_%E122902122914%_))))) - (_%E122901122938%_))))) - (let* ((_%e122857122867%_ _%stx122853%_) - (_%E122859122871%_ + (_%E122939122951%_))))) + (_%E122939122951%_))))) + (_%E122938122975%_))))) + (let* ((_%e122894122904%_ _%stx122890%_) + (_%E122896122908%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122857122867%_))) - (_%E122858122895%_ + _%e122894122904%_))) + (_%E122895122932%_ (lambda () - (if (gx#stx-pair? _%e122857122867%_) - (let ((_%e122860122875%_ - (gx#syntax-e _%e122857122867%_))) - (let ((_%hd122861122878%_ (##car _%e122860122875%_)) - (_%tl122862122880%_ (##cdr _%e122860122875%_))) - (if (gx#stx-pair? _%tl122862122880%_) - (let ((_%e122863122883%_ - (gx#syntax-e _%tl122862122880%_))) - (let ((_%hd122864122886%_ - (##car _%e122863122883%_)) - (_%tl122865122888%_ - (##cdr _%e122863122883%_))) - (let* ((_%hd122891%_ _%hd122864122886%_) - (_%body122893%_ _%tl122865122888%_)) - (if (and (gx#stx-list? _%hd122891%_) - (gx#stx-list? _%body122893%_) + (if (gx#stx-pair? _%e122894122904%_) + (let ((_%e122897122912%_ + (gx#syntax-e _%e122894122904%_))) + (let ((_%hd122898122915%_ (##car _%e122897122912%_)) + (_%tl122899122917%_ (##cdr _%e122897122912%_))) + (if (gx#stx-pair? _%tl122899122917%_) + (let ((_%e122900122920%_ + (gx#syntax-e _%tl122899122917%_))) + (let ((_%hd122901122923%_ + (##car _%e122900122920%_)) + (_%tl122902122925%_ + (##cdr _%e122900122920%_))) + (let* ((_%hd122928%_ _%hd122901122923%_) + (_%body122930%_ _%tl122902122925%_)) + (if (and (gx#stx-list? _%hd122928%_) + (gx#stx-list? _%body122930%_) (not (gx#stx-null? - _%body122893%_))) + _%body122930%_))) (gx#core-cons* - _%form122854%_ + _%form122891%_ (gx#stx-map1 - _%generate122856%_ - _%hd122891%_) - _%body122893%_) - (_%E122859122871%_))))) - (_%E122859122871%_)))) - (_%E122859122871%_))))) - (_%E122858122895%_))))) + _%generate122893%_ + _%hd122928%_) + _%body122930%_) + (_%E122896122908%_))))) + (_%E122896122908%_)))) + (_%E122896122908%_))))) + (_%E122895122932%_))))) (define gx#macro-expand-let-values__0 - (lambda (_%stx122945%_) - (let ((_%form122947%_ '%#let-values)) - (gx#macro-expand-let-values__% _%stx122945%_ _%form122947%_)))) + (lambda (_%stx122982%_) + (let ((_%form122984%_ '%#let-values)) + (gx#macro-expand-let-values__% _%stx122982%_ _%form122984%_)))) (define gx#macro-expand-let-values - (lambda _g125334_ - (let ((_g125333_ (##length _g125334_))) - (cond ((##fx= _g125333_ 1) - (apply gx#macro-expand-let-values__0 _g125334_)) - ((##fx= _g125333_ 2) - (apply gx#macro-expand-let-values__% _g125334_)) + (lambda _g125371_ + (let ((_g125370_ (##length _g125371_))) + (cond ((##fx= _g125370_ 1) + (apply gx#macro-expand-let-values__0 _g125371_)) + ((##fx= _g125370_ 2) + (apply gx#macro-expand-let-values__% _g125371_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g125334_)))))) + _g125371_)))))) (define gx#macro-expand-letrec-values - (lambda (_%stx122850%_) - (gx#macro-expand-let-values__% _%stx122850%_ '%#letrec-values))) + (lambda (_%stx122887%_) + (gx#macro-expand-let-values__% _%stx122887%_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_%stx122848%_) - (gx#macro-expand-let-values__% _%stx122848%_ '%#letrec*-values))) + (lambda (_%stx122885%_) + (gx#macro-expand-let-values__% _%stx122885%_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_%stx122739%_) - (let* ((_%e122740122766%_ _%stx122739%_) - (_%E122752122770%_ + (lambda (_%stx122776%_) + (let* ((_%e122777122803%_ _%stx122776%_) + (_%E122789122807%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122740122766%_))) - (_%E122742122812%_ + _%e122777122803%_))) + (_%E122779122849%_ (lambda () - (if (gx#stx-pair? _%e122740122766%_) - (let ((_%e122753122774%_ - (gx#syntax-e _%e122740122766%_))) - (let ((_%hd122754122777%_ (##car _%e122753122774%_)) - (_%tl122755122779%_ (##cdr _%e122753122774%_))) - (if (gx#stx-pair? _%tl122755122779%_) - (let ((_%e122756122782%_ - (gx#syntax-e _%tl122755122779%_))) - (let ((_%hd122757122785%_ - (##car _%e122756122782%_)) - (_%tl122758122787%_ - (##cdr _%e122756122782%_))) - (let ((_%test122790%_ _%hd122757122785%_)) - (if (gx#stx-pair? _%tl122758122787%_) - (let ((_%e122759122792%_ + (if (gx#stx-pair? _%e122777122803%_) + (let ((_%e122790122811%_ + (gx#syntax-e _%e122777122803%_))) + (let ((_%hd122791122814%_ (##car _%e122790122811%_)) + (_%tl122792122816%_ (##cdr _%e122790122811%_))) + (if (gx#stx-pair? _%tl122792122816%_) + (let ((_%e122793122819%_ + (gx#syntax-e _%tl122792122816%_))) + (let ((_%hd122794122822%_ + (##car _%e122793122819%_)) + (_%tl122795122824%_ + (##cdr _%e122793122819%_))) + (let ((_%test122827%_ _%hd122794122822%_)) + (if (gx#stx-pair? _%tl122795122824%_) + (let ((_%e122796122829%_ (gx#syntax-e - _%tl122758122787%_))) - (let ((_%hd122760122795%_ - (##car _%e122759122792%_)) - (_%tl122761122797%_ - (##cdr _%e122759122792%_))) - (let ((_%K122800%_ - _%hd122760122795%_)) + _%tl122795122824%_))) + (let ((_%hd122797122832%_ + (##car _%e122796122829%_)) + (_%tl122798122834%_ + (##cdr _%e122796122829%_))) + (let ((_%K122837%_ + _%hd122797122832%_)) (if (gx#stx-pair? - _%tl122761122797%_) - (let ((_%e122762122802%_ + _%tl122798122834%_) + (let ((_%e122799122839%_ (gx#syntax-e - _%tl122761122797%_))) - (let ((_%hd122763122805%_ - (##car _%e122762122802%_)) - (_%tl122764122807%_ - (##cdr _%e122762122802%_))) - (let ((_%E122810%_ - _%hd122763122805%_)) + _%tl122798122834%_))) + (let ((_%hd122800122842%_ + (##car _%e122799122839%_)) + (_%tl122801122844%_ + (##cdr _%e122799122839%_))) + (let ((_%E122847%_ + _%hd122800122842%_)) (if (gx#stx-null? - _%tl122764122807%_) + _%tl122801122844%_) (gx#core-list '%#if - _%test122790%_ - _%K122800%_ - _%E122810%_) - (_%E122752122770%_))))) - (_%E122752122770%_))))) - (_%E122752122770%_))))) - (_%E122752122770%_)))) - (_%E122752122770%_)))) - (_%E122741122844%_ + _%test122827%_ + _%K122837%_ + _%E122847%_) + (_%E122789122807%_))))) + (_%E122789122807%_))))) + (_%E122789122807%_))))) + (_%E122789122807%_)))) + (_%E122789122807%_)))) + (_%E122778122881%_ (lambda () - (if (gx#stx-pair? _%e122740122766%_) - (let ((_%e122743122816%_ - (gx#syntax-e _%e122740122766%_))) - (let ((_%hd122744122819%_ (##car _%e122743122816%_)) - (_%tl122745122821%_ (##cdr _%e122743122816%_))) - (if (gx#stx-pair? _%tl122745122821%_) - (let ((_%e122746122824%_ - (gx#syntax-e _%tl122745122821%_))) - (let ((_%hd122747122827%_ - (##car _%e122746122824%_)) - (_%tl122748122829%_ - (##cdr _%e122746122824%_))) - (let ((_%test122832%_ _%hd122747122827%_)) - (if (gx#stx-pair? _%tl122748122829%_) - (let ((_%e122749122834%_ + (if (gx#stx-pair? _%e122777122803%_) + (let ((_%e122780122853%_ + (gx#syntax-e _%e122777122803%_))) + (let ((_%hd122781122856%_ (##car _%e122780122853%_)) + (_%tl122782122858%_ (##cdr _%e122780122853%_))) + (if (gx#stx-pair? _%tl122782122858%_) + (let ((_%e122783122861%_ + (gx#syntax-e _%tl122782122858%_))) + (let ((_%hd122784122864%_ + (##car _%e122783122861%_)) + (_%tl122785122866%_ + (##cdr _%e122783122861%_))) + (let ((_%test122869%_ _%hd122784122864%_)) + (if (gx#stx-pair? _%tl122785122866%_) + (let ((_%e122786122871%_ (gx#syntax-e - _%tl122748122829%_))) - (let ((_%hd122750122837%_ - (##car _%e122749122834%_)) - (_%tl122751122839%_ - (##cdr _%e122749122834%_))) - (let ((_%K122842%_ - _%hd122750122837%_)) + _%tl122785122866%_))) + (let ((_%hd122787122874%_ + (##car _%e122786122871%_)) + (_%tl122788122876%_ + (##cdr _%e122786122871%_))) + (let ((_%K122879%_ + _%hd122787122874%_)) (if (gx#stx-null? - _%tl122751122839%_) + _%tl122788122876%_) (gx#core-list '%#if - _%test122832%_ - _%K122842%_ + _%test122869%_ + _%K122879%_ '#!void) - (_%E122742122812%_))))) - (_%E122742122812%_))))) - (_%E122742122812%_)))) - (_%E122742122812%_))))) - (_%E122741122844%_)))) + (_%E122779122849%_))))) + (_%E122779122849%_))))) + (_%E122779122849%_)))) + (_%E122779122849%_))))) + (_%E122778122881%_)))) (define gx#free-identifier=? - (lambda (_%xid122724%_ _%yid122725%_) - (let ((_%xe122727%_ (gx#resolve-identifier__0 _%xid122724%_)) - (_%ye122728%_ (gx#resolve-identifier__0 _%yid122725%_))) - (if (and _%xe122727%_ _%ye122728%_) - (let ((_%$e122731%_ (eq? _%xe122727%_ _%ye122728%_))) - (if _%$e122731%_ - _%$e122731%_ - (if (##structure-instance-of? _%xe122727%_ 'gx#binding::t) + (lambda (_%xid122761%_ _%yid122762%_) + (let ((_%xe122764%_ (gx#resolve-identifier__0 _%xid122761%_)) + (_%ye122765%_ (gx#resolve-identifier__0 _%yid122762%_))) + (if (and _%xe122764%_ _%ye122765%_) + (let ((_%$e122768%_ (eq? _%xe122764%_ _%ye122765%_))) + (if _%$e122768%_ + _%$e122768%_ + (if (##structure-instance-of? _%xe122764%_ 'gx#binding::t) (if (##structure-instance-of? - _%ye122728%_ + _%ye122765%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%xe122727%_ + _%xe122764%_ '1 '#f '#f) (##unchecked-structure-ref - _%ye122728%_ + _%ye122765%_ '1 '#f '#f)) '#f) '#f))) - (if (or _%xe122727%_ _%ye122728%_) + (if (or _%xe122764%_ _%ye122765%_) '#f - (gx#stx-eq? _%xid122724%_ _%yid122725%_)))))) + (gx#stx-eq? _%xid122761%_ _%yid122762%_)))))) (define gx#bound-identifier=? - (lambda (_%xid122705%_ _%yid122706%_) - (letrec ((_%context122708%_ - (lambda (_%e122722%_) + (lambda (_%xid122742%_ _%yid122743%_) + (letrec ((_%context122745%_ + (lambda (_%e122759%_) (if (##structure-direct-instance-of? - _%e122722%_ + _%e122759%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%e122722%_ '3 '#f '#f) + (##unchecked-structure-ref _%e122759%_ '3 '#f '#f) (gx#current-expander-context)))) - (_%marks122709%_ - (lambda (_%e122717%_) - (if (symbol? _%e122717%_) + (_%marks122746%_ + (lambda (_%e122754%_) + (if (symbol? _%e122754%_) '() (if (##structure-direct-instance-of? - _%e122717%_ + _%e122754%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%e122717%_ '3 '#f '#f) + (##unchecked-structure-ref _%e122754%_ '3 '#f '#f) (##unchecked-structure-ref - _%e122717%_ + _%e122754%_ '4 '#f '#f))))) - (_%unwrap122710%_ - (lambda (_%e122715%_) - (if (symbol? _%e122715%_) - _%e122715%_ - (gx#syntax-local-unwrap _%e122715%_))))) - (let ((_%x122712%_ (_%unwrap122710%_ _%xid122705%_)) - (_%y122713%_ (_%unwrap122710%_ _%yid122706%_))) - (if (gx#stx-eq? _%x122712%_ _%y122713%_) - (if (eq? (_%context122708%_ _%x122712%_) - (_%context122708%_ _%y122713%_)) - (equal? (_%marks122709%_ _%x122712%_) - (_%marks122709%_ _%y122713%_)) + (_%unwrap122747%_ + (lambda (_%e122752%_) + (if (symbol? _%e122752%_) + _%e122752%_ + (gx#syntax-local-unwrap _%e122752%_))))) + (let ((_%x122749%_ (_%unwrap122747%_ _%xid122742%_)) + (_%y122750%_ (_%unwrap122747%_ _%yid122743%_))) + (if (gx#stx-eq? _%x122749%_ _%y122750%_) + (if (eq? (_%context122745%_ _%x122749%_) + (_%context122745%_ _%y122750%_)) + (equal? (_%marks122746%_ _%x122749%_) + (_%marks122746%_ _%y122750%_)) '#f) '#f))))) (define gx#underscore? - (lambda (_%stx122703%_) - (if (gx#identifier? _%stx122703%_) - (gx#core-identifier=? _%stx122703%_ '_) + (lambda (_%stx122740%_) + (if (gx#identifier? _%stx122740%_) + (gx#core-identifier=? _%stx122740%_ '_) '#f))) (define gx#ellipsis? - (lambda (_%stx122701%_) - (if (gx#identifier? _%stx122701%_) - (gx#core-identifier=? _%stx122701%_ '...) + (lambda (_%stx122738%_) + (if (gx#identifier? _%stx122738%_) + (gx#core-identifier=? _%stx122738%_ '...) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_%stx122644%_ _%where122645%_) - (let _%lp122647%_ ((_%rest122649%_ (gx#syntax->list _%stx122644%_))) - (let* ((_%rest122650122658%_ _%rest122649%_) - (_%else122652122666%_ (lambda () '#t)) - (_%K122654122679%_ - (lambda (_%rest122669%_ _%hd122670%_) - (if (gx#identifier? _%hd122670%_) - (if (__find (lambda (_%g122672122674%_) + (lambda (_%stx122681%_ _%where122682%_) + (let _%lp122684%_ ((_%rest122686%_ (gx#syntax->list _%stx122681%_))) + (let* ((_%rest122687122695%_ _%rest122686%_) + (_%else122689122703%_ (lambda () '#t)) + (_%K122691122716%_ + (lambda (_%rest122706%_ _%hd122707%_) + (if (gx#identifier? _%hd122707%_) + (if (__find (lambda (_%g122709122711%_) (gx#bound-identifier=? - _%g122672122674%_ - _%hd122670%_)) - _%rest122669%_) + _%g122709122711%_ + _%hd122707%_)) + _%rest122706%_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _%where122645%_ - _%hd122670%_) - (_%lp122647%_ _%rest122669%_)) + _%where122682%_ + _%hd122707%_) + (_%lp122684%_ _%rest122706%_)) (gx#raise-syntax-error '#f '"Bad identifier" - _%where122645%_ - _%hd122670%_))))) - (if (pair? _%rest122650122658%_) - (let ((_%hd122655122682%_ (##car _%rest122650122658%_)) - (_%tl122656122684%_ (##cdr _%rest122650122658%_))) - (let* ((_%hd122687%_ _%hd122655122682%_) - (_%rest122689%_ _%tl122656122684%_)) - (_%K122654122679%_ _%rest122689%_ _%hd122687%_))) - (_%else122652122666%_)))))) + _%where122682%_ + _%hd122707%_))))) + (if (pair? _%rest122687122695%_) + (let ((_%hd122692122719%_ (##car _%rest122687122695%_)) + (_%tl122693122721%_ (##cdr _%rest122687122695%_))) + (let* ((_%hd122724%_ _%hd122692122719%_) + (_%rest122726%_ _%tl122693122721%_)) + (_%K122691122716%_ _%rest122726%_ _%hd122724%_))) + (_%else122689122703%_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_%stx122694%_) - (let ((_%where122696%_ _%stx122694%_)) - (gx#check-duplicate-identifiers__% _%stx122694%_ _%where122696%_)))) + (lambda (_%stx122731%_) + (let ((_%where122733%_ _%stx122731%_)) + (gx#check-duplicate-identifiers__% _%stx122731%_ _%where122733%_)))) (define gx#check-duplicate-identifiers - (lambda _g125336_ - (let ((_g125335_ (##length _g125336_))) - (cond ((##fx= _g125335_ 1) - (apply gx#check-duplicate-identifiers__0 _g125336_)) - ((##fx= _g125335_ 2) - (apply gx#check-duplicate-identifiers__% _g125336_)) + (lambda _g125373_ + (let ((_g125372_ (##length _g125373_))) + (cond ((##fx= _g125372_ 1) + (apply gx#check-duplicate-identifiers__0 _g125373_)) + ((##fx= _g125372_ 2) + (apply gx#check-duplicate-identifiers__% _g125373_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g125336_)))))) + _g125373_)))))) (define gx#core-bind-values? - (lambda (_%stx122636%_) + (lambda (_%stx122673%_) (gx#stx-andmap - (lambda (_%x122638%_) - (let ((_%$e122640%_ (gx#identifier? _%x122638%_))) - (if _%$e122640%_ _%$e122640%_ (gx#stx-false? _%x122638%_)))) - _%stx122636%_))) + (lambda (_%x122675%_) + (let ((_%$e122677%_ (gx#identifier? _%x122675%_))) + (if _%$e122677%_ _%$e122677%_ (gx#stx-false? _%x122675%_)))) + _%stx122673%_))) (define gx#core-bind-values!__% - (lambda (_%stx122600%_ _%rebind?122601%_ _%phi122602%_ _%ctx122603%_) + (lambda (_%stx122637%_ _%rebind?122638%_ _%phi122639%_ _%ctx122640%_) (gx#stx-for-each1 - (lambda (_%id122605%_) - (if (gx#identifier? _%id122605%_) + (lambda (_%id122642%_) + (if (gx#identifier? _%id122642%_) (gx#core-bind-runtime!__% - _%id122605%_ - _%rebind?122601%_ - _%phi122602%_ - _%ctx122603%_) + _%id122642%_ + _%rebind?122638%_ + _%phi122639%_ + _%ctx122640%_) '#!void)) - _%stx122600%_))) + _%stx122637%_))) (define gx#core-bind-values!__0 - (lambda (_%stx122610%_) - (let* ((_%rebind?122612%_ '#f) - (_%phi122614%_ (gx#current-expander-phi)) - (_%ctx122616%_ (gx#current-expander-context))) + (lambda (_%stx122647%_) + (let* ((_%rebind?122649%_ '#f) + (_%phi122651%_ (gx#current-expander-phi)) + (_%ctx122653%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122610%_ - _%rebind?122612%_ - _%phi122614%_ - _%ctx122616%_)))) + _%stx122647%_ + _%rebind?122649%_ + _%phi122651%_ + _%ctx122653%_)))) (define gx#core-bind-values!__1 - (lambda (_%stx122618%_ _%rebind?122619%_) - (let* ((_%phi122621%_ (gx#current-expander-phi)) - (_%ctx122623%_ (gx#current-expander-context))) + (lambda (_%stx122655%_ _%rebind?122656%_) + (let* ((_%phi122658%_ (gx#current-expander-phi)) + (_%ctx122660%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122618%_ - _%rebind?122619%_ - _%phi122621%_ - _%ctx122623%_)))) + _%stx122655%_ + _%rebind?122656%_ + _%phi122658%_ + _%ctx122660%_)))) (define gx#core-bind-values!__2 - (lambda (_%stx122625%_ _%rebind?122626%_ _%phi122627%_) - (let ((_%ctx122629%_ (gx#current-expander-context))) + (lambda (_%stx122662%_ _%rebind?122663%_ _%phi122664%_) + (let ((_%ctx122666%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122625%_ - _%rebind?122626%_ - _%phi122627%_ - _%ctx122629%_)))) + _%stx122662%_ + _%rebind?122663%_ + _%phi122664%_ + _%ctx122666%_)))) (define gx#core-bind-values! - (lambda _g125338_ - (let ((_g125337_ (##length _g125338_))) - (cond ((##fx= _g125337_ 1) (apply gx#core-bind-values!__0 _g125338_)) - ((##fx= _g125337_ 2) (apply gx#core-bind-values!__1 _g125338_)) - ((##fx= _g125337_ 3) (apply gx#core-bind-values!__2 _g125338_)) - ((##fx= _g125337_ 4) (apply gx#core-bind-values!__% _g125338_)) + (lambda _g125375_ + (let ((_g125374_ (##length _g125375_))) + (cond ((##fx= _g125374_ 1) (apply gx#core-bind-values!__0 _g125375_)) + ((##fx= _g125374_ 2) (apply gx#core-bind-values!__1 _g125375_)) + ((##fx= _g125374_ 3) (apply gx#core-bind-values!__2 _g125375_)) + ((##fx= _g125374_ 4) (apply gx#core-bind-values!__% _g125375_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g125338_)))))) + _g125375_)))))) (define gx#core-quote-bind-values - (lambda (_%stx122595%_) + (lambda (_%stx122632%_) (gx#stx-map1 - (lambda (_%x122597%_) - (if (gx#identifier? _%x122597%_) - (gx#core-quote-syntax__0 _%x122597%_) + (lambda (_%x122634%_) + (if (gx#identifier? _%x122634%_) + (gx#core-quote-syntax__0 _%x122634%_) '#f)) - _%stx122595%_))) + _%stx122632%_))) (define gx#core-runtime-ref? - (lambda (_%stx122588%_) - (if (gx#identifier? _%stx122588%_) - (let* ((_%bind122590%_ (gx#resolve-identifier__0 _%stx122588%_)) - (_%$e122592%_ (not _%bind122590%_))) - (if _%$e122592%_ - _%$e122592%_ + (lambda (_%stx122625%_) + (if (gx#identifier? _%stx122625%_) + (let* ((_%bind122627%_ (gx#resolve-identifier__0 _%stx122625%_)) + (_%$e122629%_ (not _%bind122627%_))) + (if _%$e122629%_ + _%$e122629%_ (##structure-instance-of? - _%bind122590%_ + _%bind122627%_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_%id122577%_ _%form122578%_) - (let ((_%bind122580%_ (gx#resolve-identifier__0 _%id122577%_))) - (if (##structure-instance-of? _%bind122580%_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _%id122577%_) - (if (not _%bind122580%_) + (lambda (_%id122614%_ _%form122615%_) + (let ((_%bind122617%_ (gx#resolve-identifier__0 _%id122614%_))) + (if (##structure-instance-of? _%bind122617%_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _%id122614%_) + (if (not _%bind122617%_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _%id122577%_))) - (gx#core-quote-syntax__0 _%id122577%_) + (gx#core-extern-symbol? (gx#stx-e _%id122614%_))) + (gx#core-quote-syntax__0 _%id122614%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%form122578%_ - _%id122577%_)) + _%form122615%_ + _%id122614%_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _%form122578%_ - _%id122577%_)))))) + _%form122615%_ + _%id122614%_)))))) (define gx#core-bind-runtime!__% - (lambda (_%id122532%_ _%rebind?122533%_ _%phi122534%_ _%ctx122535%_) - (let* ((_%key122537%_ (gx#core-identifier-key _%id122532%_)) - (_%eid122539%_ + (lambda (_%id122569%_ _%rebind?122570%_ _%phi122571%_ _%ctx122572%_) + (let* ((_%key122574%_ (gx#core-identifier-key _%id122569%_)) + (_%eid122576%_ (gx#make-binding-id__% - _%key122537%_ + _%key122574%_ '#f - _%phi122534%_ - _%ctx122535%_)) - (_%bind122545%_ + _%phi122571%_ + _%ctx122572%_)) + (_%bind122582%_ (if (##structure-instance-of? - _%ctx122535%_ + _%ctx122572%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid122539%_ - _%key122537%_ - _%phi122534%_ - _%ctx122535%_) + _%eid122576%_ + _%key122574%_ + _%phi122571%_ + _%ctx122572%_) (if (##structure-instance-of? - _%ctx122535%_ + _%ctx122572%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid122539%_ - _%key122537%_ - _%phi122534%_) + _%eid122576%_ + _%key122574%_ + _%phi122571%_) (if (##structure-instance-of? - _%ctx122535%_ + _%ctx122572%_ 'gx#local-context::t) (##structure gx#local-binding::t - _%eid122539%_ - _%key122537%_ - _%phi122534%_) + _%eid122576%_ + _%key122574%_ + _%phi122571%_) (##structure gx#runtime-binding::t - _%eid122539%_ - _%key122537%_ - _%phi122534%_)))))) + _%eid122576%_ + _%key122574%_ + _%phi122571%_)))))) (gx#bind-identifier!__% - _%id122532%_ - _%bind122545%_ - _%rebind?122533%_ - _%phi122534%_ - _%ctx122535%_)))) + _%id122569%_ + _%bind122582%_ + _%rebind?122570%_ + _%phi122571%_ + _%ctx122572%_)))) (define gx#core-bind-runtime!__0 - (lambda (_%id122551%_) - (let* ((_%rebind?122553%_ '#f) - (_%phi122555%_ (gx#current-expander-phi)) - (_%ctx122557%_ (gx#current-expander-context))) + (lambda (_%id122588%_) + (let* ((_%rebind?122590%_ '#f) + (_%phi122592%_ (gx#current-expander-phi)) + (_%ctx122594%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122551%_ - _%rebind?122553%_ - _%phi122555%_ - _%ctx122557%_)))) + _%id122588%_ + _%rebind?122590%_ + _%phi122592%_ + _%ctx122594%_)))) (define gx#core-bind-runtime!__1 - (lambda (_%id122559%_ _%rebind?122560%_) - (let* ((_%phi122562%_ (gx#current-expander-phi)) - (_%ctx122564%_ (gx#current-expander-context))) + (lambda (_%id122596%_ _%rebind?122597%_) + (let* ((_%phi122599%_ (gx#current-expander-phi)) + (_%ctx122601%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122559%_ - _%rebind?122560%_ - _%phi122562%_ - _%ctx122564%_)))) + _%id122596%_ + _%rebind?122597%_ + _%phi122599%_ + _%ctx122601%_)))) (define gx#core-bind-runtime!__2 - (lambda (_%id122566%_ _%rebind?122567%_ _%phi122568%_) - (let ((_%ctx122570%_ (gx#current-expander-context))) + (lambda (_%id122603%_ _%rebind?122604%_ _%phi122605%_) + (let ((_%ctx122607%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122566%_ - _%rebind?122567%_ - _%phi122568%_ - _%ctx122570%_)))) + _%id122603%_ + _%rebind?122604%_ + _%phi122605%_ + _%ctx122607%_)))) (define gx#core-bind-runtime! - (lambda _g125340_ - (let ((_g125339_ (##length _g125340_))) - (cond ((##fx= _g125339_ 1) - (apply gx#core-bind-runtime!__0 _g125340_)) - ((##fx= _g125339_ 2) - (apply gx#core-bind-runtime!__1 _g125340_)) - ((##fx= _g125339_ 3) - (apply gx#core-bind-runtime!__2 _g125340_)) - ((##fx= _g125339_ 4) - (apply gx#core-bind-runtime!__% _g125340_)) + (lambda _g125377_ + (let ((_g125376_ (##length _g125377_))) + (cond ((##fx= _g125376_ 1) + (apply gx#core-bind-runtime!__0 _g125377_)) + ((##fx= _g125376_ 2) + (apply gx#core-bind-runtime!__1 _g125377_)) + ((##fx= _g125376_ 3) + (apply gx#core-bind-runtime!__2 _g125377_)) + ((##fx= _g125376_ 4) + (apply gx#core-bind-runtime!__% _g125377_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g125340_)))))) + _g125377_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_%id122484%_ - _%eid122485%_ - _%rebind?122486%_ - _%phi122487%_ - _%ctx122488%_) - (let* ((_%key122490%_ (gx#core-identifier-key _%id122484%_)) - (_%bind122495%_ + (lambda (_%id122521%_ + _%eid122522%_ + _%rebind?122523%_ + _%phi122524%_ + _%ctx122525%_) + (let* ((_%key122527%_ (gx#core-identifier-key _%id122521%_)) + (_%bind122532%_ (if (##structure-instance-of? - _%ctx122488%_ + _%ctx122525%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid122485%_ - _%key122490%_ - _%phi122487%_ - _%ctx122488%_) + _%eid122522%_ + _%key122527%_ + _%phi122524%_ + _%ctx122525%_) (if (##structure-instance-of? - _%ctx122488%_ + _%ctx122525%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid122485%_ - _%key122490%_ - _%phi122487%_) + _%eid122522%_ + _%key122527%_ + _%phi122524%_) (##structure gx#runtime-binding::t - _%eid122485%_ - _%key122490%_ - _%phi122487%_))))) + _%eid122522%_ + _%key122527%_ + _%phi122524%_))))) (gx#bind-identifier!__% - _%id122484%_ - _%bind122495%_ - _%rebind?122486%_ - _%phi122487%_ - _%ctx122488%_)))) + _%id122521%_ + _%bind122532%_ + _%rebind?122523%_ + _%phi122524%_ + _%ctx122525%_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_%id122501%_ _%eid122502%_) - (let* ((_%rebind?122504%_ '#f) - (_%phi122506%_ (gx#current-expander-phi)) - (_%ctx122508%_ (gx#current-expander-context))) + (lambda (_%id122538%_ _%eid122539%_) + (let* ((_%rebind?122541%_ '#f) + (_%phi122543%_ (gx#current-expander-phi)) + (_%ctx122545%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122501%_ - _%eid122502%_ - _%rebind?122504%_ - _%phi122506%_ - _%ctx122508%_)))) + _%id122538%_ + _%eid122539%_ + _%rebind?122541%_ + _%phi122543%_ + _%ctx122545%_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_%id122510%_ _%eid122511%_ _%rebind?122512%_) - (let* ((_%phi122514%_ (gx#current-expander-phi)) - (_%ctx122516%_ (gx#current-expander-context))) + (lambda (_%id122547%_ _%eid122548%_ _%rebind?122549%_) + (let* ((_%phi122551%_ (gx#current-expander-phi)) + (_%ctx122553%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122510%_ - _%eid122511%_ - _%rebind?122512%_ - _%phi122514%_ - _%ctx122516%_)))) + _%id122547%_ + _%eid122548%_ + _%rebind?122549%_ + _%phi122551%_ + _%ctx122553%_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_%id122518%_ _%eid122519%_ _%rebind?122520%_ _%phi122521%_) - (let ((_%ctx122523%_ (gx#current-expander-context))) + (lambda (_%id122555%_ _%eid122556%_ _%rebind?122557%_ _%phi122558%_) + (let ((_%ctx122560%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122518%_ - _%eid122519%_ - _%rebind?122520%_ - _%phi122521%_ - _%ctx122523%_)))) + _%id122555%_ + _%eid122556%_ + _%rebind?122557%_ + _%phi122558%_ + _%ctx122560%_)))) (define gx#core-bind-runtime-reference! - (lambda _g125342_ - (let ((_g125341_ (##length _g125342_))) - (cond ((##fx= _g125341_ 2) - (apply gx#core-bind-runtime-reference!__0 _g125342_)) - ((##fx= _g125341_ 3) - (apply gx#core-bind-runtime-reference!__1 _g125342_)) - ((##fx= _g125341_ 4) - (apply gx#core-bind-runtime-reference!__2 _g125342_)) - ((##fx= _g125341_ 5) - (apply gx#core-bind-runtime-reference!__% _g125342_)) + (lambda _g125379_ + (let ((_g125378_ (##length _g125379_))) + (cond ((##fx= _g125378_ 2) + (apply gx#core-bind-runtime-reference!__0 _g125379_)) + ((##fx= _g125378_ 3) + (apply gx#core-bind-runtime-reference!__1 _g125379_)) + ((##fx= _g125378_ 4) + (apply gx#core-bind-runtime-reference!__2 _g125379_)) + ((##fx= _g125378_ 5) + (apply gx#core-bind-runtime-reference!__% _g125379_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g125342_)))))) + _g125379_)))))) (define gx#core-bind-extern!__% - (lambda (_%id122444%_ - _%eid122445%_ - _%rebind?122446%_ - _%phi122447%_ - _%ctx122448%_) + (lambda (_%id122481%_ + _%eid122482%_ + _%rebind?122483%_ + _%phi122484%_ + _%ctx122485%_) (gx#bind-identifier!__% - _%id122444%_ + _%id122481%_ (##structure gx#extern-binding::t - _%eid122445%_ - (gx#core-identifier-key _%id122444%_) - _%phi122447%_) - _%rebind?122446%_ - _%phi122447%_ - _%ctx122448%_))) + _%eid122482%_ + (gx#core-identifier-key _%id122481%_) + _%phi122484%_) + _%rebind?122483%_ + _%phi122484%_ + _%ctx122485%_))) (define gx#core-bind-extern!__0 - (lambda (_%id122453%_ _%eid122454%_) - (let* ((_%rebind?122456%_ '#f) - (_%phi122458%_ (gx#current-expander-phi)) - (_%ctx122460%_ (gx#current-expander-context))) + (lambda (_%id122490%_ _%eid122491%_) + (let* ((_%rebind?122493%_ '#f) + (_%phi122495%_ (gx#current-expander-phi)) + (_%ctx122497%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122453%_ - _%eid122454%_ - _%rebind?122456%_ - _%phi122458%_ - _%ctx122460%_)))) + _%id122490%_ + _%eid122491%_ + _%rebind?122493%_ + _%phi122495%_ + _%ctx122497%_)))) (define gx#core-bind-extern!__1 - (lambda (_%id122462%_ _%eid122463%_ _%rebind?122464%_) - (let* ((_%phi122466%_ (gx#current-expander-phi)) - (_%ctx122468%_ (gx#current-expander-context))) + (lambda (_%id122499%_ _%eid122500%_ _%rebind?122501%_) + (let* ((_%phi122503%_ (gx#current-expander-phi)) + (_%ctx122505%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122462%_ - _%eid122463%_ - _%rebind?122464%_ - _%phi122466%_ - _%ctx122468%_)))) + _%id122499%_ + _%eid122500%_ + _%rebind?122501%_ + _%phi122503%_ + _%ctx122505%_)))) (define gx#core-bind-extern!__2 - (lambda (_%id122470%_ _%eid122471%_ _%rebind?122472%_ _%phi122473%_) - (let ((_%ctx122475%_ (gx#current-expander-context))) + (lambda (_%id122507%_ _%eid122508%_ _%rebind?122509%_ _%phi122510%_) + (let ((_%ctx122512%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122470%_ - _%eid122471%_ - _%rebind?122472%_ - _%phi122473%_ - _%ctx122475%_)))) + _%id122507%_ + _%eid122508%_ + _%rebind?122509%_ + _%phi122510%_ + _%ctx122512%_)))) (define gx#core-bind-extern! - (lambda _g125344_ - (let ((_g125343_ (##length _g125344_))) - (cond ((##fx= _g125343_ 2) (apply gx#core-bind-extern!__0 _g125344_)) - ((##fx= _g125343_ 3) (apply gx#core-bind-extern!__1 _g125344_)) - ((##fx= _g125343_ 4) (apply gx#core-bind-extern!__2 _g125344_)) - ((##fx= _g125343_ 5) (apply gx#core-bind-extern!__% _g125344_)) + (lambda _g125381_ + (let ((_g125380_ (##length _g125381_))) + (cond ((##fx= _g125380_ 2) (apply gx#core-bind-extern!__0 _g125381_)) + ((##fx= _g125380_ 3) (apply gx#core-bind-extern!__1 _g125381_)) + ((##fx= _g125380_ 4) (apply gx#core-bind-extern!__2 _g125381_)) + ((##fx= _g125380_ 5) (apply gx#core-bind-extern!__% _g125381_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g125344_)))))) + _g125381_)))))) (define gx#core-bind-syntax!__% - (lambda (_%id122398%_ - _%e122399%_ - _%rebind?122400%_ - _%phi122401%_ - _%ctx122402%_) + (lambda (_%id122435%_ + _%e122436%_ + _%rebind?122437%_ + _%phi122438%_ + _%ctx122439%_) (gx#bind-identifier!__% - _%id122398%_ - (let ((_%key122407%_ (gx#core-identifier-key _%id122398%_)) - (_%e122408%_ - (if (or (##structure-instance-of? _%e122399%_ 'gx#expander::t) + _%id122435%_ + (let ((_%key122444%_ (gx#core-identifier-key _%id122435%_)) + (_%e122445%_ + (if (or (##structure-instance-of? _%e122436%_ 'gx#expander::t) (##structure-instance-of? - _%e122399%_ + _%e122436%_ 'gx#expander-context::t)) - _%e122399%_ + _%e122436%_ (##structure gx#user-expander::t - _%e122399%_ - _%ctx122402%_ - _%phi122401%_)))) + _%e122436%_ + _%ctx122439%_ + _%phi122438%_)))) (##structure gx#syntax-binding::t (gx#make-binding-id__% - _%key122407%_ + _%key122444%_ '#t - _%phi122401%_ - _%ctx122402%_) - _%key122407%_ - _%phi122401%_ - _%e122408%_)) - _%rebind?122400%_ - _%phi122401%_ - _%ctx122402%_))) + _%phi122438%_ + _%ctx122439%_) + _%key122444%_ + _%phi122438%_ + _%e122445%_)) + _%rebind?122437%_ + _%phi122438%_ + _%ctx122439%_))) (define gx#core-bind-syntax!__0 - (lambda (_%id122413%_ _%e122414%_) - (let* ((_%rebind?122416%_ '#f) - (_%phi122418%_ (gx#current-expander-phi)) - (_%ctx122420%_ (gx#current-expander-context))) + (lambda (_%id122450%_ _%e122451%_) + (let* ((_%rebind?122453%_ '#f) + (_%phi122455%_ (gx#current-expander-phi)) + (_%ctx122457%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122413%_ - _%e122414%_ - _%rebind?122416%_ - _%phi122418%_ - _%ctx122420%_)))) + _%id122450%_ + _%e122451%_ + _%rebind?122453%_ + _%phi122455%_ + _%ctx122457%_)))) (define gx#core-bind-syntax!__1 - (lambda (_%id122422%_ _%e122423%_ _%rebind?122424%_) - (let* ((_%phi122426%_ (gx#current-expander-phi)) - (_%ctx122428%_ (gx#current-expander-context))) + (lambda (_%id122459%_ _%e122460%_ _%rebind?122461%_) + (let* ((_%phi122463%_ (gx#current-expander-phi)) + (_%ctx122465%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122422%_ - _%e122423%_ - _%rebind?122424%_ - _%phi122426%_ - _%ctx122428%_)))) + _%id122459%_ + _%e122460%_ + _%rebind?122461%_ + _%phi122463%_ + _%ctx122465%_)))) (define gx#core-bind-syntax!__2 - (lambda (_%id122430%_ _%e122431%_ _%rebind?122432%_ _%phi122433%_) - (let ((_%ctx122435%_ (gx#current-expander-context))) + (lambda (_%id122467%_ _%e122468%_ _%rebind?122469%_ _%phi122470%_) + (let ((_%ctx122472%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122430%_ - _%e122431%_ - _%rebind?122432%_ - _%phi122433%_ - _%ctx122435%_)))) + _%id122467%_ + _%e122468%_ + _%rebind?122469%_ + _%phi122470%_ + _%ctx122472%_)))) (define gx#core-bind-syntax! - (lambda _g125346_ - (let ((_g125345_ (##length _g125346_))) - (cond ((##fx= _g125345_ 2) (apply gx#core-bind-syntax!__0 _g125346_)) - ((##fx= _g125345_ 3) (apply gx#core-bind-syntax!__1 _g125346_)) - ((##fx= _g125345_ 4) (apply gx#core-bind-syntax!__2 _g125346_)) - ((##fx= _g125345_ 5) (apply gx#core-bind-syntax!__% _g125346_)) + (lambda _g125383_ + (let ((_g125382_ (##length _g125383_))) + (cond ((##fx= _g125382_ 2) (apply gx#core-bind-syntax!__0 _g125383_)) + ((##fx= _g125382_ 3) (apply gx#core-bind-syntax!__1 _g125383_)) + ((##fx= _g125382_ 4) (apply gx#core-bind-syntax!__2 _g125383_)) + ((##fx= _g125382_ 5) (apply gx#core-bind-syntax!__% _g125383_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g125346_)))))) + _g125383_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_%id122381%_ _%e122382%_ _%rebind?122383%_) + (lambda (_%id122418%_ _%e122419%_ _%rebind?122420%_) (gx#core-bind-syntax!__% - _%id122381%_ - _%e122382%_ - _%rebind?122383%_ + _%id122418%_ + _%e122419%_ + _%rebind?122420%_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_%id122388%_ _%e122389%_) - (let ((_%rebind?122391%_ '#f)) + (lambda (_%id122425%_ _%e122426%_) + (let ((_%rebind?122428%_ '#f)) (gx#core-bind-root-syntax!__% - _%id122388%_ - _%e122389%_ - _%rebind?122391%_)))) + _%id122425%_ + _%e122426%_ + _%rebind?122428%_)))) (define gx#core-bind-root-syntax! - (lambda _g125348_ - (let ((_g125347_ (##length _g125348_))) - (cond ((##fx= _g125347_ 2) - (apply gx#core-bind-root-syntax!__0 _g125348_)) - ((##fx= _g125347_ 3) - (apply gx#core-bind-root-syntax!__% _g125348_)) + (lambda _g125385_ + (let ((_g125384_ (##length _g125385_))) + (cond ((##fx= _g125384_ 2) + (apply gx#core-bind-root-syntax!__0 _g125385_)) + ((##fx= _g125384_ 3) + (apply gx#core-bind-root-syntax!__% _g125385_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g125348_)))))) + _g125385_)))))) (define gx#core-bind-alias!__% - (lambda (_%id122339%_ - _%alias-id122340%_ - _%rebind?122341%_ - _%phi122342%_ - _%ctx122343%_) + (lambda (_%id122376%_ + _%alias-id122377%_ + _%rebind?122378%_ + _%phi122379%_ + _%ctx122380%_) (gx#bind-identifier!__% - _%id122339%_ - (let ((_%key122345%_ (gx#core-identifier-key _%id122339%_))) + _%id122376%_ + (let ((_%key122382%_ (gx#core-identifier-key _%id122376%_))) (##structure gx#alias-binding::t (gx#make-binding-id__% - _%key122345%_ + _%key122382%_ '#t - _%phi122342%_ - _%ctx122343%_) - _%key122345%_ - _%phi122342%_ - _%alias-id122340%_)) - _%rebind?122341%_ - _%phi122342%_ - _%ctx122343%_))) + _%phi122379%_ + _%ctx122380%_) + _%key122382%_ + _%phi122379%_ + _%alias-id122377%_)) + _%rebind?122378%_ + _%phi122379%_ + _%ctx122380%_))) (define gx#core-bind-alias!__0 - (lambda (_%id122350%_ _%alias-id122351%_) - (let* ((_%rebind?122353%_ '#f) - (_%phi122355%_ (gx#current-expander-phi)) - (_%ctx122357%_ (gx#current-expander-context))) + (lambda (_%id122387%_ _%alias-id122388%_) + (let* ((_%rebind?122390%_ '#f) + (_%phi122392%_ (gx#current-expander-phi)) + (_%ctx122394%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122350%_ - _%alias-id122351%_ - _%rebind?122353%_ - _%phi122355%_ - _%ctx122357%_)))) + _%id122387%_ + _%alias-id122388%_ + _%rebind?122390%_ + _%phi122392%_ + _%ctx122394%_)))) (define gx#core-bind-alias!__1 - (lambda (_%id122359%_ _%alias-id122360%_ _%rebind?122361%_) - (let* ((_%phi122363%_ (gx#current-expander-phi)) - (_%ctx122365%_ (gx#current-expander-context))) + (lambda (_%id122396%_ _%alias-id122397%_ _%rebind?122398%_) + (let* ((_%phi122400%_ (gx#current-expander-phi)) + (_%ctx122402%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122359%_ - _%alias-id122360%_ - _%rebind?122361%_ - _%phi122363%_ - _%ctx122365%_)))) + _%id122396%_ + _%alias-id122397%_ + _%rebind?122398%_ + _%phi122400%_ + _%ctx122402%_)))) (define gx#core-bind-alias!__2 - (lambda (_%id122367%_ _%alias-id122368%_ _%rebind?122369%_ _%phi122370%_) - (let ((_%ctx122372%_ (gx#current-expander-context))) + (lambda (_%id122404%_ _%alias-id122405%_ _%rebind?122406%_ _%phi122407%_) + (let ((_%ctx122409%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122367%_ - _%alias-id122368%_ - _%rebind?122369%_ - _%phi122370%_ - _%ctx122372%_)))) + _%id122404%_ + _%alias-id122405%_ + _%rebind?122406%_ + _%phi122407%_ + _%ctx122409%_)))) (define gx#core-bind-alias! - (lambda _g125350_ - (let ((_g125349_ (##length _g125350_))) - (cond ((##fx= _g125349_ 2) (apply gx#core-bind-alias!__0 _g125350_)) - ((##fx= _g125349_ 3) (apply gx#core-bind-alias!__1 _g125350_)) - ((##fx= _g125349_ 4) (apply gx#core-bind-alias!__2 _g125350_)) - ((##fx= _g125349_ 5) (apply gx#core-bind-alias!__% _g125350_)) + (lambda _g125387_ + (let ((_g125386_ (##length _g125387_))) + (cond ((##fx= _g125386_ 2) (apply gx#core-bind-alias!__0 _g125387_)) + ((##fx= _g125386_ 3) (apply gx#core-bind-alias!__1 _g125387_)) + ((##fx= _g125386_ 4) (apply gx#core-bind-alias!__2 _g125387_)) + ((##fx= _g125386_ 5) (apply gx#core-bind-alias!__% _g125387_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g125350_)))))) + _g125387_)))))) (define gx#make-binding-id__% - (lambda (_%key122289%_ _%syntax?122290%_ _%phi122291%_ _%ctx122292%_) - (if (uninterned-symbol? _%key122289%_) + (lambda (_%key122326%_ _%syntax?122327%_ _%phi122328%_ _%ctx122329%_) + (if (uninterned-symbol? _%key122326%_) (##gensym 'L) - (if (pair? _%key122289%_) - (gensym (##car _%key122289%_)) - (if (##structure-instance-of? _%ctx122292%_ 'gx#top-context::t) - (let ((_%ns122297%_ - (gx#core-context-namespace__% _%ctx122292%_))) - (if (and (fxzero? _%phi122291%_) (not _%syntax?122290%_)) - (if _%ns122297%_ - (make-symbol__1 _%ns122297%_ '"#" _%key122289%_) - _%key122289%_) - (if _%syntax?122290%_ + (if (pair? _%key122326%_) + (gensym (##car _%key122326%_)) + (if (##structure-instance-of? _%ctx122329%_ 'gx#top-context::t) + (let ((_%ns122334%_ + (gx#core-context-namespace__% _%ctx122329%_))) + (if (and (fxzero? _%phi122328%_) (not _%syntax?122327%_)) + (if _%ns122334%_ + (make-symbol__1 _%ns122334%_ '"#" _%key122326%_) + _%key122326%_) + (if _%syntax?122327%_ (make-symbol__1 - (let ((_%$e122301%_ _%ns122297%_)) - (if _%$e122301%_ _%$e122301%_ '"")) + (let ((_%$e122338%_ _%ns122334%_)) + (if _%$e122338%_ _%$e122338%_ '"")) '"[:" - (number->string _%phi122291%_) + (number->string _%phi122328%_) '":]#" - _%key122289%_) + _%key122326%_) (make-symbol__1 - (let ((_%$e122305%_ _%ns122297%_)) - (if _%$e122305%_ _%$e122305%_ '"")) + (let ((_%$e122342%_ _%ns122334%_)) + (if _%$e122342%_ _%$e122342%_ '"")) '"[" - (number->string _%phi122291%_) + (number->string _%phi122328%_) '"]#" - _%key122289%_)))) - (gensym _%key122289%_)))))) + _%key122326%_)))) + (gensym _%key122326%_)))))) (define gx#make-binding-id__0 - (lambda (_%key122312%_) - (let* ((_%syntax?122314%_ '#f) - (_%phi122316%_ (gx#current-expander-phi)) - (_%ctx122318%_ (gx#current-expander-context))) + (lambda (_%key122349%_) + (let* ((_%syntax?122351%_ '#f) + (_%phi122353%_ (gx#current-expander-phi)) + (_%ctx122355%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122312%_ - _%syntax?122314%_ - _%phi122316%_ - _%ctx122318%_)))) + _%key122349%_ + _%syntax?122351%_ + _%phi122353%_ + _%ctx122355%_)))) (define gx#make-binding-id__1 - (lambda (_%key122320%_ _%syntax?122321%_) - (let* ((_%phi122323%_ (gx#current-expander-phi)) - (_%ctx122325%_ (gx#current-expander-context))) + (lambda (_%key122357%_ _%syntax?122358%_) + (let* ((_%phi122360%_ (gx#current-expander-phi)) + (_%ctx122362%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122320%_ - _%syntax?122321%_ - _%phi122323%_ - _%ctx122325%_)))) + _%key122357%_ + _%syntax?122358%_ + _%phi122360%_ + _%ctx122362%_)))) (define gx#make-binding-id__2 - (lambda (_%key122327%_ _%syntax?122328%_ _%phi122329%_) - (let ((_%ctx122331%_ (gx#current-expander-context))) + (lambda (_%key122364%_ _%syntax?122365%_ _%phi122366%_) + (let ((_%ctx122368%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122327%_ - _%syntax?122328%_ - _%phi122329%_ - _%ctx122331%_)))) + _%key122364%_ + _%syntax?122365%_ + _%phi122366%_ + _%ctx122368%_)))) (define gx#make-binding-id - (lambda _g125352_ - (let ((_g125351_ (##length _g125352_))) - (cond ((##fx= _g125351_ 1) (apply gx#make-binding-id__0 _g125352_)) - ((##fx= _g125351_ 2) (apply gx#make-binding-id__1 _g125352_)) - ((##fx= _g125351_ 3) (apply gx#make-binding-id__2 _g125352_)) - ((##fx= _g125351_ 4) (apply gx#make-binding-id__% _g125352_)) + (lambda _g125389_ + (let ((_g125388_ (##length _g125389_))) + (cond ((##fx= _g125388_ 1) (apply gx#make-binding-id__0 _g125389_)) + ((##fx= _g125388_ 2) (apply gx#make-binding-id__1 _g125389_)) + ((##fx= _g125388_ 3) (apply gx#make-binding-id__2 _g125389_)) + ((##fx= _g125388_ 4) (apply gx#make-binding-id__% _g125389_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g125352_)))))))) + _g125389_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3~0.scm b/src/bootstrap/gerbil/runtime/c3~0.scm index 1ddeed956..06a37bdad 100644 --- a/src/bootstrap/gerbil/runtime/c3~0.scm +++ b/src/bootstrap/gerbil/runtime/c3~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1733687558) + (define gerbil/runtime/c3::timestamp 1733870072) (begin (define c4-linearize__% (lambda (_%@@keywords94597%_ diff --git a/src/bootstrap/gerbil/runtime/control~0.scm b/src/bootstrap/gerbil/runtime/control~0.scm index b6749a7a7..9c2c2febe 100644 --- a/src/bootstrap/gerbil/runtime/control~0.scm +++ b/src/bootstrap/gerbil/runtime/control~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1733687558) + (define gerbil/runtime/control::timestamp 1733870072) (begin (define make-promise (lambda (_%thunk94304%_) diff --git a/src/bootstrap/gerbil/runtime/error~0.scm b/src/bootstrap/gerbil/runtime/error~0.scm index c4dfe3a39..07d3e3fed 100644 --- a/src/bootstrap/gerbil/runtime/error~0.scm +++ b/src/bootstrap/gerbil/runtime/error~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1733687558) + (define gerbil/runtime/error::timestamp 1733870073) (begin (define Exception::t (let ((__tmp104024 (list))) @@ -712,30 +712,30 @@ (##write-string __tmp104041 _%port103485%_)))))) (define Error::display-exception::specialize (lambda (__klass104000 __method-table104001) - (let ((__irritants104002 + (let ((__where104002 (let ((__slot104006 (let () (declare (not safe)) - (class-slot-offset __klass104000 'irritants)))) + (class-slot-offset __klass104000 'where)))) (if __slot104006 __slot104006 - (error '"Unknown slot" 'irritants)))) - (__continuation104003 + (error '"Unknown slot" 'where)))) + (__irritants104003 (let ((__slot104007 (let () (declare (not safe)) - (class-slot-offset __klass104000 'continuation)))) + (class-slot-offset __klass104000 'irritants)))) (if __slot104007 __slot104007 - (error '"Unknown slot" 'continuation)))) - (__where104004 + (error '"Unknown slot" 'irritants)))) + (__continuation104004 (let ((__slot104008 (let () (declare (not safe)) - (class-slot-offset __klass104000 'where)))) + (class-slot-offset __klass104000 'continuation)))) (if __slot104008 __slot104008 - (error '"Unknown slot" 'where)))) + (error '"Unknown slot" 'continuation)))) (__message104005 (let ((__slot104009 (let () @@ -760,7 +760,7 @@ (declare (not safe)) (##unchecked-structure-ref _%self103489%_ - __where104004 + __where104002 '#f '#f)))) (if _%$e103503%_ @@ -790,7 +790,7 @@ (declare (not safe)) (##unchecked-structure-ref _%self103489%_ - __irritants104002 + __irritants104003 '#f '#f)))) (if (null? _%irritants103507%_) @@ -824,7 +824,7 @@ (declare (not safe)) (##unchecked-structure-ref _%self103489%_ - __continuation104003 + __continuation104004 '#f '#f)))) (if _%cont103510103512%_ @@ -889,22 +889,22 @@ (##write-string __tmp104049 _%port103339%_))))) (define RuntimeException::display-exception::specialize (lambda (__klass104010 __method-table104011) - (let ((__exception104012 + (let ((__continuation104012 (let ((__slot104014 (let () (declare (not safe)) - (class-slot-offset __klass104010 'exception)))) + (class-slot-offset __klass104010 'continuation)))) (if __slot104014 __slot104014 - (error '"Unknown slot" 'exception)))) - (__continuation104013 + (error '"Unknown slot" 'continuation)))) + (__exception104013 (let ((__slot104015 (let () (declare (not safe)) - (class-slot-offset __klass104010 'continuation)))) + (class-slot-offset __klass104010 'exception)))) (if __slot104015 __slot104015 - (error '"Unknown slot" 'continuation))))) + (error '"Unknown slot" 'exception))))) (lambda (_%self102156103337%_ _%port103339%_) (let* ((_%self103341%_ _%self102156103337%_) (_%self103343%_ _%self103341%_) @@ -915,7 +915,7 @@ (declare (not safe)) (##unchecked-structure-ref _%self103343%_ - __exception104012 + __exception104013 '#f '#f)))) (declare (not safe)) @@ -926,7 +926,7 @@ (declare (not safe)) (##unchecked-structure-ref _%self103343%_ - __continuation104013 + __continuation104012 '#f '#f)))) (if _%cont103354103356%_ diff --git a/src/bootstrap/gerbil/runtime/eval~0.scm b/src/bootstrap/gerbil/runtime/eval~0.scm index 7c4538ddc..ebd39e9d5 100644 --- a/src/bootstrap/gerbil/runtime/eval~0.scm +++ b/src/bootstrap/gerbil/runtime/eval~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1733687559) + (define gerbil/runtime/eval::timestamp 1733870073) (begin (define __syntax::t (let ((__tmp115003 (list)) (__tmp115002 (cons (cons 'struct: '#t) '()))) diff --git a/src/bootstrap/gerbil/runtime/gambit~0.scm b/src/bootstrap/gerbil/runtime/gambit~0.scm index ec4ce7355..5dc14aab8 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 1733687557) + (define gerbil/runtime/gambit::timestamp 1733870072) (let () (declare (not safe)) (##void))) diff --git a/src/bootstrap/gerbil/runtime/hash.ssxi.ss b/src/bootstrap/gerbil/runtime/hash.ssxi.ss index 26e87f751..437689f4e 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!105427%_) + ((set! . _%locked-hash-table::set!105409%_) + (ref . _%locked-hash-table::ref105406%_) + (for-each . _%locked-hash-table::for-each105418%_) + (clear! . _%locked-hash-table::clear!105427%_) + (update! . _%locked-hash-table::update!105412%_) (delete! . _%locked-hash-table::delete!105415%_) - (length . _%locked-hash-table::length105421%_) - (set! . _%locked-hash-table::set!105409%_) (copy . _%locked-hash-table::copy105424%_) - (for-each . _%locked-hash-table::for-each105418%_) - (ref . _%locked-hash-table::ref105406%_) - (update! . _%locked-hash-table::update!105412%_)))) + (length . _%locked-hash-table::length105421%_)))) (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!105662%_) + ((set! . _%checked-hash-table::set!105644%_) + (ref . _%checked-hash-table::ref105641%_) + (for-each . _%checked-hash-table::for-each105653%_) + (clear! . _%checked-hash-table::clear!105662%_) + (update! . _%checked-hash-table::update!105647%_) (delete! . _%checked-hash-table::delete!105650%_) - (length . _%checked-hash-table::length105656%_) - (set! . _%checked-hash-table::set!105644%_) (copy . _%checked-hash-table::copy105659%_) - (for-each . _%checked-hash-table::for-each105653%_) - (ref . _%checked-hash-table::ref105641%_) - (update! . _%checked-hash-table::update!105647%_)))) + (length . _%checked-hash-table::length105656%_)))) (declare-type checked-hash-table::t (optimizer-resolve-class '(typedecl checked-hash-table::t) 'class::t)) diff --git a/src/bootstrap/gerbil/runtime/hash~0.scm b/src/bootstrap/gerbil/runtime/hash~0.scm index 78f0def9b..5956fdb90 100644 --- a/src/bootstrap/gerbil/runtime/hash~0.scm +++ b/src/bootstrap/gerbil/runtime/hash~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/hash::timestamp 1733687559) + (define gerbil/runtime/hash::timestamp 1733870073) (begin (define UnboundKeyError::t (let ((__tmp110093 (list Error::t))) diff --git a/src/bootstrap/gerbil/runtime/init~0.scm b/src/bootstrap/gerbil/runtime/init~0.scm index 1d136605f..a0e9813b6 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 1733687559) + (define gerbil/runtime/init::timestamp 1733870074) (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+115468%_ __*readtable*)) - (let* ((_%core115470%_ (gx#import-module ':gerbil/core)) - (_%pre115472%_ (gx#make-prelude-context _%core115470%_))) - (gx#current-expander-module-prelude _%pre115472%_) - (gx#core-bind-root-syntax! ': _%pre115472%_ '#t) + (letrec* ((_%+readtable+115505%_ __*readtable*)) + (let* ((_%core115507%_ (gx#import-module ':gerbil/core)) + (_%pre115509%_ (gx#make-prelude-context _%core115507%_))) + (gx#current-expander-module-prelude _%pre115509%_) + (gx#core-bind-root-syntax! ': _%pre115509%_ '#t) (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 ((__tmp115479 - (lambda (_%port115475%_) + (let ((__tmp115516 + (lambda (_%port115512%_) (input-port-readtable-set! - _%port115475%_ - _%+readtable+115468%_))) - (__tmp115478 (list ##stdin-port ##console-port))) + _%port115512%_ + _%+readtable+115505%_))) + (__tmp115515 (list ##stdin-port ##console-port))) (declare (not safe)) - (##for-each __tmp115479 __tmp115478)) - (let ((__tmp115481 - (lambda (_%port115477%_) + (##for-each __tmp115516 __tmp115515)) + (let ((__tmp115518 + (lambda (_%port115514%_) (output-port-readtable-set! - _%port115477%_ + _%port115514%_ (readtable-sharing-allowed?-set - (output-port-readtable _%port115477%_) + (output-port-readtable _%port115514%_) '#t)))) - (__tmp115480 (list ##stdout-port ##console-port))) + (__tmp115517 (list ##stdout-port ##console-port))) (declare (not safe)) - (##for-each __tmp115481 __tmp115480))))) - (define __gxi-init-interactive! (lambda (_%cmdline115465%_) '#!void)) + (##for-each __tmp115518 __tmp115517))))) + (define __gxi-init-interactive! (lambda (_%cmdline115502%_) '#!void)) (define load-scheme - (lambda (_%path115460%_) - (let ((__tmp115482 + (lambda (_%path115497%_) + (let ((__tmp115519 (lambda () - (let ((__tmp115483 (lambda _%args115463%_ '#f))) + (let ((__tmp115520 (lambda _%args115500%_ '#f))) (declare (not safe)) - (##load _%path115460%_ __tmp115483 '#t '#t '#f))))) + (##load _%path115497%_ __tmp115520 '#t '#t '#f))))) (declare (not safe)) (__call-with-parameters - __tmp115482 + __tmp115519 __scheme-source - _%path115460%_)))) + _%path115497%_)))) (define __expand-source - (lambda (_%src115442%_) - (letrec ((_%expand115444%_ - (lambda (_%src115458%_) + (lambda (_%src115479%_) + (letrec ((_%expand115481%_ + (lambda (_%src115495%_) (__compile-top - (gx#core-expand (__source->syntax _%src115458%_))))) - (_%no-expand115445%_ - (lambda (_%src115451%_) + (gx#core-expand (__source->syntax _%src115495%_))))) + (_%no-expand115482%_ + (lambda (_%src115488%_) (if (let () (declare (not safe)) (__scheme-source)) - _%src115451%_ + _%src115488%_ (if (let () (declare (not safe)) - (##source? _%src115451%_)) - (let ((_%code115455%_ + (##source? _%src115488%_)) + (let ((_%code115492%_ (let () (declare (not safe)) - (##source-code _%src115451%_)))) - (if (pair? _%code115455%_) + (##source-code _%src115488%_)))) + (if (pair? _%code115492%_) (if (eq? '__noexpand: (let () (declare (not safe)) - (##car _%code115455%_))) + (##car _%code115492%_))) (let () (declare (not safe)) - (##cdr _%code115455%_)) + (##cdr _%code115492%_)) '#f) '#f)) '#f))))) - (let ((_%$e115447%_ (_%no-expand115445%_ _%src115442%_))) - (if _%$e115447%_ _%$e115447%_ (_%expand115444%_ _%src115442%_)))))) + (let ((_%$e115484%_ (_%no-expand115482%_ _%src115479%_))) + (if _%$e115484%_ _%$e115484%_ (_%expand115481%_ _%src115479%_)))))) (define __macro-descr - (lambda (_%src115428%_ _%def-syntax?115429%_) - (letrec ((_%fail!115431%_ + (lambda (_%src115465%_ _%def-syntax?115466%_) + (letrec ((_%fail!115468%_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _%src115428%_)))) - (_%make-descr115432%_ - (lambda (_%size115436%_) - (let ((_%expander115439%_ - (let ((__tmp115484 + _%src115465%_)))) + (_%make-descr115469%_ + (lambda (_%size115473%_) + (let ((_%expander115476%_ + (let ((__tmp115521 (lambda () (let () (declare (not safe)) (##eval-top - _%src115428%_ + _%src115465%_ ##interaction-cte))))) (declare (not safe)) (__call-with-parameters - __tmp115484 + __tmp115521 __scheme-source 'macro)))) - (if (procedure? _%expander115439%_) + (if (procedure? _%expander115476%_) (let () (declare (not safe)) (##make-macro-descr - _%def-syntax?115429%_ - _%size115436%_ - _%expander115439%_ - _%src115428%_)) - (_%fail!115431%_)))))) - (if _%def-syntax?115429%_ - (_%make-descr115432%_ '-1) - (let ((_%code115434%_ + _%def-syntax?115466%_ + _%size115473%_ + _%expander115476%_ + _%src115465%_)) + (_%fail!115468%_)))))) + (if _%def-syntax?115466%_ + (_%make-descr115469%_ '-1) + (let ((_%code115471%_ (let () (declare (not safe)) - (##source-code _%src115428%_)))) - (if (and (let () (declare (not safe)) (##pair? _%code115434%_)) - (let ((__tmp115485 - (let ((__tmp115486 - (let ((__tmp115487 + (##source-code _%src115465%_)))) + (if (and (let () (declare (not safe)) (##pair? _%code115471%_)) + (let ((__tmp115522 + (let ((__tmp115523 + (let ((__tmp115524 (let () (declare (not safe)) - (##car _%code115434%_)))) + (##car _%code115471%_)))) (declare (not safe)) (##sourcify - __tmp115487 - _%src115428%_)))) + __tmp115524 + _%src115465%_)))) (declare (not safe)) - (##source-code __tmp115486)))) + (##source-code __tmp115523)))) (declare (not safe)) - (##memq __tmp115485 '(##lambda lambda)))) + (##memq __tmp115522 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _%src115428%_ _%src115428%_ '-3)) - (_%make-descr115432%_ - (let ((__tmp115488 - (let ((__tmp115489 + (##shape _%src115465%_ _%src115465%_ '-3)) + (_%make-descr115469%_ + (let ((__tmp115525 + (let ((__tmp115526 (let () (declare (not safe)) - (##cadr _%code115434%_)))) + (##cadr _%code115471%_)))) (declare (not safe)) - (##sourcify __tmp115489 _%src115428%_)))) + (##sourcify __tmp115526 _%src115465%_)))) (declare (not safe)) - (##form-size __tmp115488)))) - (_%fail!115431%_))))))) + (##form-size __tmp115525)))) + (_%fail!115468%_))))))) (define __source->syntax - (lambda (_%src115417%_) - (let _%recur115419%_ ((_%e115421%_ _%src115417%_)) - (if (let () (declare (not safe)) (##source? _%e115421%_)) - (let ((__tmp115491 - (_%recur115419%_ + (lambda (_%src115454%_) + (let _%recur115456%_ ((_%e115458%_ _%src115454%_)) + (if (let () (declare (not safe)) (##source? _%e115458%_)) + (let ((__tmp115528 + (_%recur115456%_ (let () (declare (not safe)) - (##source-code _%e115421%_)))) - (__tmp115490 + (##source-code _%e115458%_)))) + (__tmp115527 (let () (declare (not safe)) - (##source-locat _%e115421%_)))) + (##source-locat _%e115458%_)))) (declare (not safe)) - (##structure AST::t __tmp115491 __tmp115490)) - (if (pair? _%e115421%_) - (cons (_%recur115419%_ - (let () (declare (not safe)) (##car _%e115421%_))) - (_%recur115419%_ - (let () (declare (not safe)) (##cdr _%e115421%_)))) - (if (vector? _%e115421%_) - (vector-map _%recur115419%_ _%e115421%_) - (if (box? _%e115421%_) - (box (_%recur115419%_ (unbox _%e115421%_))) - _%e115421%_))))))) + (##structure AST::t __tmp115528 __tmp115527)) + (if (pair? _%e115458%_) + (cons (_%recur115456%_ + (let () (declare (not safe)) (##car _%e115458%_))) + (_%recur115456%_ + (let () (declare (not safe)) (##cdr _%e115458%_)))) + (if (vector? _%e115458%_) + (vector-map _%recur115456%_ _%e115458%_) + (if (box? _%e115458%_) + (box (_%recur115456%_ (unbox _%e115458%_))) + _%e115458%_))))))) (define __compile-top-source - (lambda (_%stx115415%_) - (cons '__noexpand: (__compile-top _%stx115415%_)))) + (lambda (_%stx115452%_) + (cons '__noexpand: (__compile-top _%stx115452%_)))) (define __compile-top - (lambda (_%stx115413%_) - (let ((__tmp115492 (gx#core-compile-top-syntax _%stx115413%_))) + (lambda (_%stx115450%_) + (let ((__tmp115529 (gx#core-compile-top-syntax _%stx115450%_))) (declare (not safe)) - (__compile __tmp115492)))) + (__compile __tmp115529)))) (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 (_%in115375%_) - (letrec ((_%import1115377%_ - (lambda (_%in115398%_ _%phi115399%_) - (if (gx#module-import? _%in115398%_) - (let ((_%iphi115402%_ - (fx+ _%phi115399%_ - (gx#module-import-phi _%in115398%_)))) + (lambda (_%in115412%_) + (letrec ((_%import1115414%_ + (lambda (_%in115435%_ _%phi115436%_) + (if (gx#module-import? _%in115435%_) + (let ((_%iphi115439%_ + (fx+ _%phi115436%_ + (gx#module-import-phi _%in115435%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi115402%_)) - (_%eval1115378%_ + (##fxzero? _%iphi115439%_)) + (_%eval1115415%_ (gx#module-export-context - (gx#module-import-source _%in115398%_))) + (gx#module-import-source _%in115435%_))) '#!void)) - (if (gx#module-context? _%in115398%_) - (if (fxzero? _%phi115399%_) - (_%eval1115378%_ _%in115398%_) + (if (gx#module-context? _%in115435%_) + (if (fxzero? _%phi115436%_) + (_%eval1115415%_ _%in115435%_) '#!void) - (if (gx#import-set? _%in115398%_) - (let ((_%iphi115406%_ - (fx+ _%phi115399%_ - (gx#import-set-phi _%in115398%_)))) + (if (gx#import-set? _%in115435%_) + (let ((_%iphi115443%_ + (fx+ _%phi115436%_ + (gx#import-set-phi _%in115435%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi115406%_)) - (_%eval1115378%_ - (gx#import-set-source _%in115398%_)) + (##fxzero? _%iphi115443%_)) + (_%eval1115415%_ + (gx#import-set-source _%in115435%_)) (if (let () (declare (not safe)) - (##fxpositive? _%iphi115406%_)) + (##fxpositive? _%iphi115443%_)) (for-each - (lambda (_%in115410%_) - (_%import1115377%_ - _%in115410%_ - _%iphi115406%_)) + (lambda (_%in115447%_) + (_%import1115414%_ + _%in115447%_ + _%iphi115443%_)) (gx#module-context-import (gx#import-set-source - _%in115398%_))) + _%in115435%_))) '#!void))) (let () (declare (not safe)) (error '"Unexpected import" - _%in115398%_))))))) - (_%eval1115378%_ - (lambda (_%ctx115382%_) + _%in115435%_))))))) + (_%eval1115415%_ + (lambda (_%ctx115419%_) (mutex-lock! __modstate-mx) - (let ((_%$e115384%_ + (let ((_%$e115421%_ (let () (declare (not safe)) - (__hash-get __modstate _%ctx115382%_)))) - (if _%$e115384%_ - ((lambda (_%state115387%_) - (let ((_%$e115389%_ (car _%state115387%_))) - (if (eq? 'forcing _%$e115389%_) + (__hash-get __modstate _%ctx115419%_)))) + (if _%$e115421%_ + ((lambda (_%state115424%_) + (let ((_%$e115426%_ (car _%state115424%_))) + (if (eq? 'forcing _%$e115426%_) (begin (mutex-unlock! __modstate-mx __modstate-cv) - (_%eval1115378%_ _%ctx115382%_)) - (if (eq? 'ready _%$e115389%_) + (_%eval1115415%_ _%ctx115419%_)) + (if (eq? 'ready _%$e115426%_) (begin (mutex-unlock! __modstate-mx) - (cadr _%state115387%_)) - (if (eq? 'error _%$e115389%_) + (cadr _%state115424%_)) + (if (eq? 'error _%$e115426%_) (begin (mutex-unlock! __modstate-mx) - (let ((__tmp115493 - (cadr _%state115387%_))) + (let ((__tmp115530 + (cadr _%state115424%_))) (declare (not safe)) - (raise __tmp115493))) + (raise __tmp115530))) (begin (mutex-unlock! __modstate-mx) (let () (declare (not safe)) (error '"internal error; unexpected module state" - _%state115387%_)))))))) - _%$e115384%_) + _%state115424%_)))))))) + _%$e115421%_) (let () (let () (declare (not safe)) (__hash-put! __modstate - _%ctx115382%_ + _%ctx115419%_ '(forcing))) (mutex-unlock! __modstate-mx) - (let ((__tmp115496 - (lambda (_%exn115393%_) + (let ((__tmp115533 + (lambda (_%exn115430%_) (mutex-lock! __modstate-mx) - (let ((__tmp115497 + (let ((__tmp115534 (cons 'error - (cons _%exn115393%_ '())))) + (cons _%exn115430%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx115382%_ - __tmp115497)) + _%ctx115419%_ + __tmp115534)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) (let () (declare (not safe)) - (raise _%exn115393%_)))) - (__tmp115494 + (raise _%exn115430%_)))) + (__tmp115531 (lambda () - (let ((_%result115396%_ - (__eval-module _%ctx115382%_))) + (let ((_%result115433%_ + (__eval-module _%ctx115419%_))) (mutex-lock! __modstate-mx) - (let ((__tmp115495 + (let ((__tmp115532 (cons 'ready - (cons _%result115396%_ + (cons _%result115433%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx115382%_ - __tmp115495)) + _%ctx115419%_ + __tmp115532)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) - _%result115396%_)))) + _%result115433%_)))) (declare (not safe)) - (__with-catch __tmp115496 __tmp115494)))))))) - (if (pair? _%in115375%_) - (let ((__tmp115498 - (lambda (_%in115380%_) - (_%import1115377%_ _%in115380%_ '0)))) + (__with-catch __tmp115533 __tmp115531)))))))) + (if (pair? _%in115412%_) + (let ((__tmp115535 + (lambda (_%in115417%_) + (_%import1115414%_ _%in115417%_ '0)))) (declare (not safe)) - (##for-each __tmp115498 _%in115375%_)) - (_%import1115377%_ _%in115375%_ '0))))) + (##for-each __tmp115535 _%in115412%_)) + (_%import1115414%_ _%in115412%_ '0))))) (define __eval-module - (lambda (_%obj115373%_) (gx#core-eval-module _%obj115373%_))) + (lambda (_%obj115410%_) (gx#core-eval-module _%obj115410%_))) (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-head115369%_ - (let ((_%$e115366%_ + (let* ((_%stack-trace-head115406%_ + (let ((_%$e115403%_ (string->number (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG_STACKTRACE" '"10"))))) - (if _%$e115366%_ _%$e115366%_ '10))) - (__tmp115499 - (lambda (_%cont115371%_) + (if _%$e115403%_ _%$e115403%_ '10))) + (__tmp115536 + (lambda (_%cont115408%_) (display-continuation-backtrace - _%cont115371%_ + _%cont115408%_ (current-error-port) '1 '1 '0 - _%stack-trace-head115369%_)))) + _%stack-trace-head115406%_)))) (declare (not safe)) - (##continuation-capture __tmp115499))) + (##continuation-capture __tmp115536))) '#!void) (let () (declare (not safe)) (##default-user-interrupt-handler)))) (define gerbil-runtime-init! - (lambda (_%builtin-modules115342%_) + (lambda (_%builtin-modules115379%_) (if __runtime-initialized '#!void (begin (let () (declare (not safe)) (dump-stack-trace? '#t)) - (let* ((_%home115344%_ + (let* ((_%home115381%_ (let () (declare (not safe)) (gerbil-home))) - (_%libdir115346%_ (path-expand '"lib" _%home115344%_)) - (_%userpath115348%_ + (_%libdir115383%_ (path-expand '"lib" _%home115381%_)) + (_%userpath115385%_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_%loadpath115350%_ + (_%loadpath115387%_ (if (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_PREFIX" '#f)) - (cons _%libdir115346%_ '()) - (cons _%userpath115348%_ - (cons _%libdir115346%_ '())))) - (_%loadpath115360%_ - (let ((_%$e115352%_ + (cons _%libdir115383%_ '()) + (cons _%userpath115385%_ + (cons _%libdir115383%_ '())))) + (_%loadpath115397%_ + (let ((_%$e115389%_ (let () (declare (not safe)) (##getenv '"GERBIL_LOADPATH" '#f)))) - (if _%$e115352%_ - ((lambda (_%envvar115355%_) - (let ((__tmp115500 - (let ((__tmp115502 - (lambda (_%x115357%_) + (if _%$e115389%_ + ((lambda (_%envvar115392%_) + (let ((__tmp115537 + (let ((__tmp115539 + (lambda (_%x115394%_) (not (let () (declare (not safe)) (string-empty? - _%x115357%_))))) - (__tmp115501 + _%x115394%_))))) + (__tmp115538 (let () (declare (not safe)) (string-split - _%envvar115355%_ + _%envvar115392%_ '#\:)))) (declare (not safe)) - (##filter __tmp115502 __tmp115501)))) + (##filter __tmp115539 __tmp115538)))) (declare (not safe)) - (##append __tmp115500 _%loadpath115350%_))) - _%$e115352%_) - _%loadpath115350%_)))) + (##append __tmp115537 _%loadpath115387%_))) + _%$e115389%_) + _%loadpath115387%_)))) (declare (not safe)) - (__set-load-path! _%loadpath115360%_)) + (__set-load-path! _%loadpath115397%_)) (for-each - (lambda (_%mod115363%_) + (lambda (_%mod115400%_) (let () (declare (not safe)) - (__hash-put! __modules _%mod115363%_ 'builtin)) - (let ((__tmp115503 + (__hash-put! __modules _%mod115400%_ 'builtin)) + (let ((__tmp115540 (let () (declare (not safe)) - (##string-append _%mod115363%_ '"~0")))) + (##string-append _%mod115400%_ '"~0")))) (declare (not safe)) - (__hash-put! __modules __tmp115503 'builtin))) - _%builtin-modules115342%_) + (__hash-put! __modules __tmp115540 'builtin))) + _%builtin-modules115379%_) (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 cbbcb7dfc..fa977ff4d 100644 --- a/src/bootstrap/gerbil/runtime/interface~0.scm +++ b/src/bootstrap/gerbil/runtime/interface~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/interface::timestamp 1733687558) + (define gerbil/runtime/interface::timestamp 1733870073) (begin (define CastError::t (let ((__tmp105117 (list Error::t))) diff --git a/src/bootstrap/gerbil/runtime/loader.ssi b/src/bootstrap/gerbil/runtime/loader.ssi index a9d6f6b42..8eee7eba0 100644 --- a/src/bootstrap/gerbil/runtime/loader.ssi +++ b/src/bootstrap/gerbil/runtime/loader.ssi @@ -12,6 +12,8 @@ namespace: #f (%#define-runtime __load-mx __load-mx) (%#define-runtime __load-cv __load-cv) (%#define-runtime __load-path __load-path) + (%#define-runtime __load-order __load-order) + (%#define-runtime __load-order-next __load-order-next) (%#define-runtime load-path load-path) (%#define-runtime add-load-path! add-load-path!) (%#define-runtime set-load-path! set-load-path!) @@ -20,5 +22,8 @@ namespace: #f (%#define-runtime __load-module __load-module) (%#define-runtime reload-module! reload-module!) (%#define-runtime __reload-module! __reload-module!) - (%#define-runtime __find-library-module __find-library-module)) + (%#define-runtime __find-library-module __find-library-module) + (%#define-runtime list-modules list-modules) + (%#define-runtime module-load-order module-load-order) + (%#define-runtime __module-load-order __module-load-order)) (%#call (%#ref load-module) (%#quote "gerbil/runtime/loader~0")) diff --git a/src/bootstrap/gerbil/runtime/loader.ssxi.ss b/src/bootstrap/gerbil/runtime/loader.ssxi.ss index bd14be33c..c734eaafb 100644 --- a/src/bootstrap/gerbil/runtime/loader.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/loader.ssxi.ss @@ -14,6 +14,12 @@ package: gerbil/runtime (declare-type __load-path (optimizer-resolve-class '(typedecl __load-path) 'list::t)) + (declare-type + __load-order + (optimizer-resolve-class '(typedecl __load-order) 'HashTable::t)) + (declare-type + __load-order-next + (optimizer-resolve-class '(typedecl __load-order-next) 'number::t)) (declare-type load-path (@lambda 0 @@ -148,4 +154,49 @@ package: gerbil/runtime unchecked: #f origin: + gerbil/runtime/loader))) + (declare-type + list-modules + (@lambda 0 + #f + signature: + (return: + list::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/loader))) + (declare-type + module-load-order + (@lambda 1 + #f + signature: + (return: + integer::t + effect: + #f + arguments: + (string::t) + unchecked: + __module-load-order + origin: + gerbil/runtime/loader))) + (declare-type + __module-load-order + (@lambda 1 + #f + signature: + (return: + integer::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: gerbil/runtime/loader)))) diff --git a/src/bootstrap/gerbil/runtime/loader~0.scm b/src/bootstrap/gerbil/runtime/loader~0.scm index 5ec220a02..6db9be17d 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 1733687559) + (define gerbil/runtime/loader::timestamp 1733870074) (begin (define __modules (let () @@ -18,286 +18,363 @@ (define __load-mx (make-mutex 'loader)) (define __load-cv (make-condition-variable 'loader)) (define __load-path '()) + (define __load-order + (let () + (declare (not safe)) + (make-hash-table__% + '#f + absent-value + absent-value + absent-value + absent-value + absent-value + absent-value + absent-value + absent-value))) + (define __load-order-next '1) (define load-path (lambda () __load-path)) (define add-load-path! - (lambda _%paths115328%_ - (if (let () (declare (not safe)) (__andmap1 string? _%paths115328%_)) + (lambda _%paths115365%_ + (if (let () (declare (not safe)) (__andmap1 string? _%paths115365%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths115328%_))) - (let ((__tmp115334 - (lambda (_%p115330%_) - (set! __load-path (cons _%p115330%_ __load-path)))) - (__tmp115333 (reverse! _%paths115328%_))) + _%paths115365%_))) + (let ((__tmp115371 + (lambda (_%p115367%_) + (set! __load-path (cons _%p115367%_ __load-path)))) + (__tmp115370 (reverse! _%paths115365%_))) (declare (not safe)) - (##for-each __tmp115334 __tmp115333)))) + (##for-each __tmp115371 __tmp115370)))) (define set-load-path! - (lambda (_%paths115314%_) - (if (list? _%paths115314%_) - (let ((_%paths115318%_ _%paths115314%_)) - (__set-load-path! _%paths115318%_)) + (lambda (_%paths115351%_) + (if (list? _%paths115351%_) + (let ((_%paths115355%_ _%paths115351%_)) + (__set-load-path! _%paths115355%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/loader.ss\"@25.23-25.28" + '"\"gerbil/runtime/loader.ss\"@27.23-27.28" 'contract: 'list? 'value: - _%paths115314%_) + _%paths115351%_) '#!void)))) (define __set-load-path! - (lambda (_%paths115302%_) - (let ((_%paths115305%_ _%paths115302%_)) - (if (let () (declare (not safe)) (__andmap1 string? _%paths115305%_)) + (lambda (_%paths115339%_) + (let ((_%paths115342%_ _%paths115339%_)) + (if (let () (declare (not safe)) (__andmap1 string? _%paths115342%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths115305%_))) - (set! __load-path _%paths115305%_)))) + _%paths115342%_))) + (set! __load-path _%paths115342%_)))) (define load-module - (lambda (_%modpath115288%_) - (if (string? _%modpath115288%_) - (let ((_%modpath115292%_ _%modpath115288%_)) - (__load-module _%modpath115292%_)) + (lambda (_%modpath115325%_) + (if (string? _%modpath115325%_) + (let ((_%modpath115329%_ _%modpath115325%_)) + (__load-module _%modpath115329%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/loader.ss\"@30.20-30.27" + '"\"gerbil/runtime/loader.ss\"@32.20-32.27" 'contract: 'string? 'value: - _%modpath115288%_) + _%modpath115325%_) '#!void)))) (define __load-module - (lambda (_%modpath115253%_) - (let ((_%modpath115256%_ _%modpath115253%_)) + (lambda (_%modpath115290%_) + (let ((_%modpath115293%_ _%modpath115290%_)) (mutex-lock! __load-mx) - (let ((_%$e115265%_ + (let ((_%$e115302%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath115256%_)))) - (if _%$e115265%_ - ((lambda (_%state115268%_) - (if (or (eq? 'builtin _%state115268%_) - (string? _%state115268%_)) - (let () (mutex-unlock! __load-mx) _%state115268%_) - (if (eq? 'loading _%state115268%_) + (__hash-get __modules _%modpath115293%_)))) + (if _%$e115302%_ + ((lambda (_%state115305%_) + (if (or (eq? 'builtin _%state115305%_) + (string? _%state115305%_)) + (let () (mutex-unlock! __load-mx) _%state115305%_) + (if (eq? 'loading _%state115305%_) (let () (mutex-unlock! __load-mx __load-cv) - (__load-module _%modpath115256%_)) - (if (and (pair? _%state115268%_) + (__load-module _%modpath115293%_)) + (if (and (pair? _%state115305%_) (eq? (let () (declare (not safe)) - (##car _%state115268%_)) + (##car _%state115305%_)) 'error)) (let () (mutex-unlock! __load-mx) - (let ((__tmp115335 (cadr _%state115268%_))) + (let ((__tmp115372 (cadr _%state115305%_))) (declare (not safe)) - (raise __tmp115335))) + (raise __tmp115372))) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state115268%_))))))) - _%$e115265%_) - (let ((_%$e115277%_ (__find-library-module _%modpath115256%_))) - (if _%$e115277%_ - ((lambda (_%path115280%_) + _%state115305%_))))))) + _%$e115302%_) + (let ((_%$e115314%_ (__find-library-module _%modpath115293%_))) + (if _%$e115314%_ + ((lambda (_%path115317%_) (let () (declare (not safe)) - (__hash-put! __modules _%modpath115256%_ 'loading)) + (__hash-put! __modules _%modpath115293%_ 'loading)) (mutex-unlock! __load-mx) - (let ((__tmp115337 - (lambda (_%exn115282%_) + (let ((__tmp115374 + (lambda (_%exn115319%_) (mutex-lock! __load-mx) - (let ((__tmp115338 + (let ((__tmp115375 (cons 'error - (cons _%exn115282%_ '())))) + (cons _%exn115319%_ '())))) (declare (not safe)) (__hash-put! __modules - _%modpath115256%_ - __tmp115338)) + _%modpath115293%_ + __tmp115375)) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) (let () (declare (not safe)) - (raise _%exn115282%_)))) - (__tmp115336 + (raise _%exn115319%_)))) + (__tmp115373 (lambda () - (let ((_%loaded-path115285%_ - (load _%path115280%_))) + (let ((_%loaded-path115322%_ + (load _%path115317%_))) (mutex-lock! __load-mx) (let () (declare (not safe)) (__hash-put! __modules - _%modpath115256%_ - _%loaded-path115285%_)) + _%modpath115293%_ + _%loaded-path115322%_)) + (if (let () + (declare (not safe)) + (__hash-get + __load-order + _%modpath115293%_)) + '#!void + (begin + (let () + (declare (not safe)) + (__hash-put! + __load-order + _%modpath115293%_ + __load-order-next)) + (set! __load-order-next + (+ __load-order-next '1)))) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) - _%loaded-path115285%_)))) + _%loaded-path115322%_)))) (declare (not safe)) - (__with-catch __tmp115337 __tmp115336))) - _%$e115277%_) + (__with-catch __tmp115374 __tmp115373))) + _%$e115314%_) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"module not found" - _%modpath115256%_)))))))))) + _%modpath115293%_)))))))))) (define reload-module! - (lambda (_%modpath115239%_) - (if (string? _%modpath115239%_) - (let ((_%modpath115243%_ _%modpath115239%_)) - (__reload-module! _%modpath115243%_)) + (lambda (_%modpath115276%_) + (if (string? _%modpath115276%_) + (let ((_%modpath115280%_ _%modpath115276%_)) + (__reload-module! _%modpath115280%_)) (begin (raise-contract-violation-error '"contract violation" 'context: - '"\"gerbil/runtime/loader.ss\"@70.23-70.30" + '"\"gerbil/runtime/loader.ss\"@75.23-75.30" 'contract: 'string? 'value: - _%modpath115239%_) + _%modpath115276%_) '#!void)))) (define __reload-module! - (lambda (_%modpath115210%_) - (let ((_%modpath115213%_ _%modpath115210%_)) + (lambda (_%modpath115248%_) + (let ((_%modpath115251%_ _%modpath115248%_)) (mutex-lock! __load-mx) - (let ((_%$e115223%_ + (let ((_%$e115260%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath115213%_)))) - (if _%$e115223%_ - ((lambda (_%state115226%_) - (if (eq? _%state115226%_ 'builtin) + (__hash-get __modules _%modpath115251%_)))) + (if _%$e115260%_ + ((lambda (_%state115263%_) + (if (eq? _%state115263%_ 'builtin) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"cannot reload builtin module" - _%modpath115213%_))) - (if (eq? 'loading _%state115226%_) + _%modpath115251%_))) + (if (eq? 'loading _%state115263%_) (let () (mutex-unlock! __load-mx __load-cv) (let () (declare (not safe)) (error '"module is still loading"))) - (if (string? _%state115226%_) - (let ((_%latest-path115231%_ + (if (string? _%state115263%_) + (let ((_%latest-path115268%_ (__find-library-module - _%modpath115213%_))) + _%modpath115251%_))) (if (or (equal? (path-extension - _%state115226%_) + _%state115263%_) '".scm") - (not (equal? _%state115226%_ - _%latest-path115231%_))) + (not (equal? _%state115263%_ + _%latest-path115268%_))) (begin (let () (declare (not safe)) (__hash-remove! __modules - _%modpath115213%_)) + _%modpath115251%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath115213%_)) - '#!void)) - (if (and (pair? _%state115226%_) + (__load-module _%modpath115251%_)) + (mutex-unlock! __load-mx))) + (if (and (pair? _%state115263%_) (eq? (let () (declare (not safe)) - (##car _%state115226%_)) + (##car _%state115263%_)) 'error)) (let () (let () (declare (not safe)) (__hash-remove! __modules - _%modpath115213%_)) + _%modpath115251%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath115213%_)) + (__load-module _%modpath115251%_)) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state115226%_)))))))) - _%$e115223%_) + _%state115263%_)))))))) + _%$e115260%_) (let () (mutex-unlock! __load-mx) - (__load-module _%modpath115213%_))))))) + (__load-module _%modpath115251%_))))))) (define __find-library-module - (lambda (_%modpath115144%_) - (letrec ((_%find-compiled-file115146%_ - (lambda (_%npath115199%_) - (let ((_%basepath115201%_ + (lambda (_%modpath115182%_) + (letrec ((_%find-compiled-file115184%_ + (lambda (_%npath115237%_) + (let ((_%basepath115239%_ (let () (declare (not safe)) - (##string-append _%npath115199%_ '".o")))) - (let _%lp115203%_ ((_%current115205%_ '#f) - (_%n115206%_ '1)) - (let ((_%next115208%_ - (let ((__tmp115339 - (number->string _%n115206%_))) + (##string-append _%npath115237%_ '".o")))) + (let _%lp115241%_ ((_%current115243%_ '#f) + (_%n115244%_ '1)) + (let ((_%next115246%_ + (let ((__tmp115376 + (number->string _%n115244%_))) (declare (not safe)) (##string-append - _%basepath115201%_ - __tmp115339)))) + _%basepath115239%_ + __tmp115376)))) (if (let () (declare (not safe)) - (##file-exists? _%next115208%_)) - (_%lp115203%_ - _%next115208%_ + (##file-exists? _%next115246%_)) + (_%lp115241%_ + _%next115246%_ (let () (declare (not safe)) - (##fx+ _%n115206%_ '1))) - _%current115205%_)))))) - (_%find-source-file115147%_ - (lambda (_%npath115195%_) - (let ((_%spath115197%_ + (##fx+ _%n115244%_ '1))) + _%current115243%_)))))) + (_%find-source-file115185%_ + (lambda (_%npath115233%_) + (let ((_%spath115235%_ (let () (declare (not safe)) - (##string-append _%npath115195%_ '".scm")))) + (##string-append _%npath115233%_ '".scm")))) (if (let () (declare (not safe)) - (##file-exists? _%spath115197%_)) - _%spath115197%_ + (##file-exists? _%spath115235%_)) + _%spath115235%_ '#f))))) - (let _%lp115149%_ ((_%rest115151%_ (load-path))) - (let* ((_%rest115152115160%_ _%rest115151%_) - (_%else115154115168%_ (lambda () '#f)) - (_%K115156115183%_ - (lambda (_%rest115171%_ _%dir115172%_) - (let* ((_%npath115174%_ + (let _%lp115187%_ ((_%rest115189%_ (load-path))) + (let* ((_%rest115190115198%_ _%rest115189%_) + (_%else115192115206%_ (lambda () '#f)) + (_%K115194115221%_ + (lambda (_%rest115209%_ _%dir115210%_) + (let* ((_%npath115212%_ (path-expand - _%modpath115144%_ - (path-expand _%dir115172%_))) - (_%$e115176%_ - (_%find-compiled-file115146%_ _%npath115174%_))) - (if _%$e115176%_ - (path-normalize _%$e115176%_) - (let ((_%$e115179%_ - (_%find-source-file115147%_ - _%npath115174%_))) - (if _%$e115179%_ - (path-normalize _%$e115179%_) - (_%lp115149%_ _%rest115171%_)))))))) - (if (pair? _%rest115152115160%_) - (let ((_%hd115157115186%_ + _%modpath115182%_ + (path-expand _%dir115210%_))) + (_%$e115214%_ + (_%find-compiled-file115184%_ _%npath115212%_))) + (if _%$e115214%_ + (path-normalize _%$e115214%_) + (let ((_%$e115217%_ + (_%find-source-file115185%_ + _%npath115212%_))) + (if _%$e115217%_ + (path-normalize _%$e115217%_) + (_%lp115187%_ _%rest115209%_)))))))) + (if (pair? _%rest115190115198%_) + (let ((_%hd115195115224%_ (let () (declare (not safe)) - (##car _%rest115152115160%_))) - (_%tl115158115188%_ + (##car _%rest115190115198%_))) + (_%tl115196115226%_ (let () (declare (not safe)) - (##cdr _%rest115152115160%_)))) - (let* ((_%dir115191%_ _%hd115157115186%_) - (_%rest115193%_ _%tl115158115188%_)) - (_%K115156115183%_ _%rest115193%_ _%dir115191%_))) - (_%else115154115168%_))))))))) + (##cdr _%rest115190115198%_)))) + (let* ((_%dir115229%_ _%hd115195115224%_) + (_%rest115231%_ _%tl115196115226%_)) + (_%K115194115221%_ _%rest115231%_ _%dir115229%_))) + (_%else115192115206%_))))))) + (define list-modules + (lambda () + (let () + (mutex-lock! __load-mx) + (let ((_%result115180%_ + (let () (declare (not safe)) (__hash->list __modules)))) + (mutex-unlock! __load-mx) + _%result115180%_)))) + (define module-load-order + (lambda (_%modpath115164%_) + (if (string? _%modpath115164%_) + (let ((_%modpath115168%_ _%modpath115164%_)) + (__module-load-order _%modpath115168%_)) + (begin + (raise-contract-violation-error + '"contract violation" + 'context: + '"\"gerbil/runtime/loader.ss\"@137.26-137.33" + 'contract: + 'string? + 'value: + _%modpath115164%_) + '#!void)))) + (define __module-load-order + (lambda (_%modpath115144%_) + (let ((_%modpath115147%_ _%modpath115144%_)) + (mutex-lock! __load-mx) + (let ((_%ord115162%_ + (if (eq? (let () + (declare (not safe)) + (__hash-get __modules _%modpath115147%_)) + 'builtin) + '0 + (let ((_%$e115158%_ + (let () + (declare (not safe)) + (__hash-get __load-order _%modpath115147%_)))) + (if _%$e115158%_ _%$e115158%_ '#f))))) + (mutex-unlock! __load-mx) + (if (exact-integer? _%ord115162%_) + _%ord115162%_ + (begin + (let () + (declare (not safe)) + (error '"unknown module load order" + 'module: + _%modpath115147%_)) + '#!void)))))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm index 3b2c7de7f..cd309f648 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 1733687558) + (define gerbil/runtime/mop-system-classes::timestamp 1733870073) (begin (declare (not optimize-dead-definitions diff --git a/src/bootstrap/gerbil/runtime/mop~0.scm b/src/bootstrap/gerbil/runtime/mop~0.scm index 09410aa87..334530dfc 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 1733687558) + (define gerbil/runtime/mop::timestamp 1733870072) (begin (define type-flag-opaque '1) (define type-flag-extensible '2) diff --git a/src/bootstrap/gerbil/runtime/repl~0.scm b/src/bootstrap/gerbil/runtime/repl~0.scm index 799f5c597..f840d87ca 100644 --- a/src/bootstrap/gerbil/runtime/repl~0.scm +++ b/src/bootstrap/gerbil/runtime/repl~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1733687559) + (define gerbil/runtime/repl::timestamp 1733870074) (define replx (lambda () (letrec ((_%write-reason115130%_ diff --git a/src/bootstrap/gerbil/runtime/syntax~0.scm b/src/bootstrap/gerbil/runtime/syntax~0.scm index e441ea194..296de51a3 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 1733687559) + (define gerbil/runtime/syntax::timestamp 1733870073) (begin (declare (not safe)) (define SyntaxError::t diff --git a/src/bootstrap/gerbil/runtime/system~0.scm b/src/bootstrap/gerbil/runtime/system~0.scm index b7ff1de9f..695be1090 100644 --- a/src/bootstrap/gerbil/runtime/system~0.scm +++ b/src/bootstrap/gerbil/runtime/system~0.scm @@ -1,8 +1,8 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1733687558) + (define gerbil/runtime/system::timestamp 1733870072) (begin - (define gerbil-version-string (lambda () '"v0.18.1-135-g82a4d9285")) + (define gerbil-version-string (lambda () '"v0.18.1-137-g14058aab8")) (define gerbil-system-manifest (cons (cons '"Gerbil" (gerbil-version-string)) (cons (cons '"Gambit" (system-version-string)) '()))) diff --git a/src/bootstrap/gerbil/runtime/table~0.scm b/src/bootstrap/gerbil/runtime/table~0.scm index 40cc8fa6a..1170b3356 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 1733687558) + (define gerbil/runtime/table::timestamp 1733870072) (begin (declare (not safe)) (define __table::t.id 'gerbil#__table::t) diff --git a/src/bootstrap/gerbil/runtime/thread~0.scm b/src/bootstrap/gerbil/runtime/thread~0.scm index 3e5f1930a..a1a6feaa1 100644 --- a/src/bootstrap/gerbil/runtime/thread~0.scm +++ b/src/bootstrap/gerbil/runtime/thread~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1733687559) + (define gerbil/runtime/thread::timestamp 1733870073) (begin (define spawn (lambda (_%f110712%_ . _%args110713%_) diff --git a/src/bootstrap/gerbil/runtime/util~0.scm b/src/bootstrap/gerbil/runtime/util~0.scm index 7c89789fa..2050873ce 100644 --- a/src/bootstrap/gerbil/runtime/util~0.scm +++ b/src/bootstrap/gerbil/runtime/util~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1733687557) + (define gerbil/runtime/util::timestamp 1733870072) (begin (define raise-contract-violation-error error) (set! raise-contract-violation-error raise-contract-violation-error) diff --git a/src/bootstrap/gerbil/runtime~0.scm b/src/bootstrap/gerbil/runtime~0.scm index ba42da1f1..c7abc2f26 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 1733687559) '#!void) +(begin (define gerbil/runtime::timestamp 1733870074) '#!void) diff --git a/src/gerbil/core/runtime.ss b/src/gerbil/core/runtime.ss index 8879c27f3..675452988 100644 --- a/src/gerbil/core/runtime.ss +++ b/src/gerbil/core/runtime.ss @@ -1833,6 +1833,8 @@ package: gerbil/core set-load-path! load-module reload-module! + list-modules + module-load-order ;; :gerbil/runtime/init gerbil-load-expander! diff --git a/src/gerbil/runtime/loader.ss b/src/gerbil/runtime/loader.ss index 3df69e1c1..9e84b7f96 100644 --- a/src/gerbil/runtime/loader.ss +++ b/src/gerbil/runtime/loader.ss @@ -12,6 +12,8 @@ namespace: #f (def __load-mx (make-mutex 'loader)) (def __load-cv (make-condition-variable 'loader)) (def __load-path []) +(def __load-order (make-hash-table)) +(def __load-order-next 1) (def (load-path) => :list __load-path) @@ -60,6 +62,9 @@ namespace: #f (let (loaded-path (load path)) (mutex-lock! __load-mx) (hash-put! __modules modpath loaded-path) + (unless (hash-get __load-order modpath) + (hash-put! __load-order modpath __load-order-next) + (set! __load-order-next (1+ __load-order-next))) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) loaded-path))))) @@ -81,11 +86,13 @@ namespace: #f (error "module is still loading")) ((string? state) (let (latest-path (__find-library-module modpath)) - (when (or (equal? (path-extension state) ".scm") - (not (equal? state latest-path))) - (hash-remove! __modules modpath) - (mutex-unlock! __load-mx) - (load-module modpath)))) + (if (or (equal? (path-extension state) ".scm") + (not (equal? state latest-path))) + (begin + (hash-remove! __modules modpath) + (mutex-unlock! __load-mx) + (load-module modpath)) + (mutex-unlock! __load-mx)))) ((and (pair? state) (eq? (car state) 'error)) (hash-remove! __modules modpath) (mutex-unlock! __load-mx) @@ -119,3 +126,23 @@ namespace: #f ((find-source-file npath) => path-normalize) (else (lp rest))))) (else #f)))) + +(def (list-modules) + => :list + (mutex-lock! __load-mx) + (let (result (hash->list __modules)) + (mutex-unlock! __load-mx) + (:- result :list))) + +(def (module-load-order (modpath : :string)) + => :integer + (mutex-lock! __load-mx) + (let (ord + (cond + ((eq? (hash-get __modules modpath) 'builtin) 0) + ((hash-get __load-order modpath)) + (else #f))) + (mutex-unlock! __load-mx) + (if (exact-integer? ord) + ord + (abort! (error "unknown module load order" module: modpath))))) diff --git a/src/std/interactive.ss b/src/std/interactive.ss index 8a096e514..02ea3a33b 100644 --- a/src/std/interactive.ss +++ b/src/std/interactive.ss @@ -4,11 +4,13 @@ (export #t (for-syntax #t)) -(module - (import :gerbil/core/expander) +(module Util + (import :gerbil/core/expander + :gerbil/runtime/loader + :std/sort) (export #t) ;; Module reloading - (def (reload-module! mod) + (def (do-reload-module! mod) (cond ((string? mod) ; file path, resource it (import-module mod #t #t)) @@ -18,19 +20,39 @@ ((string-empty? str) (error "Invalid module path" mod)) ((eq? (string-ref str 0) #\:) ; library module - (reload-module! (substring str 1 (string-length str))) - (import-module mod #t #t)) + (let (base (substring str 1 (string-length str))) + (reload-all! base) + (import-module mod #t #t))) (else ; top module (void))))) (else - (error "Invalid module path" mod))))) -(import (for-syntax )) + (error "Invalid module path" mod)))) + + (def (reload-all! modbase) + (let* ((loaded-modules (list-modules)) + (to-reload + (filter-map + (lambda (p) + (with ([modpath . state] p) + (and (not (eq? state 'builtin)) + (string-prefix? modbase modpath) + modpath))) + loaded-modules)) + (load-order + (list->hash-table + (map (lambda (modpath) (cons modpath (module-load-order modpath))) + to-reload))) + (to-reload + (sort to-reload + (lambda (x y) (< (hash-ref load-order x) (hash-ref load-order y)))))) + (for-each reload-module! to-reload)))) +(import (for-syntax Util)) (defsyntax (reload! stx) (syntax-case stx () ((_ mod) (begin - (reload-module! (stx-e #'mod)) + (do-reload-module! (stx-e #'mod)) #'(import mod))))) (defrules reload ()